sig
type spec =
Caml.Arg.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 Core_arg.spec list
| Symbol of string list * (string -> unit)
| Rest of (string -> unit)
type key = string
type doc = string
type t = Core_arg.key * Core_arg.spec * Core_arg.doc
type usage_msg = string
type anon_fun = string -> unit
val parse :
Core_arg.t list -> Core_arg.anon_fun -> Core_arg.usage_msg -> unit
val parse_argv :
?current:int Pervasives.ref ->
string array ->
Core_arg.t list -> Core_arg.anon_fun -> Core_arg.usage_msg -> unit
exception Help of string
exception Bad of string
val usage : Core_arg.t list -> Core_arg.usage_msg -> unit
val align : Core_arg.t list -> Core_arg.t list
val sort_and_align : Core_arg.t list -> Core_arg.t list
val current : int Pervasives.ref
end