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