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