2018-03-25 17:22:02 +02:00
|
|
|
#
|
|
|
|
#
|
|
|
|
# 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
|
2018-03-31 18:12:06 +02:00
|
|
|
# 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)
|
2018-03-25 17:22:02 +02:00
|
|
|
#
|
|
|
|
# DataObjects still have a type, and so can have objects before the data starts
|
|
|
|
#
|
|
|
|
# A marker class
|
|
|
|
module Parfait
|
|
|
|
class DataObject < Object
|
2018-08-11 18:15:34 +02:00
|
|
|
|
2018-05-28 14:09:59 +02:00
|
|
|
def self.integer_index
|
|
|
|
type_length
|
|
|
|
end
|
2018-05-28 14:45:29 +02:00
|
|
|
def self.type_length
|
|
|
|
raise "called #{self}"
|
2018-03-25 17:22:02 +02:00
|
|
|
end
|
2018-05-30 13:55:17 +02:00
|
|
|
def padded_length
|
|
|
|
self.class.memory_size * 4
|
|
|
|
end
|
|
|
|
def data_length
|
|
|
|
self.class.memory_size
|
|
|
|
end
|
2018-03-25 17:22:02 +02:00
|
|
|
end
|
|
|
|
|
2018-03-31 18:12:06 +02:00
|
|
|
class Data4 < DataObject
|
2018-05-28 13:46:26 +02:00
|
|
|
def self.memory_size
|
|
|
|
4
|
|
|
|
end
|
2018-03-25 17:22:02 +02:00
|
|
|
end
|
|
|
|
class Data8 < DataObject
|
2018-05-28 13:46:26 +02:00
|
|
|
def self.memory_size
|
|
|
|
8
|
|
|
|
end
|
2018-03-25 17:22:02 +02:00
|
|
|
end
|
|
|
|
class Data16 < DataObject
|
2018-05-28 13:46:26 +02:00
|
|
|
def self.memory_size
|
|
|
|
16
|
|
|
|
end
|
2018-03-25 17:22:02 +02:00
|
|
|
end
|
2018-05-28 14:45:29 +02:00
|
|
|
class Data32 < DataObject
|
|
|
|
def self.memory_size
|
|
|
|
32
|
|
|
|
end
|
|
|
|
end
|
2018-03-25 17:22:02 +02:00
|
|
|
end
|