Torsten Rüger
4c76ff3388
Parfait was depending on it, ie it created a dependency out of Parfait. But Parfiat needs to be self contained. Moved 2 methods into parfait object, and resolved single call from text_writer to third.
106 lines
2.3 KiB
Ruby
106 lines
2.3 KiB
Ruby
require_relative "fake_memory"
|
|
|
|
module Parfait
|
|
class 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)
|
|
@memory[index]
|
|
end
|
|
|
|
# 0 -based index
|
|
def set_internal_word(index , value)
|
|
@memory[index] = value
|
|
value
|
|
end
|
|
|
|
def self.attr( *attributes )
|
|
attributes = [attributes] unless attributes.is_a?(Array)
|
|
attributes.each do |name|
|
|
define_getter(name)
|
|
define_setter(name)
|
|
end
|
|
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.define_getter(name)
|
|
index = variable_index(name)
|
|
define_method(name) do
|
|
#puts "GETTING #{name} for #{self.class.name} in #{object_id.to_s(16)}"
|
|
@memory._get(index)
|
|
end
|
|
end
|
|
|
|
def self.define_setter(name)
|
|
index = variable_index(name)
|
|
define_method("#{name}=".to_sym ) do |value|
|
|
#puts "SETTING #{name}= for #{self.class.name} in #{object_id.to_s(16)}"
|
|
@memory._set(index , value)
|
|
end
|
|
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
|