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
99f6b60a
Commit
99f6b60a
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2005-02-25 17:49:43 by afrisch] Inherit attr uses in extension
Original author: afrisch Date: 2005-02-25 17:49:43+00:00
parent
45bde1e4
Changes
3
Hide whitespace changes
Inline
Side-by-side
schema/TODO
View file @
99f6b60a
- substitution groups
- don't name schema, use namespaces
\ No newline at end of file
- don't name schema, use namespaces
- detect ill-formed recursion (e.g. between attribute groups)
\ No newline at end of file
schema/schema_parser.ml
View file @
99f6b60a
...
...
@@ -372,7 +372,8 @@ let schema_of_uri uri =
let
duses
=
parse_attribute_uses
n
in
(* attribute uses from base type *)
match
base
,
derivation_type
with
|
Complex
{
ct_attrs
=
uses
}
,
`Extension
->
duses
|
Complex
{
ct_attrs
=
uses
}
,
`Extension
->
merge_attribute_uses
[
duses
;
uses
]
|
Complex
{
ct_attrs
=
uses
}
,
`Restriction
->
let
(
&=
)
u1
u2
=
(* by name equality over attribute uses *)
...
...
typing/typer.ml
View file @
99f6b60a
...
...
@@ -1708,7 +1708,6 @@ module Schema_converter =
and
attr_uses
(
attrs
,
other
)
=
(* TODO: produce directly internal types *)
(* (is it better ? we wouln't benefit from hash-consing) *)
print_endline
(
"Other = "
^
(
if
other
then
"true"
else
"false"
));
let
fields
=
List
.
map
(
fun
at
->
...
...
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