Original bug ID: 1931
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Hi
I found that Arg module will always print more than what i want.
For example
some code:

let main () =
let speclist = [
("-t", Arg.String( print_endline) ,
"File types ");
("-v", Arg.String(print_endline) ,"show version information");
] in
let ano_fun s =
print_endline "Default"
in
Arg.parse speclist ano_fun "command [-t type] [-v string] "

let _ =
main();;

after complie as output ptk
when i type
./ptk -t
it will print the error message 3 time !

[climb@lcgfdr prj]$ ./ptk -t
./ptk: option -t' needs an argument. command [-t type] [-v string] -t File types -v show version information -help Display this list of options --help Display this list of options ./ptk: ./ptk: option -t' needs an argument.
command [-t type] [-v string]
-t File types
-v show version information
-help Display this list of options
--help Display this list of options
.
command [-t type] [-v string]
-t File types
-v show version information
-help Display this list of options
--help Display this list of options

and when i type
./ptk -t -v
it will print -v.
it will not print any error mesage.
however at this situation , it is a error input of args

Since i am new to Arg module , i am not quite sure is it a bug or not.
If not a bug, can you tell me how to avoid it ?

climb