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