Merge branch 'master' of ssh://git.nguyen.vg/tatoo

[tatoo.git] / src / cache.mli

diff --git a/src/cache.mli b/src/cache.mli
index 1211935..5827f6c 100644 (file)
--- a/src/cache.mli
+++ b/src/cache.mli
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-14 13:42:53 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-18 22:25:30 CET by Kim Nguyen>
 *)
 
 (** N-dimentional caches *)
@@ -28,6 +28,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 +39,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 +50,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 +61,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 :
@@ -68,6 +72,7 @@ module N5 :
     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 :
@@ -78,4 +83,5 @@ module N6 :
     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