Gecko [ primetaxinc.net ]

Name	Size	Permission
ac.rb	1.99 KB	-rw-r--r--
date.rb	368 B	-rw-r--r--
kwargs.rb	716 B	-rw-r--r--
shellwords.rb	164 B	-rw-r--r--
time.rb	231 B	-rw-r--r--
uri.rb	143 B	-rw-r--r--
version.rb	2.14 KB	-rw-r--r--

Code Editor : ac.rb

# frozen_string_literal: false
require_relative '../optparse'

#
# autoconf-like options.
#
class OptionParser::AC < OptionParser
 # :stopdoc:
 private

def _check_ac_args(name, block)
    unless /\A\w[-\w]*\z/ =~ name
      raise ArgumentError, name
    end
    unless block
      raise ArgumentError, "no block given", ParseError.filter_backtrace(caller)
    end
  end

ARG_CONV = proc {|val| val.nil? ? true : val}
  private_constant :ARG_CONV

def _ac_arg_enable(prefix, name, help_string, block)
    _check_ac_args(name, block)

sdesc = []
    ldesc = ["--#{prefix}-#{name}"]
    desc = [help_string]
    q = name.downcase
    ac_block = proc {|val| block.call(ARG_CONV.call(val))}
    enable = Switch::PlacedArgument.new(nil, ARG_CONV, sdesc, ldesc, nil, desc, ac_block)
    disable = Switch::NoArgument.new(nil, proc {false}, sdesc, ldesc, nil, desc, ac_block)
    top.append(enable, [], ["enable-" + q], disable, ['disable-' + q])
    enable
  end

# :startdoc:

public

# Define <tt>--enable</tt> / <tt>--disable</tt> style option
 #
 # Appears as <tt>--enable-name</tt> in help message.
 def ac_arg_enable(name, help_string, &block)
 _ac_arg_enable("enable", name, help_string, block)
 end

# Define <tt>--enable</tt> / <tt>--disable</tt> style option
 #
 # Appears as <tt>--disable-name</tt> in help message.
 def ac_arg_disable(name, help_string, &block)
 _ac_arg_enable("disable", name, help_string, block)
 end

# Define <tt>--with</tt> / <tt>--without</tt> style option
 #
 # Appears as <tt>--with-name</tt> in help message.
 def ac_arg_with(name, help_string, &block)
 _check_ac_args(name, block)

sdesc = []
    ldesc = ["--with-#{name}"]
    desc = [help_string]
    q = name.downcase
    with = Switch::PlacedArgument.new(*search(:atype, String), sdesc, ldesc, nil, desc, block)
    without = Switch::NoArgument.new(nil, proc {}, sdesc, ldesc, nil, desc, block)
    top.append(with, [], ["with-" + q], without, ['without-' + q])
    with
  end
end

${this.title}

Code Editor : ac.rb