module Clamp

  class << self
    attr_accessor :allow_options_after_parameters
  end

  module Option

    module Parsing

      protected

      def parse_options
        set_options_from_command_line
        default_options_from_environment
        verify_required_options_are_set
      end

      private

      def set_options_from_command_line
        argument_buffer = []
        argument_buffer_limit = self.class.parameter_buffer_limit
        until remaining_arguments.empty?

          unless remaining_arguments.first.start_with?("-")
            if argument_buffer.size < argument_buffer_limit
              argument_buffer << remaining_arguments.shift
              next
            else
              break
            end
          end

          switch = remaining_arguments.shift
          break if switch == "--"

          case switch
          when /\A(-\w)(.+)\z/m # combined short options
            switch = Regexp.last_match(1)
            if find_option(switch).flag?
              remaining_arguments.unshift("-" + Regexp.last_match(2))
            else
              remaining_arguments.unshift(Regexp.last_match(2))
            end
          when /\A(--[^=]+)=(.*)\z/m
            switch = Regexp.last_match(1)
            remaining_arguments.unshift(Regexp.last_match(2))
          end

          option = find_option(switch)
          value = option.extract_value(switch, remaining_arguments)

          begin
            option.of(self).take(value)
          rescue ArgumentError => e
            signal_usage_error Clamp.message(:option_argument_error, :switch => switch, :message => e.message)
          end

        end
        remaining_arguments.unshift(*argument_buffer)
      end

      def default_options_from_environment
        self.class.recognised_options.each do |option|
          option.of(self).default_from_environment
        end
      end

      def verify_required_options_are_set
        self.class.recognised_options.each do |option|
          option.of(self).verify_not_missing
        end
      end

      def find_option(switch)
        self.class.find_option(switch) ||
          signal_usage_error(Clamp.message(:unrecognised_option, :switch => switch))
      end

    end

  end

end