sig
type opt = char * string * (unit -> unit) option * (string -> unit) option
val noshort : char
val nolong : string
exception Error of string
val parse :
Getopt.opt list -> (string -> unit) -> string array -> int -> int -> unit
val parse_cmdline : Getopt.opt list -> (string -> unit) -> unit
val set : 'a Pervasives.ref -> 'a -> (unit -> unit) option
val incr : int Pervasives.ref -> (unit -> unit) option
val append : string list Pervasives.ref -> (string -> unit) option
val atmost_once : string Pervasives.ref -> exn -> (string -> unit) option
end