Up
module
Arg
:
sig
#
type
spec =
#
| Unit
of
unit
->
unit
#
| Bool
of
bool
->
unit
#
| Set
of
bool
Pervasives
.
ref
#
| Clear
of
bool
Pervasives
.
ref
#
| String
of
string
->
unit
#
| Set_string
of
string
Pervasives
.
ref
#
| Int
of
int
->
unit
#
| Set_int
of
int
Pervasives
.
ref
#
| Float
of
float
->
unit
#
| Set_float
of
float
Pervasives
.
ref
#
| Tuple
of
spec
list
#
| Symbol
of
string list * (string
->
unit)
#
| Rest
of
string
->
unit
#
type
key = string
#
type
doc = string
#
type
usage_msg = string
#
type
anon_fun = string
->
unit
#
val
parse : (
key
*
spec
*
doc
) list
->
anon_fun
->
usage_msg
->
unit
#
val
parse_dynamic : (
key
*
spec
*
doc
) list
Pervasives
.
ref
->
anon_fun
->
usage_msg
->
unit
#
val
parse_argv : ?current:int
Pervasives
.
ref
->
string array
->
(
key
*
spec
*
doc
) list
->
anon_fun
->
usage_msg
->
unit
#
val
parse_argv_dynamic : ?current:int
Pervasives
.
ref
->
string array
->
(
key
*
spec
*
doc
) list
Pervasives
.
ref
->
anon_fun
->
string
->
unit
#
exception
Help
of
string
#
exception
Bad
of
string
#
val
usage : (
key
*
spec
*
doc
) list
->
usage_msg
->
unit
#
val
usage_string : (
key
*
spec
*
doc
) list
->
usage_msg
->
string
#
val
align : ?limit:int
->
(
key
*
spec
*
doc
) list
->
(
key
*
spec
*
doc
) list
#
val
current : int
Pervasives
.
ref
end