Module Log

module Log: sig .. end

type level = [ `always | `debug | `error | `fatal | `info | `trace | `warn ] 

val level_leq : [< `always | `debug | `error | `fatal | `info | `trace | `warn ] ->
       [< `always | `debug | `error | `fatal | `info | `trace | `warn ] -> bool

val debug_mode : bool Pervasives.ref

val default_debug : bool Pervasives.ref

val debug_phases : string list Pervasives.ref

val verbosity_level : level Pervasives.ref

val colorize : bool Pervasives.ref

val level_of_string : string -> [> `always | `debug | `error | `fatal | `info | `trace | `warn ]

val loggers : (string, level Pervasives.ref) Hashtbl.t

val set_verbosity_level : string -> level -> unit

module Make: 
functor (M : sig

val name : string
end) -> sig .. end

include struct ... end

val debug_formatter : Format.formatter

val debug : string -> unit

val debug_pp : (Format.formatter -> 'a -> 'b) -> 'a -> unit

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

val errorf : ('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a

val error : ('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a

val error_pp : (Format.formatter -> 'a -> unit) -> 'a -> unit

val fatalf : ('a, Format.formatter, unit, unit, unit, 'b) Pervasives.format6 -> 'a

val fatal : ('a, Format.formatter, unit, unit, unit, 'b) Pervasives.format6 -> 'a

val invalid_argf : ('a, unit, string, 'b) Pervasives.format4 -> 'a

val phases_ht : (string, float) Hashtbl.t

val time : string -> ('a -> 'b) -> 'a -> 'b

val phase : string -> ('a -> 'b) -> 'a -> 'b

val start_time : float

val print_stats : unit -> unit