Cmd (cmdliner.Cmdliner.Cmd)

module Exit : sig ... end

module Env : sig ... end

type info

val info : 
  ?deprecated:string ->
  ?man_xrefs:Manpage.xref list ->
  ?man:Manpage.block list ->
  ?envs:Env.info list ->
  ?exits:Exit.info list ->
  ?sdocs:string ->
  ?docs:string ->
  ?doc:string ->
  ?version:string ->
  string ->
  info

type 'a t

val v : info -> 'a Term.t -> 'a t

val group : ?default:'a Term.t -> info -> 'a t list -> 'a t

val name : 'a t -> string

val eval : 
  ?help:Format.formatter ->
  ?err:Format.formatter ->
  ?catch:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  ?term_err:Exit.code ->
  unit t ->
  Exit.code

val eval' : 
  ?help:Format.formatter ->
  ?err:Format.formatter ->
  ?catch:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  ?term_err:Exit.code ->
  Exit.code t ->
  Exit.code

val eval_result : 
  ?help:Format.formatter ->
  ?err:Format.formatter ->
  ?catch:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  ?term_err:Exit.code ->
  (unit, string) result t ->
  Exit.code

val eval_result' : 
  ?help:Format.formatter ->
  ?err:Format.formatter ->
  ?catch:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  ?term_err:Exit.code ->
  (Exit.code, string) result t ->
  Exit.code

type !'a eval_ok = [

| `Help
| `Ok of 'a
| `Version

]

type eval_error = [

| `Exn
| `Parse
| `Term

]

type !'a eval_exit = [

| `Exit of Exit.code
| `Ok of 'a

]

val eval_value : 
  ?help:Format.formatter ->
  ?err:Format.formatter ->
  ?catch:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  'a t ->
  ('a eval_ok, eval_error) result

val eval_value' : 
  ?help:Format.formatter ->
  ?err:Format.formatter ->
  ?catch:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  ?term_err:int ->
  'a t ->
  'a eval_exit

val eval_peek_opts : 
  ?version_opt:bool ->
  ?env:(string -> string option) ->
  ?argv:string array ->
  'a Term.t ->
  'a option * ('a eval_ok, eval_error) result