Module Ocamlbuild_pack.Log

val level : int ref
val dprintf : int -> ('a, Format.formatter, unit) format -> 'a
val is_logging : int -> bool
val eprintf : ('a, Format.formatter, unit) format -> 'a
val raw_dprintf : int -> ('a, Format.formatter, unit) format -> 'a
val classic_display : bool ref
val event : ?pretend:bool -> string -> string -> Tags.t -> unit
val init : string option -> unit
val finish : ?how:[ `Error | `Quiet | `Success ] -> unit -> unit
val display : (out_channel -> unit) -> unit
val update : unit -> unit
val mode : string -> bool
val at_end : name:string -> ([> `Error | `Quiet ] -> unit) -> unit
val at_failure : name:string -> ([> `Error ] -> unit) -> unit