76 lines
1.8 KiB
Ruby
76 lines
1.8 KiB
Ruby
#
|
|
#
|
|
# In rubyx everything truely is an object. (most smalltalk/ruby systems use a union
|
|
# for integers/pointers that are called objects, but are really very different)
|
|
#
|
|
# Objects have type as their first member. No exception.
|
|
#
|
|
# So where is the data? In DataObjects. DataObjects are opague carriers of data.
|
|
# Opague to rubyx that is. There is no way to get at it or pass the data around.
|
|
#
|
|
# To use Data, Risc instructions have to be used. Luckily there is not soo much one
|
|
# actually wants to do with data, moving it between DataObject , comparing and
|
|
# logical and math operation that are bundled into the OperatorInstruction.
|
|
#
|
|
# For safe access the access code needs to know the length of the data, which is
|
|
# encoded in the class/type name. Ie An Integer derives from Data4, which is 4 long
|
|
# ( one for the type, one for the next, one word for the integer and currently still a marker)
|
|
#
|
|
# DataObjects still have a type, and so can have objects before the data starts
|
|
#
|
|
# A marker class
|
|
module Parfait
|
|
class DataObject < Object
|
|
def initialize
|
|
super
|
|
@memory = []
|
|
end
|
|
def data_length
|
|
raise "called #{self}"
|
|
end
|
|
def data_start
|
|
return get_type.get_length
|
|
end
|
|
|
|
# 1 -based index
|
|
def get_internal_word(index)
|
|
return super if index <= data_start
|
|
@memory[index]
|
|
end
|
|
|
|
# 1 -based index
|
|
def set_internal_word(index , value)
|
|
return super if index <= data_start
|
|
raise "Word[#{index}] = nil" if( value.nil? )
|
|
@memory[index] = value
|
|
value
|
|
end
|
|
end
|
|
|
|
class Data4 < DataObject
|
|
def data_length
|
|
3
|
|
end
|
|
def padded_length
|
|
2 * 4
|
|
end
|
|
end
|
|
|
|
class Data8 < DataObject
|
|
def data_length
|
|
7
|
|
end
|
|
def padded_length
|
|
8 * 4
|
|
end
|
|
end
|
|
class Data16 < DataObject
|
|
def data_length
|
|
15
|
|
end
|
|
def padded_length
|
|
16 * 4
|
|
end
|
|
end
|
|
end
|