Commit 9515d215 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-26 16:20:16 by szach] cosmetic changes

Original author: szach
Date: 2003-11-26 16:20:16+00:00
parent 741ee66b
......@@ -54,7 +54,7 @@ and variety =
| Union of simple_type_definition list
type attribute_declaration =
Utf8.t * (* name *)
Utf8.t * (* name *)
simple_type_definition * (* type *)
value_constraint option
......@@ -63,9 +63,13 @@ type attribute_use =
attribute_declaration *
value_constraint option
(* first construction as per predictive parsing. None stands for epsilon, Some
* Utf8.t stands for a start tag of identical name *)
type first = Utf8.t option list
type term =
| Model of model_group
| Elt of element_declaration ref
| Model of model_group
and model_group =
| All of particle list
......@@ -82,7 +86,8 @@ and content_type =
and particle =
xs_nonNegativeInteger * (* minOccurs *)
xs_nonNegativeInteger option * (* maxOccurs (None = "unbounded") *)
term
term *
first
and element_declaration =
int * (* unique id *)
......@@ -92,7 +97,7 @@ and element_declaration =
and complex_type_definition =
int * (* unique id *)
Utf8.t option * (* name *)
Utf8.t option * (* name *)
type_definition * (* base *)
derivation_type *
attribute_use list *
......
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