Commit 8f26f059 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-24 09:13:02 by szach] - use Ns.mk_ascii

- recognize mixed attribute

Original author: szach
Date: 2003-11-24 09:13:02+00:00
parent 946adf5c
...@@ -397,12 +397,13 @@ let rec parse_complex_type (resolver: resolver) n = ...@@ -397,12 +397,13 @@ let rec parse_complex_type (resolver: resolver) n =
else (* neither simpleContent nor complexContent *) else (* neither simpleContent nor complexContent *)
let base = anyType in let base = anyType in
let uses = parse_attribute_uses resolver `Restriction base n in let uses = parse_attribute_uses resolver `Restriction base n in
let mixed = _has_attribute "mixed" n && (_attribute "mixed" n = "true") in
let content_type = let content_type =
match find_particle n with match find_particle n with
| None -> CT_empty | None -> CT_empty
| Some pnode -> | Some pnode ->
let particle = parse_particle resolver pnode in let particle = parse_particle resolver pnode in
CT_model (particle, false) CT_model (particle, mixed)
in in
complex name anyType `Restriction uses content_type complex name anyType `Restriction uses content_type
...@@ -548,7 +549,7 @@ class lazy_resolver = ...@@ -548,7 +549,7 @@ class lazy_resolver =
method targetNamespace = method targetNamespace =
match targetNamespace with match targetNamespace with
| None -> Ns.empty | None -> Ns.empty
| Some s -> Ns.mk_latin1 s | Some s -> Ns.mk_ascii s
(* qualify names of entities before registering them with defined (* qualify names of entities before registering them with defined
* targetNamespace, if any *) * targetNamespace, if any *)
......
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