Module Flags

module Flags: sig .. end

val all_flags : (Tags.t * Command.spec) list Pervasives.ref

val of_tags : Tags.t -> Command.spec

val of_tag_list : string list -> Command.spec

val set_flags : Tags.t -> Command.spec -> unit

val flag : string list -> Command.spec -> unit

val pflag : Tags.elt list -> Tags.elt -> (string -> Command.spec) -> unit

val add : 'a -> 'a list -> 'a list

val remove : 'a -> 'a list -> 'a list

val get_flags : unit -> (Tags.t * Command.spec) list