Missing files in the previous commit.

[SXSI/xpathcomp.git] / tree.ml

diff --git a/tree.ml b/tree.ml
index 3ebd9ad..aa35214 100644 (file)
--- a/tree.ml
+++ b/tree.ml
@@ -23,7 +23,7 @@ sig
   val equal : t -> t -> bool
 end
 
-module Binary = 
+module OldBinary = 
 struct
 
   type string_content = string
@@ -227,11 +227,11 @@ struct
         (* abstract type, values are pointers to a XMLTree C++ object *)
     
     
-  external parse_xml_uri : bool -> float ->  string  -> t = "caml_call_shredder_uri"
-  let parse_xml_uri  uri  = parse_xml_uri true 1.0 uri
+  external parse_xml_uri : string  -> t = "caml_call_shredder_uri"
+  let parse_xml_uri uri = parse_xml_uri uri
     
-  external parse_xml_string : bool -> float ->  string  -> t = "caml_call_shredder_string"
-  let parse_xml_string  = parse_xml_string true 1.0
+  external parse_xml_string :  string  -> t = "caml_call_shredder_string"
+  let parse_xml_string uri = parse_xml_string uri
     
 
   module Text =
@@ -416,3 +416,4 @@ struct
   end
     
 end
+include XML