/usr/lib/ocaml/lambda-term/lTerm_style.mli is in liblambda-term-ocaml-dev 1.9-4.
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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | (*
* lTerm_style.mli
* ---------------
* Copyright : (c) 2011, Jeremie Dimino <jeremie@dimino.org>
* Licence : BSD3
*
* This file is a part of Lambda-Term.
*)
(** Text styles *)
(** {6 Colors} *)
type color =
private
| Default
(** The default color of the terminal. *)
| Index of int
(** A color given by its index. Most terminal have at least 8
colors. *)
| RGB of int * int * int
(** A color given by its three component between 0 and 255. The
closest color will be used. *)
val default : color
val index : int -> color
val rgb : int -> int -> int -> color
(** [rgb r g b] raises [Invalid_argument] if one of [r], [g] or [b]
is not in the range [0..255]. *)
(** {8 Standard colors} *)
val black : color
val red : color
val green : color
val yellow : color
val blue : color
val magenta : color
val cyan : color
val white : color
(** {8 Light colors} *)
val lblack : color
val lred : color
val lgreen : color
val lyellow : color
val lblue : color
val lmagenta : color
val lcyan : color
val lwhite : color
(** {6 Styles} *)
(** Type of text styles. *)
type t = {
bold : bool option;
underline : bool option;
blink : bool option;
reverse : bool option;
foreground : color option;
background : color option;
}
val bold : t -> bool option
val underline : t -> bool option
val blink : t -> bool option
val reverse : t -> bool option
val foreground : t -> color option
val background : t -> color option
val none : t
(** Style with all fields set to [None]. *)
val merge : t -> t -> t
(** [merge s1 s2] is [s2] with all undefined fields set to ones of
[s1]. *)
val equal : t -> t -> bool
(** [equal s1 s2] returns [true] iff [s1] and [s2] are equal after
having replaced all [None] fields by [Some false] or [Some
Default]. *)
|