f4a4ccb98e
- all code must be in functions (which must be in classes). — changes a fair few tests — also changes api, as method is not recursive, not passed around - all state in instance vars in compiler (no accessors) - class is another such variable, surely more coming all green again
59 lines
1.7 KiB
Ruby
59 lines
1.7 KiB
Ruby
require_relative "helper"
|
|
|
|
class AddTest < MiniTest::Test
|
|
include Ticker
|
|
include AST::Sexp
|
|
|
|
def test_puti
|
|
@string_input = <<HERE
|
|
class Integer < Object
|
|
ref add_string(ref str)
|
|
int div
|
|
div = self / 10
|
|
int rest
|
|
rest = self - div
|
|
if( rest < 0)
|
|
str = str + digit( rest )
|
|
else
|
|
str = div.add_string(str)
|
|
end
|
|
return str
|
|
end
|
|
ref to_string()
|
|
ref start = " "
|
|
return add_string( start )
|
|
end
|
|
end
|
|
class Object
|
|
int main()
|
|
5.to_string()
|
|
end
|
|
end
|
|
HERE
|
|
Virtual.machine.boot
|
|
syntax = Parser::Salama.new.parse_with_debug(@string_input)
|
|
parts = Parser::Transform.new.apply(syntax)
|
|
puts parts.inspect
|
|
Bosl::Compiler.compile( parts )
|
|
|
|
# expressions = Virtual.machine.boot.parse_and_compile @string_input
|
|
# Bosl::Compiler.compile( expressions , Virtual.machine.space.get_main )
|
|
Virtual.machine.run_before "Register::CallImplementation"
|
|
@interpreter = Interpreter::Interpreter.new
|
|
@interpreter.start Virtual.machine.init
|
|
# done = ticks(34)
|
|
["Branch" , "LoadConstant" , "GetSlot" , "SetSlot" , "RegisterTransfer" ,
|
|
"GetSlot" , "FunctionCall" , "SaveReturn" , "RegisterTransfer" , "GetSlot" ,
|
|
"GetSlot" , "GetSlot" , "SetSlot" , "LoadConstant" , "SetSlot" ,
|
|
"LoadConstant" , "SetSlot" , "RegisterTransfer" , "GetSlot" , "FunctionCall" ,
|
|
"SaveReturn" , "GetSlot", "OperatorInstruction" , "RegisterTransfer" , "GetSlot" , "GetSlot" ,
|
|
"GetSlot" , "FunctionReturn" ,"RegisterTransfer" , "Syscall", "NilClass"].each_with_index do |name , index|
|
|
return if index == 11
|
|
got = ticks(1)
|
|
puts got
|
|
assert got.class.name.index(name) , "Wrong class for #{index+1}, expect #{name} , got #{got}"
|
|
end
|
|
|
|
end
|
|
end
|