X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fxml-tree-builder_stub.cpp;h=89442da98953ca17febf15e2b94a6a3d4d83cf37;hb=refs%2Fheads%2Fmaster;hp=6fc1c60bb2d5d21a7ceaed881fc1954361257ee4;hpb=9d19c60e10c9572885509b35c2b72f362968d6ab;p=SXSI%2Fxpathcomp.git

diff --git a/src/xml-tree-builder_stub.cpp b/src/xml-tree-builder_stub.cpp
index 6fc1c60..89442da 100644
--- 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);