move space to parfait
Also make the machine the singleton and space hang off it Many repercussions, not all fixed in this commit
This commit is contained in:
parent
2e8b514e9c
commit
b980def84e
@ -15,5 +15,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::CallImplementation"
|
Virtual::Machine.instance.add_pass "Arm::CallImplementation"
|
||||||
end
|
end
|
||||||
|
@ -9,5 +9,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::ConstantImplementation"
|
Virtual::Machine.instance.add_pass "Arm::ConstantImplementation"
|
||||||
end
|
end
|
||||||
|
@ -9,5 +9,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::GetImplementation"
|
Virtual::Machine.instance.add_pass "Arm::GetImplementation"
|
||||||
end
|
end
|
||||||
|
@ -11,5 +11,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::MainImplementation"
|
Virtual::Machine.instance.add_pass "Arm::MainImplementation"
|
||||||
end
|
end
|
||||||
|
@ -9,5 +9,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::ReturnImplementation"
|
Virtual::Machine.instance.add_pass "Arm::ReturnImplementation"
|
||||||
end
|
end
|
||||||
|
@ -14,5 +14,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::SaveImplementation"
|
Virtual::Machine.instance.add_pass "Arm::SaveImplementation"
|
||||||
end
|
end
|
||||||
|
@ -9,5 +9,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::SetImplementation"
|
Virtual::Machine.instance.add_pass "Arm::SetImplementation"
|
||||||
end
|
end
|
||||||
|
@ -9,5 +9,5 @@ module Arm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Arm::TransferImplementation"
|
Virtual::Machine.instance.add_pass "Arm::TransferImplementation"
|
||||||
end
|
end
|
||||||
|
@ -22,7 +22,6 @@ module Elf
|
|||||||
set_text assembler.assemble
|
set_text assembler.assemble
|
||||||
|
|
||||||
# for debug add labels to the block positions
|
# for debug add labels to the block positions
|
||||||
blocks = []
|
|
||||||
space.classes.values.each do |clazz|
|
space.classes.values.each do |clazz|
|
||||||
clazz.instance_methods.each do |f|
|
clazz.instance_methods.each do |f|
|
||||||
f.blocks.each do |b|
|
f.blocks.each do |b|
|
||||||
|
@ -7,6 +7,7 @@ require "parfait/array"
|
|||||||
require "parfait/string"
|
require "parfait/string"
|
||||||
require "parfait/message"
|
require "parfait/message"
|
||||||
require "parfait/frame"
|
require "parfait/frame"
|
||||||
|
require "parfait/space"
|
||||||
|
|
||||||
# Below we define functions (in different classes) that are not part of the run-time
|
# Below we define functions (in different classes) that are not part of the run-time
|
||||||
# They are used for the boot process, ie when this codes executes in the vm that builds salama
|
# They are used for the boot process, ie when this codes executes in the vm that builds salama
|
||||||
|
@ -40,7 +40,7 @@ module Parfait
|
|||||||
method = get_instance_method(m_name)
|
method = get_instance_method(m_name)
|
||||||
unless method
|
unless method
|
||||||
unless( @name == :Object)
|
unless( @name == :Object)
|
||||||
supr = BootSpace.space.get_or_create_class(@super_class_name)
|
supr = Space.space.get_or_create_class(@super_class_name)
|
||||||
method = supr.resolve_method(m_name)
|
method = supr.resolve_method(m_name)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -8,10 +8,63 @@
|
|||||||
# "New" is slightly misleading in that normal operation only ever
|
# "New" is slightly misleading in that normal operation only ever
|
||||||
# recycles objects.
|
# recycles objects.
|
||||||
|
|
||||||
|
require "register/builtin/object"
|
||||||
|
|
||||||
module Parfait
|
module Parfait
|
||||||
|
# The Space contains all objects for a program. In functional terms it is a program, but in oo
|
||||||
|
# it is a collection of objects, some of which are data, some classes, some functions
|
||||||
|
|
||||||
|
# The main entry is a function called (of all things) "main", This _must be supplied by the compling
|
||||||
|
# There is a start and exit block that call main, which receives an array of strings
|
||||||
|
|
||||||
|
# While data ususally would live in a .data section, we may also "inline" it into the code
|
||||||
|
# in an oo system all data is represented as objects
|
||||||
|
|
||||||
class Space < Object
|
class Space < Object
|
||||||
|
|
||||||
|
def initialize
|
||||||
|
super()
|
||||||
|
@classes = Parfait::Hash.new_object
|
||||||
|
#global objects (data)
|
||||||
|
@objects = []
|
||||||
|
@symbols = []
|
||||||
|
@frames = 100.times.collect{ ::Parfait::Frame.new([],[])}
|
||||||
|
@messages = 100.times.collect{ ::Parfait::Message.new }
|
||||||
|
@next_message = @messages.first
|
||||||
|
@next_frame = @frames.first
|
||||||
|
end
|
||||||
|
attr_reader :init , :main , :classes , :objects , :symbols,:messages, :next_message , :next_frame
|
||||||
|
|
||||||
|
@@SPACE = { :names => [:classes,:objects,:symbols,:messages, :next_message , :next_frame] ,
|
||||||
|
:types => [Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference]}
|
||||||
|
def layout
|
||||||
|
@@SPACE
|
||||||
|
end
|
||||||
|
|
||||||
|
# Objects are data and get assembled after functions
|
||||||
|
def add_object o
|
||||||
|
return if @objects.include?(o)
|
||||||
|
@objects << o
|
||||||
|
if o.is_a? Symbol
|
||||||
|
@symbols << o
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
# this is the way to instantiate classes (not BootClass.new)
|
||||||
|
# so we get and keep exactly one per name
|
||||||
|
def get_or_create_class name
|
||||||
|
raise "uups #{name}.#{name.class}" unless name.is_a? Symbol
|
||||||
|
c = @classes[name]
|
||||||
|
unless c
|
||||||
|
c = Class.new_object(name)
|
||||||
|
@classes[name] = c
|
||||||
|
end
|
||||||
|
c
|
||||||
|
end
|
||||||
|
def mem_length
|
||||||
|
padded_words( 5 )
|
||||||
|
end
|
||||||
|
end
|
||||||
# ObjectSpace
|
# ObjectSpace
|
||||||
# :each_object, :garbage_collect, :define_finalizer, :undefine_finalizer, :_id2ref, :count_objects
|
# :each_object, :garbage_collect, :define_finalizer, :undefine_finalizer, :_id2ref, :count_objects
|
||||||
end
|
end
|
||||||
end
|
|
||||||
|
@ -7,7 +7,7 @@ There is a mechanism for an actual machine (derived class) to generate harware s
|
|||||||
plain ones in this directory don't assemble to binary). Currently there is only the Arm module to actually do
|
plain ones in this directory don't assemble to binary). Currently there is only the Arm module to actually do
|
||||||
that.
|
that.
|
||||||
|
|
||||||
The elf module is used to generate the actual binary from the final BootSpace. BootSpace is a virtual class representing
|
The elf module is used to generate the actual binary from the final Space. Space is a virtual class representing
|
||||||
all objects that will be in the executable. Other than CompiledMethods, objects get transformed to data.
|
all objects that will be in the executable. Other than CompiledMethods, objects get transformed to data.
|
||||||
|
|
||||||
But CompiledMethods, which are made up of Blocks, are compiled into a stream of bytes, which are the binary code for the
|
But CompiledMethods, which are made up of Blocks, are compiled into a stream of bytes, which are the binary code for the
|
||||||
|
@ -41,7 +41,7 @@ module Register
|
|||||||
begin
|
begin
|
||||||
link
|
link
|
||||||
@stream = StringIO.new
|
@stream = StringIO.new
|
||||||
mid , main = @objects.find{|k,objekt| objekt.is_a?(Virtual::CompiledMethod) and (objekt.name == :__init__ )}
|
#TODOmid , main = @objects.find{|k,objekt| objekt.is_a?(Virtual::CompiledMethod) and (objekt.name == :__init__ )}
|
||||||
initial_jump = @space.init
|
initial_jump = @space.init
|
||||||
initial_jump.codes.each do |code|
|
initial_jump.codes.each do |code|
|
||||||
code.assemble( @stream )
|
code.assemble( @stream )
|
||||||
@ -54,7 +54,7 @@ module Register
|
|||||||
next if objekt.is_a? Virtual::CompiledMethod
|
next if objekt.is_a? Virtual::CompiledMethod
|
||||||
assemble_object( objekt )
|
assemble_object( objekt )
|
||||||
end
|
end
|
||||||
rescue LinkException => e
|
rescue LinkException
|
||||||
# knowing that we fix the problem, we hope to get away with retry.
|
# knowing that we fix the problem, we hope to get away with retry.
|
||||||
retry
|
retry
|
||||||
end
|
end
|
||||||
@ -111,11 +111,11 @@ module Register
|
|||||||
assemble_self( hash , [ hash.keys , hash.values ] )
|
assemble_self( hash , [ hash.keys , hash.values ] )
|
||||||
end
|
end
|
||||||
|
|
||||||
def assemble_BootSpace(space)
|
def assemble_Space(space)
|
||||||
assemble_self(space , [space.classes,space.objects, space.symbols,space.messages,space.next_message,space.next_frame] )
|
assemble_self(space , [space.classes,space.objects, space.symbols,space.messages,space.next_message,space.next_frame] )
|
||||||
end
|
end
|
||||||
|
|
||||||
def assemble_BootClass(clazz)
|
def assemble_Class(clazz)
|
||||||
assemble_self( clazz , [clazz.name , clazz.super_class_name, clazz.instance_methods] )
|
assemble_self( clazz , [clazz.name , clazz.super_class_name, clazz.instance_methods] )
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -189,7 +189,7 @@ module Register
|
|||||||
add_object(hash.values)
|
add_object(hash.values)
|
||||||
end
|
end
|
||||||
|
|
||||||
def add_BootSpace(space)
|
def add_Space(space)
|
||||||
add_object(space.main)
|
add_object(space.main)
|
||||||
add_object(space.classes)
|
add_object(space.classes)
|
||||||
add_object(space.objects)
|
add_object(space.objects)
|
||||||
@ -199,7 +199,7 @@ module Register
|
|||||||
add_object(space.next_frame)
|
add_object(space.next_frame)
|
||||||
end
|
end
|
||||||
|
|
||||||
def add_BootClass(clazz)
|
def add_Class(clazz)
|
||||||
add_object(clazz.name )
|
add_object(clazz.name )
|
||||||
add_object(clazz.super_class_name)
|
add_object(clazz.super_class_name)
|
||||||
add_object(clazz.instance_methods)
|
add_object(clazz.instance_methods)
|
||||||
|
@ -12,7 +12,7 @@ module Builtin
|
|||||||
# so it is responsible for initial setup (and relocation)
|
# so it is responsible for initial setup (and relocation)
|
||||||
def __init__ context
|
def __init__ context
|
||||||
function = Virtual::CompiledMethod.new(:__init__ , [] , Virtual::Integer)
|
function = Virtual::CompiledMethod.new(:__init__ , [] , Virtual::Integer)
|
||||||
clazz = Virtual::BootSpace.space.get_or_create_class :Kernel
|
clazz = Virtual::Space.space.get_or_create_class :Kernel
|
||||||
method = clazz.resolve_method :main
|
method = clazz.resolve_method :main
|
||||||
me = Virtual::Self.new(Virtual::Reference)
|
me = Virtual::Self.new(Virtual::Reference)
|
||||||
code = Virtual::Set.new(Virtual::Self.new(me.type), me)
|
code = Virtual::Set.new(Virtual::Self.new(me.type), me)
|
||||||
|
@ -29,7 +29,7 @@ module Builtin
|
|||||||
var_name = get_function.args.first
|
var_name = get_function.args.first
|
||||||
return_to = get_function.return_type
|
return_to = get_function.return_type
|
||||||
|
|
||||||
index_function = ::Virtual::BootSpace.space.get_or_create_class(:Object).resolve_method(:index_of)
|
index_function = ::Virtual::Space.space.get_or_create_class(:Object).resolve_method(:index_of)
|
||||||
# get_function.push( [me] )
|
# get_function.push( [me] )
|
||||||
# index = get_function.call( index_function )
|
# index = get_function.call( index_function )
|
||||||
|
|
||||||
|
@ -23,5 +23,5 @@ module Register
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Register::CallImplementation"
|
Virtual::Machine.instance.add_pass "Register::CallImplementation"
|
||||||
end
|
end
|
||||||
|
@ -18,5 +18,5 @@ module Register
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Register::ReturnImplementation"
|
Virtual::Machine.instance.add_pass "Register::ReturnImplementation"
|
||||||
end
|
end
|
||||||
|
@ -42,5 +42,5 @@ module Register
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Register::SetImplementation"
|
Virtual::Machine.instance.add_pass "Register::SetImplementation"
|
||||||
end
|
end
|
||||||
|
@ -7,7 +7,6 @@ require "virtual/slots/slot"
|
|||||||
require "virtual/type"
|
require "virtual/type"
|
||||||
require "virtual/object"
|
require "virtual/object"
|
||||||
require "virtual/constants"
|
require "virtual/constants"
|
||||||
require "virtual/boot_space"
|
|
||||||
# the passes _are_ order dependant
|
# the passes _are_ order dependant
|
||||||
require "virtual/passes/send_implementation"
|
require "virtual/passes/send_implementation"
|
||||||
require "virtual/passes/get_implementation"
|
require "virtual/passes/get_implementation"
|
||||||
|
@ -20,7 +20,7 @@ also in an similar way that objects have their classes at runtime.
|
|||||||
*Ast* instances get created by the salama-reader gem from source.
|
*Ast* instances get created by the salama-reader gem from source.
|
||||||
Here we add compile functions to ast classes and comile the ast layer into Virtual:: objects
|
Here we add compile functions to ast classes and comile the ast layer into Virtual:: objects
|
||||||
|
|
||||||
The main objects are BootSpace (lots of objects), BootClass (represents a class),
|
The main objects are Space (lots of objects), BootClass (represents a class),
|
||||||
CompiledMethod (with Blocks and Instruction).
|
CompiledMethod (with Blocks and Instruction).
|
||||||
|
|
||||||
**Virtual** Instructions get further transformed into **register** instructions.
|
**Virtual** Instructions get further transformed into **register** instructions.
|
||||||
|
@ -1,139 +0,0 @@
|
|||||||
require "register/builtin/object"
|
|
||||||
|
|
||||||
module Virtual
|
|
||||||
# The BootSpace contains all objects for a program. In functional terms it is a program, but in oo
|
|
||||||
# it is a collection of objects, some of which are data, some classes, some functions
|
|
||||||
|
|
||||||
# The main entry is a function called (of all things) "main", This _must be supplied by the compling
|
|
||||||
# There is a start and exit block that call main, which receives an array of strings
|
|
||||||
|
|
||||||
# While data ususally would live in a .data section, we may also "inline" it into the code
|
|
||||||
# in an oo system all data is represented as objects
|
|
||||||
|
|
||||||
class BootSpace < Virtual::ObjectConstant
|
|
||||||
|
|
||||||
def initialize
|
|
||||||
super()
|
|
||||||
@classes = Parfait::Hash.new_object
|
|
||||||
#global objects (data)
|
|
||||||
@objects = []
|
|
||||||
@symbols = []
|
|
||||||
@frames = 100.times.collect{ ::Parfait::Frame.new([],[])}
|
|
||||||
@messages = 100.times.collect{ ::Parfait::Message.new }
|
|
||||||
@next_message = @messages.first
|
|
||||||
@next_frame = @frames.first
|
|
||||||
@passes = [ "Virtual::SendImplementation" ]
|
|
||||||
end
|
|
||||||
attr_reader :init , :main , :classes , :objects , :symbols,:messages, :next_message , :next_frame
|
|
||||||
|
|
||||||
def run_passes
|
|
||||||
@passes.each do |pass_class|
|
|
||||||
blocks = [@init] + main.blocks
|
|
||||||
@classes.values.each do |c|
|
|
||||||
c.instance_methods.each {|f| blocks += f.blocks }
|
|
||||||
end
|
|
||||||
#puts "running #{pass_class}"
|
|
||||||
all.each do |block|
|
|
||||||
pass = eval pass_class
|
|
||||||
raise "no such pass-class as #{pass_class}" unless pass
|
|
||||||
pass.new.run(block)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
def self.space
|
|
||||||
if defined? @@space
|
|
||||||
@@space
|
|
||||||
else
|
|
||||||
@@space = BootSpace.new
|
|
||||||
@@space
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
# Passes may be added to by anyone who wants
|
|
||||||
# This is intentionally quite flexible, though one sometimes has to watch the order of them
|
|
||||||
# most ordering is achieved by ordering the requires and using add_pass
|
|
||||||
# but more precise control is possible with the _after and _before versions
|
|
||||||
|
|
||||||
def add_pass pass
|
|
||||||
@passes << pass
|
|
||||||
end
|
|
||||||
def add_pass_after( pass , after)
|
|
||||||
index = @passes.index(after)
|
|
||||||
raise "No such pass (#{pass}) to add after: #{after}" unless index
|
|
||||||
@passes.insert(index+1 , pass)
|
|
||||||
end
|
|
||||||
def add_pass_before( pass , after)
|
|
||||||
index = @passes.index(after)
|
|
||||||
raise "No such pass to add after: #{after}" unless index
|
|
||||||
@passes.insert(index , pass)
|
|
||||||
end
|
|
||||||
# boot the classes, ie create a minimal set of classes with a minimal set of functions
|
|
||||||
# minimal means only that which can not be coded in ruby
|
|
||||||
# CompiledMethods are grabbed from respective modules by sending the method name. This should return the
|
|
||||||
# implementation of the method (ie a method object), not actually try to implement it (as that's impossible in ruby)
|
|
||||||
def boot_classes!
|
|
||||||
# very fiddly chicken 'n egg problem. Functions need to be in the right order, and in fact we have to define some
|
|
||||||
# dummies, just for the other to compile
|
|
||||||
obj = get_or_create_class :Object
|
|
||||||
[:index_of , :_get_instance_variable , :_set_instance_variable].each do |f|
|
|
||||||
obj.add_instance_method Builtin::Object.send(f , nil)
|
|
||||||
end
|
|
||||||
obj = get_or_create_class :Kernel
|
|
||||||
# create main first, __init__ calls it
|
|
||||||
@main = Builtin::Kernel.send(:main , @context)
|
|
||||||
obj.add_instance_method @main
|
|
||||||
underscore_init = Builtin::Kernel.send(:__init__ ,nil) #store , so we don't have to resolve it below
|
|
||||||
obj.add_instance_method underscore_init
|
|
||||||
[:putstring,:exit,:__send].each do |f|
|
|
||||||
obj.add_instance_method Builtin::Kernel.send(f , nil)
|
|
||||||
end
|
|
||||||
# and the @init block in turn _jumps_ to __init__
|
|
||||||
# the point of which is that by the time main executes, all is "normal"
|
|
||||||
@init = Virtual::Block.new(:_init_ , nil )
|
|
||||||
@init.add_code(Register::RegisterMain.new(underscore_init))
|
|
||||||
obj = get_or_create_class :Integer
|
|
||||||
[:putint,:fibo].each do |f|
|
|
||||||
obj.add_instance_method Builtin::Integer.send(f , nil)
|
|
||||||
end
|
|
||||||
obj = get_or_create_class :String
|
|
||||||
[:get , :set , :puts].each do |f|
|
|
||||||
obj.add_instance_method Builtin::String.send(f , nil)
|
|
||||||
end
|
|
||||||
obj = get_or_create_class :Array
|
|
||||||
[:get , :set , :push].each do |f|
|
|
||||||
obj.add_instance_method Builtin::Array.send(f , nil)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
@@SPACE = { :names => [:classes,:objects,:symbols,:messages, :next_message , :next_frame] ,
|
|
||||||
:types => [Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference,Virtual::Reference]}
|
|
||||||
def layout
|
|
||||||
@@SPACE
|
|
||||||
end
|
|
||||||
|
|
||||||
# Objects are data and get assembled after functions
|
|
||||||
def add_object o
|
|
||||||
return if @objects.include?(o)
|
|
||||||
@objects << o
|
|
||||||
if o.is_a? Symbol
|
|
||||||
@symbols << o
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
# this is the way to instantiate classes (not BootClass.new)
|
|
||||||
# so we get and keep exactly one per name
|
|
||||||
def get_or_create_class name
|
|
||||||
raise "uups #{name}.#{name.class}" unless name.is_a? Symbol
|
|
||||||
c = @classes[name]
|
|
||||||
unless c
|
|
||||||
c = BootClass.new(name)
|
|
||||||
@classes[name] = c
|
|
||||||
end
|
|
||||||
c
|
|
||||||
end
|
|
||||||
def mem_length
|
|
||||||
padded_words( 5 )
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
@ -62,7 +62,7 @@ module Virtual
|
|||||||
|
|
||||||
|
|
||||||
def self.compile_module expression , method
|
def self.compile_module expression , method
|
||||||
clazz = BootSpace.space.get_or_create_class name
|
clazz = Space.space.get_or_create_class name
|
||||||
raise "uups #{clazz}.#{name}" unless clazz
|
raise "uups #{clazz}.#{name}" unless clazz
|
||||||
to = Return.new(Reference , clazz )
|
to = Return.new(Reference , clazz )
|
||||||
method.add_code Set.new( to , clazz )
|
method.add_code Set.new( to , clazz )
|
||||||
@ -73,7 +73,7 @@ module Virtual
|
|||||||
def self.compile_string expression , method
|
def self.compile_string expression , method
|
||||||
value = StringConstant.new(expression.string)
|
value = StringConstant.new(expression.string)
|
||||||
to = Return.new(Reference , value)
|
to = Return.new(Reference , value)
|
||||||
BootSpace.space.add_object value
|
Space.space.add_object value
|
||||||
method.add_code Set.new( to , value )
|
method.add_code Set.new( to , value )
|
||||||
to
|
to
|
||||||
end
|
end
|
||||||
|
@ -9,7 +9,7 @@ module Virtual
|
|||||||
r = expression.receiver ? Compiler.compile(expression.receiver, method ) : Self.new()
|
r = expression.receiver ? Compiler.compile(expression.receiver, method ) : Self.new()
|
||||||
new_method = CompiledMethod.new(expression.name , args , r )
|
new_method = CompiledMethod.new(expression.name , args , r )
|
||||||
new_method.class_name = r.is_a?(BootClass) ? r.name : method.class_name
|
new_method.class_name = r.is_a?(BootClass) ? r.name : method.class_name
|
||||||
clazz = BootSpace.space.get_or_create_class(new_method.class_name)
|
clazz = Space.space.get_or_create_class(new_method.class_name)
|
||||||
clazz.add_instance_method new_method
|
clazz.add_instance_method new_method
|
||||||
|
|
||||||
#frame = frame.new_frame
|
#frame = frame.new_frame
|
||||||
|
@ -6,7 +6,7 @@ module Virtual
|
|||||||
end
|
end
|
||||||
|
|
||||||
def self.compile_class expression , method
|
def self.compile_class expression , method
|
||||||
clazz = ::BootSpace.space.get_or_create_class expression.name
|
clazz = ::Space.space.get_or_create_class expression.name
|
||||||
puts "Created class #{clazz.name.inspect}"
|
puts "Created class #{clazz.name.inspect}"
|
||||||
expression.expressions.each do |expr|
|
expression.expressions.each do |expr|
|
||||||
# check if it's a function definition and add
|
# check if it's a function definition and add
|
||||||
|
@ -49,7 +49,7 @@ module Virtual
|
|||||||
class_for(MoveInstruction).new(value , self , :opcode => :mov)
|
class_for(MoveInstruction).new(value , self , :opcode => :mov)
|
||||||
end
|
end
|
||||||
def clazz
|
def clazz
|
||||||
BootSpace.space.get_or_create_class(:String)
|
Space.space.get_or_create_class(:String)
|
||||||
end
|
end
|
||||||
def layout
|
def layout
|
||||||
Virtual::Object.layout
|
Virtual::Object.layout
|
||||||
|
@ -35,15 +35,92 @@ module Virtual
|
|||||||
def initialize
|
def initialize
|
||||||
@parser = Parser::Salama.new
|
@parser = Parser::Salama.new
|
||||||
the_end = Halt.new
|
the_end = Halt.new
|
||||||
|
@passes = [ "Virtual::SendImplementation" ]
|
||||||
|
@space = Parfait::Space.new
|
||||||
# @message = Message.new(the_end , the_end , :Object)
|
# @message = Message.new(the_end , the_end , :Object)
|
||||||
end
|
end
|
||||||
attr_reader :message
|
attr_reader :message , :passes , :space
|
||||||
|
|
||||||
|
def run_passes
|
||||||
|
@passes.each do |pass_class|
|
||||||
|
blocks = [@init] + main.blocks
|
||||||
|
@classes.values.each do |c|
|
||||||
|
c.instance_methods.each {|f| blocks += f.blocks }
|
||||||
|
end
|
||||||
|
#puts "running #{pass_class}"
|
||||||
|
all.each do |block|
|
||||||
|
pass = eval pass_class
|
||||||
|
raise "no such pass-class as #{pass_class}" unless pass
|
||||||
|
pass.new.run(block)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
# Passes may be added to by anyone who wants
|
||||||
|
# This is intentionally quite flexible, though one sometimes has to watch the order of them
|
||||||
|
# most ordering is achieved by ordering the requires and using add_pass
|
||||||
|
# but more precise control is possible with the _after and _before versions
|
||||||
|
|
||||||
|
def add_pass pass
|
||||||
|
@passes << pass
|
||||||
|
end
|
||||||
|
def add_pass_after( pass , after)
|
||||||
|
index = @passes.index(after)
|
||||||
|
raise "No such pass (#{pass}) to add after: #{after}" unless index
|
||||||
|
@passes.insert(index+1 , pass)
|
||||||
|
end
|
||||||
|
def add_pass_before( pass , after)
|
||||||
|
index = @passes.index(after)
|
||||||
|
raise "No such pass to add after: #{after}" unless index
|
||||||
|
@passes.insert(index , pass)
|
||||||
|
end
|
||||||
|
|
||||||
def self.boot
|
def self.boot
|
||||||
machine = Machine.new
|
instance = self.instance
|
||||||
BootSpace.space.boot_classes! # boot is a verb here
|
instance.boot_classes! # boot is a verb here
|
||||||
machine.boot
|
instance.boot
|
||||||
machine
|
instance
|
||||||
|
end
|
||||||
|
def self.instance
|
||||||
|
@instance ||= Machine.new
|
||||||
|
end
|
||||||
|
|
||||||
|
# boot the classes, ie create a minimal set of classes with a minimal set of functions
|
||||||
|
# minimal means only that which can not be coded in ruby
|
||||||
|
# CompiledMethods are grabbed from respective modules by sending the method name. This should return the
|
||||||
|
# implementation of the method (ie a method object), not actually try to implement it (as that's impossible in ruby)
|
||||||
|
def boot_classes!
|
||||||
|
# very fiddly chicken 'n egg problem. Functions need to be in the right order, and in fact we have to define some
|
||||||
|
# dummies, just for the other to compile
|
||||||
|
obj = get_or_create_class :Object
|
||||||
|
[:index_of , :_get_instance_variable , :_set_instance_variable].each do |f|
|
||||||
|
obj.add_instance_method Builtin::Object.send(f , nil)
|
||||||
|
end
|
||||||
|
obj = get_or_create_class :Kernel
|
||||||
|
# create main first, __init__ calls it
|
||||||
|
@main = Builtin::Kernel.send(:main , @context)
|
||||||
|
obj.add_instance_method @main
|
||||||
|
underscore_init = Builtin::Kernel.send(:__init__ ,nil) #store , so we don't have to resolve it below
|
||||||
|
obj.add_instance_method underscore_init
|
||||||
|
[:putstring,:exit,:__send].each do |f|
|
||||||
|
obj.add_instance_method Builtin::Kernel.send(f , nil)
|
||||||
|
end
|
||||||
|
# and the @init block in turn _jumps_ to __init__
|
||||||
|
# the point of which is that by the time main executes, all is "normal"
|
||||||
|
@init = Virtual::Block.new(:_init_ , nil )
|
||||||
|
@init.add_code(Register::RegisterMain.new(underscore_init))
|
||||||
|
obj = get_or_create_class :Integer
|
||||||
|
[:putint,:fibo].each do |f|
|
||||||
|
obj.add_instance_method Builtin::Integer.send(f , nil)
|
||||||
|
end
|
||||||
|
obj = get_or_create_class :String
|
||||||
|
[:get , :set , :puts].each do |f|
|
||||||
|
obj.add_instance_method Builtin::String.send(f , nil)
|
||||||
|
end
|
||||||
|
obj = get_or_create_class :Array
|
||||||
|
[:get , :set , :push].each do |f|
|
||||||
|
obj.add_instance_method Builtin::Array.send(f , nil)
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
def boot
|
def boot
|
||||||
|
@ -26,7 +26,7 @@ module Virtual
|
|||||||
# Object Object
|
# Object Object
|
||||||
# BootClass Class
|
# BootClass Class
|
||||||
# MetaClass self/Object
|
# MetaClass self/Object
|
||||||
# BootSpace ObjectSpace
|
# Space ObjectSpace
|
||||||
# CompiledMethod Function
|
# CompiledMethod Function
|
||||||
# (ruby)Array Array
|
# (ruby)Array Array
|
||||||
# String String
|
# String String
|
||||||
@ -68,7 +68,7 @@ module Virtual
|
|||||||
@@HASH.merge :keys => object.keys , :values => object.values
|
@@HASH.merge :keys => object.keys , :values => object.values
|
||||||
when Virtual::BootClass
|
when Virtual::BootClass
|
||||||
@@CLAZZ
|
@@CLAZZ
|
||||||
when Virtual::BootSpace
|
when Virtual::Space
|
||||||
@@SPACE
|
@@SPACE
|
||||||
else
|
else
|
||||||
raise "linker encounters unknown class #{object.class}"
|
raise "linker encounters unknown class #{object.class}"
|
||||||
|
@ -13,5 +13,5 @@ module Virtual
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Virtual::EnterImplementation"
|
Virtual::Machine.instance.add_pass "Virtual::EnterImplementation"
|
||||||
end
|
end
|
||||||
|
@ -23,7 +23,7 @@ module Virtual
|
|||||||
else
|
else
|
||||||
next
|
next
|
||||||
end
|
end
|
||||||
space = BootSpace.space
|
space = Space.space
|
||||||
slot = Virtual::Slot
|
slot = Virtual::Slot
|
||||||
# a place to store a reference to the space, we grab the next_frame from the space
|
# a place to store a reference to the space, we grab the next_frame from the space
|
||||||
space_tmp = Register::RegisterReference.new(Virtual::Message::TMP_REG)
|
space_tmp = Register::RegisterReference.new(Virtual::Message::TMP_REG)
|
||||||
@ -46,5 +46,5 @@ module Virtual
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Virtual::FrameImplementation"
|
Virtual::Machine.instance.add_pass "Virtual::FrameImplementation"
|
||||||
end
|
end
|
||||||
|
@ -11,5 +11,5 @@ module Virtual
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
Virtual::BootSpace.space.add_pass "Virtual::GetImplementation"
|
Virtual::Machine.instance.add_pass "Virtual::GetImplementation"
|
||||||
end
|
end
|
||||||
|
@ -26,7 +26,7 @@ module Virtual
|
|||||||
else
|
else
|
||||||
# note: this is the current view: call internal send, even the method name says else
|
# note: this is the current view: call internal send, even the method name says else
|
||||||
# but send is "special" and accesses the internal method name and resolves.
|
# but send is "special" and accesses the internal method name and resolves.
|
||||||
kernel = Virtual::BootSpace.space.get_or_create_class(:Kernel)
|
kernel = Virtual::Space.space.get_or_create_class(:Kernel)
|
||||||
method = kernel.get_instance_method(:__send)
|
method = kernel.get_instance_method(:__send)
|
||||||
new_codes << MethodCall.new( method )
|
new_codes << MethodCall.new( method )
|
||||||
raise "unimplemented #{code}"
|
raise "unimplemented #{code}"
|
||||||
|
@ -13,7 +13,7 @@ require 'parslet/convenience'
|
|||||||
module Fragments
|
module Fragments
|
||||||
# need a code generator, for arm
|
# need a code generator, for arm
|
||||||
def setup
|
def setup
|
||||||
@object_space = Boot::BootSpace.new "Arm"
|
@object_space = Boot::Space.new "Arm"
|
||||||
end
|
end
|
||||||
|
|
||||||
def parse
|
def parse
|
||||||
|
@ -7,10 +7,10 @@ class HelloTest < MiniTest::Test
|
|||||||
machine = Virtual::Machine.boot
|
machine = Virtual::Machine.boot
|
||||||
expressions = machine.compile_main @string_input
|
expressions = machine.compile_main @string_input
|
||||||
|
|
||||||
writer = Elf::ObjectWriter.new(Virtual::BootSpace.space)
|
writer = Elf::ObjectWriter.new(Virtual::Space.space)
|
||||||
writer.save "hello.o"
|
writer.save "hello.o"
|
||||||
# puts Sof::Writer.write(expressions)
|
# puts Sof::Writer.write(expressions)
|
||||||
puts Sof::Writer.write(Virtual::BootSpace.space)
|
puts Sof::Writer.write(Virtual::Space.space)
|
||||||
end
|
end
|
||||||
|
|
||||||
def qtest_simplest_function
|
def qtest_simplest_function
|
||||||
|
@ -5,7 +5,7 @@ require "yaml"
|
|||||||
module VirtualHelper
|
module VirtualHelper
|
||||||
# need a code generator, for arm
|
# need a code generator, for arm
|
||||||
def setup
|
def setup
|
||||||
# @object_space = Boot::BootSpace.new "Arm"
|
# @object_space = Boot::Space.new "Arm"
|
||||||
end
|
end
|
||||||
|
|
||||||
def check
|
def check
|
||||||
|
Loading…
Reference in New Issue
Block a user