Fix the build script.

[tatoo.git] / src / utils / cache.mli

diff --git a/src/utils/cache.mli b/src/utils/cache.mli
index dba9917..1211935 100644 (file)
--- a/src/utils/cache.mli
+++ b/src/utils/cache.mli
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-13 16:01:55 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-14 13:42:53 CET by Kim Nguyen>
 *)
 
 (** N-dimentional caches *)
@@ -23,7 +23,7 @@ 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
@@ -33,7 +33,7 @@ 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
@@ -43,7 +43,7 @@ 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
@@ -53,7 +53,7 @@ module N3 :
 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
@@ -63,9 +63,19 @@ module N4 :
 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
   end
+
+module N6 :
+  sig
+    type '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
+  end