sig
type t = {
scmd_name : OASISTypes.name;
scmd_synopsis : string;
scmd_help : string;
scmd_specs : (Arg.key * Arg.spec * Arg.doc) list;
scmd_usage : string;
scmd_anon : string -> unit;
scmd_main : unit -> unit;
}
val make :
?std_usage:bool ->
OASISTypes.name -> string -> string -> (unit -> unit) -> SubCommand.t
val register : SubCommand.t -> unit
val fold : (SubCommand.t -> 'a -> 'a) -> 'a -> 'a
val find : OASISTypes.name -> SubCommand.t
end