Merge branch 'local-ocamlbuild' into local-trunk

[SXSI/xpathcomp.git] / src / uid.ml

diff --git a/src/uid.ml b/src/uid.ml
new file mode 100644 (file)
index 0000000..906485d
--- /dev/null
+++ b/src/uid.ml
@@ -0,0 +1,14 @@
+type t = int
+
+let make_maker () =
+  let _id = ref ~-1 in
+    ((fun () -> incr _id;!_id),
+     (fun () -> !_id),
+     (fun i -> _id := i))
+
+let dummy = -1
+
+external to_int : t -> int = "%identity"
+
+
+external of_int : int -> t= "%identity"