sig
type +'a t
val const : 'a -> 'a Cmdliner.Term.t
val pure : 'a -> 'a Cmdliner.Term.t
val man_format : Cmdliner.Manpage.format Cmdliner.Term.t
val ( $ ) :
('a -> 'b) Cmdliner.Term.t -> 'a Cmdliner.Term.t -> 'b Cmdliner.Term.t
val app :
('a -> 'b) Cmdliner.Term.t -> 'a Cmdliner.Term.t -> 'b Cmdliner.Term.t
type 'a ret =
[ `Error of bool * string
| `Help of Cmdliner.Manpage.format * string option
| `Ok of 'a ]
val ret : 'a Cmdliner.Term.ret Cmdliner.Term.t -> 'a Cmdliner.Term.t
val term_result :
?usage:bool ->
('a, [ `Msg of string ]) Result.result Cmdliner.Term.t ->
'a Cmdliner.Term.t
val cli_parse_result :
('a, [ `Msg of string ]) Result.result Cmdliner.Term.t ->
'a Cmdliner.Term.t
val main_name : string Cmdliner.Term.t
val choice_names : string list Cmdliner.Term.t
type exit_info
val exit_info :
?docs:string -> ?doc:string -> ?max:int -> int -> Cmdliner.Term.exit_info
val default_exits : Cmdliner.Term.exit_info list
val default_error_exits : Cmdliner.Term.exit_info list
type env_info
val env_info :
?docs:string -> ?doc:string -> string -> Cmdliner.Term.env_info
type info
val info :
?man_xrefs:Cmdliner.Manpage.xref list ->
?man:Cmdliner.Manpage.block list ->
?envs:Cmdliner.Term.env_info list ->
?exits:Cmdliner.Term.exit_info list ->
?sdocs:string ->
?docs:string ->
?doc:string -> ?version:string -> string -> Cmdliner.Term.info
val name : Cmdliner.Term.info -> string
type 'a result =
[ `Error of [ `Exn | `Parse | `Term ] | `Help | `Ok of 'a | `Version ]
val eval :
?help:Format.formatter ->
?err:Format.formatter ->
?catch:bool ->
?env:(string -> string option) ->
?argv:string array ->
'a Cmdliner.Term.t * Cmdliner.Term.info -> 'a Cmdliner.Term.result
val eval_choice :
?help:Format.formatter ->
?err:Format.formatter ->
?catch:bool ->
?env:(string -> string option) ->
?argv:string array ->
'a Cmdliner.Term.t * Cmdliner.Term.info ->
('a Cmdliner.Term.t * Cmdliner.Term.info) list -> 'a Cmdliner.Term.result
val eval_peek_opts :
?version_opt:bool ->
?env:(string -> string option) ->
?argv:string array ->
'a Cmdliner.Term.t -> 'a option * 'a Cmdliner.Term.result
val exit_status_success : int
val exit_status_cli_error : int
val exit_status_internal_error : int
val exit_status_of_result : ?term_err:int -> 'a Cmdliner.Term.result -> int
val exit_status_of_status_result :
?term_err:int -> int Cmdliner.Term.result -> int
val exit : ?term_err:int -> 'a Cmdliner.Term.result -> unit
val exit_status : ?term_err:int -> int Cmdliner.Term.result -> unit
end