Commit 303fd209 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2005-02-22 22:06:31+00:00
parent 33070a15
(*open Pxp_ev_parser
open Pxp_tree_parser
*)
open Encodings open Encodings
open Schema_pcre open Schema_pcre
...@@ -34,12 +30,13 @@ let new_xsd_config () = ...@@ -34,12 +30,13 @@ let new_xsd_config () =
List.iter List.iter
(fun (p, ns) -> ns_manager#add_namespace (Utf8.get_str p) (Utf8.get_str ns)) (fun (p, ns) -> ns_manager#add_namespace (Utf8.get_str p) (Utf8.get_str ns))
schema_ns_prefixes; 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 Pxp_types.enable_namespace_processing = Some ns_manager
} }
let node_of src = 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 = let node_of_uri uri =
try try
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment