Commit 85514c00 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 3f81050c
......@@ -1444,7 +1444,7 @@ module Schema_converter =
end else
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)
(** @return a pair composed by a type for the attributes (a record) and a
......@@ -1472,7 +1472,7 @@ module Schema_converter =
| _ -> cd_type_of_simple_type ~schema st
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
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