Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
2cc25dba
Commit
2cc25dba
authored
Jul 10, 2007
by
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
8d61c300
Changes
1
Hide whitespace changes
Inline
Side-by-side
schema/schema_xml.ml
View file @
2cc25dba
(*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_wf
cont
ent_entity
(
new_xsd_config
()
)
src
spec
(
Pxp_tree_parser
.
parse_wf
docum
ent_entity
(
new_xsd_config
()
)
src
spec
)
#
root
let
node_of_uri
uri
=
try
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment