102 lines
2.3 KiB
Ruby
102 lines
2.3 KiB
Ruby
require_relative "fake_memory"
|
|
|
|
|
|
module Parfait
|
|
class Object ; end
|
|
class DataObject < Object
|
|
def self.allocate
|
|
r = super
|
|
r.instance_variable_set(:@memory , Risc::FakeMemory.new(r ,self.type_length , self.memory_size))
|
|
r
|
|
end
|
|
# 0 -based index
|
|
def get_internal_word(index)
|
|
return super(index) if index < self.class.type_length
|
|
@memory[ index ]
|
|
end
|
|
|
|
# 0 -based index
|
|
def set_internal_word(index , value)
|
|
return super(index,value) if index < self.class.type_length
|
|
@memory[ index ] = value
|
|
end
|
|
end
|
|
|
|
class Object
|
|
|
|
# 0 -based index
|
|
def get_internal_word(index)
|
|
return @type if index == Parfait::TYPE_INDEX
|
|
name = Parfait.name_for_index(self , index)
|
|
return nil unless name
|
|
instance_eval("@#{name}")
|
|
end
|
|
|
|
# 0 -based index
|
|
def set_internal_word(index , value)
|
|
name = Parfait.name_for_index(self , index)
|
|
raise "no string #{name.class}" unless name.is_a?(Symbol)
|
|
instance_eval("@#{name}=value" )
|
|
value
|
|
end
|
|
|
|
def self.variable_index( name)
|
|
if(name == :type)
|
|
return Parfait::TYPE_INDEX
|
|
end
|
|
clazz = self.name.split("::").last.to_sym
|
|
type = Parfait.type_names[clazz]
|
|
i = type.keys.index(name)
|
|
raise "no #{name} for #{clazz}:#{type.keys}" unless i
|
|
i + 1
|
|
end
|
|
|
|
def self.cattr( *names )
|
|
names.each do |ca|
|
|
class_eval "@@#{ca} = 0"
|
|
class_eval "def self.#{ca}; return @#{ca};end"
|
|
class_eval "def self.#{ca}=(val); @#{ca} = val;end"
|
|
end
|
|
end
|
|
end
|
|
|
|
# new list from ruby array to be precise
|
|
def self.new_list array
|
|
list = Parfait::List.new
|
|
list.set_length array.length
|
|
index = 0
|
|
while index < array.length do
|
|
list.set(index , array[index])
|
|
index = index + 1
|
|
end
|
|
list
|
|
end
|
|
|
|
# Word from string
|
|
def self.new_word( string )
|
|
string = string.to_s if string.is_a? Symbol
|
|
word = Word.new( string.length )
|
|
string.codepoints.each_with_index do |code , index |
|
|
word.set_char(index , code)
|
|
end
|
|
word
|
|
end
|
|
|
|
end
|
|
|
|
class Symbol
|
|
|
|
def has_type?
|
|
true
|
|
end
|
|
def get_type
|
|
l = Parfait.object_space.classes[:Word].instance_type
|
|
#puts "LL #{l.class}"
|
|
l
|
|
end
|
|
def padded_length
|
|
Parfait::Object.padded( to_s.length + 4)
|
|
end
|
|
|
|
end
|