Module As_log

module As_log: sig .. end

Log level and output

type level = 

val level : unit -> level option

val set_level : level option -> unit

val set_formatter : [ `All | `Level of level ] -> Format.formatter -> unit

Logging

val msg : ?header:string ->
       level -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

val msg_driver_fault : ?header:string ->
       level -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

val kmsg : ?header:string ->
       (unit -> 'a) ->
       level -> ('b, Format.formatter, unit, 'a) Pervasives.format4 -> 'b

val show : ?header:string -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

val err : ?header:string -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

val warn : ?header:string -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

val info : ?header:string -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

val debug : ?header:string -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a

Log monitoring

val err_count : unit -> int

val warn_count : unit -> int