require_relative "normalizer"

module Vool
  class WhileStatement < Statement
    include Normalizer
    attr_reader :condition , :body , :hoisted

    def initialize( condition , body , hoisted = nil)
      @hoisted = hoisted
      @condition = condition
      @body = body
    end

    def normalize
      cond , rest = *normalize_name(@condition)
      WhileStatement.new(cond , @body.normalize , rest)
    end

    def to_mom( compiler )
      merge_label = Mom::Label.new( "merge_label_#{object_id.to_s(16)}")
      cond_label = Mom::Label.new( "cond_label_#{object_id.to_s(16)}")
      codes = cond_label
      codes << @hoisted.to_mom(compiler) if @hoisted
      codes << Mom::TruthCheck.new(condition.slot_definition(compiler) , merge_label)
      codes << @body.to_mom(compiler)
      codes << Mom::Jump.new(cond_label)
      codes << merge_label
    end

    def each(&block)
      block.call(self)
      block.call(@condition)
      @hoisted.each(&block) if @hoisted
      @body.each(&block)
    end

    def to_s(depth = 0)
      at_depth(depth , "while (#{@condition})" , @body.to_s(depth + 1) , "end" )
    end

  end
end