2020-12-27 15:46:11 +01:00
|
|
|
(* Type
|
2020-12-27 16:36:25 +01:00
|
|
|
*
|
2020-12-27 15:46:11 +01:00
|
|
|
* #+NAME:type *)
|
|
|
|
|
|
|
|
(* [[file:../command_line.org::type][type]] *)
|
|
|
|
type short_opt = char
|
2020-12-27 16:36:25 +01:00
|
|
|
type long_opt = string
|
|
|
|
type optional = Mandatory | Optional
|
2020-12-27 15:46:11 +01:00
|
|
|
type documentation = string
|
|
|
|
type argument = With_arg of string | Without_arg | With_opt_arg of string
|
|
|
|
|
|
|
|
type description = {
|
|
|
|
short: short_opt ;
|
|
|
|
long : long_opt ;
|
|
|
|
opt : optional ;
|
|
|
|
doc : documentation ;
|
|
|
|
arg : argument ;
|
|
|
|
}
|
|
|
|
(* type ends here *)
|
|
|
|
|
|
|
|
(* [[file:../command_line.org::*Mutable attributes][Mutable attributes:2]] *)
|
|
|
|
val set_header_doc : string -> unit
|
|
|
|
val set_description_doc : string -> unit
|
|
|
|
val set_footer_doc : string -> unit
|
|
|
|
(* Mutable attributes:2 ends here *)
|
|
|
|
|
|
|
|
(* [[file:../command_line.org::*Mutable attributes][Mutable attributes:4]] *)
|
|
|
|
val anonymous : long_opt -> optional -> documentation -> description
|
|
|
|
(* Mutable attributes:4 ends here *)
|
|
|
|
|
2020-12-27 23:08:12 +01:00
|
|
|
(* Query functions *)
|
2020-12-27 15:46:11 +01:00
|
|
|
|
|
|
|
|
2020-12-27 23:08:12 +01:00
|
|
|
(* [[file:../command_line.org::*Query functions][Query functions:1]] *)
|
|
|
|
val get : long_opt -> string option
|
|
|
|
val get_bool : long_opt -> bool
|
2020-12-27 15:46:11 +01:00
|
|
|
val anon_args : unit -> string list
|
2020-12-27 23:08:12 +01:00
|
|
|
(* Query functions:1 ends here *)
|
2020-12-27 15:46:11 +01:00
|
|
|
|
2020-12-27 17:38:04 +01:00
|
|
|
(* Specification *)
|
2020-12-27 15:46:11 +01:00
|
|
|
|
|
|
|
|
|
|
|
(* [[file:../command_line.org::*Specification][Specification:1]] *)
|
|
|
|
val set_specs : description list -> unit
|
|
|
|
(* Specification:1 ends here *)
|