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