module type Messages = sig
.. end
type
t
create a new message handle with label t
.
* Printing is disabled per default
val create : ?enabled:bool -> Common.Util.label -> t
val eprintf : ?raw:bool ->
t -> ('a, unit, string, unit) Pervasives.format4 -> 'a
Print the message on stderr
if the Util module has been
* set to verbose using the function make_verbose
and
* either the handle t
is enable or all handles were enabled with
* the function all_enabled
val enable : Common.Util.label -> unit
enable l
the handle with label l
val disable : Common.Util.label -> unit
disable l
the handle with label l
val all_disabled : unit -> unit
disable all handles in the module
val all_enabled : unit -> unit
enable all handles in the module
val avalaible : unit -> Common.Util.label list
return the list of all labels known to the module
val is_enabled : Common.Util.label -> bool