X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=OCamlDriver.cpp;h=39190d6693eba1ba22175df906ca1448116b44bc;hb=1b4d4c7a0537d30e21068f06535c5d3a1af92f88;hp=a5e47f807996faca481ca350413fbc020b378b8f;hpb=0c2338bfcdae0df1c68112a10247dc4e68a483ff;p=SXSI%2Fxpathcomp.git

diff --git a/OCamlDriver.cpp b/OCamlDriver.cpp
index a5e47f8..39190d6 100644
--- a/OCamlDriver.cpp
+++ b/OCamlDriver.cpp
@@ -430,6 +430,10 @@ NoAlloc extern "C"  value caml_xml_tree_size(value tree){
   return (Val_int(XMLTREE(tree)->Size()));
 }
 
+NoAlloc extern "C"  value caml_xml_tree_num_tags(value tree){
+  return (Val_int(XMLTREE(tree)->NumTags()));
+}
+
 NoAlloc extern "C"  value caml_xml_tree_subtree_size(value tree, value node){
   return (Val_int(XMLTREE(tree)->SubtreeSize(TREENODEVAL(node))));
 }
@@ -786,7 +790,7 @@ extern "C" value caml_benchmark_jump(value tree,value tag){
   treeNode root = XMLTREE(tree)->FirstChild(0);
   root = XMLTREE(tree)->FirstChild(root);
   count = iterjump(XMLTREE(tree), root , Int_val(tag),0);
-  return Val_unit;
+  return Val_int(count);
 }
 
 int iterfcns(XMLTree* tree, treeNode node){