2014-08-05 14:55:24 +02:00
|
|
|
|
2015-04-06 10:38:11 +02:00
|
|
|
# A message is what is sent when you invoke a method. Args and stuff are packed up in to a Message
|
|
|
|
# and the Message is sent to the receiver.
|
2014-09-24 17:25:18 +02:00
|
|
|
|
2014-08-05 14:55:24 +02:00
|
|
|
class Message
|
2014-08-06 17:37:19 +02:00
|
|
|
|
2014-08-07 14:41:13 +02:00
|
|
|
def get_type_for(name)
|
|
|
|
index = @layout.get_index(name)
|
|
|
|
get_at(index)
|
2014-08-06 17:37:19 +02:00
|
|
|
end
|
|
|
|
|
2014-09-24 17:25:18 +02:00
|
|
|
def __send
|
2014-08-06 17:37:19 +02:00
|
|
|
typ = get_type_for( :receiver )
|
|
|
|
# TODO: this will obviously be recoded as case, once that is done :-)
|
|
|
|
# depending on value type get method
|
|
|
|
if( typ == Integer )
|
|
|
|
method = Integer.get_method @method_name
|
|
|
|
else
|
|
|
|
if( typ != ObjectReference )
|
|
|
|
raise "unimplemented case"
|
|
|
|
else
|
|
|
|
method = @receiver.get_singeton_method @method_name
|
|
|
|
# Find the method for the given object (receiver) according to ruby dispatch rules:
|
|
|
|
# - see if the receiver object has a (singleton) method by the name
|
|
|
|
# - get receivers class and look for instance methods of the name
|
|
|
|
# - go up inheritance tree
|
|
|
|
# - start over with method_missing instead
|
|
|
|
# -> guaranteed to end at object.method_missing
|
|
|
|
unless method
|
|
|
|
cl = @receiver.layout.object_class
|
|
|
|
method = cl.get_instance_or_super_method @method_name
|
|
|
|
end
|
|
|
|
end
|
2014-08-05 14:55:24 +02:00
|
|
|
end
|
|
|
|
unless method
|
|
|
|
message = Message.new( @receiver , :method_missing , [@method_name] + @args)
|
|
|
|
message.send
|
|
|
|
else
|
|
|
|
method.call
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|