Commit 9dc65caf authored by Pietro Abate's avatar Pietro Abate

[r2005-04-21 07:21:04 by afrisch] Empty log message

Original author: afrisch
Date: 2005-04-21 07:21:04+00:00
parent d264570d
......@@ -568,7 +568,7 @@ let schema_of_uri uri =
let check_redef n table kind =
let name = get_name n in
if (QTable.mem elts name) then
if (QTable.mem table name) then
error ("Redefinition of " ^ kind ^ " " ^
Ns.QName.to_string name)
else name
......@@ -576,11 +576,11 @@ let schema_of_uri uri =
in
let rec register n = function
| "xsd:element" ->
let name = check_redef n elts "element" in
let name = check_redef n elts_elems "element" in
QTable.add elts_elems name n;
todo := (fun () -> ignore (resolve_elt name)):: !todo
| ("xsd:simpleType" | "xsd:complexType") as s ->
let name = check_redef n elts "type" in
let name = check_redef n typs "type" in
let l = if s="xsd:simpleType" then lazy (Simple (parse_simple_type n))
else lazy (parse_complex_type_def n) in
QTable.add typs name l
......
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