/usr/lib/ocaml/textutils/console.mli is in libtextutils-ocaml-dev 112.17.00-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | (** Printing on console tty's *)
open Core.Std
(** Handling of ansi codes. *)
module Ansi : sig
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
| `Red
| `Green
| `Yellow
| `Blue
| `Magenta
| `Cyan
| `White
]
type attr = [
| `Bright
| `Dim
| `Underscore
| `Reverse
| color
| `Bg of color
]
val printf : attr list -> ('a, out_channel, unit) format -> 'a
val eprintf : attr list -> ('a, out_channel, unit) format -> 'a
val output_string : attr list -> out_channel -> string -> unit
val output : attr list -> out_channel -> string -> int -> int -> unit
(* Create string with embedded formatting codes *)
val string_with_attr : attr list -> string -> string
end
val is_color_tty : unit -> bool
(** The width in characters of the current output. Returns [None] if stdout is
not connected to a tty.*)
val width : unit -> [ `Cols of int | `Not_a_tty | `Not_available ]
(** print a list in a columnize way (like the output of ls) *)
val print_list : out_channel -> (string * Ansi.attr list) list -> unit
|