module Treetop
  module Compiler
    class Repetition < ParsingExpression
      def compile(address, builder, parent_expression)
        super
        repeated_expression = parent_expression.atomic
        begin_comment(parent_expression)
        use_vars :result, :accumulator, :start_index

        builder.loop do
          obtain_new_subexpression_address
          repeated_expression.compile(subexpression_address, builder)
          builder.if__ subexpression_success? do
            accumulate_subexpression_result
          end
          builder.else_ do
            builder.break
          end
          if max && !max.empty?
            builder.if_ "#{accumulator_var}.size == #{max.text_value}" do
              builder.break
            end
          end
        end
      end

      def inline_module_name
        parent_expression.inline_module_name
      end

      def assign_and_extend_result
        assign_result "instantiate_node(#{node_class_name},input, #{start_index_var}...index, #{accumulator_var})"
        extend_result_with_inline_module
      end
    end


    class ZeroOrMore < Repetition
      def compile(address, builder, parent_expression)
        super
        assign_and_extend_result
        end_comment(parent_expression)
      end

      def max
        nil
      end
    end

    class OneOrMore < Repetition
      def compile(address, builder, parent_expression)
        super
        builder.if__ "#{accumulator_var}.empty?" do
          reset_index
          assign_failure start_index_var
        end
        builder.else_ do
          assign_and_extend_result
        end
        end_comment(parent_expression)
      end

      def max
        nil
      end
    end

    class OccurrenceRange < Repetition
      def compile(address, builder, parent_expression)
        super

        if min.empty? || min.text_value.to_i == 0
          assign_and_extend_result
        else
          # We got some, but fewer than we wanted. There'll be a failure reported already
          builder.if__ "#{accumulator_var}.size < #{min.text_value}" do
            reset_index
            assign_failure start_index_var
          end
          builder.else_ do
            assign_and_extend_result
          end
        end
        end_comment(parent_expression)
      end
    end

  end
end