work on ObjectWriter

Back to the root! but lots of adjusting
ObjectWriter takes machine, machine has space
Virtual constants become Parfait::Objects etc

lib/elf/object_writer.rb

@@ -6,9 +6,9 @@ require 'elf/string_table_section'
 module Elf
 
   class ObjectWriter
-    def initialize(space , target = Elf::Constants::TARGET_ARM )
+    def initialize(machine , target = Elf::Constants::TARGET_ARM )
       @object = Elf::ObjectFile.new(target)
-      @object_space = space
+      @object_machine = machine
       sym_strtab = Elf::StringTableSection.new(".strtab")
       @object.add_section sym_strtab
       @symbol_table = Elf::SymbolTableSection.new(".symtab", sym_strtab)
@@ -17,8 +17,8 @@ module Elf
       @text = Elf::TextSection.new(".text")
       @object.add_section @text
 
-      @object_space.run_passes
-      assembler = Register::Assembler.new(@object_space)
+      @object_machine.run_passes
+      assembler = Register::Assembler.new(@object_machine.space)
       set_text assembler.assemble
 
       # for debug add labels to the block positions

lib/parfait.rb

@@ -25,7 +25,8 @@ module Parfait
   class Object
     include FakeMem
     def self.new_object *args
-      #puts "I am #{self}"
+#      Space.space.get_or_create_class(:Word)
+      puts "I am #{self}"
       object = self.new(*args)
       object
     end

lib/parfait/layout.rb

@@ -22,5 +22,8 @@
 module Parfait
   class Layout < List
 
+    def get_object_class()
+      return internal_object_get(2)
+    end
   end
 end

lib/parfait/list.rb

@@ -42,6 +42,15 @@ module Parfait
       self.length == 0
     end
 
+    def each
+      index = 0
+      while index < self.length
+        item = get(index)
+        yield item
+        index = index + 1
+      end
+      self
+    end
     def grow_to(len)
       raise "negative length for grow #{len}" if len < 0
       return unless len > self.length

lib/parfait/object.rb

@@ -16,10 +16,16 @@ module Parfait
     # In Salama we store the class in the Layout, and so the Layout is the only fixed
     # data that every object carries.
     def get_class()
-      @layout.get_class()
+      l = get_layout()
+      puts "Layout #{l}"
+      l.get_object_class()
     end
 
-    # class stores the "latest" layout for instances, ir the layout a new object will
+    def get_layout()
+      return internal_object_get(1)
+    end
+
+    # class stores the "latest" layout for instances, ie the layout a new object will
     # be created with.
     # inside parfait (and for now everywhere) these are constant.
     @@EMPTY =  { :names => [] , :types => []}
@@ -27,12 +33,8 @@ module Parfait
       @@EMPTY
     end
 
-    def get_layout()
-      @layout
-    end
-
     def instance_variables
-      @layout.instance_variables
+      get_layout().instance_variables
     end
 
     def instance_variable_get name
@@ -48,7 +50,7 @@ module Parfait
     end
 
     def instance_variable_defined name
-      @layout.index_of(name)
+      layout().index_of(name)
     end
 
     # Object

lib/parfait/space.rb

@@ -33,7 +33,7 @@ module Parfait
       @next_message = @messages.first
       @next_frame = @frames.first
     end
-    attr_reader  :init , :main , :classes , :objects , :symbols,:messages, :next_message , :next_frame
+    attr_reader :classes , :objects , :symbols,:messages, :next_message , :next_frame
 
     @@SPACE = { :names => [:classes,:objects,:symbols,:messages, :next_message , :next_frame] ,
                 :types => [Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference]}
@@ -50,7 +50,7 @@ module Parfait
       end
     end
 
-    # this is the way to instantiate classes (not BootClass.new)
+    # this is the way to instantiate classes (not Parfait::Class.new)
     # so we get and keep exactly one per name
     def get_or_create_class name
       raise "uups #{name}.#{name.class}" unless name.is_a? Symbol

lib/parfait/word.rb

@@ -78,12 +78,6 @@ module Parfait
       raise "called"
       class_for(MoveInstruction).new(value , self , :opcode => :mov)
     end
-    def clazz
-      Space.space.get_or_create_class(:Word)
-    end
-    def layout
-      Virtual::Object.layout
-    end
     def mem_length
       padded(1 + string.length)
     end

lib/virtual/machine.rb

@@ -34,21 +34,21 @@ module Virtual
 
     def initialize
       @parser  = Parser::Salama.new
-      the_end = Halt.new
+      #the_end = Halt.new
       @passes = [ "Virtual::SendImplementation" ]
       @space =  Parfait::Space.new
 #      @message = Message.new(the_end , the_end , :Object)
     end
-    attr_reader :message , :passes , :space
+    attr_reader :message , :passes , :space , :init , :main
 
     def run_passes
       @passes.each do |pass_class|
-        blocks = [@init] + main.blocks
-        @classes.values.each do |c|
+        blocks = [@init]  + @main.blocks
+        @space.classes.values.each do |c|
           c.instance_methods.each {|f| blocks += f.blocks  }
         end
         #puts "running #{pass_class}"
-        all.each do |block|
+        blocks.each do |block|
           pass = eval pass_class
           raise "no such pass-class as #{pass_class}" unless pass
           pass.new.run(block)
@@ -90,8 +90,9 @@ module Virtual
     # CompiledMethods are grabbed from respective modules by sending the method name. This should return the
     # implementation of the method (ie a method object), not actually try to implement it (as that's impossible in ruby)
     def boot_classes!
-      # very fiddly chicken 'n egg problem. Functions need to be in the right order, and in fact we have to define some
-      # dummies, just for the other to compile
+      # very fiddly chicken 'n egg problem. Functions need to be in the right order, and in fact we
+      # have to define some dummies, just for the other to compile
+      # TODO: go through the virtual parfait layer and adjust function names to what they really are
       obj = @space.get_or_create_class :Object
       [:index_of , :_get_instance_variable , :_set_instance_variable].each do |f|
         obj.add_instance_method Builtin::Object.send(f , nil)

lib/virtual/passes/send_implementation.rb

@@ -14,13 +14,15 @@ module Virtual
         new_codes = [  ]
         ref = code.me
         raise "only refs implemented #{me.inspect}" unless ( ref.type == Reference)
+        # value known at compile time, got do something with it
         if(ref.value)
           me = ref.value
-          if( me.is_a? BootClass )
+          if( me.is_a? Parfait::Class )
             raise "unimplemented #{code}"
-          elsif( me.is_a? ObjectConstant )
+          elsif( me.is_a? Parfait::Object )
             # get the function from my class. easy peasy
-            method = me.clazz.get_instance_method(code.name)
+            puts "Me is #{me.class}"
+            method = me.get_class.get_instance_method(code.name)
             raise "Method not implemented #{clazz.name}.#{code.name}" unless method
             new_codes << MethodCall.new( method )
           else
@@ -29,9 +31,11 @@ module Virtual
             kernel = Virtual::Machine.instance.space.get_or_create_class(:Kernel)
             method = kernel.get_instance_method(:__send)
             new_codes << MethodCall.new( method )
-            raise "unimplemented #{code}"
+            raise "unimplemented: \n#{code}"
           end
         else
+          # must defer send to run-time
+          # So inlining the code from message.send (in the future)
           raise "not constant/ known object for send #{ref.inspect}"
         end
         block.replace(code , new_codes )

test/fragments/helper.rb

@@ -13,7 +13,7 @@ require 'parslet/convenience'
 module Fragments
   # need a code generator, for arm
   def setup
-    @object_space = Boot::Space.new "Arm"
+    @object_machine = Virtual::Machine.new "Arm"
   end
 
   def parse
@@ -24,20 +24,20 @@ module Fragments
     # and the last is wrapped as a main
     parts.each_with_index do |part,index|
       if part.is_a? Ast::FunctionExpression
-        expr    = part.compile( @object_space.context )
+        expr    = part.compile( @object_machine.context )
       else
         puts part.inspect if part.is_a? Hash
-        expr    = part.compile( @object_space.context )
+        expr    = part.compile( @object_machine.context )
       end
     end
   end
 
   # helper to write the file
   def write name
-    writer = Elf::ObjectWriter.new(@object_space , Elf::Constants::TARGET_ARM)
+    writer = Elf::ObjectWriter.new(@object_machine , Elf::Constants::TARGET_ARM)
     assembly = writer.text
     writer.save("#{name}.o")
-    function = @object_space.classes[@target[0]]
+    function = @object_machine.classes[@target[0]]
     assert function , "no class #{@target[0]}"
     function = function.get_function(@target[1])
     assert function , "no function #{@target[1]}  for class #{@target[0]}"

test/test_runner.rb

@@ -35,6 +35,7 @@ class TestRunner < MiniTest::Test
       end
     end
 
+    #object writer takes machine
     writer = Elf::ObjectWriter.new(program , Elf::Constants::TARGET_ARM)
 
     writer.save(file.gsub(".rb" , ".o"))

test/virtual/hello.rb

@@ -7,10 +7,10 @@ class HelloTest < MiniTest::Test
     machine = Virtual::Machine.boot
     expressions = machine.compile_main @string_input
 
-    writer = Elf::ObjectWriter.new(Virtual::Space.space)
+    writer = Elf::ObjectWriter.new(machine)
     writer.save "hello.o"
 #    puts Sof::Writer.write(expressions)
-    puts Sof::Writer.write(Virtual::Space.space)
+    puts Sof::Writer.write(machine.space)
   end
 
   def qtest_simplest_function