59 lines
2.4 KiB
Ruby
59 lines
2.4 KiB
Ruby
|
module Ast
|
||
|
|
# assignment, like operators are really function calls
|
||
|
|
|
||
|
|
class CallSiteExpression < Expression
|
||
|
|
# attr_reader :name, :args , :receiver
|
||
|
|
@@counter = 0
|
||
|
|
def compile context
|
||
|
|
into = context.function
|
||
|
|
params = args.collect{ |a| a.compile(context) }
|
||
|
|
puts "compiling receiver #{receiver} (call #{name})"
|
||
|
|
if receiver.is_a? ModuleName
|
||
|
|
clazz = context.object_space.get_or_create_class receiver.name
|
||
|
|
value_receiver = clazz.meta_class
|
||
|
|
function = value_receiver.resolve_function name
|
||
|
|
elsif receiver.is_a?(StringExpression) or receiver.is_a?(IntegerExpression)
|
||
|
|
#TODO obviously the class is wrong, but you gotta start somewhere
|
||
|
|
clazz = context.object_space.get_or_create_class :Object
|
||
|
|
function = clazz.resolve_function name
|
||
|
|
value_receiver = receiver.compile(context)
|
||
|
|
elsif receiver.is_a?(NameExpression)
|
||
|
|
if(receiver.name == :self)
|
||
|
|
function = context.current_class.resolve_function(name)
|
||
|
|
value_receiver = Vm::Integer.new(Vm::RegisterMachine.instance.receiver_register)
|
||
|
|
else
|
||
|
|
value_receiver = receiver.compile(context)
|
||
|
|
# TODO HACK warning: should determine class dynamically
|
||
|
|
function = context.current_class.resolve_function(name)
|
||
|
|
end
|
||
|
|
elsif receiver.is_a? VariableExpression
|
||
|
|
value_receiver = receiver.compile(context)
|
||
|
|
function = context.current_class.resolve_function(name)
|
||
|
|
else
|
||
|
|
#This , how does one say nowadays, smells. Smells of unused polymorphism actually
|
||
|
|
raise "Not sure this is possible, but never good to leave elses open #{receiver} #{receiver.class}"
|
||
|
|
end
|
||
|
|
raise "No such method error #{inspect}" if (function.nil?)
|
||
|
|
raise "No receiver error #{inspect}:#{receiver}" if (value_receiver.nil?)
|
||
|
|
call = Vm::CallSite.new( name , value_receiver , params , function)
|
||
|
|
current_function = context.function
|
||
|
|
into.push([]) unless current_function.nil?
|
||
|
|
call.load_args into
|
||
|
|
call.do_call into
|
||
|
|
|
||
|
|
after = into.new_block("#{name}#{@@counter+=1}")
|
||
|
|
into.insert_at after
|
||
|
|
into.pop([]) unless current_function.nil?
|
||
|
|
function.return_type
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
class VariableExpression < CallSiteExpression
|
||
|
|
# super( :_get_instance_variable , [StringExpression.new(name)] )
|
||
|
|
def make_setter
|
||
|
|
@name = :_set_instance_variable
|
||
|
|
@args << StringExpression.new("value")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|