+extern "C" {
+ static struct custom_operations ops;
+ static bool initialized = false;
+}
+extern "C" void caml_xml_tree_finalize(value tree){
+ delete XMLTREE(tree);
+ return;
+}
+
+extern "C" void caml_init_ops () {
+
+ if (initialized)
+ return;
+ ops.identifier = (char*) "XMLTree";
+ ops.finalize = caml_xml_tree_finalize;
+ return;
+}
+
+extern "C" CAMLprim value caml_call_shredder_uri(value uri,value sf, value iet, value dtc){