class OptParseSimple

# File lib/optparse-simple.rb, line 13
def initialize(s)    
  super()
  buffer = readx(s)

  @doc = Document.new(buffer)
  #@doc = Rexle.new(buffer)
end

# File lib/optparse-simple.rb, line 97
def help    
  a = XPath.match(@doc.root,  "records/optionx/summary[switch != 'n/a']").map do |summary|
  #a = @doc.root.xpath("records/optionx/summary[switch != 'n/a']").map do |summary|
    %w(switch alias).map {|x| summary.text x}
  end

  puts TableFormatter.new(source: a, border: false).to_s
end

# File lib/optparse-simple.rb, line 21
def parse(args)

  @options = XPath.match(@doc.root, 'records/optionx[summary/switch!="n/a"]')
  #@options = @doc.root.xpath('records/optionx[summary/switch!="n/a"]')

  switches = @options.map do |option|

    switch = option.text('summary/switch')
    switch[0] == '-' ? switch : nil
  end    

  switches.compact!
  
  # split the argument switches if grouped e.g. -ltr
  args.map! do |arg|

    if arg[/^\-[a-zA-Z]+$/] and switches.grep(/#{arg}/).empty? then
      arg[1..-1].scan(/./).map {|x| '-' + x} 
    else
      arg
    end
  end

  args.flatten!

  # -- bind any loose value to their argument
  xpath = 'records/optionx/summary[switch != "n/a" and value != "n/a"]'
  options = XPath.match(@doc.root, xpath)\
  #options = @doc.root.xpath(xpath)\
      .map {|node|  %w(switch alias)\
        .map{|x| node.text(x)}.compact}\
      .flatten
  puts 'after flatten 2'
  args.map!.with_index do |x,i|
    next unless x or i < args.length - 1
    (x += '=' + args[i+1]; args[i+1] = nil) if options.include?(x)
    x
  end
  args.compact!

  # -- end of bind any loose value to their argument

  a1 = []

  a1 = options_match(@options[0], args).flatten.each_slice(2).map {|x| x if x[0]}.compact unless @options.empty?

  options_remaining = XPath.match(@doc.root, 'records/optionx/summary[switch="n/a"]/name/text()').map(&:to_s)
  #options_remaining = @doc.root.xpath('records/optionx/summary[switch="n/a"]/name/text()').map(&:to_s)
  mandatory_remaining  = XPath.match(@doc.root, 'records/optionx/summary[switch="n/a" and mandatory="true"]/name/text()').map(&:to_s)
  #mandatory_remaining  = @doc.root.xpath('records/optionx/summary[switch="n/a" and mandatory="true"]/name/text()').map(&:to_s)

  if mandatory_remaining.length > args.length then

     missing_arg = (mandatory_remaining - args).first
     option = XPath.first(@doc.root, "records/optionx[summary/name='#{missing_arg}']")
     #option = @doc.root.element("records/optionx[summary/name='#{missing_arg}']")

     raise option.text('records/errorx/summary/msg') || 'missing arg'
  end

  a2 = args.zip(options_remaining).map(&:reverse)
  
  if a2.map(&:first).all? then
    @h = Hash[*(a1+a2).map{|x,y| [x.to_s.strip.to_sym, y || true]}.flatten]
  else
    invalid_option = a2.detect {|x,y| x.nil? }.last
    raise "invalid option: %s not recognised" % invalid_option
  end

  @h
end

# File lib/optparse-simple.rb, line 93
def to_h()
  @h
end

# File lib/optparse-simple.rb, line 108
def options_match(option, args)

  switch, switch_alias = option.text('summary/switch'), option.text('summary/alias')
  switch_pattern = switch_alias ? "(%s|%s)" % [switch, switch_alias] : switch

  switch_matched, arg_index = args.each_with_index.detect {|x,j| x[/^#{switch_pattern}/]}

  key, value = nil

  if switch_matched then

    value_pattern = option.text('summary/value')      

    if value_pattern and value_pattern.downcase != 'n/a' then

      # check for equal sign
      value = switch_matched[/\=(#{value_pattern})/,1]

      # check the next arg
      if value.nil? and args.length > 0 then

        next_arg = args[arg_index + 1] 

        # check to make sure it's not the next switch
        next_option = @options[1] if @options.length > 1

        if next_arg != next_option then

          # validate using the regex
          value = next_arg[/#{value_pattern}/]

          if value then
            args.delete_at(arg_index + 1)
          else
            raise option.text('records/errorx[last()]/summary/msg')
          end
        end

      else
        args.delete_at(arg_index)
      end      

    else

      args.delete_at(arg_index)
    end

    key = option.text('summary/name')
 
  elsif option.text('summary/mandatory').to_s.downcase == 'true' then

    raise option.text('records/errorx/summary/msg')
  else

  end

  pair = [key, value]
  @options.shift
  next_pair = options_match(@options[0], args) if @options.length > 0

  [pair, next_pair]
end

# File lib/optparse-simple.rb, line 171
def readx(s)
      
  r = if s.is_a? Polyrex then
    s.to_xml
  elsif s[/\s/] then
    Polyrex.new('options/optionx[name,switch,alias,value,mandatory]/errorx[msg]').parse(s).to_xml
  elsif s[/^https?:\/\//] then  # url
    Kernel.open(s, 'UserAgent' => 'Polyrex-Reader').read
  elsif s[/\</] # xml
    s
  else # local file
    File.read s
  end    

  r
end