sig
type 'a t
val name : 'a Deprecated_command.Flag.t -> string
type ('a, 'b) create =
string ->
?aliases:string list ->
?full_flag_required:bool ->
'b -> doc:string -> 'a Deprecated_command.Flag.t
val of_arg : Core.Std.Arg.t -> unit Deprecated_command.Flag.t
val noarg : (unit, unit -> unit) Deprecated_command.Flag.create
val string : (unit, string -> unit) Deprecated_command.Flag.create
val int : (unit, int -> unit) Deprecated_command.Flag.create
val float : (unit, float -> unit) Deprecated_command.Flag.create
val bool : (unit, bool -> unit) Deprecated_command.Flag.create
val gen :
(string -> 'gen) -> (unit, 'gen -> unit) Deprecated_command.Flag.create
val set_string :
(unit, string Pervasives.ref) Deprecated_command.Flag.create
val set_string_opt :
(unit, string option Pervasives.ref) Deprecated_command.Flag.create
val set_int : (unit, int Pervasives.ref) Deprecated_command.Flag.create
val set_int_opt :
(unit, int option Pervasives.ref) Deprecated_command.Flag.create
val set_float : (unit, float Pervasives.ref) Deprecated_command.Flag.create
val set_float_opt :
(unit, float option Pervasives.ref) Deprecated_command.Flag.create
val set_date :
(unit, Core.Std.Date.t Pervasives.ref) Deprecated_command.Flag.create
val set_date_opt :
(unit, Core.Std.Date.t option Pervasives.ref)
Deprecated_command.Flag.create
val set : (unit, bool Pervasives.ref) Deprecated_command.Flag.create
val clear : (unit, bool Pervasives.ref) Deprecated_command.Flag.create
val set_gen :
(string -> 'gen) ->
(unit, 'gen Pervasives.ref) Deprecated_command.Flag.create
val set_gen_opt :
(string -> 'gen) ->
(unit, 'gen option Pervasives.ref) Deprecated_command.Flag.create
val noarg_acc : ('a, 'a -> 'a) Deprecated_command.Flag.create
val string_acc : ('a, 'a -> string -> 'a) Deprecated_command.Flag.create
val int_acc : ('a, 'a -> int -> 'a) Deprecated_command.Flag.create
val bool_acc : ('a, 'a -> bool -> 'a) Deprecated_command.Flag.create
val float_acc : ('a, 'a -> float -> 'a) Deprecated_command.Flag.create
val date_acc :
('a, 'a -> Core.Std.Date.t -> 'a) Deprecated_command.Flag.create
val rest_acc : ('a, 'a -> string list -> 'a) Deprecated_command.Flag.create
val gen_acc :
(string -> 'gen) -> ('a, 'a -> 'gen -> 'a) Deprecated_command.Flag.create
val noarg_mut : ('a, 'a -> unit) Deprecated_command.Flag.create
val arg_mut : ('a, 'a -> string -> unit) Deprecated_command.Flag.create
val string_mut : ('a, 'a -> string -> unit) Deprecated_command.Flag.create
val int_mut : ('a, 'a -> int -> unit) Deprecated_command.Flag.create
val bool_mut : ('a, 'a -> bool -> unit) Deprecated_command.Flag.create
val float_mut : ('a, 'a -> float -> unit) Deprecated_command.Flag.create
val date_mut :
('a, 'a -> Core.Std.Date.t -> unit) Deprecated_command.Flag.create
val rest_mut :
('a, 'a -> string list -> unit) Deprecated_command.Flag.create
val gen_mut :
(string -> 'gen) ->
('a, 'a -> 'gen -> unit) Deprecated_command.Flag.create
module Action :
sig
type 'accum t
val noarg : ('accum -> unit) -> 'accum Deprecated_command.Flag.Action.t
val arg :
('accum -> string -> unit) -> 'accum Deprecated_command.Flag.Action.t
val rest :
('accum -> string list -> unit) ->
'accum Deprecated_command.Flag.Action.t
val int :
('accum -> int -> unit) -> 'accum Deprecated_command.Flag.Action.t
val bool :
('accum -> bool -> unit) -> 'accum Deprecated_command.Flag.Action.t
val float :
('accum -> float -> unit) -> 'accum Deprecated_command.Flag.Action.t
end
val create :
?aliases:string list ->
?full_flag_required:bool ->
name:string ->
doc:string ->
'a Deprecated_command.Flag.Action.t -> 'a Deprecated_command.Flag.t
val lift :
'a Deprecated_command.Flag.t ->
project:('b -> 'a * ('a -> 'b)) -> 'b Deprecated_command.Flag.t
val lift_unit :
unit Deprecated_command.Flag.t -> 'any Deprecated_command.Flag.t
val to_spec :
('accum -> 'accum) Pervasives.ref ->
'accum Deprecated_command.Flag.t -> ('c, 'c) Core.Std.Command.Spec.t
val to_spec_unit :
unit Deprecated_command.Flag.t -> ('c, 'c) Core.Std.Command.Spec.t
val to_spec_units :
unit Deprecated_command.Flag.t list -> ('c, 'c) Core.Std.Command.Spec.t
end