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 96fb773..cbdf196 100644 (file)
--- a/src/pretty.mli
+++ b/src/pretty.mli
@@ -47,8 +47,24 @@ val pp_subscript : Format.formatter -> int -> unit
 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
+  ?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 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
+  ?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_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