[Caml-list] Command line argument parsing

[Goswin von Brederlow <goswin-v-b@web.de>]

Hi,

I'm looking for a better (as more suitable to my wishes :) module to do
command line argument parsing.

So far I've looked at Arg and Getopt. Args has a nice automatic help
text while Getopt supports short and long options. I want both. :)
Further both only allow parsing all option in one go.


So what am I looking for?
=========================

Consider the following usage:

foo [-p|--port <num>] [-h|--help] [-v|--verbose] [[-f|--file] <name>] [...]

port defaults to 1234


Then I want to write something like:

let port_arg = Int [Short 'p'; Long "port"; Once; Default 1234]
let help_arg = Unit [Short 'h'; Long "help"; Exit; ]
let verbose_arg  Count [Short 'v'; Long "verbose" ]
let file_arg = Call_String ([Short 'f'; Long "file" ], (fun s -> process s))

let port = extract port_arg
let verbose = extract verbose_arg
let () = extract help_arg
let () = parse [file_arg] (fun s -> process s) "Help text header"

I don't want to have to use a ref or mutable to define a port and then
overwrite it when parsing the arguments.

Anyone know something in that direction?

MfG
        Goswin