src/logger.mli

   1 type t = string
   2 type level = int
   3 val is_logger : t -> bool
   4 val is_active : t -> bool
   5 val level : t -> level
   6 val activate : t -> level -> unit
   7 val deactivate : t -> unit
   8 val set_output : Format.formatter -> unit
   9
  10 val log : t -> level -> ('a, Format.formatter, unit) format -> 'a
  11 val print : Format.formatter -> ('a, Format.formatter, unit) format -> 'a
  12 val available : unit -> string list
  13
  14 val set_verbose : bool -> unit
  15 val verbose : Format.formatter -> ('a, Format.formatter, unit) format -> 'a
  16
  17 val start_msg : Format.formatter -> string -> unit
  18 val end_msg : Format.formatter -> string -> unit
  19 val msg : Format.formatter -> ('a, Format.formatter, unit) format -> 'a