From abda8d601887079784b791d81780f1f6d6f87114 Mon Sep 17 00:00:00 2001 From: nvalimak Date: Wed, 27 Oct 2010 13:33:03 +0000 Subject: [PATCH] Added filename parameter for Save() and Load() git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@921 3cdefd35-fc62-479d-8e8d-bae585ffb9ca --- OCamlDriver.cpp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/OCamlDriver.cpp b/OCamlDriver.cpp index 417ab5b..b2c7627 100644 --- a/OCamlDriver.cpp +++ b/OCamlDriver.cpp @@ -130,18 +130,18 @@ extern "C" value caml_call_shredder_string(value data,value sf, value iet, valu 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*)); -- 2.17.1