30 lines
827 B
Ruby
30 lines
827 B
Ruby
module Bosl
|
|
Compiler.class_eval do
|
|
|
|
# while- attr_reader :condition, :body
|
|
def on_while expression
|
|
# this is where the while ends and both branches meet
|
|
merge = method.source.new_block("while merge")
|
|
# this comes after the current and beofre the merge
|
|
start = method.source.new_block("while_start" )
|
|
method.source.current start
|
|
|
|
cond = process(expression.condition)
|
|
|
|
method.source.add_code IsTrueBranch.new(merge)
|
|
|
|
last = cond
|
|
expression.body.each do |part|
|
|
last = process(part)
|
|
raise part.inspect if last.nil?
|
|
end
|
|
# unconditionally branch to the start
|
|
method.source.add_code UnconditionalBranch.new(start)
|
|
|
|
# continue execution / compiling at the merge block
|
|
method.source.current merge
|
|
last
|
|
end
|
|
end
|
|
end
|