2015-05-06 07:38:29 +02:00
|
|
|
module Virtual
|
2015-06-20 22:49:30 +02:00
|
|
|
|
|
|
|
# The current Message is one of four objects the virtual machine knows
|
|
|
|
#
|
|
|
|
# Slots represent instance variables of objects, so MessageSlots
|
|
|
|
# represent instance variables of Message objects.
|
|
|
|
# The Message has a layout as per the constant above
|
|
|
|
|
2015-05-06 07:38:29 +02:00
|
|
|
class MessageSlot < Slot
|
2015-06-29 09:55:22 +02:00
|
|
|
def initialize type = Unknown , value = nil
|
|
|
|
super(type , value )
|
2015-05-06 07:38:29 +02:00
|
|
|
end
|
2015-06-30 08:39:45 +02:00
|
|
|
def object_name
|
|
|
|
:message
|
|
|
|
end
|
2015-05-06 07:38:29 +02:00
|
|
|
end
|
|
|
|
|
2015-06-20 23:21:42 +02:00
|
|
|
# named classes exist for slots that often accessed
|
|
|
|
|
2015-06-29 09:55:22 +02:00
|
|
|
# Return is the return of MessageSlot
|
2015-05-06 07:38:29 +02:00
|
|
|
class Return < MessageSlot
|
2015-06-11 07:04:14 +02:00
|
|
|
def initialize type = Unknown, value = nil
|
2015-06-29 09:55:22 +02:00
|
|
|
super( type , value )
|
2015-05-06 07:38:29 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2015-06-29 09:55:22 +02:00
|
|
|
# Self is the self in MessageSlot
|
2015-05-06 07:38:29 +02:00
|
|
|
class Self < MessageSlot
|
2015-06-11 07:04:14 +02:00
|
|
|
def initialize type = Unknown, value = nil
|
2015-06-29 09:55:22 +02:00
|
|
|
super( type , value )
|
2015-05-06 07:38:29 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2015-07-01 18:39:23 +02:00
|
|
|
# MessageMethod of the current message
|
|
|
|
class MessageMethod < MessageSlot
|
2015-06-11 07:04:14 +02:00
|
|
|
def initialize type = Unknown, value = nil
|
2015-06-29 09:55:22 +02:00
|
|
|
super( type , value )
|
2015-05-06 07:38:29 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|