github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-01-23 10:59:42 +00:00
Code Issues Projects Releases Wiki Activity

getopt: an argument inexactly matching two different but equivalent options is considered a match

Browse Source
This commit is contained in:
Mikael Pettersson 2020-03-16 21:27:37 +01:00
parent c9993fca72
commit 7964864840
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
erlang/apps/lib/src/getopt.erl
View File

@ -172,11 +172,18 @@ find_longopt(Prefix, [Option = {Name, _HasArg, _Val} | LongOpts], IsSingleDash,
case longopt_prefix(Name, Prefix, IsSingleDash) of
nomatch -> find_longopt(Prefix, LongOpts, IsSingleDash, Candidate);
[] -> Option;
_ when Candidate =:= ?invalid -> find_longopt(Prefix, LongOpts, IsSingleDash, Option);
_ -> ?ambiguous
_ ->
case is_unambiguous(Candidate, Option) of
true -> find_longopt(Prefix, LongOpts, IsSingleDash, Option);
false -> ?ambiguous
end
end;
find_longopt(_Prefix, _LongOpts, _IsSingleDash, _Candidate) -> erlang:error(badarg).
is_unambiguous(?invalid, _Option) -> true;
is_unambiguous({_Name1, HasArg, Val}, {_Name2, HasArg, Val}) -> true;
is_unambiguous(_, _) -> false.
longopt_prefix([$- | Name], Prefix, _IsSingleDash) -> string:prefix(Name, Prefix);
longopt_prefix(_Name, _Prefix, _IsSingleDash = true) -> nomatch;
longopt_prefix(Name, Prefix, _IsSingleDash) -> string:prefix(Name, Prefix).