module Ast
  class WhileExpression < Expression
#    attr_reader  :condition, :body
    def compile context , into
      while_block = into.new_block "#{into.name}_while"
      ret = while_block.new_block "#{into.name}_return"
      puts "compiling while condition #{condition}"
      puts "Locals #{context.locals.keys.join('-')}, #{context.locals.object_id}"
      cond_val = condition.compile(context , while_block)
      while_block.b ret , condition_code: cond_val.not_operator
      last = nil
      body.each do |part|
        puts "compiling in while #{part}"
        last = part.compile(context , while_block )
      end
      while_block.b while_block
      puts "compile while end"
      into.insert_at ret
      return last
    end
  end

  
end