sig
type t
val create : ?enabled:bool -> Common.Util.label -> Common.Util.Messages.t
val eprintf :
?raw:bool ->
Common.Util.Messages.t ->
('a, unit, string, unit) Pervasives.format4 -> 'a
val enable : Common.Util.label -> unit
val disable : Common.Util.label -> unit
val all_disabled : unit -> unit
val all_enabled : unit -> unit
val avalaible : unit -> Common.Util.label list
val is_enabled : Common.Util.label -> bool
end