diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | lib/optparse/ac.rb | 50 | ||||
| -rw-r--r-- | test/optparse/test_autoconf.rb | 63 |
3 files changed, 117 insertions, 0 deletions
@@ -1,3 +1,7 @@ +Mon Apr 2 13:25:08 2012 Nobuyoshi Nakada <nobu@ruby-lang.org> + + * lib/optparse/ac.rb: autoconf-like options. + Mon Apr 2 10:34:00 2012 eregon <eregontp@gmail.com> * string.c (rb_str_start_with, rb_str_end_with): raise an error if diff --git a/lib/optparse/ac.rb b/lib/optparse/ac.rb new file mode 100644 index 0000000000..6a8626094d --- /dev/null +++ b/lib/optparse/ac.rb @@ -0,0 +1,50 @@ +require 'optparse' + +class OptionParser::AC < OptionParser + 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 + + def _ac_arg_enable(prefix, name, help_string, block) + _check_ac_args(name, block) + + sdesc = [] + ldesc = ["--#{prefix}-#{name}"] + desc = [help_string] + q = name.downcase + enable = Switch::NoArgument.new(nil, proc {true}, sdesc, ldesc, nil, desc, block) + disable = Switch::NoArgument.new(nil, proc {false}, sdesc, ldesc, nil, desc, block) + top.append(enable, [], ["enable-" + q], disable, ['disable-' + q]) + enable + end + + public + + def ac_arg_enable(name, help_string, &block) + _ac_arg_enable("enable", name, help_string, block) + end + + def ac_arg_disable(name, help_string, &block) + _ac_arg_enable("disable", name, help_string, block) + end + + 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 diff --git a/test/optparse/test_autoconf.rb b/test/optparse/test_autoconf.rb new file mode 100644 index 0000000000..cb9c938609 --- /dev/null +++ b/test/optparse/test_autoconf.rb @@ -0,0 +1,63 @@ +require 'test/unit' +require 'optparse/ac' + +class TestOptionParser < Test::Unit::TestCase; end + +class TestOptionParser::AutoConf < Test::Unit::TestCase + def setup + @opt = OptionParser::AC.new + @foo = @bar = self.class + @opt.ac_arg_enable("foo", "foo option") {|x| @foo = x} + @opt.ac_arg_disable("bar", "bar option") {|x| @bar = x} + @opt.ac_arg_with("zot", "zot option") {|x| @zot = x} + end + + class DummyOutput < String + alias write << + end + def no_error(*args) + $stderr, stderr = DummyOutput.new, $stderr + assert_nothing_raised(*args) {return yield} + ensure + stderr, $stderr = $stderr, stderr + $!.backtrace.delete_if {|e| /\A#{Regexp.quote(__FILE__)}:#{__LINE__-2}/o =~ e} if $! + assert_empty(stderr) + end + + def test_enable + @opt.parse!(%w"--enable-foo") + assert_equal(true, @foo) + @opt.parse!(%w"--enable-bar") + assert_equal(true, @bar) + end + + def test_disable + @opt.parse!(%w"--disable-foo") + assert_equal(false, @foo) + @opt.parse!(%w"--disable-bar") + assert_equal(false, @bar) + end + + def test_with + @opt.parse!(%w"--with-zot=foobar") + assert_equal("foobar", @zot) + @opt.parse!(%w"--without-zot") + assert_nil(@zot) + end + + def test_without + @opt.parse!(%w"--without-zot") + assert_nil(@zot) + assert_raise(OptionParser::NeedlessArgument) {@opt.parse!(%w"--without-zot=foobar")} + end + + def test_help + help = @opt.help + assert_match(/--enable-foo/, help) + assert_match(/--disable-bar/, help) + assert_match(/--with-zot/, help) + assert_not_match(/--disable-foo/, help) + assert_not_match(/--enable-bar/, help) + assert_not_match(/--without/, help) + end +end |