X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fcache.mli;h=e5f837c2cc7f49baa6e4d8ea73ec9141e16af4a3;hb=aa76742d416b16aa273f71327aebdf2bc3539549;hp=121193545bee44e80a066829890a820b1f9d23df;hpb=b00bff88c7902e828804c06b7f9dc55222fdc84e;p=tatoo.git

diff --git a/src/cache.mli b/src/cache.mli
index 1211935..e5f837c 100644
--- a/src/cache.mli
+++ b/src/cache.mli
@@ -13,10 +13,6 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-03-14 13:42:53 CET by Kim Nguyen>
-*)
-
 (** N-dimentional caches *)
 
 module N1 :
@@ -28,6 +24,7 @@ sig
   val add : 'a t -> int -> 'a -> unit
   val dummy : 'a t -> 'a
   val iteri : (int -> 'a -> bool -> unit) -> 'a t -> unit
+  val stats : 'a t -> int*int
 end
 
 module N2:
@@ -38,6 +35,7 @@ sig
     val add : 'a t -> int -> int -> 'a -> unit
     val dummy : 'a t -> 'a
     val iteri : (int -> int -> 'a -> bool -> unit) -> 'a t -> unit
+    val stats : 'a t -> int*int
 end
 
 module N3 :
@@ -48,6 +46,7 @@ module N3 :
     val add : 'a t -> int -> int -> int -> 'a -> unit
     val dummy : 'a t -> 'a
     val iteri : (int -> int -> int -> 'a -> bool -> unit) -> 'a t -> unit
+    val stats : 'a t -> int*int
   end
 
 module N4 :
@@ -58,6 +57,7 @@ module N4 :
     val add : 'a t -> int -> int -> int -> int -> 'a -> unit
     val dummy : 'a t -> 'a
     val iteri : (int -> int -> int -> int -> 'a -> bool -> unit) -> 'a t -> unit
+    val stats : 'a t -> int*int
   end
 
 module N5 :
@@ -67,7 +67,9 @@ module N5 :
     val find : 'a t -> int -> int -> int -> int -> int -> 'a
     val add : 'a t -> int -> int -> int -> int -> int -> 'a -> unit
     val dummy : 'a t -> 'a
-    val iteri : (int -> int -> int -> int -> int -> 'a -> bool -> unit) -> 'a t -> unit
+    val iteri :
+      (int -> int -> int -> int -> int -> 'a -> bool -> unit) -> 'a t -> unit
+    val stats : 'a t -> int*int
   end
 
 module N6 :
@@ -77,5 +79,8 @@ module N6 :
     val find : 'a t -> int -> int -> int -> int -> int -> int -> 'a
     val add : 'a t -> int -> int -> int -> int -> int -> int -> 'a -> unit
     val dummy : 'a t -> 'a
-    val iteri : (int -> int -> int -> int -> int -> int -> 'a -> bool -> unit) -> 'a t -> unit
+    val iteri :
+      (int -> int -> int -> int -> int -> int -> 'a -> bool -> unit)
+      -> 'a t -> unit
+    val stats : 'a t -> int*int
   end