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

diff --git a/OCamlDriver.cpp b/OCamlDriver.cpp
index 0e3af12..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))));
 }