Commit 741ee66b authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-26 16:19:42 by szach] bugfix: schema attributes are now not qualified by default

Original author: szach
Date: 2003-11-26 16:19:42+00:00
parent a86c980b
...@@ -1444,7 +1444,7 @@ module Schema_converter = ...@@ -1444,7 +1444,7 @@ module Schema_converter =
end else end else
regexp regexp
and regexp_of_particle ~schema (min, max, term) = and regexp_of_particle ~schema (min, max, term, _) =
mk_len_regexp ?min:(Some min) ?max (regexp_of_term ~schema term) mk_len_regexp ?min:(Some min) ?max (regexp_of_term ~schema term)
(** @return a pair composed by a type for the attributes (a record) and a (** @return a pair composed by a type for the attributes (a record) and a
...@@ -1472,7 +1472,7 @@ module Schema_converter = ...@@ -1472,7 +1472,7 @@ module Schema_converter =
| _ -> cd_type_of_simple_type ~schema st | _ -> cd_type_of_simple_type ~schema st
in in
let r = if required then r else POptional r in let r = if required then r else POptional r in
(LabelPool.mk (schema.targetNamespace, name), r)) (LabelPool.mk (Ns.empty, name), r))
attr_uses in attr_uses in
PRecord (false, LabelMap.from_list_disj fields) PRecord (false, LabelMap.from_list_disj fields)
......
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