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