X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fpretty.mli;h=cbdf1962b1e6e0e3616ea78ed172f8eaa19d04d4;hp=42ec6cb5538e7d0274d0039a7cbdaf8937d3e0ce;hb=a089738aa464521c0ae79944eb00fc147cc37ac9;hpb=6b66008811639324be623a42037b60e02056772c

diff --git a/src/pretty.mli b/src/pretty.mli
index 42ec6cb..cbdf196 100644
--- a/src/pretty.mli
+++ b/src/pretty.mli
@@ -13,10 +13,6 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-01-30 19:08:06 CET by Kim Nguyen>
-*)
-
 exception InvalidUtf8Codepoint of int
 
 val subscript : int -> string
@@ -26,6 +22,7 @@ val up_arrow : string
 val right_arrow : string
 val left_arrow : string
 val epsilon : string
+val bullet : string
 val big_sigma : string
 val cap : string
 val cup : string
@@ -35,6 +32,7 @@ val vee : string
 val top : string
 val bottom : string
 val dummy : string
+val inverse : string
 val double_right_arrow : string
 val overline : string -> string
 val underline : string -> string
@@ -49,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