projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Expose the internal structure of Hconsed value
[SXSI/xpathcomp.git]
/
hcons.mli
diff --git
a/hcons.mli
b/hcons.mli
index
49af121
..
dcdcb69
100644
(file)
--- a/
hcons.mli
+++ b/
hcons.mli
@@
-1,4
+1,4
@@
-module type S =
+module type S
A
=
sig
type data
type t
sig
type data
type t
@@
-9,4
+9,17
@@
module type S =
val equal : t -> t -> bool
end
val equal : t -> t -> bool
end
+module type S =
+ sig
+ type data
+ type t = private { id : int;
+ key : int;
+ node : data }
+ val make : data -> t
+ val node : t -> data
+ val hash : t -> int
+ val uid : t -> int
+ val equal : t -> t -> bool
+ end
+
module Make (H : Hashtbl.HashedType) : S with type data = H.t
module Make (H : Hashtbl.HashedType) : S with type data = H.t