rename old layout()
new is called get_layout, but keep old around for checking
This commit is contained in:
parent
350d708fd3
commit
1114f06921
@ -62,7 +62,7 @@ module Parfait
|
||||
end
|
||||
|
||||
@@CLAZZ = { :names => [:name , :super_class_name , :instance_methods] , :types => [Virtual::Reference,Virtual::Reference,Virtual::Reference]}
|
||||
def layout
|
||||
def old_layout
|
||||
@@CLAZZ
|
||||
end
|
||||
def mem_length
|
||||
|
@ -37,7 +37,7 @@ module Parfait
|
||||
|
||||
@@SPACE = { :names => [:classes,:objects,:symbols,:messages, :next_message , :next_frame] ,
|
||||
:types => [Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference]}
|
||||
def layout
|
||||
def old_layout
|
||||
@@SPACE
|
||||
end
|
||||
|
||||
|
@ -8,6 +8,10 @@ module Parfait
|
||||
# Words are constant, maybe like js strings, ruby symbols
|
||||
# Words are short, but may have spaces
|
||||
|
||||
# Words are objects, that means they carry Layout as index 0
|
||||
# So all indexes are offset by one in the implementation
|
||||
# Object length is measured in non-layout cells though
|
||||
|
||||
# big TODO , this has NO encoding, a char takes a machine word. Go fix.
|
||||
class Word < Object
|
||||
# initialize with length. For now we try to keep all non-parfait (including String) out
|
||||
|
@ -148,7 +148,7 @@ module Virtual
|
||||
Ast::NameExpression.new(name)
|
||||
end
|
||||
|
||||
def layout
|
||||
def old_layout
|
||||
Virtual::Object.layout
|
||||
end
|
||||
# sugar to create instructions easily.
|
||||
|
@ -84,7 +84,7 @@ module Virtual
|
||||
def self.instance
|
||||
@instance ||= Machine.new
|
||||
end
|
||||
|
||||
|
||||
# for testing, make sure no old artefacts hang around
|
||||
#maybe should be moved to test dir
|
||||
def self.reboot
|
||||
@ -143,6 +143,7 @@ module Virtual
|
||||
cl = @space.get_class_by_name( name )
|
||||
cl.set_super_class(object_class)
|
||||
end
|
||||
#boot_layouts
|
||||
end
|
||||
def boot
|
||||
# read all the files needed for a minimal system at compile
|
||||
|
@ -48,7 +48,7 @@ module Virtual
|
||||
raise "abstract #{self.class}"
|
||||
end
|
||||
@@EMPTY = { :names => [] , :types => []}
|
||||
def layout
|
||||
def old_layout
|
||||
raise "Find me #{self}"
|
||||
self.class.layout
|
||||
end
|
||||
@ -61,7 +61,7 @@ module Virtual
|
||||
# @@CLAZZ = { :names => [:name , :super_class_name , :instance_methods] , :types => [Virtual::Reference,Virtual::Reference,Virtual::Reference]}
|
||||
# @@SPACE = { :names => [:classes,:objects] , :types => [Virtual::Reference,Virtual::Reference]}
|
||||
|
||||
def layout_for(object)
|
||||
def old_layout_for(object)
|
||||
case object
|
||||
when Array , Symbol , String , Virtual::CompiledMethod , Virtual::Block , Parfait::Word
|
||||
@@ARRAY
|
||||
@ -91,7 +91,7 @@ module Virtual
|
||||
end
|
||||
::Parfait::Message.class_eval do
|
||||
include Positioned
|
||||
def layout
|
||||
def old_layout
|
||||
Virtual::Object.layout
|
||||
end
|
||||
def mem_length
|
||||
@ -100,7 +100,7 @@ end
|
||||
end
|
||||
::Parfait::Frame.class_eval do
|
||||
include Positioned
|
||||
def layout
|
||||
def old_layout
|
||||
Virtual::Object.layout
|
||||
end
|
||||
def mem_length
|
||||
@ -110,7 +110,7 @@ end
|
||||
Parfait::Dictionary.class_eval do
|
||||
include Positioned
|
||||
HASH = { :names => [:keys,:values] , :types => [Virtual::Reference,Virtual::Reference]}
|
||||
def layout
|
||||
def old_layout
|
||||
HASH
|
||||
end
|
||||
def mem_length
|
||||
@ -119,7 +119,7 @@ Parfait::Dictionary.class_eval do
|
||||
end
|
||||
::Parfait::List.class_eval do
|
||||
include Positioned
|
||||
def layout
|
||||
def old_layout
|
||||
Virtual::Object.layout
|
||||
end
|
||||
def mem_length
|
||||
@ -128,7 +128,7 @@ end
|
||||
end
|
||||
::Parfait::Word.class_eval do
|
||||
include Positioned
|
||||
def layout
|
||||
def old_layout
|
||||
Virtual::Object.layout
|
||||
end
|
||||
def mem_length
|
||||
|
@ -31,7 +31,7 @@ class Object
|
||||
l = @layout
|
||||
return l.index_of(name)
|
||||
end
|
||||
def layout()
|
||||
def old_layout()
|
||||
return @layout
|
||||
end
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user