sig
type level =
[ `Alert | `Crit | `Debug | `Emerg | `Err | `Info | `Notice | `Warning ]
type logger = Netlog.level -> string -> unit
val channel_logger :
Pervasives.out_channel -> Netlog.level -> Netlog.logger
val current_logger : Netlog.logger Pervasives.ref
val log : Netlog.level -> string -> unit
val logf :
Netlog.level -> ('a, unit, string, unit) Pervasives.format4 -> 'a
val level_weight : Netlog.level -> int
val level_of_string : string -> Netlog.level
val string_of_level : Netlog.level -> string
val level_names : string array
module Debug :
sig
type dlogger = string -> string -> unit
val fwd_dlogger : Netlog.Debug.dlogger
val null_dlogger : Netlog.Debug.dlogger
val current_dlogger : Netlog.Debug.dlogger Pervasives.ref
val log : string -> string -> unit
val logf : string -> ('a, unit, string, unit) Pervasives.format4 -> 'a
val enable_module : string -> unit
val disable_module : string -> unit
val enable_all : unit -> unit
val disable_all : unit -> unit
val names : unit -> string list
val register_module : string -> bool Pervasives.ref -> unit
val mk_dlog : string -> bool Pervasives.ref -> string -> unit
val mk_dlogr :
string -> bool Pervasives.ref -> (unit -> string) -> unit
type serial
val new_serial : unit -> Netlog.Debug.serial
val track_fd :
?update:bool ->
?anchor:'a ->
?sn:Netlog.Debug.serial ->
owner:string -> descr:string -> Unix.file_descr -> unit
val release_fd :
?sn:Netlog.Debug.serial -> ?force:bool -> Unix.file_descr -> unit
val fd_string : ?owner:bool -> ?descr:bool -> Unix.file_descr -> string
val fd_table : unit -> string list
val enable_fd_tracking : bool Pervasives.ref
end
end
