Module Console.Ansi

module Ansi: sig .. end

val kill_line : unit -> unit

val bell : unit -> unit

val home_cursor : unit -> unit

val save_cursor : unit -> unit

val unsave_cursor : unit -> unit

type color = [ `Black | `Blue | `Cyan | `Green | `Magenta | `Red | `White | `Yellow ] 

type attr = [ `Bg of color
       | `Black
       | `Blue
       | `Bright
       | `Cyan
       | `Dim
       | `Green
       | `Magenta
       | `Red
       | `Reverse
       | `Underscore
       | `White
       | `Yellow ] 

val printf : attr list ->
       ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a

val eprintf : attr list ->
       ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a

val output_string : attr list -> Pervasives.out_channel -> string -> unit

val output : attr list ->
       Pervasives.out_channel -> string -> int -> int -> unit

val string_with_attr : attr list -> string -> string