pass message to compile, not frame

lib/ast/basic_expressions.rb

@@ -4,25 +4,25 @@ module Ast
 
   class IntegerExpression < Expression
 #    attr_reader :value
-    def compile method , frame
+    def compile method , message
       Virtual::IntegerConstant.new value
     end
   end
 
   class TrueExpression
-    def compile method , frame
+    def compile method , message
       Virtual::TrueValue.new
     end
   end
   
   class FalseExpression
-    def compile method , frame
+    def compile method , message
       Virtual::FalseValue.new
     end
   end
   
   class NilExpression
-    def compile method , frame
+    def compile method , message
       Virtual::NilValue.new
     end
   end
@@ -33,19 +33,19 @@ module Ast
     # compiling name needs to check if it's a variable and if so resolve it
     # otherwise it's a method without args and a send is ussued.
     # this makes the namespace static, ie when eval and co are implemented method needs recompilation
-    def compile method , frame
+    def compile method , message
       return Virtual::Self.new( Virtual::Mystery.new ) if name == :self
       if method.has_var(name)
-        frame.compile_get(method , name )
+        message.compile_get(method , name )
       else
-        frame.compile_send( method , name ,  Virtual::Self.new( Virtual::Mystery.new ) )
+        message.compile_send( method , name ,  Virtual::Self.new( Virtual::Mystery.new ) )
       end
     end
   end
 
   class ModuleName < NameExpression
 
-    def compile method , frame
+    def compile method , message
       clazz = ::Virtual::Object.space.get_or_create_class name
       raise "uups #{clazz}.#{name}" unless clazz
       #class qualifier, means call from metaclass
@@ -56,7 +56,7 @@ module Ast
 
   class StringExpression < Expression
 #    attr_reader  :string
-    def compile method , frame
+    def compile method , message
       value = Virtual::StringConstant.new(string)
       ::Virtual::Object.space.add_object value 
       value
@@ -65,10 +65,10 @@ module Ast
   class AssignmentExpression < Expression
     #attr_reader  :left, :right
 
-    def compile method , frame
+    def compile method , message
       raise "must assign to NameExpression , not #{left}" unless left.instance_of? NameExpression 
-      r = right.compile(method,frame)
+      r = right.compile(method,message)
-      frame.compile_set( method , left.name , r )
+      message.compile_set( method , left.name , r )
     end
     def old_scratch
       if operator == "="    # assignment, value based
@@ -93,7 +93,7 @@ module Ast
   end
 
   class VariableExpression < NameExpression
-    def compile method , frame
+    def compile method , message
       method.add Virtual::ObjectGet.new(name)
       Virtual::Return.new( Virtual::Mystery.new )
     end

lib/ast/call_site_expression.rb

@@ -4,10 +4,10 @@ module Ast
   class CallSiteExpression < Expression
 #    attr_reader  :name, :args , :receiver
     @@counter = 0
-    def compile method , frame
+    def compile method , message
-      me = receiver.compile( method, frame )
+      me = receiver.compile( method, message )
-      with = args.collect{|a| a.compile( method,frame)}
+      with = args.collect{|a| a.compile( method,message)}
-      frame.compile_send( method , name , me , with  )
+      message.compile_send( method , name , me , with  )
     end
 
     def scratch

lib/ast/expression_list.rb

@@ -1,8 +1,8 @@
 module Ast
   class ExpressionList < Expression
 #    attr_reader  :expressions
-    def compile method , frame
+    def compile method , message
-      expressions.collect { |part|  part.compile( method, frame ) }
+      expressions.collect { |part|  part.compile( method, message ) }
     end
   end
 end

lib/ast/function_expression.rb

@@ -1,17 +1,17 @@
 module Ast
   class FunctionExpression < Expression
 #    attr_reader  :name, :params, :body , :receiver
-    def compile method , frame
+    def compile method , message
       args = params.collect do |p|
         raise "error, arguemnt must be a identifier, not #{p}" unless p.is_a? NameExpression
         Virtual::Argument.new( p.name , Virtual::Mystery.new )
       end
-      r = receiver ? receiver.compile(method,frame) : Virtual::SelfReference.new
+      r = receiver ? receiver.compile(method,message) : Virtual::SelfReference.new
       method = Virtual::MethodDefinition.new(name , args , r )
       #frame = frame.new_frame
       return_type = nil
       body.each do |ex|
-        return_type = ex.compile(method,frame )
+        return_type = ex.compile(method,message )
         raise return_type.inspect if return_type.is_a? Virtual::Instruction
       end
       method.return_type = return_type

lib/ast/if_expression.rb

@@ -1,15 +1,15 @@
 module Ast
   class IfExpression < Expression
 #    attr_reader  :cond, :if_true, :if_false
-    def compile method , frame
+    def compile method , message
-      is = cond.compile(method,frame)
+      is = cond.compile(method,message)
       #      is.is_false(frame,method)
       # TODO should/will use different branches for different conditions. 
       branch = Virtual::ImplicitBranch.new "if_merge"
       method.add branch
       last = is
       if_true.each do |part|
-        last = part.compile(method,frame )
+        last = part.compile(method,message )
         raise part.inspect if last.nil?
       end
       merge = Virtual::Label.new(branch.name)
@@ -17,7 +17,7 @@ module Ast
       branch.swap
       method.current = branch
       if_false.each do |part|
-        last = part.compile(method,frame )
+        last = part.compile(method,message )
         raise part.inspect if last.nil?
       end
       method.add merge

lib/ast/operator_expressions.rb

@@ -1,9 +1,9 @@
 module Ast
   class OperatorExpression < Expression
 #    attr_reader  :operator, :left, :right
-    def compile method , frame
+    def compile method , message
       call = CallSiteExpression.new( operator , [right] , left )
-      call.compile(method,frame)
+      call.compile(method,message)
     end
   end
 end

lib/ast/while_expression.rb

@@ -1,17 +1,17 @@
 module Ast
   class WhileExpression < Expression
 #    attr_reader  :condition, :body
-    def compile method , frame
+    def compile method , message
       start = Virtual::Label.new("while_start")
       method.add start
-      is = condition.compile(method,frame)
+      is = condition.compile(method,message)
       branch = Virtual::ImplicitBranch.new "while"
       merge = Virtual::Label.new(branch.name)
       branch.other = merge   #false jumps to end of while
       method.add branch
       last = is
       body.each do |part|
-        last = part.compile(method,frame )
+        last = part.compile(method,message )
         raise part.inspect if last.nil?
       end
       # unconditionally brnach to the start