Merge branch 'master' of ssh://git.nguyen.vg/SXSI/xpathcomp

[SXSI/xpathcomp.git] / src / xml-tree-builder_stub.cpp

diff --git a/src/xml-tree-builder_stub.cpp b/src/xml-tree-builder_stub.cpp
index 6fc1c60..89442da 100644 (file)
--- a/src/xml-tree-builder_stub.cpp
+++ b/src/xml-tree-builder_stub.cpp
@@ -8,7 +8,7 @@ static xml_tree_builder*& OBJ_VAL(value v)
   return Obj_val<xml_tree_builder*>(v);
 }
 
-extern "C" value caml_xml_tree_builder_create(value unit)
+ML_BINDING value caml_xml_tree_builder_create(value unit)
 {
   CAMLparam1(unit);
   CAMLlocal1(result);
@@ -18,7 +18,7 @@ extern "C" value caml_xml_tree_builder_create(value unit)
   CAMLreturn(result);
 }
 
-extern "C" value caml_xml_tree_builder_open_document(value vbuilder,
+ML_BINDING value caml_xml_tree_builder_open_document(value vbuilder,
                                                      value vsrate,
                                                      value vdtc,
                                                      value vidxtype)
@@ -47,7 +47,9 @@ extern "C" value caml_xml_tree_builder_open_document(value vbuilder,
   CAMLreturn (Val_unit);
 }
 
-extern "C" value caml_xml_tree_builder_close_document(value vbuilder)
+
+ML_BINDING value caml_xml_tree_builder_close_document(value vbuilder)
+
 {
   CAMLparam1(vbuilder);
   CAMLlocal1(result);
@@ -59,7 +61,7 @@ extern "C" value caml_xml_tree_builder_close_document(value vbuilder)
   CAMLreturn (result);
 }
 
-extern "C" value caml_xml_tree_builder_open_tag(value vbuilder, value vtag)
+ML_BINDING value caml_xml_tree_builder_open_tag(value vbuilder, value vtag)
 {
   CAMLparam2(vbuilder, vtag);
   const char * tag = String_val(vtag);
@@ -67,7 +69,7 @@ extern "C" value caml_xml_tree_builder_open_tag(value vbuilder, value vtag)
   CAMLreturn (Val_unit);
 }
 
-extern "C" value caml_xml_tree_builder_close_tag(value vbuilder, value vtag)
+ML_BINDING value caml_xml_tree_builder_close_tag(value vbuilder, value vtag)
 {
   CAMLparam2(vbuilder, vtag);
   const char * tag = String_val(vtag);
@@ -75,7 +77,7 @@ extern "C" value caml_xml_tree_builder_close_tag(value vbuilder, value vtag)
   CAMLreturn (Val_unit);
 }
 
-extern "C" value caml_xml_tree_builder_text(value vbuilder, value vtext)
+ML_BINDING value caml_xml_tree_builder_text(value vbuilder, value vtext)
 {
   CAMLparam2(vbuilder, vtext);
   const char * text = String_val(vtext);