Use TaggedNext for full subtree iteration instead of TaggedDesc/TaggedFoll

[SXSI/xpathcomp.git] / src / OCamlDriver.cpp

diff --git a/src/OCamlDriver.cpp b/src/OCamlDriver.cpp
index db111db..275758a 100644 (file)
--- a/src/OCamlDriver.cpp
+++ b/src/OCamlDriver.cpp
@@ -342,6 +342,10 @@ NoAlloc extern "C"  value caml_xml_tree_tagged_descendant(value tree, value node
   return (Val_int(XMLTREE(tree)->TaggedDescendant(TREENODEVAL(node), TAGVAL(tag))));
 }
 
+NoAlloc extern "C"  value caml_xml_tree_tagged_next(value tree, value node, value tag){
+  return (Val_int(XMLTREE(tree)->TaggedNext(TREENODEVAL(node), TAGVAL(tag))));
+}
+
 NoAlloc extern "C"  value caml_xml_tree_select_descendant(value tree, value node, value tags){
   return (Val_int(XMLTREE(tree)->SelectDescendant(TREENODEVAL(node), HSET(tags))));
 }