2014-06-26 16:48:33 +02:00
|
|
|
module Virtual
|
2015-05-30 11:20:39 +02:00
|
|
|
# The Virtual Machine is a value based virtual machine in which ruby is implemented.
|
|
|
|
# While it is value based, it resembles oo in basic ways of object encapsulation and method
|
|
|
|
# invocation, it is a "closed" / static sytem in that all types are know and there is no
|
|
|
|
# dynamic dispatch (so we don't bite our tail here).
|
2014-06-25 15:00:24 +02:00
|
|
|
#
|
2014-06-25 01:33:44 +02:00
|
|
|
# It is minimal and realistic and low level
|
2015-05-30 11:20:39 +02:00
|
|
|
# - minimal means that if one thing can be implemented by another, it is left out. This is quite
|
|
|
|
# the opposite from ruby, which has several loops, many redundant if forms and the like.
|
|
|
|
# - realistic means it is easy to implement on a 32 bit machine (arm) and possibly 64 bit.
|
|
|
|
# Memory access,some registers of same size are the underlying hardware. (not ie byte machine)
|
|
|
|
# - low level means it's basic instructions are realively easily implemented in a register machine.
|
|
|
|
# ie send is not a an instruction but a function.
|
2014-06-25 01:33:44 +02:00
|
|
|
#
|
2015-05-30 11:20:39 +02:00
|
|
|
# So the memory model of the machine allows for indexed access into an "object" .
|
|
|
|
# A fixed number of objects exist (ie garbage collection is reclaming, not destroying and
|
|
|
|
# recreating) although there may be a way to increase that number.
|
2014-06-25 01:33:44 +02:00
|
|
|
#
|
2014-06-25 15:00:24 +02:00
|
|
|
# The ast is transformed to virtaul-machine objects, some of which represent code, some data.
|
2015-05-04 10:10:40 +02:00
|
|
|
#
|
|
|
|
# The next step transforms to the register machine layer, which is what actually executes.
|
2014-06-25 01:33:44 +02:00
|
|
|
#
|
|
|
|
|
2015-05-30 11:20:39 +02:00
|
|
|
# More concretely, a virtual machine is a sort of oo turing machine, it has a current instruction,
|
|
|
|
# executes the instructions, fetches the next one and so on.
|
2014-06-25 01:33:44 +02:00
|
|
|
# Off course the instructions are not soo simple, but in oo terms quite so.
|
2015-05-04 10:10:40 +02:00
|
|
|
#
|
|
|
|
# The machine is virtual in the sense that it is completely modeled in software,
|
2014-07-25 10:48:06 +02:00
|
|
|
# it's complete state explicitly available (not implicitly by walking stacks or something)
|
2014-06-25 15:00:24 +02:00
|
|
|
|
2015-05-04 10:10:40 +02:00
|
|
|
# The machine has a no register, but local variables, a scope at each point in time.
|
2015-05-30 11:20:39 +02:00
|
|
|
# Scope changes with calls and blocks, but is saved at each level. In terms of lower level
|
|
|
|
# implementation this means that the the model is such that what is a variable in ruby,
|
|
|
|
# never ends up being just on the pysical stack.
|
2015-05-04 10:10:40 +02:00
|
|
|
#
|
2014-06-25 15:00:24 +02:00
|
|
|
class Machine
|
|
|
|
|
|
|
|
def initialize
|
2014-07-30 20:07:48 +02:00
|
|
|
@parser = Parser::Salama.new
|
2015-05-12 14:36:44 +02:00
|
|
|
@passes = [ "Virtual::SendImplementation" ]
|
2015-05-31 12:02:29 +02:00
|
|
|
@objects = []
|
2015-06-01 07:40:17 +02:00
|
|
|
@booted = false
|
2014-06-25 15:00:24 +02:00
|
|
|
end
|
2015-05-31 12:02:29 +02:00
|
|
|
attr_reader :passes , :space , :class_mappings , :init , :objects
|
2015-05-12 14:36:44 +02:00
|
|
|
|
2015-06-12 17:52:06 +02:00
|
|
|
# run all passes before the pass given
|
|
|
|
# also collect the block to run the passes on and
|
|
|
|
# runs housekeeping Minimizer and Collector
|
|
|
|
# Has to be called before run_after
|
|
|
|
def run_before stop_at
|
2015-05-30 13:49:47 +02:00
|
|
|
Minimizer.new.run
|
2015-05-31 10:07:49 +02:00
|
|
|
Collector.new.run
|
2015-06-12 17:52:06 +02:00
|
|
|
@blocks = [@init]
|
|
|
|
@space.classes.values.each do |c|
|
|
|
|
c.instance_methods.each do |f|
|
|
|
|
nb = f.info.blocks
|
|
|
|
@blocks += nb
|
2015-05-12 14:36:44 +02:00
|
|
|
end
|
2015-06-12 17:52:06 +02:00
|
|
|
end
|
|
|
|
@passes.each do |pass_class|
|
|
|
|
puts "running #{pass_class}"
|
|
|
|
run_blocks_for pass_class
|
|
|
|
return if stop_at == pass_class
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
# run all passes after the pass given
|
|
|
|
# run_before MUST be called first.
|
|
|
|
# the two are meant as a poor mans breakoint
|
|
|
|
def run_after start_at
|
|
|
|
run = false
|
|
|
|
@passes.each do |pass_class|
|
|
|
|
if run
|
|
|
|
puts "running #{pass_class}"
|
|
|
|
run_blocks_for pass_class
|
|
|
|
else
|
|
|
|
run = true if start_at == pass_class
|
2015-05-12 14:36:44 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2015-06-12 17:52:06 +02:00
|
|
|
# as before, run all passes that are registered
|
|
|
|
# (but now finer control with before/after versions)
|
|
|
|
def run_passes
|
|
|
|
run_before "Virtual::SendImplementation"
|
|
|
|
run_after "Virtual::SendImplementation"
|
|
|
|
end
|
|
|
|
|
2015-05-31 12:02:29 +02:00
|
|
|
# Objects are data and get assembled after functions
|
|
|
|
def add_object o
|
|
|
|
return false if @objects.include?(o)
|
|
|
|
@objects.push o
|
|
|
|
true
|
|
|
|
end
|
|
|
|
|
2015-05-12 14:36:44 +02:00
|
|
|
# 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
|
2014-07-01 17:58:25 +02:00
|
|
|
|
2014-07-30 20:07:48 +02:00
|
|
|
def self.boot
|
2015-06-01 07:40:17 +02:00
|
|
|
me = Virtual.machine
|
2015-05-19 19:29:33 +02:00
|
|
|
# boot is a verb here. this is a somewhat tricky process which is in it's own file, boot.rb
|
2015-06-01 07:40:17 +02:00
|
|
|
raise "already booted" if @booted
|
2015-06-12 17:52:06 +02:00
|
|
|
me.boot
|
2015-06-01 07:33:23 +02:00
|
|
|
me
|
2015-05-12 14:36:44 +02:00
|
|
|
end
|
2015-05-17 13:41:18 +02:00
|
|
|
|
2015-06-12 17:52:06 +02:00
|
|
|
def boot
|
|
|
|
boot_parfait!
|
|
|
|
@init = Block.new("init",nil)
|
|
|
|
@init.add_code Register::RegisterMain.new( self.space.get_main )
|
|
|
|
@booted = true
|
|
|
|
end
|
|
|
|
|
2015-05-16 19:16:49 +02:00
|
|
|
# for testing, make sure no old artefacts hang around
|
|
|
|
#maybe should be moved to test dir
|
|
|
|
def self.reboot
|
2015-06-01 07:40:17 +02:00
|
|
|
raise "redo"
|
2015-05-16 19:16:49 +02:00
|
|
|
end
|
2014-07-30 20:43:12 +02:00
|
|
|
def compile_main bytes
|
|
|
|
syntax = @parser.parse_with_debug(bytes)
|
|
|
|
parts = Parser::Transform.new.apply(syntax)
|
2015-05-26 19:17:03 +02:00
|
|
|
Compiler.compile( parts , @space.get_main )
|
2014-07-30 20:07:48 +02:00
|
|
|
end
|
2015-06-12 17:52:06 +02:00
|
|
|
|
|
|
|
private
|
|
|
|
def run_blocks_for pass_class
|
|
|
|
pass = eval pass_class
|
|
|
|
raise "no such pass-class as #{pass_class}" unless pass
|
|
|
|
@blocks.each do |block|
|
|
|
|
raise "nil block " unless block
|
|
|
|
pass.new.run(block)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2014-06-25 01:33:44 +02:00
|
|
|
end
|
2015-06-01 07:40:17 +02:00
|
|
|
|
2015-06-12 17:52:06 +02:00
|
|
|
# Module function to retrieve singleton
|
2015-06-01 07:40:17 +02:00
|
|
|
def self.machine
|
|
|
|
unless defined?(@machine)
|
|
|
|
@machine = Machine.new
|
|
|
|
end
|
|
|
|
@machine
|
|
|
|
end
|
2015-06-12 17:52:06 +02:00
|
|
|
|
2015-05-08 14:10:30 +02:00
|
|
|
end
|
2015-05-19 19:29:33 +02:00
|
|
|
|
|
|
|
require_relative "boot"
|