Miroirs/fOOrth
1
0
Fork 0
mirror of https://github.com/PeterCamilleri/fOOrth synced 2024-11-16 07:47:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Changed emit to .emit and corrected tests.

Browse source
This commit is contained in:
Peter Camilleri 2015-01-09 15:47:53 -05:00
parent 5e441d7802
commit b8f5f0935f
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
integration/stdio_library_tests.rb
View file

@ -38,10 +38,13 @@ class StdioLibraryTester < MiniTest::Unit::TestCase
end
def test_the_emit
foorth_output(' 65 emit', "A")
foorth_output('126 emit', "~")
foorth_output(' 65 .emit', "A")
foorth_output('126 .emit', "~")
foorth_utf8_output('255 emit', [195, 191])
foorth_utf8_output('255 .emit', [195, 191])
foorth_output(' "A123" .emit', "A")
foorth_raises('1+1i .emit')
end
end

7
lib/fOOrth/library/stdio_library.rb
View file

@ -28,10 +28,13 @@ module XfOOrth
VirtualMachine.create_shared_method('spaces', MacroSpec,
[:macro, "print ' ' * vm.pop(); "])
# Print out a single character.
#Print out a single character.
#[obj] emit []; print out the object as a character.
Object.create_shared_method('emit', TosSpec, [],
Numeric.create_shared_method('.emit', TosSpec, [],
&lambda {|vm| print self.to_foorth_c})
String.create_shared_method('.emit', TosSpec, [],
&lambda {|vm| print self.to_foorth_c})
Complex.create_shared_method('.emit', TosSpec, [:stub])
#Get a string from the console.
# [] accept [string]; gets a string from the console.