rename phisol to soml

lib/soml/compiler/call_site.rb

@@ -0,0 +1,50 @@
+module Soml
+  Compiler.class_eval do
+
+    def on_call statement
+      #puts statement
+      name , arguments , receiver = *statement
+      name = name.to_a.first
+      raise "not inside method " unless @method
+      reset_regs
+      #move the new message (that we need to populate to make a call) to std register
+      new_message = Register.resolve_to_register(:new_message)
+      add_code Register.get_slot(@method, :message , :next_message , new_message )
+      if receiver
+        me = process( receiver.to_a.first  )
+      else
+        me = use_reg @method.for_class.name
+        add_code Register.get_slot(@method, :message , :receiver , me )
+      end
+      # move our receiver there
+      add_code Register.set_slot( statement , me , :new_message , :receiver)
+      # load method name and set to new message (for exceptions/debug)
+      name_tmp = use_reg(:Word)
+      add_code Register::LoadConstant.new(statement, name , name_tmp)
+      add_code Register.set_slot( statement , name_tmp , :new_message , :name)
+      # next arguments. reset tmp regs for each and load result into new_message
+      arguments.to_a.each_with_index do |arg , i|
+        reset_regs
+        # processing should return the register with the value
+        val = process( arg)
+        raise "Not register #{val}" unless val.is_a?(Register::RegisterValue)
+        # which we load int the new_message at the argument's index (the one comes from c index)
+        set = Register.set_slot( statement , val , :new_message , i + 1 + Parfait::Message.offset)
+        add_code set
+      end
+
+      # now we have to resolve the method name (+ receiver) into a callable method
+      clazz =  Register.machine.space.get_class_by_name(me.type)
+      raise "No such class #{me.type}" unless clazz
+      method = clazz.get_instance_method(name)
+      #puts Register.machine.space.get_class_by_name(:Integer).method_names.to_a
+      raise "Method not implemented #{me.type}.#{name}" unless method
+      Register.issue_call( @method , method )
+      ret = use_reg( method.source.return_type )
+      # the effect of the method is that the NewMessage Return slot will be filled, return it
+      # but move it into a register too
+      add_code Register.get_slot(@method, :message , :return_value , ret )
+      ret
+    end
+  end
+end