X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2FOCamlDriver.cpp;h=275758a3128965fc22295a876bfe7e9a4071c5dc;hb=0158dd0bd369b50f3e784b3f4b6122ea4cbde822;hp=db111dbc64740c103f920da09dd055be86fbbcd0;hpb=4c1b85252e5abd40ef544fa9acab3e2c990ad958;p=SXSI%2Fxpathcomp.git

diff --git a/src/OCamlDriver.cpp b/src/OCamlDriver.cpp
index db111db..275758a 100644
--- 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))));
 }