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