Miroirs/rforth
1
0
Fork 0
mirror of https://github.com/russolsen/rforth synced 2024-12-25 09:58:16 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added over and rot

Browse source
This commit is contained in:
fogus 2010-09-09 11:36:14 -04:00
parent b583b7f05b
commit 90eb787162
1 changed files with 30 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
src/rforth.rb
View file

@ -29,18 +29,34 @@ class RForth
def initial_dictionary
d = Dictionary.new
d.word('dup') { @stack << @stack.last }
d.word('drop') { @stack.pop }
# stack management
d.word('dup') { @stack << @stack.last }
d.word('?dup') { @stack << @stack.last unless @stack.last == 0 }
d.word('drop') { @stack.pop }
d.word('swap') do
a = @stack.pop
b = @stack.pop
@stack << a << b
end
d.word(':') { define_word }
d.word('.') { @s_out.print( "#{@stack.last}\n" ) }
d.word('cr') { @s_out.puts }
d.word('+') { @stack << (@stack.pop + @stack.pop) }
d.word('*') { @stack << (@stack.pop * @stack.pop) }
d.word('over') do
a = @stack.pop
b = @stack.pop
@stack << b << a << b
end
d.word('rot') do
a = @stack.pop
b = @stack.pop
c = @stack.pop
@stack << b << a << c
end
# quotations
d.word(':') { define_word }
# math
d.word('+') { @stack << (@stack.pop + @stack.pop) }
d.word('*') { @stack << (@stack.pop * @stack.pop) }
d.word('-') do
a = @stack.pop
b = @stack.pop
@ -52,6 +68,13 @@ class RForth
b = @stack.pop
@stack << b / a
end
# aux words
d.word('.') { @s_out.print( "#{@stack.pop}\n" ) }
d.word('.S') { @s_out.print( "#{@stack}\n" ) }
d.word('cr') { @s_out.puts }
d.word('bye') { exit }
d
end