[r2005-02-22 22:06:31 by afrisch] encoding is optional

Original author: afrisch
Date: 2005-02-22 22:06:31+00:00

schema/schema_xml.ml

-(*open Pxp_ev_parser
-open Pxp_tree_parser
-*)
-
 open Encodings
 open Schema_pcre
 
@@ -34,12 +30,13 @@ let new_xsd_config () =
   List.iter
     (fun (p, ns) -> ns_manager#add_namespace (Utf8.get_str p) (Utf8.get_str ns))
     schema_ns_prefixes;
-  { Pxp_types.default_namespace_config with
+  { Pxp_types.default_namespace_config with      
+      Pxp_types.encoding = `Enc_utf8;
       Pxp_types.enable_namespace_processing = Some ns_manager
   }
 
 let node_of src =
-  Pxp_tree_parser.parse_wfcontent_entity (new_xsd_config ()) src spec
+  (Pxp_tree_parser.parse_wfdocument_entity (new_xsd_config ()) src spec) # root
 
 let node_of_uri uri =
   try