stdlib: Report an error when getopts is given an argument to a flag option

This commit is contained in:
Brian Anderson 2011-05-21 21:48:43 -04:00
parent 079711d5f6
commit a0f855e488
2 changed files with 16 additions and 4 deletions

View File

@ -98,6 +98,7 @@ tag fail_ {
unrecognized_option(str);
option_missing(str);
option_duplicated(str);
unexpected_argument(str);
}
fn fail_str(fail_ f) -> str {
@ -114,6 +115,9 @@ fn fail_str(fail_ f) -> str {
case (option_duplicated(?nm)) {
ret "option '" + nm + "' given more than once.";
}
case (unexpected_argument(?nm)) {
ret "Option " + nm + " does not take an argument.";
}
}
}
@ -173,6 +177,9 @@ fn getopts(vec[str] args, vec[opt] opts) -> result {
}
alt (opts.(optid).hasarg) {
case (no) {
if (!option::is_none[str](i_arg)) {
ret failure(unexpected_argument(name_str(nm)));
}
vec::push[optval](vals.(optid), given);
}
case (maybe) {

View File

@ -9,6 +9,7 @@ tag fail_type {
unrecognized_option;
option_missing;
option_duplicated;
unexpected_argument;
}
fn check_fail_type(opt::fail_ f, fail_type ft) {
@ -25,6 +26,9 @@ fn check_fail_type(opt::fail_ f, fail_type ft) {
case (opt::option_duplicated(_)) {
assert (ft == option_duplicated);
}
case (opt::unexpected_argument(_)) {
assert (ft == unexpected_argument);
}
case (_) { fail; }
}
}
@ -262,7 +266,10 @@ fn test_optflag_long_arg() {
auto opts = [opt::optflag("test")];
auto res = opt::getopts(args, opts);
alt (res) {
case (opt::failure(?f)) { log_err opt::fail_str(f); }
case (opt::failure(?f)) {
log_err opt::fail_str(f);
check_fail_type(f, unexpected_argument);
}
case (_) { fail; }
}
}
@ -511,9 +518,7 @@ fn main() {
test_optflag_long();
test_optflag_long_missing();
// FIXME: Currently long flags will silently accept arguments
// when it should probably report an error
//test_optflag_long_arg();
test_optflag_long_arg();
test_optflag_long_multi();
test_optflag_short();