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