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|
          # If this option is required and the value is nil (or [] for multivalued), there's an error.
          next unless option.required? &&
		  (!option.multivalued? && send(option.attribute_name).nil?) ||
		  (option.multivalued? && send(option.attribute_name).empty?)
          if option.environment_variable
            message = Clamp.message(:option_or_env_required,
                                    :option => option.switches.first,
                                    :env => option.environment_variable)
          else
            message = Clamp.message(:option_required,
                                    :option => option.switches.first)
          end
          signal_usage_error message
        end
      end

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

    end

  end

end