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