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