projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.
[SXSI/xpathcomp.git]
/
hlist.mli
diff --git
a/hlist.mli
b/hlist.mli
index
15bafe5
..
9f8dfc3
100644
(file)
--- a/
hlist.mli
+++ b/
hlist.mli
@@
-1,9
+1,19
@@
module type S = sig
type elt
type 'a node = Nil | Cons of elt * 'a
module type S = sig
type elt
type 'a node = Nil | Cons of elt * 'a
- type t
+
+ module rec Node :
+ sig
+ include Hcons.S with type data = Data.t
+ end
+ and Data : sig
+ include Hashtbl.HashedType with type t = Node.t node
+ end
+ type data = Data.t
+ type t = Node.t
val hash : t -> int
val hash : t -> int
- val uid : t -> int
+ val uid : t -> Uid.t
+ val make : data -> t
val equal : t -> t -> bool
val nil : t
val node : t -> t node
val equal : t -> t -> bool
val nil : t
val node : t -> t node
@@
-15,6
+25,9
@@
module type S = sig
val iter : (elt -> 'a) -> t -> unit
val rev : t -> t
val rev_map : (elt -> elt) -> t -> t
val iter : (elt -> 'a) -> t -> unit
val rev : t -> t
val rev_map : (elt -> elt) -> t -> t
+ val length : t -> int
+
+ val with_id : Uid.t -> t
end
end
-module Make (H : Hcons.S) : S with type elt = H.t
+module Make (H : Hcons.S
A
) : S with type elt = H.t