Branch data Line data Source code
1 : : /* do not edit automatically generated by mc from P1Build. */
2 : : /* output from m2-1.bnf, automatically generated do not edit if these
3 : : are the top two lines in the file.
4 : :
5 : : Copyright (C) 2001-2025 Free Software Foundation, Inc.
6 : : Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
7 : :
8 : : This file is part of GNU Modula-2.
9 : :
10 : : GNU Modula-2 is free software; you can redistribute it and/or modify
11 : : it under the terms of the GNU General Public License as published by
12 : : the Free Software Foundation; either version 3, or (at your option)
13 : : any later version.
14 : :
15 : : GNU Modula-2 is distributed in the hope that it will be useful, but
16 : : WITHOUT ANY WARRANTY; without even the implied warranty of
17 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 : : General Public License for more details.
19 : :
20 : : You should have received a copy of the GNU General Public License
21 : : along with GNU Modula-2; see the file COPYING. If not,
22 : : see <https://www.gnu.org/licenses/>. */
23 : :
24 : : #define INCLUDE_MEMORY
25 : : #include "config.h"
26 : : #include "system.h"
27 : : #include "gcc-consolidation.h"
28 : :
29 : : #include <stdbool.h>
30 : : # if !defined (PROC_D)
31 : : # define PROC_D
32 : : typedef void (*PROC_t) (void);
33 : : typedef struct { PROC_t proc; } PROC;
34 : : # endif
35 : :
36 : : # if !defined (TRUE)
37 : : # define TRUE (1==1)
38 : : # endif
39 : :
40 : : # if !defined (FALSE)
41 : : # define FALSE (1==0)
42 : : # endif
43 : :
44 : : #define _P1Build_C
45 : :
46 : : #include "GP1Build.h"
47 : : # include "GM2LexBuf.h"
48 : : # include "GM2Error.h"
49 : : # include "GM2Quads.h"
50 : : # include "GM2Reserved.h"
51 : : # include "GNameKey.h"
52 : : # include "GStrLib.h"
53 : : # include "GP2SymBuild.h"
54 : : # include "GDynamicStrings.h"
55 : : # include "GM2Debug.h"
56 : : # include "GM2Printf.h"
57 : : # include "GSymbolTable.h"
58 : : # include "GP1SymBuild.h"
59 : :
60 : : # define Debugging false
61 : : # define Pass0 false
62 : : # define Pass1 true
63 : : # define Pass2 false
64 : : # define Pass3 false
65 : : # define MaxInsert 10
66 : : typedef unsigned int P1Build_stop0;
67 : :
68 : : typedef unsigned int P1Build_SetOfStop0;
69 : :
70 : : typedef unsigned int P1Build_stop1;
71 : :
72 : : typedef unsigned int P1Build_SetOfStop1;
73 : :
74 : : typedef unsigned int P1Build_stop2;
75 : :
76 : : typedef unsigned int P1Build_SetOfStop2;
77 : :
78 : : static bool WasNoError;
79 : : static NameKey_Name LastIdent;
80 : : static unsigned int InsertCount;
81 : :
82 : : /*
83 : : CompilationUnit - returns TRUE if the input was correct enough to parse
84 : : in future passes.
85 : : */
86 : :
87 : : extern "C" bool P1Build_CompilationUnit (void);
88 : : static void ErrorString (DynamicStrings_String s);
89 : : static void ErrorArray (const char *a_, unsigned int _a_high);
90 : :
91 : : /*
92 : : DescribeStop - issues a message explaining what tokens were expected
93 : : */
94 : :
95 : : static DynamicStrings_String DescribeStop (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
96 : :
97 : : /*
98 : : DescribeError - issues a message explaining what tokens were expected
99 : : */
100 : :
101 : : static void DescribeError (void);
102 : :
103 : : /*
104 : : SyntaxError - after a syntax error we skip all tokens up until we reach
105 : : a stop symbol.
106 : : */
107 : :
108 : : static void SyntaxError (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
109 : :
110 : : /*
111 : : SyntaxCheck -
112 : : */
113 : :
114 : : static void SyntaxCheck (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
115 : :
116 : : /*
117 : : WarnMissingToken - generates a warning message about a missing token, t.
118 : : */
119 : :
120 : : static void WarnMissingToken (M2Reserved_toktype t);
121 : :
122 : : /*
123 : : MissingToken - generates a warning message about a missing token, t.
124 : : */
125 : :
126 : : static void MissingToken (M2Reserved_toktype t);
127 : :
128 : : /*
129 : : CheckAndInsert -
130 : : */
131 : :
132 : : static bool CheckAndInsert (M2Reserved_toktype t, P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
133 : :
134 : : /*
135 : : InStopSet
136 : : */
137 : :
138 : : static bool InStopSet (M2Reserved_toktype t, P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
139 : :
140 : : /*
141 : : PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
142 : : If it is not then it will insert a token providing the token
143 : : is one of ; ] ) } . OF END ,
144 : :
145 : : if the stopset contains <identtok> then we do not insert a token
146 : : */
147 : :
148 : : static void PeepToken (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
149 : :
150 : : /*
151 : : Expect -
152 : : */
153 : :
154 : : static void Expect (M2Reserved_toktype t, P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
155 : :
156 : : /*
157 : : Ident - error checking varient of Ident
158 : : */
159 : :
160 : : static void Ident (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
161 : :
162 : : /*
163 : : IdentScope - error checking varient of Ident but it remembers the
164 : : idents name in the current scope.
165 : : */
166 : :
167 : : static void IdentScope (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
168 : :
169 : : /*
170 : : PossiblyExportIdent - error checking varient of Ident which also
171 : : checks to see if this ident should be
172 : : explicitly exported.
173 : : */
174 : :
175 : : static void PossiblyExportIdent (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
176 : :
177 : : /*
178 : : string -
179 : : */
180 : :
181 : : static void string (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
182 : :
183 : : /*
184 : : Integer -
185 : : */
186 : :
187 : : static void Integer (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
188 : :
189 : : /*
190 : : Real -
191 : : */
192 : :
193 : : static void Real (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
194 : :
195 : : /*
196 : : FileUnit :=
197 : : % PushAutoOff %
198 : : ( DefinitionModule |
199 : : ImplementationOrProgramModule )
200 : : % PopAuto %
201 : :
202 : :
203 : : first symbols:implementationtok, moduletok, definitiontok
204 : :
205 : : cannot reachend
206 : : */
207 : :
208 : : static void FileUnit (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
209 : :
210 : : /*
211 : : ProgramModule := 'MODULE'
212 : : % M2Error.DefaultProgramModule %
213 : :
214 : : % PushAutoOn ; %
215 : : Ident
216 : : % P1StartBuildProgramModule ; %
217 : :
218 : : % PushAutoOff ; %
219 : : [ Priority ] ';'
220 : : % PushAutoOn ; %
221 : : { Import
222 : : % BuildImportOuterModule(FALSE) %
223 : : }
224 : : % PopAuto %
225 : : Block
226 : : % PushAutoOn %
227 : : Ident
228 : : % P1EndBuildProgramModule %
229 : : '.'
230 : : % PopAuto ; PopAuto ; PopAuto %
231 : :
232 : :
233 : : first symbols:moduletok
234 : :
235 : : cannot reachend
236 : : */
237 : :
238 : : static void ProgramModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
239 : :
240 : : /*
241 : : ImplementationModule := 'IMPLEMENTATION'
242 : : % M2Error.DefaultImplementationModule %
243 : : 'MODULE'
244 : : % PushAutoOn ; %
245 : : Ident
246 : : % P1StartBuildImplementationModule ; %
247 : :
248 : : % PushAutoOff ; %
249 : : [ Priority ] ';'
250 : : % PushAutoOn ; %
251 : : { Import
252 : : % BuildImportOuterModule(FALSE) %
253 : : }
254 : : % PopAuto ; %
255 : : Block
256 : : % PushAutoOn ; %
257 : : Ident
258 : : % P1EndBuildImplementationModule %
259 : :
260 : : % PopAuto ; PopAuto ; PopAuto ; %
261 : : '.'
262 : :
263 : : first symbols:implementationtok
264 : :
265 : : cannot reachend
266 : : */
267 : :
268 : : static void ImplementationModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
269 : :
270 : : /*
271 : : ImplementationOrProgramModule := ImplementationModule |
272 : : ProgramModule
273 : :
274 : : first symbols:moduletok, implementationtok
275 : :
276 : : cannot reachend
277 : : */
278 : :
279 : : static void ImplementationOrProgramModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
280 : :
281 : : /*
282 : : Number := Integer | Real
283 : :
284 : : first symbols:realtok, integertok
285 : :
286 : : cannot reachend
287 : : */
288 : :
289 : : static void Number (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
290 : :
291 : : /*
292 : : Qualident := Ident { '.' Ident }
293 : :
294 : : first symbols:identtok
295 : :
296 : : cannot reachend
297 : : */
298 : :
299 : : static void Qualident (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
300 : :
301 : : /*
302 : : ConstantDeclaration := PossiblyExportIdent '=' ConstExpression
303 : :
304 : : first symbols:identtok
305 : :
306 : : cannot reachend
307 : : */
308 : :
309 : : static void ConstantDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
310 : :
311 : : /*
312 : : ConstExpression :=
313 : : % PushAutoOff %
314 : : SimpleConstExpr [ Relation SimpleConstExpr ]
315 : :
316 : : % PopAuto %
317 : :
318 : :
319 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
320 : :
321 : : cannot reachend
322 : : */
323 : :
324 : : static void ConstExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
325 : :
326 : : /*
327 : : Relation := '=' | '#' | '<>' | '<' | '<=' |
328 : : '>' | '>=' | 'IN'
329 : :
330 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
331 : :
332 : : cannot reachend
333 : : */
334 : :
335 : : static void Relation (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
336 : :
337 : : /*
338 : : SimpleConstExpr := UnaryOrConstTerm { AddOperator
339 : : ConstTerm }
340 : :
341 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
342 : :
343 : : cannot reachend
344 : : */
345 : :
346 : : static void SimpleConstExpr (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
347 : :
348 : : /*
349 : : UnaryOrConstTerm := '+' ConstTerm |
350 : : '-' ConstTerm |
351 : : ConstTerm
352 : :
353 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
354 : :
355 : : cannot reachend
356 : : */
357 : :
358 : : static void UnaryOrConstTerm (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
359 : :
360 : : /*
361 : : AddOperator := '+' | '-' | 'OR'
362 : :
363 : : first symbols:ortok, minustok, plustok
364 : :
365 : : cannot reachend
366 : : */
367 : :
368 : : static void AddOperator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
369 : :
370 : : /*
371 : : ConstTerm := ConstFactor { MulOperator ConstFactor }
372 : :
373 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok
374 : :
375 : : cannot reachend
376 : : */
377 : :
378 : : static void ConstTerm (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
379 : :
380 : : /*
381 : : MulOperator := '*' | '/' | 'DIV' | 'MOD' |
382 : : 'REM' | 'AND' | '&'
383 : :
384 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
385 : :
386 : : cannot reachend
387 : : */
388 : :
389 : : static void MulOperator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
390 : :
391 : : /*
392 : : ConstFactor := Number | ConstString |
393 : : ConstSetOrQualidentOrFunction |
394 : : '(' ConstExpression ')' |
395 : : 'NOT' ConstFactor |
396 : : ConstAttribute
397 : :
398 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok
399 : :
400 : : cannot reachend
401 : : */
402 : :
403 : : static void ConstFactor (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
404 : :
405 : : /*
406 : : ConstString := string
407 : :
408 : : first symbols:stringtok
409 : :
410 : : cannot reachend
411 : : */
412 : :
413 : : static void ConstString (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
414 : :
415 : : /*
416 : : ComponentElement := ConstExpression [ '..' ConstExpression ]
417 : :
418 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
419 : :
420 : : cannot reachend
421 : : */
422 : :
423 : : static void ComponentElement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
424 : :
425 : : /*
426 : : ComponentValue := ComponentElement [ 'BY' ConstExpression ]
427 : :
428 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
429 : :
430 : : cannot reachend
431 : : */
432 : :
433 : : static void ComponentValue (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
434 : :
435 : : /*
436 : : ArraySetRecordValue := ComponentValue { ',' ComponentValue }
437 : :
438 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
439 : :
440 : : cannot reachend
441 : : */
442 : :
443 : : static void ArraySetRecordValue (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
444 : :
445 : : /*
446 : : Constructor := '{' [ ArraySetRecordValue ] '}'
447 : :
448 : : first symbols:lcbratok
449 : :
450 : : cannot reachend
451 : : */
452 : :
453 : : static void Constructor (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
454 : :
455 : : /*
456 : : ConstSetOrQualidentOrFunction := Constructor |
457 : : Qualident [ Constructor |
458 : : ConstActualParameters ]
459 : :
460 : : first symbols:identtok, lcbratok
461 : :
462 : : cannot reachend
463 : : */
464 : :
465 : : static void ConstSetOrQualidentOrFunction (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
466 : :
467 : : /*
468 : : ConstActualParameters := '(' [ ExpList ] ')'
469 : :
470 : : first symbols:lparatok
471 : :
472 : : cannot reachend
473 : : */
474 : :
475 : : static void ConstActualParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
476 : :
477 : : /*
478 : : ConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
479 : : '(' '(' ConstAttributeExpression
480 : : ')' ')'
481 : :
482 : : first symbols:attributetok
483 : :
484 : : cannot reachend
485 : : */
486 : :
487 : : static void ConstAttribute (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
488 : :
489 : : /*
490 : : ConstAttributeExpression := Ident | '<' Qualident
491 : : ',' Ident '>'
492 : :
493 : : first symbols:lesstok, identtok
494 : :
495 : : cannot reachend
496 : : */
497 : :
498 : : static void ConstAttributeExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
499 : :
500 : : /*
501 : : ByteAlignment := ''
502 : :
503 : : first symbols:ldirectivetok
504 : :
505 : : cannot reachend
506 : : */
507 : :
508 : : static void ByteAlignment (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
509 : :
510 : : /*
511 : : Alignment := [ ByteAlignment ]
512 : :
513 : : first symbols:ldirectivetok
514 : :
515 : : reachend
516 : : */
517 : :
518 : : static void Alignment (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
519 : :
520 : : /*
521 : : TypeDeclaration :=
522 : : % PushAutoOn %
523 : : ( IdentScope '=' Type Alignment )
524 : :
525 : : % PopAuto %
526 : :
527 : :
528 : : first symbols:identtok
529 : :
530 : : cannot reachend
531 : : */
532 : :
533 : : static void TypeDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
534 : :
535 : : /*
536 : : Type :=
537 : : % VAR Name: CARDINAL ; %
538 : :
539 : : % PushAutoOff %
540 : : ( SimpleType | ArrayType | RecordType |
541 : : SetType | PointerType |
542 : : ProcedureType )
543 : : % PopAuto %
544 : :
545 : : % PopT(Name) remove TYPE name from stack %
546 : :
547 : :
548 : : first symbols:lparatok, lsbratok, proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok
549 : :
550 : : cannot reachend
551 : : */
552 : :
553 : : static void Type (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
554 : :
555 : : /*
556 : : SimpleType := Qualident [ SubrangeType ] |
557 : : Enumeration | SubrangeType
558 : :
559 : : first symbols:lsbratok, lparatok, identtok
560 : :
561 : : cannot reachend
562 : : */
563 : :
564 : : static void SimpleType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
565 : :
566 : : /*
567 : : Enumeration := '('
568 : : % PushAutoOn %
569 : : ( PossiblyExportIdentList
570 : : % StartBuildEnumeration %
571 : :
572 : : % EndBuildEnumeration %
573 : : )
574 : : % PopAuto %
575 : : ')'
576 : :
577 : : first symbols:lparatok
578 : :
579 : : cannot reachend
580 : : */
581 : :
582 : : static void Enumeration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
583 : :
584 : : /*
585 : : IdentList := Ident
586 : : % VAR
587 : : on: BOOLEAN ;
588 : : n : CARDINAL ; %
589 : :
590 : : % on := IsAutoPushOn() ;
591 : : IF on
592 : : THEN
593 : : n := 1
594 : : END %
595 : : { ',' Ident
596 : : % IF on
597 : : THEN
598 : : INC(n)
599 : : END %
600 : : }
601 : : % IF on
602 : : THEN
603 : : PushT(n)
604 : : END %
605 : :
606 : :
607 : : first symbols:identtok
608 : :
609 : : cannot reachend
610 : : */
611 : :
612 : : static void IdentList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
613 : :
614 : : /*
615 : : PossiblyExportIdentList := PossiblyExportIdent
616 : : % VAR
617 : : on: BOOLEAN ;
618 : : n : CARDINAL ; %
619 : :
620 : : % on := IsAutoPushOn() ;
621 : : IF on
622 : : THEN
623 : : n := 1
624 : : END %
625 : : { ',' PossiblyExportIdent
626 : :
627 : : % IF on
628 : : THEN
629 : : INC(n)
630 : : END %
631 : : }
632 : : % IF on
633 : : THEN
634 : : PushT(n)
635 : : END %
636 : :
637 : :
638 : : first symbols:identtok
639 : :
640 : : cannot reachend
641 : : */
642 : :
643 : : static void PossiblyExportIdentList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
644 : :
645 : : /*
646 : : SubrangeType := '[' ConstExpression '..' ConstExpression
647 : : ']'
648 : :
649 : : first symbols:lsbratok
650 : :
651 : : cannot reachend
652 : : */
653 : :
654 : : static void SubrangeType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
655 : :
656 : : /*
657 : : ArrayType := 'ARRAY' SimpleType { ',' SimpleType }
658 : : 'OF'
659 : : % BuildNulName %
660 : : Type
661 : :
662 : : first symbols:arraytok
663 : :
664 : : cannot reachend
665 : : */
666 : :
667 : : static void ArrayType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
668 : :
669 : : /*
670 : : RecordType := 'RECORD' [ DefaultRecordAttributes ]
671 : : FieldListSequence 'END'
672 : :
673 : : first symbols:recordtok
674 : :
675 : : cannot reachend
676 : : */
677 : :
678 : : static void RecordType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
679 : :
680 : : /*
681 : : DefaultRecordAttributes := ''
682 : :
683 : : first symbols:ldirectivetok
684 : :
685 : : cannot reachend
686 : : */
687 : :
688 : : static void DefaultRecordAttributes (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
689 : :
690 : : /*
691 : : RecordFieldPragma := [ '' ]
692 : :
693 : : first symbols:ldirectivetok
694 : :
695 : : reachend
696 : : */
697 : :
698 : : static void RecordFieldPragma (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
699 : :
700 : : /*
701 : : FieldPragmaExpression :=
702 : : % PushAutoOff %
703 : : Ident [ '(' ConstExpression
704 : : ')' ]
705 : : % PopAuto %
706 : :
707 : :
708 : : first symbols:identtok
709 : :
710 : : cannot reachend
711 : : */
712 : :
713 : : static void FieldPragmaExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
714 : :
715 : : /*
716 : : AttributeExpression :=
717 : : % PushAutoOff %
718 : : Ident '(' ConstExpression
719 : : ')'
720 : : % PopAuto %
721 : :
722 : :
723 : : first symbols:identtok
724 : :
725 : : cannot reachend
726 : : */
727 : :
728 : : static void AttributeExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
729 : :
730 : : /*
731 : : AttributeUnused := [ '' ]
732 : :
733 : : first symbols:ldirectivetok
734 : :
735 : : reachend
736 : : */
737 : :
738 : : static void AttributeUnused (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
739 : :
740 : : /*
741 : : FieldListSequence := FieldListStatement { ';' FieldListStatement }
742 : :
743 : : first symbols:casetok, identtok, semicolontok
744 : :
745 : : reachend
746 : : */
747 : :
748 : : static void FieldListSequence (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
749 : :
750 : : /*
751 : : FieldListStatement := [ FieldList ]
752 : :
753 : : first symbols:identtok, casetok
754 : :
755 : : reachend
756 : : */
757 : :
758 : : static void FieldListStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
759 : :
760 : : /*
761 : : FieldList := IdentList ':'
762 : : % BuildNulName %
763 : : Type RecordFieldPragma |
764 : : 'CASE' CaseTag 'OF' Varient { '|' Varient }
765 : : [ 'ELSE' FieldListSequence ] 'END'
766 : :
767 : : first symbols:casetok, identtok
768 : :
769 : : cannot reachend
770 : : */
771 : :
772 : : static void FieldList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
773 : :
774 : : /*
775 : : TagIdent := [ Ident ]
776 : :
777 : : first symbols:identtok
778 : :
779 : : reachend
780 : : */
781 : :
782 : : static void TagIdent (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
783 : :
784 : : /*
785 : : CaseTag := TagIdent [ ':' Qualident ]
786 : :
787 : : first symbols:colontok, identtok
788 : :
789 : : reachend
790 : : */
791 : :
792 : : static void CaseTag (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
793 : :
794 : : /*
795 : : Varient := [ VarientCaseLabelList ':' FieldListSequence ]
796 : :
797 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
798 : :
799 : : reachend
800 : : */
801 : :
802 : : static void Varient (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
803 : :
804 : : /*
805 : : VarientCaseLabelList := VarientCaseLabels { ','
806 : : VarientCaseLabels }
807 : :
808 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
809 : :
810 : : cannot reachend
811 : : */
812 : :
813 : : static void VarientCaseLabelList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
814 : :
815 : : /*
816 : : VarientCaseLabels := ConstExpression [ '..' ConstExpression ]
817 : :
818 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
819 : :
820 : : cannot reachend
821 : : */
822 : :
823 : : static void VarientCaseLabels (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
824 : :
825 : : /*
826 : : CaseLabelList := CaseLabels { ',' CaseLabels }
827 : :
828 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
829 : :
830 : : cannot reachend
831 : : */
832 : :
833 : : static void CaseLabelList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
834 : :
835 : : /*
836 : : CaseLabels := ConstExpression [ '..' ConstExpression ]
837 : :
838 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
839 : :
840 : : cannot reachend
841 : : */
842 : :
843 : : static void CaseLabels (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
844 : :
845 : : /*
846 : : SetType :=
847 : : % VAR Name: CARDINAL ; %
848 : : ( 'SET' | 'PACKEDSET' ) 'OF'
849 : : % BuildNulName ; %
850 : : SimpleType
851 : : % PopT(Name) ; %
852 : :
853 : :
854 : : first symbols:oftok, packedsettok, settok
855 : :
856 : : cannot reachend
857 : : */
858 : :
859 : : static void SetType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
860 : :
861 : : /*
862 : : PointerType := 'POINTER' 'TO'
863 : : % BuildNulName %
864 : : Type
865 : :
866 : : first symbols:pointertok
867 : :
868 : : cannot reachend
869 : : */
870 : :
871 : : static void PointerType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
872 : :
873 : : /*
874 : : ProcedureType := 'PROCEDURE' [ FormalTypeList ]
875 : :
876 : : first symbols:proceduretok
877 : :
878 : : cannot reachend
879 : : */
880 : :
881 : : static void ProcedureType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
882 : :
883 : : /*
884 : : FormalTypeList := '(' ( ')' FormalReturn |
885 : : ProcedureParameters ')'
886 : : FormalReturn )
887 : :
888 : : first symbols:lparatok
889 : :
890 : : cannot reachend
891 : : */
892 : :
893 : : static void FormalTypeList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
894 : :
895 : : /*
896 : : FormalReturn := [ ':' OptReturnType ]
897 : :
898 : : first symbols:colontok
899 : :
900 : : reachend
901 : : */
902 : :
903 : : static void FormalReturn (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
904 : :
905 : : /*
906 : : OptReturnType := '[' Qualident ']' |
907 : : Qualident
908 : :
909 : : first symbols:identtok, lsbratok
910 : :
911 : : cannot reachend
912 : : */
913 : :
914 : : static void OptReturnType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
915 : :
916 : : /*
917 : : ProcedureParameters := ProcedureParameter { ','
918 : : ProcedureParameter }
919 : :
920 : : first symbols:identtok, arraytok, periodperiodperiodtok, vartok
921 : :
922 : : cannot reachend
923 : : */
924 : :
925 : : static void ProcedureParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
926 : :
927 : : /*
928 : : ProcedureParameter := '...' | 'VAR' FormalType |
929 : : FormalType
930 : :
931 : : first symbols:arraytok, identtok, vartok, periodperiodperiodtok
932 : :
933 : : cannot reachend
934 : : */
935 : :
936 : : static void ProcedureParameter (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
937 : :
938 : : /*
939 : : VarIdent := PossiblyExportIdent [ '[' ConstExpression
940 : : ']' ]
941 : :
942 : : first symbols:identtok
943 : :
944 : : cannot reachend
945 : : */
946 : :
947 : : static void VarIdent (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
948 : :
949 : : /*
950 : : VariableDeclaration := ( VarIdentList ':'
951 : : % BuildNulName %
952 : : Type Alignment )
953 : :
954 : : first symbols:identtok
955 : :
956 : : cannot reachend
957 : : */
958 : :
959 : : static void VariableDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
960 : :
961 : : /*
962 : : VarIdentList := VarIdent
963 : : % VAR
964 : : on: BOOLEAN ;
965 : : n : CARDINAL ; %
966 : :
967 : : % on := IsAutoPushOn() ;
968 : : IF on
969 : : THEN
970 : : n := 1
971 : : END %
972 : : { ',' VarIdent
973 : : % IF on
974 : : THEN
975 : : INC(n)
976 : : END %
977 : : }
978 : : % IF on
979 : : THEN
980 : : PushT(n)
981 : : END %
982 : :
983 : :
984 : : first symbols:identtok
985 : :
986 : : cannot reachend
987 : : */
988 : :
989 : : static void VarIdentList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
990 : :
991 : : /*
992 : : Designator := Qualident { SubDesignator }
993 : :
994 : : first symbols:identtok
995 : :
996 : : cannot reachend
997 : : */
998 : :
999 : : static void Designator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1000 : :
1001 : : /*
1002 : : SubDesignator := '.' Ident | '[' ExpList ']' |
1003 : : '^'
1004 : :
1005 : : first symbols:uparrowtok, lsbratok, periodtok
1006 : :
1007 : : cannot reachend
1008 : : */
1009 : :
1010 : : static void SubDesignator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1011 : :
1012 : : /*
1013 : : ExpList := Expression { ',' Expression }
1014 : :
1015 : : first symbols:identtok, lcbratok, attributetok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1016 : :
1017 : : cannot reachend
1018 : : */
1019 : :
1020 : : static void ExpList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1021 : :
1022 : : /*
1023 : : Expression :=
1024 : : % PushAutoOff %
1025 : : SimpleExpression [ Relation SimpleExpression ]
1026 : :
1027 : : % PopAuto %
1028 : :
1029 : :
1030 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, attributetok, plustok, minustok
1031 : :
1032 : : cannot reachend
1033 : : */
1034 : :
1035 : : static void Expression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1036 : :
1037 : : /*
1038 : : SimpleExpression := [ '+' | '-' ] Term { AddOperator
1039 : : Term }
1040 : :
1041 : : first symbols:identtok, lcbratok, attributetok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1042 : :
1043 : : cannot reachend
1044 : : */
1045 : :
1046 : : static void SimpleExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1047 : :
1048 : : /*
1049 : : Term := Factor { MulOperator Factor }
1050 : :
1051 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, attributetok
1052 : :
1053 : : cannot reachend
1054 : : */
1055 : :
1056 : : static void Term (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1057 : :
1058 : : /*
1059 : : Factor := Number | string | SetOrDesignatorOrFunction |
1060 : : '(' Expression ')' |
1061 : : 'NOT' Factor | ConstAttribute
1062 : :
1063 : : first symbols:identtok, lcbratok, attributetok, nottok, lparatok, stringtok, integertok, realtok
1064 : :
1065 : : cannot reachend
1066 : : */
1067 : :
1068 : : static void Factor (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1069 : :
1070 : : /*
1071 : : SetOrDesignatorOrFunction := ( Qualident [ Constructor |
1072 : : SimpleDes
1073 : : [ ActualParameters ] ] |
1074 : : Constructor )
1075 : :
1076 : : first symbols:lcbratok, identtok
1077 : :
1078 : : cannot reachend
1079 : : */
1080 : :
1081 : : static void SetOrDesignatorOrFunction (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1082 : :
1083 : : /*
1084 : : SimpleDes := { '.' Ident | '[' ExpList ']' |
1085 : : '^' }
1086 : :
1087 : : first symbols:uparrowtok, lsbratok, periodtok
1088 : :
1089 : : reachend
1090 : : */
1091 : :
1092 : : static void SimpleDes (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1093 : :
1094 : : /*
1095 : : ActualParameters := '(' [ ExpList ] ')'
1096 : :
1097 : : first symbols:lparatok
1098 : :
1099 : : cannot reachend
1100 : : */
1101 : :
1102 : : static void ActualParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1103 : :
1104 : : /*
1105 : : Statement := [ AssignmentOrProcedureCall |
1106 : : IfStatement | CaseStatement |
1107 : : WhileStatement |
1108 : : RepeatStatement |
1109 : : LoopStatement | ForStatement |
1110 : : WithStatement | AsmStatement |
1111 : : 'EXIT' | 'RETURN' [ Expression ] |
1112 : : RetryStatement ]
1113 : :
1114 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
1115 : :
1116 : : reachend
1117 : : */
1118 : :
1119 : : static void Statement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1120 : :
1121 : : /*
1122 : : RetryStatement := 'RETRY'
1123 : :
1124 : : first symbols:retrytok
1125 : :
1126 : : cannot reachend
1127 : : */
1128 : :
1129 : : static void RetryStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1130 : :
1131 : : /*
1132 : : AssignmentOrProcedureCall := Designator ( ':=' Expression |
1133 : : ActualParameters |
1134 : :
1135 : : % epsilon %
1136 : : )
1137 : :
1138 : : first symbols:identtok
1139 : :
1140 : : cannot reachend
1141 : : */
1142 : :
1143 : : static void AssignmentOrProcedureCall (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1144 : :
1145 : : /*
1146 : : StatementSequence := Statement { ';' Statement }
1147 : :
1148 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
1149 : :
1150 : : reachend
1151 : : */
1152 : :
1153 : : static void StatementSequence (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1154 : :
1155 : : /*
1156 : : IfStatement := 'IF' Expression 'THEN' StatementSequence
1157 : : { 'ELSIF' Expression 'THEN' StatementSequence }
1158 : : [ 'ELSE' StatementSequence ] 'END'
1159 : :
1160 : : first symbols:iftok
1161 : :
1162 : : cannot reachend
1163 : : */
1164 : :
1165 : : static void IfStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1166 : :
1167 : : /*
1168 : : CaseStatement := 'CASE' Expression 'OF' Case { '|'
1169 : : Case }
1170 : : [ 'ELSE' StatementSequence ] 'END'
1171 : :
1172 : : first symbols:casetok
1173 : :
1174 : : cannot reachend
1175 : : */
1176 : :
1177 : : static void CaseStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1178 : :
1179 : : /*
1180 : : Case := [ CaseLabelList ':' StatementSequence ]
1181 : :
1182 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1183 : :
1184 : : reachend
1185 : : */
1186 : :
1187 : : static void Case (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1188 : :
1189 : : /*
1190 : : WhileStatement := 'WHILE' Expression 'DO' StatementSequence
1191 : : 'END'
1192 : :
1193 : : first symbols:whiletok
1194 : :
1195 : : cannot reachend
1196 : : */
1197 : :
1198 : : static void WhileStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1199 : :
1200 : : /*
1201 : : RepeatStatement := 'REPEAT' StatementSequence 'UNTIL'
1202 : : Expression
1203 : :
1204 : : first symbols:repeattok
1205 : :
1206 : : cannot reachend
1207 : : */
1208 : :
1209 : : static void RepeatStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1210 : :
1211 : : /*
1212 : : ForStatement := 'FOR' Ident ':=' Expression 'TO'
1213 : : Expression [ 'BY' ConstExpression ]
1214 : : 'DO' StatementSequence 'END'
1215 : :
1216 : : first symbols:fortok
1217 : :
1218 : : cannot reachend
1219 : : */
1220 : :
1221 : : static void ForStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1222 : :
1223 : : /*
1224 : : LoopStatement := 'LOOP' StatementSequence 'END'
1225 : :
1226 : : first symbols:looptok
1227 : :
1228 : : cannot reachend
1229 : : */
1230 : :
1231 : : static void LoopStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1232 : :
1233 : : /*
1234 : : WithStatement := 'WITH' Designator 'DO' StatementSequence
1235 : : 'END'
1236 : :
1237 : : first symbols:withtok
1238 : :
1239 : : cannot reachend
1240 : : */
1241 : :
1242 : : static void WithStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1243 : :
1244 : : /*
1245 : : ProcedureDeclaration :=
1246 : : % VAR top: CARDINAL ; %
1247 : :
1248 : : % top := Top () %
1249 : : ProcedureHeading ';' PostProcedureHeading
1250 : :
1251 : : % Assert (top = Top ()) %
1252 : :
1253 : :
1254 : : first symbols:proceduretok
1255 : :
1256 : : cannot reachend
1257 : : */
1258 : :
1259 : : static void ProcedureDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1260 : :
1261 : : /*
1262 : : PostProcedureHeading := ProperProcedure |
1263 : : ForwardDeclaration
1264 : :
1265 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok, forwardtok
1266 : :
1267 : : cannot reachend
1268 : : */
1269 : :
1270 : : static void PostProcedureHeading (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1271 : :
1272 : : /*
1273 : : ForwardDeclaration := 'FORWARD'
1274 : : % EndBuildForward (GetTokenNo ()-1) %
1275 : :
1276 : :
1277 : : first symbols:forwardtok
1278 : :
1279 : : cannot reachend
1280 : : */
1281 : :
1282 : : static void ForwardDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1283 : :
1284 : : /*
1285 : : ProperProcedure := ProcedureBlock
1286 : : % PushAutoOn %
1287 : : Ident
1288 : : % EndBuildProcedure %
1289 : :
1290 : : % PopAuto %
1291 : :
1292 : :
1293 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok, begintok, endtok
1294 : :
1295 : : cannot reachend
1296 : : */
1297 : :
1298 : : static void ProperProcedure (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1299 : :
1300 : : /*
1301 : : DefineBuiltinProcedure := '__ATTRIBUTE__' '__BUILTIN__'
1302 : : '(' '(' Ident ')' ')' |
1303 : : '__INLINE__'
1304 : : % PushT(InlineTok) %
1305 : : |
1306 : : % PushT(NulTok) %
1307 : :
1308 : :
1309 : : first symbols:inlinetok, attributetok
1310 : :
1311 : : reachend
1312 : : */
1313 : :
1314 : : static void DefineBuiltinProcedure (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1315 : :
1316 : : /*
1317 : : ProcedureHeading := 'PROCEDURE'
1318 : : % M2Error.DefaultProcedure %
1319 : :
1320 : : % PushAutoOn %
1321 : : DefineBuiltinProcedure ( PossiblyExportIdent
1322 : :
1323 : : % StartBuildProcedure %
1324 : :
1325 : : % PushAutoOff %
1326 : : [ FormalParameters ]
1327 : : AttributeNoReturn
1328 : :
1329 : : % PopAuto %
1330 : :
1331 : : % BuildProcedureHeading %
1332 : : )
1333 : :
1334 : : % PopAuto %
1335 : :
1336 : :
1337 : : first symbols:proceduretok
1338 : :
1339 : : cannot reachend
1340 : : */
1341 : :
1342 : : static void ProcedureHeading (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1343 : :
1344 : : /*
1345 : : Builtin := '__BUILTIN__'
1346 : : % PushT(BuiltinTok) %
1347 : : | '__INLINE__'
1348 : : % PushT(InlineTok) %
1349 : : |
1350 : : % PushT(NulTok) %
1351 : :
1352 : :
1353 : : first symbols:inlinetok, builtintok
1354 : :
1355 : : reachend
1356 : : */
1357 : :
1358 : : static void Builtin (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1359 : :
1360 : : /*
1361 : : DefProcedureHeading := 'PROCEDURE'
1362 : : % M2Error.DefaultProcedure %
1363 : : Builtin
1364 : : % PushAutoOn %
1365 : : ( PossiblyExportIdent
1366 : : % StartBuildProcedure %
1367 : :
1368 : : % PushAutoOff %
1369 : : [ DefFormalParameters ]
1370 : : AttributeNoReturn
1371 : : % PopAuto %
1372 : :
1373 : : % BuildProcedureHeading %
1374 : : )
1375 : : % PopAuto %
1376 : :
1377 : : % M2Error.LeaveErrorScope %
1378 : :
1379 : :
1380 : : first symbols:proceduretok
1381 : :
1382 : : cannot reachend
1383 : : */
1384 : :
1385 : : static void DefProcedureHeading (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1386 : :
1387 : : /*
1388 : : AttributeNoReturn := [ '' ]
1389 : :
1390 : : first symbols:ldirectivetok
1391 : :
1392 : : reachend
1393 : : */
1394 : :
1395 : : static void AttributeNoReturn (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1396 : :
1397 : : /*
1398 : : ProcedureBlock := { Declaration } [ 'BEGIN' BlockBody ]
1399 : : 'END'
1400 : :
1401 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
1402 : :
1403 : : cannot reachend
1404 : : */
1405 : :
1406 : : static void ProcedureBlock (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1407 : :
1408 : : /*
1409 : : Block := { Declaration } InitialBlock FinalBlock
1410 : : 'END'
1411 : :
1412 : : first symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
1413 : :
1414 : : cannot reachend
1415 : : */
1416 : :
1417 : : static void Block (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1418 : :
1419 : : /*
1420 : : InitialBlock := [ 'BEGIN' BlockBody ]
1421 : :
1422 : : first symbols:begintok
1423 : :
1424 : : reachend
1425 : : */
1426 : :
1427 : : static void InitialBlock (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1428 : :
1429 : : /*
1430 : : FinalBlock := [ 'FINALLY' BlockBody ]
1431 : :
1432 : : first symbols:finallytok
1433 : :
1434 : : reachend
1435 : : */
1436 : :
1437 : : static void FinalBlock (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1438 : :
1439 : : /*
1440 : : BlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
1441 : :
1442 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
1443 : :
1444 : : reachend
1445 : : */
1446 : :
1447 : : static void BlockBody (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1448 : :
1449 : : /*
1450 : : NormalPart := StatementSequence
1451 : :
1452 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
1453 : :
1454 : : reachend
1455 : : */
1456 : :
1457 : : static void NormalPart (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1458 : :
1459 : : /*
1460 : : ExceptionalPart := StatementSequence
1461 : :
1462 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
1463 : :
1464 : : reachend
1465 : : */
1466 : :
1467 : : static void ExceptionalPart (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1468 : :
1469 : : /*
1470 : : Declaration := 'CONST' { ConstantDeclaration ';' } |
1471 : : 'TYPE' { TypeDeclaration ';' } |
1472 : : 'VAR' { VariableDeclaration ';' } |
1473 : : ProcedureDeclaration ';' |
1474 : : ModuleDeclaration ';'
1475 : :
1476 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok
1477 : :
1478 : : cannot reachend
1479 : : */
1480 : :
1481 : : static void Declaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1482 : :
1483 : : /*
1484 : : DefFormalParameters := '(' [ DefMultiFPSection ]
1485 : : ')' FormalReturn
1486 : :
1487 : : first symbols:lparatok
1488 : :
1489 : : cannot reachend
1490 : : */
1491 : :
1492 : : static void DefFormalParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1493 : :
1494 : : /*
1495 : : DefMultiFPSection := DefExtendedFP |
1496 : : FPSection [ ';' DefMultiFPSection ]
1497 : :
1498 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
1499 : :
1500 : : cannot reachend
1501 : : */
1502 : :
1503 : : static void DefMultiFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1504 : :
1505 : : /*
1506 : : FormalParameters := '(' [ MultiFPSection ] ')'
1507 : : FormalReturn
1508 : :
1509 : : first symbols:lparatok
1510 : :
1511 : : cannot reachend
1512 : : */
1513 : :
1514 : : static void FormalParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1515 : :
1516 : : /*
1517 : : MultiFPSection := ExtendedFP | FPSection [ ';'
1518 : : MultiFPSection ]
1519 : :
1520 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
1521 : :
1522 : : cannot reachend
1523 : : */
1524 : :
1525 : : static void MultiFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1526 : :
1527 : : /*
1528 : : FPSection := NonVarFPSection |
1529 : : VarFPSection
1530 : :
1531 : : first symbols:vartok, identtok
1532 : :
1533 : : cannot reachend
1534 : : */
1535 : :
1536 : : static void FPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1537 : :
1538 : : /*
1539 : : DefExtendedFP := DefOptArg | '...'
1540 : :
1541 : : first symbols:lsbratok, periodperiodperiodtok
1542 : :
1543 : : cannot reachend
1544 : : */
1545 : :
1546 : : static void DefExtendedFP (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1547 : :
1548 : : /*
1549 : : ExtendedFP := OptArg | '...'
1550 : :
1551 : : first symbols:lsbratok, periodperiodperiodtok
1552 : :
1553 : : cannot reachend
1554 : : */
1555 : :
1556 : : static void ExtendedFP (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1557 : :
1558 : : /*
1559 : : VarFPSection := 'VAR' IdentList ':' FormalType [
1560 : : AttributeUnused ]
1561 : :
1562 : : first symbols:vartok
1563 : :
1564 : : cannot reachend
1565 : : */
1566 : :
1567 : : static void VarFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1568 : :
1569 : : /*
1570 : : NonVarFPSection := IdentList ':' FormalType [ AttributeUnused ]
1571 : :
1572 : : first symbols:identtok
1573 : :
1574 : : cannot reachend
1575 : : */
1576 : :
1577 : : static void NonVarFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1578 : :
1579 : : /*
1580 : : OptArg := '[' IdentScope ':' FormalType [ '=' ConstExpression ]
1581 : : ']'
1582 : :
1583 : : first symbols:lsbratok
1584 : :
1585 : : cannot reachend
1586 : : */
1587 : :
1588 : : static void OptArg (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1589 : :
1590 : : /*
1591 : : DefOptArg := '[' IdentScope ':' FormalType '=' ConstExpression
1592 : : ']'
1593 : :
1594 : : first symbols:lsbratok
1595 : :
1596 : : cannot reachend
1597 : : */
1598 : :
1599 : : static void DefOptArg (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1600 : :
1601 : : /*
1602 : : FormalType := { 'ARRAY' 'OF' } Qualident
1603 : :
1604 : : first symbols:identtok, arraytok
1605 : :
1606 : : cannot reachend
1607 : : */
1608 : :
1609 : : static void FormalType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1610 : :
1611 : : /*
1612 : : ModuleDeclaration := 'MODULE'
1613 : : % M2Error.DefaultInnerModule %
1614 : :
1615 : : % PushAutoOn %
1616 : : Ident
1617 : : % StartBuildInnerModule %
1618 : :
1619 : : % PushAutoOff %
1620 : : [ Priority ] ';'
1621 : : % PushAutoOn %
1622 : : { Import
1623 : : % BuildImportInnerModule %
1624 : : } [ Export
1625 : : % BuildExportInnerModule %
1626 : : ]
1627 : : % PopAuto %
1628 : : Block
1629 : : % PushAutoOn %
1630 : : Ident
1631 : : % EndBuildInnerModule %
1632 : :
1633 : : % PopAuto ; PopAuto ; PopAuto %
1634 : :
1635 : :
1636 : : first symbols:moduletok
1637 : :
1638 : : cannot reachend
1639 : : */
1640 : :
1641 : : static void ModuleDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1642 : :
1643 : : /*
1644 : : Priority := '[' ConstExpression ']'
1645 : :
1646 : : first symbols:lsbratok
1647 : :
1648 : : cannot reachend
1649 : : */
1650 : :
1651 : : static void Priority (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1652 : :
1653 : : /*
1654 : : Export := 'EXPORT' ( 'QUALIFIED'
1655 : : % PushT(QualifiedTok) %
1656 : : IdentList |
1657 : : 'UNQUALIFIED'
1658 : : % PushT(UnQualifiedTok) %
1659 : : IdentList |
1660 : :
1661 : : % PushT(ExportTok) %
1662 : : IdentList ) ';'
1663 : :
1664 : : first symbols:exporttok
1665 : :
1666 : : cannot reachend
1667 : : */
1668 : :
1669 : : static void Export (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1670 : :
1671 : : /*
1672 : : Import := 'FROM'
1673 : : % BuildImportStatement (GetTokenNo () -1) %
1674 : : Ident
1675 : : % AddImportToImportStatement (TRUE) %
1676 : : 'IMPORT' IdentList ';' |
1677 : : 'IMPORT'
1678 : : % BuildImportStatement (GetTokenNo () -1) %
1679 : :
1680 : : % PushT(ImportTok)
1681 : : determines whether Ident or Module %
1682 : : IdentImportList ';'
1683 : :
1684 : : first symbols:importtok, fromtok
1685 : :
1686 : : cannot reachend
1687 : : */
1688 : :
1689 : : static void Import (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1690 : :
1691 : : /*
1692 : : IdentImportList := Ident
1693 : : % VAR
1694 : : on: BOOLEAN ;
1695 : : n : CARDINAL ; %
1696 : :
1697 : : % on := IsAutoPushOn() ;
1698 : : IF on
1699 : : THEN
1700 : : AddImportToImportStatement (FALSE) ;
1701 : : n := 1
1702 : : END %
1703 : : { ',' Ident
1704 : : % IF on
1705 : : THEN
1706 : : AddImportToImportStatement (FALSE) ;
1707 : : INC(n)
1708 : : END %
1709 : : }
1710 : : % IF on
1711 : : THEN
1712 : : PushT(n)
1713 : : END %
1714 : :
1715 : :
1716 : : first symbols:identtok
1717 : :
1718 : : cannot reachend
1719 : : */
1720 : :
1721 : : static void IdentImportList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1722 : :
1723 : : /*
1724 : : DefinitionModule := 'DEFINITION'
1725 : : % M2Error.DefaultDefinitionModule %
1726 : : 'MODULE'
1727 : : % PushAutoOn %
1728 : : ( 'FOR' string |
1729 : :
1730 : : % epsilon
1731 : : PushT(NulSym) %
1732 : : ) Ident
1733 : : % P1StartBuildDefinitionModule %
1734 : : ';' { Import
1735 : : % BuildImportOuterModule(TRUE) %
1736 : : } [ Export
1737 : : % BuildExportOuterModule %
1738 : : ]
1739 : : % PushAutoOff %
1740 : : { Definition }
1741 : : % PopAuto %
1742 : : 'END' Ident
1743 : : % P1EndBuildDefinitionModule %
1744 : : '.'
1745 : : % PopAuto %
1746 : :
1747 : :
1748 : : first symbols:definitiontok
1749 : :
1750 : : cannot reachend
1751 : : */
1752 : :
1753 : : static void DefinitionModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1754 : :
1755 : : /*
1756 : : Definition := 'CONST' { ConstantDeclaration ';' } |
1757 : : 'TYPE'
1758 : : % PushAutoOn %
1759 : : { PossiblyExportIdent ( ';'
1760 : : % BuildHiddenType %
1761 : : | '=' Type
1762 : : Alignment
1763 : : ';' ) }
1764 : :
1765 : : % PopAuto %
1766 : : |
1767 : : 'VAR' { VariableDeclaration ';' } |
1768 : : DefProcedureHeading ';'
1769 : :
1770 : : first symbols:proceduretok, vartok, typetok, consttok
1771 : :
1772 : : cannot reachend
1773 : : */
1774 : :
1775 : : static void Definition (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1776 : :
1777 : : /*
1778 : : AsmStatement := 'ASM' [ 'VOLATILE' ] '(' AsmOperands
1779 : : ')'
1780 : :
1781 : : first symbols:asmtok
1782 : :
1783 : : cannot reachend
1784 : : */
1785 : :
1786 : : static void AsmStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1787 : :
1788 : : /*
1789 : : NamedOperand := '[' Ident ']'
1790 : :
1791 : : first symbols:lsbratok
1792 : :
1793 : : cannot reachend
1794 : : */
1795 : :
1796 : : static void NamedOperand (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1797 : :
1798 : : /*
1799 : : AsmOperandName := [ NamedOperand ]
1800 : :
1801 : : first symbols:lsbratok
1802 : :
1803 : : reachend
1804 : : */
1805 : :
1806 : : static void AsmOperandName (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1807 : :
1808 : : /*
1809 : : AsmOperands := ConstExpression [ ':' AsmList [ ':'
1810 : : AsmList
1811 : : [
1812 : : ':' TrashList ] ] ]
1813 : :
1814 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1815 : :
1816 : : cannot reachend
1817 : : */
1818 : :
1819 : : static void AsmOperands (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1820 : :
1821 : : /*
1822 : : AsmList := [ AsmElement ] { ',' AsmElement }
1823 : :
1824 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok, lsbratok, commatok
1825 : :
1826 : : reachend
1827 : : */
1828 : :
1829 : : static void AsmList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1830 : :
1831 : : /*
1832 : : AsmElement := AsmOperandName ConstExpression '('
1833 : : Expression ')'
1834 : :
1835 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, lsbratok
1836 : :
1837 : : cannot reachend
1838 : : */
1839 : :
1840 : : static void AsmElement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1841 : :
1842 : : /*
1843 : : TrashList := [ ConstExpression ] { ',' ConstExpression }
1844 : :
1845 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, commatok
1846 : :
1847 : : reachend
1848 : : */
1849 : :
1850 : : static void TrashList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2);
1851 : :
1852 : 0 : static void ErrorString (DynamicStrings_String s)
1853 : : {
1854 : : /* giving up. */
1855 : 0 : M2Error_ErrorStringAt (s, M2LexBuf_GetTokenNo ());
1856 : 0 : WasNoError = false;
1857 : 0 : }
1858 : :
1859 : 0 : static void ErrorArray (const char *a_, unsigned int _a_high)
1860 : : {
1861 : 0 : char a[_a_high+1];
1862 : :
1863 : : /* make a local copy of each unbounded array. */
1864 : 0 : memcpy (a, a_, _a_high+1);
1865 : :
1866 : 0 : ErrorString (DynamicStrings_InitString ((const char *) a, _a_high));
1867 : 0 : }
1868 : :
1869 : :
1870 : : /*
1871 : : DescribeStop - issues a message explaining what tokens were expected
1872 : : */
1873 : :
1874 : 0 : static DynamicStrings_String DescribeStop (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
1875 : : {
1876 : 0 : unsigned int n;
1877 : 0 : DynamicStrings_String str;
1878 : 0 : DynamicStrings_String message;
1879 : :
1880 : 0 : n = 0;
1881 : 0 : message = DynamicStrings_InitString ((const char *) "", 0);
1882 : 0 : if ((((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1883 : : {
1884 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kstring}", 10)));
1885 : 0 : n += 1;
1886 : : }
1887 : 0 : if ((((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1888 : : {
1889 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kreal number}", 15)));
1890 : 0 : n += 1;
1891 : : }
1892 : 0 : if ((((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1893 : : {
1894 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kidentifier}", 14)));
1895 : 0 : n += 1;
1896 : : }
1897 : 0 : if ((((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1898 : : {
1899 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kinteger number}", 18)));
1900 : 0 : n += 1;
1901 : : }
1902 : 0 : if ((((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1903 : : {
1904 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__INLINE__}", 14)));
1905 : 0 : n += 1;
1906 : : }
1907 : 0 : if ((((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1908 : : {
1909 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__BUILTIN__}", 15)));
1910 : 0 : n += 1;
1911 : : }
1912 : 0 : if ((((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1913 : : {
1914 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__ATTRIBUTE__}", 17)));
1915 : 0 : n += 1;
1916 : : }
1917 : 0 : if ((((1 << (M2Reserved_filetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1918 : : {
1919 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__FILE__}", 12)));
1920 : 0 : n += 1;
1921 : : }
1922 : 0 : if ((((1 << (M2Reserved_linetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1923 : : {
1924 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__LINE__}", 12)));
1925 : 0 : n += 1;
1926 : : }
1927 : 0 : if ((((1 << (M2Reserved_datetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1928 : : {
1929 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__DATE__}", 12)));
1930 : 0 : n += 1;
1931 : : }
1932 : 0 : if ((((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1933 : : {
1934 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K...}", 7)));
1935 : 0 : n += 1;
1936 : : }
1937 : 0 : if ((((1 << (M2Reserved_volatiletok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1938 : : {
1939 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KVOLATILE}", 12)));
1940 : 0 : n += 1;
1941 : : }
1942 : 0 : if ((((1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1943 : : {
1944 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KASM}", 7)));
1945 : 0 : n += 1;
1946 : : }
1947 : 0 : if ((((1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1948 : : {
1949 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KWITH}", 8)));
1950 : 0 : n += 1;
1951 : : }
1952 : 0 : if ((((1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1953 : : {
1954 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KWHILE}", 9)));
1955 : 0 : n += 1;
1956 : : }
1957 : 0 : if ((((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1958 : : {
1959 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KVAR}", 7)));
1960 : 0 : n += 1;
1961 : : }
1962 : 0 : if ((((1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1963 : : {
1964 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KUNTIL}", 9)));
1965 : 0 : n += 1;
1966 : : }
1967 : 0 : if ((((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1968 : : {
1969 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTYPE}", 8)));
1970 : 0 : n += 1;
1971 : : }
1972 : 0 : if ((((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1973 : : {
1974 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTO}", 6)));
1975 : 0 : n += 1;
1976 : : }
1977 : 0 : if ((((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1978 : : {
1979 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTHEN}", 8)));
1980 : 0 : n += 1;
1981 : : }
1982 : 0 : if ((((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1983 : : {
1984 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KSET}", 7)));
1985 : 0 : n += 1;
1986 : : }
1987 : 0 : if ((((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1988 : : {
1989 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRETURN}", 10)));
1990 : 0 : n += 1;
1991 : : }
1992 : 0 : if ((((1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1993 : : {
1994 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRETRY}", 9)));
1995 : 0 : n += 1;
1996 : : }
1997 : 0 : if ((((1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
1998 : : {
1999 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KREPEAT}", 10)));
2000 : 0 : n += 1;
2001 : : }
2002 : 0 : if ((((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2003 : : {
2004 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KREM}", 7)));
2005 : 0 : n += 1;
2006 : : }
2007 : 0 : if ((((1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2008 : : {
2009 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRECORD}", 10)));
2010 : 0 : n += 1;
2011 : : }
2012 : 0 : if ((((1 << (M2Reserved_unqualifiedtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2013 : : {
2014 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KUNQUALIFIED}", 15)));
2015 : 0 : n += 1;
2016 : : }
2017 : 0 : if ((((1 << (M2Reserved_qualifiedtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2018 : : {
2019 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KQUALIFIED}", 13)));
2020 : 0 : n += 1;
2021 : : }
2022 : 0 : if ((((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) & (stopset1)) != 0))
2023 : : {
2024 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPROCEDURE}", 13)));
2025 : 0 : n += 1;
2026 : : }
2027 : 0 : if ((((1 << (M2Reserved_pointertok-M2Reserved_arraytok)) & (stopset1)) != 0))
2028 : : {
2029 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPOINTER}", 11)));
2030 : 0 : n += 1;
2031 : : }
2032 : 0 : if ((((1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) & (stopset1)) != 0))
2033 : : {
2034 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPACKEDSET}", 13)));
2035 : 0 : n += 1;
2036 : : }
2037 : 0 : if ((((1 << (M2Reserved_ortok-M2Reserved_arraytok)) & (stopset1)) != 0))
2038 : : {
2039 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KOR}", 6)));
2040 : 0 : n += 1;
2041 : : }
2042 : 0 : if ((((1 << (M2Reserved_oftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2043 : : {
2044 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KOF}", 6)));
2045 : 0 : n += 1;
2046 : : }
2047 : 0 : if ((((1 << (M2Reserved_nottok-M2Reserved_arraytok)) & (stopset1)) != 0))
2048 : : {
2049 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KNOT}", 7)));
2050 : 0 : n += 1;
2051 : : }
2052 : 0 : if ((((1 << (M2Reserved_moduletok-M2Reserved_arraytok)) & (stopset1)) != 0))
2053 : : {
2054 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KMODULE}", 10)));
2055 : 0 : n += 1;
2056 : : }
2057 : 0 : if ((((1 << (M2Reserved_modtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2058 : : {
2059 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KMOD}", 7)));
2060 : 0 : n += 1;
2061 : : }
2062 : 0 : if ((((1 << (M2Reserved_looptok-M2Reserved_arraytok)) & (stopset1)) != 0))
2063 : : {
2064 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KLOOP}", 8)));
2065 : 0 : n += 1;
2066 : : }
2067 : 0 : if ((((1 << (M2Reserved_intok-M2Reserved_arraytok)) & (stopset1)) != 0))
2068 : : {
2069 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIN}", 6)));
2070 : 0 : n += 1;
2071 : : }
2072 : 0 : if ((((1 << (M2Reserved_importtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2073 : : {
2074 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIMPORT}", 10)));
2075 : 0 : n += 1;
2076 : : }
2077 : 0 : if ((((1 << (M2Reserved_implementationtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2078 : : {
2079 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIMPLEMENTATION}", 18)));
2080 : 0 : n += 1;
2081 : : }
2082 : 0 : if ((((1 << (M2Reserved_iftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2083 : : {
2084 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIF}", 6)));
2085 : 0 : n += 1;
2086 : : }
2087 : 0 : if ((((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2088 : : {
2089 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFROM}", 8)));
2090 : 0 : n += 1;
2091 : : }
2092 : 0 : if ((((1 << (M2Reserved_forwardtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2093 : : {
2094 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFORWARD}", 11)));
2095 : 0 : n += 1;
2096 : : }
2097 : 0 : if ((((1 << (M2Reserved_fortok-M2Reserved_arraytok)) & (stopset1)) != 0))
2098 : : {
2099 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFOR}", 7)));
2100 : 0 : n += 1;
2101 : : }
2102 : 0 : if ((((1 << (M2Reserved_finallytok-M2Reserved_arraytok)) & (stopset1)) != 0))
2103 : : {
2104 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFINALLY}", 11)));
2105 : 0 : n += 1;
2106 : : }
2107 : 0 : if ((((1 << (M2Reserved_exporttok-M2Reserved_arraytok)) & (stopset1)) != 0))
2108 : : {
2109 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXPORT}", 10)));
2110 : 0 : n += 1;
2111 : : }
2112 : 0 : if ((((1 << (M2Reserved_exittok-M2Reserved_arraytok)) & (stopset1)) != 0))
2113 : : {
2114 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXIT}", 8)));
2115 : 0 : n += 1;
2116 : : }
2117 : 0 : if ((((1 << (M2Reserved_excepttok-M2Reserved_arraytok)) & (stopset1)) != 0))
2118 : : {
2119 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXCEPT}", 10)));
2120 : 0 : n += 1;
2121 : : }
2122 : 0 : if ((((1 << (M2Reserved_endtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2123 : : {
2124 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEND}", 7)));
2125 : 0 : n += 1;
2126 : : }
2127 : 0 : if ((((1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2128 : : {
2129 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KELSIF}", 9)));
2130 : 0 : n += 1;
2131 : : }
2132 : 0 : if ((((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) & (stopset1)) != 0))
2133 : : {
2134 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KELSE}", 8)));
2135 : 0 : n += 1;
2136 : : }
2137 : 0 : if ((((1 << (M2Reserved_dotok-M2Reserved_arraytok)) & (stopset1)) != 0))
2138 : : {
2139 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDO}", 6)));
2140 : 0 : n += 1;
2141 : : }
2142 : 0 : if ((((1 << (M2Reserved_divtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2143 : : {
2144 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDIV}", 7)));
2145 : 0 : n += 1;
2146 : : }
2147 : 0 : if ((((1 << (M2Reserved_definitiontok-M2Reserved_arraytok)) & (stopset1)) != 0))
2148 : : {
2149 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDEFINITION}", 14)));
2150 : 0 : n += 1;
2151 : : }
2152 : 0 : if ((((1 << (M2Reserved_consttok-M2Reserved_arraytok)) & (stopset1)) != 0))
2153 : : {
2154 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KCONST}", 9)));
2155 : 0 : n += 1;
2156 : : }
2157 : 0 : if ((((1 << (M2Reserved_casetok-M2Reserved_arraytok)) & (stopset1)) != 0))
2158 : : {
2159 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KCASE}", 8)));
2160 : 0 : n += 1;
2161 : : }
2162 : 0 : if ((((1 << (M2Reserved_bytok-M2Reserved_arraytok)) & (stopset1)) != 0))
2163 : : {
2164 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KBY}", 6)));
2165 : 0 : n += 1;
2166 : : }
2167 : 0 : if ((((1 << (M2Reserved_begintok-M2Reserved_arraytok)) & (stopset1)) != 0))
2168 : : {
2169 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KBEGIN}", 9)));
2170 : 0 : n += 1;
2171 : : }
2172 : 0 : if ((((1 << (M2Reserved_arraytok-M2Reserved_arraytok)) & (stopset1)) != 0))
2173 : : {
2174 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KARRAY}", 9)));
2175 : 0 : n += 1;
2176 : : }
2177 : 0 : if ((((1 << (M2Reserved_andtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2178 : : {
2179 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KAND}", 7)));
2180 : 0 : n += 1;
2181 : : }
2182 : 0 : if ((((1 << (M2Reserved_colontok-M2Reserved_eoftok)) & (stopset0)) != 0))
2183 : : {
2184 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K:}", 5)));
2185 : 0 : n += 1;
2186 : : }
2187 : 0 : if ((((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2188 : : {
2189 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K..}", 6)));
2190 : 0 : n += 1;
2191 : : }
2192 : 0 : if ((((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2193 : : {
2194 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K*>}", 6)));
2195 : 0 : n += 1;
2196 : : }
2197 : 0 : if ((((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2198 : : {
2199 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<*}", 6)));
2200 : 0 : n += 1;
2201 : : }
2202 : 0 : if ((((1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
2203 : : {
2204 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K>=}", 6)));
2205 : 0 : n += 1;
2206 : : }
2207 : 0 : if ((((1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
2208 : : {
2209 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<=}", 6)));
2210 : 0 : n += 1;
2211 : : }
2212 : 0 : if ((((1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) & (stopset0)) != 0))
2213 : : {
2214 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<>}", 6)));
2215 : 0 : n += 1;
2216 : : }
2217 : 0 : if ((((1 << (M2Reserved_hashtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2218 : : {
2219 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K#}", 5)));
2220 : 0 : n += 1;
2221 : : }
2222 : 0 : if ((((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
2223 : : {
2224 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K=}", 5)));
2225 : 0 : n += 1;
2226 : : }
2227 : 0 : if ((((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2228 : : {
2229 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K^}", 5)));
2230 : 0 : n += 1;
2231 : : }
2232 : 0 : if ((((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) & (stopset0)) != 0))
2233 : : {
2234 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K;}", 5)));
2235 : 0 : n += 1;
2236 : : }
2237 : 0 : if ((((1 << (M2Reserved_commatok-M2Reserved_eoftok)) & (stopset0)) != 0))
2238 : : {
2239 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K,}", 5)));
2240 : 0 : n += 1;
2241 : : }
2242 : 0 : if ((((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2243 : : {
2244 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K.}", 5)));
2245 : 0 : n += 1;
2246 : : }
2247 : 0 : if ((((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2248 : : {
2249 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K&}", 5)));
2250 : 0 : n += 1;
2251 : : }
2252 : 0 : if ((((1 << (M2Reserved_dividetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2253 : : {
2254 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K/}", 5)));
2255 : 0 : n += 1;
2256 : : }
2257 : 0 : if ((((1 << (M2Reserved_timestok-M2Reserved_eoftok)) & (stopset0)) != 0))
2258 : : {
2259 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K*}", 5)));
2260 : 0 : n += 1;
2261 : : }
2262 : 0 : if ((((1 << (M2Reserved_minustok-M2Reserved_eoftok)) & (stopset0)) != 0))
2263 : : {
2264 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K-}", 5)));
2265 : 0 : n += 1;
2266 : : }
2267 : 0 : if ((((1 << (M2Reserved_plustok-M2Reserved_eoftok)) & (stopset0)) != 0))
2268 : : {
2269 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K+}", 5)));
2270 : 0 : n += 1;
2271 : : }
2272 : 0 : if ((((1 << (M2Reserved_doublequotestok-M2Reserved_eoftok)) & (stopset0)) != 0))
2273 : : {
2274 : 0 : message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '`'), '"'), '\''), ',');
2275 : 0 : n += 1;
2276 : : }
2277 : 0 : if ((((1 << (M2Reserved_singlequotetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2278 : : {
2279 : 0 : message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '"'), '\''), '"'), ',');
2280 : 0 : n += 1;
2281 : : }
2282 : 0 : if ((((1 << (M2Reserved_greatertok-M2Reserved_eoftok)) & (stopset0)) != 0))
2283 : : {
2284 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K>}", 5)));
2285 : 0 : n += 1;
2286 : : }
2287 : 0 : if ((((1 << (M2Reserved_lesstok-M2Reserved_eoftok)) & (stopset0)) != 0))
2288 : : {
2289 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<}", 5)));
2290 : 0 : n += 1;
2291 : : }
2292 : 0 : if ((((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) & (stopset0)) != 0))
2293 : : {
2294 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K)}", 5)));
2295 : 0 : n += 1;
2296 : : }
2297 : 0 : if ((((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) & (stopset0)) != 0))
2298 : : {
2299 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K(}", 5)));
2300 : 0 : n += 1;
2301 : : }
2302 : 0 : if ((((1 << (M2Reserved_rcbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2303 : : {
2304 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K%}}", 6)));
2305 : 0 : n += 1;
2306 : : }
2307 : 0 : if ((((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2308 : : {
2309 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K%{}", 6)));
2310 : 0 : n += 1;
2311 : : }
2312 : 0 : if ((((1 << (M2Reserved_rsbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2313 : : {
2314 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K]}", 5)));
2315 : 0 : n += 1;
2316 : : }
2317 : 0 : if ((((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2318 : : {
2319 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K[}", 5)));
2320 : 0 : n += 1;
2321 : : }
2322 : 0 : if ((((1 << (M2Reserved_bartok-M2Reserved_eoftok)) & (stopset0)) != 0))
2323 : : {
2324 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K|}", 5)));
2325 : 0 : n += 1;
2326 : : }
2327 : 0 : if ((((1 << (M2Reserved_becomestok-M2Reserved_eoftok)) & (stopset0)) != 0))
2328 : : {
2329 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K:=}", 6)));
2330 : 0 : n += 1;
2331 : : }
2332 : 0 : if ((((1 << (M2Reserved_eoftok-M2Reserved_eoftok)) & (stopset0)) != 0))
2333 : : {} /* empty. */
2334 : : /* eoftok has no token name (needed to generate error messages) */
2335 : 0 : if (n == 0)
2336 : : {
2337 : 0 : str = DynamicStrings_InitString ((const char *) " syntax error", 13);
2338 : 0 : message = DynamicStrings_KillString (message);
2339 : : }
2340 : 0 : else if (n == 1)
2341 : : {
2342 : : /* avoid dangling else. */
2343 : 0 : str = DynamicStrings_ConCat (message, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) " missing ", 9)));
2344 : : }
2345 : : else
2346 : : {
2347 : : /* avoid dangling else. */
2348 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) " expecting one of", 17), message);
2349 : 0 : message = DynamicStrings_KillString (message);
2350 : : }
2351 : 0 : return str;
2352 : : /* static analysis guarentees a RETURN statement will be used before here. */
2353 : : __builtin_unreachable ();
2354 : : }
2355 : :
2356 : :
2357 : : /*
2358 : : DescribeError - issues a message explaining what tokens were expected
2359 : : */
2360 : :
2361 : 0 : static void DescribeError (void)
2362 : : {
2363 : 0 : DynamicStrings_String str;
2364 : :
2365 : 0 : str = DynamicStrings_InitString ((const char *) "", 0);
2366 : 0 : switch (M2LexBuf_currenttoken)
2367 : : {
2368 : 0 : case M2Reserved_stringtok:
2369 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kstring}", 30), DynamicStrings_Mark (str));
2370 : 0 : break;
2371 : :
2372 : 0 : case M2Reserved_realtok:
2373 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kreal number}", 35), DynamicStrings_Mark (str));
2374 : 0 : break;
2375 : :
2376 : 0 : case M2Reserved_identtok:
2377 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kidentifier}", 34), DynamicStrings_Mark (str));
2378 : 0 : break;
2379 : :
2380 : 0 : case M2Reserved_integertok:
2381 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kinteger number}", 38), DynamicStrings_Mark (str));
2382 : 0 : break;
2383 : :
2384 : 0 : case M2Reserved_inlinetok:
2385 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__INLINE__}", 34), DynamicStrings_Mark (str));
2386 : 0 : break;
2387 : :
2388 : 0 : case M2Reserved_builtintok:
2389 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__BUILTIN__}", 35), DynamicStrings_Mark (str));
2390 : 0 : break;
2391 : :
2392 : 0 : case M2Reserved_attributetok:
2393 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__ATTRIBUTE__}", 37), DynamicStrings_Mark (str));
2394 : 0 : break;
2395 : :
2396 : 0 : case M2Reserved_filetok:
2397 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__FILE__}", 32), DynamicStrings_Mark (str));
2398 : 0 : break;
2399 : :
2400 : 0 : case M2Reserved_linetok:
2401 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__LINE__}", 32), DynamicStrings_Mark (str));
2402 : 0 : break;
2403 : :
2404 : 0 : case M2Reserved_datetok:
2405 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__DATE__}", 32), DynamicStrings_Mark (str));
2406 : 0 : break;
2407 : :
2408 : 0 : case M2Reserved_periodperiodperiodtok:
2409 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K...}", 27), DynamicStrings_Mark (str));
2410 : 0 : break;
2411 : :
2412 : 0 : case M2Reserved_volatiletok:
2413 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KVOLATILE}", 32), DynamicStrings_Mark (str));
2414 : 0 : break;
2415 : :
2416 : 0 : case M2Reserved_asmtok:
2417 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KASM}", 27), DynamicStrings_Mark (str));
2418 : 0 : break;
2419 : :
2420 : 0 : case M2Reserved_withtok:
2421 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KWITH}", 28), DynamicStrings_Mark (str));
2422 : 0 : break;
2423 : :
2424 : 0 : case M2Reserved_whiletok:
2425 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KWHILE}", 29), DynamicStrings_Mark (str));
2426 : 0 : break;
2427 : :
2428 : 0 : case M2Reserved_vartok:
2429 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KVAR}", 27), DynamicStrings_Mark (str));
2430 : 0 : break;
2431 : :
2432 : 0 : case M2Reserved_untiltok:
2433 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KUNTIL}", 29), DynamicStrings_Mark (str));
2434 : 0 : break;
2435 : :
2436 : 0 : case M2Reserved_typetok:
2437 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTYPE}", 28), DynamicStrings_Mark (str));
2438 : 0 : break;
2439 : :
2440 : 0 : case M2Reserved_totok:
2441 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTO}", 26), DynamicStrings_Mark (str));
2442 : 0 : break;
2443 : :
2444 : 0 : case M2Reserved_thentok:
2445 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTHEN}", 28), DynamicStrings_Mark (str));
2446 : 0 : break;
2447 : :
2448 : 0 : case M2Reserved_settok:
2449 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KSET}", 27), DynamicStrings_Mark (str));
2450 : 0 : break;
2451 : :
2452 : 0 : case M2Reserved_returntok:
2453 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRETURN}", 30), DynamicStrings_Mark (str));
2454 : 0 : break;
2455 : :
2456 : 0 : case M2Reserved_retrytok:
2457 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRETRY}", 29), DynamicStrings_Mark (str));
2458 : 0 : break;
2459 : :
2460 : 0 : case M2Reserved_repeattok:
2461 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KREPEAT}", 30), DynamicStrings_Mark (str));
2462 : 0 : break;
2463 : :
2464 : 0 : case M2Reserved_remtok:
2465 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KREM}", 27), DynamicStrings_Mark (str));
2466 : 0 : break;
2467 : :
2468 : 0 : case M2Reserved_recordtok:
2469 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRECORD}", 30), DynamicStrings_Mark (str));
2470 : 0 : break;
2471 : :
2472 : 0 : case M2Reserved_unqualifiedtok:
2473 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KUNQUALIFIED}", 35), DynamicStrings_Mark (str));
2474 : 0 : break;
2475 : :
2476 : 0 : case M2Reserved_qualifiedtok:
2477 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KQUALIFIED}", 33), DynamicStrings_Mark (str));
2478 : 0 : break;
2479 : :
2480 : 0 : case M2Reserved_proceduretok:
2481 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPROCEDURE}", 33), DynamicStrings_Mark (str));
2482 : 0 : break;
2483 : :
2484 : 0 : case M2Reserved_pointertok:
2485 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPOINTER}", 31), DynamicStrings_Mark (str));
2486 : 0 : break;
2487 : :
2488 : 0 : case M2Reserved_packedsettok:
2489 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPACKEDSET}", 33), DynamicStrings_Mark (str));
2490 : 0 : break;
2491 : :
2492 : 0 : case M2Reserved_ortok:
2493 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KOR}", 26), DynamicStrings_Mark (str));
2494 : 0 : break;
2495 : :
2496 : 0 : case M2Reserved_oftok:
2497 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KOF}", 26), DynamicStrings_Mark (str));
2498 : 0 : break;
2499 : :
2500 : 0 : case M2Reserved_nottok:
2501 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KNOT}", 27), DynamicStrings_Mark (str));
2502 : 0 : break;
2503 : :
2504 : 0 : case M2Reserved_moduletok:
2505 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KMODULE}", 30), DynamicStrings_Mark (str));
2506 : 0 : break;
2507 : :
2508 : 0 : case M2Reserved_modtok:
2509 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KMOD}", 27), DynamicStrings_Mark (str));
2510 : 0 : break;
2511 : :
2512 : 0 : case M2Reserved_looptok:
2513 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KLOOP}", 28), DynamicStrings_Mark (str));
2514 : 0 : break;
2515 : :
2516 : 0 : case M2Reserved_intok:
2517 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIN}", 26), DynamicStrings_Mark (str));
2518 : 0 : break;
2519 : :
2520 : 0 : case M2Reserved_importtok:
2521 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIMPORT}", 30), DynamicStrings_Mark (str));
2522 : 0 : break;
2523 : :
2524 : 0 : case M2Reserved_implementationtok:
2525 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIMPLEMENTATION}", 38), DynamicStrings_Mark (str));
2526 : 0 : break;
2527 : :
2528 : 0 : case M2Reserved_iftok:
2529 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIF}", 26), DynamicStrings_Mark (str));
2530 : 0 : break;
2531 : :
2532 : 0 : case M2Reserved_fromtok:
2533 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFROM}", 28), DynamicStrings_Mark (str));
2534 : 0 : break;
2535 : :
2536 : 0 : case M2Reserved_forwardtok:
2537 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFORWARD}", 31), DynamicStrings_Mark (str));
2538 : 0 : break;
2539 : :
2540 : 0 : case M2Reserved_fortok:
2541 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFOR}", 27), DynamicStrings_Mark (str));
2542 : 0 : break;
2543 : :
2544 : 0 : case M2Reserved_finallytok:
2545 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFINALLY}", 31), DynamicStrings_Mark (str));
2546 : 0 : break;
2547 : :
2548 : 0 : case M2Reserved_exporttok:
2549 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXPORT}", 30), DynamicStrings_Mark (str));
2550 : 0 : break;
2551 : :
2552 : 0 : case M2Reserved_exittok:
2553 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXIT}", 28), DynamicStrings_Mark (str));
2554 : 0 : break;
2555 : :
2556 : 0 : case M2Reserved_excepttok:
2557 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXCEPT}", 30), DynamicStrings_Mark (str));
2558 : 0 : break;
2559 : :
2560 : 0 : case M2Reserved_endtok:
2561 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEND}", 27), DynamicStrings_Mark (str));
2562 : 0 : break;
2563 : :
2564 : 0 : case M2Reserved_elsiftok:
2565 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KELSIF}", 29), DynamicStrings_Mark (str));
2566 : 0 : break;
2567 : :
2568 : 0 : case M2Reserved_elsetok:
2569 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KELSE}", 28), DynamicStrings_Mark (str));
2570 : 0 : break;
2571 : :
2572 : 0 : case M2Reserved_dotok:
2573 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDO}", 26), DynamicStrings_Mark (str));
2574 : 0 : break;
2575 : :
2576 : 0 : case M2Reserved_divtok:
2577 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDIV}", 27), DynamicStrings_Mark (str));
2578 : 0 : break;
2579 : :
2580 : 0 : case M2Reserved_definitiontok:
2581 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDEFINITION}", 34), DynamicStrings_Mark (str));
2582 : 0 : break;
2583 : :
2584 : 0 : case M2Reserved_consttok:
2585 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KCONST}", 29), DynamicStrings_Mark (str));
2586 : 0 : break;
2587 : :
2588 : 0 : case M2Reserved_casetok:
2589 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KCASE}", 28), DynamicStrings_Mark (str));
2590 : 0 : break;
2591 : :
2592 : 0 : case M2Reserved_bytok:
2593 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KBY}", 26), DynamicStrings_Mark (str));
2594 : 0 : break;
2595 : :
2596 : 0 : case M2Reserved_begintok:
2597 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KBEGIN}", 29), DynamicStrings_Mark (str));
2598 : 0 : break;
2599 : :
2600 : 0 : case M2Reserved_arraytok:
2601 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KARRAY}", 29), DynamicStrings_Mark (str));
2602 : 0 : break;
2603 : :
2604 : 0 : case M2Reserved_andtok:
2605 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KAND}", 27), DynamicStrings_Mark (str));
2606 : 0 : break;
2607 : :
2608 : 0 : case M2Reserved_colontok:
2609 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K:}", 25), DynamicStrings_Mark (str));
2610 : 0 : break;
2611 : :
2612 : 0 : case M2Reserved_periodperiodtok:
2613 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K..}", 26), DynamicStrings_Mark (str));
2614 : 0 : break;
2615 : :
2616 : 0 : case M2Reserved_rdirectivetok:
2617 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K*>}", 26), DynamicStrings_Mark (str));
2618 : 0 : break;
2619 : :
2620 : 0 : case M2Reserved_ldirectivetok:
2621 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<*}", 26), DynamicStrings_Mark (str));
2622 : 0 : break;
2623 : :
2624 : 0 : case M2Reserved_greaterequaltok:
2625 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K>=}", 26), DynamicStrings_Mark (str));
2626 : 0 : break;
2627 : :
2628 : 0 : case M2Reserved_lessequaltok:
2629 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<=}", 26), DynamicStrings_Mark (str));
2630 : 0 : break;
2631 : :
2632 : 0 : case M2Reserved_lessgreatertok:
2633 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<>}", 26), DynamicStrings_Mark (str));
2634 : 0 : break;
2635 : :
2636 : 0 : case M2Reserved_hashtok:
2637 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K#}", 25), DynamicStrings_Mark (str));
2638 : 0 : break;
2639 : :
2640 : 0 : case M2Reserved_equaltok:
2641 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K=}", 25), DynamicStrings_Mark (str));
2642 : 0 : break;
2643 : :
2644 : 0 : case M2Reserved_uparrowtok:
2645 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K^}", 25), DynamicStrings_Mark (str));
2646 : 0 : break;
2647 : :
2648 : 0 : case M2Reserved_semicolontok:
2649 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K;}", 25), DynamicStrings_Mark (str));
2650 : 0 : break;
2651 : :
2652 : 0 : case M2Reserved_commatok:
2653 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K,}", 25), DynamicStrings_Mark (str));
2654 : 0 : break;
2655 : :
2656 : 0 : case M2Reserved_periodtok:
2657 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K.}", 25), DynamicStrings_Mark (str));
2658 : 0 : break;
2659 : :
2660 : 0 : case M2Reserved_ambersandtok:
2661 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K&}", 25), DynamicStrings_Mark (str));
2662 : 0 : break;
2663 : :
2664 : 0 : case M2Reserved_dividetok:
2665 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K/}", 25), DynamicStrings_Mark (str));
2666 : 0 : break;
2667 : :
2668 : 0 : case M2Reserved_timestok:
2669 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K*}", 25), DynamicStrings_Mark (str));
2670 : 0 : break;
2671 : :
2672 : 0 : case M2Reserved_minustok:
2673 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K-}", 25), DynamicStrings_Mark (str));
2674 : 0 : break;
2675 : :
2676 : 0 : case M2Reserved_plustok:
2677 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K+}", 25), DynamicStrings_Mark (str));
2678 : 0 : break;
2679 : :
2680 : 0 : case M2Reserved_doublequotestok:
2681 : 0 : str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found '", 21), '"'), '\''), DynamicStrings_Mark (str));
2682 : 0 : break;
2683 : :
2684 : 0 : case M2Reserved_singlequotetok:
2685 : 0 : str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found \"", 21), '\''), '"'), DynamicStrings_Mark (str));
2686 : 0 : break;
2687 : :
2688 : 0 : case M2Reserved_greatertok:
2689 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K>}", 25), DynamicStrings_Mark (str));
2690 : 0 : break;
2691 : :
2692 : 0 : case M2Reserved_lesstok:
2693 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<}", 25), DynamicStrings_Mark (str));
2694 : 0 : break;
2695 : :
2696 : 0 : case M2Reserved_rparatok:
2697 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K)}", 25), DynamicStrings_Mark (str));
2698 : 0 : break;
2699 : :
2700 : 0 : case M2Reserved_lparatok:
2701 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K(}", 25), DynamicStrings_Mark (str));
2702 : 0 : break;
2703 : :
2704 : 0 : case M2Reserved_rcbratok:
2705 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K%}}", 26), DynamicStrings_Mark (str));
2706 : 0 : break;
2707 : :
2708 : 0 : case M2Reserved_lcbratok:
2709 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K%{}", 26), DynamicStrings_Mark (str));
2710 : 0 : break;
2711 : :
2712 : 0 : case M2Reserved_rsbratok:
2713 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K]}", 25), DynamicStrings_Mark (str));
2714 : 0 : break;
2715 : :
2716 : 0 : case M2Reserved_lsbratok:
2717 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K[}", 25), DynamicStrings_Mark (str));
2718 : 0 : break;
2719 : :
2720 : 0 : case M2Reserved_bartok:
2721 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K|}", 25), DynamicStrings_Mark (str));
2722 : 0 : break;
2723 : :
2724 : 0 : case M2Reserved_becomestok:
2725 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K:=}", 26), DynamicStrings_Mark (str));
2726 : 0 : break;
2727 : :
2728 : 0 : case M2Reserved_eoftok:
2729 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K}", 24), DynamicStrings_Mark (str));
2730 : 0 : break;
2731 : :
2732 : :
2733 : : default:
2734 : : break;
2735 : : }
2736 : 0 : ErrorString (str);
2737 : 0 : }
2738 : :
2739 : :
2740 : : /*
2741 : : SyntaxError - after a syntax error we skip all tokens up until we reach
2742 : : a stop symbol.
2743 : : */
2744 : :
2745 : 0 : static void SyntaxError (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2746 : : {
2747 : 0 : DescribeError ();
2748 : 0 : if (Debugging)
2749 : : {
2750 : : M2Printf_printf0 ((const char *) "\\nskipping token *** ", 21);
2751 : : }
2752 : : /*
2753 : : yes the ORD(currenttoken) looks ugly, but it is *much* safer than
2754 : : using currenttoken<sometok as a change to the ordering of the
2755 : : token declarations below would cause this to break. Using ORD() we are
2756 : : immune from such changes
2757 : : */
2758 : 0 : while (! (((( ((unsigned int) (M2LexBuf_currenttoken)) < 32) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (M2LexBuf_currenttoken)) >= 32) && ( ((unsigned int) (M2LexBuf_currenttoken)) < 64)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (M2LexBuf_currenttoken)) >= 64) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & (stopset2)) != 0)))))
2759 : : {
2760 : 0 : M2LexBuf_GetToken ();
2761 : : }
2762 : 0 : if (Debugging)
2763 : : {
2764 : : M2Printf_printf0 ((const char *) " ***\\n", 6);
2765 : : }
2766 : 0 : }
2767 : :
2768 : :
2769 : : /*
2770 : : SyntaxCheck -
2771 : : */
2772 : :
2773 : 108276605 : static void SyntaxCheck (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2774 : : {
2775 : : /* and again (see above re: ORD)
2776 : : */
2777 : 108276605 : if (! (((( ((unsigned int) (M2LexBuf_currenttoken)) < 32) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (M2LexBuf_currenttoken)) >= 32) && ( ((unsigned int) (M2LexBuf_currenttoken)) < 64)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (M2LexBuf_currenttoken)) >= 64) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & (stopset2)) != 0)))))
2778 : : {
2779 : 0 : SyntaxError (stopset0, stopset1, stopset2);
2780 : : }
2781 : 108276605 : }
2782 : :
2783 : :
2784 : : /*
2785 : : WarnMissingToken - generates a warning message about a missing token, t.
2786 : : */
2787 : :
2788 : 0 : static void WarnMissingToken (M2Reserved_toktype t)
2789 : : {
2790 : 0 : P1Build_SetOfStop0 s0;
2791 : 0 : P1Build_SetOfStop1 s1;
2792 : 0 : P1Build_SetOfStop2 s2;
2793 : 0 : DynamicStrings_String str;
2794 : :
2795 : 0 : s0 = (P1Build_SetOfStop0) 0;
2796 : 0 : s1 = (P1Build_SetOfStop1) 0;
2797 : 0 : s2 = (P1Build_SetOfStop2) 0;
2798 : 0 : if ( ((unsigned int) (t)) < 32)
2799 : : {
2800 : 0 : s0 = (P1Build_SetOfStop0) ((1 << (t-M2Reserved_eoftok)));
2801 : : }
2802 : 0 : else if ( ((unsigned int) (t)) < 64)
2803 : : {
2804 : : /* avoid dangling else. */
2805 : 0 : s1 = (P1Build_SetOfStop1) ((1 << (t-M2Reserved_arraytok)));
2806 : : }
2807 : : else
2808 : : {
2809 : : /* avoid dangling else. */
2810 : 0 : s2 = (P1Build_SetOfStop2) ((1 << (t-M2Reserved_unqualifiedtok)));
2811 : : }
2812 : 0 : str = DescribeStop (s0, s1, s2);
2813 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error,", 13), DynamicStrings_Mark (str));
2814 : 0 : M2Error_ErrorStringAt (str, M2LexBuf_GetTokenNo ());
2815 : 0 : }
2816 : :
2817 : :
2818 : : /*
2819 : : MissingToken - generates a warning message about a missing token, t.
2820 : : */
2821 : :
2822 : 0 : static void MissingToken (M2Reserved_toktype t)
2823 : : {
2824 : 0 : WarnMissingToken (t);
2825 : 0 : InsertCount += 1;
2826 : 0 : if ((InsertCount < MaxInsert) && ((((t != M2Reserved_identtok) && (t != M2Reserved_integertok)) && (t != M2Reserved_realtok)) && (t != M2Reserved_stringtok)))
2827 : : {
2828 : 0 : if (Debugging)
2829 : : {
2830 : : M2Printf_printf0 ((const char *) "inserting token\\n", 17);
2831 : : }
2832 : 0 : M2LexBuf_InsertToken (t);
2833 : : }
2834 : 0 : }
2835 : :
2836 : :
2837 : : /*
2838 : : CheckAndInsert -
2839 : : */
2840 : :
2841 : 0 : static bool CheckAndInsert (M2Reserved_toktype t, P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2842 : : {
2843 : 0 : if (((( ((unsigned int) (t)) < 32) && ((((1 << (t-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (t)) >= 32) && ( ((unsigned int) (t)) < 64)) && ((((1 << (t-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (t)) >= 64) && ((((1 << (t-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))))
2844 : : {
2845 : 0 : WarnMissingToken (t);
2846 : 0 : M2LexBuf_InsertTokenAndRewind (t);
2847 : 0 : return true;
2848 : : }
2849 : : else
2850 : : {
2851 : : return false;
2852 : : }
2853 : : /* static analysis guarentees a RETURN statement will be used before here. */
2854 : : __builtin_unreachable ();
2855 : : }
2856 : :
2857 : :
2858 : : /*
2859 : : InStopSet
2860 : : */
2861 : :
2862 : 0 : static bool InStopSet (M2Reserved_toktype t, P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2863 : : {
2864 : 0 : if (((( ((unsigned int) (t)) < 32) && ((((1 << (t-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (t)) >= 32) && ( ((unsigned int) (t)) < 64)) && ((((1 << (t-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (t)) >= 64) && ((((1 << (t-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))))
2865 : : {
2866 : : return true;
2867 : : }
2868 : : else
2869 : : {
2870 : 0 : return false;
2871 : : }
2872 : : /* static analysis guarentees a RETURN statement will be used before here. */
2873 : : __builtin_unreachable ();
2874 : : }
2875 : :
2876 : :
2877 : : /*
2878 : : PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
2879 : : If it is not then it will insert a token providing the token
2880 : : is one of ; ] ) } . OF END ,
2881 : :
2882 : : if the stopset contains <identtok> then we do not insert a token
2883 : : */
2884 : :
2885 : 0 : static void PeepToken (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2886 : : {
2887 : : /* and again (see above re: ORD)
2888 : : */
2889 : 0 : if ((! (((( ((unsigned int) (M2LexBuf_currenttoken)) < 32) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (M2LexBuf_currenttoken)) >= 32) && ( ((unsigned int) (M2LexBuf_currenttoken)) < 64)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (M2LexBuf_currenttoken)) >= 64) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))))) && (! (InStopSet (M2Reserved_identtok, stopset0, stopset1, stopset2))))
2890 : : {
2891 : : /* SyntaxCheck would fail since currentoken is not part of the stopset
2892 : : we check to see whether any of currenttoken might be a commonly omitted token */
2893 : 0 : if ((((((((CheckAndInsert (M2Reserved_semicolontok, stopset0, stopset1, stopset2)) || (CheckAndInsert (M2Reserved_rsbratok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_rparatok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_rcbratok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_periodtok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_oftok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_endtok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_commatok, stopset0, stopset1, stopset2)))
2894 : : {} /* empty. */
2895 : : }
2896 : 0 : }
2897 : :
2898 : :
2899 : : /*
2900 : : Expect -
2901 : : */
2902 : :
2903 : 108276605 : static void Expect (M2Reserved_toktype t, P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2904 : : {
2905 : 108276605 : if (M2LexBuf_currenttoken == t)
2906 : : {
2907 : : /* avoid dangling else. */
2908 : 108276605 : M2LexBuf_GetToken ();
2909 : : /*
2910 : : WriteFormat2('token number %d token was %a',
2911 : : GetTokenNo(), makekey(currentstring)) ;
2912 : : FlushErrors ;
2913 : : */
2914 : 108276605 : if (Pass0)
2915 : : {
2916 : : PeepToken (stopset0, stopset1, stopset2);
2917 : : }
2918 : : }
2919 : : else
2920 : : {
2921 : 0 : MissingToken (t);
2922 : : }
2923 : 108276605 : SyntaxCheck (stopset0, stopset1, stopset2);
2924 : 108276605 : }
2925 : :
2926 : :
2927 : : /*
2928 : : Ident - error checking varient of Ident
2929 : : */
2930 : :
2931 : 35836470 : static void Ident (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2932 : : {
2933 : 35836470 : LastIdent = NameKey_makekey (M2LexBuf_currentstring);
2934 : 35836470 : if (M2Quads_IsAutoPushOn ())
2935 : : {
2936 : 4097290 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_identtok), M2LexBuf_GetTokenNo ());
2937 : : }
2938 : 35836470 : Expect (M2Reserved_identtok, stopset0, stopset1, stopset2);
2939 : 35836470 : }
2940 : :
2941 : :
2942 : : /*
2943 : : IdentScope - error checking varient of Ident but it remembers the
2944 : : idents name in the current scope.
2945 : : */
2946 : :
2947 : 90381 : static void IdentScope (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2948 : : {
2949 : 90381 : Ident (stopset0, stopset1, stopset2);
2950 : 90381 : SymbolTable_AddNameToScope (LastIdent);
2951 : 90381 : }
2952 : :
2953 : :
2954 : : /*
2955 : : PossiblyExportIdent - error checking varient of Ident which also
2956 : : checks to see if this ident should be
2957 : : explicitly exported.
2958 : : */
2959 : :
2960 : 4685888 : static void PossiblyExportIdent (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2961 : : {
2962 : 4685888 : unsigned int nothing;
2963 : :
2964 : 4685888 : SymbolTable_AddNameToScope (NameKey_makekey (M2LexBuf_currentstring));
2965 : 4685888 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_identtok), M2LexBuf_GetTokenNo ());
2966 : 4685888 : P1SymBuild_CheckExplicitExported ();
2967 : 4685888 : if (! (M2Quads_IsAutoPushOn ()))
2968 : : {
2969 : 1184997 : M2Quads_PopT (¬hing);
2970 : : }
2971 : 4685888 : Expect (M2Reserved_identtok, stopset0, stopset1, stopset2);
2972 : 4685888 : }
2973 : :
2974 : :
2975 : : /*
2976 : : string -
2977 : : */
2978 : :
2979 : 900828 : static void string (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2980 : : {
2981 : 900828 : if (M2Quads_IsAutoPushOn ())
2982 : : {
2983 : 7852 : M2Quads_PushTF (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_stringtok));
2984 : 7852 : P2SymBuild_BuildString ();
2985 : : }
2986 : 900828 : Expect (M2Reserved_stringtok, stopset0, stopset1, stopset2);
2987 : 900828 : }
2988 : :
2989 : :
2990 : : /*
2991 : : Integer -
2992 : : */
2993 : :
2994 : 1414628 : static void Integer (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
2995 : : {
2996 : 1414628 : if (M2Quads_IsAutoPushOn ())
2997 : : {
2998 : 0 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_integertok), M2LexBuf_GetTokenNo ());
2999 : 0 : P2SymBuild_BuildNumber ();
3000 : : }
3001 : 1414628 : Expect (M2Reserved_integertok, stopset0, stopset1, stopset2);
3002 : 1414628 : }
3003 : :
3004 : :
3005 : : /*
3006 : : Real -
3007 : : */
3008 : :
3009 : 9154 : static void Real (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3010 : : {
3011 : 9154 : if (M2Quads_IsAutoPushOn ())
3012 : : {
3013 : 0 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_realtok), M2LexBuf_GetTokenNo ());
3014 : 0 : P2SymBuild_BuildNumber ();
3015 : : }
3016 : 9154 : Expect (M2Reserved_realtok, stopset0, stopset1, stopset2);
3017 : 9154 : }
3018 : :
3019 : :
3020 : : /*
3021 : : FileUnit :=
3022 : : % PushAutoOff %
3023 : : ( DefinitionModule |
3024 : : ImplementationOrProgramModule )
3025 : : % PopAuto %
3026 : :
3027 : :
3028 : : first symbols:implementationtok, moduletok, definitiontok
3029 : :
3030 : : cannot reachend
3031 : : */
3032 : :
3033 : 185109 : static void FileUnit (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3034 : : {
3035 : 185109 : M2Quads_PushAutoOff ();
3036 : 185109 : if (M2LexBuf_currenttoken == M2Reserved_definitiontok)
3037 : : {
3038 : 120572 : DefinitionModule (stopset0, stopset1, stopset2);
3039 : : }
3040 : 64537 : else if (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_implementationtok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0)))
3041 : : {
3042 : : /* avoid dangling else. */
3043 : 64537 : ImplementationOrProgramModule (stopset0, stopset1, stopset2);
3044 : : }
3045 : : else
3046 : : {
3047 : : /* avoid dangling else. */
3048 : 0 : ErrorArray ((const char *) "expecting one of: {%KIMPLEMENTATION} {%KMODULE} {%KDEFINITION}", 62);
3049 : : }
3050 : 185103 : M2Quads_PopAuto ();
3051 : 185103 : }
3052 : :
3053 : :
3054 : : /*
3055 : : ProgramModule := 'MODULE'
3056 : : % M2Error.DefaultProgramModule %
3057 : :
3058 : : % PushAutoOn ; %
3059 : : Ident
3060 : : % P1StartBuildProgramModule ; %
3061 : :
3062 : : % PushAutoOff ; %
3063 : : [ Priority ] ';'
3064 : : % PushAutoOn ; %
3065 : : { Import
3066 : : % BuildImportOuterModule(FALSE) %
3067 : : }
3068 : : % PopAuto %
3069 : : Block
3070 : : % PushAutoOn %
3071 : : Ident
3072 : : % P1EndBuildProgramModule %
3073 : : '.'
3074 : : % PopAuto ; PopAuto ; PopAuto %
3075 : :
3076 : :
3077 : : first symbols:moduletok
3078 : :
3079 : : cannot reachend
3080 : : */
3081 : :
3082 : 11140 : static void ProgramModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3083 : : {
3084 : 11140 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3085 : 11140 : M2Error_DefaultProgramModule ();
3086 : 11140 : M2Quads_PushAutoOn ();
3087 : 11140 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
3088 : 11140 : P1SymBuild_P1StartBuildProgramModule ();
3089 : 11140 : M2Quads_PushAutoOff ();
3090 : 11140 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3091 : : {
3092 : 12 : Priority (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
3093 : : }
3094 : 11140 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
3095 : 11140 : M2Quads_PushAutoOn ();
3096 : 35742 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
3097 : : {
3098 : 13462 : Import (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
3099 : 13462 : P1SymBuild_BuildImportOuterModule (false);
3100 : : }
3101 : : /* while */
3102 : 11140 : M2Quads_PopAuto ();
3103 : 11140 : Block (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3104 : 11140 : M2Quads_PushAutoOn ();
3105 : 11140 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3106 : 11140 : P1SymBuild_P1EndBuildProgramModule ();
3107 : 11134 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
3108 : 11134 : M2Quads_PopAuto ();
3109 : 11134 : M2Quads_PopAuto ();
3110 : 11134 : M2Quads_PopAuto ();
3111 : 11134 : }
3112 : :
3113 : :
3114 : : /*
3115 : : ImplementationModule := 'IMPLEMENTATION'
3116 : : % M2Error.DefaultImplementationModule %
3117 : : 'MODULE'
3118 : : % PushAutoOn ; %
3119 : : Ident
3120 : : % P1StartBuildImplementationModule ; %
3121 : :
3122 : : % PushAutoOff ; %
3123 : : [ Priority ] ';'
3124 : : % PushAutoOn ; %
3125 : : { Import
3126 : : % BuildImportOuterModule(FALSE) %
3127 : : }
3128 : : % PopAuto ; %
3129 : : Block
3130 : : % PushAutoOn ; %
3131 : : Ident
3132 : : % P1EndBuildImplementationModule %
3133 : :
3134 : : % PopAuto ; PopAuto ; PopAuto ; %
3135 : : '.'
3136 : :
3137 : : first symbols:implementationtok
3138 : :
3139 : : cannot reachend
3140 : : */
3141 : :
3142 : 53397 : static void ImplementationModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3143 : : {
3144 : 53397 : Expect (M2Reserved_implementationtok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2);
3145 : 53397 : M2Error_DefaultImplementationModule ();
3146 : 53397 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3147 : 53397 : M2Quads_PushAutoOn ();
3148 : 53397 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
3149 : 53397 : P1SymBuild_P1StartBuildImplementationModule ();
3150 : 53397 : M2Quads_PushAutoOff ();
3151 : 53397 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3152 : : {
3153 : 26 : Priority (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
3154 : : }
3155 : 53397 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
3156 : 53397 : M2Quads_PushAutoOn ();
3157 : 303466 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
3158 : : {
3159 : 196672 : Import (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
3160 : 196672 : P1SymBuild_BuildImportOuterModule (false);
3161 : : }
3162 : : /* while */
3163 : 53397 : M2Quads_PopAuto ();
3164 : 53397 : Block (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3165 : 53397 : M2Quads_PushAutoOn ();
3166 : 53397 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3167 : 53397 : P1SymBuild_P1EndBuildImplementationModule ();
3168 : 53397 : M2Quads_PopAuto ();
3169 : 53397 : M2Quads_PopAuto ();
3170 : 53397 : M2Quads_PopAuto ();
3171 : 53397 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
3172 : 53397 : }
3173 : :
3174 : :
3175 : : /*
3176 : : ImplementationOrProgramModule := ImplementationModule |
3177 : : ProgramModule
3178 : :
3179 : : first symbols:moduletok, implementationtok
3180 : :
3181 : : cannot reachend
3182 : : */
3183 : :
3184 : 64537 : static void ImplementationOrProgramModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3185 : : {
3186 : 64537 : if (M2LexBuf_currenttoken == M2Reserved_implementationtok)
3187 : : {
3188 : 53397 : ImplementationModule (stopset0, stopset1, stopset2);
3189 : : }
3190 : 11140 : else if (M2LexBuf_currenttoken == M2Reserved_moduletok)
3191 : : {
3192 : : /* avoid dangling else. */
3193 : 11140 : ProgramModule (stopset0, stopset1, stopset2);
3194 : : }
3195 : : else
3196 : : {
3197 : : /* avoid dangling else. */
3198 : 0 : ErrorArray ((const char *) "expecting one of: {%KMODULE} {%KIMPLEMENTATION}", 47);
3199 : : }
3200 : 64531 : }
3201 : :
3202 : :
3203 : : /*
3204 : : Number := Integer | Real
3205 : :
3206 : : first symbols:realtok, integertok
3207 : :
3208 : : cannot reachend
3209 : : */
3210 : :
3211 : 1423782 : static void Number (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3212 : : {
3213 : 1423782 : if (M2LexBuf_currenttoken == M2Reserved_integertok)
3214 : : {
3215 : 1414628 : Integer (stopset0, stopset1, stopset2);
3216 : : }
3217 : 9154 : else if (M2LexBuf_currenttoken == M2Reserved_realtok)
3218 : : {
3219 : : /* avoid dangling else. */
3220 : 9154 : Real (stopset0, stopset1, stopset2);
3221 : : }
3222 : : else
3223 : : {
3224 : : /* avoid dangling else. */
3225 : 0 : ErrorArray ((const char *) "expecting one of: {%Kreal number} {%Kinteger number}", 52);
3226 : : }
3227 : 1423782 : }
3228 : :
3229 : :
3230 : : /*
3231 : : Qualident := Ident { '.' Ident }
3232 : :
3233 : : first symbols:identtok
3234 : :
3235 : : cannot reachend
3236 : : */
3237 : :
3238 : 23193355 : static void Qualident (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3239 : : {
3240 : 23193355 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3241 : 46920944 : while (M2LexBuf_currenttoken == M2Reserved_periodtok)
3242 : : {
3243 : 534234 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3244 : 534234 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3245 : : }
3246 : : /* while */
3247 : 23193355 : }
3248 : :
3249 : :
3250 : : /*
3251 : : ConstantDeclaration := PossiblyExportIdent '=' ConstExpression
3252 : :
3253 : : first symbols:identtok
3254 : :
3255 : : cannot reachend
3256 : : */
3257 : :
3258 : 244655 : static void ConstantDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3259 : : {
3260 : 244655 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
3261 : 244655 : Expect (M2Reserved_equaltok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3262 : 244655 : ConstExpression (stopset0, stopset1, stopset2);
3263 : 244655 : }
3264 : :
3265 : :
3266 : : /*
3267 : : ConstExpression :=
3268 : : % PushAutoOff %
3269 : : SimpleConstExpr [ Relation SimpleConstExpr ]
3270 : :
3271 : : % PopAuto %
3272 : :
3273 : :
3274 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
3275 : :
3276 : : cannot reachend
3277 : : */
3278 : :
3279 : 471328 : static void ConstExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3280 : : {
3281 : 471328 : M2Quads_PushAutoOff ();
3282 : 471328 : SimpleConstExpr (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_greatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_lesstok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_hashtok-M2Reserved_eoftok)) | (1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
3283 : 471328 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_hashtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_lesstok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_greatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_intok))
3284 : : {
3285 : 42 : Relation (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
3286 : 42 : SimpleConstExpr (stopset0, stopset1, stopset2);
3287 : : }
3288 : 471328 : M2Quads_PopAuto ();
3289 : 471328 : }
3290 : :
3291 : :
3292 : : /*
3293 : : Relation := '=' | '#' | '<>' | '<' | '<=' |
3294 : : '>' | '>=' | 'IN'
3295 : :
3296 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
3297 : :
3298 : : cannot reachend
3299 : : */
3300 : :
3301 : 1415507 : static void Relation (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3302 : : {
3303 : 1415507 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
3304 : : {
3305 : 494749 : Expect (M2Reserved_equaltok, stopset0, stopset1, stopset2);
3306 : : }
3307 : : else if (M2LexBuf_currenttoken == M2Reserved_hashtok)
3308 : : {
3309 : : /* avoid dangling else. */
3310 : 357108 : Expect (M2Reserved_hashtok, stopset0, stopset1, stopset2);
3311 : : }
3312 : : else if (M2LexBuf_currenttoken == M2Reserved_lessgreatertok)
3313 : : {
3314 : : /* avoid dangling else. */
3315 : 84 : Expect (M2Reserved_lessgreatertok, stopset0, stopset1, stopset2);
3316 : : }
3317 : : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
3318 : : {
3319 : : /* avoid dangling else. */
3320 : 201240 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2);
3321 : : }
3322 : : else if (M2LexBuf_currenttoken == M2Reserved_lessequaltok)
3323 : : {
3324 : : /* avoid dangling else. */
3325 : 147366 : Expect (M2Reserved_lessequaltok, stopset0, stopset1, stopset2);
3326 : : }
3327 : : else if (M2LexBuf_currenttoken == M2Reserved_greatertok)
3328 : : {
3329 : : /* avoid dangling else. */
3330 : 149504 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
3331 : : }
3332 : : else if (M2LexBuf_currenttoken == M2Reserved_greaterequaltok)
3333 : : {
3334 : : /* avoid dangling else. */
3335 : 53924 : Expect (M2Reserved_greaterequaltok, stopset0, stopset1, stopset2);
3336 : : }
3337 : : else if (M2LexBuf_currenttoken == M2Reserved_intok)
3338 : : {
3339 : : /* avoid dangling else. */
3340 : 11532 : Expect (M2Reserved_intok, stopset0, stopset1, stopset2);
3341 : : }
3342 : : else
3343 : : {
3344 : : /* avoid dangling else. */
3345 : 0 : ErrorArray ((const char *) "expecting one of: {%KIN} {%K>=} {%K>} {%K<=} {%K<} {%K<>} {%K#} {%K=}", 69);
3346 : : }
3347 : 1415507 : }
3348 : :
3349 : :
3350 : : /*
3351 : : SimpleConstExpr := UnaryOrConstTerm { AddOperator
3352 : : ConstTerm }
3353 : :
3354 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
3355 : :
3356 : : cannot reachend
3357 : : */
3358 : :
3359 : 471370 : static void SimpleConstExpr (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3360 : : {
3361 : 471370 : UnaryOrConstTerm (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
3362 : 947586 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
3363 : : {
3364 : 4846 : AddOperator (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
3365 : 4846 : ConstTerm (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
3366 : : }
3367 : : /* while */
3368 : 471370 : }
3369 : :
3370 : :
3371 : : /*
3372 : : UnaryOrConstTerm := '+' ConstTerm |
3373 : : '-' ConstTerm |
3374 : : ConstTerm
3375 : :
3376 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
3377 : :
3378 : : cannot reachend
3379 : : */
3380 : :
3381 : 471370 : static void UnaryOrConstTerm (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3382 : : {
3383 : 471370 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
3384 : : {
3385 : 0 : Expect (M2Reserved_plustok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
3386 : 0 : ConstTerm (stopset0, stopset1, stopset2);
3387 : : }
3388 : 471370 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
3389 : : {
3390 : : /* avoid dangling else. */
3391 : 18807 : Expect (M2Reserved_minustok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
3392 : 18807 : ConstTerm (stopset0, stopset1, stopset2);
3393 : : }
3394 : 452563 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
3395 : : {
3396 : : /* avoid dangling else. */
3397 : 452563 : ConstTerm (stopset0, stopset1, stopset2);
3398 : : }
3399 : : else
3400 : : {
3401 : : /* avoid dangling else. */
3402 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kinteger number} {%Kreal number} {%K__ATTRIBUTE__} {%K%{} {%Kidentifier} {%Kstring} {%K-} {%K+}", 129);
3403 : : }
3404 : 471370 : }
3405 : :
3406 : :
3407 : : /*
3408 : : AddOperator := '+' | '-' | 'OR'
3409 : :
3410 : : first symbols:ortok, minustok, plustok
3411 : :
3412 : : cannot reachend
3413 : : */
3414 : :
3415 : 386038 : static void AddOperator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3416 : : {
3417 : 386038 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
3418 : : {
3419 : 179878 : Expect (M2Reserved_plustok, stopset0, stopset1, stopset2);
3420 : : }
3421 : 206160 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
3422 : : {
3423 : : /* avoid dangling else. */
3424 : 104050 : Expect (M2Reserved_minustok, stopset0, stopset1, stopset2);
3425 : : }
3426 : 102110 : else if (M2LexBuf_currenttoken == M2Reserved_ortok)
3427 : : {
3428 : : /* avoid dangling else. */
3429 : 102110 : Expect (M2Reserved_ortok, stopset0, stopset1, stopset2);
3430 : : }
3431 : : else
3432 : : {
3433 : : /* avoid dangling else. */
3434 : 0 : ErrorArray ((const char *) "expecting one of: {%KOR} {%K-} {%K+}", 36);
3435 : : }
3436 : 386038 : }
3437 : :
3438 : :
3439 : : /*
3440 : : ConstTerm := ConstFactor { MulOperator ConstFactor }
3441 : :
3442 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok
3443 : :
3444 : : cannot reachend
3445 : : */
3446 : :
3447 : 476216 : static void ConstTerm (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3448 : : {
3449 : 476216 : ConstFactor (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
3450 : 962921 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))))) != 0))) || (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
3451 : : {
3452 : 10489 : MulOperator (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3453 : 10489 : ConstFactor (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
3454 : : }
3455 : : /* while */
3456 : 476216 : }
3457 : :
3458 : :
3459 : : /*
3460 : : MulOperator := '*' | '/' | 'DIV' | 'MOD' |
3461 : : 'REM' | 'AND' | '&'
3462 : :
3463 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
3464 : :
3465 : : cannot reachend
3466 : : */
3467 : :
3468 : 426003 : static void MulOperator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3469 : : {
3470 : 426003 : if (M2LexBuf_currenttoken == M2Reserved_timestok)
3471 : : {
3472 : 68962 : Expect (M2Reserved_timestok, stopset0, stopset1, stopset2);
3473 : : }
3474 : : else if (M2LexBuf_currenttoken == M2Reserved_dividetok)
3475 : : {
3476 : : /* avoid dangling else. */
3477 : 950 : Expect (M2Reserved_dividetok, stopset0, stopset1, stopset2);
3478 : : }
3479 : : else if (M2LexBuf_currenttoken == M2Reserved_divtok)
3480 : : {
3481 : : /* avoid dangling else. */
3482 : 41075 : Expect (M2Reserved_divtok, stopset0, stopset1, stopset2);
3483 : : }
3484 : : else if (M2LexBuf_currenttoken == M2Reserved_modtok)
3485 : : {
3486 : : /* avoid dangling else. */
3487 : 64764 : Expect (M2Reserved_modtok, stopset0, stopset1, stopset2);
3488 : : }
3489 : : else if (M2LexBuf_currenttoken == M2Reserved_remtok)
3490 : : {
3491 : : /* avoid dangling else. */
3492 : 96 : Expect (M2Reserved_remtok, stopset0, stopset1, stopset2);
3493 : : }
3494 : : else if (M2LexBuf_currenttoken == M2Reserved_andtok)
3495 : : {
3496 : : /* avoid dangling else. */
3497 : 250156 : Expect (M2Reserved_andtok, stopset0, stopset1, stopset2);
3498 : : }
3499 : : else if (M2LexBuf_currenttoken == M2Reserved_ambersandtok)
3500 : : {
3501 : : /* avoid dangling else. */
3502 : 0 : Expect (M2Reserved_ambersandtok, stopset0, stopset1, stopset2);
3503 : : }
3504 : : else
3505 : : {
3506 : : /* avoid dangling else. */
3507 : 0 : ErrorArray ((const char *) "expecting one of: {%K&} {%KAND} {%KREM} {%KMOD} {%KDIV} {%K/} {%K*}", 67);
3508 : : }
3509 : 426003 : }
3510 : :
3511 : :
3512 : : /*
3513 : : ConstFactor := Number | ConstString |
3514 : : ConstSetOrQualidentOrFunction |
3515 : : '(' ConstExpression ')' |
3516 : : 'NOT' ConstFactor |
3517 : : ConstAttribute
3518 : :
3519 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok
3520 : :
3521 : : cannot reachend
3522 : : */
3523 : :
3524 : 486705 : static void ConstFactor (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3525 : : {
3526 : 486705 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
3527 : : {
3528 : 314646 : Number (stopset0, stopset1, stopset2);
3529 : : }
3530 : 172059 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
3531 : : {
3532 : : /* avoid dangling else. */
3533 : 12802 : ConstString (stopset0, stopset1, stopset2);
3534 : : }
3535 : : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
3536 : : {
3537 : : /* avoid dangling else. */
3538 : 128761 : ConstSetOrQualidentOrFunction (stopset0, stopset1, stopset2);
3539 : : }
3540 : : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
3541 : : {
3542 : : /* avoid dangling else. */
3543 : 90 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3544 : 90 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
3545 : 90 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
3546 : : }
3547 : : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
3548 : : {
3549 : : /* avoid dangling else. */
3550 : 0 : Expect (M2Reserved_nottok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3551 : 0 : ConstFactor (stopset0, stopset1, stopset2);
3552 : : }
3553 : : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
3554 : : {
3555 : : /* avoid dangling else. */
3556 : 30406 : ConstAttribute (stopset0, stopset1, stopset2);
3557 : : }
3558 : : else
3559 : : {
3560 : : /* avoid dangling else. */
3561 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%KNOT} {%K(} {%K%{} {%Kidentifier} {%Kstring} {%Kinteger number} {%Kreal number}", 117);
3562 : : }
3563 : 486705 : }
3564 : :
3565 : :
3566 : : /*
3567 : : ConstString := string
3568 : :
3569 : : first symbols:stringtok
3570 : :
3571 : : cannot reachend
3572 : : */
3573 : :
3574 : 12802 : static void ConstString (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3575 : : {
3576 : 12802 : string (stopset0, stopset1, stopset2);
3577 : 12802 : }
3578 : :
3579 : :
3580 : : /*
3581 : : ComponentElement := ConstExpression [ '..' ConstExpression ]
3582 : :
3583 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
3584 : :
3585 : : cannot reachend
3586 : : */
3587 : :
3588 : 27632 : static void ComponentElement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3589 : : {
3590 : 27632 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
3591 : 27632 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
3592 : : {
3593 : 350 : Expect (M2Reserved_periodperiodtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3594 : 350 : ConstExpression (stopset0, stopset1, stopset2);
3595 : : }
3596 : 27632 : }
3597 : :
3598 : :
3599 : : /*
3600 : : ComponentValue := ComponentElement [ 'BY' ConstExpression ]
3601 : :
3602 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
3603 : :
3604 : : cannot reachend
3605 : : */
3606 : :
3607 : 27632 : static void ComponentValue (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3608 : : {
3609 : 27632 : ComponentElement (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok))), stopset2);
3610 : 27632 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
3611 : : {
3612 : 30 : Expect (M2Reserved_bytok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3613 : 30 : ConstExpression (stopset0, stopset1, stopset2);
3614 : : }
3615 : 27632 : }
3616 : :
3617 : :
3618 : : /*
3619 : : ArraySetRecordValue := ComponentValue { ',' ComponentValue }
3620 : :
3621 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
3622 : :
3623 : : cannot reachend
3624 : : */
3625 : :
3626 : 9598 : static void ArraySetRecordValue (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3627 : : {
3628 : 9598 : ComponentValue (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
3629 : 37230 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
3630 : : {
3631 : 18034 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
3632 : 18034 : ComponentValue (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
3633 : : }
3634 : : /* while */
3635 : 9598 : }
3636 : :
3637 : :
3638 : : /*
3639 : : Constructor := '{' [ ArraySetRecordValue ] '}'
3640 : :
3641 : : first symbols:lcbratok
3642 : :
3643 : : cannot reachend
3644 : : */
3645 : :
3646 : 21506 : static void Constructor (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3647 : : {
3648 : 21506 : Expect (M2Reserved_lcbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
3649 : 21506 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
3650 : : {
3651 : 9598 : ArraySetRecordValue (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rcbratok-M2Reserved_eoftok))), stopset1, stopset2);
3652 : : }
3653 : 21506 : Expect (M2Reserved_rcbratok, stopset0, stopset1, stopset2);
3654 : 21506 : }
3655 : :
3656 : :
3657 : : /*
3658 : : ConstSetOrQualidentOrFunction := Constructor |
3659 : : Qualident [ Constructor |
3660 : : ConstActualParameters ]
3661 : :
3662 : : first symbols:identtok, lcbratok
3663 : :
3664 : : cannot reachend
3665 : : */
3666 : :
3667 : 128761 : static void ConstSetOrQualidentOrFunction (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3668 : : {
3669 : 128761 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
3670 : : {
3671 : 552 : Constructor (stopset0, stopset1, stopset2);
3672 : : }
3673 : 128209 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
3674 : : {
3675 : : /* avoid dangling else. */
3676 : 128209 : Qualident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
3677 : 128209 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0)))
3678 : : {
3679 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
3680 : : /* seen optional [ | ] expression */
3681 : 9828 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
3682 : : {
3683 : 5518 : Constructor (stopset0, stopset1, stopset2);
3684 : : }
3685 : 4310 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
3686 : : {
3687 : : /* avoid dangling else. */
3688 : 4310 : ConstActualParameters (stopset0, stopset1, stopset2);
3689 : : }
3690 : : else
3691 : : {
3692 : : /* avoid dangling else. */
3693 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K%{}", 30);
3694 : : }
3695 : : }
3696 : : /* end of optional [ | ] expression */
3697 : : }
3698 : : else
3699 : : {
3700 : : /* avoid dangling else. */
3701 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%K%{}", 39);
3702 : : }
3703 : 128761 : }
3704 : :
3705 : :
3706 : : /*
3707 : : ConstActualParameters := '(' [ ExpList ] ')'
3708 : :
3709 : : first symbols:lparatok
3710 : :
3711 : : cannot reachend
3712 : : */
3713 : :
3714 : 4310 : static void ConstActualParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3715 : : {
3716 : 4310 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3717 : 4310 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
3718 : : {
3719 : 4310 : ExpList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
3720 : : }
3721 : 4310 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
3722 : 4310 : }
3723 : :
3724 : :
3725 : : /*
3726 : : ConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
3727 : : '(' '(' ConstAttributeExpression
3728 : : ')' ')'
3729 : :
3730 : : first symbols:attributetok
3731 : :
3732 : : cannot reachend
3733 : : */
3734 : :
3735 : 30406 : static void ConstAttribute (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3736 : : {
3737 : 30406 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
3738 : 30406 : Expect (M2Reserved_builtintok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
3739 : 30406 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
3740 : 30406 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lesstok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3741 : 30406 : ConstAttributeExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
3742 : 30406 : Expect (M2Reserved_rparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
3743 : 30406 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
3744 : 30406 : }
3745 : :
3746 : :
3747 : : /*
3748 : : ConstAttributeExpression := Ident | '<' Qualident
3749 : : ',' Ident '>'
3750 : :
3751 : : first symbols:lesstok, identtok
3752 : :
3753 : : cannot reachend
3754 : : */
3755 : :
3756 : 30406 : static void ConstAttributeExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3757 : : {
3758 : 30406 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
3759 : : {
3760 : 30046 : Ident (stopset0, stopset1, stopset2);
3761 : : }
3762 : 360 : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
3763 : : {
3764 : : /* avoid dangling else. */
3765 : 360 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3766 : 360 : Qualident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
3767 : 360 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3768 : 360 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_greatertok-M2Reserved_eoftok))), stopset1, stopset2);
3769 : 360 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
3770 : : }
3771 : : else
3772 : : {
3773 : : /* avoid dangling else. */
3774 : 0 : ErrorArray ((const char *) "expecting one of: {%K<} {%Kidentifier}", 38);
3775 : : }
3776 : 30406 : }
3777 : :
3778 : :
3779 : : /*
3780 : : ByteAlignment := ''
3781 : :
3782 : : first symbols:ldirectivetok
3783 : :
3784 : : cannot reachend
3785 : : */
3786 : :
3787 : 72 : static void ByteAlignment (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3788 : : {
3789 : 72 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3790 : 72 : AttributeExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
3791 : 72 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
3792 : 72 : }
3793 : :
3794 : :
3795 : : /*
3796 : : Alignment := [ ByteAlignment ]
3797 : :
3798 : : first symbols:ldirectivetok
3799 : :
3800 : : reachend
3801 : : */
3802 : :
3803 : 881284 : static void Alignment (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3804 : : {
3805 : 0 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
3806 : : {
3807 : 72 : ByteAlignment (stopset0, stopset1, stopset2);
3808 : : }
3809 : 0 : }
3810 : :
3811 : :
3812 : : /*
3813 : : TypeDeclaration :=
3814 : : % PushAutoOn %
3815 : : ( IdentScope '=' Type Alignment )
3816 : :
3817 : : % PopAuto %
3818 : :
3819 : :
3820 : : first symbols:identtok
3821 : :
3822 : : cannot reachend
3823 : : */
3824 : :
3825 : 72442 : static void TypeDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3826 : : {
3827 : 72442 : M2Quads_PushAutoOn ();
3828 : 72442 : IdentScope (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
3829 : 72442 : Expect (M2Reserved_equaltok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_pointertok-M2Reserved_arraytok)) | (1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok)) | (1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3830 : 72442 : Type (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
3831 : 72442 : Alignment (stopset0, stopset1, stopset2);
3832 : 72442 : M2Quads_PopAuto ();
3833 : 72442 : }
3834 : :
3835 : :
3836 : : /*
3837 : : Type :=
3838 : : % VAR Name: CARDINAL ; %
3839 : :
3840 : : % PushAutoOff %
3841 : : ( SimpleType | ArrayType | RecordType |
3842 : : SetType | PointerType |
3843 : : ProcedureType )
3844 : : % PopAuto %
3845 : :
3846 : : % PopT(Name) remove TYPE name from stack %
3847 : :
3848 : :
3849 : : first symbols:lparatok, lsbratok, proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok
3850 : :
3851 : : cannot reachend
3852 : : */
3853 : :
3854 : 1265500 : static void Type (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3855 : : {
3856 : 1265500 : unsigned int Name;
3857 : :
3858 : 1265500 : M2Quads_PushAutoOff ();
3859 : 1265500 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_identtok))
3860 : : {
3861 : 998514 : SimpleType (stopset0, stopset1, stopset2);
3862 : : }
3863 : 266986 : else if (M2LexBuf_currenttoken == M2Reserved_arraytok)
3864 : : {
3865 : : /* avoid dangling else. */
3866 : 83328 : ArrayType (stopset0, stopset1, stopset2);
3867 : : }
3868 : 183658 : else if (M2LexBuf_currenttoken == M2Reserved_recordtok)
3869 : : {
3870 : : /* avoid dangling else. */
3871 : 49064 : RecordType (stopset0, stopset1, stopset2);
3872 : : }
3873 : 134594 : else if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_settok))
3874 : : {
3875 : : /* avoid dangling else. */
3876 : 1846 : SetType (stopset0, stopset1, stopset2);
3877 : : }
3878 : 132748 : else if (M2LexBuf_currenttoken == M2Reserved_pointertok)
3879 : : {
3880 : : /* avoid dangling else. */
3881 : 76824 : PointerType (stopset0, stopset1, stopset2);
3882 : : }
3883 : 55924 : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
3884 : : {
3885 : : /* avoid dangling else. */
3886 : 55924 : ProcedureType (stopset0, stopset1, stopset2);
3887 : : }
3888 : : else
3889 : : {
3890 : : /* avoid dangling else. */
3891 : 0 : ErrorArray ((const char *) "expecting one of: {%KPROCEDURE} {%KPOINTER} {%KSET} {%KPACKEDSET} {%KOF} {%KRECORD} {%KARRAY} {%Kidentifier} {%K(} {%K[}", 120);
3892 : : }
3893 : 1265500 : M2Quads_PopAuto ();
3894 : 1265500 : M2Quads_PopT (&Name); /* remove TYPE name from stack */
3895 : 1265500 : }
3896 : :
3897 : :
3898 : : /*
3899 : : SimpleType := Qualident [ SubrangeType ] |
3900 : : Enumeration | SubrangeType
3901 : :
3902 : : first symbols:lsbratok, lparatok, identtok
3903 : :
3904 : : cannot reachend
3905 : : */
3906 : :
3907 : 1083830 : static void SimpleType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3908 : : {
3909 : 1083830 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
3910 : : {
3911 : : /* avoid dangling else. */
3912 : 978262 : Qualident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
3913 : 978262 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3914 : : {
3915 : 18 : SubrangeType (stopset0, stopset1, stopset2);
3916 : : }
3917 : : }
3918 : 105568 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
3919 : : {
3920 : : /* avoid dangling else. */
3921 : 22868 : Enumeration (stopset0, stopset1, stopset2);
3922 : : }
3923 : 82700 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3924 : : {
3925 : : /* avoid dangling else. */
3926 : 82700 : SubrangeType (stopset0, stopset1, stopset2);
3927 : : }
3928 : : else
3929 : : {
3930 : : /* avoid dangling else. */
3931 : 0 : ErrorArray ((const char *) "expecting one of: {%K[} {%K(} {%Kidentifier}", 44);
3932 : : }
3933 : 1083830 : }
3934 : :
3935 : :
3936 : : /*
3937 : : Enumeration := '('
3938 : : % PushAutoOn %
3939 : : ( PossiblyExportIdentList
3940 : : % StartBuildEnumeration %
3941 : :
3942 : : % EndBuildEnumeration %
3943 : : )
3944 : : % PopAuto %
3945 : : ')'
3946 : :
3947 : : first symbols:lparatok
3948 : :
3949 : : cannot reachend
3950 : : */
3951 : :
3952 : 22868 : static void Enumeration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3953 : : {
3954 : 22868 : Expect (M2Reserved_lparatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3955 : 22868 : M2Quads_PushAutoOn ();
3956 : 22868 : PossiblyExportIdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
3957 : 22868 : P1SymBuild_StartBuildEnumeration ();
3958 : 22868 : P1SymBuild_EndBuildEnumeration ();
3959 : 22868 : M2Quads_PopAuto ();
3960 : 22868 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
3961 : 22868 : }
3962 : :
3963 : :
3964 : : /*
3965 : : IdentList := Ident
3966 : : % VAR
3967 : : on: BOOLEAN ;
3968 : : n : CARDINAL ; %
3969 : :
3970 : : % on := IsAutoPushOn() ;
3971 : : IF on
3972 : : THEN
3973 : : n := 1
3974 : : END %
3975 : : { ',' Ident
3976 : : % IF on
3977 : : THEN
3978 : : INC(n)
3979 : : END %
3980 : : }
3981 : : % IF on
3982 : : THEN
3983 : : PushT(n)
3984 : : END %
3985 : :
3986 : :
3987 : : first symbols:identtok
3988 : :
3989 : : cannot reachend
3990 : : */
3991 : :
3992 : 5556750 : static void IdentList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
3993 : : {
3994 : 5556750 : bool on;
3995 : 5556750 : unsigned int n;
3996 : :
3997 : 5556750 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
3998 : 5556750 : on = M2Quads_IsAutoPushOn ();
3999 : 5556750 : if (on)
4000 : : {
4001 : 5556750 : n = 1;
4002 : : }
4003 : 9247958 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4004 : : {
4005 : 3691208 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4006 : 3691208 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4007 : 3691208 : if (on)
4008 : : {
4009 : 2042957 : n += 1;
4010 : : }
4011 : : }
4012 : : /* while */
4013 : 5556750 : if (on)
4014 : : {
4015 : 320652 : M2Quads_PushT (n);
4016 : : }
4017 : 5556750 : }
4018 : :
4019 : :
4020 : : /*
4021 : : PossiblyExportIdentList := PossiblyExportIdent
4022 : : % VAR
4023 : : on: BOOLEAN ;
4024 : : n : CARDINAL ; %
4025 : :
4026 : : % on := IsAutoPushOn() ;
4027 : : IF on
4028 : : THEN
4029 : : n := 1
4030 : : END %
4031 : : { ',' PossiblyExportIdent
4032 : :
4033 : : % IF on
4034 : : THEN
4035 : : INC(n)
4036 : : END %
4037 : : }
4038 : : % IF on
4039 : : THEN
4040 : : PushT(n)
4041 : : END %
4042 : :
4043 : :
4044 : : first symbols:identtok
4045 : :
4046 : : cannot reachend
4047 : : */
4048 : :
4049 : 22868 : static void PossiblyExportIdentList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4050 : : {
4051 : 22868 : bool on;
4052 : 22868 : unsigned int n;
4053 : :
4054 : 22868 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4055 : 22868 : on = M2Quads_IsAutoPushOn ();
4056 : 22868 : if (on)
4057 : : {
4058 : 22868 : n = 1;
4059 : : }
4060 : 413438 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4061 : : {
4062 : 390570 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4063 : 390570 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4064 : 390570 : if (on)
4065 : : {
4066 : 390570 : n += 1;
4067 : : }
4068 : : }
4069 : : /* while */
4070 : 22868 : if (on)
4071 : : {
4072 : 22868 : M2Quads_PushT (n);
4073 : : }
4074 : 22868 : }
4075 : :
4076 : :
4077 : : /*
4078 : : SubrangeType := '[' ConstExpression '..' ConstExpression
4079 : : ']'
4080 : :
4081 : : first symbols:lsbratok
4082 : :
4083 : : cannot reachend
4084 : : */
4085 : :
4086 : 82718 : static void SubrangeType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4087 : : {
4088 : 82718 : Expect (M2Reserved_lsbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4089 : 82718 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
4090 : 82718 : Expect (M2Reserved_periodperiodtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4091 : 82718 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4092 : 82718 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
4093 : 82718 : }
4094 : :
4095 : :
4096 : : /*
4097 : : ArrayType := 'ARRAY' SimpleType { ',' SimpleType }
4098 : : 'OF'
4099 : : % BuildNulName %
4100 : : Type
4101 : :
4102 : : first symbols:arraytok
4103 : :
4104 : : cannot reachend
4105 : : */
4106 : :
4107 : 83328 : static void ArrayType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4108 : : {
4109 : 83328 : Expect (M2Reserved_arraytok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4110 : 83328 : SimpleType (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
4111 : 166798 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4112 : : {
4113 : 142 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4114 : 142 : SimpleType (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
4115 : : }
4116 : : /* while */
4117 : 83328 : Expect (M2Reserved_oftok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_pointertok-M2Reserved_arraytok)) | (1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok)) | (1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4118 : 83328 : P1SymBuild_BuildNulName ();
4119 : 83328 : Type (stopset0, stopset1, stopset2);
4120 : 83328 : }
4121 : :
4122 : :
4123 : : /*
4124 : : RecordType := 'RECORD' [ DefaultRecordAttributes ]
4125 : : FieldListSequence 'END'
4126 : :
4127 : : first symbols:recordtok
4128 : :
4129 : : cannot reachend
4130 : : */
4131 : :
4132 : 49064 : static void RecordType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4133 : : {
4134 : 49064 : Expect (M2Reserved_recordtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4135 : 49064 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
4136 : : {
4137 : 36 : DefaultRecordAttributes (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4138 : : }
4139 : 49064 : FieldListSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
4140 : 49064 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
4141 : 49064 : }
4142 : :
4143 : :
4144 : : /*
4145 : : DefaultRecordAttributes := ''
4146 : :
4147 : : first symbols:ldirectivetok
4148 : :
4149 : : cannot reachend
4150 : : */
4151 : :
4152 : 36 : static void DefaultRecordAttributes (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4153 : : {
4154 : 36 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4155 : 36 : AttributeExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4156 : 36 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
4157 : 36 : }
4158 : :
4159 : :
4160 : : /*
4161 : : RecordFieldPragma := [ '' ]
4162 : :
4163 : : first symbols:ldirectivetok
4164 : :
4165 : : reachend
4166 : : */
4167 : :
4168 : 224064 : static void RecordFieldPragma (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4169 : : {
4170 : 224064 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
4171 : : {
4172 : 12 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4173 : 12 : FieldPragmaExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok)) | (1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4174 : 24 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4175 : : {
4176 : 0 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4177 : 0 : FieldPragmaExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4178 : : }
4179 : : /* while */
4180 : 12 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
4181 : : }
4182 : 224064 : }
4183 : :
4184 : :
4185 : : /*
4186 : : FieldPragmaExpression :=
4187 : : % PushAutoOff %
4188 : : Ident [ '(' ConstExpression
4189 : : ')' ]
4190 : : % PopAuto %
4191 : :
4192 : :
4193 : : first symbols:identtok
4194 : :
4195 : : cannot reachend
4196 : : */
4197 : :
4198 : 12 : static void FieldPragmaExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4199 : : {
4200 : 12 : M2Quads_PushAutoOff ();
4201 : 12 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4202 : 12 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4203 : : {
4204 : 12 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4205 : 12 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4206 : 12 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4207 : : }
4208 : 12 : M2Quads_PopAuto ();
4209 : 12 : }
4210 : :
4211 : :
4212 : : /*
4213 : : AttributeExpression :=
4214 : : % PushAutoOff %
4215 : : Ident '(' ConstExpression
4216 : : ')'
4217 : : % PopAuto %
4218 : :
4219 : :
4220 : : first symbols:identtok
4221 : :
4222 : : cannot reachend
4223 : : */
4224 : :
4225 : 108 : static void AttributeExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4226 : : {
4227 : 108 : M2Quads_PushAutoOff ();
4228 : 108 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4229 : 108 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4230 : 108 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4231 : 108 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4232 : 108 : M2Quads_PopAuto ();
4233 : 108 : }
4234 : :
4235 : :
4236 : : /*
4237 : : AttributeUnused := [ '' ]
4238 : :
4239 : : first symbols:ldirectivetok
4240 : :
4241 : : reachend
4242 : : */
4243 : :
4244 : 0 : static void AttributeUnused (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4245 : : {
4246 : 0 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
4247 : : {
4248 : 0 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4249 : 0 : M2Quads_PushAutoOff ();
4250 : 0 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4251 : 0 : M2Quads_PopAuto ();
4252 : 0 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
4253 : : }
4254 : 0 : }
4255 : :
4256 : :
4257 : : /*
4258 : : FieldListSequence := FieldListStatement { ';' FieldListStatement }
4259 : :
4260 : : first symbols:casetok, identtok, semicolontok
4261 : :
4262 : : reachend
4263 : : */
4264 : :
4265 : 49730 : static void FieldListSequence (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4266 : : {
4267 : 49730 : FieldListStatement (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
4268 : 320272 : while (M2LexBuf_currenttoken == M2Reserved_semicolontok)
4269 : : {
4270 : 220812 : Expect (M2Reserved_semicolontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4271 : 220812 : FieldListStatement (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
4272 : : }
4273 : : /* while */
4274 : 49730 : }
4275 : :
4276 : :
4277 : : /*
4278 : : FieldListStatement := [ FieldList ]
4279 : :
4280 : : first symbols:identtok, casetok
4281 : :
4282 : : reachend
4283 : : */
4284 : :
4285 : 270542 : static void FieldListStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4286 : : {
4287 : 270542 : if ((M2LexBuf_currenttoken == M2Reserved_casetok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
4288 : : {
4289 : 224340 : FieldList (stopset0, stopset1, stopset2);
4290 : : }
4291 : 270542 : }
4292 : :
4293 : :
4294 : : /*
4295 : : FieldList := IdentList ':'
4296 : : % BuildNulName %
4297 : : Type RecordFieldPragma |
4298 : : 'CASE' CaseTag 'OF' Varient { '|' Varient }
4299 : : [ 'ELSE' FieldListSequence ] 'END'
4300 : :
4301 : : first symbols:casetok, identtok
4302 : :
4303 : : cannot reachend
4304 : : */
4305 : :
4306 : 224340 : static void FieldList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4307 : : {
4308 : 224340 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
4309 : : {
4310 : 224064 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
4311 : 224064 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_pointertok-M2Reserved_arraytok)) | (1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok)) | (1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4312 : 224064 : P1SymBuild_BuildNulName ();
4313 : 224064 : Type (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4314 : 224064 : RecordFieldPragma (stopset0, stopset1, stopset2);
4315 : : }
4316 : 276 : else if (M2LexBuf_currenttoken == M2Reserved_casetok)
4317 : : {
4318 : : /* avoid dangling else. */
4319 : 276 : Expect (M2Reserved_casetok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4320 : 276 : CaseTag (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
4321 : 276 : Expect (M2Reserved_oftok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4322 : 276 : Varient (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
4323 : 1188 : while (M2LexBuf_currenttoken == M2Reserved_bartok)
4324 : : {
4325 : 636 : Expect (M2Reserved_bartok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4326 : 636 : Varient (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok))), stopset2);
4327 : : }
4328 : : /* while */
4329 : 276 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
4330 : : {
4331 : 114 : Expect (M2Reserved_elsetok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4332 : 114 : FieldListSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
4333 : : }
4334 : 276 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
4335 : : }
4336 : : else
4337 : : {
4338 : : /* avoid dangling else. */
4339 : 0 : ErrorArray ((const char *) "expecting one of: {%KCASE} {%Kidentifier}", 41);
4340 : : }
4341 : 224340 : }
4342 : :
4343 : :
4344 : : /*
4345 : : TagIdent := [ Ident ]
4346 : :
4347 : : first symbols:identtok
4348 : :
4349 : : reachend
4350 : : */
4351 : :
4352 : 276 : static void TagIdent (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4353 : : {
4354 : 0 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
4355 : : {
4356 : 234 : Ident (stopset0, stopset1, stopset2);
4357 : : }
4358 : 0 : }
4359 : :
4360 : :
4361 : : /*
4362 : : CaseTag := TagIdent [ ':' Qualident ]
4363 : :
4364 : : first symbols:colontok, identtok
4365 : :
4366 : : reachend
4367 : : */
4368 : :
4369 : 276 : static void CaseTag (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4370 : : {
4371 : 276 : TagIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
4372 : 276 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
4373 : : {
4374 : 264 : Expect (M2Reserved_colontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4375 : 264 : Qualident (stopset0, stopset1, stopset2);
4376 : : }
4377 : 276 : }
4378 : :
4379 : :
4380 : : /*
4381 : : Varient := [ VarientCaseLabelList ':' FieldListSequence ]
4382 : :
4383 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4384 : :
4385 : : reachend
4386 : : */
4387 : :
4388 : 912 : static void Varient (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4389 : : {
4390 : 912 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0))))
4391 : : {
4392 : 552 : VarientCaseLabelList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
4393 : 552 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4394 : 552 : FieldListSequence (stopset0, stopset1, stopset2);
4395 : : }
4396 : 912 : }
4397 : :
4398 : :
4399 : : /*
4400 : : VarientCaseLabelList := VarientCaseLabels { ','
4401 : : VarientCaseLabels }
4402 : :
4403 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
4404 : :
4405 : : cannot reachend
4406 : : */
4407 : :
4408 : 552 : static void VarientCaseLabelList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4409 : : {
4410 : 552 : VarientCaseLabels (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4411 : 1146 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4412 : : {
4413 : 42 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4414 : 42 : VarientCaseLabels (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4415 : : }
4416 : : /* while */
4417 : 552 : }
4418 : :
4419 : :
4420 : : /*
4421 : : VarientCaseLabels := ConstExpression [ '..' ConstExpression ]
4422 : :
4423 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4424 : :
4425 : : cannot reachend
4426 : : */
4427 : :
4428 : 594 : static void VarientCaseLabels (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4429 : : {
4430 : 594 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
4431 : 594 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
4432 : : {
4433 : 0 : Expect (M2Reserved_periodperiodtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4434 : 0 : ConstExpression (stopset0, stopset1, stopset2);
4435 : : }
4436 : 594 : }
4437 : :
4438 : :
4439 : : /*
4440 : : CaseLabelList := CaseLabels { ',' CaseLabels }
4441 : :
4442 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
4443 : :
4444 : : cannot reachend
4445 : : */
4446 : :
4447 : 13646 : static void CaseLabelList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4448 : : {
4449 : 13646 : CaseLabels (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4450 : 27504 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4451 : : {
4452 : 212 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4453 : 212 : CaseLabels (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4454 : : }
4455 : : /* while */
4456 : 13646 : }
4457 : :
4458 : :
4459 : : /*
4460 : : CaseLabels := ConstExpression [ '..' ConstExpression ]
4461 : :
4462 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4463 : :
4464 : : cannot reachend
4465 : : */
4466 : :
4467 : 13858 : static void CaseLabels (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4468 : : {
4469 : 13858 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
4470 : 13858 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
4471 : : {
4472 : 176 : Expect (M2Reserved_periodperiodtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4473 : 176 : ConstExpression (stopset0, stopset1, stopset2);
4474 : : }
4475 : 13858 : }
4476 : :
4477 : :
4478 : : /*
4479 : : SetType :=
4480 : : % VAR Name: CARDINAL ; %
4481 : : ( 'SET' | 'PACKEDSET' ) 'OF'
4482 : : % BuildNulName ; %
4483 : : SimpleType
4484 : : % PopT(Name) ; %
4485 : :
4486 : :
4487 : : first symbols:oftok, packedsettok, settok
4488 : :
4489 : : cannot reachend
4490 : : */
4491 : :
4492 : 1846 : static void SetType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4493 : : {
4494 : 1846 : unsigned int Name;
4495 : :
4496 : 1846 : if (M2LexBuf_currenttoken == M2Reserved_settok)
4497 : : {
4498 : 1750 : Expect (M2Reserved_settok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
4499 : : }
4500 : 96 : else if (M2LexBuf_currenttoken == M2Reserved_packedsettok)
4501 : : {
4502 : : /* avoid dangling else. */
4503 : 96 : Expect (M2Reserved_packedsettok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
4504 : : }
4505 : : else
4506 : : {
4507 : : /* avoid dangling else. */
4508 : 0 : ErrorArray ((const char *) "expecting one of: {%KPACKEDSET} {%KSET}", 39);
4509 : : }
4510 : 1846 : Expect (M2Reserved_oftok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4511 : 1846 : P1SymBuild_BuildNulName ();
4512 : 1846 : SimpleType (stopset0, stopset1, stopset2);
4513 : 1846 : M2Quads_PopT (&Name);
4514 : 1846 : }
4515 : :
4516 : :
4517 : : /*
4518 : : PointerType := 'POINTER' 'TO'
4519 : : % BuildNulName %
4520 : : Type
4521 : :
4522 : : first symbols:pointertok
4523 : :
4524 : : cannot reachend
4525 : : */
4526 : :
4527 : 76824 : static void PointerType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4528 : : {
4529 : 76824 : Expect (M2Reserved_pointertok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok))));
4530 : 76824 : Expect (M2Reserved_totok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_pointertok-M2Reserved_arraytok)) | (1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok)) | (1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4531 : 76824 : P1SymBuild_BuildNulName ();
4532 : 76824 : Type (stopset0, stopset1, stopset2);
4533 : 76824 : }
4534 : :
4535 : :
4536 : : /*
4537 : : ProcedureType := 'PROCEDURE' [ FormalTypeList ]
4538 : :
4539 : : first symbols:proceduretok
4540 : :
4541 : : cannot reachend
4542 : : */
4543 : :
4544 : 55924 : static void ProcedureType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4545 : : {
4546 : 55924 : Expect (M2Reserved_proceduretok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4547 : 55924 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4548 : : {
4549 : 40663 : FormalTypeList (stopset0, stopset1, stopset2);
4550 : : }
4551 : 55924 : }
4552 : :
4553 : :
4554 : : /*
4555 : : FormalTypeList := '(' ( ')' FormalReturn |
4556 : : ProcedureParameters ')'
4557 : : FormalReturn )
4558 : :
4559 : : first symbols:lparatok
4560 : :
4561 : : cannot reachend
4562 : : */
4563 : :
4564 : 40663 : static void FormalTypeList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4565 : : {
4566 : 40663 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4567 : 40663 : if (M2LexBuf_currenttoken == M2Reserved_rparatok)
4568 : : {
4569 : 5398 : Expect (M2Reserved_rparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
4570 : 5398 : FormalReturn (stopset0, stopset1, stopset2);
4571 : : }
4572 : 35265 : else if ((M2LexBuf_currenttoken == M2Reserved_arraytok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
4573 : : {
4574 : : /* avoid dangling else. */
4575 : 35265 : ProcedureParameters (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4576 : 35265 : Expect (M2Reserved_rparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
4577 : 35265 : FormalReturn (stopset0, stopset1, stopset2);
4578 : : }
4579 : : else
4580 : : {
4581 : : /* avoid dangling else. */
4582 : 0 : ErrorArray ((const char *) "expecting one of: {%KVAR} {%K...} {%KARRAY} {%Kidentifier} {%K)}", 64);
4583 : : }
4584 : 40663 : }
4585 : :
4586 : :
4587 : : /*
4588 : : FormalReturn := [ ':' OptReturnType ]
4589 : :
4590 : : first symbols:colontok
4591 : :
4592 : : reachend
4593 : : */
4594 : :
4595 : 2817050 : static void FormalReturn (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4596 : : {
4597 : 2817050 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
4598 : : {
4599 : 1288892 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4600 : 1288892 : OptReturnType (stopset0, stopset1, stopset2);
4601 : : }
4602 : 2817050 : }
4603 : :
4604 : :
4605 : : /*
4606 : : OptReturnType := '[' Qualident ']' |
4607 : : Qualident
4608 : :
4609 : : first symbols:identtok, lsbratok
4610 : :
4611 : : cannot reachend
4612 : : */
4613 : :
4614 : 1288892 : static void OptReturnType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4615 : : {
4616 : 1288892 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
4617 : : {
4618 : 121836 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4619 : 121836 : Qualident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4620 : 121836 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
4621 : : }
4622 : 1167056 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
4623 : : {
4624 : : /* avoid dangling else. */
4625 : 1167056 : Qualident (stopset0, stopset1, stopset2);
4626 : : }
4627 : : else
4628 : : {
4629 : : /* avoid dangling else. */
4630 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%K[}", 38);
4631 : : }
4632 : 1288892 : }
4633 : :
4634 : :
4635 : : /*
4636 : : ProcedureParameters := ProcedureParameter { ','
4637 : : ProcedureParameter }
4638 : :
4639 : : first symbols:identtok, arraytok, periodperiodperiodtok, vartok
4640 : :
4641 : : cannot reachend
4642 : : */
4643 : :
4644 : 35265 : static void ProcedureParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4645 : : {
4646 : 35265 : ProcedureParameter (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4647 : 115122 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4648 : : {
4649 : 44592 : Expect (M2Reserved_commatok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4650 : 44592 : ProcedureParameter (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4651 : : }
4652 : : /* while */
4653 : 35265 : }
4654 : :
4655 : :
4656 : : /*
4657 : : ProcedureParameter := '...' | 'VAR' FormalType |
4658 : : FormalType
4659 : :
4660 : : first symbols:arraytok, identtok, vartok, periodperiodperiodtok
4661 : :
4662 : : cannot reachend
4663 : : */
4664 : :
4665 : 79857 : static void ProcedureParameter (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4666 : : {
4667 : 79857 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
4668 : : {
4669 : 0 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
4670 : : }
4671 : 79857 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
4672 : : {
4673 : : /* avoid dangling else. */
4674 : 6040 : Expect (M2Reserved_vartok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4675 : 6040 : FormalType (stopset0, stopset1, stopset2);
4676 : : }
4677 : 73817 : else if ((M2LexBuf_currenttoken == M2Reserved_arraytok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
4678 : : {
4679 : : /* avoid dangling else. */
4680 : 73817 : FormalType (stopset0, stopset1, stopset2);
4681 : : }
4682 : : else
4683 : : {
4684 : : /* avoid dangling else. */
4685 : 0 : ErrorArray ((const char *) "expecting one of: {%KARRAY} {%Kidentifier} {%KVAR} {%K...}", 58);
4686 : : }
4687 : 79857 : }
4688 : :
4689 : :
4690 : : /*
4691 : : VarIdent := PossiblyExportIdent [ '[' ConstExpression
4692 : : ']' ]
4693 : :
4694 : : first symbols:identtok
4695 : :
4696 : : cannot reachend
4697 : : */
4698 : :
4699 : 940342 : static void VarIdent (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4700 : : {
4701 : 940342 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4702 : 940342 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
4703 : : {
4704 : 54 : Expect (M2Reserved_lsbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4705 : 54 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4706 : 54 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
4707 : : }
4708 : 940342 : }
4709 : :
4710 : :
4711 : : /*
4712 : : VariableDeclaration := ( VarIdentList ':'
4713 : : % BuildNulName %
4714 : : Type Alignment )
4715 : :
4716 : : first symbols:identtok
4717 : :
4718 : : cannot reachend
4719 : : */
4720 : :
4721 : 705472 : static void VariableDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4722 : : {
4723 : 705472 : VarIdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
4724 : 705472 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_pointertok-M2Reserved_arraytok)) | (1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok)) | (1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4725 : 705472 : P1SymBuild_BuildNulName ();
4726 : 705472 : Type (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4727 : 705472 : Alignment (stopset0, stopset1, stopset2);
4728 : 705472 : }
4729 : :
4730 : :
4731 : : /*
4732 : : VarIdentList := VarIdent
4733 : : % VAR
4734 : : on: BOOLEAN ;
4735 : : n : CARDINAL ; %
4736 : :
4737 : : % on := IsAutoPushOn() ;
4738 : : IF on
4739 : : THEN
4740 : : n := 1
4741 : : END %
4742 : : { ',' VarIdent
4743 : : % IF on
4744 : : THEN
4745 : : INC(n)
4746 : : END %
4747 : : }
4748 : : % IF on
4749 : : THEN
4750 : : PushT(n)
4751 : : END %
4752 : :
4753 : :
4754 : : first symbols:identtok
4755 : :
4756 : : cannot reachend
4757 : : */
4758 : :
4759 : 705472 : static void VarIdentList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4760 : : {
4761 : 705472 : bool on;
4762 : 705472 : unsigned int n;
4763 : :
4764 : 705472 : VarIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4765 : 705472 : on = M2Quads_IsAutoPushOn ();
4766 : 705472 : if (on)
4767 : : {
4768 : 705472 : n = 1;
4769 : : }
4770 : 940342 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4771 : : {
4772 : 234870 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4773 : 234870 : VarIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4774 : 234870 : if (on)
4775 : : {
4776 : 0 : n += 1;
4777 : : }
4778 : : }
4779 : : /* while */
4780 : 705472 : if (on)
4781 : : {
4782 : 0 : M2Quads_PushT (n);
4783 : : }
4784 : 705472 : }
4785 : :
4786 : :
4787 : : /*
4788 : : Designator := Qualident { SubDesignator }
4789 : :
4790 : : first symbols:identtok
4791 : :
4792 : : cannot reachend
4793 : : */
4794 : :
4795 : 4224280 : static void Designator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4796 : : {
4797 : 4224280 : Qualident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
4798 : 9195036 : while ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))))) != 0)))
4799 : : {
4800 : 746476 : SubDesignator (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))), stopset1, stopset2);
4801 : : }
4802 : : /* while */
4803 : 4224280 : }
4804 : :
4805 : :
4806 : : /*
4807 : : SubDesignator := '.' Ident | '[' ExpList ']' |
4808 : : '^'
4809 : :
4810 : : first symbols:uparrowtok, lsbratok, periodtok
4811 : :
4812 : : cannot reachend
4813 : : */
4814 : :
4815 : 746476 : static void SubDesignator (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4816 : : {
4817 : 746476 : if (M2LexBuf_currenttoken == M2Reserved_periodtok)
4818 : : {
4819 : 199914 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4820 : 199914 : Ident (stopset0, stopset1, stopset2);
4821 : : }
4822 : 546562 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
4823 : : {
4824 : : /* avoid dangling else. */
4825 : 230832 : Expect (M2Reserved_lsbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4826 : 230832 : ExpList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4827 : 230832 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
4828 : : }
4829 : 315730 : else if (M2LexBuf_currenttoken == M2Reserved_uparrowtok)
4830 : : {
4831 : : /* avoid dangling else. */
4832 : 315730 : Expect (M2Reserved_uparrowtok, stopset0, stopset1, stopset2);
4833 : : }
4834 : : else
4835 : : {
4836 : : /* avoid dangling else. */
4837 : 0 : ErrorArray ((const char *) "expecting one of: {%K^} {%K[} {%K.}", 35);
4838 : : }
4839 : 746476 : }
4840 : :
4841 : :
4842 : : /*
4843 : : ExpList := Expression { ',' Expression }
4844 : :
4845 : : first symbols:identtok, lcbratok, attributetok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
4846 : :
4847 : : cannot reachend
4848 : : */
4849 : :
4850 : 4153128 : static void ExpList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4851 : : {
4852 : 4153128 : Expression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4853 : 11453848 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4854 : : {
4855 : 3147592 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4856 : 3147592 : Expression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4857 : : }
4858 : : /* while */
4859 : 4153128 : }
4860 : :
4861 : :
4862 : : /*
4863 : : Expression :=
4864 : : % PushAutoOff %
4865 : : SimpleExpression [ Relation SimpleExpression ]
4866 : :
4867 : : % PopAuto %
4868 : :
4869 : :
4870 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, attributetok, plustok, minustok
4871 : :
4872 : : cannot reachend
4873 : : */
4874 : :
4875 : 12173633 : static void Expression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4876 : : {
4877 : 12173633 : M2Quads_PushAutoOff ();
4878 : 12173633 : SimpleExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_greatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_lesstok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_hashtok-M2Reserved_eoftok)) | (1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
4879 : 12173633 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_hashtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_lesstok-M2Reserved_eoftok)) | (1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_greatertok-M2Reserved_eoftok)) | (1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_intok))
4880 : : {
4881 : 1415465 : Relation (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4882 : 1415465 : SimpleExpression (stopset0, stopset1, stopset2);
4883 : : }
4884 : 12173633 : M2Quads_PopAuto ();
4885 : 12173633 : }
4886 : :
4887 : :
4888 : : /*
4889 : : SimpleExpression := [ '+' | '-' ] Term { AddOperator
4890 : : Term }
4891 : :
4892 : : first symbols:identtok, lcbratok, attributetok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
4893 : :
4894 : : cannot reachend
4895 : : */
4896 : :
4897 : 13589098 : static void SimpleExpression (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4898 : : {
4899 : 13589098 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))))) != 0)))
4900 : : {
4901 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4902 : : /* seen optional [ | ] expression */
4903 : 57414 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
4904 : : {
4905 : 144 : Expect (M2Reserved_plustok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4906 : : }
4907 : 57270 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
4908 : : {
4909 : : /* avoid dangling else. */
4910 : 57270 : Expect (M2Reserved_minustok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4911 : : }
4912 : : else
4913 : : {
4914 : : /* avoid dangling else. */
4915 : 0 : ErrorArray ((const char *) "expecting one of: {%K-} {%K+}", 29);
4916 : : }
4917 : : }
4918 : : /* end of optional [ | ] expression */
4919 : 13589098 : Term (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
4920 : 27559388 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
4921 : : {
4922 : 381192 : AddOperator (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4923 : 381192 : Term (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
4924 : : }
4925 : : /* while */
4926 : 13589098 : }
4927 : :
4928 : :
4929 : : /*
4930 : : Term := Factor { MulOperator Factor }
4931 : :
4932 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, attributetok
4933 : :
4934 : : cannot reachend
4935 : : */
4936 : :
4937 : 13970290 : static void Term (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4938 : : {
4939 : 13970290 : Factor (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
4940 : 28356094 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))))) != 0))) || (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
4941 : : {
4942 : 415514 : MulOperator (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4943 : 415514 : Factor (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
4944 : : }
4945 : : /* while */
4946 : 13970290 : }
4947 : :
4948 : :
4949 : : /*
4950 : : Factor := Number | string | SetOrDesignatorOrFunction |
4951 : : '(' Expression ')' |
4952 : : 'NOT' Factor | ConstAttribute
4953 : :
4954 : : first symbols:identtok, lcbratok, attributetok, nottok, lparatok, stringtok, integertok, realtok
4955 : :
4956 : : cannot reachend
4957 : : */
4958 : :
4959 : 14385804 : static void Factor (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
4960 : : {
4961 : 14457978 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
4962 : : {
4963 : 1109136 : Number (stopset0, stopset1, stopset2);
4964 : : }
4965 : 13348842 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
4966 : : {
4967 : : /* avoid dangling else. */
4968 : 880174 : string (stopset0, stopset1, stopset2);
4969 : : }
4970 : : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
4971 : : {
4972 : : /* avoid dangling else. */
4973 : 11463584 : SetOrDesignatorOrFunction (stopset0, stopset1, stopset2);
4974 : : }
4975 : : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4976 : : {
4977 : : /* avoid dangling else. */
4978 : 932910 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4979 : 932910 : Expression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4980 : 932910 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4981 : : }
4982 : : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
4983 : : {
4984 : : /* avoid dangling else. */
4985 : 72174 : Expect (M2Reserved_nottok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4986 : 72174 : Factor (stopset0, stopset1, stopset2);
4987 : : }
4988 : : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
4989 : : {
4990 : : /* avoid dangling else. */
4991 : 0 : ConstAttribute (stopset0, stopset1, stopset2);
4992 : : }
4993 : : else
4994 : : {
4995 : : /* avoid dangling else. */
4996 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%KNOT} {%K(} {%Kidentifier} {%K%{} {%Kstring} {%Kinteger number} {%Kreal number}", 117);
4997 : : }
4998 : 14385804 : }
4999 : :
5000 : :
5001 : : /*
5002 : : SetOrDesignatorOrFunction := ( Qualident [ Constructor |
5003 : : SimpleDes
5004 : : [ ActualParameters ] ] |
5005 : : Constructor )
5006 : :
5007 : : first symbols:lcbratok, identtok
5008 : :
5009 : : cannot reachend
5010 : : */
5011 : :
5012 : 11463584 : static void SetOrDesignatorOrFunction (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5013 : : {
5014 : 11463584 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5015 : : {
5016 : : /* avoid dangling else. */
5017 : 11463258 : Qualident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5018 : 11463258 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0)))
5019 : : {
5020 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
5021 : : /* seen optional [ | ] expression */
5022 : 2578680 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
5023 : : {
5024 : 15110 : Constructor (stopset0, stopset1, stopset2);
5025 : : }
5026 : 2563570 : else if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))))) != 0)))
5027 : : {
5028 : : /* avoid dangling else. */
5029 : 2563570 : SimpleDes (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5030 : 2563570 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5031 : : {
5032 : 1819942 : ActualParameters (stopset0, stopset1, stopset2);
5033 : : }
5034 : : }
5035 : : else
5036 : : {
5037 : : /* avoid dangling else. */
5038 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K.} {%K[} {%K^} {%K%{}", 48);
5039 : : }
5040 : : }
5041 : : /* end of optional [ | ] expression */
5042 : : }
5043 : 326 : else if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
5044 : : {
5045 : : /* avoid dangling else. */
5046 : 326 : Constructor (stopset0, stopset1, stopset2);
5047 : : }
5048 : : else
5049 : : {
5050 : : /* avoid dangling else. */
5051 : 0 : ErrorArray ((const char *) "expecting one of: {%K%{} {%Kidentifier}", 39);
5052 : : }
5053 : 11463584 : }
5054 : :
5055 : :
5056 : : /*
5057 : : SimpleDes := { '.' Ident | '[' ExpList ']' |
5058 : : '^' }
5059 : :
5060 : : first symbols:uparrowtok, lsbratok, periodtok
5061 : :
5062 : : reachend
5063 : : */
5064 : :
5065 : 2563570 : static void SimpleDes (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5066 : : {
5067 : 2563570 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))))) != 0)))
5068 : : {
5069 : : /* seen optional { | } expression */
5070 : 1909884 : while ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))))) != 0)))
5071 : : {
5072 : 1164278 : if (M2LexBuf_currenttoken == M2Reserved_periodtok)
5073 : : {
5074 : 383872 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5075 : 383872 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
5076 : : }
5077 : 780406 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
5078 : : {
5079 : : /* avoid dangling else. */
5080 : 363810 : Expect (M2Reserved_lsbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5081 : 363810 : ExpList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
5082 : 363810 : Expect (M2Reserved_rsbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
5083 : : }
5084 : 416596 : else if (M2LexBuf_currenttoken == M2Reserved_uparrowtok)
5085 : : {
5086 : : /* avoid dangling else. */
5087 : 416596 : Expect (M2Reserved_uparrowtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
5088 : : }
5089 : : }
5090 : : /* end of optional { | } expression */
5091 : : }
5092 : 2563570 : }
5093 : :
5094 : :
5095 : : /*
5096 : : ActualParameters := '(' [ ExpList ] ')'
5097 : :
5098 : : first symbols:lparatok
5099 : :
5100 : : cannot reachend
5101 : : */
5102 : :
5103 : 3667900 : static void ActualParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5104 : : {
5105 : 3667900 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5106 : 3667900 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
5107 : : {
5108 : 3554176 : ExpList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5109 : : }
5110 : 3667900 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5111 : 3667900 : }
5112 : :
5113 : :
5114 : : /*
5115 : : Statement := [ AssignmentOrProcedureCall |
5116 : : IfStatement | CaseStatement |
5117 : : WhileStatement |
5118 : : RepeatStatement |
5119 : : LoopStatement | ForStatement |
5120 : : WithStatement | AsmStatement |
5121 : : 'EXIT' | 'RETURN' [ Expression ] |
5122 : : RetryStatement ]
5123 : :
5124 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
5125 : :
5126 : : reachend
5127 : : */
5128 : :
5129 : 6158686 : static void Statement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5130 : : {
5131 : 6158686 : if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
5132 : : {
5133 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
5134 : : /* seen optional [ | ] expression */
5135 : 6047414 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5136 : : {
5137 : 4092092 : AssignmentOrProcedureCall (stopset0, stopset1, stopset2);
5138 : : }
5139 : : else if (M2LexBuf_currenttoken == M2Reserved_iftok)
5140 : : {
5141 : : /* avoid dangling else. */
5142 : 1032364 : IfStatement (stopset0, stopset1, stopset2);
5143 : : }
5144 : : else if (M2LexBuf_currenttoken == M2Reserved_casetok)
5145 : : {
5146 : : /* avoid dangling else. */
5147 : 4478 : CaseStatement (stopset0, stopset1, stopset2);
5148 : : }
5149 : : else if (M2LexBuf_currenttoken == M2Reserved_whiletok)
5150 : : {
5151 : : /* avoid dangling else. */
5152 : 184802 : WhileStatement (stopset0, stopset1, stopset2);
5153 : : }
5154 : : else if (M2LexBuf_currenttoken == M2Reserved_repeattok)
5155 : : {
5156 : : /* avoid dangling else. */
5157 : 53742 : RepeatStatement (stopset0, stopset1, stopset2);
5158 : : }
5159 : : else if (M2LexBuf_currenttoken == M2Reserved_looptok)
5160 : : {
5161 : : /* avoid dangling else. */
5162 : 8222 : LoopStatement (stopset0, stopset1, stopset2);
5163 : : }
5164 : : else if (M2LexBuf_currenttoken == M2Reserved_fortok)
5165 : : {
5166 : : /* avoid dangling else. */
5167 : 12818 : ForStatement (stopset0, stopset1, stopset2);
5168 : : }
5169 : : else if (M2LexBuf_currenttoken == M2Reserved_withtok)
5170 : : {
5171 : : /* avoid dangling else. */
5172 : 132188 : WithStatement (stopset0, stopset1, stopset2);
5173 : : }
5174 : : else if (M2LexBuf_currenttoken == M2Reserved_asmtok)
5175 : : {
5176 : : /* avoid dangling else. */
5177 : 24 : AsmStatement (stopset0, stopset1, stopset2);
5178 : : }
5179 : : else if (M2LexBuf_currenttoken == M2Reserved_exittok)
5180 : : {
5181 : : /* avoid dangling else. */
5182 : 106 : Expect (M2Reserved_exittok, stopset0, stopset1, stopset2);
5183 : : }
5184 : : else if (M2LexBuf_currenttoken == M2Reserved_returntok)
5185 : : {
5186 : : /* avoid dangling else. */
5187 : 526458 : Expect (M2Reserved_returntok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5188 : 526458 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
5189 : : {
5190 : 513166 : Expression (stopset0, stopset1, stopset2);
5191 : : }
5192 : : }
5193 : : else if (M2LexBuf_currenttoken == M2Reserved_retrytok)
5194 : : {
5195 : : /* avoid dangling else. */
5196 : 120 : RetryStatement (stopset0, stopset1, stopset2);
5197 : : }
5198 : : else
5199 : : {
5200 : : /* avoid dangling else. */
5201 : 0 : ErrorArray ((const char *) "expecting one of: {%KRETRY} {%KRETURN} {%KEXIT} {%KASM} {%KWITH} {%KFOR} {%KLOOP} {%KREPEAT} {%KWHILE} {%KCASE} {%KIF} {%Kidentifier}", 133);
5202 : : }
5203 : : }
5204 : : /* end of optional [ | ] expression */
5205 : 6158686 : }
5206 : :
5207 : :
5208 : : /*
5209 : : RetryStatement := 'RETRY'
5210 : :
5211 : : first symbols:retrytok
5212 : :
5213 : : cannot reachend
5214 : : */
5215 : :
5216 : 120 : static void RetryStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5217 : : {
5218 : 120 : Expect (M2Reserved_retrytok, stopset0, stopset1, stopset2);
5219 : 120 : }
5220 : :
5221 : :
5222 : : /*
5223 : : AssignmentOrProcedureCall := Designator ( ':=' Expression |
5224 : : ActualParameters |
5225 : :
5226 : : % epsilon %
5227 : : )
5228 : :
5229 : : first symbols:identtok
5230 : :
5231 : : cannot reachend
5232 : : */
5233 : :
5234 : 4092092 : static void AssignmentOrProcedureCall (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5235 : : {
5236 : 4092092 : Designator (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_becomestok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5237 : 4092092 : if (M2LexBuf_currenttoken == M2Reserved_becomestok)
5238 : : {
5239 : 2034397 : Expect (M2Reserved_becomestok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5240 : 2034397 : Expression (stopset0, stopset1, stopset2);
5241 : : }
5242 : 2057695 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5243 : : {
5244 : : /* avoid dangling else. */
5245 : 1847958 : ActualParameters (stopset0, stopset1, stopset2);
5246 : : }
5247 : : /* epsilon */
5248 : 4092092 : }
5249 : :
5250 : :
5251 : : /*
5252 : : StatementSequence := Statement { ';' Statement }
5253 : :
5254 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
5255 : :
5256 : : reachend
5257 : : */
5258 : :
5259 : 2940231 : static void StatementSequence (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5260 : : {
5261 : 2940231 : Statement (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5262 : 9098917 : while (M2LexBuf_currenttoken == M2Reserved_semicolontok)
5263 : : {
5264 : 3218455 : Expect (M2Reserved_semicolontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5265 : 3218455 : Statement (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5266 : : }
5267 : : /* while */
5268 : 2940231 : }
5269 : :
5270 : :
5271 : : /*
5272 : : IfStatement := 'IF' Expression 'THEN' StatementSequence
5273 : : { 'ELSIF' Expression 'THEN' StatementSequence }
5274 : : [ 'ELSE' StatementSequence ] 'END'
5275 : :
5276 : : first symbols:iftok
5277 : :
5278 : : cannot reachend
5279 : : */
5280 : :
5281 : 1032364 : static void IfStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5282 : : {
5283 : 1032364 : Expect (M2Reserved_iftok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5284 : 1032364 : Expression (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok))));
5285 : 1032364 : Expect (M2Reserved_thentok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5286 : 1032364 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5287 : 2156122 : while (M2LexBuf_currenttoken == M2Reserved_elsiftok)
5288 : : {
5289 : 91394 : Expect (M2Reserved_elsiftok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5290 : 91394 : Expression (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok))));
5291 : 91394 : Expect (M2Reserved_thentok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5292 : 91394 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsiftok-M2Reserved_arraytok))), stopset2);
5293 : : }
5294 : : /* while */
5295 : 1032364 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
5296 : : {
5297 : 421989 : Expect (M2Reserved_elsetok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5298 : 421989 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5299 : : }
5300 : 1032364 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5301 : 1032364 : }
5302 : :
5303 : :
5304 : : /*
5305 : : CaseStatement := 'CASE' Expression 'OF' Case { '|'
5306 : : Case }
5307 : : [ 'ELSE' StatementSequence ] 'END'
5308 : :
5309 : : first symbols:casetok
5310 : :
5311 : : cannot reachend
5312 : : */
5313 : :
5314 : 4478 : static void CaseStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5315 : : {
5316 : 4478 : Expect (M2Reserved_casetok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5317 : 4478 : Expression (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5318 : 4478 : Expect (M2Reserved_oftok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5319 : 4478 : Case (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5320 : 18230 : while (M2LexBuf_currenttoken == M2Reserved_bartok)
5321 : : {
5322 : 9274 : Expect (M2Reserved_bartok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5323 : 9274 : Case (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok))), stopset2);
5324 : : }
5325 : : /* while */
5326 : 4478 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
5327 : : {
5328 : 3686 : Expect (M2Reserved_elsetok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5329 : 3686 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5330 : : }
5331 : 4478 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5332 : 4478 : }
5333 : :
5334 : :
5335 : : /*
5336 : : Case := [ CaseLabelList ':' StatementSequence ]
5337 : :
5338 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5339 : :
5340 : : reachend
5341 : : */
5342 : :
5343 : 13752 : static void Case (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5344 : : {
5345 : 13752 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0))))
5346 : : {
5347 : 13646 : CaseLabelList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5348 : 13646 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5349 : 13646 : StatementSequence (stopset0, stopset1, stopset2);
5350 : : }
5351 : 13752 : }
5352 : :
5353 : :
5354 : : /*
5355 : : WhileStatement := 'WHILE' Expression 'DO' StatementSequence
5356 : : 'END'
5357 : :
5358 : : first symbols:whiletok
5359 : :
5360 : : cannot reachend
5361 : : */
5362 : :
5363 : 184802 : static void WhileStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5364 : : {
5365 : 184802 : Expect (M2Reserved_whiletok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5366 : 184802 : Expression (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
5367 : 184802 : Expect (M2Reserved_dotok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5368 : 184802 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5369 : 184802 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5370 : 184802 : }
5371 : :
5372 : :
5373 : : /*
5374 : : RepeatStatement := 'REPEAT' StatementSequence 'UNTIL'
5375 : : Expression
5376 : :
5377 : : first symbols:repeattok
5378 : :
5379 : : cannot reachend
5380 : : */
5381 : :
5382 : 53742 : static void RepeatStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5383 : : {
5384 : 53742 : Expect (M2Reserved_repeattok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5385 : 53742 : StatementSequence (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok))));
5386 : 53742 : Expect (M2Reserved_untiltok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5387 : 53742 : Expression (stopset0, stopset1, stopset2);
5388 : 53742 : }
5389 : :
5390 : :
5391 : : /*
5392 : : ForStatement := 'FOR' Ident ':=' Expression 'TO'
5393 : : Expression [ 'BY' ConstExpression ]
5394 : : 'DO' StatementSequence 'END'
5395 : :
5396 : : first symbols:fortok
5397 : :
5398 : : cannot reachend
5399 : : */
5400 : :
5401 : 12818 : static void ForStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5402 : : {
5403 : 12818 : Expect (M2Reserved_fortok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5404 : 12818 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_becomestok-M2Reserved_eoftok))), stopset1, stopset2);
5405 : 12818 : Expect (M2Reserved_becomestok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5406 : 12818 : Expression (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok))));
5407 : 12818 : Expect (M2Reserved_totok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5408 : 12818 : Expression (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok)) | (1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
5409 : 12818 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
5410 : : {
5411 : 342 : Expect (M2Reserved_bytok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5412 : 342 : ConstExpression (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
5413 : : }
5414 : 12818 : Expect (M2Reserved_dotok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5415 : 12818 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5416 : 12818 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5417 : 12818 : }
5418 : :
5419 : :
5420 : : /*
5421 : : LoopStatement := 'LOOP' StatementSequence 'END'
5422 : :
5423 : : first symbols:looptok
5424 : :
5425 : : cannot reachend
5426 : : */
5427 : :
5428 : 8222 : static void LoopStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5429 : : {
5430 : 8222 : Expect (M2Reserved_looptok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5431 : 8222 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5432 : 8222 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5433 : 8222 : }
5434 : :
5435 : :
5436 : : /*
5437 : : WithStatement := 'WITH' Designator 'DO' StatementSequence
5438 : : 'END'
5439 : :
5440 : : first symbols:withtok
5441 : :
5442 : : cannot reachend
5443 : : */
5444 : :
5445 : 132188 : static void WithStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5446 : : {
5447 : 132188 : Expect (M2Reserved_withtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5448 : 132188 : Designator (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
5449 : 132188 : Expect (M2Reserved_dotok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5450 : 132188 : StatementSequence (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5451 : 132188 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5452 : 132188 : }
5453 : :
5454 : :
5455 : : /*
5456 : : ProcedureDeclaration :=
5457 : : % VAR top: CARDINAL ; %
5458 : :
5459 : : % top := Top () %
5460 : : ProcedureHeading ';' PostProcedureHeading
5461 : :
5462 : : % Assert (top = Top ()) %
5463 : :
5464 : :
5465 : : first symbols:proceduretok
5466 : :
5467 : : cannot reachend
5468 : : */
5469 : :
5470 : 946735 : static void ProcedureDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5471 : : {
5472 : 946735 : unsigned int top;
5473 : :
5474 : 946735 : top = M2Quads_Top ();
5475 : 946735 : ProcedureHeading (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5476 : 946735 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_forwardtok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
5477 : 946735 : PostProcedureHeading (stopset0, stopset1, stopset2);
5478 : 946735 : M2Debug_Assert (top == (M2Quads_Top ()));
5479 : 946735 : }
5480 : :
5481 : :
5482 : : /*
5483 : : PostProcedureHeading := ProperProcedure |
5484 : : ForwardDeclaration
5485 : :
5486 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok, forwardtok
5487 : :
5488 : : cannot reachend
5489 : : */
5490 : :
5491 : 946735 : static void PostProcedureHeading (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5492 : : {
5493 : 946735 : if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
5494 : : {
5495 : 946675 : ProperProcedure (stopset0, stopset1, stopset2);
5496 : : }
5497 : 60 : else if (M2LexBuf_currenttoken == M2Reserved_forwardtok)
5498 : : {
5499 : : /* avoid dangling else. */
5500 : 60 : ForwardDeclaration (stopset0, stopset1, stopset2);
5501 : : }
5502 : : else
5503 : : {
5504 : : /* avoid dangling else. */
5505 : 0 : ErrorArray ((const char *) "expecting one of: {%KFORWARD} {%KEND} {%KBEGIN} {%KCONST} {%KTYPE} {%KVAR} {%KPROCEDURE} {%KMODULE}", 99);
5506 : : }
5507 : 946735 : }
5508 : :
5509 : :
5510 : : /*
5511 : : ForwardDeclaration := 'FORWARD'
5512 : : % EndBuildForward (GetTokenNo ()-1) %
5513 : :
5514 : :
5515 : : first symbols:forwardtok
5516 : :
5517 : : cannot reachend
5518 : : */
5519 : :
5520 : 60 : static void ForwardDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5521 : : {
5522 : 60 : Expect (M2Reserved_forwardtok, stopset0, stopset1, stopset2);
5523 : 60 : P1SymBuild_EndBuildForward ((M2LexBuf_GetTokenNo ())-1);
5524 : 60 : }
5525 : :
5526 : :
5527 : : /*
5528 : : ProperProcedure := ProcedureBlock
5529 : : % PushAutoOn %
5530 : : Ident
5531 : : % EndBuildProcedure %
5532 : :
5533 : : % PopAuto %
5534 : :
5535 : :
5536 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok, begintok, endtok
5537 : :
5538 : : cannot reachend
5539 : : */
5540 : :
5541 : 946675 : static void ProperProcedure (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5542 : : {
5543 : 946675 : ProcedureBlock (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5544 : 946675 : M2Quads_PushAutoOn ();
5545 : 946675 : Ident (stopset0, stopset1, stopset2);
5546 : 946675 : P1SymBuild_EndBuildProcedure ();
5547 : 946675 : M2Quads_PopAuto ();
5548 : 946675 : }
5549 : :
5550 : :
5551 : : /*
5552 : : DefineBuiltinProcedure := '__ATTRIBUTE__' '__BUILTIN__'
5553 : : '(' '(' Ident ')' ')' |
5554 : : '__INLINE__'
5555 : : % PushT(InlineTok) %
5556 : : |
5557 : : % PushT(NulTok) %
5558 : :
5559 : :
5560 : : first symbols:inlinetok, attributetok
5561 : :
5562 : : reachend
5563 : : */
5564 : :
5565 : 946735 : static void DefineBuiltinProcedure (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5566 : : {
5567 : 946735 : if (M2LexBuf_currenttoken == M2Reserved_attributetok)
5568 : : {
5569 : 50952 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
5570 : 50952 : Expect (M2Reserved_builtintok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5571 : 50952 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5572 : 50952 : Expect (M2Reserved_lparatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5573 : 50952 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5574 : 50952 : Expect (M2Reserved_rparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5575 : 50952 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5576 : : }
5577 : 895783 : else if (M2LexBuf_currenttoken == M2Reserved_inlinetok)
5578 : : {
5579 : : /* avoid dangling else. */
5580 : 0 : Expect (M2Reserved_inlinetok, stopset0, stopset1, stopset2);
5581 : 0 : M2Quads_PushT (M2Reserved_InlineTok);
5582 : : }
5583 : : else
5584 : : {
5585 : : /* avoid dangling else. */
5586 : 895783 : M2Quads_PushT (M2Reserved_NulTok);
5587 : : }
5588 : 946735 : }
5589 : :
5590 : :
5591 : : /*
5592 : : ProcedureHeading := 'PROCEDURE'
5593 : : % M2Error.DefaultProcedure %
5594 : :
5595 : : % PushAutoOn %
5596 : : DefineBuiltinProcedure ( PossiblyExportIdent
5597 : :
5598 : : % StartBuildProcedure %
5599 : :
5600 : : % PushAutoOff %
5601 : : [ FormalParameters ]
5602 : : AttributeNoReturn
5603 : :
5604 : : % PopAuto %
5605 : :
5606 : : % BuildProcedureHeading %
5607 : : )
5608 : :
5609 : : % PopAuto %
5610 : :
5611 : :
5612 : : first symbols:proceduretok
5613 : :
5614 : : cannot reachend
5615 : : */
5616 : :
5617 : 946735 : static void ProcedureHeading (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5618 : : {
5619 : 946735 : Expect (M2Reserved_proceduretok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5620 : 946735 : M2Error_DefaultProcedure ();
5621 : 946735 : M2Quads_PushAutoOn ();
5622 : 946735 : DefineBuiltinProcedure (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5623 : 946735 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5624 : 946735 : P1SymBuild_StartBuildProcedure ();
5625 : 946735 : M2Quads_PushAutoOff ();
5626 : 946735 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5627 : : {
5628 : 866916 : FormalParameters (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5629 : : }
5630 : 946735 : AttributeNoReturn (stopset0, stopset1, stopset2);
5631 : 946735 : M2Quads_PopAuto ();
5632 : 946735 : P1SymBuild_BuildProcedureHeading ();
5633 : 946735 : M2Quads_PopAuto ();
5634 : 946735 : }
5635 : :
5636 : :
5637 : : /*
5638 : : Builtin := '__BUILTIN__'
5639 : : % PushT(BuiltinTok) %
5640 : : | '__INLINE__'
5641 : : % PushT(InlineTok) %
5642 : : |
5643 : : % PushT(NulTok) %
5644 : :
5645 : :
5646 : : first symbols:inlinetok, builtintok
5647 : :
5648 : : reachend
5649 : : */
5650 : :
5651 : 2013911 : static void Builtin (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5652 : : {
5653 : 2013911 : if (M2LexBuf_currenttoken == M2Reserved_builtintok)
5654 : : {
5655 : 50500 : Expect (M2Reserved_builtintok, stopset0, stopset1, stopset2);
5656 : 50500 : M2Quads_PushT (M2Reserved_BuiltinTok);
5657 : : }
5658 : 1963411 : else if (M2LexBuf_currenttoken == M2Reserved_inlinetok)
5659 : : {
5660 : : /* avoid dangling else. */
5661 : 0 : Expect (M2Reserved_inlinetok, stopset0, stopset1, stopset2);
5662 : 0 : M2Quads_PushT (M2Reserved_InlineTok);
5663 : : }
5664 : : else
5665 : : {
5666 : : /* avoid dangling else. */
5667 : 1963411 : M2Quads_PushT (M2Reserved_NulTok);
5668 : : }
5669 : 2013911 : }
5670 : :
5671 : :
5672 : : /*
5673 : : DefProcedureHeading := 'PROCEDURE'
5674 : : % M2Error.DefaultProcedure %
5675 : : Builtin
5676 : : % PushAutoOn %
5677 : : ( PossiblyExportIdent
5678 : : % StartBuildProcedure %
5679 : :
5680 : : % PushAutoOff %
5681 : : [ DefFormalParameters ]
5682 : : AttributeNoReturn
5683 : : % PopAuto %
5684 : :
5685 : : % BuildProcedureHeading %
5686 : : )
5687 : : % PopAuto %
5688 : :
5689 : : % M2Error.LeaveErrorScope %
5690 : :
5691 : :
5692 : : first symbols:proceduretok
5693 : :
5694 : : cannot reachend
5695 : : */
5696 : :
5697 : 2013911 : static void DefProcedureHeading (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5698 : : {
5699 : 2013911 : Expect (M2Reserved_proceduretok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5700 : 2013911 : M2Error_DefaultProcedure ();
5701 : 2013911 : Builtin (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5702 : 2013911 : M2Quads_PushAutoOn ();
5703 : 2013911 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5704 : 2013911 : P1SymBuild_StartBuildProcedure ();
5705 : 2013911 : M2Quads_PushAutoOff ();
5706 : 2013911 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5707 : : {
5708 : 1909471 : DefFormalParameters (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5709 : : }
5710 : 2013911 : AttributeNoReturn (stopset0, stopset1, stopset2);
5711 : 2013911 : M2Quads_PopAuto ();
5712 : 2013911 : P1SymBuild_BuildProcedureHeading ();
5713 : 2013911 : M2Quads_PopAuto ();
5714 : 2013911 : M2Error_LeaveErrorScope ();
5715 : 2013911 : }
5716 : :
5717 : :
5718 : : /*
5719 : : AttributeNoReturn := [ '' ]
5720 : :
5721 : : first symbols:ldirectivetok
5722 : :
5723 : : reachend
5724 : : */
5725 : :
5726 : 2960646 : static void AttributeNoReturn (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5727 : : {
5728 : 2960646 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
5729 : : {
5730 : 481939 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5731 : 481939 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5732 : 481939 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
5733 : : }
5734 : 2960646 : }
5735 : :
5736 : :
5737 : : /*
5738 : : ProcedureBlock := { Declaration } [ 'BEGIN' BlockBody ]
5739 : : 'END'
5740 : :
5741 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
5742 : :
5743 : : cannot reachend
5744 : : */
5745 : :
5746 : 946675 : static void ProcedureBlock (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5747 : : {
5748 : 1369644 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
5749 : : {
5750 : 422969 : Declaration (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
5751 : : }
5752 : : /* while */
5753 : 946675 : if (M2LexBuf_currenttoken == M2Reserved_begintok)
5754 : : {
5755 : 943675 : Expect (M2Reserved_begintok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_excepttok-M2Reserved_arraytok)) | (1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5756 : 943675 : BlockBody (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5757 : : }
5758 : 946675 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5759 : 946675 : }
5760 : :
5761 : :
5762 : : /*
5763 : : Block := { Declaration } InitialBlock FinalBlock
5764 : : 'END'
5765 : :
5766 : : first symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
5767 : :
5768 : : cannot reachend
5769 : : */
5770 : :
5771 : 64957 : static void Block (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5772 : : {
5773 : 1097296 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
5774 : : {
5775 : 1032339 : Declaration (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
5776 : : }
5777 : : /* while */
5778 : 64957 : InitialBlock (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok))), stopset2);
5779 : 64957 : FinalBlock (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5780 : 64957 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5781 : 64957 : }
5782 : :
5783 : :
5784 : : /*
5785 : : InitialBlock := [ 'BEGIN' BlockBody ]
5786 : :
5787 : : first symbols:begintok
5788 : :
5789 : : reachend
5790 : : */
5791 : :
5792 : 64957 : static void InitialBlock (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5793 : : {
5794 : 64957 : if (M2LexBuf_currenttoken == M2Reserved_begintok)
5795 : : {
5796 : 35917 : Expect (M2Reserved_begintok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok)) | (1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5797 : 35917 : BlockBody (stopset0, stopset1, stopset2);
5798 : : }
5799 : 64957 : }
5800 : :
5801 : :
5802 : : /*
5803 : : FinalBlock := [ 'FINALLY' BlockBody ]
5804 : :
5805 : : first symbols:finallytok
5806 : :
5807 : : reachend
5808 : : */
5809 : :
5810 : 64957 : static void FinalBlock (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5811 : : {
5812 : 64957 : if (M2LexBuf_currenttoken == M2Reserved_finallytok)
5813 : : {
5814 : 5608 : Expect (M2Reserved_finallytok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok)) | (1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
5815 : 5608 : BlockBody (stopset0, stopset1, stopset2);
5816 : : }
5817 : 64957 : }
5818 : :
5819 : :
5820 : : /*
5821 : : BlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
5822 : :
5823 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
5824 : :
5825 : : reachend
5826 : : */
5827 : :
5828 : 985200 : static void BlockBody (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5829 : : {
5830 : 1970400 : NormalPart (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
5831 : 985200 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
5832 : : {
5833 : 180 : Expect (M2Reserved_excepttok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5834 : 180 : ExceptionalPart (stopset0, stopset1, stopset2);
5835 : : }
5836 : 985200 : }
5837 : :
5838 : :
5839 : : /*
5840 : : NormalPart := StatementSequence
5841 : :
5842 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
5843 : :
5844 : : reachend
5845 : : */
5846 : :
5847 : 985200 : static void NormalPart (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5848 : : {
5849 : 985200 : StatementSequence (stopset0, stopset1, stopset2);
5850 : 0 : }
5851 : :
5852 : :
5853 : : /*
5854 : : ExceptionalPart := StatementSequence
5855 : :
5856 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
5857 : :
5858 : : reachend
5859 : : */
5860 : :
5861 : 180 : static void ExceptionalPart (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5862 : : {
5863 : 180 : StatementSequence (stopset0, stopset1, stopset2);
5864 : 180 : }
5865 : :
5866 : :
5867 : : /*
5868 : : Declaration := 'CONST' { ConstantDeclaration ';' } |
5869 : : 'TYPE' { TypeDeclaration ';' } |
5870 : : 'VAR' { VariableDeclaration ';' } |
5871 : : ProcedureDeclaration ';' |
5872 : : ModuleDeclaration ';'
5873 : :
5874 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok
5875 : :
5876 : : cannot reachend
5877 : : */
5878 : :
5879 : 1455308 : static void Declaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5880 : : {
5881 : 1455308 : if (M2LexBuf_currenttoken == M2Reserved_consttok)
5882 : : {
5883 : 30316 : Expect (M2Reserved_consttok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5884 : 118930 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
5885 : : {
5886 : 58298 : ConstantDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5887 : 58298 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5888 : : }
5889 : : /* while */
5890 : : }
5891 : : else if (M2LexBuf_currenttoken == M2Reserved_typetok)
5892 : : {
5893 : : /* avoid dangling else. */
5894 : 24316 : Expect (M2Reserved_typetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5895 : 121074 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
5896 : : {
5897 : 72442 : TypeDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5898 : 72442 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5899 : : }
5900 : : /* while */
5901 : : }
5902 : : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
5903 : : {
5904 : : /* avoid dangling else. */
5905 : 453521 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5906 : 1608110 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
5907 : : {
5908 : 701068 : VariableDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5909 : 701068 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5910 : : }
5911 : : /* while */
5912 : : }
5913 : : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
5914 : : {
5915 : : /* avoid dangling else. */
5916 : 946735 : ProcedureDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5917 : 946735 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
5918 : : }
5919 : : else if (M2LexBuf_currenttoken == M2Reserved_moduletok)
5920 : : {
5921 : : /* avoid dangling else. */
5922 : 420 : ModuleDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5923 : 420 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
5924 : : }
5925 : : else
5926 : : {
5927 : : /* avoid dangling else. */
5928 : 0 : ErrorArray ((const char *) "expecting one of: {%KMODULE} {%KPROCEDURE} {%KVAR} {%KTYPE} {%KCONST}", 69);
5929 : : }
5930 : 1455308 : }
5931 : :
5932 : :
5933 : : /*
5934 : : DefFormalParameters := '(' [ DefMultiFPSection ]
5935 : : ')' FormalReturn
5936 : :
5937 : : first symbols:lparatok
5938 : :
5939 : : cannot reachend
5940 : : */
5941 : :
5942 : 1909471 : static void DefFormalParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5943 : : {
5944 : 1909471 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
5945 : 1909471 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
5946 : : {
5947 : 1756006 : DefMultiFPSection (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5948 : : }
5949 : 1909471 : Expect (M2Reserved_rparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5950 : 1909471 : FormalReturn (stopset0, stopset1, stopset2);
5951 : 1909471 : }
5952 : :
5953 : :
5954 : : /*
5955 : : DefMultiFPSection := DefExtendedFP |
5956 : : FPSection [ ';' DefMultiFPSection ]
5957 : :
5958 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
5959 : :
5960 : : cannot reachend
5961 : : */
5962 : :
5963 : 1756006 : static void DefMultiFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5964 : : {
5965 : 3528273 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok))
5966 : : {
5967 : 26121 : DefExtendedFP (stopset0, stopset1, stopset2);
5968 : : }
5969 : 3502152 : else if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0)))
5970 : : {
5971 : : /* avoid dangling else. */
5972 : 3502152 : FPSection (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5973 : 3502152 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
5974 : : {
5975 : 1772267 : Expect (M2Reserved_semicolontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
5976 : 1772267 : DefMultiFPSection (stopset0, stopset1, stopset2);
5977 : : }
5978 : : }
5979 : : else
5980 : : {
5981 : : /* avoid dangling else. */
5982 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KVAR} {%K...} {%K[}", 54);
5983 : : }
5984 : 1756006 : }
5985 : :
5986 : :
5987 : : /*
5988 : : FormalParameters := '(' [ MultiFPSection ] ')'
5989 : : FormalReturn
5990 : :
5991 : : first symbols:lparatok
5992 : :
5993 : : cannot reachend
5994 : : */
5995 : :
5996 : 866916 : static void FormalParameters (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
5997 : : {
5998 : 866916 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
5999 : 866916 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6000 : : {
6001 : 820674 : MultiFPSection (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6002 : : }
6003 : 866916 : Expect (M2Reserved_rparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6004 : 866916 : FormalReturn (stopset0, stopset1, stopset2);
6005 : 866916 : }
6006 : :
6007 : :
6008 : : /*
6009 : : MultiFPSection := ExtendedFP | FPSection [ ';'
6010 : : MultiFPSection ]
6011 : :
6012 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
6013 : :
6014 : : cannot reachend
6015 : : */
6016 : :
6017 : 820674 : static void MultiFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6018 : : {
6019 : 1512500 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok))
6020 : : {
6021 : 2618 : ExtendedFP (stopset0, stopset1, stopset2);
6022 : : }
6023 : 1509882 : else if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0)))
6024 : : {
6025 : : /* avoid dangling else. */
6026 : 1509882 : FPSection (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6027 : 1509882 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
6028 : : {
6029 : 691826 : Expect (M2Reserved_semicolontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
6030 : 691826 : MultiFPSection (stopset0, stopset1, stopset2);
6031 : : }
6032 : : }
6033 : : else
6034 : : {
6035 : : /* avoid dangling else. */
6036 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KVAR} {%K...} {%K[}", 54);
6037 : : }
6038 : 820674 : }
6039 : :
6040 : :
6041 : : /*
6042 : : FPSection := NonVarFPSection |
6043 : : VarFPSection
6044 : :
6045 : : first symbols:vartok, identtok
6046 : :
6047 : : cannot reachend
6048 : : */
6049 : :
6050 : 5012034 : static void FPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6051 : : {
6052 : 5012034 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
6053 : : {
6054 : 4569620 : NonVarFPSection (stopset0, stopset1, stopset2);
6055 : : }
6056 : 442414 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
6057 : : {
6058 : : /* avoid dangling else. */
6059 : 442414 : VarFPSection (stopset0, stopset1, stopset2);
6060 : : }
6061 : : else
6062 : : {
6063 : : /* avoid dangling else. */
6064 : 0 : ErrorArray ((const char *) "expecting one of: {%KVAR} {%Kidentifier}", 40);
6065 : : }
6066 : 5012034 : }
6067 : :
6068 : :
6069 : : /*
6070 : : DefExtendedFP := DefOptArg | '...'
6071 : :
6072 : : first symbols:lsbratok, periodperiodperiodtok
6073 : :
6074 : : cannot reachend
6075 : : */
6076 : :
6077 : 26121 : static void DefExtendedFP (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6078 : : {
6079 : 26121 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6080 : : {
6081 : 15321 : DefOptArg (stopset0, stopset1, stopset2);
6082 : : }
6083 : 10800 : else if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
6084 : : {
6085 : : /* avoid dangling else. */
6086 : 10800 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
6087 : : }
6088 : : else
6089 : : {
6090 : : /* avoid dangling else. */
6091 : 0 : ErrorArray ((const char *) "expecting one of: {%K...} {%K[}", 31);
6092 : : }
6093 : 26121 : }
6094 : :
6095 : :
6096 : : /*
6097 : : ExtendedFP := OptArg | '...'
6098 : :
6099 : : first symbols:lsbratok, periodperiodperiodtok
6100 : :
6101 : : cannot reachend
6102 : : */
6103 : :
6104 : 2618 : static void ExtendedFP (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6105 : : {
6106 : 2618 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6107 : : {
6108 : 2618 : OptArg (stopset0, stopset1, stopset2);
6109 : : }
6110 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
6111 : : {
6112 : : /* avoid dangling else. */
6113 : 0 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
6114 : : }
6115 : : else
6116 : : {
6117 : : /* avoid dangling else. */
6118 : 0 : ErrorArray ((const char *) "expecting one of: {%K...} {%K[}", 31);
6119 : : }
6120 : 2618 : }
6121 : :
6122 : :
6123 : : /*
6124 : : VarFPSection := 'VAR' IdentList ':' FormalType [
6125 : : AttributeUnused ]
6126 : :
6127 : : first symbols:vartok
6128 : :
6129 : : cannot reachend
6130 : : */
6131 : :
6132 : 442414 : static void VarFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6133 : : {
6134 : 442414 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6135 : 442414 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6136 : 442414 : Expect (M2Reserved_colontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6137 : 442414 : FormalType (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
6138 : 442414 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
6139 : : {
6140 : 0 : AttributeUnused (stopset0, stopset1, stopset2);
6141 : : }
6142 : 442414 : }
6143 : :
6144 : :
6145 : : /*
6146 : : NonVarFPSection := IdentList ':' FormalType [ AttributeUnused ]
6147 : :
6148 : : first symbols:identtok
6149 : :
6150 : : cannot reachend
6151 : : */
6152 : :
6153 : 4569620 : static void NonVarFPSection (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6154 : : {
6155 : 4569620 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6156 : 4569620 : Expect (M2Reserved_colontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6157 : 4569620 : FormalType (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
6158 : 4569620 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
6159 : : {
6160 : 0 : AttributeUnused (stopset0, stopset1, stopset2);
6161 : : }
6162 : 4569620 : }
6163 : :
6164 : :
6165 : : /*
6166 : : OptArg := '[' IdentScope ':' FormalType [ '=' ConstExpression ]
6167 : : ']'
6168 : :
6169 : : first symbols:lsbratok
6170 : :
6171 : : cannot reachend
6172 : : */
6173 : :
6174 : 2618 : static void OptArg (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6175 : : {
6176 : 2618 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6177 : 2618 : IdentScope (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6178 : 2618 : Expect (M2Reserved_colontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6179 : 2618 : FormalType (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6180 : 2618 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
6181 : : {
6182 : 2572 : Expect (M2Reserved_equaltok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6183 : 2572 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6184 : : }
6185 : 2618 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6186 : 2618 : }
6187 : :
6188 : :
6189 : : /*
6190 : : DefOptArg := '[' IdentScope ':' FormalType '=' ConstExpression
6191 : : ']'
6192 : :
6193 : : first symbols:lsbratok
6194 : :
6195 : : cannot reachend
6196 : : */
6197 : :
6198 : 15321 : static void DefOptArg (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6199 : : {
6200 : 15321 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6201 : 15321 : IdentScope (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6202 : 15321 : Expect (M2Reserved_colontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6203 : 15321 : FormalType (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
6204 : 15321 : Expect (M2Reserved_equaltok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6205 : 15321 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6206 : 15321 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6207 : 15321 : }
6208 : :
6209 : :
6210 : : /*
6211 : : FormalType := { 'ARRAY' 'OF' } Qualident
6212 : :
6213 : : first symbols:identtok, arraytok
6214 : :
6215 : : cannot reachend
6216 : : */
6217 : :
6218 : 5109830 : static void FormalType (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6219 : : {
6220 : 5625881 : while (M2LexBuf_currenttoken == M2Reserved_arraytok)
6221 : : {
6222 : 516051 : Expect (M2Reserved_arraytok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
6223 : 516051 : Expect (M2Reserved_oftok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6224 : : }
6225 : : /* while */
6226 : 5109830 : Qualident (stopset0, stopset1, stopset2);
6227 : 5109830 : }
6228 : :
6229 : :
6230 : : /*
6231 : : ModuleDeclaration := 'MODULE'
6232 : : % M2Error.DefaultInnerModule %
6233 : :
6234 : : % PushAutoOn %
6235 : : Ident
6236 : : % StartBuildInnerModule %
6237 : :
6238 : : % PushAutoOff %
6239 : : [ Priority ] ';'
6240 : : % PushAutoOn %
6241 : : { Import
6242 : : % BuildImportInnerModule %
6243 : : } [ Export
6244 : : % BuildExportInnerModule %
6245 : : ]
6246 : : % PopAuto %
6247 : : Block
6248 : : % PushAutoOn %
6249 : : Ident
6250 : : % EndBuildInnerModule %
6251 : :
6252 : : % PopAuto ; PopAuto ; PopAuto %
6253 : :
6254 : :
6255 : : first symbols:moduletok
6256 : :
6257 : : cannot reachend
6258 : : */
6259 : :
6260 : 420 : static void ModuleDeclaration (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6261 : : {
6262 : 420 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6263 : 420 : M2Error_DefaultInnerModule ();
6264 : 420 : M2Quads_PushAutoOn ();
6265 : 420 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6266 : 420 : P1SymBuild_StartBuildInnerModule ();
6267 : 420 : M2Quads_PushAutoOff ();
6268 : 420 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6269 : : {
6270 : 12 : Priority (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6271 : : }
6272 : 420 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_exporttok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
6273 : 420 : M2Quads_PushAutoOn ();
6274 : 1062 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
6275 : : {
6276 : 222 : Import (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_exporttok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
6277 : 222 : P1SymBuild_BuildImportInnerModule ();
6278 : : }
6279 : : /* while */
6280 : 420 : if (M2LexBuf_currenttoken == M2Reserved_exporttok)
6281 : : {
6282 : 282 : Export (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
6283 : 282 : P1SymBuild_BuildExportInnerModule ();
6284 : : }
6285 : 420 : M2Quads_PopAuto ();
6286 : 420 : Block (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6287 : 420 : M2Quads_PushAutoOn ();
6288 : 420 : Ident (stopset0, stopset1, stopset2);
6289 : 420 : P1SymBuild_EndBuildInnerModule ();
6290 : 420 : M2Quads_PopAuto ();
6291 : 420 : M2Quads_PopAuto ();
6292 : 420 : M2Quads_PopAuto ();
6293 : 420 : }
6294 : :
6295 : :
6296 : : /*
6297 : : Priority := '[' ConstExpression ']'
6298 : :
6299 : : first symbols:lsbratok
6300 : :
6301 : : cannot reachend
6302 : : */
6303 : :
6304 : 50 : static void Priority (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6305 : : {
6306 : 50 : Expect (M2Reserved_lsbratok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6307 : 50 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6308 : 50 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6309 : 50 : }
6310 : :
6311 : :
6312 : : /*
6313 : : Export := 'EXPORT' ( 'QUALIFIED'
6314 : : % PushT(QualifiedTok) %
6315 : : IdentList |
6316 : : 'UNQUALIFIED'
6317 : : % PushT(UnQualifiedTok) %
6318 : : IdentList |
6319 : :
6320 : : % PushT(ExportTok) %
6321 : : IdentList ) ';'
6322 : :
6323 : : first symbols:exporttok
6324 : :
6325 : : cannot reachend
6326 : : */
6327 : :
6328 : 70768 : static void Export (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6329 : : {
6330 : 70768 : Expect (M2Reserved_exporttok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_qualifiedtok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_unqualifiedtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6331 : 70768 : if (M2LexBuf_currenttoken == M2Reserved_qualifiedtok)
6332 : : {
6333 : 64072 : Expect (M2Reserved_qualifiedtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6334 : 64072 : M2Quads_PushT (M2Reserved_QualifiedTok);
6335 : 64072 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6336 : : }
6337 : 6696 : else if (M2LexBuf_currenttoken == M2Reserved_unqualifiedtok)
6338 : : {
6339 : : /* avoid dangling else. */
6340 : 6414 : Expect (M2Reserved_unqualifiedtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6341 : 6414 : M2Quads_PushT (M2Reserved_UnQualifiedTok);
6342 : 6414 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6343 : : }
6344 : : else
6345 : : {
6346 : : /* avoid dangling else. */
6347 : 282 : M2Quads_PushT (M2Reserved_ExportTok);
6348 : 282 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6349 : : }
6350 : 70768 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
6351 : 70768 : }
6352 : :
6353 : :
6354 : : /*
6355 : : Import := 'FROM'
6356 : : % BuildImportStatement (GetTokenNo () -1) %
6357 : : Ident
6358 : : % AddImportToImportStatement (TRUE) %
6359 : : 'IMPORT' IdentList ';' |
6360 : : 'IMPORT'
6361 : : % BuildImportStatement (GetTokenNo () -1) %
6362 : :
6363 : : % PushT(ImportTok)
6364 : : determines whether Ident or Module %
6365 : : IdentImportList ';'
6366 : :
6367 : : first symbols:importtok, fromtok
6368 : :
6369 : : cannot reachend
6370 : : */
6371 : :
6372 : 283698 : static void Import (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6373 : : {
6374 : 283698 : if (M2LexBuf_currenttoken == M2Reserved_fromtok)
6375 : : {
6376 : 249884 : Expect (M2Reserved_fromtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6377 : 249884 : P1SymBuild_BuildImportStatement ((M2LexBuf_GetTokenNo ())-1);
6378 : 249884 : Ident (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_importtok-M2Reserved_arraytok))), stopset2);
6379 : 249884 : P1SymBuild_AddImportToImportStatement (true);
6380 : 249884 : Expect (M2Reserved_importtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6381 : 249884 : IdentList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6382 : 249884 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
6383 : : }
6384 : 33814 : else if (M2LexBuf_currenttoken == M2Reserved_importtok)
6385 : : {
6386 : : /* avoid dangling else. */
6387 : 33814 : Expect (M2Reserved_importtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6388 : 33814 : P1SymBuild_BuildImportStatement ((M2LexBuf_GetTokenNo ())-1);
6389 : : /* determines whether Ident or Module */
6390 : 33814 : M2Quads_PushT (M2Reserved_ImportTok);
6391 : 33814 : IdentImportList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6392 : 33814 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
6393 : : }
6394 : : else
6395 : : {
6396 : : /* avoid dangling else. */
6397 : 0 : ErrorArray ((const char *) "expecting one of: {%KIMPORT} {%KFROM}", 37);
6398 : : }
6399 : 283698 : }
6400 : :
6401 : :
6402 : : /*
6403 : : IdentImportList := Ident
6404 : : % VAR
6405 : : on: BOOLEAN ;
6406 : : n : CARDINAL ; %
6407 : :
6408 : : % on := IsAutoPushOn() ;
6409 : : IF on
6410 : : THEN
6411 : : AddImportToImportStatement (FALSE) ;
6412 : : n := 1
6413 : : END %
6414 : : { ',' Ident
6415 : : % IF on
6416 : : THEN
6417 : : AddImportToImportStatement (FALSE) ;
6418 : : INC(n)
6419 : : END %
6420 : : }
6421 : : % IF on
6422 : : THEN
6423 : : PushT(n)
6424 : : END %
6425 : :
6426 : :
6427 : : first symbols:identtok
6428 : :
6429 : : cannot reachend
6430 : : */
6431 : :
6432 : 33814 : static void IdentImportList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6433 : : {
6434 : 33814 : bool on;
6435 : 33814 : unsigned int n;
6436 : :
6437 : 33814 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6438 : 33814 : on = M2Quads_IsAutoPushOn ();
6439 : 33814 : if (on)
6440 : : {
6441 : 33814 : P1SymBuild_AddImportToImportStatement (false);
6442 : 33814 : n = 1;
6443 : : }
6444 : 42670 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6445 : : {
6446 : 8856 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6447 : 8856 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6448 : 8856 : if (on)
6449 : : {
6450 : 8856 : P1SymBuild_AddImportToImportStatement (false);
6451 : 8856 : n += 1;
6452 : : }
6453 : : }
6454 : : /* while */
6455 : 33814 : if (on)
6456 : : {
6457 : 33814 : M2Quads_PushT (n);
6458 : : }
6459 : 33814 : }
6460 : :
6461 : :
6462 : : /*
6463 : : DefinitionModule := 'DEFINITION'
6464 : : % M2Error.DefaultDefinitionModule %
6465 : : 'MODULE'
6466 : : % PushAutoOn %
6467 : : ( 'FOR' string |
6468 : :
6469 : : % epsilon
6470 : : PushT(NulSym) %
6471 : : ) Ident
6472 : : % P1StartBuildDefinitionModule %
6473 : : ';' { Import
6474 : : % BuildImportOuterModule(TRUE) %
6475 : : } [ Export
6476 : : % BuildExportOuterModule %
6477 : : ]
6478 : : % PushAutoOff %
6479 : : { Definition }
6480 : : % PopAuto %
6481 : : 'END' Ident
6482 : : % P1EndBuildDefinitionModule %
6483 : : '.'
6484 : : % PopAuto %
6485 : :
6486 : :
6487 : : first symbols:definitiontok
6488 : :
6489 : : cannot reachend
6490 : : */
6491 : :
6492 : 120572 : static void DefinitionModule (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6493 : : {
6494 : 120572 : Expect (M2Reserved_definitiontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2);
6495 : 120572 : M2Error_DefaultDefinitionModule ();
6496 : 120572 : Expect (M2Reserved_moduletok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6497 : 120572 : M2Quads_PushAutoOn ();
6498 : 120572 : if (M2LexBuf_currenttoken == M2Reserved_fortok)
6499 : : {
6500 : 7852 : Expect (M2Reserved_fortok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6501 : 7852 : string (stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6502 : : }
6503 : : else
6504 : : {
6505 : : /* epsilon */
6506 : 112720 : M2Quads_PushT (static_cast<unsigned int> (SymbolTable_NulSym));
6507 : : }
6508 : 120572 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6509 : 120572 : P1SymBuild_P1StartBuildDefinitionModule ();
6510 : 120572 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_exporttok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
6511 : 314486 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
6512 : : {
6513 : 73342 : Import (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_exporttok-M2Reserved_arraytok)) | (1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
6514 : 73342 : P1SymBuild_BuildImportOuterModule (true);
6515 : : }
6516 : : /* while */
6517 : 120572 : if (M2LexBuf_currenttoken == M2Reserved_exporttok)
6518 : : {
6519 : 70486 : Export (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
6520 : 70486 : P1SymBuild_BuildExportOuterModule ();
6521 : : }
6522 : 120572 : M2Quads_PushAutoOff ();
6523 : 2351868 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P1Build_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
6524 : : {
6525 : 2110724 : Definition (stopset0, stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
6526 : : }
6527 : : /* while */
6528 : 120572 : M2Quads_PopAuto ();
6529 : 120572 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6530 : 120572 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
6531 : 120572 : P1SymBuild_P1EndBuildDefinitionModule ();
6532 : 120572 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
6533 : 120572 : M2Quads_PopAuto ();
6534 : 120572 : }
6535 : :
6536 : :
6537 : : /*
6538 : : Definition := 'CONST' { ConstantDeclaration ';' } |
6539 : : 'TYPE'
6540 : : % PushAutoOn %
6541 : : { PossiblyExportIdent ( ';'
6542 : : % BuildHiddenType %
6543 : : | '=' Type
6544 : : Alignment
6545 : : ';' ) }
6546 : :
6547 : : % PopAuto %
6548 : : |
6549 : : 'VAR' { VariableDeclaration ';' } |
6550 : : DefProcedureHeading ';'
6551 : :
6552 : : first symbols:proceduretok, vartok, typetok, consttok
6553 : :
6554 : : cannot reachend
6555 : : */
6556 : :
6557 : 2110724 : static void Definition (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6558 : : {
6559 : 2110724 : if (M2LexBuf_currenttoken == M2Reserved_consttok)
6560 : : {
6561 : 24487 : Expect (M2Reserved_consttok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6562 : 235331 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
6563 : : {
6564 : 186357 : ConstantDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6565 : 186357 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6566 : : }
6567 : : /* while */
6568 : : }
6569 : 2086237 : else if (M2LexBuf_currenttoken == M2Reserved_typetok)
6570 : : {
6571 : : /* avoid dangling else. */
6572 : 68776 : Expect (M2Reserved_typetok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6573 : 68776 : M2Quads_PushAutoOn ();
6574 : 264359 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
6575 : : {
6576 : 126807 : PossiblyExportIdent (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
6577 : 126807 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
6578 : : {
6579 : 23437 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6580 : 23437 : P1SymBuild_BuildHiddenType ();
6581 : : }
6582 : 103370 : else if (M2LexBuf_currenttoken == M2Reserved_equaltok)
6583 : : {
6584 : : /* avoid dangling else. */
6585 : 103370 : Expect (M2Reserved_equaltok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_pointertok-M2Reserved_arraytok)) | (1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok)) | (1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6586 : 103370 : Type (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6587 : 103370 : Alignment (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6588 : 103370 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6589 : : }
6590 : : else
6591 : : {
6592 : : /* avoid dangling else. */
6593 : 0 : ErrorArray ((const char *) "expecting one of: {%K=} {%K;}", 29);
6594 : : }
6595 : : }
6596 : : /* while */
6597 : 68776 : M2Quads_PopAuto ();
6598 : : }
6599 : 2017461 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
6600 : : {
6601 : : /* avoid dangling else. */
6602 : 3550 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6603 : 11504 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
6604 : : {
6605 : 4404 : VariableDeclaration (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6606 : 4404 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6607 : : }
6608 : : /* while */
6609 : : }
6610 : 2013911 : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
6611 : : {
6612 : : /* avoid dangling else. */
6613 : 2013911 : DefProcedureHeading (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6614 : 2013911 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
6615 : : }
6616 : : else
6617 : : {
6618 : : /* avoid dangling else. */
6619 : 0 : ErrorArray ((const char *) "expecting one of: {%KPROCEDURE} {%KVAR} {%KTYPE} {%KCONST}", 58);
6620 : : }
6621 : 2110724 : }
6622 : :
6623 : :
6624 : : /*
6625 : : AsmStatement := 'ASM' [ 'VOLATILE' ] '(' AsmOperands
6626 : : ')'
6627 : :
6628 : : first symbols:asmtok
6629 : :
6630 : : cannot reachend
6631 : : */
6632 : :
6633 : 24 : static void AsmStatement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6634 : : {
6635 : 24 : Expect (M2Reserved_asmtok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_volatiletok-M2Reserved_unqualifiedtok))));
6636 : 24 : if (M2LexBuf_currenttoken == M2Reserved_volatiletok)
6637 : : {
6638 : 12 : Expect (M2Reserved_volatiletok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6639 : : }
6640 : 24 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
6641 : 24 : AsmOperands (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6642 : 24 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
6643 : 24 : }
6644 : :
6645 : :
6646 : : /*
6647 : : NamedOperand := '[' Ident ']'
6648 : :
6649 : : first symbols:lsbratok
6650 : :
6651 : : cannot reachend
6652 : : */
6653 : :
6654 : 0 : static void NamedOperand (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6655 : : {
6656 : 0 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6657 : 0 : Ident (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6658 : 0 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6659 : 0 : }
6660 : :
6661 : :
6662 : : /*
6663 : : AsmOperandName := [ NamedOperand ]
6664 : :
6665 : : first symbols:lsbratok
6666 : :
6667 : : reachend
6668 : : */
6669 : :
6670 : 24 : static void AsmOperandName (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6671 : : {
6672 : 0 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6673 : : {
6674 : 0 : NamedOperand (stopset0, stopset1, stopset2);
6675 : : }
6676 : 0 : }
6677 : :
6678 : :
6679 : : /*
6680 : : AsmOperands := ConstExpression [ ':' AsmList [ ':'
6681 : : AsmList
6682 : : [
6683 : : ':' TrashList ] ] ]
6684 : :
6685 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
6686 : :
6687 : : cannot reachend
6688 : : */
6689 : :
6690 : 24 : static void AsmOperands (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6691 : : {
6692 : 24 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6693 : 24 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
6694 : : {
6695 : 18 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok)) | (1 << (M2Reserved_commatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6696 : 18 : AsmList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6697 : 18 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
6698 : : {
6699 : 12 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok)) | (1 << (M2Reserved_commatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6700 : 12 : AsmList (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6701 : 12 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
6702 : : {
6703 : 6 : Expect (M2Reserved_colontok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
6704 : 6 : TrashList (stopset0, stopset1, stopset2);
6705 : : }
6706 : : }
6707 : : }
6708 : 24 : }
6709 : :
6710 : :
6711 : : /*
6712 : : AsmList := [ AsmElement ] { ',' AsmElement }
6713 : :
6714 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok, lsbratok, commatok
6715 : :
6716 : : reachend
6717 : : */
6718 : :
6719 : 30 : static void AsmList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6720 : : {
6721 : 30 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
6722 : : {
6723 : 24 : AsmElement (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6724 : : }
6725 : 30 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6726 : : {
6727 : 0 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
6728 : 0 : AsmElement (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6729 : : }
6730 : : /* while */
6731 : 30 : }
6732 : :
6733 : :
6734 : : /*
6735 : : AsmElement := AsmOperandName ConstExpression '('
6736 : : Expression ')'
6737 : :
6738 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, lsbratok
6739 : :
6740 : : cannot reachend
6741 : : */
6742 : :
6743 : 24 : static void AsmElement (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6744 : : {
6745 : 24 : AsmOperandName (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6746 : 24 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6747 : 24 : Expect (M2Reserved_lparatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6748 : 24 : Expression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6749 : 24 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
6750 : 24 : }
6751 : :
6752 : :
6753 : : /*
6754 : : TrashList := [ ConstExpression ] { ',' ConstExpression }
6755 : :
6756 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, commatok
6757 : :
6758 : : reachend
6759 : : */
6760 : :
6761 : 6 : static void TrashList (P1Build_SetOfStop0 stopset0, P1Build_SetOfStop1 stopset1, P1Build_SetOfStop2 stopset2)
6762 : : {
6763 : 6 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P1Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P1Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0))))
6764 : : {
6765 : 0 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6766 : : }
6767 : 6 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6768 : : {
6769 : 0 : Expect (M2Reserved_commatok, stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P1Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P1Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6770 : 0 : ConstExpression (stopset0|(P1Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6771 : : }
6772 : : /* while */
6773 : 6 : }
6774 : :
6775 : :
6776 : : /*
6777 : : CompilationUnit - returns TRUE if the input was correct enough to parse
6778 : : in future passes.
6779 : : */
6780 : :
6781 : 185109 : extern "C" bool P1Build_CompilationUnit (void)
6782 : : {
6783 : 185109 : WasNoError = true;
6784 : 185109 : InsertCount = 0;
6785 : 185109 : FileUnit ((P1Build_SetOfStop0) ((1 << (M2Reserved_eoftok-M2Reserved_eoftok))), (P1Build_SetOfStop1) 0, (P1Build_SetOfStop2) 0);
6786 : 185103 : return WasNoError;
6787 : : /* static analysis guarentees a RETURN statement will be used before here. */
6788 : : __builtin_unreachable ();
6789 : : }
6790 : :
6791 : 0 : extern "C" void _M2_P1Build_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
6792 : : {
6793 : 0 : }
6794 : :
6795 : 0 : extern "C" void _M2_P1Build_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
6796 : : {
6797 : 0 : }
|
