Add hooks to re-initialize hconsed modules.

[SXSI/xpathcomp.git] / src / hcons.mli

diff --git a/src/hcons.mli b/src/hcons.mli
index 2e18f82..efef8d4 100644 (file)
--- a/src/hcons.mli
+++ b/src/hcons.mli
@@ -8,20 +8,22 @@ module type SA =
     val uid : t -> Uid.t
     val equal : t -> t -> bool
     val stats : unit -> unit
+    val init : unit -> unit
   end
 
-module type S =
-  sig
+module type S = sig
     type data
     type t = private { id   : Uid.t;
-                      key  : int;
-                      node : data }
+                       key  : int;
+                       node : data }
     val make : data -> t
     val node : t -> data
     val hash : t -> int
     val uid : t -> Uid.t
     val equal : t -> t -> bool
     val stats : unit -> unit
-  end
+    val init : unit -> unit
+
+end
 
 module Make (H : Hashtbl.HashedType) : S with type data = H.t