projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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"