Display (ocamlbuild.Ocamlbuild

type display

type tagline_description = (string * char) list

val create : ?channel:out_channel -> ?mode:[ `Classic | `Sophisticated ] -> ?columns:int ->
?description:tagline_description -> ?log_file:string -> ?log_level:int -> unit -> display

val finish : ?how:[ `Error | `Quiet | `Success ] -> display -> unit

val event : display -> ?pretend:bool -> string -> string -> Tags.t -> unit

val display : display -> (out_channel -> unit) -> unit

val update : display -> unit

val is_logging : display -> int -> bool

val dprintf : ?raw:bool -> ?log_level:int -> display -> ('a, Format.formatter, unit) format -> 'a