sig
  type severity =
      Emerg
    | Alert
    | Error
    | Warning
    | Exceptional
    | Config
    | User
    | Info
    | Exec
    | Debug
    | Data
  val protect : Mutex.t
  val event :
    Log.severity ->
    int -> string -> ('a, Pervasives.out_channel, unit) format -> 'a
  val cur_log_level : Log.severity Pervasives.ref
  val log_out : Pervasives.out_channel
  val log_from_string : string -> unit
  val cmp : Log.severity -> bool
end