Branch data Line data Source code
1 : : /* do not edit automatically generated by mc from PCBuild. */
2 : : /* output from m2-c.bnf, automatically generated do not edit if these
3 : : are the top two lines in the file.
4 : :
5 : : Copyright (C) 2001-2024 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 _PCBuild_C
44 : :
45 : : #include "GPCBuild.h"
46 : : # include "GM2LexBuf.h"
47 : : # include "GM2MetaError.h"
48 : : # include "GNameKey.h"
49 : : # include "GDynamicStrings.h"
50 : : # include "GM2Printf.h"
51 : : # include "GM2Debug.h"
52 : : # include "GP2SymBuild.h"
53 : : # include "GM2Reserved.h"
54 : : # include "GM2Quads.h"
55 : : # include "GP3SymBuild.h"
56 : : # include "GPCSymBuild.h"
57 : : # include "GSymbolTable.h"
58 : : # include "GM2Batch.h"
59 : : # include "GM2StateCheck.h"
60 : : # include "GM2Error.h"
61 : :
62 : : # define Debugging false
63 : : # define Pass1 false
64 : : typedef unsigned int PCBuild_stop0;
65 : :
66 : : typedef unsigned int PCBuild_SetOfStop0;
67 : :
68 : : typedef unsigned int PCBuild_stop1;
69 : :
70 : : typedef unsigned int PCBuild_SetOfStop1;
71 : :
72 : : typedef unsigned int PCBuild_stop2;
73 : :
74 : : typedef unsigned int PCBuild_SetOfStop2;
75 : :
76 : : static M2StateCheck_StateCheck BlockState;
77 : : static bool seenError;
78 : :
79 : : /*
80 : : CompilationUnit - returns TRUE if the input was correct enough to parse
81 : : in future passes.
82 : : */
83 : :
84 : : extern "C" bool PCBuild_CompilationUnit (void);
85 : : static void ErrorString (DynamicStrings_String s);
86 : : static void ErrorArray (const char *a_, unsigned int _a_high);
87 : : static void ErrorArrayAt (const char *a_, unsigned int _a_high, unsigned int tok);
88 : :
89 : : /*
90 : : DescribeStop - issues a message explaining what tokens were expected
91 : : */
92 : :
93 : : static DynamicStrings_String DescribeStop (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
94 : :
95 : : /*
96 : : DescribeError - issues a message explaining what tokens were expected
97 : : */
98 : :
99 : : static void DescribeError (void);
100 : :
101 : : /*
102 : : SyntaxError - after a syntax error we skip all tokens up until we reach
103 : : a stop symbol.
104 : : */
105 : :
106 : : static void SyntaxError (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
107 : :
108 : : /*
109 : : SyntaxCheck -
110 : : */
111 : :
112 : : static void SyntaxCheck (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
113 : :
114 : : /*
115 : : WarnMissingToken - generates a warning message about a missing token, t.
116 : : */
117 : :
118 : : static void WarnMissingToken (M2Reserved_toktype t);
119 : :
120 : : /*
121 : : MissingToken - generates a warning message about a missing token, t.
122 : : */
123 : :
124 : : static void MissingToken (M2Reserved_toktype t);
125 : :
126 : : /*
127 : : CheckAndInsert -
128 : : */
129 : :
130 : : static bool CheckAndInsert (M2Reserved_toktype t, PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
131 : :
132 : : /*
133 : : InStopSet
134 : : */
135 : :
136 : : static bool InStopSet (M2Reserved_toktype t, PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
137 : :
138 : : /*
139 : : PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
140 : : If it is not then it will insert a token providing the token
141 : : is one of ; ] ) } . OF END ,
142 : :
143 : : if the stopset contains <identtok> then we do not insert a token
144 : : */
145 : :
146 : : static void PeepToken (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
147 : :
148 : : /*
149 : : Expect -
150 : : */
151 : :
152 : : static void Expect (M2Reserved_toktype t, PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
153 : :
154 : : /*
155 : : Ident - error checking varient of Ident
156 : : */
157 : :
158 : : static void Ident (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
159 : :
160 : : /*
161 : : string -
162 : : */
163 : :
164 : : static void string (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
165 : :
166 : : /*
167 : : Integer -
168 : : */
169 : :
170 : : static void Integer (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
171 : :
172 : : /*
173 : : Real -
174 : : */
175 : :
176 : : static void Real (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
177 : :
178 : : /*
179 : : FileUnit :=
180 : : % PushAutoOff %
181 : : ( DefinitionModule |
182 : : ImplementationOrProgramModule )
183 : : % PopAuto %
184 : :
185 : :
186 : : first symbols:implementationtok, moduletok, definitiontok
187 : :
188 : : cannot reachend
189 : : */
190 : :
191 : : static void FileUnit (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
192 : :
193 : : /*
194 : : ProgramModule := 'MODULE'
195 : : % M2Error.DefaultProgramModule %
196 : :
197 : : % PushAutoOn %
198 : : Ident
199 : : % PCStartBuildProgModule %
200 : :
201 : : % PushAutoOff %
202 : : [ Priority ] ';' { Import
203 : : % PCBuildImportOuterModule %
204 : : } Block
205 : : % PushAutoOn %
206 : : Ident
207 : : % PCEndBuildProgModule %
208 : : '.'
209 : : % PopAuto ; PopAuto %
210 : :
211 : :
212 : : first symbols:moduletok
213 : :
214 : : cannot reachend
215 : : */
216 : :
217 : : static void ProgramModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
218 : :
219 : : /*
220 : : ImplementationModule := 'IMPLEMENTATION'
221 : : % M2Error.DefaultImplementationModule %
222 : : 'MODULE'
223 : : % PushAutoOn %
224 : : Ident
225 : : % PCStartBuildImpModule %
226 : :
227 : : % PushAutoOff %
228 : : [ Priority ] ';' { Import
229 : :
230 : : % PCBuildImportOuterModule %
231 : : } Block
232 : :
233 : : % PushAutoOn %
234 : : Ident
235 : : % PCEndBuildImpModule %
236 : : '.'
237 : : % PopAuto ; PopAuto ; PopAuto %
238 : :
239 : :
240 : : first symbols:implementationtok
241 : :
242 : : cannot reachend
243 : : */
244 : :
245 : : static void ImplementationModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
246 : :
247 : : /*
248 : : ImplementationOrProgramModule :=
249 : : % PushAutoOff %
250 : : ( ImplementationModule |
251 : : ProgramModule )
252 : :
253 : : % PopAuto %
254 : :
255 : :
256 : : first symbols:moduletok, implementationtok
257 : :
258 : : cannot reachend
259 : : */
260 : :
261 : : static void ImplementationOrProgramModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
262 : :
263 : : /*
264 : : Number := Integer | Real
265 : :
266 : : first symbols:realtok, integertok
267 : :
268 : : cannot reachend
269 : : */
270 : :
271 : : static void Number (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
272 : :
273 : : /*
274 : : Qualident :=
275 : : % VAR name : Name ;
276 : : init, ip1,
277 : : tokstart, tok : CARDINAL ; %
278 : : Ident
279 : : % IF IsAutoPushOn()
280 : : THEN
281 : : PopTtok(name, tokstart) ;
282 : : tok := tokstart ;
283 : : init := RequestSym (tok, name) ;
284 : : WHILE IsDefImp (init) OR IsModule (init) DO
285 : : Expect (periodtok, stopset0, stopset1, stopset2 + SetOfStop2{identtok}) ;
286 : : StartScope (init) ;
287 : : Ident (stopset0, stopset1, stopset2) ;
288 : : PopTtok (name, tok) ;
289 : : ip1 := RequestSym (tok, name) ;
290 : : PutIncluded(ip1) ;
291 : : EndScope ;
292 : : CheckCanBeImported(init, ip1) ;
293 : : init := ip1
294 : : END ;
295 : : IF tok#tokstart
296 : : THEN
297 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
298 : : END ;
299 : : IF IsProcedure(init) OR IsProcType(init)
300 : : THEN
301 : : PushTtok(init, tok)
302 : : ELSE
303 : : PushTFtok(init, GetType(init), tok) ;
304 : : END
305 : : ELSE %
306 : : { '.' Ident }
307 : : % END %
308 : :
309 : :
310 : : first symbols:identtok
311 : :
312 : : cannot reachend
313 : : */
314 : :
315 : : static void Qualident (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
316 : :
317 : : /*
318 : : ConstantDeclaration :=
319 : : % VAR top: CARDINAL ; %
320 : :
321 : : % InclConst (BlockState) %
322 : :
323 : : % top := Top() %
324 : :
325 : : % PushAutoOn %
326 : : ( Ident '='
327 : : % StartDesConst %
328 : :
329 : : % PushAutoOff %
330 : : ConstExpression
331 : : % PopAuto %
332 : : )
333 : : % EndDesConst %
334 : :
335 : : % PopAuto %
336 : :
337 : : % Assert(top=Top()) %
338 : :
339 : : % ExclConst (BlockState) %
340 : :
341 : :
342 : : first symbols:identtok
343 : :
344 : : cannot reachend
345 : : */
346 : :
347 : : static void ConstantDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
348 : :
349 : : /*
350 : : ConstExpression :=
351 : : % VAR top: CARDINAL ; %
352 : :
353 : : % top := Top() %
354 : :
355 : : % PushInConstExpression %
356 : :
357 : : % PushAutoOff %
358 : : SimpleConstExpr [ Relation SimpleConstExpr
359 : :
360 : : % BuildRelationConst %
361 : : ]
362 : : % PopAuto %
363 : :
364 : : % PopInConstExpression %
365 : :
366 : : % Assert(top=Top()) %
367 : :
368 : :
369 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
370 : :
371 : : cannot reachend
372 : : */
373 : :
374 : : static void ConstExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
375 : :
376 : : /*
377 : : Relation := '='
378 : : % PushT(EqualTok) %
379 : : | '#'
380 : : % PushT(HashTok) %
381 : : | '<>'
382 : : % PushT(LessGreaterTok) %
383 : : | '<'
384 : : % PushT(LessTok) %
385 : : | '<='
386 : : % PushT(LessEqualTok) %
387 : : | '>'
388 : : % PushT(GreaterTok) %
389 : : | '>='
390 : : % PushT(GreaterEqualTok) %
391 : : | 'IN'
392 : : % PushT(InTok) %
393 : :
394 : :
395 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
396 : :
397 : : cannot reachend
398 : : */
399 : :
400 : : static void Relation (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
401 : :
402 : : /*
403 : : SimpleConstExpr :=
404 : : % VAR top: CARDINAL ; %
405 : :
406 : : % top := Top() %
407 : : UnaryOrConstTerm { ConstAddOperator
408 : : ConstTerm
409 : :
410 : : % BuildBinaryConst %
411 : : }
412 : : % Assert(top=Top()) %
413 : :
414 : :
415 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
416 : :
417 : : cannot reachend
418 : : */
419 : :
420 : : static void SimpleConstExpr (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
421 : :
422 : : /*
423 : : UnaryOrConstTerm := '+'
424 : : % PushT(PlusTok) %
425 : : ConstTerm
426 : : % BuildUnaryConst %
427 : : | '-'
428 : : % PushT(MinusTok) %
429 : : ConstTerm
430 : : % BuildUnaryConst %
431 : : | ConstTerm
432 : :
433 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
434 : :
435 : : cannot reachend
436 : : */
437 : :
438 : : static void UnaryOrConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
439 : :
440 : : /*
441 : : ConstAddOperator := '+'
442 : : % PushT(PlusTok) %
443 : : | '-'
444 : : % PushT(MinusTok) %
445 : : | 'OR'
446 : : % PushT(OrTok) %
447 : :
448 : :
449 : : first symbols:ortok, minustok, plustok
450 : :
451 : : cannot reachend
452 : : */
453 : :
454 : : static void ConstAddOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
455 : :
456 : : /*
457 : : AddOperator := '+' | '-' | 'OR'
458 : :
459 : : first symbols:ortok, minustok, plustok
460 : :
461 : : cannot reachend
462 : : */
463 : :
464 : : static void AddOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
465 : :
466 : : /*
467 : : ConstTerm :=
468 : : % VAR top: CARDINAL ; %
469 : :
470 : : % top := Top() %
471 : : ConstFactor
472 : : % Assert(top=Top()) %
473 : : { ConstMulOperator ConstFactor
474 : : % BuildBinaryConst %
475 : :
476 : : % Assert(top=Top()) %
477 : : }
478 : : % Assert(top=Top()) %
479 : :
480 : :
481 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok
482 : :
483 : : cannot reachend
484 : : */
485 : :
486 : : static void ConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
487 : :
488 : : /*
489 : : ConstMulOperator := '*'
490 : : % PushT(TimesTok) %
491 : : | '/'
492 : : % PushT(DivideTok) %
493 : : | 'DIV'
494 : : % PushT(DivTok) %
495 : : | 'MOD'
496 : : % PushT(ModTok) %
497 : : | 'REM'
498 : : % PushT(RemTok) %
499 : : | 'AND'
500 : : % PushT(AndTok) %
501 : : | '&'
502 : : % PushT(AmbersandTok) %
503 : :
504 : :
505 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
506 : :
507 : : cannot reachend
508 : : */
509 : :
510 : : static void ConstMulOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
511 : :
512 : : /*
513 : : MulOperator := '*' | '/' | 'DIV' | 'MOD' |
514 : : 'REM' | 'AND' | '&'
515 : :
516 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
517 : :
518 : : cannot reachend
519 : : */
520 : :
521 : : static void MulOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
522 : :
523 : : /*
524 : : ConstFactor := ConstNumber | ConstString |
525 : : ConstSetOrQualidentOrFunction |
526 : : '(' ConstExpression ')' |
527 : : 'NOT' ConstFactor |
528 : : ConstAttribute
529 : :
530 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok
531 : :
532 : : cannot reachend
533 : : */
534 : :
535 : : static void ConstFactor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
536 : :
537 : : /*
538 : : ConstNumber :=
539 : : % PushAutoOn %
540 : : ( Integer
541 : : % PushIntegerType %
542 : : | Real
543 : : % PushRType %
544 : : )
545 : : % PopAuto %
546 : :
547 : :
548 : : first symbols:realtok, integertok
549 : :
550 : : cannot reachend
551 : : */
552 : :
553 : : static void ConstNumber (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
554 : :
555 : : /*
556 : : ConstString :=
557 : : % PushAutoOn %
558 : : string
559 : : % PushStringType %
560 : :
561 : : % PopAuto %
562 : :
563 : :
564 : : first symbols:stringtok
565 : :
566 : : cannot reachend
567 : : */
568 : :
569 : : static void ConstString (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
570 : :
571 : : /*
572 : : ComponentElement := ConstExpression [ '..' ConstExpression ]
573 : :
574 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
575 : :
576 : : cannot reachend
577 : : */
578 : :
579 : : static void ComponentElement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
580 : :
581 : : /*
582 : : ComponentValue := ComponentElement [ 'BY' ConstExpression ]
583 : :
584 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
585 : :
586 : : cannot reachend
587 : : */
588 : :
589 : : static void ComponentValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
590 : :
591 : : /*
592 : : ArraySetRecordValue := ComponentValue { ','
593 : : % NextConstructorField %
594 : : ComponentValue }
595 : :
596 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
597 : :
598 : : cannot reachend
599 : : */
600 : :
601 : : static void ArraySetRecordValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
602 : :
603 : : /*
604 : : Constructor := '{'
605 : : % InclConstructor (BlockState) %
606 : :
607 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
608 : :
609 : : % PushConstructorCastType %
610 : :
611 : : % PushInConstructor %
612 : :
613 : : % BuildConstructor (GetTokenNo ()-1) %
614 : : [ ArraySetRecordValue ]
615 : : % PopConstructor %
616 : : '}'
617 : : % PopInConstructor %
618 : :
619 : : % ExclConstructor (BlockState) %
620 : :
621 : :
622 : : first symbols:lcbratok
623 : :
624 : : cannot reachend
625 : : */
626 : :
627 : : static void Constructor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
628 : :
629 : : /*
630 : : ConstructorOrConstActualParameters := Constructor |
631 : : ConstActualParameters
632 : :
633 : : % PushConstFunctionType %
634 : :
635 : : % PopNothing pop function %
636 : :
637 : :
638 : : first symbols:lparatok, lcbratok
639 : :
640 : : cannot reachend
641 : : */
642 : :
643 : : static void ConstructorOrConstActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
644 : :
645 : : /*
646 : : ConstSetOrQualidentOrFunction :=
647 : : % PushAutoOff %
648 : :
649 : : % VAR tokpos: CARDINAL ; %
650 : :
651 : : % tokpos := GetTokenNo () %
652 : : ( PushQualident
653 : : ( ConstructorOrConstActualParameters |
654 : :
655 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
656 : :
657 : : % PushConstType %
658 : :
659 : : % PopNothing %
660 : : ) |
661 : :
662 : : % BuildTypeForConstructor (tokpos) %
663 : : Constructor )
664 : :
665 : : % PopAuto %
666 : :
667 : :
668 : : first symbols:identtok, lcbratok
669 : :
670 : : cannot reachend
671 : : */
672 : :
673 : : static void ConstSetOrQualidentOrFunction (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
674 : :
675 : : /*
676 : : ConstActualParameters :=
677 : : % PushState (BlockState) %
678 : :
679 : : % InclConstFunc (BlockState) %
680 : :
681 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
682 : :
683 : : % PushT(0) %
684 : : '(' [ ConstExpList ] ')'
685 : :
686 : : % PopState (BlockState) %
687 : :
688 : :
689 : : first symbols:lparatok
690 : :
691 : : cannot reachend
692 : : */
693 : :
694 : : static void ConstActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
695 : :
696 : : /*
697 : : ConstExpList :=
698 : : % VAR n: CARDINAL ; %
699 : : ConstExpression
700 : : % PopT(n) %
701 : :
702 : : % INC(n) %
703 : :
704 : : % Assert(n=1) %
705 : :
706 : : % PushT(n) %
707 : : { ',' ConstExpression
708 : : % PopT(n) %
709 : :
710 : : % INC(n) %
711 : :
712 : : % PushT(n) %
713 : : }
714 : :
715 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
716 : :
717 : : cannot reachend
718 : : */
719 : :
720 : : static void ConstExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
721 : :
722 : : /*
723 : : ConstAttribute :=
724 : : % VAR top: CARDINAL ; %
725 : :
726 : : % top := Top() %
727 : : '__ATTRIBUTE__' '__BUILTIN__'
728 : : '(' '('
729 : : % PushAutoOn %
730 : : ConstAttributeExpression
731 : : % PopAuto %
732 : : ')' ')'
733 : : % Assert(top=Top()) %
734 : :
735 : :
736 : : first symbols:attributetok
737 : :
738 : : cannot reachend
739 : : */
740 : :
741 : : static void ConstAttribute (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
742 : :
743 : : /*
744 : : ConstAttributeExpression := Ident
745 : : % PushConstAttributeType %
746 : :
747 : : % PopNothing %
748 : : | '<' Qualident ','
749 : : Ident '>'
750 : : % PushConstAttributePairType %
751 : :
752 : : % PopNothing ; PopNothing %
753 : :
754 : :
755 : : first symbols:lesstok, identtok
756 : :
757 : : cannot reachend
758 : : */
759 : :
760 : : static void ConstAttributeExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
761 : :
762 : : /*
763 : : ByteAlignment := ''
764 : :
765 : : first symbols:ldirectivetok
766 : :
767 : : cannot reachend
768 : : */
769 : :
770 : : static void ByteAlignment (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
771 : :
772 : : /*
773 : : Alignment := [ ByteAlignment ]
774 : :
775 : : first symbols:ldirectivetok
776 : :
777 : : reachend
778 : : */
779 : :
780 : : static void Alignment (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
781 : :
782 : : /*
783 : : TypeDeclaration := Ident '=' Type Alignment
784 : :
785 : : first symbols:identtok
786 : :
787 : : cannot reachend
788 : : */
789 : :
790 : : static void TypeDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
791 : :
792 : : /*
793 : : Type :=
794 : : % PushAutoOff %
795 : : ( SimpleType | ArrayType | RecordType |
796 : : SetType | PointerType |
797 : : ProcedureType )
798 : : % PopAuto %
799 : :
800 : :
801 : : first symbols:lparatok, lsbratok, proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok
802 : :
803 : : cannot reachend
804 : : */
805 : :
806 : : static void Type (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
807 : :
808 : : /*
809 : : SimpleType := Qualident [ SubrangeType ] |
810 : : Enumeration | SubrangeType
811 : :
812 : : first symbols:lsbratok, lparatok, identtok
813 : :
814 : : cannot reachend
815 : : */
816 : :
817 : : static void SimpleType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
818 : :
819 : : /*
820 : : Enumeration := '(' IdentList ')'
821 : :
822 : : first symbols:lparatok
823 : :
824 : : cannot reachend
825 : : */
826 : :
827 : : static void Enumeration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
828 : :
829 : : /*
830 : : IdentList := Ident
831 : : % VAR
832 : : on: BOOLEAN ;
833 : : n : CARDINAL ; %
834 : :
835 : : % on := IsAutoPushOn() ;
836 : : IF on
837 : : THEN
838 : : n := 1
839 : : END %
840 : : { ',' Ident
841 : : % IF on
842 : : THEN
843 : : INC(n)
844 : : END %
845 : : }
846 : : % IF on
847 : : THEN
848 : : PushT(n)
849 : : END %
850 : :
851 : :
852 : : first symbols:identtok
853 : :
854 : : cannot reachend
855 : : */
856 : :
857 : : static void IdentList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
858 : :
859 : : /*
860 : : SubrangeType := '[' ConstExpression '..' ConstExpression
861 : : ']'
862 : :
863 : : first symbols:lsbratok
864 : :
865 : : cannot reachend
866 : : */
867 : :
868 : : static void SubrangeType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
869 : :
870 : : /*
871 : : ArrayType := 'ARRAY' SimpleType { ',' SimpleType }
872 : : 'OF' Type
873 : :
874 : : first symbols:arraytok
875 : :
876 : : cannot reachend
877 : : */
878 : :
879 : : static void ArrayType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
880 : :
881 : : /*
882 : : RecordType := 'RECORD' [ DefaultRecordAttributes ]
883 : : FieldListSequence 'END'
884 : :
885 : : first symbols:recordtok
886 : :
887 : : cannot reachend
888 : : */
889 : :
890 : : static void RecordType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
891 : :
892 : : /*
893 : : DefaultRecordAttributes := ''
894 : :
895 : : first symbols:ldirectivetok
896 : :
897 : : cannot reachend
898 : : */
899 : :
900 : : static void DefaultRecordAttributes (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
901 : :
902 : : /*
903 : : RecordFieldPragma := [ '' ]
904 : :
905 : : first symbols:ldirectivetok
906 : :
907 : : reachend
908 : : */
909 : :
910 : : static void RecordFieldPragma (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
911 : :
912 : : /*
913 : : FieldPragmaExpression :=
914 : : % PushAutoOff %
915 : : Ident [ '(' ConstExpression
916 : : ')' ]
917 : : % PopAuto %
918 : :
919 : :
920 : : first symbols:identtok
921 : :
922 : : cannot reachend
923 : : */
924 : :
925 : : static void FieldPragmaExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
926 : :
927 : : /*
928 : : AttributeExpression :=
929 : : % PushAutoOff %
930 : : Ident '(' ConstExpression
931 : : ')'
932 : : % PopAuto %
933 : :
934 : :
935 : : first symbols:identtok
936 : :
937 : : cannot reachend
938 : : */
939 : :
940 : : static void AttributeExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
941 : :
942 : : /*
943 : : FieldListSequence := FieldListStatement { ';' FieldListStatement }
944 : :
945 : : first symbols:casetok, identtok, semicolontok
946 : :
947 : : reachend
948 : : */
949 : :
950 : : static void FieldListSequence (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
951 : :
952 : : /*
953 : : FieldListStatement := [ FieldList ]
954 : :
955 : : first symbols:identtok, casetok
956 : :
957 : : reachend
958 : : */
959 : :
960 : : static void FieldListStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
961 : :
962 : : /*
963 : : FieldList := IdentList ':' Type RecordFieldPragma |
964 : : 'CASE' CaseTag 'OF' Varient { '|' Varient }
965 : : [ 'ELSE' FieldListSequence ] 'END'
966 : :
967 : : first symbols:casetok, identtok
968 : :
969 : : cannot reachend
970 : : */
971 : :
972 : : static void FieldList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
973 : :
974 : : /*
975 : : TagIdent := [ Ident ]
976 : :
977 : : first symbols:identtok
978 : :
979 : : reachend
980 : : */
981 : :
982 : : static void TagIdent (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
983 : :
984 : : /*
985 : : CaseTag := TagIdent [ ':' Qualident ]
986 : :
987 : : first symbols:colontok, identtok
988 : :
989 : : reachend
990 : : */
991 : :
992 : : static void CaseTag (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
993 : :
994 : : /*
995 : : Varient := [ VarientCaseLabelList ':' FieldListSequence ]
996 : :
997 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
998 : :
999 : : reachend
1000 : : */
1001 : :
1002 : : static void Varient (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1003 : :
1004 : : /*
1005 : : VarientCaseLabelList := VarientCaseLabels { ','
1006 : : VarientCaseLabels }
1007 : :
1008 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
1009 : :
1010 : : cannot reachend
1011 : : */
1012 : :
1013 : : static void VarientCaseLabelList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1014 : :
1015 : : /*
1016 : : VarientCaseLabels := ConstExpression ( '..' ConstExpression |
1017 : :
1018 : : % epsilon %
1019 : : )
1020 : :
1021 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
1022 : :
1023 : : cannot reachend
1024 : : */
1025 : :
1026 : : static void VarientCaseLabels (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1027 : :
1028 : : /*
1029 : : SilentConstExpression :=
1030 : : % PushAutoOff %
1031 : : SilentSimpleConstExpr [
1032 : : SilentRelation SilentSimpleConstExpr ]
1033 : : % PopAuto %
1034 : :
1035 : :
1036 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1037 : :
1038 : : cannot reachend
1039 : : */
1040 : :
1041 : : static void SilentConstExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1042 : :
1043 : : /*
1044 : : SilentRelation := '=' | '#' | '<>' | '<' |
1045 : : '<=' | '>' | '>=' | 'IN'
1046 : :
1047 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
1048 : :
1049 : : cannot reachend
1050 : : */
1051 : :
1052 : : static void SilentRelation (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1053 : :
1054 : : /*
1055 : : SilentSimpleConstExpr := SilentUnaryOrConstTerm
1056 : : { SilentAddOperator SilentConstTerm }
1057 : :
1058 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1059 : :
1060 : : cannot reachend
1061 : : */
1062 : :
1063 : : static void SilentSimpleConstExpr (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1064 : :
1065 : : /*
1066 : : SilentUnaryOrConstTerm := '+' SilentConstTerm |
1067 : : '-' SilentConstTerm |
1068 : : SilentConstTerm
1069 : :
1070 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1071 : :
1072 : : cannot reachend
1073 : : */
1074 : :
1075 : : static void SilentUnaryOrConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1076 : :
1077 : : /*
1078 : : SilentAddOperator := '+' | '-' | 'OR'
1079 : :
1080 : : first symbols:ortok, minustok, plustok
1081 : :
1082 : : cannot reachend
1083 : : */
1084 : :
1085 : : static void SilentAddOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1086 : :
1087 : : /*
1088 : : SilentConstTerm := SilentConstFactor { SilentMulOperator
1089 : : SilentConstFactor }
1090 : :
1091 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok
1092 : :
1093 : : cannot reachend
1094 : : */
1095 : :
1096 : : static void SilentConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1097 : :
1098 : : /*
1099 : : SilentMulOperator := '*' | '/' | 'DIV' |
1100 : : 'MOD' | 'REM' | 'AND' |
1101 : : '&'
1102 : :
1103 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
1104 : :
1105 : : cannot reachend
1106 : : */
1107 : :
1108 : : static void SilentMulOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1109 : :
1110 : : /*
1111 : : SilentConstFactor := Number | SilentConstString |
1112 : : SilentConstSetOrQualidentOrFunction |
1113 : : '(' SilentConstExpression ')' |
1114 : : 'NOT' SilentConstFactor |
1115 : : SilentConstAttribute
1116 : :
1117 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok
1118 : :
1119 : : cannot reachend
1120 : : */
1121 : :
1122 : : static void SilentConstFactor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1123 : :
1124 : : /*
1125 : : SilentConstString := string
1126 : :
1127 : : first symbols:stringtok
1128 : :
1129 : : cannot reachend
1130 : : */
1131 : :
1132 : : static void SilentConstString (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1133 : :
1134 : : /*
1135 : : SilentConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
1136 : : '(' '(' SilentConstAttributeExpression
1137 : : ')' ')'
1138 : :
1139 : : first symbols:attributetok
1140 : :
1141 : : cannot reachend
1142 : : */
1143 : :
1144 : : static void SilentConstAttribute (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1145 : :
1146 : : /*
1147 : : SilentConstAttributeExpression := Ident |
1148 : : '<' Ident ','
1149 : : SilentConstString
1150 : : '>'
1151 : :
1152 : : first symbols:lesstok, identtok
1153 : :
1154 : : cannot reachend
1155 : : */
1156 : :
1157 : : static void SilentConstAttributeExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1158 : :
1159 : : /*
1160 : : SilentComponentElement := SilentConstExpression
1161 : : [ '..' SilentConstExpression ]
1162 : :
1163 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1164 : :
1165 : : cannot reachend
1166 : : */
1167 : :
1168 : : static void SilentComponentElement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1169 : :
1170 : : /*
1171 : : SilentComponentValue := SilentComponentElement [
1172 : : 'BY' SilentConstExpression ]
1173 : :
1174 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1175 : :
1176 : : cannot reachend
1177 : : */
1178 : :
1179 : : static void SilentComponentValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1180 : :
1181 : : /*
1182 : : SilentArraySetRecordValue := SilentComponentValue
1183 : : { ',' SilentComponentValue }
1184 : :
1185 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1186 : :
1187 : : cannot reachend
1188 : : */
1189 : :
1190 : : static void SilentArraySetRecordValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1191 : :
1192 : : /*
1193 : : SilentConstructor := '{'
1194 : : % SilentBuildConstructor %
1195 : : [ SilentArraySetRecordValue ]
1196 : : '}'
1197 : :
1198 : : first symbols:lcbratok
1199 : :
1200 : : cannot reachend
1201 : : */
1202 : :
1203 : : static void SilentConstructor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1204 : :
1205 : : /*
1206 : : SilentConstSetOrQualidentOrFunction := SilentConstructor |
1207 : : Qualident
1208 : : [ SilentConstructor |
1209 : : SilentActualParameters ]
1210 : :
1211 : : first symbols:identtok, lcbratok
1212 : :
1213 : : cannot reachend
1214 : : */
1215 : :
1216 : : static void SilentConstSetOrQualidentOrFunction (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1217 : :
1218 : : /*
1219 : : SilentActualParameters := '(' [ SilentExpList ]
1220 : : ')'
1221 : :
1222 : : first symbols:lparatok
1223 : :
1224 : : cannot reachend
1225 : : */
1226 : :
1227 : : static void SilentActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1228 : :
1229 : : /*
1230 : : SilentExpList := SilentConstExpression { ',' SilentConstExpression }
1231 : :
1232 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1233 : :
1234 : : cannot reachend
1235 : : */
1236 : :
1237 : : static void SilentExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1238 : :
1239 : : /*
1240 : : SetType := ( 'SET' | 'PACKEDSET' ) 'OF' SimpleType
1241 : :
1242 : : first symbols:oftok, packedsettok, settok
1243 : :
1244 : : cannot reachend
1245 : : */
1246 : :
1247 : : static void SetType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1248 : :
1249 : : /*
1250 : : PointerType := 'POINTER' 'TO' Type
1251 : :
1252 : : first symbols:pointertok
1253 : :
1254 : : cannot reachend
1255 : : */
1256 : :
1257 : : static void PointerType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1258 : :
1259 : : /*
1260 : : ProcedureType := 'PROCEDURE' [ FormalTypeList ]
1261 : :
1262 : : first symbols:proceduretok
1263 : :
1264 : : cannot reachend
1265 : : */
1266 : :
1267 : : static void ProcedureType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1268 : :
1269 : : /*
1270 : : FormalTypeList := '(' ( ')' FormalReturn |
1271 : : ProcedureParameters ')'
1272 : : FormalReturn )
1273 : :
1274 : : first symbols:lparatok
1275 : :
1276 : : cannot reachend
1277 : : */
1278 : :
1279 : : static void FormalTypeList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1280 : :
1281 : : /*
1282 : : FormalReturn := [ ':' OptReturnType ]
1283 : :
1284 : : first symbols:colontok
1285 : :
1286 : : reachend
1287 : : */
1288 : :
1289 : : static void FormalReturn (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1290 : :
1291 : : /*
1292 : : OptReturnType := '[' Qualident ']' |
1293 : : Qualident
1294 : :
1295 : : first symbols:identtok, lsbratok
1296 : :
1297 : : cannot reachend
1298 : : */
1299 : :
1300 : : static void OptReturnType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1301 : :
1302 : : /*
1303 : : ProcedureParameters := ProcedureParameter { ','
1304 : : ProcedureParameter }
1305 : :
1306 : : first symbols:identtok, arraytok, periodperiodperiodtok, vartok
1307 : :
1308 : : cannot reachend
1309 : : */
1310 : :
1311 : : static void ProcedureParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1312 : :
1313 : : /*
1314 : : ProcedureParameter := '...' | 'VAR' FormalType |
1315 : : FormalType
1316 : :
1317 : : first symbols:arraytok, identtok, vartok, periodperiodperiodtok
1318 : :
1319 : : cannot reachend
1320 : : */
1321 : :
1322 : : static void ProcedureParameter (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1323 : :
1324 : : /*
1325 : : VarIdent := Ident [ '[' ConstExpression ']' ]
1326 : :
1327 : : first symbols:identtok
1328 : :
1329 : : cannot reachend
1330 : : */
1331 : :
1332 : : static void VarIdent (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1333 : :
1334 : : /*
1335 : : VarIdentList := VarIdent { ',' VarIdent }
1336 : :
1337 : : first symbols:identtok
1338 : :
1339 : : cannot reachend
1340 : : */
1341 : :
1342 : : static void VarIdentList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1343 : :
1344 : : /*
1345 : : VariableDeclaration := VarIdentList ':' Type Alignment
1346 : :
1347 : : first symbols:identtok
1348 : :
1349 : : cannot reachend
1350 : : */
1351 : :
1352 : : static void VariableDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1353 : :
1354 : : /*
1355 : : Designator := Qualident { SubDesignator }
1356 : :
1357 : : first symbols:identtok
1358 : :
1359 : : cannot reachend
1360 : : */
1361 : :
1362 : : static void Designator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1363 : :
1364 : : /*
1365 : : SubDesignator := '.' Ident | '[' ArrayExpList ']' |
1366 : : '^'
1367 : :
1368 : : first symbols:uparrowtok, lsbratok, periodtok
1369 : :
1370 : : cannot reachend
1371 : : */
1372 : :
1373 : : static void SubDesignator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1374 : :
1375 : : /*
1376 : : ArrayExpList := Expression { ',' Expression }
1377 : :
1378 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1379 : :
1380 : : cannot reachend
1381 : : */
1382 : :
1383 : : static void ArrayExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1384 : :
1385 : : /*
1386 : : ExpList := Expression { ',' Expression }
1387 : :
1388 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1389 : :
1390 : : cannot reachend
1391 : : */
1392 : :
1393 : : static void ExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1394 : :
1395 : : /*
1396 : : Expression := SimpleExpression [ SilentRelation
1397 : : SimpleExpression ]
1398 : :
1399 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1400 : :
1401 : : cannot reachend
1402 : : */
1403 : :
1404 : : static void Expression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1405 : :
1406 : : /*
1407 : : SimpleExpression := UnaryOrTerm { AddOperator Term }
1408 : :
1409 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1410 : :
1411 : : cannot reachend
1412 : : */
1413 : :
1414 : : static void SimpleExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1415 : :
1416 : : /*
1417 : : UnaryOrTerm := '+' Term | '-' Term |
1418 : : Term
1419 : :
1420 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1421 : :
1422 : : cannot reachend
1423 : : */
1424 : :
1425 : : static void UnaryOrTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1426 : :
1427 : : /*
1428 : : Term := Factor { MulOperator Factor }
1429 : :
1430 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok
1431 : :
1432 : : cannot reachend
1433 : : */
1434 : :
1435 : : static void Term (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1436 : :
1437 : : /*
1438 : : Factor := Number | string | SetOrDesignatorOrFunction |
1439 : : '(' Expression ')' |
1440 : : 'NOT' ( Factor | ConstAttribute )
1441 : :
1442 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok
1443 : :
1444 : : cannot reachend
1445 : : */
1446 : :
1447 : : static void Factor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1448 : :
1449 : : /*
1450 : : PushQualident :=
1451 : : % VAR name : Name ;
1452 : : init, ip1 : CARDINAL ;
1453 : : tok, tokstart: CARDINAL ; %
1454 : :
1455 : : % PushAutoOn %
1456 : : Ident
1457 : : % IF IsAutoPushOn()
1458 : : THEN
1459 : : PopTtok (name, tokstart) ;
1460 : : tok := tokstart ;
1461 : : init := GetSym (name) ;
1462 : : IF init=NulSym
1463 : : THEN
1464 : : PushTFntok (NulSym, NulSym, name, tok)
1465 : : ELSE
1466 : : WHILE IsDefImp (init) OR IsModule (init) DO
1467 : : IF currenttoken # periodtok
1468 : : THEN
1469 : : ErrorArrayAt ("expecting '.' after module in the construction of a qualident", tok) ;
1470 : : IF tok#tokstart
1471 : : THEN
1472 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
1473 : : END ;
1474 : : PushTtok (init, tok) ;
1475 : : PopAuto ;
1476 : : RETURN
1477 : : ELSE
1478 : : Expect (periodtok, stopset0, stopset1, stopset2 + SetOfStop2{identtok}) ;
1479 : : StartScope (init) ;
1480 : : Ident (stopset0, stopset1, stopset2) ;
1481 : : PopTtok (name, tok) ;
1482 : : ip1 := GetSym (name) ;
1483 : : IF ip1 = NulSym
1484 : : THEN
1485 : : ErrorArrayAt ("unknown ident in the construction of a qualident", tok) ;
1486 : : EndScope ;
1487 : : IF tok#tokstart
1488 : : THEN
1489 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
1490 : : END ;
1491 : : PushTFntok (NulSym, NulSym, name, tok) ;
1492 : : PopAuto ;
1493 : : RETURN
1494 : : ELSE
1495 : : PutIncluded (ip1)
1496 : : END ;
1497 : : EndScope ;
1498 : : CheckCanBeImported (init, ip1) ;
1499 : : init := ip1
1500 : : END
1501 : : END ;
1502 : : IF tok#tokstart
1503 : : THEN
1504 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
1505 : : END ;
1506 : : IF IsProcedure (init) OR IsProcType (init)
1507 : : THEN
1508 : : PushTtok (init, tok)
1509 : : ELSE
1510 : : PushTFtok (init, GetType(init), tok)
1511 : : END
1512 : : END
1513 : : ELSE %
1514 : : { '.' Ident }
1515 : : % END %
1516 : :
1517 : : % PopAuto %
1518 : :
1519 : :
1520 : : first symbols:identtok
1521 : :
1522 : : cannot reachend
1523 : : */
1524 : :
1525 : : static void PushQualident (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1526 : :
1527 : : /*
1528 : : ConstructorOrSimpleDes := Constructor |
1529 : :
1530 : : % PopNothing %
1531 : : SimpleDes [ ActualParameters ]
1532 : :
1533 : : first symbols:lparatok, uparrowtok, lsbratok, periodtok, lcbratok
1534 : :
1535 : : reachend
1536 : : */
1537 : :
1538 : : static void ConstructorOrSimpleDes (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1539 : :
1540 : : /*
1541 : : SetOrDesignatorOrFunction :=
1542 : : % VAR tokpos: CARDINAL ; %
1543 : :
1544 : : % tokpos := GetTokenNo () %
1545 : :
1546 : : % PushAutoOff %
1547 : : ( PushQualident ( ConstructorOrSimpleDes |
1548 : :
1549 : : % PopNothing %
1550 : : ) |
1551 : :
1552 : : % BuildTypeForConstructor (tokpos) %
1553 : : Constructor )
1554 : : % PopAuto %
1555 : :
1556 : :
1557 : : first symbols:lcbratok, identtok
1558 : :
1559 : : cannot reachend
1560 : : */
1561 : :
1562 : : static void SetOrDesignatorOrFunction (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1563 : :
1564 : : /*
1565 : : SimpleDes := { SubDesignator }
1566 : :
1567 : : first symbols:periodtok, lsbratok, uparrowtok
1568 : :
1569 : : reachend
1570 : : */
1571 : :
1572 : : static void SimpleDes (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1573 : :
1574 : : /*
1575 : : ActualParameters := '(' [ ExpList ] ')'
1576 : :
1577 : : first symbols:lparatok
1578 : :
1579 : : cannot reachend
1580 : : */
1581 : :
1582 : : static void ActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1583 : :
1584 : : /*
1585 : : ExitStatement := 'EXIT'
1586 : :
1587 : : first symbols:exittok
1588 : :
1589 : : cannot reachend
1590 : : */
1591 : :
1592 : : static void ExitStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1593 : :
1594 : : /*
1595 : : ReturnStatement := 'RETURN' [ Expression ]
1596 : :
1597 : : first symbols:returntok
1598 : :
1599 : : cannot reachend
1600 : : */
1601 : :
1602 : : static void ReturnStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1603 : :
1604 : : /*
1605 : : Statement :=
1606 : : % PushAutoOff %
1607 : : [ AssignmentOrProcedureCall |
1608 : : IfStatement | CaseStatement |
1609 : : WhileStatement |
1610 : : RepeatStatement |
1611 : : LoopStatement | ForStatement |
1612 : : WithStatement | AsmStatement |
1613 : : ExitStatement | ReturnStatement |
1614 : : RetryStatement ]
1615 : : % PopAuto ; %
1616 : :
1617 : :
1618 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
1619 : :
1620 : : reachend
1621 : : */
1622 : :
1623 : : static void Statement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1624 : :
1625 : : /*
1626 : : RetryStatement := 'RETRY'
1627 : :
1628 : : first symbols:retrytok
1629 : :
1630 : : cannot reachend
1631 : : */
1632 : :
1633 : : static void RetryStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1634 : :
1635 : : /*
1636 : : AssignmentOrProcedureCall :=
1637 : : % VAR top: CARDINAL ; %
1638 : :
1639 : : % top := Top() %
1640 : : Designator ( ':=' Expression |
1641 : : ActualParameters |
1642 : :
1643 : : % epsilon %
1644 : : )
1645 : : % Assert(top=Top()) %
1646 : :
1647 : :
1648 : : first symbols:identtok
1649 : :
1650 : : cannot reachend
1651 : : */
1652 : :
1653 : : static void AssignmentOrProcedureCall (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1654 : :
1655 : : /*
1656 : : StatementSequence :=
1657 : : % VAR top: CARDINAL ; %
1658 : :
1659 : : % top := Top() %
1660 : : Statement
1661 : : % Assert(top=Top()) %
1662 : : { ';' Statement
1663 : : % Assert(top=Top()) %
1664 : : }
1665 : :
1666 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
1667 : :
1668 : : reachend
1669 : : */
1670 : :
1671 : : static void StatementSequence (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1672 : :
1673 : : /*
1674 : : IfStatement := 'IF' Expression 'THEN' StatementSequence
1675 : : { 'ELSIF' Expression 'THEN' StatementSequence }
1676 : : [ 'ELSE' StatementSequence ] 'END'
1677 : :
1678 : : first symbols:iftok
1679 : :
1680 : : cannot reachend
1681 : : */
1682 : :
1683 : : static void IfStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1684 : :
1685 : : /*
1686 : : CaseStatement := 'CASE' Expression 'OF' Case { '|'
1687 : : Case }
1688 : : CaseEndStatement
1689 : :
1690 : : first symbols:casetok
1691 : :
1692 : : cannot reachend
1693 : : */
1694 : :
1695 : : static void CaseStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1696 : :
1697 : : /*
1698 : : CaseEndStatement := 'END' | 'ELSE' StatementSequence
1699 : : 'END'
1700 : :
1701 : : first symbols:elsetok, endtok
1702 : :
1703 : : cannot reachend
1704 : : */
1705 : :
1706 : : static void CaseEndStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1707 : :
1708 : : /*
1709 : : Case := [ CaseLabelList ':' StatementSequence ]
1710 : :
1711 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
1712 : :
1713 : : reachend
1714 : : */
1715 : :
1716 : : static void Case (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1717 : :
1718 : : /*
1719 : : CaseLabelList := CaseLabels { ',' CaseLabels }
1720 : :
1721 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
1722 : :
1723 : : cannot reachend
1724 : : */
1725 : :
1726 : : static void CaseLabelList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1727 : :
1728 : : /*
1729 : : CaseLabels := ConstExpression [ '..' ConstExpression ]
1730 : :
1731 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
1732 : :
1733 : : cannot reachend
1734 : : */
1735 : :
1736 : : static void CaseLabels (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1737 : :
1738 : : /*
1739 : : WhileStatement := 'WHILE' Expression 'DO' StatementSequence
1740 : : 'END'
1741 : :
1742 : : first symbols:whiletok
1743 : :
1744 : : cannot reachend
1745 : : */
1746 : :
1747 : : static void WhileStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1748 : :
1749 : : /*
1750 : : RepeatStatement := 'REPEAT' StatementSequence 'UNTIL'
1751 : : Expression
1752 : :
1753 : : first symbols:repeattok
1754 : :
1755 : : cannot reachend
1756 : : */
1757 : :
1758 : : static void RepeatStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1759 : :
1760 : : /*
1761 : : ForStatement := 'FOR' Ident ':=' Expression 'TO'
1762 : : Expression [ 'BY' ConstExpression ]
1763 : : 'DO' StatementSequence 'END'
1764 : :
1765 : : first symbols:fortok
1766 : :
1767 : : cannot reachend
1768 : : */
1769 : :
1770 : : static void ForStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1771 : :
1772 : : /*
1773 : : LoopStatement := 'LOOP' StatementSequence 'END'
1774 : :
1775 : : first symbols:looptok
1776 : :
1777 : : cannot reachend
1778 : : */
1779 : :
1780 : : static void LoopStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1781 : :
1782 : : /*
1783 : : WithStatement := 'WITH' Designator 'DO' StatementSequence
1784 : : 'END'
1785 : :
1786 : : first symbols:withtok
1787 : :
1788 : : cannot reachend
1789 : : */
1790 : :
1791 : : static void WithStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1792 : :
1793 : : /*
1794 : : ProcedureDeclaration :=
1795 : : % VAR top: CARDINAL ; %
1796 : :
1797 : : % top := Top () %
1798 : : ProcedureHeading ';' PostProcedureHeading
1799 : :
1800 : : % Assert (top = Top ()) %
1801 : :
1802 : :
1803 : : first symbols:proceduretok
1804 : :
1805 : : cannot reachend
1806 : : */
1807 : :
1808 : : static void ProcedureDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1809 : :
1810 : : /*
1811 : : PostProcedureHeading := ProperProcedure |
1812 : : ForwardDeclaration
1813 : :
1814 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok, forwardtok
1815 : :
1816 : : cannot reachend
1817 : : */
1818 : :
1819 : : static void PostProcedureHeading (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1820 : :
1821 : : /*
1822 : : ForwardDeclaration := 'FORWARD'
1823 : : % PCEndBuildForward %
1824 : :
1825 : :
1826 : : first symbols:forwardtok
1827 : :
1828 : : cannot reachend
1829 : : */
1830 : :
1831 : : static void ForwardDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1832 : :
1833 : : /*
1834 : : ProperProcedure := ProcedureBlock
1835 : : % PushAutoOn %
1836 : : Ident
1837 : : % PCEndBuildProcedure %
1838 : :
1839 : : % PopAuto %
1840 : :
1841 : :
1842 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok, begintok, endtok
1843 : :
1844 : : cannot reachend
1845 : : */
1846 : :
1847 : : static void ProperProcedure (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1848 : :
1849 : : /*
1850 : : DefineBuiltinProcedure := [ '__ATTRIBUTE__' '__BUILTIN__'
1851 : : '(' '('
1852 : : % PushAutoOff %
1853 : : Ident
1854 : : % PopAuto %
1855 : : ')' ')' |
1856 : : '__INLINE__' ]
1857 : :
1858 : : first symbols:inlinetok, attributetok
1859 : :
1860 : : reachend
1861 : : */
1862 : :
1863 : : static void DefineBuiltinProcedure (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1864 : :
1865 : : /*
1866 : : ProcedureHeading := 'PROCEDURE'
1867 : : % M2Error.DefaultProcedure %
1868 : :
1869 : : % PushAutoOn %
1870 : : DefineBuiltinProcedure ( Ident
1871 : :
1872 : : % PCStartBuildProcedure %
1873 : :
1874 : : % PushAutoOff %
1875 : : [ FormalParameters ]
1876 : : AttributeNoReturn
1877 : :
1878 : : % PCBuildProcedureHeading %
1879 : :
1880 : : % PopAuto %
1881 : : )
1882 : :
1883 : : % PopAuto %
1884 : :
1885 : :
1886 : : first symbols:proceduretok
1887 : :
1888 : : cannot reachend
1889 : : */
1890 : :
1891 : : static void ProcedureHeading (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1892 : :
1893 : : /*
1894 : : Builtin := [ '__BUILTIN__' | '__INLINE__' ]
1895 : :
1896 : : first symbols:inlinetok, builtintok
1897 : :
1898 : : reachend
1899 : : */
1900 : :
1901 : : static void Builtin (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1902 : :
1903 : : /*
1904 : : DefProcedureHeading := 'PROCEDURE'
1905 : : % M2Error.DefaultProcedure %
1906 : :
1907 : : % PushAutoOn %
1908 : : Builtin ( Ident
1909 : : % PCStartBuildProcedure %
1910 : :
1911 : : % PushAutoOff %
1912 : : [ DefFormalParameters ]
1913 : : AttributeNoReturn
1914 : :
1915 : : % PCBuildProcedureHeading %
1916 : :
1917 : : % PopAuto %
1918 : : )
1919 : : % PopAuto %
1920 : :
1921 : : % M2Error.LeaveErrorScope %
1922 : :
1923 : :
1924 : : first symbols:proceduretok
1925 : :
1926 : : cannot reachend
1927 : : */
1928 : :
1929 : : static void DefProcedureHeading (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1930 : :
1931 : : /*
1932 : : AttributeNoReturn := [ '' ]
1933 : :
1934 : : first symbols:ldirectivetok
1935 : :
1936 : : reachend
1937 : : */
1938 : :
1939 : : static void AttributeNoReturn (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1940 : :
1941 : : /*
1942 : : AttributeUnused := [ '' ]
1943 : :
1944 : : first symbols:ldirectivetok
1945 : :
1946 : : reachend
1947 : : */
1948 : :
1949 : : static void AttributeUnused (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1950 : :
1951 : : /*
1952 : : ProcedureBlock :=
1953 : : % VAR top: CARDINAL ; %
1954 : :
1955 : : % top := Top() %
1956 : : { Declaration
1957 : : % Assert(top=Top()) %
1958 : : } [ 'BEGIN' ProcedureBlockBody
1959 : :
1960 : : % Assert(top=Top()) %
1961 : : ] 'END'
1962 : : % Assert(top=Top()) %
1963 : :
1964 : :
1965 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
1966 : :
1967 : : cannot reachend
1968 : : */
1969 : :
1970 : : static void ProcedureBlock (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1971 : :
1972 : : /*
1973 : : Block :=
1974 : : % VAR top: CARDINAL ; %
1975 : :
1976 : : % top := Top() %
1977 : : { Declaration } InitialBlock FinalBlock
1978 : : 'END'
1979 : : % Assert(top=Top()) %
1980 : :
1981 : :
1982 : : first symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
1983 : :
1984 : : cannot reachend
1985 : : */
1986 : :
1987 : : static void Block (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1988 : :
1989 : : /*
1990 : : InitialBlock := [ 'BEGIN' InitialBlockBody ]
1991 : :
1992 : : first symbols:begintok
1993 : :
1994 : : reachend
1995 : : */
1996 : :
1997 : : static void InitialBlock (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
1998 : :
1999 : : /*
2000 : : FinalBlock := [ 'FINALLY' FinalBlockBody ]
2001 : :
2002 : : first symbols:finallytok
2003 : :
2004 : : reachend
2005 : : */
2006 : :
2007 : : static void FinalBlock (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2008 : :
2009 : : /*
2010 : : InitialBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
2011 : :
2012 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
2013 : :
2014 : : reachend
2015 : : */
2016 : :
2017 : : static void InitialBlockBody (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2018 : :
2019 : : /*
2020 : : FinalBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
2021 : :
2022 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
2023 : :
2024 : : reachend
2025 : : */
2026 : :
2027 : : static void FinalBlockBody (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2028 : :
2029 : : /*
2030 : : ProcedureBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
2031 : :
2032 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
2033 : :
2034 : : reachend
2035 : : */
2036 : :
2037 : : static void ProcedureBlockBody (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2038 : :
2039 : : /*
2040 : : NormalPart := StatementSequence
2041 : :
2042 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
2043 : :
2044 : : reachend
2045 : : */
2046 : :
2047 : : static void NormalPart (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2048 : :
2049 : : /*
2050 : : ExceptionalPart := StatementSequence
2051 : :
2052 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
2053 : :
2054 : : reachend
2055 : : */
2056 : :
2057 : : static void ExceptionalPart (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2058 : :
2059 : : /*
2060 : : Declaration := 'CONST' { ConstantDeclaration ';' } |
2061 : : 'TYPE' { TypeDeclaration ';' } |
2062 : : 'VAR' { VariableDeclaration ';' } |
2063 : : ProcedureDeclaration ';' |
2064 : : ModuleDeclaration ';'
2065 : :
2066 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok
2067 : :
2068 : : cannot reachend
2069 : : */
2070 : :
2071 : : static void Declaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2072 : :
2073 : : /*
2074 : : DefFormalParameters := '(' [ DefMultiFPSection ]
2075 : : ')' FormalReturn
2076 : :
2077 : : first symbols:lparatok
2078 : :
2079 : : cannot reachend
2080 : : */
2081 : :
2082 : : static void DefFormalParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2083 : :
2084 : : /*
2085 : : DefMultiFPSection := DefExtendedFP |
2086 : : FPSection [ ';' DefMultiFPSection ]
2087 : :
2088 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
2089 : :
2090 : : cannot reachend
2091 : : */
2092 : :
2093 : : static void DefMultiFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2094 : :
2095 : : /*
2096 : : FormalParameters := '(' [ MultiFPSection ] ')'
2097 : : FormalReturn
2098 : :
2099 : : first symbols:lparatok
2100 : :
2101 : : cannot reachend
2102 : : */
2103 : :
2104 : : static void FormalParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2105 : :
2106 : : /*
2107 : : MultiFPSection := ExtendedFP | FPSection [ ';'
2108 : : MultiFPSection ]
2109 : :
2110 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
2111 : :
2112 : : cannot reachend
2113 : : */
2114 : :
2115 : : static void MultiFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2116 : :
2117 : : /*
2118 : : FPSection := NonVarFPSection |
2119 : : VarFPSection
2120 : :
2121 : : first symbols:vartok, identtok
2122 : :
2123 : : cannot reachend
2124 : : */
2125 : :
2126 : : static void FPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2127 : :
2128 : : /*
2129 : : DefExtendedFP := DefOptArg | '...'
2130 : :
2131 : : first symbols:lsbratok, periodperiodperiodtok
2132 : :
2133 : : cannot reachend
2134 : : */
2135 : :
2136 : : static void DefExtendedFP (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2137 : :
2138 : : /*
2139 : : ExtendedFP := OptArg | '...'
2140 : :
2141 : : first symbols:lsbratok, periodperiodperiodtok
2142 : :
2143 : : cannot reachend
2144 : : */
2145 : :
2146 : : static void ExtendedFP (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2147 : :
2148 : : /*
2149 : : VarFPSection := 'VAR' IdentList ':' FormalType [
2150 : : AttributeUnused ]
2151 : :
2152 : : first symbols:vartok
2153 : :
2154 : : cannot reachend
2155 : : */
2156 : :
2157 : : static void VarFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2158 : :
2159 : : /*
2160 : : NonVarFPSection := IdentList ':' FormalType [ AttributeUnused ]
2161 : :
2162 : : first symbols:identtok
2163 : :
2164 : : cannot reachend
2165 : : */
2166 : :
2167 : : static void NonVarFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2168 : :
2169 : : /*
2170 : : OptArg := '[' Ident ':' FormalType [ '=' ConstExpression ]
2171 : : ']'
2172 : :
2173 : : first symbols:lsbratok
2174 : :
2175 : : cannot reachend
2176 : : */
2177 : :
2178 : : static void OptArg (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2179 : :
2180 : : /*
2181 : : DefOptArg := '[' Ident ':' FormalType '=' ConstExpression
2182 : : ']'
2183 : :
2184 : : first symbols:lsbratok
2185 : :
2186 : : cannot reachend
2187 : : */
2188 : :
2189 : : static void DefOptArg (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2190 : :
2191 : : /*
2192 : : FormalType := { 'ARRAY' 'OF' } Qualident
2193 : :
2194 : : first symbols:identtok, arraytok
2195 : :
2196 : : cannot reachend
2197 : : */
2198 : :
2199 : : static void FormalType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2200 : :
2201 : : /*
2202 : : ModuleDeclaration := 'MODULE'
2203 : : % M2Error.DefaultInnerModule %
2204 : :
2205 : : % PushAutoOn %
2206 : : Ident
2207 : : % PCStartBuildInnerModule %
2208 : :
2209 : : % PushAutoOff %
2210 : : [ Priority ] ';' { Import
2211 : :
2212 : : % PCBuildImportInnerModule %
2213 : : } [ Export ]
2214 : : Block
2215 : : % PushAutoOn %
2216 : : Ident
2217 : : % PCEndBuildInnerModule %
2218 : :
2219 : : % PopAuto ; PopAuto ; PopAuto %
2220 : :
2221 : :
2222 : : first symbols:moduletok
2223 : :
2224 : : cannot reachend
2225 : : */
2226 : :
2227 : : static void ModuleDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2228 : :
2229 : : /*
2230 : : Priority := '[' ConstExpression ']'
2231 : :
2232 : : first symbols:lsbratok
2233 : :
2234 : : cannot reachend
2235 : : */
2236 : :
2237 : : static void Priority (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2238 : :
2239 : : /*
2240 : : Export := 'EXPORT' ( 'QUALIFIED' IdentList |
2241 : : 'UNQUALIFIED' IdentList |
2242 : : IdentList ) ';'
2243 : :
2244 : : first symbols:exporttok
2245 : :
2246 : : cannot reachend
2247 : : */
2248 : :
2249 : : static void Export (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2250 : :
2251 : : /*
2252 : : Import :=
2253 : : % PushAutoOn %
2254 : : ( 'FROM' Ident 'IMPORT' IdentList ';' |
2255 : : 'IMPORT'
2256 : : % PushT(ImportTok)
2257 : : determines whether Ident or Module %
2258 : : IdentList ';' )
2259 : : % PopAuto %
2260 : :
2261 : :
2262 : : first symbols:importtok, fromtok
2263 : :
2264 : : cannot reachend
2265 : : */
2266 : :
2267 : : static void Import (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2268 : :
2269 : : /*
2270 : : DefinitionModule := 'DEFINITION'
2271 : : % M2Error.DefaultDefinitionModule %
2272 : : 'MODULE'
2273 : : % PushAutoOn %
2274 : : [ 'FOR' string ] Ident
2275 : : % PCStartBuildDefModule ;
2276 : : PushAutoOff %
2277 : : ';' { Import
2278 : : % PCBuildImportOuterModule %
2279 : : } [ Export ] { Definition }
2280 : : 'END'
2281 : : % PushAutoOn %
2282 : : Ident
2283 : : % PCEndBuildDefModule %
2284 : : '.'
2285 : : % PopAuto ; PopAuto ; PopAuto %
2286 : :
2287 : :
2288 : : first symbols:definitiontok
2289 : :
2290 : : cannot reachend
2291 : : */
2292 : :
2293 : : static void DefinitionModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2294 : :
2295 : : /*
2296 : : Definition := 'CONST' { ConstantDeclaration ';' } |
2297 : : 'TYPE' { Ident ( ';' | '=' Type Alignment
2298 : : ';' ) } |
2299 : : 'VAR' { VariableDeclaration ';' } |
2300 : : DefProcedureHeading ';'
2301 : :
2302 : : first symbols:proceduretok, vartok, typetok, consttok
2303 : :
2304 : : cannot reachend
2305 : : */
2306 : :
2307 : : static void Definition (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2308 : :
2309 : : /*
2310 : : AsmStatement := 'ASM' [ 'VOLATILE' ] '(' AsmOperands
2311 : : ')'
2312 : :
2313 : : first symbols:asmtok
2314 : :
2315 : : cannot reachend
2316 : : */
2317 : :
2318 : : static void AsmStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2319 : :
2320 : : /*
2321 : : NamedOperand := '[' Ident ']'
2322 : :
2323 : : first symbols:lsbratok
2324 : :
2325 : : cannot reachend
2326 : : */
2327 : :
2328 : : static void NamedOperand (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2329 : :
2330 : : /*
2331 : : AsmOperandName := [ NamedOperand ]
2332 : :
2333 : : first symbols:lsbratok
2334 : :
2335 : : reachend
2336 : : */
2337 : :
2338 : : static void AsmOperandName (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2339 : :
2340 : : /*
2341 : : AsmOperands := ConstExpression [ ':' AsmList [ ':'
2342 : : AsmList
2343 : : [
2344 : : ':' TrashList ] ] ]
2345 : :
2346 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
2347 : :
2348 : : cannot reachend
2349 : : */
2350 : :
2351 : : static void AsmOperands (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2352 : :
2353 : : /*
2354 : : AsmList := [ AsmElement ] { ',' AsmElement }
2355 : :
2356 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok, lsbratok, commatok
2357 : :
2358 : : reachend
2359 : : */
2360 : :
2361 : : static void AsmList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2362 : :
2363 : : /*
2364 : : AsmElement := AsmOperandName ConstExpression '('
2365 : : Expression ')'
2366 : :
2367 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok, lsbratok
2368 : :
2369 : : cannot reachend
2370 : : */
2371 : :
2372 : : static void AsmElement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2373 : :
2374 : : /*
2375 : : TrashList := [ ConstExpression ] { ',' ConstExpression }
2376 : :
2377 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok, commatok
2378 : :
2379 : : reachend
2380 : : */
2381 : :
2382 : : static void TrashList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2);
2383 : :
2384 : 0 : static void ErrorString (DynamicStrings_String s)
2385 : : {
2386 : 0 : M2MetaError_MetaErrorStringT0 (M2LexBuf_GetTokenNo (), s);
2387 : 0 : seenError = true;
2388 : 0 : }
2389 : :
2390 : 0 : static void ErrorArray (const char *a_, unsigned int _a_high)
2391 : : {
2392 : 0 : char a[_a_high+1];
2393 : :
2394 : : /* make a local copy of each unbounded array. */
2395 : 0 : memcpy (a, a_, _a_high+1);
2396 : :
2397 : 0 : ErrorString (DynamicStrings_InitString ((const char *) a, _a_high));
2398 : 0 : }
2399 : :
2400 : 18 : static void ErrorArrayAt (const char *a_, unsigned int _a_high, unsigned int tok)
2401 : : {
2402 : 18 : char a[_a_high+1];
2403 : :
2404 : : /* make a local copy of each unbounded array. */
2405 : 18 : memcpy (a, a_, _a_high+1);
2406 : :
2407 : 18 : M2MetaError_MetaErrorStringT0 (tok, DynamicStrings_InitString ((const char *) a, _a_high));
2408 : 18 : }
2409 : :
2410 : :
2411 : : /*
2412 : : DescribeStop - issues a message explaining what tokens were expected
2413 : : */
2414 : :
2415 : 0 : static DynamicStrings_String DescribeStop (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
2416 : : {
2417 : 0 : unsigned int n;
2418 : 0 : DynamicStrings_String str;
2419 : 0 : DynamicStrings_String message;
2420 : :
2421 : 0 : n = 0;
2422 : 0 : message = DynamicStrings_InitString ((const char *) "", 0);
2423 : 0 : if ((((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2424 : : {
2425 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kstring}", 10)));
2426 : 0 : n += 1;
2427 : : }
2428 : 0 : if ((((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2429 : : {
2430 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kreal number}", 15)));
2431 : 0 : n += 1;
2432 : : }
2433 : 0 : if ((((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2434 : : {
2435 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kidentifier}", 14)));
2436 : 0 : n += 1;
2437 : : }
2438 : 0 : if ((((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2439 : : {
2440 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kinteger number}", 18)));
2441 : 0 : n += 1;
2442 : : }
2443 : 0 : if ((((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2444 : : {
2445 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__INLINE__}", 14)));
2446 : 0 : n += 1;
2447 : : }
2448 : 0 : if ((((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2449 : : {
2450 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__BUILTIN__}", 15)));
2451 : 0 : n += 1;
2452 : : }
2453 : 0 : if ((((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2454 : : {
2455 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__ATTRIBUTE__}", 17)));
2456 : 0 : n += 1;
2457 : : }
2458 : 0 : if ((((1 << (M2Reserved_filetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2459 : : {
2460 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__FILE__}", 12)));
2461 : 0 : n += 1;
2462 : : }
2463 : 0 : if ((((1 << (M2Reserved_linetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2464 : : {
2465 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__LINE__}", 12)));
2466 : 0 : n += 1;
2467 : : }
2468 : 0 : if ((((1 << (M2Reserved_datetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2469 : : {
2470 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__DATE__}", 12)));
2471 : 0 : n += 1;
2472 : : }
2473 : 0 : if ((((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2474 : : {
2475 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K...}", 7)));
2476 : 0 : n += 1;
2477 : : }
2478 : 0 : if ((((1 << (M2Reserved_volatiletok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2479 : : {
2480 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KVOLATILE}", 12)));
2481 : 0 : n += 1;
2482 : : }
2483 : 0 : if ((((1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2484 : : {
2485 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KASM}", 7)));
2486 : 0 : n += 1;
2487 : : }
2488 : 0 : if ((((1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2489 : : {
2490 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KWITH}", 8)));
2491 : 0 : n += 1;
2492 : : }
2493 : 0 : if ((((1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2494 : : {
2495 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KWHILE}", 9)));
2496 : 0 : n += 1;
2497 : : }
2498 : 0 : if ((((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2499 : : {
2500 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KVAR}", 7)));
2501 : 0 : n += 1;
2502 : : }
2503 : 0 : if ((((1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2504 : : {
2505 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KUNTIL}", 9)));
2506 : 0 : n += 1;
2507 : : }
2508 : 0 : if ((((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2509 : : {
2510 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTYPE}", 8)));
2511 : 0 : n += 1;
2512 : : }
2513 : 0 : if ((((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2514 : : {
2515 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTO}", 6)));
2516 : 0 : n += 1;
2517 : : }
2518 : 0 : if ((((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2519 : : {
2520 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTHEN}", 8)));
2521 : 0 : n += 1;
2522 : : }
2523 : 0 : if ((((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2524 : : {
2525 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KSET}", 7)));
2526 : 0 : n += 1;
2527 : : }
2528 : 0 : if ((((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2529 : : {
2530 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRETURN}", 10)));
2531 : 0 : n += 1;
2532 : : }
2533 : 0 : if ((((1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2534 : : {
2535 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRETRY}", 9)));
2536 : 0 : n += 1;
2537 : : }
2538 : 0 : if ((((1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2539 : : {
2540 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KREPEAT}", 10)));
2541 : 0 : n += 1;
2542 : : }
2543 : 0 : if ((((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2544 : : {
2545 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KREM}", 7)));
2546 : 0 : n += 1;
2547 : : }
2548 : 0 : if ((((1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2549 : : {
2550 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRECORD}", 10)));
2551 : 0 : n += 1;
2552 : : }
2553 : 0 : if ((((1 << (M2Reserved_unqualifiedtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2554 : : {
2555 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KUNQUALIFIED}", 15)));
2556 : 0 : n += 1;
2557 : : }
2558 : 0 : if ((((1 << (M2Reserved_qualifiedtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2559 : : {
2560 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KQUALIFIED}", 13)));
2561 : 0 : n += 1;
2562 : : }
2563 : 0 : if ((((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) & (stopset1)) != 0))
2564 : : {
2565 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPROCEDURE}", 13)));
2566 : 0 : n += 1;
2567 : : }
2568 : 0 : if ((((1 << (M2Reserved_pointertok-M2Reserved_arraytok)) & (stopset1)) != 0))
2569 : : {
2570 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPOINTER}", 11)));
2571 : 0 : n += 1;
2572 : : }
2573 : 0 : if ((((1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) & (stopset1)) != 0))
2574 : : {
2575 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPACKEDSET}", 13)));
2576 : 0 : n += 1;
2577 : : }
2578 : 0 : if ((((1 << (M2Reserved_ortok-M2Reserved_arraytok)) & (stopset1)) != 0))
2579 : : {
2580 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KOR}", 6)));
2581 : 0 : n += 1;
2582 : : }
2583 : 0 : if ((((1 << (M2Reserved_oftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2584 : : {
2585 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KOF}", 6)));
2586 : 0 : n += 1;
2587 : : }
2588 : 0 : if ((((1 << (M2Reserved_nottok-M2Reserved_arraytok)) & (stopset1)) != 0))
2589 : : {
2590 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KNOT}", 7)));
2591 : 0 : n += 1;
2592 : : }
2593 : 0 : if ((((1 << (M2Reserved_moduletok-M2Reserved_arraytok)) & (stopset1)) != 0))
2594 : : {
2595 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KMODULE}", 10)));
2596 : 0 : n += 1;
2597 : : }
2598 : 0 : if ((((1 << (M2Reserved_modtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2599 : : {
2600 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KMOD}", 7)));
2601 : 0 : n += 1;
2602 : : }
2603 : 0 : if ((((1 << (M2Reserved_looptok-M2Reserved_arraytok)) & (stopset1)) != 0))
2604 : : {
2605 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KLOOP}", 8)));
2606 : 0 : n += 1;
2607 : : }
2608 : 0 : if ((((1 << (M2Reserved_intok-M2Reserved_arraytok)) & (stopset1)) != 0))
2609 : : {
2610 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIN}", 6)));
2611 : 0 : n += 1;
2612 : : }
2613 : 0 : if ((((1 << (M2Reserved_importtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2614 : : {
2615 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIMPORT}", 10)));
2616 : 0 : n += 1;
2617 : : }
2618 : 0 : if ((((1 << (M2Reserved_implementationtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2619 : : {
2620 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIMPLEMENTATION}", 18)));
2621 : 0 : n += 1;
2622 : : }
2623 : 0 : if ((((1 << (M2Reserved_iftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2624 : : {
2625 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIF}", 6)));
2626 : 0 : n += 1;
2627 : : }
2628 : 0 : if ((((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2629 : : {
2630 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFROM}", 8)));
2631 : 0 : n += 1;
2632 : : }
2633 : 0 : if ((((1 << (M2Reserved_forwardtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2634 : : {
2635 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFORWARD}", 11)));
2636 : 0 : n += 1;
2637 : : }
2638 : 0 : if ((((1 << (M2Reserved_fortok-M2Reserved_arraytok)) & (stopset1)) != 0))
2639 : : {
2640 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFOR}", 7)));
2641 : 0 : n += 1;
2642 : : }
2643 : 0 : if ((((1 << (M2Reserved_finallytok-M2Reserved_arraytok)) & (stopset1)) != 0))
2644 : : {
2645 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFINALLY}", 11)));
2646 : 0 : n += 1;
2647 : : }
2648 : 0 : if ((((1 << (M2Reserved_exporttok-M2Reserved_arraytok)) & (stopset1)) != 0))
2649 : : {
2650 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXPORT}", 10)));
2651 : 0 : n += 1;
2652 : : }
2653 : 0 : if ((((1 << (M2Reserved_exittok-M2Reserved_arraytok)) & (stopset1)) != 0))
2654 : : {
2655 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXIT}", 8)));
2656 : 0 : n += 1;
2657 : : }
2658 : 0 : if ((((1 << (M2Reserved_excepttok-M2Reserved_arraytok)) & (stopset1)) != 0))
2659 : : {
2660 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXCEPT}", 10)));
2661 : 0 : n += 1;
2662 : : }
2663 : 0 : if ((((1 << (M2Reserved_endtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2664 : : {
2665 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEND}", 7)));
2666 : 0 : n += 1;
2667 : : }
2668 : 0 : if ((((1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2669 : : {
2670 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KELSIF}", 9)));
2671 : 0 : n += 1;
2672 : : }
2673 : 0 : if ((((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) & (stopset1)) != 0))
2674 : : {
2675 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KELSE}", 8)));
2676 : 0 : n += 1;
2677 : : }
2678 : 0 : if ((((1 << (M2Reserved_dotok-M2Reserved_arraytok)) & (stopset1)) != 0))
2679 : : {
2680 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDO}", 6)));
2681 : 0 : n += 1;
2682 : : }
2683 : 0 : if ((((1 << (M2Reserved_divtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2684 : : {
2685 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDIV}", 7)));
2686 : 0 : n += 1;
2687 : : }
2688 : 0 : if ((((1 << (M2Reserved_definitiontok-M2Reserved_arraytok)) & (stopset1)) != 0))
2689 : : {
2690 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDEFINITION}", 14)));
2691 : 0 : n += 1;
2692 : : }
2693 : 0 : if ((((1 << (M2Reserved_consttok-M2Reserved_arraytok)) & (stopset1)) != 0))
2694 : : {
2695 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KCONST}", 9)));
2696 : 0 : n += 1;
2697 : : }
2698 : 0 : if ((((1 << (M2Reserved_casetok-M2Reserved_arraytok)) & (stopset1)) != 0))
2699 : : {
2700 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KCASE}", 8)));
2701 : 0 : n += 1;
2702 : : }
2703 : 0 : if ((((1 << (M2Reserved_bytok-M2Reserved_arraytok)) & (stopset1)) != 0))
2704 : : {
2705 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KBY}", 6)));
2706 : 0 : n += 1;
2707 : : }
2708 : 0 : if ((((1 << (M2Reserved_begintok-M2Reserved_arraytok)) & (stopset1)) != 0))
2709 : : {
2710 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KBEGIN}", 9)));
2711 : 0 : n += 1;
2712 : : }
2713 : 0 : if ((((1 << (M2Reserved_arraytok-M2Reserved_arraytok)) & (stopset1)) != 0))
2714 : : {
2715 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KARRAY}", 9)));
2716 : 0 : n += 1;
2717 : : }
2718 : 0 : if ((((1 << (M2Reserved_andtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2719 : : {
2720 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KAND}", 7)));
2721 : 0 : n += 1;
2722 : : }
2723 : 0 : if ((((1 << (M2Reserved_colontok-M2Reserved_eoftok)) & (stopset0)) != 0))
2724 : : {
2725 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K:}", 5)));
2726 : 0 : n += 1;
2727 : : }
2728 : 0 : if ((((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2729 : : {
2730 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K..}", 6)));
2731 : 0 : n += 1;
2732 : : }
2733 : 0 : if ((((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2734 : : {
2735 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K*>}", 6)));
2736 : 0 : n += 1;
2737 : : }
2738 : 0 : if ((((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2739 : : {
2740 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<*}", 6)));
2741 : 0 : n += 1;
2742 : : }
2743 : 0 : if ((((1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
2744 : : {
2745 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K>=}", 6)));
2746 : 0 : n += 1;
2747 : : }
2748 : 0 : if ((((1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
2749 : : {
2750 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<=}", 6)));
2751 : 0 : n += 1;
2752 : : }
2753 : 0 : if ((((1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) & (stopset0)) != 0))
2754 : : {
2755 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<>}", 6)));
2756 : 0 : n += 1;
2757 : : }
2758 : 0 : if ((((1 << (M2Reserved_hashtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2759 : : {
2760 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K#}", 5)));
2761 : 0 : n += 1;
2762 : : }
2763 : 0 : if ((((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
2764 : : {
2765 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K=}", 5)));
2766 : 0 : n += 1;
2767 : : }
2768 : 0 : if ((((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2769 : : {
2770 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K^}", 5)));
2771 : 0 : n += 1;
2772 : : }
2773 : 0 : if ((((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) & (stopset0)) != 0))
2774 : : {
2775 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K;}", 5)));
2776 : 0 : n += 1;
2777 : : }
2778 : 0 : if ((((1 << (M2Reserved_commatok-M2Reserved_eoftok)) & (stopset0)) != 0))
2779 : : {
2780 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K,}", 5)));
2781 : 0 : n += 1;
2782 : : }
2783 : 0 : if ((((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2784 : : {
2785 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K.}", 5)));
2786 : 0 : n += 1;
2787 : : }
2788 : 0 : if ((((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) & (stopset0)) != 0))
2789 : : {
2790 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K&}", 5)));
2791 : 0 : n += 1;
2792 : : }
2793 : 0 : if ((((1 << (M2Reserved_dividetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2794 : : {
2795 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K/}", 5)));
2796 : 0 : n += 1;
2797 : : }
2798 : 0 : if ((((1 << (M2Reserved_timestok-M2Reserved_eoftok)) & (stopset0)) != 0))
2799 : : {
2800 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K*}", 5)));
2801 : 0 : n += 1;
2802 : : }
2803 : 0 : if ((((1 << (M2Reserved_minustok-M2Reserved_eoftok)) & (stopset0)) != 0))
2804 : : {
2805 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K-}", 5)));
2806 : 0 : n += 1;
2807 : : }
2808 : 0 : if ((((1 << (M2Reserved_plustok-M2Reserved_eoftok)) & (stopset0)) != 0))
2809 : : {
2810 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K+}", 5)));
2811 : 0 : n += 1;
2812 : : }
2813 : 0 : if ((((1 << (M2Reserved_doublequotestok-M2Reserved_eoftok)) & (stopset0)) != 0))
2814 : : {
2815 : 0 : message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '`'), '"'), '\''), ',');
2816 : 0 : n += 1;
2817 : : }
2818 : 0 : if ((((1 << (M2Reserved_singlequotetok-M2Reserved_eoftok)) & (stopset0)) != 0))
2819 : : {
2820 : 0 : message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '"'), '\''), '"'), ',');
2821 : 0 : n += 1;
2822 : : }
2823 : 0 : if ((((1 << (M2Reserved_greatertok-M2Reserved_eoftok)) & (stopset0)) != 0))
2824 : : {
2825 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K>}", 5)));
2826 : 0 : n += 1;
2827 : : }
2828 : 0 : if ((((1 << (M2Reserved_lesstok-M2Reserved_eoftok)) & (stopset0)) != 0))
2829 : : {
2830 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<}", 5)));
2831 : 0 : n += 1;
2832 : : }
2833 : 0 : if ((((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) & (stopset0)) != 0))
2834 : : {
2835 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K)}", 5)));
2836 : 0 : n += 1;
2837 : : }
2838 : 0 : if ((((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) & (stopset0)) != 0))
2839 : : {
2840 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K(}", 5)));
2841 : 0 : n += 1;
2842 : : }
2843 : 0 : if ((((1 << (M2Reserved_rcbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2844 : : {
2845 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K%}}", 6)));
2846 : 0 : n += 1;
2847 : : }
2848 : 0 : if ((((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2849 : : {
2850 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K%{}", 6)));
2851 : 0 : n += 1;
2852 : : }
2853 : 0 : if ((((1 << (M2Reserved_rsbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2854 : : {
2855 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K]}", 5)));
2856 : 0 : n += 1;
2857 : : }
2858 : 0 : if ((((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
2859 : : {
2860 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K[}", 5)));
2861 : 0 : n += 1;
2862 : : }
2863 : 0 : if ((((1 << (M2Reserved_bartok-M2Reserved_eoftok)) & (stopset0)) != 0))
2864 : : {
2865 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K|}", 5)));
2866 : 0 : n += 1;
2867 : : }
2868 : 0 : if ((((1 << (M2Reserved_becomestok-M2Reserved_eoftok)) & (stopset0)) != 0))
2869 : : {
2870 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K:=}", 6)));
2871 : 0 : n += 1;
2872 : : }
2873 : 0 : if ((((1 << (M2Reserved_eoftok-M2Reserved_eoftok)) & (stopset0)) != 0))
2874 : : {} /* empty. */
2875 : : /* eoftok has no token name (needed to generate error messages) */
2876 : 0 : if (n == 0)
2877 : : {
2878 : 0 : str = DynamicStrings_InitString ((const char *) " syntax error", 13);
2879 : 0 : message = DynamicStrings_KillString (message);
2880 : : }
2881 : 0 : else if (n == 1)
2882 : : {
2883 : : /* avoid dangling else. */
2884 : 0 : str = DynamicStrings_ConCat (message, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) " missing ", 9)));
2885 : : }
2886 : : else
2887 : : {
2888 : : /* avoid dangling else. */
2889 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) " expecting one of", 17), message);
2890 : 0 : message = DynamicStrings_KillString (message);
2891 : : }
2892 : 0 : return str;
2893 : : /* static analysis guarentees a RETURN statement will be used before here. */
2894 : : __builtin_unreachable ();
2895 : : }
2896 : :
2897 : :
2898 : : /*
2899 : : DescribeError - issues a message explaining what tokens were expected
2900 : : */
2901 : :
2902 : 0 : static void DescribeError (void)
2903 : : {
2904 : 0 : DynamicStrings_String str;
2905 : :
2906 : 0 : str = DynamicStrings_InitString ((const char *) "", 0);
2907 : 0 : switch (M2LexBuf_currenttoken)
2908 : : {
2909 : 0 : case M2Reserved_stringtok:
2910 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kstring}", 30), DynamicStrings_Mark (str));
2911 : 0 : break;
2912 : :
2913 : 0 : case M2Reserved_realtok:
2914 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kreal number}", 35), DynamicStrings_Mark (str));
2915 : 0 : break;
2916 : :
2917 : 0 : case M2Reserved_identtok:
2918 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kidentifier}", 34), DynamicStrings_Mark (str));
2919 : 0 : break;
2920 : :
2921 : 0 : case M2Reserved_integertok:
2922 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kinteger number}", 38), DynamicStrings_Mark (str));
2923 : 0 : break;
2924 : :
2925 : 0 : case M2Reserved_inlinetok:
2926 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__INLINE__}", 34), DynamicStrings_Mark (str));
2927 : 0 : break;
2928 : :
2929 : 0 : case M2Reserved_builtintok:
2930 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__BUILTIN__}", 35), DynamicStrings_Mark (str));
2931 : 0 : break;
2932 : :
2933 : 0 : case M2Reserved_attributetok:
2934 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__ATTRIBUTE__}", 37), DynamicStrings_Mark (str));
2935 : 0 : break;
2936 : :
2937 : 0 : case M2Reserved_filetok:
2938 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__FILE__}", 32), DynamicStrings_Mark (str));
2939 : 0 : break;
2940 : :
2941 : 0 : case M2Reserved_linetok:
2942 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__LINE__}", 32), DynamicStrings_Mark (str));
2943 : 0 : break;
2944 : :
2945 : 0 : case M2Reserved_datetok:
2946 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__DATE__}", 32), DynamicStrings_Mark (str));
2947 : 0 : break;
2948 : :
2949 : 0 : case M2Reserved_periodperiodperiodtok:
2950 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K...}", 27), DynamicStrings_Mark (str));
2951 : 0 : break;
2952 : :
2953 : 0 : case M2Reserved_volatiletok:
2954 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KVOLATILE}", 32), DynamicStrings_Mark (str));
2955 : 0 : break;
2956 : :
2957 : 0 : case M2Reserved_asmtok:
2958 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KASM}", 27), DynamicStrings_Mark (str));
2959 : 0 : break;
2960 : :
2961 : 0 : case M2Reserved_withtok:
2962 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KWITH}", 28), DynamicStrings_Mark (str));
2963 : 0 : break;
2964 : :
2965 : 0 : case M2Reserved_whiletok:
2966 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KWHILE}", 29), DynamicStrings_Mark (str));
2967 : 0 : break;
2968 : :
2969 : 0 : case M2Reserved_vartok:
2970 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KVAR}", 27), DynamicStrings_Mark (str));
2971 : 0 : break;
2972 : :
2973 : 0 : case M2Reserved_untiltok:
2974 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KUNTIL}", 29), DynamicStrings_Mark (str));
2975 : 0 : break;
2976 : :
2977 : 0 : case M2Reserved_typetok:
2978 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTYPE}", 28), DynamicStrings_Mark (str));
2979 : 0 : break;
2980 : :
2981 : 0 : case M2Reserved_totok:
2982 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTO}", 26), DynamicStrings_Mark (str));
2983 : 0 : break;
2984 : :
2985 : 0 : case M2Reserved_thentok:
2986 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTHEN}", 28), DynamicStrings_Mark (str));
2987 : 0 : break;
2988 : :
2989 : 0 : case M2Reserved_settok:
2990 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KSET}", 27), DynamicStrings_Mark (str));
2991 : 0 : break;
2992 : :
2993 : 0 : case M2Reserved_returntok:
2994 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRETURN}", 30), DynamicStrings_Mark (str));
2995 : 0 : break;
2996 : :
2997 : 0 : case M2Reserved_retrytok:
2998 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRETRY}", 29), DynamicStrings_Mark (str));
2999 : 0 : break;
3000 : :
3001 : 0 : case M2Reserved_repeattok:
3002 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KREPEAT}", 30), DynamicStrings_Mark (str));
3003 : 0 : break;
3004 : :
3005 : 0 : case M2Reserved_remtok:
3006 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KREM}", 27), DynamicStrings_Mark (str));
3007 : 0 : break;
3008 : :
3009 : 0 : case M2Reserved_recordtok:
3010 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRECORD}", 30), DynamicStrings_Mark (str));
3011 : 0 : break;
3012 : :
3013 : 0 : case M2Reserved_unqualifiedtok:
3014 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KUNQUALIFIED}", 35), DynamicStrings_Mark (str));
3015 : 0 : break;
3016 : :
3017 : 0 : case M2Reserved_qualifiedtok:
3018 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KQUALIFIED}", 33), DynamicStrings_Mark (str));
3019 : 0 : break;
3020 : :
3021 : 0 : case M2Reserved_proceduretok:
3022 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPROCEDURE}", 33), DynamicStrings_Mark (str));
3023 : 0 : break;
3024 : :
3025 : 0 : case M2Reserved_pointertok:
3026 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPOINTER}", 31), DynamicStrings_Mark (str));
3027 : 0 : break;
3028 : :
3029 : 0 : case M2Reserved_packedsettok:
3030 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPACKEDSET}", 33), DynamicStrings_Mark (str));
3031 : 0 : break;
3032 : :
3033 : 0 : case M2Reserved_ortok:
3034 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KOR}", 26), DynamicStrings_Mark (str));
3035 : 0 : break;
3036 : :
3037 : 0 : case M2Reserved_oftok:
3038 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KOF}", 26), DynamicStrings_Mark (str));
3039 : 0 : break;
3040 : :
3041 : 0 : case M2Reserved_nottok:
3042 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KNOT}", 27), DynamicStrings_Mark (str));
3043 : 0 : break;
3044 : :
3045 : 0 : case M2Reserved_moduletok:
3046 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KMODULE}", 30), DynamicStrings_Mark (str));
3047 : 0 : break;
3048 : :
3049 : 0 : case M2Reserved_modtok:
3050 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KMOD}", 27), DynamicStrings_Mark (str));
3051 : 0 : break;
3052 : :
3053 : 0 : case M2Reserved_looptok:
3054 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KLOOP}", 28), DynamicStrings_Mark (str));
3055 : 0 : break;
3056 : :
3057 : 0 : case M2Reserved_intok:
3058 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIN}", 26), DynamicStrings_Mark (str));
3059 : 0 : break;
3060 : :
3061 : 0 : case M2Reserved_importtok:
3062 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIMPORT}", 30), DynamicStrings_Mark (str));
3063 : 0 : break;
3064 : :
3065 : 0 : case M2Reserved_implementationtok:
3066 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIMPLEMENTATION}", 38), DynamicStrings_Mark (str));
3067 : 0 : break;
3068 : :
3069 : 0 : case M2Reserved_iftok:
3070 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIF}", 26), DynamicStrings_Mark (str));
3071 : 0 : break;
3072 : :
3073 : 0 : case M2Reserved_fromtok:
3074 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFROM}", 28), DynamicStrings_Mark (str));
3075 : 0 : break;
3076 : :
3077 : 0 : case M2Reserved_forwardtok:
3078 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFORWARD}", 31), DynamicStrings_Mark (str));
3079 : 0 : break;
3080 : :
3081 : 0 : case M2Reserved_fortok:
3082 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFOR}", 27), DynamicStrings_Mark (str));
3083 : 0 : break;
3084 : :
3085 : 0 : case M2Reserved_finallytok:
3086 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFINALLY}", 31), DynamicStrings_Mark (str));
3087 : 0 : break;
3088 : :
3089 : 0 : case M2Reserved_exporttok:
3090 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXPORT}", 30), DynamicStrings_Mark (str));
3091 : 0 : break;
3092 : :
3093 : 0 : case M2Reserved_exittok:
3094 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXIT}", 28), DynamicStrings_Mark (str));
3095 : 0 : break;
3096 : :
3097 : 0 : case M2Reserved_excepttok:
3098 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXCEPT}", 30), DynamicStrings_Mark (str));
3099 : 0 : break;
3100 : :
3101 : 0 : case M2Reserved_endtok:
3102 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEND}", 27), DynamicStrings_Mark (str));
3103 : 0 : break;
3104 : :
3105 : 0 : case M2Reserved_elsiftok:
3106 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KELSIF}", 29), DynamicStrings_Mark (str));
3107 : 0 : break;
3108 : :
3109 : 0 : case M2Reserved_elsetok:
3110 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KELSE}", 28), DynamicStrings_Mark (str));
3111 : 0 : break;
3112 : :
3113 : 0 : case M2Reserved_dotok:
3114 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDO}", 26), DynamicStrings_Mark (str));
3115 : 0 : break;
3116 : :
3117 : 0 : case M2Reserved_divtok:
3118 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDIV}", 27), DynamicStrings_Mark (str));
3119 : 0 : break;
3120 : :
3121 : 0 : case M2Reserved_definitiontok:
3122 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDEFINITION}", 34), DynamicStrings_Mark (str));
3123 : 0 : break;
3124 : :
3125 : 0 : case M2Reserved_consttok:
3126 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KCONST}", 29), DynamicStrings_Mark (str));
3127 : 0 : break;
3128 : :
3129 : 0 : case M2Reserved_casetok:
3130 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KCASE}", 28), DynamicStrings_Mark (str));
3131 : 0 : break;
3132 : :
3133 : 0 : case M2Reserved_bytok:
3134 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KBY}", 26), DynamicStrings_Mark (str));
3135 : 0 : break;
3136 : :
3137 : 0 : case M2Reserved_begintok:
3138 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KBEGIN}", 29), DynamicStrings_Mark (str));
3139 : 0 : break;
3140 : :
3141 : 0 : case M2Reserved_arraytok:
3142 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KARRAY}", 29), DynamicStrings_Mark (str));
3143 : 0 : break;
3144 : :
3145 : 0 : case M2Reserved_andtok:
3146 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KAND}", 27), DynamicStrings_Mark (str));
3147 : 0 : break;
3148 : :
3149 : 0 : case M2Reserved_colontok:
3150 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K:}", 25), DynamicStrings_Mark (str));
3151 : 0 : break;
3152 : :
3153 : 0 : case M2Reserved_periodperiodtok:
3154 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K..}", 26), DynamicStrings_Mark (str));
3155 : 0 : break;
3156 : :
3157 : 0 : case M2Reserved_rdirectivetok:
3158 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K*>}", 26), DynamicStrings_Mark (str));
3159 : 0 : break;
3160 : :
3161 : 0 : case M2Reserved_ldirectivetok:
3162 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<*}", 26), DynamicStrings_Mark (str));
3163 : 0 : break;
3164 : :
3165 : 0 : case M2Reserved_greaterequaltok:
3166 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K>=}", 26), DynamicStrings_Mark (str));
3167 : 0 : break;
3168 : :
3169 : 0 : case M2Reserved_lessequaltok:
3170 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<=}", 26), DynamicStrings_Mark (str));
3171 : 0 : break;
3172 : :
3173 : 0 : case M2Reserved_lessgreatertok:
3174 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<>}", 26), DynamicStrings_Mark (str));
3175 : 0 : break;
3176 : :
3177 : 0 : case M2Reserved_hashtok:
3178 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K#}", 25), DynamicStrings_Mark (str));
3179 : 0 : break;
3180 : :
3181 : 0 : case M2Reserved_equaltok:
3182 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K=}", 25), DynamicStrings_Mark (str));
3183 : 0 : break;
3184 : :
3185 : 0 : case M2Reserved_uparrowtok:
3186 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K^}", 25), DynamicStrings_Mark (str));
3187 : 0 : break;
3188 : :
3189 : 0 : case M2Reserved_semicolontok:
3190 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K;}", 25), DynamicStrings_Mark (str));
3191 : 0 : break;
3192 : :
3193 : 0 : case M2Reserved_commatok:
3194 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K,}", 25), DynamicStrings_Mark (str));
3195 : 0 : break;
3196 : :
3197 : 0 : case M2Reserved_periodtok:
3198 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K.}", 25), DynamicStrings_Mark (str));
3199 : 0 : break;
3200 : :
3201 : 0 : case M2Reserved_ambersandtok:
3202 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K&}", 25), DynamicStrings_Mark (str));
3203 : 0 : break;
3204 : :
3205 : 0 : case M2Reserved_dividetok:
3206 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K/}", 25), DynamicStrings_Mark (str));
3207 : 0 : break;
3208 : :
3209 : 0 : case M2Reserved_timestok:
3210 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K*}", 25), DynamicStrings_Mark (str));
3211 : 0 : break;
3212 : :
3213 : 0 : case M2Reserved_minustok:
3214 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K-}", 25), DynamicStrings_Mark (str));
3215 : 0 : break;
3216 : :
3217 : 0 : case M2Reserved_plustok:
3218 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K+}", 25), DynamicStrings_Mark (str));
3219 : 0 : break;
3220 : :
3221 : 0 : case M2Reserved_doublequotestok:
3222 : 0 : str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found '", 21), '"'), '\''), DynamicStrings_Mark (str));
3223 : 0 : break;
3224 : :
3225 : 0 : case M2Reserved_singlequotetok:
3226 : 0 : str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found \"", 21), '\''), '"'), DynamicStrings_Mark (str));
3227 : 0 : break;
3228 : :
3229 : 0 : case M2Reserved_greatertok:
3230 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K>}", 25), DynamicStrings_Mark (str));
3231 : 0 : break;
3232 : :
3233 : 0 : case M2Reserved_lesstok:
3234 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<}", 25), DynamicStrings_Mark (str));
3235 : 0 : break;
3236 : :
3237 : 0 : case M2Reserved_rparatok:
3238 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K)}", 25), DynamicStrings_Mark (str));
3239 : 0 : break;
3240 : :
3241 : 0 : case M2Reserved_lparatok:
3242 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K(}", 25), DynamicStrings_Mark (str));
3243 : 0 : break;
3244 : :
3245 : 0 : case M2Reserved_rcbratok:
3246 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K%}}", 26), DynamicStrings_Mark (str));
3247 : 0 : break;
3248 : :
3249 : 0 : case M2Reserved_lcbratok:
3250 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K%{}", 26), DynamicStrings_Mark (str));
3251 : 0 : break;
3252 : :
3253 : 0 : case M2Reserved_rsbratok:
3254 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K]}", 25), DynamicStrings_Mark (str));
3255 : 0 : break;
3256 : :
3257 : 0 : case M2Reserved_lsbratok:
3258 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K[}", 25), DynamicStrings_Mark (str));
3259 : 0 : break;
3260 : :
3261 : 0 : case M2Reserved_bartok:
3262 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K|}", 25), DynamicStrings_Mark (str));
3263 : 0 : break;
3264 : :
3265 : 0 : case M2Reserved_becomestok:
3266 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K:=}", 26), DynamicStrings_Mark (str));
3267 : 0 : break;
3268 : :
3269 : 0 : case M2Reserved_eoftok:
3270 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K}", 24), DynamicStrings_Mark (str));
3271 : 0 : break;
3272 : :
3273 : :
3274 : : default:
3275 : : break;
3276 : : }
3277 : 0 : ErrorString (str);
3278 : 0 : }
3279 : :
3280 : :
3281 : : /*
3282 : : SyntaxError - after a syntax error we skip all tokens up until we reach
3283 : : a stop symbol.
3284 : : */
3285 : :
3286 : 0 : static void SyntaxError (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3287 : : {
3288 : 0 : DescribeError ();
3289 : 0 : if (Debugging)
3290 : : {
3291 : : M2Printf_printf0 ((const char *) "\\nskipping token *** ", 21);
3292 : : }
3293 : : /* --fixme-- this assumes a 32 bit word size. */
3294 : 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)))))
3295 : : {
3296 : 0 : M2LexBuf_GetToken ();
3297 : : }
3298 : 0 : if (Debugging)
3299 : : {
3300 : : M2Printf_printf0 ((const char *) " ***\\n", 6);
3301 : : }
3302 : 0 : }
3303 : :
3304 : :
3305 : : /*
3306 : : SyntaxCheck -
3307 : : */
3308 : :
3309 : 106120541 : static void SyntaxCheck (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3310 : : {
3311 : : /* --fixme-- this assumes a 32 bit word size. */
3312 : 106120541 : 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)))))
3313 : : {
3314 : 0 : SyntaxError (stopset0, stopset1, stopset2);
3315 : : }
3316 : 106120541 : }
3317 : :
3318 : :
3319 : : /*
3320 : : WarnMissingToken - generates a warning message about a missing token, t.
3321 : : */
3322 : :
3323 : 0 : static void WarnMissingToken (M2Reserved_toktype t)
3324 : : {
3325 : 0 : PCBuild_SetOfStop0 s0;
3326 : 0 : PCBuild_SetOfStop1 s1;
3327 : 0 : PCBuild_SetOfStop2 s2;
3328 : 0 : DynamicStrings_String str;
3329 : :
3330 : 0 : s0 = (PCBuild_SetOfStop0) 0;
3331 : 0 : s1 = (PCBuild_SetOfStop1) 0;
3332 : 0 : s2 = (PCBuild_SetOfStop2) 0;
3333 : 0 : if ( ((unsigned int) (t)) < 32)
3334 : : {
3335 : 0 : s0 = (PCBuild_SetOfStop0) ((1 << (t-M2Reserved_eoftok)));
3336 : : }
3337 : 0 : else if ( ((unsigned int) (t)) < 64)
3338 : : {
3339 : : /* avoid dangling else. */
3340 : 0 : s1 = (PCBuild_SetOfStop1) ((1 << (t-M2Reserved_arraytok)));
3341 : : }
3342 : : else
3343 : : {
3344 : : /* avoid dangling else. */
3345 : 0 : s2 = (PCBuild_SetOfStop2) ((1 << (t-M2Reserved_unqualifiedtok)));
3346 : : }
3347 : 0 : str = DescribeStop (s0, s1, s2);
3348 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error,", 13), DynamicStrings_Mark (str));
3349 : 0 : M2MetaError_MetaErrorStringT0 (M2LexBuf_GetTokenNo (), str);
3350 : 0 : }
3351 : :
3352 : :
3353 : : /*
3354 : : MissingToken - generates a warning message about a missing token, t.
3355 : : */
3356 : :
3357 : 0 : static void MissingToken (M2Reserved_toktype t)
3358 : : {
3359 : 0 : WarnMissingToken (t);
3360 : 0 : if ((((t != M2Reserved_identtok) && (t != M2Reserved_integertok)) && (t != M2Reserved_realtok)) && (t != M2Reserved_stringtok))
3361 : : {
3362 : 0 : if (Debugging)
3363 : : {
3364 : : M2Printf_printf0 ((const char *) "inserting token\\n", 17);
3365 : : }
3366 : 0 : M2LexBuf_InsertToken (t);
3367 : : }
3368 : 0 : }
3369 : :
3370 : :
3371 : : /*
3372 : : CheckAndInsert -
3373 : : */
3374 : :
3375 : 0 : static bool CheckAndInsert (M2Reserved_toktype t, PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3376 : : {
3377 : 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))))
3378 : : {
3379 : 0 : WarnMissingToken (t);
3380 : 0 : M2LexBuf_InsertTokenAndRewind (t);
3381 : 0 : return true;
3382 : : }
3383 : : else
3384 : : {
3385 : : return false;
3386 : : }
3387 : : /* static analysis guarentees a RETURN statement will be used before here. */
3388 : : __builtin_unreachable ();
3389 : : }
3390 : :
3391 : :
3392 : : /*
3393 : : InStopSet
3394 : : */
3395 : :
3396 : 0 : static bool InStopSet (M2Reserved_toktype t, PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3397 : : {
3398 : 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))))
3399 : : {
3400 : : return true;
3401 : : }
3402 : : else
3403 : : {
3404 : 0 : return false;
3405 : : }
3406 : : /* static analysis guarentees a RETURN statement will be used before here. */
3407 : : __builtin_unreachable ();
3408 : : }
3409 : :
3410 : :
3411 : : /*
3412 : : PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
3413 : : If it is not then it will insert a token providing the token
3414 : : is one of ; ] ) } . OF END ,
3415 : :
3416 : : if the stopset contains <identtok> then we do not insert a token
3417 : : */
3418 : :
3419 : 0 : static void PeepToken (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3420 : : {
3421 : : /* and again (see above re: ORD)
3422 : : */
3423 : 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))))
3424 : : {
3425 : : /* SyntaxCheck would fail since currentoken is not part of the stopset
3426 : : we check to see whether any of currenttoken might be a commonly omitted token */
3427 : 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)))
3428 : : {} /* empty. */
3429 : : }
3430 : 0 : }
3431 : :
3432 : :
3433 : : /*
3434 : : Expect -
3435 : : */
3436 : :
3437 : 106120541 : static void Expect (M2Reserved_toktype t, PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3438 : : {
3439 : 106120541 : if (M2LexBuf_currenttoken == t)
3440 : : {
3441 : : /* avoid dangling else. */
3442 : 106120541 : M2LexBuf_GetToken ();
3443 : 106120541 : if (Pass1)
3444 : : {
3445 : : PeepToken (stopset0, stopset1, stopset2);
3446 : : }
3447 : : }
3448 : : else
3449 : : {
3450 : 0 : MissingToken (t);
3451 : : }
3452 : 106120541 : SyntaxCheck (stopset0, stopset1, stopset2);
3453 : 106120541 : }
3454 : :
3455 : :
3456 : : /*
3457 : : Ident - error checking varient of Ident
3458 : : */
3459 : :
3460 : 39655033 : static void Ident (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3461 : : {
3462 : 39655033 : if (M2Quads_IsAutoPushOn ())
3463 : : {
3464 : 17102701 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_identtok), M2LexBuf_GetTokenNo ());
3465 : : }
3466 : 39655033 : Expect (M2Reserved_identtok, stopset0, stopset1, stopset2);
3467 : 39655033 : }
3468 : :
3469 : :
3470 : : /*
3471 : : string -
3472 : : */
3473 : :
3474 : 896942 : static void string (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3475 : : {
3476 : 896942 : if (M2Quads_IsAutoPushOn ())
3477 : : {
3478 : 19870 : M2Quads_PushTF (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_stringtok));
3479 : 19870 : P2SymBuild_BuildString ();
3480 : : }
3481 : 896942 : Expect (M2Reserved_stringtok, stopset0, stopset1, stopset2);
3482 : 896942 : }
3483 : :
3484 : :
3485 : : /*
3486 : : Integer -
3487 : : */
3488 : :
3489 : 1402738 : static void Integer (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3490 : : {
3491 : 1402738 : if (M2Quads_IsAutoPushOn ())
3492 : : {
3493 : 305996 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_integertok), M2LexBuf_GetTokenNo ());
3494 : 305996 : P2SymBuild_BuildNumber ();
3495 : : }
3496 : 1402738 : Expect (M2Reserved_integertok, stopset0, stopset1, stopset2);
3497 : 1402738 : }
3498 : :
3499 : :
3500 : : /*
3501 : : Real -
3502 : : */
3503 : :
3504 : 9154 : static void Real (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3505 : : {
3506 : 9154 : if (M2Quads_IsAutoPushOn ())
3507 : : {
3508 : 2766 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_realtok), M2LexBuf_GetTokenNo ());
3509 : 2766 : P2SymBuild_BuildNumber ();
3510 : : }
3511 : 9154 : Expect (M2Reserved_realtok, stopset0, stopset1, stopset2);
3512 : 9154 : }
3513 : :
3514 : :
3515 : : /*
3516 : : FileUnit :=
3517 : : % PushAutoOff %
3518 : : ( DefinitionModule |
3519 : : ImplementationOrProgramModule )
3520 : : % PopAuto %
3521 : :
3522 : :
3523 : : first symbols:implementationtok, moduletok, definitiontok
3524 : :
3525 : : cannot reachend
3526 : : */
3527 : :
3528 : 177807 : static void FileUnit (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3529 : : {
3530 : 177807 : M2Quads_PushAutoOff ();
3531 : 177807 : if (M2LexBuf_currenttoken == M2Reserved_definitiontok)
3532 : : {
3533 : 114616 : DefinitionModule (stopset0, stopset1, stopset2);
3534 : : }
3535 : 63191 : else if (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_implementationtok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0)))
3536 : : {
3537 : : /* avoid dangling else. */
3538 : 63191 : ImplementationOrProgramModule (stopset0, stopset1, stopset2);
3539 : : }
3540 : : else
3541 : : {
3542 : : /* avoid dangling else. */
3543 : 0 : ErrorArray ((const char *) "expecting one of: {%KIMPLEMENTATION} {%KMODULE} {%KDEFINITION}", 62);
3544 : : }
3545 : 177783 : M2Quads_PopAuto ();
3546 : 177783 : }
3547 : :
3548 : :
3549 : : /*
3550 : : ProgramModule := 'MODULE'
3551 : : % M2Error.DefaultProgramModule %
3552 : :
3553 : : % PushAutoOn %
3554 : : Ident
3555 : : % PCStartBuildProgModule %
3556 : :
3557 : : % PushAutoOff %
3558 : : [ Priority ] ';' { Import
3559 : : % PCBuildImportOuterModule %
3560 : : } Block
3561 : : % PushAutoOn %
3562 : : Ident
3563 : : % PCEndBuildProgModule %
3564 : : '.'
3565 : : % PopAuto ; PopAuto %
3566 : :
3567 : :
3568 : : first symbols:moduletok
3569 : :
3570 : : cannot reachend
3571 : : */
3572 : :
3573 : 11062 : static void ProgramModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3574 : : {
3575 : 11062 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3576 : 11062 : M2Error_DefaultProgramModule ();
3577 : 11062 : M2Quads_PushAutoOn ();
3578 : 11062 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
3579 : 11062 : PCSymBuild_PCStartBuildProgModule ();
3580 : 11062 : M2Quads_PushAutoOff ();
3581 : 11062 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3582 : : {
3583 : 12 : Priority (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
3584 : : }
3585 : 11062 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
3586 : 35568 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
3587 : : {
3588 : 13444 : Import (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
3589 : 13444 : PCSymBuild_PCBuildImportOuterModule ();
3590 : : }
3591 : : /* while */
3592 : 11062 : Block (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3593 : 11050 : M2Quads_PushAutoOn ();
3594 : 11050 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3595 : 11050 : PCSymBuild_PCEndBuildProgModule ();
3596 : 11050 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
3597 : 11050 : M2Quads_PopAuto ();
3598 : 11050 : M2Quads_PopAuto ();
3599 : 11050 : }
3600 : :
3601 : :
3602 : : /*
3603 : : ImplementationModule := 'IMPLEMENTATION'
3604 : : % M2Error.DefaultImplementationModule %
3605 : : 'MODULE'
3606 : : % PushAutoOn %
3607 : : Ident
3608 : : % PCStartBuildImpModule %
3609 : :
3610 : : % PushAutoOff %
3611 : : [ Priority ] ';' { Import
3612 : :
3613 : : % PCBuildImportOuterModule %
3614 : : } Block
3615 : :
3616 : : % PushAutoOn %
3617 : : Ident
3618 : : % PCEndBuildImpModule %
3619 : : '.'
3620 : : % PopAuto ; PopAuto ; PopAuto %
3621 : :
3622 : :
3623 : : first symbols:implementationtok
3624 : :
3625 : : cannot reachend
3626 : : */
3627 : :
3628 : 52129 : static void ImplementationModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3629 : : {
3630 : 52129 : Expect (M2Reserved_implementationtok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2);
3631 : 52129 : M2Error_DefaultImplementationModule ();
3632 : 52129 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3633 : 52129 : M2Quads_PushAutoOn ();
3634 : 52129 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
3635 : 52129 : PCSymBuild_PCStartBuildImpModule ();
3636 : 52129 : M2Quads_PushAutoOff ();
3637 : 52129 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3638 : : {
3639 : 26 : Priority (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
3640 : : }
3641 : 52129 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
3642 : 300056 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
3643 : : {
3644 : 195798 : Import (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
3645 : 195798 : PCSymBuild_PCBuildImportOuterModule ();
3646 : : }
3647 : : /* while */
3648 : 52129 : Block (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3649 : 52117 : M2Quads_PushAutoOn ();
3650 : 52117 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3651 : 52117 : PCSymBuild_PCEndBuildImpModule ();
3652 : 52117 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
3653 : 52117 : M2Quads_PopAuto ();
3654 : 52117 : M2Quads_PopAuto ();
3655 : 52117 : M2Quads_PopAuto ();
3656 : 52117 : }
3657 : :
3658 : :
3659 : : /*
3660 : : ImplementationOrProgramModule :=
3661 : : % PushAutoOff %
3662 : : ( ImplementationModule |
3663 : : ProgramModule )
3664 : :
3665 : : % PopAuto %
3666 : :
3667 : :
3668 : : first symbols:moduletok, implementationtok
3669 : :
3670 : : cannot reachend
3671 : : */
3672 : :
3673 : 63191 : static void ImplementationOrProgramModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3674 : : {
3675 : 63191 : M2Quads_PushAutoOff ();
3676 : 63191 : if (M2LexBuf_currenttoken == M2Reserved_implementationtok)
3677 : : {
3678 : 52129 : ImplementationModule (stopset0, stopset1, stopset2);
3679 : : }
3680 : 11062 : else if (M2LexBuf_currenttoken == M2Reserved_moduletok)
3681 : : {
3682 : : /* avoid dangling else. */
3683 : 11062 : ProgramModule (stopset0, stopset1, stopset2);
3684 : : }
3685 : : else
3686 : : {
3687 : : /* avoid dangling else. */
3688 : 0 : ErrorArray ((const char *) "expecting one of: {%KMODULE} {%KIMPLEMENTATION}", 47);
3689 : : }
3690 : 63167 : M2Quads_PopAuto ();
3691 : 63167 : }
3692 : :
3693 : :
3694 : : /*
3695 : : Number := Integer | Real
3696 : :
3697 : : first symbols:realtok, integertok
3698 : :
3699 : : cannot reachend
3700 : : */
3701 : :
3702 : 1103130 : static void Number (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3703 : : {
3704 : 1103130 : if (M2LexBuf_currenttoken == M2Reserved_integertok)
3705 : : {
3706 : 1096742 : Integer (stopset0, stopset1, stopset2);
3707 : : }
3708 : 6388 : else if (M2LexBuf_currenttoken == M2Reserved_realtok)
3709 : : {
3710 : : /* avoid dangling else. */
3711 : 6388 : Real (stopset0, stopset1, stopset2);
3712 : : }
3713 : : else
3714 : : {
3715 : : /* avoid dangling else. */
3716 : 0 : ErrorArray ((const char *) "expecting one of: {%Kreal number} {%Kinteger number}", 52);
3717 : : }
3718 : 1103130 : }
3719 : :
3720 : :
3721 : : /*
3722 : : Qualident :=
3723 : : % VAR name : Name ;
3724 : : init, ip1,
3725 : : tokstart, tok : CARDINAL ; %
3726 : : Ident
3727 : : % IF IsAutoPushOn()
3728 : : THEN
3729 : : PopTtok(name, tokstart) ;
3730 : : tok := tokstart ;
3731 : : init := RequestSym (tok, name) ;
3732 : : WHILE IsDefImp (init) OR IsModule (init) DO
3733 : : Expect (periodtok, stopset0, stopset1, stopset2 + SetOfStop2{identtok}) ;
3734 : : StartScope (init) ;
3735 : : Ident (stopset0, stopset1, stopset2) ;
3736 : : PopTtok (name, tok) ;
3737 : : ip1 := RequestSym (tok, name) ;
3738 : : PutIncluded(ip1) ;
3739 : : EndScope ;
3740 : : CheckCanBeImported(init, ip1) ;
3741 : : init := ip1
3742 : : END ;
3743 : : IF tok#tokstart
3744 : : THEN
3745 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
3746 : : END ;
3747 : : IF IsProcedure(init) OR IsProcType(init)
3748 : : THEN
3749 : : PushTtok(init, tok)
3750 : : ELSE
3751 : : PushTFtok(init, GetType(init), tok) ;
3752 : : END
3753 : : ELSE %
3754 : : { '.' Ident }
3755 : : % END %
3756 : :
3757 : :
3758 : : first symbols:identtok
3759 : :
3760 : : cannot reachend
3761 : : */
3762 : :
3763 : 11358624 : static void Qualident (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3764 : : {
3765 : 11358624 : NameKey_Name name;
3766 : 11358624 : unsigned int init;
3767 : 11358624 : unsigned int ip1;
3768 : 11358624 : unsigned int tokstart;
3769 : 11358624 : unsigned int tok;
3770 : :
3771 : 11358624 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3772 : 11358624 : if (M2Quads_IsAutoPushOn ())
3773 : : {
3774 : 360 : M2Quads_PopTtok (&name, &tokstart);
3775 : 360 : tok = tokstart;
3776 : 360 : init = SymbolTable_RequestSym (tok, name);
3777 : 720 : while ((SymbolTable_IsDefImp (init)) || (SymbolTable_IsModule (init)))
3778 : : {
3779 : 0 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3780 : 0 : SymbolTable_StartScope (init);
3781 : 0 : Ident (stopset0, stopset1, stopset2);
3782 : 0 : M2Quads_PopTtok (&name, &tok);
3783 : 0 : ip1 = SymbolTable_RequestSym (tok, name);
3784 : 0 : SymbolTable_PutIncluded (ip1);
3785 : 0 : SymbolTable_EndScope ();
3786 : 0 : P3SymBuild_CheckCanBeImported (init, ip1);
3787 : 0 : init = ip1;
3788 : : }
3789 : 360 : if (tok != tokstart)
3790 : : {
3791 : 0 : tok = M2LexBuf_MakeVirtualTok (tokstart, tokstart, tok);
3792 : : }
3793 : 360 : if ((SymbolTable_IsProcedure (init)) || (SymbolTable_IsProcType (init)))
3794 : : {
3795 : 0 : M2Quads_PushTtok (init, tok);
3796 : : }
3797 : : else
3798 : : {
3799 : 360 : M2Quads_PushTFtok (init, SymbolTable_GetType (init), tok);
3800 : : }
3801 : : }
3802 : : else
3803 : : {
3804 : 11577338 : while (M2LexBuf_currenttoken == M2Reserved_periodtok)
3805 : : {
3806 : 219074 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3807 : 219074 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3808 : : }
3809 : : /* while */
3810 : : }
3811 : 11358624 : }
3812 : :
3813 : :
3814 : : /*
3815 : : ConstantDeclaration :=
3816 : : % VAR top: CARDINAL ; %
3817 : :
3818 : : % InclConst (BlockState) %
3819 : :
3820 : : % top := Top() %
3821 : :
3822 : : % PushAutoOn %
3823 : : ( Ident '='
3824 : : % StartDesConst %
3825 : :
3826 : : % PushAutoOff %
3827 : : ConstExpression
3828 : : % PopAuto %
3829 : : )
3830 : : % EndDesConst %
3831 : :
3832 : : % PopAuto %
3833 : :
3834 : : % Assert(top=Top()) %
3835 : :
3836 : : % ExclConst (BlockState) %
3837 : :
3838 : :
3839 : : first symbols:identtok
3840 : :
3841 : : cannot reachend
3842 : : */
3843 : :
3844 : 236841 : static void ConstantDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3845 : : {
3846 : 236841 : unsigned int top;
3847 : :
3848 : 236841 : M2StateCheck_InclConst (BlockState);
3849 : 236841 : top = M2Quads_Top ();
3850 : 236841 : M2Quads_PushAutoOn ();
3851 : 236841 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
3852 : 236841 : Expect (M2Reserved_equaltok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
3853 : 236841 : PCSymBuild_StartDesConst ();
3854 : 236841 : M2Quads_PushAutoOff ();
3855 : 236841 : ConstExpression (stopset0, stopset1, stopset2);
3856 : 236817 : M2Quads_PopAuto ();
3857 : 236817 : PCSymBuild_EndDesConst ();
3858 : 236817 : M2Quads_PopAuto ();
3859 : 236817 : M2Debug_Assert (top == (M2Quads_Top ()));
3860 : 236817 : M2StateCheck_ExclConst (BlockState);
3861 : 236817 : }
3862 : :
3863 : :
3864 : : /*
3865 : : ConstExpression :=
3866 : : % VAR top: CARDINAL ; %
3867 : :
3868 : : % top := Top() %
3869 : :
3870 : : % PushInConstExpression %
3871 : :
3872 : : % PushAutoOff %
3873 : : SimpleConstExpr [ Relation SimpleConstExpr
3874 : :
3875 : : % BuildRelationConst %
3876 : : ]
3877 : : % PopAuto %
3878 : :
3879 : : % PopInConstExpression %
3880 : :
3881 : : % Assert(top=Top()) %
3882 : :
3883 : :
3884 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
3885 : :
3886 : : cannot reachend
3887 : : */
3888 : :
3889 : 464730 : static void ConstExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3890 : : {
3891 : 464730 : unsigned int top;
3892 : :
3893 : 464730 : top = M2Quads_Top ();
3894 : 464730 : M2Quads_PushInConstExpression ();
3895 : 464730 : M2Quads_PushAutoOff ();
3896 : 464730 : SimpleConstExpr (stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
3897 : 464706 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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))
3898 : : {
3899 : 150 : Relation (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
3900 : 150 : SimpleConstExpr (stopset0, stopset1, stopset2);
3901 : 150 : PCSymBuild_BuildRelationConst ();
3902 : : }
3903 : 464706 : M2Quads_PopAuto ();
3904 : 464706 : M2Quads_PopInConstExpression ();
3905 : 464706 : M2Debug_Assert (top == (M2Quads_Top ()));
3906 : 464706 : }
3907 : :
3908 : :
3909 : : /*
3910 : : Relation := '='
3911 : : % PushT(EqualTok) %
3912 : : | '#'
3913 : : % PushT(HashTok) %
3914 : : | '<>'
3915 : : % PushT(LessGreaterTok) %
3916 : : | '<'
3917 : : % PushT(LessTok) %
3918 : : | '<='
3919 : : % PushT(LessEqualTok) %
3920 : : | '>'
3921 : : % PushT(GreaterTok) %
3922 : : | '>='
3923 : : % PushT(GreaterEqualTok) %
3924 : : | 'IN'
3925 : : % PushT(InTok) %
3926 : :
3927 : :
3928 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
3929 : :
3930 : : cannot reachend
3931 : : */
3932 : :
3933 : 150 : static void Relation (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
3934 : : {
3935 : 150 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
3936 : : {
3937 : 48 : Expect (M2Reserved_equaltok, stopset0, stopset1, stopset2);
3938 : 48 : M2Quads_PushT (M2Reserved_EqualTok);
3939 : : }
3940 : : else if (M2LexBuf_currenttoken == M2Reserved_hashtok)
3941 : : {
3942 : : /* avoid dangling else. */
3943 : 12 : Expect (M2Reserved_hashtok, stopset0, stopset1, stopset2);
3944 : 12 : M2Quads_PushT (M2Reserved_HashTok);
3945 : : }
3946 : : else if (M2LexBuf_currenttoken == M2Reserved_lessgreatertok)
3947 : : {
3948 : : /* avoid dangling else. */
3949 : 0 : Expect (M2Reserved_lessgreatertok, stopset0, stopset1, stopset2);
3950 : 0 : M2Quads_PushT (M2Reserved_LessGreaterTok);
3951 : : }
3952 : : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
3953 : : {
3954 : : /* avoid dangling else. */
3955 : 0 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2);
3956 : 0 : M2Quads_PushT (M2Reserved_LessTok);
3957 : : }
3958 : : else if (M2LexBuf_currenttoken == M2Reserved_lessequaltok)
3959 : : {
3960 : : /* avoid dangling else. */
3961 : 42 : Expect (M2Reserved_lessequaltok, stopset0, stopset1, stopset2);
3962 : 42 : M2Quads_PushT (M2Reserved_LessEqualTok);
3963 : : }
3964 : : else if (M2LexBuf_currenttoken == M2Reserved_greatertok)
3965 : : {
3966 : : /* avoid dangling else. */
3967 : 48 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
3968 : 48 : M2Quads_PushT (M2Reserved_GreaterTok);
3969 : : }
3970 : : else if (M2LexBuf_currenttoken == M2Reserved_greaterequaltok)
3971 : : {
3972 : : /* avoid dangling else. */
3973 : 0 : Expect (M2Reserved_greaterequaltok, stopset0, stopset1, stopset2);
3974 : 0 : M2Quads_PushT (M2Reserved_GreaterEqualTok);
3975 : : }
3976 : : else if (M2LexBuf_currenttoken == M2Reserved_intok)
3977 : : {
3978 : : /* avoid dangling else. */
3979 : 0 : Expect (M2Reserved_intok, stopset0, stopset1, stopset2);
3980 : 0 : M2Quads_PushT (M2Reserved_InTok);
3981 : : }
3982 : : else
3983 : : {
3984 : : /* avoid dangling else. */
3985 : 0 : ErrorArray ((const char *) "expecting one of: {%KIN} {%K>=} {%K>} {%K<=} {%K<} {%K<>} {%K#} {%K=}", 69);
3986 : : }
3987 : 150 : }
3988 : :
3989 : :
3990 : : /*
3991 : : SimpleConstExpr :=
3992 : : % VAR top: CARDINAL ; %
3993 : :
3994 : : % top := Top() %
3995 : : UnaryOrConstTerm { ConstAddOperator
3996 : : ConstTerm
3997 : :
3998 : : % BuildBinaryConst %
3999 : : }
4000 : : % Assert(top=Top()) %
4001 : :
4002 : :
4003 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
4004 : :
4005 : : cannot reachend
4006 : : */
4007 : :
4008 : 464880 : static void SimpleConstExpr (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4009 : : {
4010 : 464880 : unsigned int top;
4011 : :
4012 : 464880 : top = M2Quads_Top ();
4013 : 464880 : UnaryOrConstTerm (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
4014 : 934456 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
4015 : : {
4016 : 4720 : ConstAddOperator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4017 : 4720 : ConstTerm (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
4018 : 4720 : PCSymBuild_BuildBinaryConst ();
4019 : : }
4020 : : /* while */
4021 : 464856 : M2Debug_Assert (top == (M2Quads_Top ()));
4022 : 464856 : }
4023 : :
4024 : :
4025 : : /*
4026 : : UnaryOrConstTerm := '+'
4027 : : % PushT(PlusTok) %
4028 : : ConstTerm
4029 : : % BuildUnaryConst %
4030 : : | '-'
4031 : : % PushT(MinusTok) %
4032 : : ConstTerm
4033 : : % BuildUnaryConst %
4034 : : | ConstTerm
4035 : :
4036 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
4037 : :
4038 : : cannot reachend
4039 : : */
4040 : :
4041 : 464880 : static void UnaryOrConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4042 : : {
4043 : 464880 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
4044 : : {
4045 : 0 : Expect (M2Reserved_plustok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4046 : 0 : M2Quads_PushT (M2Reserved_PlusTok);
4047 : 0 : ConstTerm (stopset0, stopset1, stopset2);
4048 : 0 : PCSymBuild_BuildUnaryConst ();
4049 : : }
4050 : 464880 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
4051 : : {
4052 : : /* avoid dangling else. */
4053 : 17581 : Expect (M2Reserved_minustok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4054 : 17581 : M2Quads_PushT (M2Reserved_MinusTok);
4055 : 17581 : ConstTerm (stopset0, stopset1, stopset2);
4056 : 17581 : PCSymBuild_BuildUnaryConst ();
4057 : : }
4058 : 447299 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
4059 : : {
4060 : : /* avoid dangling else. */
4061 : 447299 : ConstTerm (stopset0, stopset1, stopset2);
4062 : : }
4063 : : else
4064 : : {
4065 : : /* avoid dangling else. */
4066 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%K__ATTRIBUTE__} {%K%{} {%Kstring} {%Kinteger number} {%Kreal number} {%Kidentifier} {%K-} {%K+}", 129);
4067 : : }
4068 : 464856 : }
4069 : :
4070 : :
4071 : : /*
4072 : : ConstAddOperator := '+'
4073 : : % PushT(PlusTok) %
4074 : : | '-'
4075 : : % PushT(MinusTok) %
4076 : : | 'OR'
4077 : : % PushT(OrTok) %
4078 : :
4079 : :
4080 : : first symbols:ortok, minustok, plustok
4081 : :
4082 : : cannot reachend
4083 : : */
4084 : :
4085 : 4720 : static void ConstAddOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4086 : : {
4087 : 4720 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
4088 : : {
4089 : 3124 : Expect (M2Reserved_plustok, stopset0, stopset1, stopset2);
4090 : 3124 : M2Quads_PushT (M2Reserved_PlusTok);
4091 : : }
4092 : 1596 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
4093 : : {
4094 : : /* avoid dangling else. */
4095 : 1596 : Expect (M2Reserved_minustok, stopset0, stopset1, stopset2);
4096 : 1596 : M2Quads_PushT (M2Reserved_MinusTok);
4097 : : }
4098 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_ortok)
4099 : : {
4100 : : /* avoid dangling else. */
4101 : 0 : Expect (M2Reserved_ortok, stopset0, stopset1, stopset2);
4102 : 0 : M2Quads_PushT (M2Reserved_OrTok);
4103 : : }
4104 : : else
4105 : : {
4106 : : /* avoid dangling else. */
4107 : 0 : ErrorArray ((const char *) "expecting one of: {%KOR} {%K-} {%K+}", 36);
4108 : : }
4109 : 4720 : }
4110 : :
4111 : :
4112 : : /*
4113 : : AddOperator := '+' | '-' | 'OR'
4114 : :
4115 : : first symbols:ortok, minustok, plustok
4116 : :
4117 : : cannot reachend
4118 : : */
4119 : :
4120 : 379542 : static void AddOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4121 : : {
4122 : 379542 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
4123 : : {
4124 : 176078 : Expect (M2Reserved_plustok, stopset0, stopset1, stopset2);
4125 : : }
4126 : 203464 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
4127 : : {
4128 : : /* avoid dangling else. */
4129 : 101820 : Expect (M2Reserved_minustok, stopset0, stopset1, stopset2);
4130 : : }
4131 : 101644 : else if (M2LexBuf_currenttoken == M2Reserved_ortok)
4132 : : {
4133 : : /* avoid dangling else. */
4134 : 101644 : Expect (M2Reserved_ortok, stopset0, stopset1, stopset2);
4135 : : }
4136 : : else
4137 : : {
4138 : : /* avoid dangling else. */
4139 : 0 : ErrorArray ((const char *) "expecting one of: {%KOR} {%K-} {%K+}", 36);
4140 : : }
4141 : 379542 : }
4142 : :
4143 : :
4144 : : /*
4145 : : ConstTerm :=
4146 : : % VAR top: CARDINAL ; %
4147 : :
4148 : : % top := Top() %
4149 : : ConstFactor
4150 : : % Assert(top=Top()) %
4151 : : { ConstMulOperator ConstFactor
4152 : : % BuildBinaryConst %
4153 : :
4154 : : % Assert(top=Top()) %
4155 : : }
4156 : : % Assert(top=Top()) %
4157 : :
4158 : :
4159 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok
4160 : :
4161 : : cannot reachend
4162 : : */
4163 : :
4164 : 469600 : static void ConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4165 : : {
4166 : 469600 : unsigned int top;
4167 : :
4168 : 469600 : top = M2Quads_Top ();
4169 : 469600 : ConstFactor (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
4170 : 469576 : M2Debug_Assert (top == (M2Quads_Top ()));
4171 : 949495 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
4172 : : {
4173 : 10343 : ConstMulOperator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4174 : 10343 : ConstFactor (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
4175 : 10343 : PCSymBuild_BuildBinaryConst ();
4176 : 10343 : M2Debug_Assert (top == (M2Quads_Top ()));
4177 : : }
4178 : : /* while */
4179 : 469576 : M2Debug_Assert (top == (M2Quads_Top ()));
4180 : 469576 : }
4181 : :
4182 : :
4183 : : /*
4184 : : ConstMulOperator := '*'
4185 : : % PushT(TimesTok) %
4186 : : | '/'
4187 : : % PushT(DivideTok) %
4188 : : | 'DIV'
4189 : : % PushT(DivTok) %
4190 : : | 'MOD'
4191 : : % PushT(ModTok) %
4192 : : | 'REM'
4193 : : % PushT(RemTok) %
4194 : : | 'AND'
4195 : : % PushT(AndTok) %
4196 : : | '&'
4197 : : % PushT(AmbersandTok) %
4198 : :
4199 : :
4200 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
4201 : :
4202 : : cannot reachend
4203 : : */
4204 : :
4205 : 10343 : static void ConstMulOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4206 : : {
4207 : 10343 : if (M2LexBuf_currenttoken == M2Reserved_timestok)
4208 : : {
4209 : 6218 : Expect (M2Reserved_timestok, stopset0, stopset1, stopset2);
4210 : 6218 : M2Quads_PushT (M2Reserved_TimesTok);
4211 : : }
4212 : : else if (M2LexBuf_currenttoken == M2Reserved_dividetok)
4213 : : {
4214 : : /* avoid dangling else. */
4215 : 12 : Expect (M2Reserved_dividetok, stopset0, stopset1, stopset2);
4216 : 12 : M2Quads_PushT (M2Reserved_DivideTok);
4217 : : }
4218 : : else if (M2LexBuf_currenttoken == M2Reserved_divtok)
4219 : : {
4220 : : /* avoid dangling else. */
4221 : 4107 : Expect (M2Reserved_divtok, stopset0, stopset1, stopset2);
4222 : 4107 : M2Quads_PushT (M2Reserved_DivTok);
4223 : : }
4224 : : else if (M2LexBuf_currenttoken == M2Reserved_modtok)
4225 : : {
4226 : : /* avoid dangling else. */
4227 : 0 : Expect (M2Reserved_modtok, stopset0, stopset1, stopset2);
4228 : 0 : M2Quads_PushT (M2Reserved_ModTok);
4229 : : }
4230 : : else if (M2LexBuf_currenttoken == M2Reserved_remtok)
4231 : : {
4232 : : /* avoid dangling else. */
4233 : 0 : Expect (M2Reserved_remtok, stopset0, stopset1, stopset2);
4234 : 0 : M2Quads_PushT (M2Reserved_RemTok);
4235 : : }
4236 : : else if (M2LexBuf_currenttoken == M2Reserved_andtok)
4237 : : {
4238 : : /* avoid dangling else. */
4239 : 6 : Expect (M2Reserved_andtok, stopset0, stopset1, stopset2);
4240 : 6 : M2Quads_PushT (M2Reserved_AndTok);
4241 : : }
4242 : : else if (M2LexBuf_currenttoken == M2Reserved_ambersandtok)
4243 : : {
4244 : : /* avoid dangling else. */
4245 : 0 : Expect (M2Reserved_ambersandtok, stopset0, stopset1, stopset2);
4246 : 0 : M2Quads_PushT (M2Reserved_AmbersandTok);
4247 : : }
4248 : : else
4249 : : {
4250 : : /* avoid dangling else. */
4251 : 0 : ErrorArray ((const char *) "expecting one of: {%K&} {%KAND} {%KREM} {%KMOD} {%KDIV} {%K/} {%K*}", 67);
4252 : : }
4253 : 10343 : }
4254 : :
4255 : :
4256 : : /*
4257 : : MulOperator := '*' | '/' | 'DIV' | 'MOD' |
4258 : : 'REM' | 'AND' | '&'
4259 : :
4260 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
4261 : :
4262 : : cannot reachend
4263 : : */
4264 : :
4265 : 413856 : static void MulOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4266 : : {
4267 : 413856 : if (M2LexBuf_currenttoken == M2Reserved_timestok)
4268 : : {
4269 : 62514 : Expect (M2Reserved_timestok, stopset0, stopset1, stopset2);
4270 : : }
4271 : : else if (M2LexBuf_currenttoken == M2Reserved_dividetok)
4272 : : {
4273 : : /* avoid dangling else. */
4274 : 938 : Expect (M2Reserved_dividetok, stopset0, stopset1, stopset2);
4275 : : }
4276 : : else if (M2LexBuf_currenttoken == M2Reserved_divtok)
4277 : : {
4278 : : /* avoid dangling else. */
4279 : 36686 : Expect (M2Reserved_divtok, stopset0, stopset1, stopset2);
4280 : : }
4281 : : else if (M2LexBuf_currenttoken == M2Reserved_modtok)
4282 : : {
4283 : : /* avoid dangling else. */
4284 : 64562 : Expect (M2Reserved_modtok, stopset0, stopset1, stopset2);
4285 : : }
4286 : : else if (M2LexBuf_currenttoken == M2Reserved_remtok)
4287 : : {
4288 : : /* avoid dangling else. */
4289 : 96 : Expect (M2Reserved_remtok, stopset0, stopset1, stopset2);
4290 : : }
4291 : : else if (M2LexBuf_currenttoken == M2Reserved_andtok)
4292 : : {
4293 : : /* avoid dangling else. */
4294 : 249060 : Expect (M2Reserved_andtok, stopset0, stopset1, stopset2);
4295 : : }
4296 : : else if (M2LexBuf_currenttoken == M2Reserved_ambersandtok)
4297 : : {
4298 : : /* avoid dangling else. */
4299 : 0 : Expect (M2Reserved_ambersandtok, stopset0, stopset1, stopset2);
4300 : : }
4301 : : else
4302 : : {
4303 : : /* avoid dangling else. */
4304 : 0 : ErrorArray ((const char *) "expecting one of: {%K&} {%KAND} {%KREM} {%KMOD} {%KDIV} {%K/} {%K*}", 67);
4305 : : }
4306 : 413856 : }
4307 : :
4308 : :
4309 : : /*
4310 : : ConstFactor := ConstNumber | ConstString |
4311 : : ConstSetOrQualidentOrFunction |
4312 : : '(' ConstExpression ')' |
4313 : : 'NOT' ConstFactor |
4314 : : ConstAttribute
4315 : :
4316 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok
4317 : :
4318 : : cannot reachend
4319 : : */
4320 : :
4321 : 479943 : static void ConstFactor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4322 : : {
4323 : 479943 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
4324 : : {
4325 : 308762 : ConstNumber (stopset0, stopset1, stopset2);
4326 : : }
4327 : 171181 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
4328 : : {
4329 : : /* avoid dangling else. */
4330 : 12112 : ConstString (stopset0, stopset1, stopset2);
4331 : : }
4332 : : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
4333 : : {
4334 : : /* avoid dangling else. */
4335 : 131029 : ConstSetOrQualidentOrFunction (stopset0, stopset1, stopset2);
4336 : : }
4337 : : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4338 : : {
4339 : : /* avoid dangling else. */
4340 : 78 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4341 : 78 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4342 : 78 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4343 : : }
4344 : : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
4345 : : {
4346 : : /* avoid dangling else. */
4347 : 0 : Expect (M2Reserved_nottok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4348 : 0 : ConstFactor (stopset0, stopset1, stopset2);
4349 : : }
4350 : : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
4351 : : {
4352 : : /* avoid dangling else. */
4353 : 27962 : ConstAttribute (stopset0, stopset1, stopset2);
4354 : : }
4355 : : else
4356 : : {
4357 : : /* avoid dangling else. */
4358 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%KNOT} {%K(} {%K%{} {%Kidentifier} {%Kstring} {%Kinteger number} {%Kreal number}", 117);
4359 : : }
4360 : 479919 : }
4361 : :
4362 : :
4363 : : /*
4364 : : ConstNumber :=
4365 : : % PushAutoOn %
4366 : : ( Integer
4367 : : % PushIntegerType %
4368 : : | Real
4369 : : % PushRType %
4370 : : )
4371 : : % PopAuto %
4372 : :
4373 : :
4374 : : first symbols:realtok, integertok
4375 : :
4376 : : cannot reachend
4377 : : */
4378 : :
4379 : 308762 : static void ConstNumber (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4380 : : {
4381 : 308762 : M2Quads_PushAutoOn ();
4382 : 308762 : if (M2LexBuf_currenttoken == M2Reserved_integertok)
4383 : : {
4384 : 305996 : Integer (stopset0, stopset1, stopset2);
4385 : 305996 : PCSymBuild_PushIntegerType ();
4386 : : }
4387 : 2766 : else if (M2LexBuf_currenttoken == M2Reserved_realtok)
4388 : : {
4389 : : /* avoid dangling else. */
4390 : 2766 : Real (stopset0, stopset1, stopset2);
4391 : 2766 : PCSymBuild_PushRType ();
4392 : : }
4393 : : else
4394 : : {
4395 : : /* avoid dangling else. */
4396 : 0 : ErrorArray ((const char *) "expecting one of: {%Kreal number} {%Kinteger number}", 52);
4397 : : }
4398 : 308762 : M2Quads_PopAuto ();
4399 : 308762 : }
4400 : :
4401 : :
4402 : : /*
4403 : : ConstString :=
4404 : : % PushAutoOn %
4405 : : string
4406 : : % PushStringType %
4407 : :
4408 : : % PopAuto %
4409 : :
4410 : :
4411 : : first symbols:stringtok
4412 : :
4413 : : cannot reachend
4414 : : */
4415 : :
4416 : 12112 : static void ConstString (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4417 : : {
4418 : 12112 : M2Quads_PushAutoOn ();
4419 : 12112 : string (stopset0, stopset1, stopset2);
4420 : 12112 : PCSymBuild_PushStringType ();
4421 : 12112 : M2Quads_PopAuto ();
4422 : 12112 : }
4423 : :
4424 : :
4425 : : /*
4426 : : ComponentElement := ConstExpression [ '..' ConstExpression ]
4427 : :
4428 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
4429 : :
4430 : : cannot reachend
4431 : : */
4432 : :
4433 : 27392 : static void ComponentElement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4434 : : {
4435 : 27392 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
4436 : 27392 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
4437 : : {
4438 : 350 : Expect (M2Reserved_periodperiodtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4439 : 350 : ConstExpression (stopset0, stopset1, stopset2);
4440 : : }
4441 : 27392 : }
4442 : :
4443 : :
4444 : : /*
4445 : : ComponentValue := ComponentElement [ 'BY' ConstExpression ]
4446 : :
4447 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
4448 : :
4449 : : cannot reachend
4450 : : */
4451 : :
4452 : 27392 : static void ComponentValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4453 : : {
4454 : 27392 : ComponentElement (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok))), stopset2);
4455 : 27392 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
4456 : : {
4457 : 30 : Expect (M2Reserved_bytok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4458 : 30 : ConstExpression (stopset0, stopset1, stopset2);
4459 : : }
4460 : 27392 : }
4461 : :
4462 : :
4463 : : /*
4464 : : ArraySetRecordValue := ComponentValue { ','
4465 : : % NextConstructorField %
4466 : : ComponentValue }
4467 : :
4468 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
4469 : :
4470 : : cannot reachend
4471 : : */
4472 : :
4473 : 9446 : static void ArraySetRecordValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4474 : : {
4475 : 9446 : ComponentValue (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4476 : 36838 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4477 : : {
4478 : 17946 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4479 : 17946 : M2Quads_NextConstructorField ();
4480 : 17946 : ComponentValue (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4481 : : }
4482 : : /* while */
4483 : 9446 : }
4484 : :
4485 : :
4486 : : /*
4487 : : Constructor := '{'
4488 : : % InclConstructor (BlockState) %
4489 : :
4490 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
4491 : :
4492 : : % PushConstructorCastType %
4493 : :
4494 : : % PushInConstructor %
4495 : :
4496 : : % BuildConstructor (GetTokenNo ()-1) %
4497 : : [ ArraySetRecordValue ]
4498 : : % PopConstructor %
4499 : : '}'
4500 : : % PopInConstructor %
4501 : :
4502 : : % ExclConstructor (BlockState) %
4503 : :
4504 : :
4505 : : first symbols:lcbratok
4506 : :
4507 : : cannot reachend
4508 : : */
4509 : :
4510 : 21296 : static void Constructor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4511 : : {
4512 : 21296 : Expect (M2Reserved_lcbratok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4513 : 21296 : M2StateCheck_InclConstructor (BlockState);
4514 : 21296 : M2StateCheck_CheckQualident (M2Quads_OperandTok (1), BlockState, M2Quads_OperandT (1));
4515 : 21296 : PCSymBuild_PushConstructorCastType ();
4516 : 21296 : PCSymBuild_PushInConstructor ();
4517 : 21296 : M2Quads_BuildConstructor ((M2LexBuf_GetTokenNo ())-1);
4518 : 21296 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
4519 : : {
4520 : 9446 : ArraySetRecordValue (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rcbratok-M2Reserved_eoftok))), stopset1, stopset2);
4521 : : }
4522 : 21296 : M2Quads_PopConstructor ();
4523 : 21296 : Expect (M2Reserved_rcbratok, stopset0, stopset1, stopset2);
4524 : 21296 : PCSymBuild_PopInConstructor ();
4525 : 21296 : M2StateCheck_ExclConstructor (BlockState);
4526 : 21296 : }
4527 : :
4528 : :
4529 : : /*
4530 : : ConstructorOrConstActualParameters := Constructor |
4531 : : ConstActualParameters
4532 : :
4533 : : % PushConstFunctionType %
4534 : :
4535 : : % PopNothing pop function %
4536 : :
4537 : :
4538 : : first symbols:lparatok, lcbratok
4539 : :
4540 : : cannot reachend
4541 : : */
4542 : :
4543 : 9884 : static void ConstructorOrConstActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4544 : : {
4545 : 9884 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
4546 : : {
4547 : 5518 : Constructor (stopset0, stopset1, stopset2);
4548 : : }
4549 : 4366 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4550 : : {
4551 : : /* avoid dangling else. */
4552 : 4366 : ConstActualParameters (stopset0, stopset1, stopset2);
4553 : 4366 : PCSymBuild_PushConstFunctionType ();
4554 : 4366 : M2Quads_PopNothing (); /* pop function */
4555 : : }
4556 : : else
4557 : : {
4558 : : /* avoid dangling else. */
4559 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K%{}", 30);
4560 : : }
4561 : 9884 : }
4562 : :
4563 : :
4564 : : /*
4565 : : ConstSetOrQualidentOrFunction :=
4566 : : % PushAutoOff %
4567 : :
4568 : : % VAR tokpos: CARDINAL ; %
4569 : :
4570 : : % tokpos := GetTokenNo () %
4571 : : ( PushQualident
4572 : : ( ConstructorOrConstActualParameters |
4573 : :
4574 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
4575 : :
4576 : : % PushConstType %
4577 : :
4578 : : % PopNothing %
4579 : : ) |
4580 : :
4581 : : % BuildTypeForConstructor (tokpos) %
4582 : : Constructor )
4583 : :
4584 : : % PopAuto %
4585 : :
4586 : :
4587 : : first symbols:identtok, lcbratok
4588 : :
4589 : : cannot reachend
4590 : : */
4591 : :
4592 : 131029 : static void ConstSetOrQualidentOrFunction (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4593 : : {
4594 : 131029 : unsigned int tokpos;
4595 : :
4596 : 131029 : M2Quads_PushAutoOff ();
4597 : 131029 : tokpos = M2LexBuf_GetTokenNo ();
4598 : 131029 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
4599 : : {
4600 : 130477 : PushQualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4601 : 130477 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))))) != 0)))
4602 : : {
4603 : 9884 : ConstructorOrConstActualParameters (stopset0, stopset1, stopset2);
4604 : : }
4605 : : else
4606 : : {
4607 : 120593 : M2StateCheck_CheckQualident (M2Quads_OperandTok (1), BlockState, M2Quads_OperandT (1));
4608 : 120581 : PCSymBuild_PushConstType ();
4609 : 120569 : M2Quads_PopNothing ();
4610 : : }
4611 : : }
4612 : : else
4613 : : {
4614 : 552 : M2Quads_BuildTypeForConstructor (tokpos);
4615 : 552 : Constructor (stopset0, stopset1, stopset2);
4616 : : }
4617 : 131005 : M2Quads_PopAuto ();
4618 : 131005 : }
4619 : :
4620 : :
4621 : : /*
4622 : : ConstActualParameters :=
4623 : : % PushState (BlockState) %
4624 : :
4625 : : % InclConstFunc (BlockState) %
4626 : :
4627 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
4628 : :
4629 : : % PushT(0) %
4630 : : '(' [ ConstExpList ] ')'
4631 : :
4632 : : % PopState (BlockState) %
4633 : :
4634 : :
4635 : : first symbols:lparatok
4636 : :
4637 : : cannot reachend
4638 : : */
4639 : :
4640 : 4366 : static void ConstActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4641 : : {
4642 : 4366 : M2StateCheck_PushState (&BlockState);
4643 : 4366 : M2StateCheck_InclConstFunc (BlockState);
4644 : 4366 : M2StateCheck_CheckQualident (M2Quads_OperandTok (1), BlockState, M2Quads_OperandT (1));
4645 : 4366 : M2Quads_PushT (static_cast<unsigned int> (0));
4646 : 4366 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4647 : 4366 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
4648 : : {
4649 : 4366 : ConstExpList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4650 : : }
4651 : 4366 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4652 : 4366 : M2StateCheck_PopState (&BlockState);
4653 : 4366 : }
4654 : :
4655 : :
4656 : : /*
4657 : : ConstExpList :=
4658 : : % VAR n: CARDINAL ; %
4659 : : ConstExpression
4660 : : % PopT(n) %
4661 : :
4662 : : % INC(n) %
4663 : :
4664 : : % Assert(n=1) %
4665 : :
4666 : : % PushT(n) %
4667 : : { ',' ConstExpression
4668 : : % PopT(n) %
4669 : :
4670 : : % INC(n) %
4671 : :
4672 : : % PushT(n) %
4673 : : }
4674 : :
4675 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
4676 : :
4677 : : cannot reachend
4678 : : */
4679 : :
4680 : 4366 : static void ConstExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4681 : : {
4682 : 4366 : unsigned int n;
4683 : :
4684 : 4366 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4685 : 4366 : M2Quads_PopT (&n);
4686 : 4366 : n += 1;
4687 : 4366 : M2Debug_Assert (n == 1);
4688 : 4366 : M2Quads_PushT (n);
4689 : 9110 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4690 : : {
4691 : 378 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
4692 : 378 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4693 : 378 : M2Quads_PopT (&n);
4694 : 378 : n += 1;
4695 : 378 : M2Quads_PushT (n);
4696 : : }
4697 : : /* while */
4698 : 4366 : }
4699 : :
4700 : :
4701 : : /*
4702 : : ConstAttribute :=
4703 : : % VAR top: CARDINAL ; %
4704 : :
4705 : : % top := Top() %
4706 : : '__ATTRIBUTE__' '__BUILTIN__'
4707 : : '(' '('
4708 : : % PushAutoOn %
4709 : : ConstAttributeExpression
4710 : : % PopAuto %
4711 : : ')' ')'
4712 : : % Assert(top=Top()) %
4713 : :
4714 : :
4715 : : first symbols:attributetok
4716 : :
4717 : : cannot reachend
4718 : : */
4719 : :
4720 : 27962 : static void ConstAttribute (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4721 : : {
4722 : 27962 : unsigned int top;
4723 : :
4724 : 27962 : top = M2Quads_Top ();
4725 : 27962 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
4726 : 27962 : Expect (M2Reserved_builtintok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4727 : 27962 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4728 : 27962 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lesstok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4729 : 27962 : M2Quads_PushAutoOn ();
4730 : 27962 : ConstAttributeExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4731 : 27962 : M2Quads_PopAuto ();
4732 : 27962 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4733 : 27962 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4734 : 27962 : M2Debug_Assert (top == (M2Quads_Top ()));
4735 : 27962 : }
4736 : :
4737 : :
4738 : : /*
4739 : : ConstAttributeExpression := Ident
4740 : : % PushConstAttributeType %
4741 : :
4742 : : % PopNothing %
4743 : : | '<' Qualident ','
4744 : : Ident '>'
4745 : : % PushConstAttributePairType %
4746 : :
4747 : : % PopNothing ; PopNothing %
4748 : :
4749 : :
4750 : : first symbols:lesstok, identtok
4751 : :
4752 : : cannot reachend
4753 : : */
4754 : :
4755 : 27962 : static void ConstAttributeExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4756 : : {
4757 : 27962 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
4758 : : {
4759 : 27602 : Ident (stopset0, stopset1, stopset2);
4760 : 27602 : PCSymBuild_PushConstAttributeType ();
4761 : 27602 : M2Quads_PopNothing ();
4762 : : }
4763 : 360 : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
4764 : : {
4765 : : /* avoid dangling else. */
4766 : 360 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4767 : 360 : Qualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4768 : 360 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4769 : 360 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_greatertok-M2Reserved_eoftok))), stopset1, stopset2);
4770 : 360 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
4771 : 360 : PCSymBuild_PushConstAttributePairType ();
4772 : 360 : M2Quads_PopNothing ();
4773 : 360 : M2Quads_PopNothing ();
4774 : : }
4775 : : else
4776 : : {
4777 : : /* avoid dangling else. */
4778 : 0 : ErrorArray ((const char *) "expecting one of: {%K<} {%Kidentifier}", 38);
4779 : : }
4780 : 27962 : }
4781 : :
4782 : :
4783 : : /*
4784 : : ByteAlignment := ''
4785 : :
4786 : : first symbols:ldirectivetok
4787 : :
4788 : : cannot reachend
4789 : : */
4790 : :
4791 : 72 : static void ByteAlignment (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4792 : : {
4793 : 72 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4794 : 72 : AttributeExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4795 : 72 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
4796 : 72 : }
4797 : :
4798 : :
4799 : : /*
4800 : : Alignment := [ ByteAlignment ]
4801 : :
4802 : : first symbols:ldirectivetok
4803 : :
4804 : : reachend
4805 : : */
4806 : :
4807 : 873876 : static void Alignment (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4808 : : {
4809 : 0 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
4810 : : {
4811 : 72 : ByteAlignment (stopset0, stopset1, stopset2);
4812 : : }
4813 : 0 : }
4814 : :
4815 : :
4816 : : /*
4817 : : TypeDeclaration := Ident '=' Type Alignment
4818 : :
4819 : : first symbols:identtok
4820 : :
4821 : : cannot reachend
4822 : : */
4823 : :
4824 : 72300 : static void TypeDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4825 : : {
4826 : 72300 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
4827 : 72300 : Expect (M2Reserved_equaltok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4828 : 72300 : Type (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
4829 : 72300 : Alignment (stopset0, stopset1, stopset2);
4830 : 72300 : }
4831 : :
4832 : :
4833 : : /*
4834 : : Type :=
4835 : : % PushAutoOff %
4836 : : ( SimpleType | ArrayType | RecordType |
4837 : : SetType | PointerType |
4838 : : ProcedureType )
4839 : : % PopAuto %
4840 : :
4841 : :
4842 : : first symbols:lparatok, lsbratok, proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok
4843 : :
4844 : : cannot reachend
4845 : : */
4846 : :
4847 : 1254004 : static void Type (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4848 : : {
4849 : 1254004 : M2Quads_PushAutoOff ();
4850 : 1254004 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_identtok))
4851 : : {
4852 : 991556 : SimpleType (stopset0, stopset1, stopset2);
4853 : : }
4854 : 262448 : else if (M2LexBuf_currenttoken == M2Reserved_arraytok)
4855 : : {
4856 : : /* avoid dangling else. */
4857 : 82694 : ArrayType (stopset0, stopset1, stopset2);
4858 : : }
4859 : 179754 : else if (M2LexBuf_currenttoken == M2Reserved_recordtok)
4860 : : {
4861 : : /* avoid dangling else. */
4862 : 48548 : RecordType (stopset0, stopset1, stopset2);
4863 : : }
4864 : 131206 : else if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_settok))
4865 : : {
4866 : : /* avoid dangling else. */
4867 : 1802 : SetType (stopset0, stopset1, stopset2);
4868 : : }
4869 : 129404 : else if (M2LexBuf_currenttoken == M2Reserved_pointertok)
4870 : : {
4871 : : /* avoid dangling else. */
4872 : 76166 : PointerType (stopset0, stopset1, stopset2);
4873 : : }
4874 : 53238 : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
4875 : : {
4876 : : /* avoid dangling else. */
4877 : 53238 : ProcedureType (stopset0, stopset1, stopset2);
4878 : : }
4879 : : else
4880 : : {
4881 : : /* avoid dangling else. */
4882 : 0 : ErrorArray ((const char *) "expecting one of: {%KPROCEDURE} {%KPOINTER} {%KSET} {%KPACKEDSET} {%KOF} {%KRECORD} {%KARRAY} {%Kidentifier} {%K(} {%K[}", 120);
4883 : : }
4884 : 1254004 : M2Quads_PopAuto ();
4885 : 1254004 : }
4886 : :
4887 : :
4888 : : /*
4889 : : SimpleType := Qualident [ SubrangeType ] |
4890 : : Enumeration | SubrangeType
4891 : :
4892 : : first symbols:lsbratok, lparatok, identtok
4893 : :
4894 : : cannot reachend
4895 : : */
4896 : :
4897 : 1076190 : static void SimpleType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4898 : : {
4899 : 1076190 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
4900 : : {
4901 : : /* avoid dangling else. */
4902 : 971566 : Qualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4903 : 971566 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
4904 : : {
4905 : 18 : SubrangeType (stopset0, stopset1, stopset2);
4906 : : }
4907 : : }
4908 : 104624 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4909 : : {
4910 : : /* avoid dangling else. */
4911 : 22704 : Enumeration (stopset0, stopset1, stopset2);
4912 : : }
4913 : 81920 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
4914 : : {
4915 : : /* avoid dangling else. */
4916 : 81920 : SubrangeType (stopset0, stopset1, stopset2);
4917 : : }
4918 : : else
4919 : : {
4920 : : /* avoid dangling else. */
4921 : 0 : ErrorArray ((const char *) "expecting one of: {%K[} {%K(} {%Kidentifier}", 44);
4922 : : }
4923 : 1076190 : }
4924 : :
4925 : :
4926 : : /*
4927 : : Enumeration := '(' IdentList ')'
4928 : :
4929 : : first symbols:lparatok
4930 : :
4931 : : cannot reachend
4932 : : */
4933 : :
4934 : 22704 : static void Enumeration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4935 : : {
4936 : 22704 : Expect (M2Reserved_lparatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4937 : 22704 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4938 : 22704 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4939 : 22704 : }
4940 : :
4941 : :
4942 : : /*
4943 : : IdentList := Ident
4944 : : % VAR
4945 : : on: BOOLEAN ;
4946 : : n : CARDINAL ; %
4947 : :
4948 : : % on := IsAutoPushOn() ;
4949 : : IF on
4950 : : THEN
4951 : : n := 1
4952 : : END %
4953 : : { ',' Ident
4954 : : % IF on
4955 : : THEN
4956 : : INC(n)
4957 : : END %
4958 : : }
4959 : : % IF on
4960 : : THEN
4961 : : PushT(n)
4962 : : END %
4963 : :
4964 : :
4965 : : first symbols:identtok
4966 : :
4967 : : cannot reachend
4968 : : */
4969 : :
4970 : 5413950 : static void IdentList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
4971 : : {
4972 : 5413950 : bool on;
4973 : 5413950 : unsigned int n;
4974 : :
4975 : 5413950 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4976 : 5413950 : on = M2Quads_IsAutoPushOn ();
4977 : 5413950 : if (on)
4978 : : {
4979 : 5413950 : n = 1;
4980 : : }
4981 : 9306965 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4982 : : {
4983 : 3893015 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4984 : 3893015 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4985 : 3893015 : if (on)
4986 : : {
4987 : 354090 : n += 1;
4988 : : }
4989 : : }
4990 : : /* while */
4991 : 5413950 : if (on)
4992 : : {
4993 : 279232 : M2Quads_PushT (n);
4994 : : }
4995 : 5413950 : }
4996 : :
4997 : :
4998 : : /*
4999 : : SubrangeType := '[' ConstExpression '..' ConstExpression
5000 : : ']'
5001 : :
5002 : : first symbols:lsbratok
5003 : :
5004 : : cannot reachend
5005 : : */
5006 : :
5007 : 81938 : static void SubrangeType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5008 : : {
5009 : 81938 : Expect (M2Reserved_lsbratok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5010 : 81938 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
5011 : 81938 : Expect (M2Reserved_periodperiodtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5012 : 81938 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
5013 : 81938 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
5014 : 81938 : }
5015 : :
5016 : :
5017 : : /*
5018 : : ArrayType := 'ARRAY' SimpleType { ',' SimpleType }
5019 : : 'OF' Type
5020 : :
5021 : : first symbols:arraytok
5022 : :
5023 : : cannot reachend
5024 : : */
5025 : :
5026 : 82694 : static void ArrayType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5027 : : {
5028 : 82694 : Expect (M2Reserved_arraytok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5029 : 82694 : SimpleType (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5030 : 165526 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5031 : : {
5032 : 138 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5033 : 138 : SimpleType (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5034 : : }
5035 : : /* while */
5036 : 82694 : Expect (M2Reserved_oftok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5037 : 82694 : Type (stopset0, stopset1, stopset2);
5038 : 82694 : }
5039 : :
5040 : :
5041 : : /*
5042 : : RecordType := 'RECORD' [ DefaultRecordAttributes ]
5043 : : FieldListSequence 'END'
5044 : :
5045 : : first symbols:recordtok
5046 : :
5047 : : cannot reachend
5048 : : */
5049 : :
5050 : 48548 : static void RecordType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5051 : : {
5052 : 48548 : Expect (M2Reserved_recordtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5053 : 48548 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
5054 : : {
5055 : 36 : DefaultRecordAttributes (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5056 : : }
5057 : 48548 : FieldListSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5058 : 48548 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5059 : 48548 : }
5060 : :
5061 : :
5062 : : /*
5063 : : DefaultRecordAttributes := ''
5064 : :
5065 : : first symbols:ldirectivetok
5066 : :
5067 : : cannot reachend
5068 : : */
5069 : :
5070 : 36 : static void DefaultRecordAttributes (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5071 : : {
5072 : 36 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5073 : 36 : AttributeExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5074 : 36 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
5075 : 36 : }
5076 : :
5077 : :
5078 : : /*
5079 : : RecordFieldPragma := [ '' ]
5080 : :
5081 : : first symbols:ldirectivetok
5082 : :
5083 : : reachend
5084 : : */
5085 : :
5086 : 221268 : static void RecordFieldPragma (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5087 : : {
5088 : 221268 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
5089 : : {
5090 : 12 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5091 : 12 : FieldPragmaExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok)) | (1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5092 : 24 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5093 : : {
5094 : 0 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5095 : 0 : FieldPragmaExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5096 : : }
5097 : : /* while */
5098 : 12 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
5099 : : }
5100 : 221268 : }
5101 : :
5102 : :
5103 : : /*
5104 : : FieldPragmaExpression :=
5105 : : % PushAutoOff %
5106 : : Ident [ '(' ConstExpression
5107 : : ')' ]
5108 : : % PopAuto %
5109 : :
5110 : :
5111 : : first symbols:identtok
5112 : :
5113 : : cannot reachend
5114 : : */
5115 : :
5116 : 12 : static void FieldPragmaExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5117 : : {
5118 : 12 : M2Quads_PushAutoOff ();
5119 : 12 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5120 : 12 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5121 : : {
5122 : 12 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5123 : 12 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5124 : 12 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5125 : : }
5126 : 12 : M2Quads_PopAuto ();
5127 : 12 : }
5128 : :
5129 : :
5130 : : /*
5131 : : AttributeExpression :=
5132 : : % PushAutoOff %
5133 : : Ident '(' ConstExpression
5134 : : ')'
5135 : : % PopAuto %
5136 : :
5137 : :
5138 : : first symbols:identtok
5139 : :
5140 : : cannot reachend
5141 : : */
5142 : :
5143 : 108 : static void AttributeExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5144 : : {
5145 : 108 : M2Quads_PushAutoOff ();
5146 : 108 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5147 : 108 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5148 : 108 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5149 : 108 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5150 : 108 : M2Quads_PopAuto ();
5151 : 108 : }
5152 : :
5153 : :
5154 : : /*
5155 : : FieldListSequence := FieldListStatement { ';' FieldListStatement }
5156 : :
5157 : : first symbols:casetok, identtok, semicolontok
5158 : :
5159 : : reachend
5160 : : */
5161 : :
5162 : 49214 : static void FieldListSequence (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5163 : : {
5164 : 49214 : FieldListStatement (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5165 : 316566 : while (M2LexBuf_currenttoken == M2Reserved_semicolontok)
5166 : : {
5167 : 218138 : Expect (M2Reserved_semicolontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5168 : 218138 : FieldListStatement (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5169 : : }
5170 : : /* while */
5171 : 49214 : }
5172 : :
5173 : :
5174 : : /*
5175 : : FieldListStatement := [ FieldList ]
5176 : :
5177 : : first symbols:identtok, casetok
5178 : :
5179 : : reachend
5180 : : */
5181 : :
5182 : 267352 : static void FieldListStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5183 : : {
5184 : 267352 : if ((M2LexBuf_currenttoken == M2Reserved_casetok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
5185 : : {
5186 : 221544 : FieldList (stopset0, stopset1, stopset2);
5187 : : }
5188 : 267352 : }
5189 : :
5190 : :
5191 : : /*
5192 : : FieldList := IdentList ':' Type RecordFieldPragma |
5193 : : 'CASE' CaseTag 'OF' Varient { '|' Varient }
5194 : : [ 'ELSE' FieldListSequence ] 'END'
5195 : :
5196 : : first symbols:casetok, identtok
5197 : :
5198 : : cannot reachend
5199 : : */
5200 : :
5201 : 221544 : static void FieldList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5202 : : {
5203 : 221544 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5204 : : {
5205 : 221268 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5206 : 221268 : Expect (M2Reserved_colontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5207 : 221268 : Type (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5208 : 221268 : RecordFieldPragma (stopset0, stopset1, stopset2);
5209 : : }
5210 : 276 : else if (M2LexBuf_currenttoken == M2Reserved_casetok)
5211 : : {
5212 : : /* avoid dangling else. */
5213 : 276 : Expect (M2Reserved_casetok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5214 : 276 : CaseTag (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5215 : 276 : Expect (M2Reserved_oftok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5216 : 276 : Varient (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5217 : 1188 : while (M2LexBuf_currenttoken == M2Reserved_bartok)
5218 : : {
5219 : 636 : Expect (M2Reserved_bartok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5220 : 636 : Varient (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok))), stopset2);
5221 : : }
5222 : : /* while */
5223 : 276 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
5224 : : {
5225 : 114 : Expect (M2Reserved_elsetok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5226 : 114 : FieldListSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5227 : : }
5228 : 276 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5229 : : }
5230 : : else
5231 : : {
5232 : : /* avoid dangling else. */
5233 : 0 : ErrorArray ((const char *) "expecting one of: {%KCASE} {%Kidentifier}", 41);
5234 : : }
5235 : 221544 : }
5236 : :
5237 : :
5238 : : /*
5239 : : TagIdent := [ Ident ]
5240 : :
5241 : : first symbols:identtok
5242 : :
5243 : : reachend
5244 : : */
5245 : :
5246 : 276 : static void TagIdent (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5247 : : {
5248 : 0 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5249 : : {
5250 : 234 : Ident (stopset0, stopset1, stopset2);
5251 : : }
5252 : 0 : }
5253 : :
5254 : :
5255 : : /*
5256 : : CaseTag := TagIdent [ ':' Qualident ]
5257 : :
5258 : : first symbols:colontok, identtok
5259 : :
5260 : : reachend
5261 : : */
5262 : :
5263 : 276 : static void CaseTag (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5264 : : {
5265 : 276 : TagIdent (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5266 : 276 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
5267 : : {
5268 : 264 : Expect (M2Reserved_colontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5269 : 264 : Qualident (stopset0, stopset1, stopset2);
5270 : : }
5271 : 276 : }
5272 : :
5273 : :
5274 : : /*
5275 : : Varient := [ VarientCaseLabelList ':' FieldListSequence ]
5276 : :
5277 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
5278 : :
5279 : : reachend
5280 : : */
5281 : :
5282 : 912 : static void Varient (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5283 : : {
5284 : 912 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
5285 : : {
5286 : 552 : VarientCaseLabelList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5287 : 552 : Expect (M2Reserved_colontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5288 : 552 : FieldListSequence (stopset0, stopset1, stopset2);
5289 : : }
5290 : 912 : }
5291 : :
5292 : :
5293 : : /*
5294 : : VarientCaseLabelList := VarientCaseLabels { ','
5295 : : VarientCaseLabels }
5296 : :
5297 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
5298 : :
5299 : : cannot reachend
5300 : : */
5301 : :
5302 : 552 : static void VarientCaseLabelList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5303 : : {
5304 : 552 : VarientCaseLabels (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5305 : 1146 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5306 : : {
5307 : 42 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5308 : 42 : VarientCaseLabels (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5309 : : }
5310 : : /* while */
5311 : 552 : }
5312 : :
5313 : :
5314 : : /*
5315 : : VarientCaseLabels := ConstExpression ( '..' ConstExpression |
5316 : :
5317 : : % epsilon %
5318 : : )
5319 : :
5320 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
5321 : :
5322 : : cannot reachend
5323 : : */
5324 : :
5325 : 594 : static void VarientCaseLabels (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5326 : : {
5327 : 594 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
5328 : 594 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
5329 : : {
5330 : 0 : Expect (M2Reserved_periodperiodtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5331 : 0 : ConstExpression (stopset0, stopset1, stopset2);
5332 : : }
5333 : : /* epsilon */
5334 : 594 : }
5335 : :
5336 : :
5337 : : /*
5338 : : SilentConstExpression :=
5339 : : % PushAutoOff %
5340 : : SilentSimpleConstExpr [
5341 : : SilentRelation SilentSimpleConstExpr ]
5342 : : % PopAuto %
5343 : :
5344 : :
5345 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5346 : :
5347 : : cannot reachend
5348 : : */
5349 : :
5350 : 0 : static void SilentConstExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5351 : : {
5352 : 0 : M2Quads_PushAutoOff ();
5353 : 0 : SilentSimpleConstExpr (stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
5354 : 0 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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))
5355 : : {
5356 : 0 : SilentRelation (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5357 : 0 : SilentSimpleConstExpr (stopset0, stopset1, stopset2);
5358 : : }
5359 : 0 : M2Quads_PopAuto ();
5360 : 0 : }
5361 : :
5362 : :
5363 : : /*
5364 : : SilentRelation := '=' | '#' | '<>' | '<' |
5365 : : '<=' | '>' | '>=' | 'IN'
5366 : :
5367 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
5368 : :
5369 : : cannot reachend
5370 : : */
5371 : :
5372 : 1410123 : static void SilentRelation (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5373 : : {
5374 : 1410123 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
5375 : : {
5376 : 493289 : Expect (M2Reserved_equaltok, stopset0, stopset1, stopset2);
5377 : : }
5378 : : else if (M2LexBuf_currenttoken == M2Reserved_hashtok)
5379 : : {
5380 : : /* avoid dangling else. */
5381 : 355472 : Expect (M2Reserved_hashtok, stopset0, stopset1, stopset2);
5382 : : }
5383 : : else if (M2LexBuf_currenttoken == M2Reserved_lessgreatertok)
5384 : : {
5385 : : /* avoid dangling else. */
5386 : 84 : Expect (M2Reserved_lessgreatertok, stopset0, stopset1, stopset2);
5387 : : }
5388 : : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
5389 : : {
5390 : : /* avoid dangling else. */
5391 : 200748 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2);
5392 : : }
5393 : : else if (M2LexBuf_currenttoken == M2Reserved_lessequaltok)
5394 : : {
5395 : : /* avoid dangling else. */
5396 : 146704 : Expect (M2Reserved_lessequaltok, stopset0, stopset1, stopset2);
5397 : : }
5398 : : else if (M2LexBuf_currenttoken == M2Reserved_greatertok)
5399 : : {
5400 : : /* avoid dangling else. */
5401 : 148782 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
5402 : : }
5403 : : else if (M2LexBuf_currenttoken == M2Reserved_greaterequaltok)
5404 : : {
5405 : : /* avoid dangling else. */
5406 : 53680 : Expect (M2Reserved_greaterequaltok, stopset0, stopset1, stopset2);
5407 : : }
5408 : : else if (M2LexBuf_currenttoken == M2Reserved_intok)
5409 : : {
5410 : : /* avoid dangling else. */
5411 : 11364 : Expect (M2Reserved_intok, stopset0, stopset1, stopset2);
5412 : : }
5413 : : else
5414 : : {
5415 : : /* avoid dangling else. */
5416 : 0 : ErrorArray ((const char *) "expecting one of: {%KIN} {%K>=} {%K>} {%K<=} {%K<} {%K<>} {%K#} {%K=}", 69);
5417 : : }
5418 : 1410123 : }
5419 : :
5420 : :
5421 : : /*
5422 : : SilentSimpleConstExpr := SilentUnaryOrConstTerm
5423 : : { SilentAddOperator SilentConstTerm }
5424 : :
5425 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5426 : :
5427 : : cannot reachend
5428 : : */
5429 : :
5430 : 0 : static void SilentSimpleConstExpr (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5431 : : {
5432 : 0 : SilentUnaryOrConstTerm (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
5433 : 0 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
5434 : : {
5435 : 0 : SilentAddOperator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5436 : 0 : SilentConstTerm (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
5437 : : }
5438 : : /* while */
5439 : 0 : }
5440 : :
5441 : :
5442 : : /*
5443 : : SilentUnaryOrConstTerm := '+' SilentConstTerm |
5444 : : '-' SilentConstTerm |
5445 : : SilentConstTerm
5446 : :
5447 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5448 : :
5449 : : cannot reachend
5450 : : */
5451 : :
5452 : 0 : static void SilentUnaryOrConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5453 : : {
5454 : 0 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
5455 : : {
5456 : 0 : Expect (M2Reserved_plustok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5457 : 0 : SilentConstTerm (stopset0, stopset1, stopset2);
5458 : : }
5459 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
5460 : : {
5461 : : /* avoid dangling else. */
5462 : 0 : Expect (M2Reserved_minustok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5463 : 0 : SilentConstTerm (stopset0, stopset1, stopset2);
5464 : : }
5465 : 0 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
5466 : : {
5467 : : /* avoid dangling else. */
5468 : 0 : SilentConstTerm (stopset0, stopset1, stopset2);
5469 : : }
5470 : : else
5471 : : {
5472 : : /* avoid dangling else. */
5473 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kinteger number} {%Kreal number} {%K__ATTRIBUTE__} {%K%{} {%Kidentifier} {%Kstring} {%K-} {%K+}", 129);
5474 : : }
5475 : 0 : }
5476 : :
5477 : :
5478 : : /*
5479 : : SilentAddOperator := '+' | '-' | 'OR'
5480 : :
5481 : : first symbols:ortok, minustok, plustok
5482 : :
5483 : : cannot reachend
5484 : : */
5485 : :
5486 : 0 : static void SilentAddOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5487 : : {
5488 : 0 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
5489 : : {
5490 : 0 : Expect (M2Reserved_plustok, stopset0, stopset1, stopset2);
5491 : : }
5492 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
5493 : : {
5494 : : /* avoid dangling else. */
5495 : 0 : Expect (M2Reserved_minustok, stopset0, stopset1, stopset2);
5496 : : }
5497 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_ortok)
5498 : : {
5499 : : /* avoid dangling else. */
5500 : 0 : Expect (M2Reserved_ortok, stopset0, stopset1, stopset2);
5501 : : }
5502 : : else
5503 : : {
5504 : : /* avoid dangling else. */
5505 : 0 : ErrorArray ((const char *) "expecting one of: {%KOR} {%K-} {%K+}", 36);
5506 : : }
5507 : 0 : }
5508 : :
5509 : :
5510 : : /*
5511 : : SilentConstTerm := SilentConstFactor { SilentMulOperator
5512 : : SilentConstFactor }
5513 : :
5514 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok
5515 : :
5516 : : cannot reachend
5517 : : */
5518 : :
5519 : 0 : static void SilentConstTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5520 : : {
5521 : 0 : SilentConstFactor (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
5522 : 0 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
5523 : : {
5524 : 0 : SilentMulOperator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5525 : 0 : SilentConstFactor (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
5526 : : }
5527 : : /* while */
5528 : 0 : }
5529 : :
5530 : :
5531 : : /*
5532 : : SilentMulOperator := '*' | '/' | 'DIV' |
5533 : : 'MOD' | 'REM' | 'AND' |
5534 : : '&'
5535 : :
5536 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
5537 : :
5538 : : cannot reachend
5539 : : */
5540 : :
5541 : 0 : static void SilentMulOperator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5542 : : {
5543 : 0 : if (M2LexBuf_currenttoken == M2Reserved_timestok)
5544 : : {
5545 : 0 : Expect (M2Reserved_timestok, stopset0, stopset1, stopset2);
5546 : : }
5547 : : else if (M2LexBuf_currenttoken == M2Reserved_dividetok)
5548 : : {
5549 : : /* avoid dangling else. */
5550 : 0 : Expect (M2Reserved_dividetok, stopset0, stopset1, stopset2);
5551 : : }
5552 : : else if (M2LexBuf_currenttoken == M2Reserved_divtok)
5553 : : {
5554 : : /* avoid dangling else. */
5555 : 0 : Expect (M2Reserved_divtok, stopset0, stopset1, stopset2);
5556 : : }
5557 : : else if (M2LexBuf_currenttoken == M2Reserved_modtok)
5558 : : {
5559 : : /* avoid dangling else. */
5560 : 0 : Expect (M2Reserved_modtok, stopset0, stopset1, stopset2);
5561 : : }
5562 : : else if (M2LexBuf_currenttoken == M2Reserved_remtok)
5563 : : {
5564 : : /* avoid dangling else. */
5565 : 0 : Expect (M2Reserved_remtok, stopset0, stopset1, stopset2);
5566 : : }
5567 : : else if (M2LexBuf_currenttoken == M2Reserved_andtok)
5568 : : {
5569 : : /* avoid dangling else. */
5570 : 0 : Expect (M2Reserved_andtok, stopset0, stopset1, stopset2);
5571 : : }
5572 : : else if (M2LexBuf_currenttoken == M2Reserved_ambersandtok)
5573 : : {
5574 : : /* avoid dangling else. */
5575 : 0 : Expect (M2Reserved_ambersandtok, stopset0, stopset1, stopset2);
5576 : : }
5577 : : else
5578 : : {
5579 : : /* avoid dangling else. */
5580 : 0 : ErrorArray ((const char *) "expecting one of: {%K&} {%KAND} {%KREM} {%KMOD} {%KDIV} {%K/} {%K*}", 67);
5581 : : }
5582 : 0 : }
5583 : :
5584 : :
5585 : : /*
5586 : : SilentConstFactor := Number | SilentConstString |
5587 : : SilentConstSetOrQualidentOrFunction |
5588 : : '(' SilentConstExpression ')' |
5589 : : 'NOT' SilentConstFactor |
5590 : : SilentConstAttribute
5591 : :
5592 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok
5593 : :
5594 : : cannot reachend
5595 : : */
5596 : :
5597 : 0 : static void SilentConstFactor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5598 : : {
5599 : 0 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
5600 : : {
5601 : 0 : Number (stopset0, stopset1, stopset2);
5602 : : }
5603 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
5604 : : {
5605 : : /* avoid dangling else. */
5606 : 0 : SilentConstString (stopset0, stopset1, stopset2);
5607 : : }
5608 : : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
5609 : : {
5610 : : /* avoid dangling else. */
5611 : 0 : SilentConstSetOrQualidentOrFunction (stopset0, stopset1, stopset2);
5612 : : }
5613 : : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5614 : : {
5615 : : /* avoid dangling else. */
5616 : 0 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5617 : 0 : SilentConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5618 : 0 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5619 : : }
5620 : : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
5621 : : {
5622 : : /* avoid dangling else. */
5623 : 0 : Expect (M2Reserved_nottok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5624 : 0 : SilentConstFactor (stopset0, stopset1, stopset2);
5625 : : }
5626 : : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
5627 : : {
5628 : : /* avoid dangling else. */
5629 : 0 : SilentConstAttribute (stopset0, stopset1, stopset2);
5630 : : }
5631 : : else
5632 : : {
5633 : : /* avoid dangling else. */
5634 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%KNOT} {%K(} {%K%{} {%Kidentifier} {%Kstring} {%Kinteger number} {%Kreal number}", 117);
5635 : : }
5636 : 0 : }
5637 : :
5638 : :
5639 : : /*
5640 : : SilentConstString := string
5641 : :
5642 : : first symbols:stringtok
5643 : :
5644 : : cannot reachend
5645 : : */
5646 : :
5647 : 0 : static void SilentConstString (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5648 : : {
5649 : 0 : string (stopset0, stopset1, stopset2);
5650 : 0 : }
5651 : :
5652 : :
5653 : : /*
5654 : : SilentConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
5655 : : '(' '(' SilentConstAttributeExpression
5656 : : ')' ')'
5657 : :
5658 : : first symbols:attributetok
5659 : :
5660 : : cannot reachend
5661 : : */
5662 : :
5663 : 0 : static void SilentConstAttribute (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5664 : : {
5665 : 0 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
5666 : 0 : Expect (M2Reserved_builtintok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5667 : 0 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5668 : 0 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lesstok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5669 : 0 : SilentConstAttributeExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5670 : 0 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5671 : 0 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5672 : 0 : }
5673 : :
5674 : :
5675 : : /*
5676 : : SilentConstAttributeExpression := Ident |
5677 : : '<' Ident ','
5678 : : SilentConstString
5679 : : '>'
5680 : :
5681 : : first symbols:lesstok, identtok
5682 : :
5683 : : cannot reachend
5684 : : */
5685 : :
5686 : 0 : static void SilentConstAttributeExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5687 : : {
5688 : 0 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5689 : : {
5690 : 0 : Ident (stopset0, stopset1, stopset2);
5691 : : }
5692 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
5693 : : {
5694 : : /* avoid dangling else. */
5695 : 0 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5696 : 0 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5697 : 0 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5698 : 0 : SilentConstString (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_greatertok-M2Reserved_eoftok))), stopset1, stopset2);
5699 : 0 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
5700 : : }
5701 : : else
5702 : : {
5703 : : /* avoid dangling else. */
5704 : 0 : ErrorArray ((const char *) "expecting one of: {%K<} {%Kidentifier}", 38);
5705 : : }
5706 : 0 : }
5707 : :
5708 : :
5709 : : /*
5710 : : SilentComponentElement := SilentConstExpression
5711 : : [ '..' SilentConstExpression ]
5712 : :
5713 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5714 : :
5715 : : cannot reachend
5716 : : */
5717 : :
5718 : 0 : static void SilentComponentElement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5719 : : {
5720 : 0 : SilentConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
5721 : 0 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
5722 : : {
5723 : 0 : Expect (M2Reserved_periodperiodtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5724 : 0 : SilentConstExpression (stopset0, stopset1, stopset2);
5725 : : }
5726 : 0 : }
5727 : :
5728 : :
5729 : : /*
5730 : : SilentComponentValue := SilentComponentElement [
5731 : : 'BY' SilentConstExpression ]
5732 : :
5733 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5734 : :
5735 : : cannot reachend
5736 : : */
5737 : :
5738 : 0 : static void SilentComponentValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5739 : : {
5740 : 0 : SilentComponentElement (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok))), stopset2);
5741 : 0 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
5742 : : {
5743 : 0 : Expect (M2Reserved_bytok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5744 : 0 : SilentConstExpression (stopset0, stopset1, stopset2);
5745 : : }
5746 : 0 : }
5747 : :
5748 : :
5749 : : /*
5750 : : SilentArraySetRecordValue := SilentComponentValue
5751 : : { ',' SilentComponentValue }
5752 : :
5753 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5754 : :
5755 : : cannot reachend
5756 : : */
5757 : :
5758 : 0 : static void SilentArraySetRecordValue (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5759 : : {
5760 : 0 : SilentComponentValue (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5761 : 0 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5762 : : {
5763 : 0 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5764 : 0 : SilentComponentValue (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5765 : : }
5766 : : /* while */
5767 : 0 : }
5768 : :
5769 : :
5770 : : /*
5771 : : SilentConstructor := '{'
5772 : : % SilentBuildConstructor %
5773 : : [ SilentArraySetRecordValue ]
5774 : : '}'
5775 : :
5776 : : first symbols:lcbratok
5777 : :
5778 : : cannot reachend
5779 : : */
5780 : :
5781 : 0 : static void SilentConstructor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5782 : : {
5783 : 0 : Expect (M2Reserved_lcbratok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5784 : 0 : M2Quads_SilentBuildConstructor ();
5785 : 0 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
5786 : : {
5787 : 0 : SilentArraySetRecordValue (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rcbratok-M2Reserved_eoftok))), stopset1, stopset2);
5788 : : }
5789 : 0 : Expect (M2Reserved_rcbratok, stopset0, stopset1, stopset2);
5790 : 0 : }
5791 : :
5792 : :
5793 : : /*
5794 : : SilentConstSetOrQualidentOrFunction := SilentConstructor |
5795 : : Qualident
5796 : : [ SilentConstructor |
5797 : : SilentActualParameters ]
5798 : :
5799 : : first symbols:identtok, lcbratok
5800 : :
5801 : : cannot reachend
5802 : : */
5803 : :
5804 : 0 : static void SilentConstSetOrQualidentOrFunction (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5805 : : {
5806 : 0 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
5807 : : {
5808 : 0 : SilentConstructor (stopset0, stopset1, stopset2);
5809 : : }
5810 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
5811 : : {
5812 : : /* avoid dangling else. */
5813 : 0 : Qualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5814 : 0 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0)))
5815 : : {
5816 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
5817 : : /* seen optional [ | ] expression */
5818 : 0 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
5819 : : {
5820 : 0 : SilentConstructor (stopset0, stopset1, stopset2);
5821 : : }
5822 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5823 : : {
5824 : : /* avoid dangling else. */
5825 : 0 : SilentActualParameters (stopset0, stopset1, stopset2);
5826 : : }
5827 : : else
5828 : : {
5829 : : /* avoid dangling else. */
5830 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K%{}", 30);
5831 : : }
5832 : : }
5833 : : /* end of optional [ | ] expression */
5834 : : }
5835 : : else
5836 : : {
5837 : : /* avoid dangling else. */
5838 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%K%{}", 39);
5839 : : }
5840 : 0 : }
5841 : :
5842 : :
5843 : : /*
5844 : : SilentActualParameters := '(' [ SilentExpList ]
5845 : : ')'
5846 : :
5847 : : first symbols:lparatok
5848 : :
5849 : : cannot reachend
5850 : : */
5851 : :
5852 : 0 : static void SilentActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5853 : : {
5854 : 0 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5855 : 0 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
5856 : : {
5857 : 0 : SilentExpList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5858 : : }
5859 : 0 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5860 : 0 : }
5861 : :
5862 : :
5863 : : /*
5864 : : SilentExpList := SilentConstExpression { ',' SilentConstExpression }
5865 : :
5866 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5867 : :
5868 : : cannot reachend
5869 : : */
5870 : :
5871 : 0 : static void SilentExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5872 : : {
5873 : 0 : SilentConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5874 : 0 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5875 : : {
5876 : 0 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
5877 : 0 : SilentConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5878 : : }
5879 : : /* while */
5880 : 0 : }
5881 : :
5882 : :
5883 : : /*
5884 : : SetType := ( 'SET' | 'PACKEDSET' ) 'OF' SimpleType
5885 : :
5886 : : first symbols:oftok, packedsettok, settok
5887 : :
5888 : : cannot reachend
5889 : : */
5890 : :
5891 : 1802 : static void SetType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5892 : : {
5893 : 1802 : if (M2LexBuf_currenttoken == M2Reserved_settok)
5894 : : {
5895 : 1706 : Expect (M2Reserved_settok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5896 : : }
5897 : 96 : else if (M2LexBuf_currenttoken == M2Reserved_packedsettok)
5898 : : {
5899 : : /* avoid dangling else. */
5900 : 96 : Expect (M2Reserved_packedsettok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5901 : : }
5902 : : else
5903 : : {
5904 : : /* avoid dangling else. */
5905 : 0 : ErrorArray ((const char *) "expecting one of: {%KPACKEDSET} {%KSET}", 39);
5906 : : }
5907 : 1802 : Expect (M2Reserved_oftok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5908 : 1802 : SimpleType (stopset0, stopset1, stopset2);
5909 : 1802 : }
5910 : :
5911 : :
5912 : : /*
5913 : : PointerType := 'POINTER' 'TO' Type
5914 : :
5915 : : first symbols:pointertok
5916 : :
5917 : : cannot reachend
5918 : : */
5919 : :
5920 : 76166 : static void PointerType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5921 : : {
5922 : 76166 : Expect (M2Reserved_pointertok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok))));
5923 : 76166 : Expect (M2Reserved_totok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5924 : 76166 : Type (stopset0, stopset1, stopset2);
5925 : 76166 : }
5926 : :
5927 : :
5928 : : /*
5929 : : ProcedureType := 'PROCEDURE' [ FormalTypeList ]
5930 : :
5931 : : first symbols:proceduretok
5932 : :
5933 : : cannot reachend
5934 : : */
5935 : :
5936 : 53238 : static void ProcedureType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5937 : : {
5938 : 53238 : Expect (M2Reserved_proceduretok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5939 : 53238 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5940 : : {
5941 : 39263 : FormalTypeList (stopset0, stopset1, stopset2);
5942 : : }
5943 : 53238 : }
5944 : :
5945 : :
5946 : : /*
5947 : : FormalTypeList := '(' ( ')' FormalReturn |
5948 : : ProcedureParameters ')'
5949 : : FormalReturn )
5950 : :
5951 : : first symbols:lparatok
5952 : :
5953 : : cannot reachend
5954 : : */
5955 : :
5956 : 39263 : static void FormalTypeList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5957 : : {
5958 : 39263 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5959 : 39263 : if (M2LexBuf_currenttoken == M2Reserved_rparatok)
5960 : : {
5961 : 5368 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5962 : 5368 : FormalReturn (stopset0, stopset1, stopset2);
5963 : : }
5964 : 33895 : else if ((M2LexBuf_currenttoken == M2Reserved_arraytok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
5965 : : {
5966 : : /* avoid dangling else. */
5967 : 33895 : ProcedureParameters (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5968 : 33895 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5969 : 33895 : FormalReturn (stopset0, stopset1, stopset2);
5970 : : }
5971 : : else
5972 : : {
5973 : : /* avoid dangling else. */
5974 : 0 : ErrorArray ((const char *) "expecting one of: {%KVAR} {%K...} {%KARRAY} {%Kidentifier} {%K)}", 64);
5975 : : }
5976 : 39263 : }
5977 : :
5978 : :
5979 : : /*
5980 : : FormalReturn := [ ':' OptReturnType ]
5981 : :
5982 : : first symbols:colontok
5983 : :
5984 : : reachend
5985 : : */
5986 : :
5987 : 2728308 : static void FormalReturn (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
5988 : : {
5989 : 2728308 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
5990 : : {
5991 : 1266566 : Expect (M2Reserved_colontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5992 : 1266566 : OptReturnType (stopset0, stopset1, stopset2);
5993 : : }
5994 : 2728308 : }
5995 : :
5996 : :
5997 : : /*
5998 : : OptReturnType := '[' Qualident ']' |
5999 : : Qualident
6000 : :
6001 : : first symbols:identtok, lsbratok
6002 : :
6003 : : cannot reachend
6004 : : */
6005 : :
6006 : 1266566 : static void OptReturnType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6007 : : {
6008 : 1266566 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6009 : : {
6010 : 121146 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6011 : 121146 : Qualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6012 : 121146 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6013 : : }
6014 : 1145420 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
6015 : : {
6016 : : /* avoid dangling else. */
6017 : 1145420 : Qualident (stopset0, stopset1, stopset2);
6018 : : }
6019 : : else
6020 : : {
6021 : : /* avoid dangling else. */
6022 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%K[}", 38);
6023 : : }
6024 : 1266566 : }
6025 : :
6026 : :
6027 : : /*
6028 : : ProcedureParameters := ProcedureParameter { ','
6029 : : ProcedureParameter }
6030 : :
6031 : : first symbols:identtok, arraytok, periodperiodperiodtok, vartok
6032 : :
6033 : : cannot reachend
6034 : : */
6035 : :
6036 : 33895 : static void ProcedureParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6037 : : {
6038 : 33895 : ProcedureParameter (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6039 : 109782 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6040 : : {
6041 : 41992 : Expect (M2Reserved_commatok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6042 : 41992 : ProcedureParameter (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6043 : : }
6044 : : /* while */
6045 : 33895 : }
6046 : :
6047 : :
6048 : : /*
6049 : : ProcedureParameter := '...' | 'VAR' FormalType |
6050 : : FormalType
6051 : :
6052 : : first symbols:arraytok, identtok, vartok, periodperiodperiodtok
6053 : :
6054 : : cannot reachend
6055 : : */
6056 : :
6057 : 75887 : static void ProcedureParameter (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6058 : : {
6059 : 75887 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
6060 : : {
6061 : 0 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
6062 : : }
6063 : 75887 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
6064 : : {
6065 : : /* avoid dangling else. */
6066 : 6008 : Expect (M2Reserved_vartok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6067 : 6008 : FormalType (stopset0, stopset1, stopset2);
6068 : : }
6069 : 69879 : else if ((M2LexBuf_currenttoken == M2Reserved_arraytok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
6070 : : {
6071 : : /* avoid dangling else. */
6072 : 69879 : FormalType (stopset0, stopset1, stopset2);
6073 : : }
6074 : : else
6075 : : {
6076 : : /* avoid dangling else. */
6077 : 0 : ErrorArray ((const char *) "expecting one of: {%KARRAY} {%Kidentifier} {%KVAR} {%K...}", 58);
6078 : : }
6079 : 75887 : }
6080 : :
6081 : :
6082 : : /*
6083 : : VarIdent := Ident [ '[' ConstExpression ']' ]
6084 : :
6085 : : first symbols:identtok
6086 : :
6087 : : cannot reachend
6088 : : */
6089 : :
6090 : 934870 : static void VarIdent (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6091 : : {
6092 : 934870 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6093 : 934870 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6094 : : {
6095 : 54 : Expect (M2Reserved_lsbratok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
6096 : 54 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6097 : 54 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6098 : : }
6099 : 934870 : }
6100 : :
6101 : :
6102 : : /*
6103 : : VarIdentList := VarIdent { ',' VarIdent }
6104 : :
6105 : : first symbols:identtok
6106 : :
6107 : : cannot reachend
6108 : : */
6109 : :
6110 : 701752 : static void VarIdentList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6111 : : {
6112 : 701752 : VarIdent (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6113 : 1636622 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6114 : : {
6115 : 233118 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6116 : 233118 : VarIdent (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6117 : : }
6118 : : /* while */
6119 : 701752 : }
6120 : :
6121 : :
6122 : : /*
6123 : : VariableDeclaration := VarIdentList ':' Type Alignment
6124 : :
6125 : : first symbols:identtok
6126 : :
6127 : : cannot reachend
6128 : : */
6129 : :
6130 : 701752 : static void VariableDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6131 : : {
6132 : 701752 : VarIdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6133 : 701752 : Expect (M2Reserved_colontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6134 : 701752 : Type (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
6135 : 701752 : Alignment (stopset0, stopset1, stopset2);
6136 : 701752 : }
6137 : :
6138 : :
6139 : : /*
6140 : : Designator := Qualident { SubDesignator }
6141 : :
6142 : : first symbols:identtok
6143 : :
6144 : : cannot reachend
6145 : : */
6146 : :
6147 : 4203912 : static void Designator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6148 : : {
6149 : 4203912 : Qualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
6150 : 9151550 : while ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))))) != 0)))
6151 : : {
6152 : 743726 : SubDesignator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))), stopset1, stopset2);
6153 : : }
6154 : : /* while */
6155 : 4203912 : }
6156 : :
6157 : :
6158 : : /*
6159 : : SubDesignator := '.' Ident | '[' ArrayExpList ']' |
6160 : : '^'
6161 : :
6162 : : first symbols:uparrowtok, lsbratok, periodtok
6163 : :
6164 : : cannot reachend
6165 : : */
6166 : :
6167 : 1970840 : static void SubDesignator (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6168 : : {
6169 : 1970840 : if (M2LexBuf_currenttoken == M2Reserved_periodtok)
6170 : : {
6171 : 648458 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6172 : 648458 : Ident (stopset0, stopset1, stopset2);
6173 : : }
6174 : 1322382 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6175 : : {
6176 : : /* avoid dangling else. */
6177 : 591532 : Expect (M2Reserved_lsbratok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6178 : 591532 : ArrayExpList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6179 : 591532 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6180 : : }
6181 : 730850 : else if (M2LexBuf_currenttoken == M2Reserved_uparrowtok)
6182 : : {
6183 : : /* avoid dangling else. */
6184 : 730850 : Expect (M2Reserved_uparrowtok, stopset0, stopset1, stopset2);
6185 : : }
6186 : : else
6187 : : {
6188 : : /* avoid dangling else. */
6189 : 0 : ErrorArray ((const char *) "expecting one of: {%K^} {%K[} {%K.}", 35);
6190 : : }
6191 : 1970840 : }
6192 : :
6193 : :
6194 : : /*
6195 : : ArrayExpList := Expression { ',' Expression }
6196 : :
6197 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
6198 : :
6199 : : cannot reachend
6200 : : */
6201 : :
6202 : 591532 : static void ArrayExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6203 : : {
6204 : 591532 : Expression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6205 : 1183514 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6206 : : {
6207 : 450 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6208 : 450 : Expression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6209 : : }
6210 : : /* while */
6211 : 591532 : }
6212 : :
6213 : :
6214 : : /*
6215 : : ExpList := Expression { ',' Expression }
6216 : :
6217 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
6218 : :
6219 : : cannot reachend
6220 : : */
6221 : :
6222 : 3540714 : static void ExpList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6223 : : {
6224 : 3540714 : Expression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6225 : 10216922 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6226 : : {
6227 : 3135494 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6228 : 3135494 : Expression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6229 : : }
6230 : : /* while */
6231 : 3540714 : }
6232 : :
6233 : :
6234 : : /*
6235 : : Expression := SimpleExpression [ SilentRelation
6236 : : SimpleExpression ]
6237 : :
6238 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
6239 : :
6240 : : cannot reachend
6241 : : */
6242 : :
6243 : 12122903 : static void Expression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6244 : : {
6245 : 12122903 : SimpleExpression (stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
6246 : 12122903 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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))
6247 : : {
6248 : 1410123 : SilentRelation (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6249 : 1410123 : SimpleExpression (stopset0, stopset1, stopset2);
6250 : : }
6251 : 12122903 : }
6252 : :
6253 : :
6254 : : /*
6255 : : SimpleExpression := UnaryOrTerm { AddOperator Term }
6256 : :
6257 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
6258 : :
6259 : : cannot reachend
6260 : : */
6261 : :
6262 : 13533026 : static void SimpleExpression (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6263 : : {
6264 : 13533026 : UnaryOrTerm (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
6265 : 27445594 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
6266 : : {
6267 : 379542 : AddOperator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6268 : 379542 : Term (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
6269 : : }
6270 : : /* while */
6271 : 13533026 : }
6272 : :
6273 : :
6274 : : /*
6275 : : UnaryOrTerm := '+' Term | '-' Term |
6276 : : Term
6277 : :
6278 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
6279 : :
6280 : : cannot reachend
6281 : : */
6282 : :
6283 : 13533026 : static void UnaryOrTerm (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6284 : : {
6285 : 13533026 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
6286 : : {
6287 : 144 : Expect (M2Reserved_plustok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6288 : 144 : Term (stopset0, stopset1, stopset2);
6289 : : }
6290 : 13532882 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
6291 : : {
6292 : : /* avoid dangling else. */
6293 : 57126 : Expect (M2Reserved_minustok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6294 : 57126 : Term (stopset0, stopset1, stopset2);
6295 : : }
6296 : 13475756 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6297 : : {
6298 : : /* avoid dangling else. */
6299 : 13475756 : Term (stopset0, stopset1, stopset2);
6300 : : }
6301 : : else
6302 : : {
6303 : : /* avoid dangling else. */
6304 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kstring} {%Kinteger number} {%Kreal number} {%Kidentifier} {%K%{} {%K-} {%K+}", 111);
6305 : : }
6306 : 13533026 : }
6307 : :
6308 : :
6309 : : /*
6310 : : Term := Factor { MulOperator Factor }
6311 : :
6312 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok
6313 : :
6314 : : cannot reachend
6315 : : */
6316 : :
6317 : 13912568 : static void Term (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6318 : : {
6319 : 13912568 : Factor (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
6320 : 28238992 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
6321 : : {
6322 : 413856 : MulOperator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6323 : 413856 : Factor (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
6324 : : }
6325 : : /* while */
6326 : 13912568 : }
6327 : :
6328 : :
6329 : : /*
6330 : : Factor := Number | string | SetOrDesignatorOrFunction |
6331 : : '(' Expression ')' |
6332 : : 'NOT' ( Factor | ConstAttribute )
6333 : :
6334 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok
6335 : :
6336 : : cannot reachend
6337 : : */
6338 : :
6339 : 14326424 : static void Factor (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6340 : : {
6341 : 14398018 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
6342 : : {
6343 : 1103130 : Number (stopset0, stopset1, stopset2);
6344 : : }
6345 : 13294888 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
6346 : : {
6347 : : /* avoid dangling else. */
6348 : 877072 : string (stopset0, stopset1, stopset2);
6349 : : }
6350 : 12417816 : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
6351 : : {
6352 : : /* avoid dangling else. */
6353 : 11416606 : SetOrDesignatorOrFunction (stopset0, stopset1, stopset2);
6354 : : }
6355 : 1001210 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
6356 : : {
6357 : : /* avoid dangling else. */
6358 : 929616 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6359 : 929616 : Expression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6360 : 929616 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
6361 : : }
6362 : 71594 : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
6363 : : {
6364 : : /* avoid dangling else. */
6365 : 71594 : Expect (M2Reserved_nottok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6366 : 71594 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6367 : : {
6368 : : Factor (stopset0, stopset1, stopset2);
6369 : : }
6370 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
6371 : : {
6372 : : /* avoid dangling else. */
6373 : 0 : ConstAttribute (stopset0, stopset1, stopset2);
6374 : : }
6375 : : else
6376 : : {
6377 : : /* avoid dangling else. */
6378 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%Kreal number} {%Kinteger number} {%Kstring} {%K(} {%KNOT} {%K%{} {%Kidentifier}", 117);
6379 : : }
6380 : : }
6381 : : else
6382 : : {
6383 : : /* avoid dangling else. */
6384 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kidentifier} {%K%{} {%Kstring} {%Kinteger number} {%Kreal number}", 99);
6385 : : }
6386 : 14326424 : }
6387 : :
6388 : :
6389 : : /*
6390 : : PushQualident :=
6391 : : % VAR name : Name ;
6392 : : init, ip1 : CARDINAL ;
6393 : : tok, tokstart: CARDINAL ; %
6394 : :
6395 : : % PushAutoOn %
6396 : : Ident
6397 : : % IF IsAutoPushOn()
6398 : : THEN
6399 : : PopTtok (name, tokstart) ;
6400 : : tok := tokstart ;
6401 : : init := GetSym (name) ;
6402 : : IF init=NulSym
6403 : : THEN
6404 : : PushTFntok (NulSym, NulSym, name, tok)
6405 : : ELSE
6406 : : WHILE IsDefImp (init) OR IsModule (init) DO
6407 : : IF currenttoken # periodtok
6408 : : THEN
6409 : : ErrorArrayAt ("expecting '.' after module in the construction of a qualident", tok) ;
6410 : : IF tok#tokstart
6411 : : THEN
6412 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
6413 : : END ;
6414 : : PushTtok (init, tok) ;
6415 : : PopAuto ;
6416 : : RETURN
6417 : : ELSE
6418 : : Expect (periodtok, stopset0, stopset1, stopset2 + SetOfStop2{identtok}) ;
6419 : : StartScope (init) ;
6420 : : Ident (stopset0, stopset1, stopset2) ;
6421 : : PopTtok (name, tok) ;
6422 : : ip1 := GetSym (name) ;
6423 : : IF ip1 = NulSym
6424 : : THEN
6425 : : ErrorArrayAt ("unknown ident in the construction of a qualident", tok) ;
6426 : : EndScope ;
6427 : : IF tok#tokstart
6428 : : THEN
6429 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
6430 : : END ;
6431 : : PushTFntok (NulSym, NulSym, name, tok) ;
6432 : : PopAuto ;
6433 : : RETURN
6434 : : ELSE
6435 : : PutIncluded (ip1)
6436 : : END ;
6437 : : EndScope ;
6438 : : CheckCanBeImported (init, ip1) ;
6439 : : init := ip1
6440 : : END
6441 : : END ;
6442 : : IF tok#tokstart
6443 : : THEN
6444 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
6445 : : END ;
6446 : : IF IsProcedure (init) OR IsProcType (init)
6447 : : THEN
6448 : : PushTtok (init, tok)
6449 : : ELSE
6450 : : PushTFtok (init, GetType(init), tok)
6451 : : END
6452 : : END
6453 : : ELSE %
6454 : : { '.' Ident }
6455 : : % END %
6456 : :
6457 : : % PopAuto %
6458 : :
6459 : :
6460 : : first symbols:identtok
6461 : :
6462 : : cannot reachend
6463 : : */
6464 : :
6465 : 11546785 : static void PushQualident (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6466 : : {
6467 : 11546785 : NameKey_Name name;
6468 : 11546785 : unsigned int init;
6469 : 11546785 : unsigned int ip1;
6470 : 11546785 : unsigned int tok;
6471 : 11546785 : unsigned int tokstart;
6472 : :
6473 : 11546785 : M2Quads_PushAutoOn ();
6474 : 11546785 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
6475 : 11546785 : if (M2Quads_IsAutoPushOn ())
6476 : : {
6477 : 11546785 : M2Quads_PopTtok (&name, &tokstart);
6478 : 11546785 : tok = tokstart;
6479 : 11546785 : init = SymbolTable_GetSym (name);
6480 : 11546785 : if (init == SymbolTable_NulSym)
6481 : : {
6482 : 531098 : M2Quads_PushTFntok (static_cast<unsigned int> (SymbolTable_NulSym), static_cast<unsigned int> (SymbolTable_NulSym), name, tok);
6483 : : }
6484 : : else
6485 : : {
6486 : 11262997 : while ((SymbolTable_IsDefImp (init)) || (SymbolTable_IsModule (init)))
6487 : : {
6488 : 247328 : if (M2LexBuf_currenttoken != M2Reserved_periodtok)
6489 : : {
6490 : 0 : ErrorArrayAt ((const char *) "expecting '.' after module in the construction of a qualident", 61, tok);
6491 : 0 : if (tok != tokstart)
6492 : : {
6493 : 0 : tok = M2LexBuf_MakeVirtualTok (tokstart, tokstart, tok);
6494 : : }
6495 : 0 : M2Quads_PushTtok (init, tok);
6496 : 0 : M2Quads_PopAuto ();
6497 : 18 : return;
6498 : : }
6499 : : else
6500 : : {
6501 : 247328 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6502 : 247328 : SymbolTable_StartScope (init);
6503 : 247328 : Ident (stopset0, stopset1, stopset2);
6504 : 247328 : M2Quads_PopTtok (&name, &tok);
6505 : 247328 : ip1 = SymbolTable_GetSym (name);
6506 : 247328 : if (ip1 == SymbolTable_NulSym)
6507 : : {
6508 : 18 : ErrorArrayAt ((const char *) "unknown ident in the construction of a qualident", 48, tok);
6509 : 18 : SymbolTable_EndScope ();
6510 : 18 : if (tok != tokstart)
6511 : : {
6512 : 18 : tok = M2LexBuf_MakeVirtualTok (tokstart, tokstart, tok);
6513 : : }
6514 : 18 : M2Quads_PushTFntok (static_cast<unsigned int> (SymbolTable_NulSym), static_cast<unsigned int> (SymbolTable_NulSym), name, tok);
6515 : 18 : M2Quads_PopAuto ();
6516 : 18 : return;
6517 : : }
6518 : : else
6519 : : {
6520 : 247310 : SymbolTable_PutIncluded (ip1);
6521 : : }
6522 : 247310 : SymbolTable_EndScope ();
6523 : 247310 : P3SymBuild_CheckCanBeImported (init, ip1);
6524 : 247310 : init = ip1;
6525 : : }
6526 : : }
6527 : 11015669 : if (tok != tokstart)
6528 : : {
6529 : 247310 : tok = M2LexBuf_MakeVirtualTok (tokstart, tokstart, tok);
6530 : : }
6531 : 11015669 : if ((SymbolTable_IsProcedure (init)) || (SymbolTable_IsProcType (init)))
6532 : : {
6533 : 1858116 : M2Quads_PushTtok (init, tok);
6534 : : }
6535 : : else
6536 : : {
6537 : 9157553 : M2Quads_PushTFtok (init, SymbolTable_GetType (init), tok);
6538 : : }
6539 : : }
6540 : : }
6541 : : else
6542 : : {
6543 : 0 : while (M2LexBuf_currenttoken == M2Reserved_periodtok)
6544 : : {
6545 : 0 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6546 : 0 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
6547 : : }
6548 : : /* while */
6549 : : }
6550 : 11546767 : M2Quads_PopAuto ();
6551 : : }
6552 : :
6553 : :
6554 : : /*
6555 : : ConstructorOrSimpleDes := Constructor |
6556 : :
6557 : : % PopNothing %
6558 : : SimpleDes [ ActualParameters ]
6559 : :
6560 : : first symbols:lparatok, uparrowtok, lsbratok, periodtok, lcbratok
6561 : :
6562 : : reachend
6563 : : */
6564 : :
6565 : 2635112 : static void ConstructorOrSimpleDes (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6566 : : {
6567 : 2635112 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
6568 : : {
6569 : 14928 : Constructor (stopset0, stopset1, stopset2);
6570 : : }
6571 : : else
6572 : : {
6573 : 2620184 : M2Quads_PopNothing ();
6574 : 2620184 : SimpleDes (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6575 : 2620184 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
6576 : : {
6577 : 1815036 : ActualParameters (stopset0, stopset1, stopset2);
6578 : : }
6579 : : }
6580 : 2635112 : }
6581 : :
6582 : :
6583 : : /*
6584 : : SetOrDesignatorOrFunction :=
6585 : : % VAR tokpos: CARDINAL ; %
6586 : :
6587 : : % tokpos := GetTokenNo () %
6588 : :
6589 : : % PushAutoOff %
6590 : : ( PushQualident ( ConstructorOrSimpleDes |
6591 : :
6592 : : % PopNothing %
6593 : : ) |
6594 : :
6595 : : % BuildTypeForConstructor (tokpos) %
6596 : : Constructor )
6597 : : % PopAuto %
6598 : :
6599 : :
6600 : : first symbols:lcbratok, identtok
6601 : :
6602 : : cannot reachend
6603 : : */
6604 : :
6605 : 11416606 : static void SetOrDesignatorOrFunction (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6606 : : {
6607 : 11416606 : unsigned int tokpos;
6608 : :
6609 : 11416606 : tokpos = M2LexBuf_GetTokenNo ();
6610 : 11416606 : M2Quads_PushAutoOff ();
6611 : 11416606 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
6612 : : {
6613 : 11416308 : PushQualident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
6614 : 11416308 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))))) != 0)))
6615 : : {
6616 : 2635112 : ConstructorOrSimpleDes (stopset0, stopset1, stopset2);
6617 : : }
6618 : : else
6619 : : {
6620 : 8781196 : M2Quads_PopNothing ();
6621 : : }
6622 : : }
6623 : : else
6624 : : {
6625 : 298 : M2Quads_BuildTypeForConstructor (tokpos);
6626 : 298 : Constructor (stopset0, stopset1, stopset2);
6627 : : }
6628 : 11416606 : M2Quads_PopAuto ();
6629 : 11416606 : }
6630 : :
6631 : :
6632 : : /*
6633 : : SimpleDes := { SubDesignator }
6634 : :
6635 : : first symbols:periodtok, lsbratok, uparrowtok
6636 : :
6637 : : reachend
6638 : : */
6639 : :
6640 : 2620184 : static void SimpleDes (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6641 : : {
6642 : 3847298 : while ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))))) != 0)))
6643 : : {
6644 : 1227114 : SubDesignator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))), stopset1, stopset2);
6645 : : }
6646 : : /* while */
6647 : 2620184 : }
6648 : :
6649 : :
6650 : : /*
6651 : : ActualParameters := '(' [ ExpList ] ')'
6652 : :
6653 : : first symbols:lparatok
6654 : :
6655 : : cannot reachend
6656 : : */
6657 : :
6658 : 3653904 : static void ActualParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6659 : : {
6660 : 3653904 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6661 : 3653904 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6662 : : {
6663 : 3540714 : ExpList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6664 : : }
6665 : 3653904 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
6666 : 3653904 : }
6667 : :
6668 : :
6669 : : /*
6670 : : ExitStatement := 'EXIT'
6671 : :
6672 : : first symbols:exittok
6673 : :
6674 : : cannot reachend
6675 : : */
6676 : :
6677 : 106 : static void ExitStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6678 : : {
6679 : 0 : Expect (M2Reserved_exittok, stopset0, stopset1, stopset2);
6680 : 106 : }
6681 : :
6682 : :
6683 : : /*
6684 : : ReturnStatement := 'RETURN' [ Expression ]
6685 : :
6686 : : first symbols:returntok
6687 : :
6688 : : cannot reachend
6689 : : */
6690 : :
6691 : 525494 : static void ReturnStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6692 : : {
6693 : 525494 : Expect (M2Reserved_returntok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6694 : 525494 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6695 : : {
6696 : 512234 : Expression (stopset0, stopset1, stopset2);
6697 : : }
6698 : 525494 : }
6699 : :
6700 : :
6701 : : /*
6702 : : Statement :=
6703 : : % PushAutoOff %
6704 : : [ AssignmentOrProcedureCall |
6705 : : IfStatement | CaseStatement |
6706 : : WhileStatement |
6707 : : RepeatStatement |
6708 : : LoopStatement | ForStatement |
6709 : : WithStatement | AsmStatement |
6710 : : ExitStatement | ReturnStatement |
6711 : : RetryStatement ]
6712 : : % PopAuto ; %
6713 : :
6714 : :
6715 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
6716 : :
6717 : : reachend
6718 : : */
6719 : :
6720 : 6131504 : static void Statement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6721 : : {
6722 : 6131504 : M2Quads_PushAutoOff ();
6723 : 6131504 : if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_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)) & ((PCBuild_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))))
6724 : : {
6725 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6726 : : /* seen optional [ | ] expression */
6727 : 6020884 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
6728 : : {
6729 : 4072642 : AssignmentOrProcedureCall (stopset0, stopset1, stopset2);
6730 : : }
6731 : : else if (M2LexBuf_currenttoken == M2Reserved_iftok)
6732 : : {
6733 : : /* avoid dangling else. */
6734 : 1028842 : IfStatement (stopset0, stopset1, stopset2);
6735 : : }
6736 : : else if (M2LexBuf_currenttoken == M2Reserved_casetok)
6737 : : {
6738 : : /* avoid dangling else. */
6739 : 4420 : CaseStatement (stopset0, stopset1, stopset2);
6740 : : }
6741 : : else if (M2LexBuf_currenttoken == M2Reserved_whiletok)
6742 : : {
6743 : : /* avoid dangling else. */
6744 : 183620 : WhileStatement (stopset0, stopset1, stopset2);
6745 : : }
6746 : : else if (M2LexBuf_currenttoken == M2Reserved_repeattok)
6747 : : {
6748 : : /* avoid dangling else. */
6749 : 53482 : RepeatStatement (stopset0, stopset1, stopset2);
6750 : : }
6751 : : else if (M2LexBuf_currenttoken == M2Reserved_looptok)
6752 : : {
6753 : : /* avoid dangling else. */
6754 : 8194 : LoopStatement (stopset0, stopset1, stopset2);
6755 : : }
6756 : : else if (M2LexBuf_currenttoken == M2Reserved_fortok)
6757 : : {
6758 : : /* avoid dangling else. */
6759 : 12670 : ForStatement (stopset0, stopset1, stopset2);
6760 : : }
6761 : : else if (M2LexBuf_currenttoken == M2Reserved_withtok)
6762 : : {
6763 : : /* avoid dangling else. */
6764 : 131270 : WithStatement (stopset0, stopset1, stopset2);
6765 : : }
6766 : : else if (M2LexBuf_currenttoken == M2Reserved_asmtok)
6767 : : {
6768 : : /* avoid dangling else. */
6769 : 24 : AsmStatement (stopset0, stopset1, stopset2);
6770 : : }
6771 : : else if (M2LexBuf_currenttoken == M2Reserved_exittok)
6772 : : {
6773 : : /* avoid dangling else. */
6774 : 106 : ExitStatement (stopset0, stopset1, stopset2);
6775 : : }
6776 : : else if (M2LexBuf_currenttoken == M2Reserved_returntok)
6777 : : {
6778 : : /* avoid dangling else. */
6779 : 525494 : ReturnStatement (stopset0, stopset1, stopset2);
6780 : : }
6781 : : else if (M2LexBuf_currenttoken == M2Reserved_retrytok)
6782 : : {
6783 : : /* avoid dangling else. */
6784 : 120 : RetryStatement (stopset0, stopset1, stopset2);
6785 : : }
6786 : : else
6787 : : {
6788 : : /* avoid dangling else. */
6789 : 0 : ErrorArray ((const char *) "expecting one of: {%KRETRY} {%KRETURN} {%KEXIT} {%KASM} {%KWITH} {%KFOR} {%KLOOP} {%KREPEAT} {%KWHILE} {%KCASE} {%KIF} {%Kidentifier}", 133);
6790 : : }
6791 : : }
6792 : : /* end of optional [ | ] expression */
6793 : 6131504 : M2Quads_PopAuto ();
6794 : 6131504 : }
6795 : :
6796 : :
6797 : : /*
6798 : : RetryStatement := 'RETRY'
6799 : :
6800 : : first symbols:retrytok
6801 : :
6802 : : cannot reachend
6803 : : */
6804 : :
6805 : 120 : static void RetryStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6806 : : {
6807 : 120 : Expect (M2Reserved_retrytok, stopset0, stopset1, stopset2);
6808 : 120 : }
6809 : :
6810 : :
6811 : : /*
6812 : : AssignmentOrProcedureCall :=
6813 : : % VAR top: CARDINAL ; %
6814 : :
6815 : : % top := Top() %
6816 : : Designator ( ':=' Expression |
6817 : : ActualParameters |
6818 : :
6819 : : % epsilon %
6820 : : )
6821 : : % Assert(top=Top()) %
6822 : :
6823 : :
6824 : : first symbols:identtok
6825 : :
6826 : : cannot reachend
6827 : : */
6828 : :
6829 : 4072642 : static void AssignmentOrProcedureCall (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6830 : : {
6831 : 4072642 : unsigned int top;
6832 : :
6833 : 4072642 : top = M2Quads_Top ();
6834 : 4072642 : Designator (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_becomestok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6835 : 4072642 : if (M2LexBuf_currenttoken == M2Reserved_becomestok)
6836 : : {
6837 : 2026121 : Expect (M2Reserved_becomestok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6838 : 2026121 : Expression (stopset0, stopset1, stopset2);
6839 : : }
6840 : 2046521 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
6841 : : {
6842 : : /* avoid dangling else. */
6843 : 1838868 : ActualParameters (stopset0, stopset1, stopset2);
6844 : : }
6845 : : /* epsilon */
6846 : 4072642 : M2Debug_Assert (top == (M2Quads_Top ()));
6847 : 4072642 : }
6848 : :
6849 : :
6850 : : /*
6851 : : StatementSequence :=
6852 : : % VAR top: CARDINAL ; %
6853 : :
6854 : : % top := Top() %
6855 : : Statement
6856 : : % Assert(top=Top()) %
6857 : : { ';' Statement
6858 : : % Assert(top=Top()) %
6859 : : }
6860 : :
6861 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
6862 : :
6863 : : reachend
6864 : : */
6865 : :
6866 : 2928757 : static void StatementSequence (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6867 : : {
6868 : 2928757 : unsigned int top;
6869 : :
6870 : 2928757 : top = M2Quads_Top ();
6871 : 2928757 : Statement (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6872 : 2928757 : M2Debug_Assert (top == (M2Quads_Top ()));
6873 : 9060261 : while (M2LexBuf_currenttoken == M2Reserved_semicolontok)
6874 : : {
6875 : 3202747 : Expect (M2Reserved_semicolontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
6876 : 3202747 : Statement (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
6877 : 3202747 : M2Debug_Assert (top == (M2Quads_Top ()));
6878 : : }
6879 : : /* while */
6880 : 2928757 : }
6881 : :
6882 : :
6883 : : /*
6884 : : IfStatement := 'IF' Expression 'THEN' StatementSequence
6885 : : { 'ELSIF' Expression 'THEN' StatementSequence }
6886 : : [ 'ELSE' StatementSequence ] 'END'
6887 : :
6888 : : first symbols:iftok
6889 : :
6890 : : cannot reachend
6891 : : */
6892 : :
6893 : 1028842 : static void IfStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6894 : : {
6895 : 1028842 : Expect (M2Reserved_iftok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6896 : 1028842 : Expression (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok))));
6897 : 1028842 : Expect (M2Reserved_thentok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
6898 : 1028842 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
6899 : 2148698 : while (M2LexBuf_currenttoken == M2Reserved_elsiftok)
6900 : : {
6901 : 91014 : Expect (M2Reserved_elsiftok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6902 : 91014 : Expression (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok))));
6903 : 91014 : Expect (M2Reserved_thentok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
6904 : 91014 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsiftok-M2Reserved_arraytok))), stopset2);
6905 : : }
6906 : : /* while */
6907 : 1028842 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
6908 : : {
6909 : 420867 : Expect (M2Reserved_elsetok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
6910 : 420867 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
6911 : : }
6912 : 1028842 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
6913 : 1028842 : }
6914 : :
6915 : :
6916 : : /*
6917 : : CaseStatement := 'CASE' Expression 'OF' Case { '|'
6918 : : Case }
6919 : : CaseEndStatement
6920 : :
6921 : : first symbols:casetok
6922 : :
6923 : : cannot reachend
6924 : : */
6925 : :
6926 : 4420 : static void CaseStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6927 : : {
6928 : 4420 : Expect (M2Reserved_casetok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6929 : 4420 : Expression (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
6930 : 4420 : Expect (M2Reserved_oftok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
6931 : 4420 : Case (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
6932 : 17756 : while (M2LexBuf_currenttoken == M2Reserved_bartok)
6933 : : {
6934 : 8916 : Expect (M2Reserved_bartok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
6935 : 8916 : Case (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok))), stopset2);
6936 : : }
6937 : : /* while */
6938 : 4420 : CaseEndStatement (stopset0, stopset1, stopset2);
6939 : 4420 : }
6940 : :
6941 : :
6942 : : /*
6943 : : CaseEndStatement := 'END' | 'ELSE' StatementSequence
6944 : : 'END'
6945 : :
6946 : : first symbols:elsetok, endtok
6947 : :
6948 : : cannot reachend
6949 : : */
6950 : :
6951 : 4420 : static void CaseEndStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6952 : : {
6953 : 4420 : if (M2LexBuf_currenttoken == M2Reserved_endtok)
6954 : : {
6955 : 780 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
6956 : : }
6957 : 3640 : else if (M2LexBuf_currenttoken == M2Reserved_elsetok)
6958 : : {
6959 : : /* avoid dangling else. */
6960 : 3640 : Expect (M2Reserved_elsetok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
6961 : 3640 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
6962 : 3640 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
6963 : : }
6964 : : else
6965 : : {
6966 : : /* avoid dangling else. */
6967 : 0 : ErrorArray ((const char *) "expecting one of: {%KELSE} {%KEND}", 34);
6968 : : }
6969 : 4420 : }
6970 : :
6971 : :
6972 : : /*
6973 : : Case := [ CaseLabelList ':' StatementSequence ]
6974 : :
6975 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
6976 : :
6977 : : reachend
6978 : : */
6979 : :
6980 : 13336 : static void Case (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
6981 : : {
6982 : 13336 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
6983 : : {
6984 : 13230 : CaseLabelList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6985 : 13230 : Expect (M2Reserved_colontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
6986 : 13230 : StatementSequence (stopset0, stopset1, stopset2);
6987 : : }
6988 : 13336 : }
6989 : :
6990 : :
6991 : : /*
6992 : : CaseLabelList := CaseLabels { ',' CaseLabels }
6993 : :
6994 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok
6995 : :
6996 : : cannot reachend
6997 : : */
6998 : :
6999 : 13230 : static void CaseLabelList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7000 : : {
7001 : 13230 : CaseLabels (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
7002 : 26672 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
7003 : : {
7004 : 212 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
7005 : 212 : CaseLabels (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
7006 : : }
7007 : : /* while */
7008 : 13230 : }
7009 : :
7010 : :
7011 : : /*
7012 : : CaseLabels := ConstExpression [ '..' ConstExpression ]
7013 : :
7014 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
7015 : :
7016 : : cannot reachend
7017 : : */
7018 : :
7019 : 13442 : static void CaseLabels (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7020 : : {
7021 : 13442 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
7022 : 13442 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
7023 : : {
7024 : 168 : Expect (M2Reserved_periodperiodtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
7025 : 168 : ConstExpression (stopset0, stopset1, stopset2);
7026 : : }
7027 : 13442 : }
7028 : :
7029 : :
7030 : : /*
7031 : : WhileStatement := 'WHILE' Expression 'DO' StatementSequence
7032 : : 'END'
7033 : :
7034 : : first symbols:whiletok
7035 : :
7036 : : cannot reachend
7037 : : */
7038 : :
7039 : 183620 : static void WhileStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7040 : : {
7041 : 183620 : Expect (M2Reserved_whiletok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7042 : 183620 : Expression (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7043 : 183620 : Expect (M2Reserved_dotok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7044 : 183620 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7045 : 183620 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7046 : 183620 : }
7047 : :
7048 : :
7049 : : /*
7050 : : RepeatStatement := 'REPEAT' StatementSequence 'UNTIL'
7051 : : Expression
7052 : :
7053 : : first symbols:repeattok
7054 : :
7055 : : cannot reachend
7056 : : */
7057 : :
7058 : 53482 : static void RepeatStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7059 : : {
7060 : 53482 : Expect (M2Reserved_repeattok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7061 : 53482 : StatementSequence (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok))));
7062 : 53482 : Expect (M2Reserved_untiltok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7063 : 53482 : Expression (stopset0, stopset1, stopset2);
7064 : 53482 : }
7065 : :
7066 : :
7067 : : /*
7068 : : ForStatement := 'FOR' Ident ':=' Expression 'TO'
7069 : : Expression [ 'BY' ConstExpression ]
7070 : : 'DO' StatementSequence 'END'
7071 : :
7072 : : first symbols:fortok
7073 : :
7074 : : cannot reachend
7075 : : */
7076 : :
7077 : 12670 : static void ForStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7078 : : {
7079 : 12670 : Expect (M2Reserved_fortok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7080 : 12670 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_becomestok-M2Reserved_eoftok))), stopset1, stopset2);
7081 : 12670 : Expect (M2Reserved_becomestok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7082 : 12670 : Expression (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok))));
7083 : 12670 : Expect (M2Reserved_totok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7084 : 12670 : Expression (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok)) | (1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7085 : 12670 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
7086 : : {
7087 : 342 : Expect (M2Reserved_bytok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
7088 : 342 : ConstExpression (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7089 : : }
7090 : 12670 : Expect (M2Reserved_dotok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7091 : 12670 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7092 : 12670 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7093 : 12670 : }
7094 : :
7095 : :
7096 : : /*
7097 : : LoopStatement := 'LOOP' StatementSequence 'END'
7098 : :
7099 : : first symbols:looptok
7100 : :
7101 : : cannot reachend
7102 : : */
7103 : :
7104 : 8194 : static void LoopStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7105 : : {
7106 : 8194 : Expect (M2Reserved_looptok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7107 : 8194 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7108 : 8194 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7109 : 8194 : }
7110 : :
7111 : :
7112 : : /*
7113 : : WithStatement := 'WITH' Designator 'DO' StatementSequence
7114 : : 'END'
7115 : :
7116 : : first symbols:withtok
7117 : :
7118 : : cannot reachend
7119 : : */
7120 : :
7121 : 131270 : static void WithStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7122 : : {
7123 : 131270 : Expect (M2Reserved_withtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7124 : 131270 : Designator (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7125 : 131270 : Expect (M2Reserved_dotok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7126 : 131270 : StatementSequence (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7127 : 131270 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7128 : 131270 : }
7129 : :
7130 : :
7131 : : /*
7132 : : ProcedureDeclaration :=
7133 : : % VAR top: CARDINAL ; %
7134 : :
7135 : : % top := Top () %
7136 : : ProcedureHeading ';' PostProcedureHeading
7137 : :
7138 : : % Assert (top = Top ()) %
7139 : :
7140 : :
7141 : : first symbols:proceduretok
7142 : :
7143 : : cannot reachend
7144 : : */
7145 : :
7146 : 943407 : static void ProcedureDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7147 : : {
7148 : 943407 : unsigned int top;
7149 : :
7150 : 943407 : top = M2Quads_Top ();
7151 : 943407 : ProcedureHeading (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7152 : 943407 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7153 : 943407 : PostProcedureHeading (stopset0, stopset1, stopset2);
7154 : 943401 : M2Debug_Assert (top == (M2Quads_Top ()));
7155 : 943401 : }
7156 : :
7157 : :
7158 : : /*
7159 : : PostProcedureHeading := ProperProcedure |
7160 : : ForwardDeclaration
7161 : :
7162 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok, forwardtok
7163 : :
7164 : : cannot reachend
7165 : : */
7166 : :
7167 : 943407 : static void PostProcedureHeading (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7168 : : {
7169 : 943407 : if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
7170 : : {
7171 : 943383 : ProperProcedure (stopset0, stopset1, stopset2);
7172 : : }
7173 : 24 : else if (M2LexBuf_currenttoken == M2Reserved_forwardtok)
7174 : : {
7175 : : /* avoid dangling else. */
7176 : 48 : ForwardDeclaration (stopset0, stopset1, stopset2);
7177 : : }
7178 : : else
7179 : : {
7180 : : /* avoid dangling else. */
7181 : 0 : ErrorArray ((const char *) "expecting one of: {%KFORWARD} {%KEND} {%KBEGIN} {%KCONST} {%KTYPE} {%KVAR} {%KPROCEDURE} {%KMODULE}", 99);
7182 : : }
7183 : 943401 : }
7184 : :
7185 : :
7186 : : /*
7187 : : ForwardDeclaration := 'FORWARD'
7188 : : % PCEndBuildForward %
7189 : :
7190 : :
7191 : : first symbols:forwardtok
7192 : :
7193 : : cannot reachend
7194 : : */
7195 : :
7196 : 24 : static void ForwardDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7197 : : {
7198 : 24 : Expect (M2Reserved_forwardtok, stopset0, stopset1, stopset2);
7199 : 24 : PCSymBuild_PCEndBuildForward ();
7200 : 24 : }
7201 : :
7202 : :
7203 : : /*
7204 : : ProperProcedure := ProcedureBlock
7205 : : % PushAutoOn %
7206 : : Ident
7207 : : % PCEndBuildProcedure %
7208 : :
7209 : : % PopAuto %
7210 : :
7211 : :
7212 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok, begintok, endtok
7213 : :
7214 : : cannot reachend
7215 : : */
7216 : :
7217 : 943383 : static void ProperProcedure (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7218 : : {
7219 : 943383 : ProcedureBlock (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7220 : 943377 : M2Quads_PushAutoOn ();
7221 : 943377 : Ident (stopset0, stopset1, stopset2);
7222 : 943377 : PCSymBuild_PCEndBuildProcedure ();
7223 : 943377 : M2Quads_PopAuto ();
7224 : 943377 : }
7225 : :
7226 : :
7227 : : /*
7228 : : DefineBuiltinProcedure := [ '__ATTRIBUTE__' '__BUILTIN__'
7229 : : '(' '('
7230 : : % PushAutoOff %
7231 : : Ident
7232 : : % PopAuto %
7233 : : ')' ')' |
7234 : : '__INLINE__' ]
7235 : :
7236 : : first symbols:inlinetok, attributetok
7237 : :
7238 : : reachend
7239 : : */
7240 : :
7241 : 943407 : static void DefineBuiltinProcedure (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7242 : : {
7243 : 943407 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0)))
7244 : : {
7245 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7246 : : /* seen optional [ | ] expression */
7247 : 50952 : if (M2LexBuf_currenttoken == M2Reserved_attributetok)
7248 : : {
7249 : 50952 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
7250 : 50952 : Expect (M2Reserved_builtintok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
7251 : 50952 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
7252 : 50952 : Expect (M2Reserved_lparatok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7253 : 50952 : M2Quads_PushAutoOff ();
7254 : 50952 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7255 : 50952 : M2Quads_PopAuto ();
7256 : 50952 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7257 : 50952 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
7258 : : }
7259 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_inlinetok)
7260 : : {
7261 : : /* avoid dangling else. */
7262 : 0 : Expect (M2Reserved_inlinetok, stopset0, stopset1, stopset2);
7263 : : }
7264 : : else
7265 : : {
7266 : : /* avoid dangling else. */
7267 : 0 : ErrorArray ((const char *) "expecting one of: {%K__INLINE__} {%K__ATTRIBUTE__}", 50);
7268 : : }
7269 : : }
7270 : : /* end of optional [ | ] expression */
7271 : 943407 : }
7272 : :
7273 : :
7274 : : /*
7275 : : ProcedureHeading := 'PROCEDURE'
7276 : : % M2Error.DefaultProcedure %
7277 : :
7278 : : % PushAutoOn %
7279 : : DefineBuiltinProcedure ( Ident
7280 : :
7281 : : % PCStartBuildProcedure %
7282 : :
7283 : : % PushAutoOff %
7284 : : [ FormalParameters ]
7285 : : AttributeNoReturn
7286 : :
7287 : : % PCBuildProcedureHeading %
7288 : :
7289 : : % PopAuto %
7290 : : )
7291 : :
7292 : : % PopAuto %
7293 : :
7294 : :
7295 : : first symbols:proceduretok
7296 : :
7297 : : cannot reachend
7298 : : */
7299 : :
7300 : 943407 : static void ProcedureHeading (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7301 : : {
7302 : 943407 : Expect (M2Reserved_proceduretok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7303 : 943407 : M2Error_DefaultProcedure ();
7304 : 943407 : M2Quads_PushAutoOn ();
7305 : 943407 : DefineBuiltinProcedure (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7306 : 943407 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7307 : 943407 : PCSymBuild_PCStartBuildProcedure ();
7308 : 943407 : M2Quads_PushAutoOff ();
7309 : 943407 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
7310 : : {
7311 : 864134 : FormalParameters (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7312 : : }
7313 : 943407 : AttributeNoReturn (stopset0, stopset1, stopset2);
7314 : 943407 : PCSymBuild_PCBuildProcedureHeading ();
7315 : 943407 : M2Quads_PopAuto ();
7316 : 943407 : M2Quads_PopAuto ();
7317 : 943407 : }
7318 : :
7319 : :
7320 : : /*
7321 : : Builtin := [ '__BUILTIN__' | '__INLINE__' ]
7322 : :
7323 : : first symbols:inlinetok, builtintok
7324 : :
7325 : : reachend
7326 : : */
7327 : :
7328 : 1921393 : static void Builtin (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7329 : : {
7330 : 1921393 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))))) != 0)))
7331 : : {
7332 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7333 : : /* seen optional [ | ] expression */
7334 : 50500 : if (M2LexBuf_currenttoken == M2Reserved_builtintok)
7335 : : {
7336 : 50500 : Expect (M2Reserved_builtintok, stopset0, stopset1, stopset2);
7337 : : }
7338 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_inlinetok)
7339 : : {
7340 : : /* avoid dangling else. */
7341 : 0 : Expect (M2Reserved_inlinetok, stopset0, stopset1, stopset2);
7342 : : }
7343 : : else
7344 : : {
7345 : : /* avoid dangling else. */
7346 : 0 : ErrorArray ((const char *) "expecting one of: {%K__INLINE__} {%K__BUILTIN__}", 48);
7347 : : }
7348 : : }
7349 : : /* end of optional [ | ] expression */
7350 : 1921393 : }
7351 : :
7352 : :
7353 : : /*
7354 : : DefProcedureHeading := 'PROCEDURE'
7355 : : % M2Error.DefaultProcedure %
7356 : :
7357 : : % PushAutoOn %
7358 : : Builtin ( Ident
7359 : : % PCStartBuildProcedure %
7360 : :
7361 : : % PushAutoOff %
7362 : : [ DefFormalParameters ]
7363 : : AttributeNoReturn
7364 : :
7365 : : % PCBuildProcedureHeading %
7366 : :
7367 : : % PopAuto %
7368 : : )
7369 : : % PopAuto %
7370 : :
7371 : : % M2Error.LeaveErrorScope %
7372 : :
7373 : :
7374 : : first symbols:proceduretok
7375 : :
7376 : : cannot reachend
7377 : : */
7378 : :
7379 : 1921393 : static void DefProcedureHeading (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7380 : : {
7381 : 1921393 : Expect (M2Reserved_proceduretok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7382 : 1921393 : M2Error_DefaultProcedure ();
7383 : 1921393 : M2Quads_PushAutoOn ();
7384 : 1921393 : Builtin (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7385 : 1921393 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7386 : 1921393 : PCSymBuild_PCStartBuildProcedure ();
7387 : 1921393 : M2Quads_PushAutoOff ();
7388 : 1921393 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
7389 : : {
7390 : 1824911 : DefFormalParameters (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7391 : : }
7392 : 1921393 : AttributeNoReturn (stopset0, stopset1, stopset2);
7393 : 1921393 : PCSymBuild_PCBuildProcedureHeading ();
7394 : 1921393 : M2Quads_PopAuto ();
7395 : 1921393 : M2Quads_PopAuto ();
7396 : 1921393 : M2Error_LeaveErrorScope ();
7397 : 1921393 : }
7398 : :
7399 : :
7400 : : /*
7401 : : AttributeNoReturn := [ '' ]
7402 : :
7403 : : first symbols:ldirectivetok
7404 : :
7405 : : reachend
7406 : : */
7407 : :
7408 : 2864800 : static void AttributeNoReturn (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7409 : : {
7410 : 2864800 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
7411 : : {
7412 : 443347 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7413 : 443347 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7414 : 443347 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
7415 : : }
7416 : 2864800 : }
7417 : :
7418 : :
7419 : : /*
7420 : : AttributeUnused := [ '' ]
7421 : :
7422 : : first symbols:ldirectivetok
7423 : :
7424 : : reachend
7425 : : */
7426 : :
7427 : 0 : static void AttributeUnused (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7428 : : {
7429 : 0 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
7430 : : {
7431 : 0 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7432 : 0 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7433 : 0 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
7434 : : }
7435 : 0 : }
7436 : :
7437 : :
7438 : : /*
7439 : : ProcedureBlock :=
7440 : : % VAR top: CARDINAL ; %
7441 : :
7442 : : % top := Top() %
7443 : : { Declaration
7444 : : % Assert(top=Top()) %
7445 : : } [ 'BEGIN' ProcedureBlockBody
7446 : :
7447 : : % Assert(top=Top()) %
7448 : : ] 'END'
7449 : : % Assert(top=Top()) %
7450 : :
7451 : :
7452 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
7453 : :
7454 : : cannot reachend
7455 : : */
7456 : :
7457 : 943383 : static void ProcedureBlock (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7458 : : {
7459 : 943383 : unsigned int top;
7460 : :
7461 : 943383 : top = M2Quads_Top ();
7462 : 2307853 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
7463 : : {
7464 : 421093 : Declaration (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7465 : 421087 : M2Debug_Assert (top == (M2Quads_Top ()));
7466 : : }
7467 : : /* while */
7468 : 943377 : if (M2LexBuf_currenttoken == M2Reserved_begintok)
7469 : : {
7470 : 940377 : Expect (M2Reserved_begintok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7471 : 940377 : ProcedureBlockBody (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7472 : 940377 : M2Debug_Assert (top == (M2Quads_Top ()));
7473 : : }
7474 : 943377 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7475 : 943377 : M2Debug_Assert (top == (M2Quads_Top ()));
7476 : 943377 : }
7477 : :
7478 : :
7479 : : /*
7480 : : Block :=
7481 : : % VAR top: CARDINAL ; %
7482 : :
7483 : : % top := Top() %
7484 : : { Declaration } InitialBlock FinalBlock
7485 : : 'END'
7486 : : % Assert(top=Top()) %
7487 : :
7488 : :
7489 : : first symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
7490 : :
7491 : : cannot reachend
7492 : : */
7493 : :
7494 : 63611 : static void Block (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7495 : : {
7496 : 63611 : unsigned int top;
7497 : :
7498 : 63611 : top = M2Quads_Top ();
7499 : 1155971 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_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)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
7500 : : {
7501 : 1028773 : Declaration (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7502 : : }
7503 : : /* while */
7504 : 63587 : InitialBlock (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok))), stopset2);
7505 : 63587 : FinalBlock (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7506 : 63587 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7507 : 63587 : M2Debug_Assert (top == (M2Quads_Top ()));
7508 : 63587 : }
7509 : :
7510 : :
7511 : : /*
7512 : : InitialBlock := [ 'BEGIN' InitialBlockBody ]
7513 : :
7514 : : first symbols:begintok
7515 : :
7516 : : reachend
7517 : : */
7518 : :
7519 : 63587 : static void InitialBlock (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7520 : : {
7521 : 63587 : if (M2LexBuf_currenttoken == M2Reserved_begintok)
7522 : : {
7523 : 35769 : Expect (M2Reserved_begintok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7524 : 35769 : InitialBlockBody (stopset0, stopset1, stopset2);
7525 : : }
7526 : 63587 : }
7527 : :
7528 : :
7529 : : /*
7530 : : FinalBlock := [ 'FINALLY' FinalBlockBody ]
7531 : :
7532 : : first symbols:finallytok
7533 : :
7534 : : reachend
7535 : : */
7536 : :
7537 : 63587 : static void FinalBlock (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7538 : : {
7539 : 63587 : if (M2LexBuf_currenttoken == M2Reserved_finallytok)
7540 : : {
7541 : 5602 : Expect (M2Reserved_finallytok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7542 : 5602 : FinalBlockBody (stopset0, stopset1, stopset2);
7543 : : }
7544 : 63587 : }
7545 : :
7546 : :
7547 : : /*
7548 : : InitialBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
7549 : :
7550 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
7551 : :
7552 : : reachend
7553 : : */
7554 : :
7555 : 35769 : static void InitialBlockBody (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7556 : : {
7557 : 71538 : NormalPart (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
7558 : 35769 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
7559 : : {
7560 : 48 : Expect (M2Reserved_excepttok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7561 : 48 : ExceptionalPart (stopset0, stopset1, stopset2);
7562 : : }
7563 : 35769 : }
7564 : :
7565 : :
7566 : : /*
7567 : : FinalBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
7568 : :
7569 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
7570 : :
7571 : : reachend
7572 : : */
7573 : :
7574 : 5602 : static void FinalBlockBody (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7575 : : {
7576 : 11204 : NormalPart (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
7577 : 5602 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
7578 : : {
7579 : 0 : Expect (M2Reserved_excepttok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7580 : 0 : ExceptionalPart (stopset0, stopset1, stopset2);
7581 : : }
7582 : 5602 : }
7583 : :
7584 : :
7585 : : /*
7586 : : ProcedureBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart ]
7587 : :
7588 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
7589 : :
7590 : : reachend
7591 : : */
7592 : :
7593 : 940377 : static void ProcedureBlockBody (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7594 : : {
7595 : 1880754 : NormalPart (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
7596 : 940377 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
7597 : : {
7598 : 132 : Expect (M2Reserved_excepttok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_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))));
7599 : 132 : ExceptionalPart (stopset0, stopset1, stopset2);
7600 : : }
7601 : 940377 : }
7602 : :
7603 : :
7604 : : /*
7605 : : NormalPart := StatementSequence
7606 : :
7607 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
7608 : :
7609 : : reachend
7610 : : */
7611 : :
7612 : 981748 : static void NormalPart (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7613 : : {
7614 : 981748 : StatementSequence (stopset0, stopset1, stopset2);
7615 : 0 : }
7616 : :
7617 : :
7618 : : /*
7619 : : ExceptionalPart := StatementSequence
7620 : :
7621 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
7622 : :
7623 : : reachend
7624 : : */
7625 : :
7626 : 180 : static void ExceptionalPart (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7627 : : {
7628 : 180 : StatementSequence (stopset0, stopset1, stopset2);
7629 : 180 : }
7630 : :
7631 : :
7632 : : /*
7633 : : Declaration := 'CONST' { ConstantDeclaration ';' } |
7634 : : 'TYPE' { TypeDeclaration ';' } |
7635 : : 'VAR' { VariableDeclaration ';' } |
7636 : : ProcedureDeclaration ';' |
7637 : : ModuleDeclaration ';'
7638 : :
7639 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok
7640 : :
7641 : : cannot reachend
7642 : : */
7643 : :
7644 : 1449866 : static void Declaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7645 : : {
7646 : 1449866 : if (M2LexBuf_currenttoken == M2Reserved_consttok)
7647 : : {
7648 : 30238 : Expect (M2Reserved_consttok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7649 : 118590 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
7650 : : {
7651 : 58138 : ConstantDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7652 : 58114 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7653 : : }
7654 : : /* while */
7655 : : }
7656 : : else if (M2LexBuf_currenttoken == M2Reserved_typetok)
7657 : : {
7658 : : /* avoid dangling else. */
7659 : 24244 : Expect (M2Reserved_typetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7660 : 120788 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
7661 : : {
7662 : 72300 : TypeDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7663 : 72300 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7664 : : }
7665 : : /* while */
7666 : : }
7667 : : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
7668 : : {
7669 : : /* avoid dangling else. */
7670 : 451557 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7671 : 1600798 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
7672 : : {
7673 : 697684 : VariableDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7674 : 697684 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7675 : : }
7676 : : /* while */
7677 : : }
7678 : : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
7679 : : {
7680 : : /* avoid dangling else. */
7681 : 943407 : ProcedureDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7682 : 943401 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
7683 : : }
7684 : : else if (M2LexBuf_currenttoken == M2Reserved_moduletok)
7685 : : {
7686 : : /* avoid dangling else. */
7687 : 420 : ModuleDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7688 : 420 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
7689 : : }
7690 : : else
7691 : : {
7692 : : /* avoid dangling else. */
7693 : 0 : ErrorArray ((const char *) "expecting one of: {%KMODULE} {%KPROCEDURE} {%KVAR} {%KTYPE} {%KCONST}", 69);
7694 : : }
7695 : 1449836 : }
7696 : :
7697 : :
7698 : : /*
7699 : : DefFormalParameters := '(' [ DefMultiFPSection ]
7700 : : ')' FormalReturn
7701 : :
7702 : : first symbols:lparatok
7703 : :
7704 : : cannot reachend
7705 : : */
7706 : :
7707 : 1824911 : static void DefFormalParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7708 : : {
7709 : 1824911 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7710 : 1824911 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
7711 : : {
7712 : 1678500 : DefMultiFPSection (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7713 : : }
7714 : 1824911 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7715 : 1824911 : FormalReturn (stopset0, stopset1, stopset2);
7716 : 1824911 : }
7717 : :
7718 : :
7719 : : /*
7720 : : DefMultiFPSection := DefExtendedFP |
7721 : : FPSection [ ';' DefMultiFPSection ]
7722 : :
7723 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
7724 : :
7725 : : cannot reachend
7726 : : */
7727 : :
7728 : 1678500 : static void DefMultiFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7729 : : {
7730 : 3342389 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok))
7731 : : {
7732 : 24775 : DefExtendedFP (stopset0, stopset1, stopset2);
7733 : : }
7734 : 3317614 : else if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0)))
7735 : : {
7736 : : /* avoid dangling else. */
7737 : 3317614 : FPSection (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7738 : 3317614 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
7739 : : {
7740 : 1663889 : Expect (M2Reserved_semicolontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7741 : 1663889 : DefMultiFPSection (stopset0, stopset1, stopset2);
7742 : : }
7743 : : }
7744 : : else
7745 : : {
7746 : : /* avoid dangling else. */
7747 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KVAR} {%K...} {%K[}", 54);
7748 : : }
7749 : 1678500 : }
7750 : :
7751 : :
7752 : : /*
7753 : : FormalParameters := '(' [ MultiFPSection ] ')'
7754 : : FormalReturn
7755 : :
7756 : : first symbols:lparatok
7757 : :
7758 : : cannot reachend
7759 : : */
7760 : :
7761 : 864134 : static void FormalParameters (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7762 : : {
7763 : 864134 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7764 : 864134 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
7765 : : {
7766 : 818038 : MultiFPSection (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7767 : : }
7768 : 864134 : Expect (M2Reserved_rparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7769 : 864134 : FormalReturn (stopset0, stopset1, stopset2);
7770 : 864134 : }
7771 : :
7772 : :
7773 : : /*
7774 : : MultiFPSection := ExtendedFP | FPSection [ ';'
7775 : : MultiFPSection ]
7776 : :
7777 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
7778 : :
7779 : : cannot reachend
7780 : : */
7781 : :
7782 : 818038 : static void MultiFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7783 : : {
7784 : 1508420 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok))
7785 : : {
7786 : 2612 : ExtendedFP (stopset0, stopset1, stopset2);
7787 : : }
7788 : 1505808 : else if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0)))
7789 : : {
7790 : : /* avoid dangling else. */
7791 : 1505808 : FPSection (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7792 : 1505808 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
7793 : : {
7794 : 690382 : Expect (M2Reserved_semicolontok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7795 : 690382 : MultiFPSection (stopset0, stopset1, stopset2);
7796 : : }
7797 : : }
7798 : : else
7799 : : {
7800 : : /* avoid dangling else. */
7801 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KVAR} {%K...} {%K[}", 54);
7802 : : }
7803 : 818038 : }
7804 : :
7805 : :
7806 : : /*
7807 : : FPSection := NonVarFPSection |
7808 : : VarFPSection
7809 : :
7810 : : first symbols:vartok, identtok
7811 : :
7812 : : cannot reachend
7813 : : */
7814 : :
7815 : 4823422 : static void FPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7816 : : {
7817 : 4823422 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
7818 : : {
7819 : 4392708 : NonVarFPSection (stopset0, stopset1, stopset2);
7820 : : }
7821 : 430714 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
7822 : : {
7823 : : /* avoid dangling else. */
7824 : 430714 : VarFPSection (stopset0, stopset1, stopset2);
7825 : : }
7826 : : else
7827 : : {
7828 : : /* avoid dangling else. */
7829 : 0 : ErrorArray ((const char *) "expecting one of: {%KVAR} {%Kidentifier}", 40);
7830 : : }
7831 : 4823422 : }
7832 : :
7833 : :
7834 : : /*
7835 : : DefExtendedFP := DefOptArg | '...'
7836 : :
7837 : : first symbols:lsbratok, periodperiodperiodtok
7838 : :
7839 : : cannot reachend
7840 : : */
7841 : :
7842 : 24775 : static void DefExtendedFP (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7843 : : {
7844 : 24775 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
7845 : : {
7846 : 14035 : DefOptArg (stopset0, stopset1, stopset2);
7847 : : }
7848 : 10740 : else if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
7849 : : {
7850 : : /* avoid dangling else. */
7851 : 10740 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
7852 : : }
7853 : : else
7854 : : {
7855 : : /* avoid dangling else. */
7856 : 0 : ErrorArray ((const char *) "expecting one of: {%K...} {%K[}", 31);
7857 : : }
7858 : 24775 : }
7859 : :
7860 : :
7861 : : /*
7862 : : ExtendedFP := OptArg | '...'
7863 : :
7864 : : first symbols:lsbratok, periodperiodperiodtok
7865 : :
7866 : : cannot reachend
7867 : : */
7868 : :
7869 : 2612 : static void ExtendedFP (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7870 : : {
7871 : 2612 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
7872 : : {
7873 : 2612 : OptArg (stopset0, stopset1, stopset2);
7874 : : }
7875 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
7876 : : {
7877 : : /* avoid dangling else. */
7878 : 0 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
7879 : : }
7880 : : else
7881 : : {
7882 : : /* avoid dangling else. */
7883 : 0 : ErrorArray ((const char *) "expecting one of: {%K...} {%K[}", 31);
7884 : : }
7885 : 2612 : }
7886 : :
7887 : :
7888 : : /*
7889 : : VarFPSection := 'VAR' IdentList ':' FormalType [
7890 : : AttributeUnused ]
7891 : :
7892 : : first symbols:vartok
7893 : :
7894 : : cannot reachend
7895 : : */
7896 : :
7897 : 430714 : static void VarFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7898 : : {
7899 : 430714 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7900 : 430714 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7901 : 430714 : Expect (M2Reserved_colontok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7902 : 430714 : FormalType (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7903 : 430714 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
7904 : : {
7905 : 0 : AttributeUnused (stopset0, stopset1, stopset2);
7906 : : }
7907 : 430714 : }
7908 : :
7909 : :
7910 : : /*
7911 : : NonVarFPSection := IdentList ':' FormalType [ AttributeUnused ]
7912 : :
7913 : : first symbols:identtok
7914 : :
7915 : : cannot reachend
7916 : : */
7917 : :
7918 : 4392708 : static void NonVarFPSection (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7919 : : {
7920 : 4392708 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7921 : 4392708 : Expect (M2Reserved_colontok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7922 : 4392708 : FormalType (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7923 : 4392708 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
7924 : : {
7925 : 0 : AttributeUnused (stopset0, stopset1, stopset2);
7926 : : }
7927 : 4392708 : }
7928 : :
7929 : :
7930 : : /*
7931 : : OptArg := '[' Ident ':' FormalType [ '=' ConstExpression ]
7932 : : ']'
7933 : :
7934 : : first symbols:lsbratok
7935 : :
7936 : : cannot reachend
7937 : : */
7938 : :
7939 : 2612 : static void OptArg (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7940 : : {
7941 : 2612 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7942 : 2612 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7943 : 2612 : Expect (M2Reserved_colontok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7944 : 2612 : FormalType (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
7945 : 2612 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
7946 : : {
7947 : 2566 : Expect (M2Reserved_equaltok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
7948 : 2566 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
7949 : : }
7950 : 2612 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
7951 : 2612 : }
7952 : :
7953 : :
7954 : : /*
7955 : : DefOptArg := '[' Ident ':' FormalType '=' ConstExpression
7956 : : ']'
7957 : :
7958 : : first symbols:lsbratok
7959 : :
7960 : : cannot reachend
7961 : : */
7962 : :
7963 : 14035 : static void DefOptArg (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7964 : : {
7965 : 14035 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7966 : 14035 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7967 : 14035 : Expect (M2Reserved_colontok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7968 : 14035 : FormalType (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
7969 : 14035 : Expect (M2Reserved_equaltok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
7970 : 14035 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
7971 : 14035 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
7972 : 14035 : }
7973 : :
7974 : :
7975 : : /*
7976 : : FormalType := { 'ARRAY' 'OF' } Qualident
7977 : :
7978 : : first symbols:identtok, arraytok
7979 : :
7980 : : cannot reachend
7981 : : */
7982 : :
7983 : 4915956 : static void FormalType (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
7984 : : {
7985 : 5415671 : while (M2LexBuf_currenttoken == M2Reserved_arraytok)
7986 : : {
7987 : 499715 : Expect (M2Reserved_arraytok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
7988 : 499715 : Expect (M2Reserved_oftok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7989 : : }
7990 : : /* while */
7991 : 4915956 : Qualident (stopset0, stopset1, stopset2);
7992 : 4915956 : }
7993 : :
7994 : :
7995 : : /*
7996 : : ModuleDeclaration := 'MODULE'
7997 : : % M2Error.DefaultInnerModule %
7998 : :
7999 : : % PushAutoOn %
8000 : : Ident
8001 : : % PCStartBuildInnerModule %
8002 : :
8003 : : % PushAutoOff %
8004 : : [ Priority ] ';' { Import
8005 : :
8006 : : % PCBuildImportInnerModule %
8007 : : } [ Export ]
8008 : : Block
8009 : : % PushAutoOn %
8010 : : Ident
8011 : : % PCEndBuildInnerModule %
8012 : :
8013 : : % PopAuto ; PopAuto ; PopAuto %
8014 : :
8015 : :
8016 : : first symbols:moduletok
8017 : :
8018 : : cannot reachend
8019 : : */
8020 : :
8021 : 420 : static void ModuleDeclaration (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8022 : : {
8023 : 420 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8024 : 420 : M2Error_DefaultInnerModule ();
8025 : 420 : M2Quads_PushAutoOn ();
8026 : 420 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8027 : 420 : PCSymBuild_PCStartBuildInnerModule ();
8028 : 420 : M2Quads_PushAutoOff ();
8029 : 420 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
8030 : : {
8031 : 12 : Priority (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8032 : : }
8033 : 420 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8034 : 1062 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
8035 : : {
8036 : 222 : Import (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
8037 : 222 : PCSymBuild_PCBuildImportInnerModule ();
8038 : : }
8039 : : /* while */
8040 : 420 : if (M2LexBuf_currenttoken == M2Reserved_exporttok)
8041 : : {
8042 : 282 : Export (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
8043 : : }
8044 : 420 : Block (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8045 : 420 : M2Quads_PushAutoOn ();
8046 : 420 : Ident (stopset0, stopset1, stopset2);
8047 : 420 : PCSymBuild_PCEndBuildInnerModule ();
8048 : 420 : M2Quads_PopAuto ();
8049 : 420 : M2Quads_PopAuto ();
8050 : 420 : M2Quads_PopAuto ();
8051 : 420 : }
8052 : :
8053 : :
8054 : : /*
8055 : : Priority := '[' ConstExpression ']'
8056 : :
8057 : : first symbols:lsbratok
8058 : :
8059 : : cannot reachend
8060 : : */
8061 : :
8062 : 50 : static void Priority (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8063 : : {
8064 : 50 : Expect (M2Reserved_lsbratok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8065 : 50 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8066 : 50 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
8067 : 50 : }
8068 : :
8069 : :
8070 : : /*
8071 : : Export := 'EXPORT' ( 'QUALIFIED' IdentList |
8072 : : 'UNQUALIFIED' IdentList |
8073 : : IdentList ) ';'
8074 : :
8075 : : first symbols:exporttok
8076 : :
8077 : : cannot reachend
8078 : : */
8079 : :
8080 : 67324 : static void Export (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8081 : : {
8082 : 67324 : Expect (M2Reserved_exporttok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_qualifiedtok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_unqualifiedtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8083 : 67324 : if (M2LexBuf_currenttoken == M2Reserved_qualifiedtok)
8084 : : {
8085 : 60658 : Expect (M2Reserved_qualifiedtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8086 : 60658 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8087 : : }
8088 : 6666 : else if (M2LexBuf_currenttoken == M2Reserved_unqualifiedtok)
8089 : : {
8090 : : /* avoid dangling else. */
8091 : 6384 : Expect (M2Reserved_unqualifiedtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8092 : 6384 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8093 : : }
8094 : 282 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
8095 : : {
8096 : : /* avoid dangling else. */
8097 : 282 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8098 : : }
8099 : : else
8100 : : {
8101 : : /* avoid dangling else. */
8102 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KUNQUALIFIED} {%KQUALIFIED}", 62);
8103 : : }
8104 : 67324 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8105 : 67324 : }
8106 : :
8107 : :
8108 : : /*
8109 : : Import :=
8110 : : % PushAutoOn %
8111 : : ( 'FROM' Ident 'IMPORT' IdentList ';' |
8112 : : 'IMPORT'
8113 : : % PushT(ImportTok)
8114 : : determines whether Ident or Module %
8115 : : IdentList ';' )
8116 : : % PopAuto %
8117 : :
8118 : :
8119 : : first symbols:importtok, fromtok
8120 : :
8121 : : cannot reachend
8122 : : */
8123 : :
8124 : 279232 : static void Import (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8125 : : {
8126 : 279232 : M2Quads_PushAutoOn ();
8127 : 279232 : if (M2LexBuf_currenttoken == M2Reserved_fromtok)
8128 : : {
8129 : 245496 : Expect (M2Reserved_fromtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8130 : 245496 : Ident (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_importtok-M2Reserved_arraytok))), stopset2);
8131 : 245496 : Expect (M2Reserved_importtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8132 : 245496 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8133 : 245496 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8134 : : }
8135 : 33736 : else if (M2LexBuf_currenttoken == M2Reserved_importtok)
8136 : : {
8137 : : /* avoid dangling else. */
8138 : 33736 : Expect (M2Reserved_importtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8139 : : /* determines whether Ident or Module */
8140 : 33736 : M2Quads_PushT (M2Reserved_ImportTok);
8141 : 33736 : IdentList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8142 : 33736 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8143 : : }
8144 : : else
8145 : : {
8146 : : /* avoid dangling else. */
8147 : 0 : ErrorArray ((const char *) "expecting one of: {%KIMPORT} {%KFROM}", 37);
8148 : : }
8149 : 279232 : M2Quads_PopAuto ();
8150 : 279232 : }
8151 : :
8152 : :
8153 : : /*
8154 : : DefinitionModule := 'DEFINITION'
8155 : : % M2Error.DefaultDefinitionModule %
8156 : : 'MODULE'
8157 : : % PushAutoOn %
8158 : : [ 'FOR' string ] Ident
8159 : : % PCStartBuildDefModule ;
8160 : : PushAutoOff %
8161 : : ';' { Import
8162 : : % PCBuildImportOuterModule %
8163 : : } [ Export ] { Definition }
8164 : : 'END'
8165 : : % PushAutoOn %
8166 : : Ident
8167 : : % PCEndBuildDefModule %
8168 : : '.'
8169 : : % PopAuto ; PopAuto ; PopAuto %
8170 : :
8171 : :
8172 : : first symbols:definitiontok
8173 : :
8174 : : cannot reachend
8175 : : */
8176 : :
8177 : 114616 : static void DefinitionModule (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8178 : : {
8179 : 114616 : Expect (M2Reserved_definitiontok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2);
8180 : 114616 : M2Error_DefaultDefinitionModule ();
8181 : 114616 : Expect (M2Reserved_moduletok, stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8182 : 114616 : M2Quads_PushAutoOn ();
8183 : 114616 : if (M2LexBuf_currenttoken == M2Reserved_fortok)
8184 : : {
8185 : 7758 : Expect (M2Reserved_fortok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
8186 : 7758 : string (stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8187 : : }
8188 : 114616 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8189 : 114616 : PCSymBuild_PCStartBuildDefModule ();
8190 : 114616 : M2Quads_PushAutoOff ();
8191 : 114616 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
8192 : 299000 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
8193 : : {
8194 : 69768 : Import (stopset0, stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8195 : 69768 : PCSymBuild_PCBuildImportOuterModule ();
8196 : : }
8197 : : /* while */
8198 : 114616 : if (M2LexBuf_currenttoken == M2Reserved_exporttok)
8199 : : {
8200 : 67042 : Export (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8201 : : }
8202 : 2127492 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((PCBuild_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
8203 : : {
8204 : 2012876 : Definition (stopset0, stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8205 : : }
8206 : : /* while */
8207 : 114616 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8208 : 114616 : M2Quads_PushAutoOn ();
8209 : 114616 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
8210 : 114616 : PCSymBuild_PCEndBuildDefModule ();
8211 : 114616 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
8212 : 114616 : M2Quads_PopAuto ();
8213 : 114616 : M2Quads_PopAuto ();
8214 : 114616 : M2Quads_PopAuto ();
8215 : 114616 : }
8216 : :
8217 : :
8218 : : /*
8219 : : Definition := 'CONST' { ConstantDeclaration ';' } |
8220 : : 'TYPE' { Ident ( ';' | '=' Type Alignment
8221 : : ';' ) } |
8222 : : 'VAR' { VariableDeclaration ';' } |
8223 : : DefProcedureHeading ';'
8224 : :
8225 : : first symbols:proceduretok, vartok, typetok, consttok
8226 : :
8227 : : cannot reachend
8228 : : */
8229 : :
8230 : 2012876 : static void Definition (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8231 : : {
8232 : 2012876 : if (M2LexBuf_currenttoken == M2Reserved_consttok)
8233 : : {
8234 : 22405 : Expect (M2Reserved_consttok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8235 : 223513 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8236 : : {
8237 : 178703 : ConstantDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8238 : 178703 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8239 : : }
8240 : : /* while */
8241 : : }
8242 : 1990471 : else if (M2LexBuf_currenttoken == M2Reserved_typetok)
8243 : : {
8244 : : /* avoid dangling else. */
8245 : 65648 : Expect (M2Reserved_typetok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8246 : 253049 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8247 : : {
8248 : 121753 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
8249 : 121753 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
8250 : : {
8251 : 21929 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8252 : : }
8253 : 99824 : else if (M2LexBuf_currenttoken == M2Reserved_equaltok)
8254 : : {
8255 : : /* avoid dangling else. */
8256 : 99824 : Expect (M2Reserved_equaltok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(PCBuild_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|(PCBuild_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8257 : 99824 : Type (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8258 : 99824 : Alignment (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8259 : 99824 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8260 : : }
8261 : : else
8262 : : {
8263 : : /* avoid dangling else. */
8264 : 0 : ErrorArray ((const char *) "expecting one of: {%K=} {%K;}", 29);
8265 : : }
8266 : : }
8267 : : /* while */
8268 : : }
8269 : 1924823 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
8270 : : {
8271 : : /* avoid dangling else. */
8272 : 3430 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8273 : 10928 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8274 : : {
8275 : 4068 : VariableDeclaration (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8276 : 4068 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8277 : : }
8278 : : /* while */
8279 : : }
8280 : 1921393 : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
8281 : : {
8282 : : /* avoid dangling else. */
8283 : 1921393 : DefProcedureHeading (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8284 : 1921393 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8285 : : }
8286 : : else
8287 : : {
8288 : : /* avoid dangling else. */
8289 : 0 : ErrorArray ((const char *) "expecting one of: {%KPROCEDURE} {%KVAR} {%KTYPE} {%KCONST}", 58);
8290 : : }
8291 : 2012876 : }
8292 : :
8293 : :
8294 : : /*
8295 : : AsmStatement := 'ASM' [ 'VOLATILE' ] '(' AsmOperands
8296 : : ')'
8297 : :
8298 : : first symbols:asmtok
8299 : :
8300 : : cannot reachend
8301 : : */
8302 : :
8303 : 24 : static void AsmStatement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8304 : : {
8305 : 24 : Expect (M2Reserved_asmtok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_volatiletok-M2Reserved_unqualifiedtok))));
8306 : 24 : if (M2LexBuf_currenttoken == M2Reserved_volatiletok)
8307 : : {
8308 : 12 : Expect (M2Reserved_volatiletok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
8309 : : }
8310 : 24 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8311 : 24 : AsmOperands (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
8312 : 24 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
8313 : 24 : }
8314 : :
8315 : :
8316 : : /*
8317 : : NamedOperand := '[' Ident ']'
8318 : :
8319 : : first symbols:lsbratok
8320 : :
8321 : : cannot reachend
8322 : : */
8323 : :
8324 : 0 : static void NamedOperand (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8325 : : {
8326 : 0 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8327 : 0 : Ident (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8328 : 0 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
8329 : 0 : }
8330 : :
8331 : :
8332 : : /*
8333 : : AsmOperandName := [ NamedOperand ]
8334 : :
8335 : : first symbols:lsbratok
8336 : :
8337 : : reachend
8338 : : */
8339 : :
8340 : 24 : static void AsmOperandName (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8341 : : {
8342 : 0 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
8343 : : {
8344 : 0 : NamedOperand (stopset0, stopset1, stopset2);
8345 : : }
8346 : 0 : }
8347 : :
8348 : :
8349 : : /*
8350 : : AsmOperands := ConstExpression [ ':' AsmList [ ':'
8351 : : AsmList
8352 : : [
8353 : : ':' TrashList ] ] ]
8354 : :
8355 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok
8356 : :
8357 : : cannot reachend
8358 : : */
8359 : :
8360 : 24 : static void AsmOperands (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8361 : : {
8362 : 24 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8363 : 24 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
8364 : : {
8365 : 18 : Expect (M2Reserved_colontok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8366 : 18 : AsmList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8367 : 18 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
8368 : : {
8369 : 12 : Expect (M2Reserved_colontok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8370 : 12 : AsmList (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8371 : 12 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
8372 : : {
8373 : 6 : Expect (M2Reserved_colontok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8374 : 6 : TrashList (stopset0, stopset1, stopset2);
8375 : : }
8376 : : }
8377 : : }
8378 : 24 : }
8379 : :
8380 : :
8381 : : /*
8382 : : AsmList := [ AsmElement ] { ',' AsmElement }
8383 : :
8384 : : first symbols:identtok, attributetok, lcbratok, stringtok, integertok, realtok, nottok, lparatok, minustok, plustok, lsbratok, commatok
8385 : :
8386 : : reachend
8387 : : */
8388 : :
8389 : 30 : static void AsmList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8390 : : {
8391 : 30 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
8392 : : {
8393 : 24 : AsmElement (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
8394 : : }
8395 : 30 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
8396 : : {
8397 : 0 : Expect (M2Reserved_commatok, stopset0|(PCBuild_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|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8398 : 0 : AsmElement (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
8399 : : }
8400 : : /* while */
8401 : 30 : }
8402 : :
8403 : :
8404 : : /*
8405 : : AsmElement := AsmOperandName ConstExpression '('
8406 : : Expression ')'
8407 : :
8408 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok, lsbratok
8409 : :
8410 : : cannot reachend
8411 : : */
8412 : :
8413 : 24 : static void AsmElement (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8414 : : {
8415 : 24 : AsmOperandName (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8416 : 24 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
8417 : 24 : Expect (M2Reserved_lparatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8418 : 24 : Expression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
8419 : 24 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
8420 : 24 : }
8421 : :
8422 : :
8423 : : /*
8424 : : TrashList := [ ConstExpression ] { ',' ConstExpression }
8425 : :
8426 : : first symbols:identtok, realtok, integertok, stringtok, lcbratok, attributetok, lparatok, nottok, plustok, minustok, commatok
8427 : :
8428 : : reachend
8429 : : */
8430 : :
8431 : 6 : static void TrashList (PCBuild_SetOfStop0 stopset0, PCBuild_SetOfStop1 stopset1, PCBuild_SetOfStop2 stopset2)
8432 : : {
8433 : 6 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((PCBuild_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)) & ((PCBuild_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))))
8434 : : {
8435 : 0 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
8436 : : }
8437 : 6 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
8438 : : {
8439 : 0 : Expect (M2Reserved_commatok, stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(PCBuild_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(PCBuild_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))));
8440 : 0 : ConstExpression (stopset0|(PCBuild_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
8441 : : }
8442 : : /* while */
8443 : 6 : }
8444 : :
8445 : :
8446 : : /*
8447 : : CompilationUnit - returns TRUE if the input was correct enough to parse
8448 : : in future passes.
8449 : : */
8450 : :
8451 : 177807 : extern "C" bool PCBuild_CompilationUnit (void)
8452 : : {
8453 : 177807 : seenError = false;
8454 : 177807 : FileUnit ((PCBuild_SetOfStop0) ((1 << (M2Reserved_eoftok-M2Reserved_eoftok))), (PCBuild_SetOfStop1) 0, (PCBuild_SetOfStop2) 0);
8455 : 177783 : return ! seenError;
8456 : : /* static analysis guarentees a RETURN statement will be used before here. */
8457 : : __builtin_unreachable ();
8458 : : }
8459 : :
8460 : 14232 : extern "C" void _M2_PCBuild_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
8461 : : {
8462 : 14232 : BlockState = M2StateCheck_InitState ();
8463 : 14232 : }
8464 : :
8465 : 0 : extern "C" void _M2_PCBuild_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
8466 : : {
8467 : 0 : }
|
