+extern "C" CAMLprim value caml_xml_tree_parent(value tree, value id){
+ CAMLparam2(tree,id);
+ CAMLreturn(Val_int (XMLTREE(tree)->Parent(TREENODEVAL(id))));
+}
+extern "C" CAMLprim value caml_xml_tree_parent_doc(value tree, value id){
+ CAMLparam2(tree,id);
+ CAMLreturn(Val_int (XMLTREE(tree)->ParentNode((DocID) Int_val(id))));
+}
+
+extern "C" CAMLprim value caml_xml_tree_is_ancestor(value tree,value id1, value id2) {
+ CAMLparam3(tree,id1,id2);
+ CAMLreturn(Val_bool (XMLTREE(tree)->IsAncestor(TREENODEVAL(id1),TREENODEVAL(id2))));
+}
+
+extern "C" CAMLprim value caml_xml_tree_serialize(value tree, value filename){
+ CAMLparam2(tree,filename);
+ NOT_IMPLEMENTED("caml_xml_tree_serialize");
+ CAMLreturn(Val_unit);
+}
+
+extern "C" CAMLprim value caml_xml_tree_unserialize(value filename){
+ CAMLparam1(filename);
+ NOT_IMPLEMENTED("caml_xml_tree_unserialize");
+ CAMLreturn(Val_unit);
+}
+