sig
type 'a sequence = ('a -> unit) -> unit
type t = Format.formatter
type 'a printer = CCFormat.t -> 'a -> unit
val silent : 'a CCFormat.printer
val unit : unit CCFormat.printer
val int : int CCFormat.printer
val string : string CCFormat.printer
val bool : bool CCFormat.printer
val float3 : float CCFormat.printer
val float : float CCFormat.printer
val char : char CCFormat.printer
val int32 : int32 CCFormat.printer
val int64 : int64 CCFormat.printer
val nativeint : nativeint CCFormat.printer
val string_quoted : string CCFormat.printer
val list :
?sep:unit CCFormat.printer ->
'a CCFormat.printer -> 'a list CCFormat.printer
val array :
?sep:unit CCFormat.printer ->
'a CCFormat.printer -> 'a array CCFormat.printer
val arrayi :
?sep:unit CCFormat.printer ->
(int * 'a) CCFormat.printer -> 'a array CCFormat.printer
val seq :
?sep:unit CCFormat.printer ->
'a CCFormat.printer -> 'a CCFormat.sequence CCFormat.printer
val opt : 'a CCFormat.printer -> 'a option CCFormat.printer
val pair :
?sep:unit CCFormat.printer ->
'a CCFormat.printer -> 'b CCFormat.printer -> ('a * 'b) CCFormat.printer
val triple :
?sep:unit CCFormat.printer ->
'a CCFormat.printer ->
'b CCFormat.printer ->
'c CCFormat.printer -> ('a * 'b * 'c) CCFormat.printer
val quad :
?sep:unit CCFormat.printer ->
'a CCFormat.printer ->
'b CCFormat.printer ->
'c CCFormat.printer ->
'd CCFormat.printer -> ('a * 'b * 'c * 'd) CCFormat.printer
val within : string -> string -> 'a CCFormat.printer -> 'a CCFormat.printer
val map : ('a -> 'b) -> 'b CCFormat.printer -> 'a CCFormat.printer
val vbox : ?i:int -> 'a CCFormat.printer -> 'a CCFormat.printer
val hvbox : ?i:int -> 'a CCFormat.printer -> 'a CCFormat.printer
val hovbox : ?i:int -> 'a CCFormat.printer -> 'a CCFormat.printer
val hbox : 'a CCFormat.printer -> 'a CCFormat.printer
val return : ('a, 'b, 'c, 'a) Pervasives.format4 -> unit CCFormat.printer
val of_to_string : ('a -> string) -> 'a CCFormat.printer
val const : 'a CCFormat.printer -> 'a -> unit CCFormat.printer
val some : 'a CCFormat.printer -> 'a option CCFormat.printer
val set_color_tag_handling : CCFormat.t -> unit
val set_color_default : bool -> unit
val with_color : string -> 'a CCFormat.printer -> 'a CCFormat.printer
val with_colorf :
string ->
CCFormat.t -> ('a, CCFormat.t, unit, unit) Pervasives.format4 -> 'a
val with_color_sf :
string -> ('a, CCFormat.t, unit, string) Pervasives.format4 -> 'a
val output : CCFormat.t -> 'a CCFormat.printer -> 'a -> unit
val to_string : 'a CCFormat.printer -> 'a -> string
val stdout : CCFormat.t
val stderr : CCFormat.t
val tee : CCFormat.t -> CCFormat.t -> CCFormat.t
val sprintf : ('a, CCFormat.t, unit, string) Pervasives.format4 -> 'a
val sprintf_no_color :
('a, CCFormat.t, unit, string) Pervasives.format4 -> 'a
val sprintf_dyn_color :
colors:bool -> ('a, CCFormat.t, unit, string) Pervasives.format4 -> 'a
val fprintf : CCFormat.t -> ('a, CCFormat.t, unit) Pervasives.format -> 'a
val fprintf_dyn_color :
colors:bool ->
CCFormat.t -> ('a, CCFormat.t, unit) Pervasives.format -> 'a
val ksprintf :
f:(string -> 'b) ->
('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a
val to_file :
string -> ('a, CCFormat.t, unit, unit) Pervasives.format4 -> 'a
module Dump :
sig
type 'a t = 'a CCFormat.printer
val unit : unit CCFormat.Dump.t
val int : int CCFormat.Dump.t
val string : string CCFormat.Dump.t
val bool : bool CCFormat.Dump.t
val float : float CCFormat.Dump.t
val char : char CCFormat.Dump.t
val int32 : int32 CCFormat.Dump.t
val int64 : int64 CCFormat.Dump.t
val nativeint : nativeint CCFormat.Dump.t
val list : 'a CCFormat.Dump.t -> 'a list CCFormat.Dump.t
val array : 'a CCFormat.Dump.t -> 'a array CCFormat.Dump.t
val option : 'a CCFormat.Dump.t -> 'a option CCFormat.Dump.t
val pair :
'a CCFormat.Dump.t -> 'b CCFormat.Dump.t -> ('a * 'b) CCFormat.Dump.t
val triple :
'a CCFormat.Dump.t ->
'b CCFormat.Dump.t ->
'c CCFormat.Dump.t -> ('a * 'b * 'c) CCFormat.Dump.t
val quad :
'a CCFormat.Dump.t ->
'b CCFormat.Dump.t ->
'c CCFormat.Dump.t ->
'd CCFormat.Dump.t -> ('a * 'b * 'c * 'd) CCFormat.Dump.t
val result :
'a CCFormat.Dump.t -> ('a, string) Result.result CCFormat.Dump.t
val result' :
'a CCFormat.Dump.t ->
'e CCFormat.Dump.t -> ('a, 'e) Result.result CCFormat.Dump.t
val to_string : 'a CCFormat.Dump.t -> 'a -> string
end
end