55 lines
2 KiB
Ruby
55 lines
2 KiB
Ruby
# frozen_string_literal: true
|
|
|
|
module RplLang
|
|
module Words
|
|
module Branch
|
|
include Types
|
|
|
|
def populate_dictionary
|
|
super
|
|
|
|
category = 'Branch'
|
|
|
|
@dictionary.add_word( ['ift'],
|
|
category,
|
|
'( t pt -- … ) eval pt or not based on the value of boolean t',
|
|
Types.new_object( RplProgram, '« « nop » ifte »' ) )
|
|
|
|
@dictionary.add_word( ['ifte'],
|
|
category,
|
|
'( t pt pf -- … ) eval pt or pf based on the value of boolean t',
|
|
proc do
|
|
args = stack_extract( [:any, :any, [RplBoolean]] )
|
|
|
|
run( args[ args[2].value ? 1 : 0 ].value )
|
|
end )
|
|
|
|
@dictionary.add_word( ['times'],
|
|
category,
|
|
'( p n -- … ) eval p n times while pushing counter on stack before',
|
|
proc do
|
|
args = stack_extract( [[RplNumeric], :any] )
|
|
|
|
args[0].value.to_i.times do |counter|
|
|
@stack << Types.new_object( RplNumeric, counter )
|
|
|
|
run( args[1].value )
|
|
end
|
|
end )
|
|
|
|
@dictionary.add_word( ['loop'],
|
|
category,
|
|
'( p n1 n2 -- … ) eval p looping from n1 to n2 while pushing counter on stack before',
|
|
proc do
|
|
args = stack_extract( [[RplNumeric], [RplNumeric], :any] )
|
|
|
|
((args[1].value.to_i)..(args[0].value.to_i)).each do |counter|
|
|
@stack << Types.new_object( RplNumeric, counter )
|
|
|
|
run( args[2].value )
|
|
end
|
|
end )
|
|
end
|
|
end
|
|
end
|
|
end
|