Consolemodule type Io = sig ... endmodule type S = sig ... endmodule Make
(Io : Io) :
S
with type 'a io := 'a Io.t
and type 'a io_fmt := 'a Io.fmt
and type out_channel := Io.out_channelinclude S
with type 'a io := 'a
and type 'a io_fmt := ('a, Core.Out_channel.t, unit) Core.format
and type out_channel := Core.Out_channel.tmodule Ansi : sig ... endHandling of ansi codes.
The width in characters of the current output. Returns `Not_a_tty if stdout is not connected to a tty.
val print_list : Core.Out_channel.t -> (string * Ansi.attr list) list -> unitprint a list in a columnize way (like the output of ls)