/usr/lib/ocaml/textutils/ascii_table.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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | open Core.Std
module Align : sig
type t
val left : t
val right : t
val center : t
end
module Display : sig
type t
val short_box : t (* Default--cells can be multi-line. *)
val tall_box : t (* Puts --- between entries. *)
val line : t (* Trails off with ... if necessary. *)
val blank : t (* No lines *)
val column_titles : t (* Draw lines only under column titles *)
end
module Column : sig
type 'a t
(** creates a column given the header and the to-string function *)
val create
: ?align : Align.t (* Default: left *)
-> ?min_width : int
-> ?max_width : int
-> ?show : [ `Yes | `No | `If_not_empty ] (* Default: `Yes *)
-> string
-> ('a -> string)
-> 'a t
(** like create, except that the to_string function must provide a list of
attributes. *)
val create_attr:
?align : Align.t (* Default: left *)
-> ?min_width : int
-> ?max_width : int
-> ?show : [ `Yes | `No | `If_not_empty ] (* Default: `Yes *)
-> string
-> ('a -> Console.Ansi.attr list * string)
-> 'a t
end
type ('row, 'rest) renderer =
?display : Display.t (* Default: short_box *)
-> ?spacing : int (* Default: 1 *)
-> ?limit_width_to : int (* defaults to 90 characters *)
-> ?header_attr : Console.Ansi.attr list
-> ?bars : [ `Ascii | `Unicode ] (* defaults to [`Unicode] *)
-> 'row Column.t list
-> 'row list
-> 'rest
(** The idea is that you have a Column.t list and a list of rows, where each
row contains the data for each column. So e.g. 'a could be a record type
{col_1 : int; col_2 : string}, where the first column pulls out col_1 and
the second column pulls out col_2. **)
val output : (_, oc:Out_channel.t -> unit) renderer
val to_string_noattr : (_, string) renderer
val to_string : (_, string) renderer
val simple_list_table : ?index:bool -> ?limit_width_to:int ->
?oc:Out_channel.t -> ?display:Display.t ->
string list -> string list list -> unit
module Table_char : sig
type t = {
ascii : char;
utf8 : string;
}
val connect : ?top:unit -> ?bottom:unit -> ?left:unit -> ?right:unit -> unit -> t
end
|