CAMLreturn(doc);
}
-extern "C" value caml_xml_tree_save(value tree,value fd){
- CAMLparam2(tree,fd);
- XMLTREE(tree)->Save(Int_val(fd));
+extern "C" value caml_xml_tree_save(value tree,value fd, value str){
+ CAMLparam3(tree,fd,str);
+ XMLTREE(tree)->Save(Int_val(fd), String_val(str));
CAMLreturn (Val_unit);
}
-extern "C" value caml_xml_tree_load(value fd, value load_tc,value sf){
- CAMLparam3(fd,load_tc,sf);
+extern "C" value caml_xml_tree_load(value fd, value str, value load_tc,value sf){
+ CAMLparam4(fd,str,load_tc,sf);
CAMLlocal1(doc);
XMLTree * tree;
try {
- tree = XMLTree::Load(Int_val(fd),Bool_val(load_tc),Int_val(sf));
+ tree = XMLTree::Load(Int_val(fd),String_val(str),Bool_val(load_tc),Int_val(sf));
printf("Pointer to tree is %p\n", (void*) tree);
doc = caml_alloc_custom(&ops,sizeof(XMLTree*),1,2);
memcpy(Data_custom_val(doc),&tree,sizeof(XMLTree*));