sig
type ('a, 'b, 'c) t = ('a, 'b, 'c) Pervasives.format
val printf : ('b, 'a BatInnerIO.output, unit) BatPrintf.t -> 'b
val eprintf : ('b, 'a BatInnerIO.output, unit) BatPrintf.t -> 'b
val sprintf : ('a, unit, string) BatPrintf.t -> 'a
val sprintf2 :
('a, 'b BatInnerIO.output, unit, string) Pervasives.format4 -> 'a
val fprintf :
'a BatInnerIO.output ->
('b, 'a BatInnerIO.output, unit) BatPrintf.t -> 'b
val ifprintf : 'c -> ('b, 'a BatInnerIO.output, unit) BatPrintf.t -> 'b
val bprintf : Buffer.t -> ('a, Buffer.t, unit) BatPrintf.t -> 'a
val bprintf2 :
Buffer.t -> ('b, 'a BatInnerIO.output, unit) BatPrintf.t -> 'b
val kfprintf :
('a BatInnerIO.output -> 'b) ->
'a BatInnerIO.output ->
('c, 'a BatInnerIO.output, unit, 'b) Pervasives.format4 -> 'c
val ksprintf :
(string -> 'a) -> ('b, unit, string, 'a) Pervasives.format4 -> 'b
val ksprintf2 :
(string -> 'b) ->
('c, 'a BatInnerIO.output, unit, 'b) Pervasives.format4 -> 'c
val kbprintf :
(Buffer.t -> 'a) ->
Buffer.t -> ('b, Buffer.t, unit, 'a) Pervasives.format4 -> 'b
val kbprintf2 :
(Buffer.t -> 'b) ->
Buffer.t -> ('c, 'a BatInnerIO.output, unit, 'b) Pervasives.format4 -> 'c
val kprintf :
(string -> 'a) -> ('b, unit, string, 'a) Pervasives.format4 -> 'b
module CamlinternalPr :
sig
module Sformat :
sig
type index
val index_of_int : int -> BatPrintf.CamlinternalPr.Sformat.index
external int_of_index :
BatPrintf.CamlinternalPr.Sformat.index -> int = "%identity"
external unsafe_index_of_int :
int -> BatPrintf.CamlinternalPr.Sformat.index = "%identity"
val succ_index :
BatPrintf.CamlinternalPr.Sformat.index ->
BatPrintf.CamlinternalPr.Sformat.index
val sub :
('a, 'b, 'c, 'd, 'e, 'f) format6 ->
BatPrintf.CamlinternalPr.Sformat.index -> int -> string
val to_string : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> string
external length : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int
= "%string_length"
external get : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> char
= "%string_safe_get"
external unsafe_to_string :
('a, 'b, 'c, 'd, 'e, 'f) format6 -> string = "%identity"
external unsafe_get :
('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> char
= "%string_unsafe_get"
end
module Tformat :
sig
type ac = {
mutable ac_rglr : int;
mutable ac_skip : int;
mutable ac_rdrs : int;
}
val ac_of_format :
('a, 'b, 'c, 'd, 'e, 'f) format6 ->
BatPrintf.CamlinternalPr.Tformat.ac
val sub_format :
(('a, 'b, 'c, 'd, 'e, 'f) format6 -> int) ->
(('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> char -> int) ->
char -> ('a, 'b, 'c, 'd, 'e, 'f) format6 -> int -> int
val summarize_format_type :
('a, 'b, 'c, 'd, 'e, 'f) format6 -> string
val scan_format :
('a, 'b, 'c, 'd, 'e, 'f) format6 ->
'g array ->
BatPrintf.CamlinternalPr.Sformat.index ->
int ->
(BatPrintf.CamlinternalPr.Sformat.index -> string -> int -> 'h) ->
(BatPrintf.CamlinternalPr.Sformat.index -> 'i -> 'j -> int -> 'h) ->
(BatPrintf.CamlinternalPr.Sformat.index -> 'k -> int -> 'h) ->
(BatPrintf.CamlinternalPr.Sformat.index -> int -> 'h) ->
(BatPrintf.CamlinternalPr.Sformat.index ->
('l, 'm, 'n, 'o, 'p, 'q) format6 -> int -> 'h) ->
'h
val kapr :
(('a, 'b, 'c, 'd, 'e, 'f) format6 -> Obj.t array -> 'g) ->
('a, 'b, 'c, 'd, 'e, 'f) format6 -> 'g
end
end
end