149 (name -- ("=" $$-- |
149 (name -- ("=" $$-- |
150 ("restrict" $$-- name -- |
150 ("restrict" $$-- name -- |
151 ("to" $$-- (enum1 "," string)))) >> mk_restriction_decl) |
151 ("to" $$-- (enum1 "," string)))) >> mk_restriction_decl) |
152 || |
152 || |
153 (name -- ("=" $$-- |
153 (name -- ("=" $$-- |
154 ("rename" $$-- name -- ("with" $$-- string))) >> mk_rename_decl) |
154 ("rename" $$-- name -- ("using" $$-- string))) >> mk_rename_decl) |
155 ; |
155 ; |
156 |
156 |
157 in |
157 in |
158 (******************************************************************) |
158 (******************************************************************) |
159 (* im folgenden werden in der ersten Liste alle beim Einlesen von *) |
159 (* im folgenden werden in der ersten Liste alle beim Einlesen von *) |
162 (* mitsamt dessen Einlesepattern ioa_decl *) |
162 (* mitsamt dessen Einlesepattern ioa_decl *) |
163 (******************************************************************) |
163 (******************************************************************) |
164 val _ = ThySyn.add_syntax |
164 val _ = ThySyn.add_syntax |
165 ["signature","actions","inputs", "outputs", "internals", "states", "initially", |
165 ["signature","actions","inputs", "outputs", "internals", "states", "initially", |
166 "transitions", "pre", "post", "transrel",":=", |
166 "transitions", "pre", "post", "transrel",":=", |
167 "compose","hide","in","restrict","to","rename","with"] |
167 "compose","hide","in","restrict","to","rename","using"] |
168 [axm_section "automaton" "" ioa_decl]; |
168 [axm_section "automaton" "" ioa_decl]; |
169 |
169 |
170 end; |
170 end; |