};
}
+
+
+
void traversal_rec(XMLTree* tree, treeNode id){
DocID tid;
if (id == NULLT)
}
extern "C" CAMLprim value caml_text_collection_count(value tree,value str){
CAMLparam2(tree,str);
- //uchar * cstr = (uchar *) String_val(str);
- NOT_IMPLEMENTED("text_collection_count");
+ uchar * cstr = (uchar *) String_val(str);
+ CAMLreturn (Val_int((XMLTREE(tree)->Count(cstr))));
CAMLreturn (Val_unit);
}
CAMLparam3(tree,id,tag);
CAMLreturn(Val_int (XMLTREE(tree)->TaggedFoll(TREENODEVAL(id),(TagType) Int_val(tag))));
}
+extern "C" CAMLprim value caml_xml_tree_tagged_foll_below(value tree, value id, value tag,value root){
+ CAMLparam4(tree,id,tag,root);
+ CAMLreturn(Val_int (XMLTREE(tree)->TaggedFollBelow(TREENODEVAL(id),(TagType) Int_val(tag),TREENODEVAL(root))));
+}
extern "C" CAMLprim value caml_xml_tree_next_sibling(value tree, value id){