module type LOG = sig .. end
Module for modulating the logging output with the logging level.
val level : int Pervasives.ref
Current logging (debugging) level.
val dprintf : int -> ('a, Format.formatter, unit) Pervasives.format -> 'a
dprintf level fmt args... formats the logging information fmt
with the arguments args... on the logging output if the logging
level is greater than or equal to level. The default level is 1.
More obscure debugging information should have a higher logging
level. Youre formats are wrapped inside these two formats
"@[<2>" and "@]@.".
val eprintf : ('a, Format.formatter, unit) Pervasives.format -> 'a
Equivalent to calling dprintf with a level < 0.
val raw_dprintf : int -> ('a, Format.formatter, unit) Pervasives.format -> 'a
Same as dprintf but without the format wrapping.