Module Arg

module Arg: sig .. end

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 spec list`
`\|`	`Symbol of string list * (string -> unit)`
`\|`	`Rest of (string -> unit)`

type key = string

type doc = string

type t = key * spec * doc

type usage_msg = string

type anon_fun = string -> unit

val parse : t list -> anon_fun -> usage_msg -> unit

val parse_argv : ?current:int Pervasives.ref ->
       string array ->
       t list -> anon_fun -> usage_msg -> unit

exception Help of string

exception Bad of string

val usage : t list -> usage_msg -> unit

val align : t list -> t list

val sort_and_align : t list -> t list

val current : int Pervasives.ref