Module Log

module Log: sig .. end

Logging function, for debugging

val set_debug : int -> unit

Set debug level

val get_debug : unit -> int

Current debug level

val debugf : int ->
       ('a, Format.formatter, unit, unit) Pervasives.format4 -> ('a -> unit) -> unit

Emit a debug message at the given level. If the level is lower than get_debug (), the message will indeed be emitted

val debug : int -> string -> unit

Simpler version of Log.debug, without formatting

val set_debug_out : Format.formatter -> unit

Change the output formatter.