X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Futils%2Fcache.mli;h=5827f6c03c2d21231b3a3dba8495b8ee4288be23;hp=d6c0ebb884728d50872bc0890b0ccce1444def49;hb=1972639ed4bb0aab7136e3f09d6a46398afec709;hpb=738218592e41da4ceb46f4dba41f292a60ba1f7b

diff --git a/src/utils/cache.mli b/src/utils/cache.mli
index d6c0ebb..5827f6c 100644
--- a/src/utils/cache.mli
+++ b/src/utils/cache.mli
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-13 18:04:35 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-18 22:25:30 CET by Kim Nguyen>
 *)
 
 (** N-dimentional caches *)
@@ -23,59 +23,65 @@ module N1 :
 sig
 
   type 'a t
-  val create : int -> 'a -> 'a t
+  val create : 'a -> 'a t
   val find : 'a t -> int -> 'a
   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:
 sig
     type 'a t
-    val create : int -> 'a -> 'a t
+    val create : 'a -> 'a t
     val find : 'a t -> int -> int -> 'a
     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 :
   sig
     type 'a t
-    val create : int -> 'a -> 'a t
+    val create : 'a -> 'a t
     val find : 'a t -> int -> int -> int -> 'a
     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 :
   sig
     type 'a t
-    val create : int -> 'a -> 'a t
+    val create : 'a -> 'a t
     val find : 'a t -> int -> int -> int -> int -> 'a
     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 :
   sig
     type 'a t
-    val create : int -> 'a -> 'a t
+    val create : 'a -> 'a t
     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 stats : 'a t -> int*int
   end
 
 module N6 :
   sig
     type 'a t
-    val create : int -> 'a -> 'a t
+    val create : 'a -> 'a t
     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 stats : 'a t -> int*int
   end