TAG(tag))));
}
-NoAlloc extern "C" value caml_xml_tree_subtree_elements(value tree, value node,
- value atts)
+NoAlloc extern "C" value caml_xml_tree_subtree_elements(value tree,
+ value node)
{
- return (Val_int(XMLTREE(tree)->subtree_elements(TREENODE(node),
- TAGLIST(atts))));
+ return (Val_int(XMLTREE(tree)->subtree_elements(TREENODE(node))));
}
NoAlloc extern "C" value caml_xml_tree_is_leaf(value tree, value node){
}; \
caml_initialize(&Field(res_array, i), Val_int(j)); \
}; \
- fprintf(stderr, "Raw results: %i, Sorted reulsts %i\n", uresults.size(), results.size()); \
+ fprintf(stderr, "Raw results: %lu, Sorted reulsts %lu\n", uresults.size(), results.size()); \
free(cstr); \
res = caml_alloc(2, 0); \
Store_field(res, 0, res_bv); \