projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactor the tracing code, store the whole tree structure in a javascript array and...
[tatoo.git]
/
src
/
pretty.mli
diff --git
a/src/pretty.mli
b/src/pretty.mli
index
36fd430
..
cbdf196
100644
(file)
--- a/
src/pretty.mli
+++ b/
src/pretty.mli
@@
-49,10
+49,22
@@
val pp_superscript : Format.formatter -> int -> unit
val pp_print_list :
?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a list -> unit
val pp_print_list :
?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a list -> unit
+
val pp_print_array :
?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a array -> unit
val pp_print_array :
?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a array -> unit
+
+val pp_print_range :
+ ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> int -> unit)
+ -> Format.formatter -> (int * int) -> unit
+
+
val print_list : ?sep:string -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a list -> unit
val print_list : ?sep:string -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a list -> unit
+
val print_array : ?sep:string -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a array -> unit
val print_array : ?sep:string -> (Format.formatter -> 'a -> unit)
-> Format.formatter -> 'a array -> unit
+
+val print_range :
+ ?sep:string -> (Format.formatter -> int -> unit)
+ -> Format.formatter -> (int * int) -> unit