X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=tree.mli;h=a2ad7f3010a035301071fec9d503148193718fac;hb=5b4679e20761058f1e04c123da52631c0dd265cc;hp=eb131391ce1f5f643c4034789ca275e811218940;hpb=7dea5fd8bedede27d4d601f85630a249bfab420b;p=SXSI%2Fxpathcomp.git

diff --git a/tree.mli b/tree.mli
index eb13139..a2ad7f3 100644
--- a/tree.mli
+++ b/tree.mli
@@ -17,8 +17,11 @@ sig
   val tag_pool : t -> Tag.pool
   val string : t -> string
   val descr : t -> descr
+  val is_node : t -> bool
   val left : t -> t
   val right : t -> t
+  val first_child : t -> t
+  val next_sibling : t -> t
   val parent : t -> t
   val id : t -> int
   val tag : t -> Tag.t
@@ -34,6 +37,12 @@ sig
   val contains_old : t -> string -> bool
   val dump : t -> unit 
   val get_string : t -> string_content -> string
+  val has_tagged_desc : t -> Tag.t -> bool
+  val has_tagged_foll : t -> Tag.t -> bool
+  val tagged_desc : t -> Tag.t -> t
+  val tagged_foll : t -> Tag.t -> t
+  val tagged_next : t -> Tag.t -> t
+  val subtree_tags : t -> Tag.t -> int
 end
 
 module Binary : BINARY