ruby-x/rubyx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

save some to_s code

Browse Source
This commit is contained in:
Torsten Ruger 2015-11-08 14:30:42 +02:00
parent cf05e7553a
commit 6ea698d397
3 changed files with 50 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lib/soml/parfait/integer.soml Normal file
View File

@ -0,0 +1,35 @@
class Integer < Value
Word digit( int rest )
if_zero( rest == 5 )
return "5"
end
if_zero( rest == 1 )
return "1"
end
if_zero( rest == 2 )
return "2"
end
if_zero( rest == 3 )
return "3"
end
if_zero( rest == 4 )
return "4"
end
end
Word add_string(Word str)
int div
div = self / 10
int rest
rest = self - div
if_notzero( rest )
rest = self.digit( rest )
else
str = div.add_string(str)
end
return str
end
Word to_string()
Word start = " "
return add_string( start )
end
end

91
test/interpreter/test_puti.rb
View File

@ -1,91 +0,0 @@
require_relative "helper"
class AddTest < MiniTest::Test
include Ticker
include AST::Sexp
def test_puti
@string_input = <<HERE
class Integer < Object
Word digit( int rest )
if_zero( rest == 5 )
return "5"
end
if_zero( rest == 1 )
return "1"
end
if_zero( rest == 2 )
return "2"
end
if_zero( rest == 3 )
return "3"
end
if_zero( rest == 4 )
return "4"
end
end
Word add_string(Word str)
int div
div = self / 10
int rest
rest = self - div
if_notzero( rest )
rest = self.digit( rest )
else
str = div.add_string(str)
end
return str
end
Word to_string()
Word start = " "
return add_string( start )
end
end
class Object
int main()
5.to_string()
end
end
HERE
machine = Register.machine.boot
syntax = Parser::Salama.new.parse_with_debug(@string_input)
parts = Parser::Transform.new.apply(syntax)
#puts parts.inspect
Soml.compile( parts )
machine.collect
@interpreter = Interpreter::Interpreter.new
@interpreter.start Register.machine.init
#show_ticks # get output of what is
["Branch","Label","LoadConstant","GetSlot","SetSlot",
"LoadConstant","SetSlot","FunctionCall","Label","GetSlot",
"LoadConstant","SetSlot","LoadConstant","SetSlot","LoadConstant",
"SetSlot","LoadConstant","SetSlot","RegisterTransfer","FunctionCall",
"Label","LoadConstant","GetSlot","SetSlot","GetSlot",
"GetSlot","SetSlot","LoadConstant","SetSlot","LoadConstant",
"SetSlot","GetSlot","GetSlot","SetSlot","LoadConstant",
"SetSlot","RegisterTransfer","FunctionCall","Label","GetSlot",
"LoadConstant","OperatorInstruction","GetSlot","SetSlot","GetSlot",
"GetSlot","GetSlot","OperatorInstruction","GetSlot","SetSlot",
"GetSlot","GetSlot","IsNotzero","Label","GetSlot",
"GetSlot","SetSlot","LoadConstant","SetSlot","LoadConstant",
"SetSlot","GetSlot","GetSlot","SetSlot","LoadConstant",
"SetSlot","RegisterTransfer","FunctionCall","Label","GetSlot",
"LoadConstant","OperatorInstruction","IsZero","Branch","Label",
"GetSlot","LoadConstant","OperatorInstruction","IsZero","Label",
"LoadConstant","SetSlot","Label","GetSlot","LoadConstant",
"OperatorInstruction","IsZero","Label","LoadConstant","SetSlot",
"Label","GetSlot","LoadConstant","OperatorInstruction","IsZero",
"Label","LoadConstant","SetSlot","Label","GetSlot",
"LoadConstant","OperatorInstruction","IsZero","Label","LoadConstant",
"SetSlot","Label","Label","FunctionReturn","RegisterTransfer",
"GetSlot","GetSlot","GetSlot","SetSlot","Label",
"GetSlot","SetSlot","Label","FunctionReturn","RegisterTransfer",
"GetSlot","GetSlot","SetSlot","Label","FunctionReturn",
"RegisterTransfer","GetSlot","GetSlot","Label","FunctionReturn",
"RegisterTransfer","Syscall"].each_with_index do |name , index|
got = ticks(1)
assert got.class.name.index(name) , "Wrong class for #{index+1}, expect #{name} , got #{got}"
end
end
end

15
test/parfait/test_puti.rb Normal file
View File

@ -0,0 +1,15 @@
require_relative 'helper'
class TestPutiRT < MiniTest::Test
include RuntimeTests
def test_puti
@string_input = <<HERE
5.puts()
HERE
@stdout = "5"
check
end
end