Branch data Line data Source code
1 : : /* do not edit automatically generated by mc from P3Build. */
2 : : /* output from m2-3.bnf, automatically generated do not edit if these
3 : : are the top two lines in the file.
4 : :
5 : : Copyright (C) 2001-2024 Free Software Foundation, Inc.
6 : : Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
7 : :
8 : : This file is part of GNU Modula-2.
9 : :
10 : : GNU Modula-2 is free software; you can redistribute it and/or modify
11 : : it under the terms of the GNU General Public License as published by
12 : : the Free Software Foundation; either version 3, or (at your option)
13 : : any later version.
14 : :
15 : : GNU Modula-2 is distributed in the hope that it will be useful, but
16 : : WITHOUT ANY WARRANTY; without even the implied warranty of
17 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 : : General Public License for more details.
19 : :
20 : : You should have received a copy of the GNU General Public License
21 : : along with GNU Modula-2; see the file COPYING. If not,
22 : : see <https://www.gnu.org/licenses/>. */
23 : :
24 : : #include "config.h"
25 : : #include "system.h"
26 : : #include "gcc-consolidation.h"
27 : :
28 : : #include <stdbool.h>
29 : : # if !defined (PROC_D)
30 : : # define PROC_D
31 : : typedef void (*PROC_t) (void);
32 : : typedef struct { PROC_t proc; } PROC;
33 : : # endif
34 : :
35 : : # if !defined (TRUE)
36 : : # define TRUE (1==1)
37 : : # endif
38 : :
39 : : # if !defined (FALSE)
40 : : # define FALSE (1==0)
41 : : # endif
42 : :
43 : : #define _P3Build_C
44 : :
45 : : #include "GP3Build.h"
46 : : # include "GM2LexBuf.h"
47 : : # include "GM2Error.h"
48 : : # include "GNameKey.h"
49 : : # include "GDynamicStrings.h"
50 : : # include "GM2Printf.h"
51 : : # include "GM2Debug.h"
52 : : # include "GP2SymBuild.h"
53 : : # include "GM2MetaError.h"
54 : : # include "GM2CaseList.h"
55 : : # include "GM2Reserved.h"
56 : : # include "GM2Quads.h"
57 : : # include "GP3SymBuild.h"
58 : : # include "GSymbolTable.h"
59 : : # include "GM2Batch.h"
60 : : # include "GM2StateCheck.h"
61 : :
62 : : # define Debugging false
63 : : # define DebugAsm false
64 : : typedef unsigned int P3Build_stop0;
65 : :
66 : : typedef unsigned int P3Build_SetOfStop0;
67 : :
68 : : typedef unsigned int P3Build_stop1;
69 : :
70 : : typedef unsigned int P3Build_SetOfStop1;
71 : :
72 : : typedef unsigned int P3Build_stop2;
73 : :
74 : : typedef unsigned int P3Build_SetOfStop2;
75 : :
76 : : # define Pass1 false
77 : : static bool seenError;
78 : : static M2StateCheck_StateCheck BlockState;
79 : :
80 : : /*
81 : : CompilationUnit - returns TRUE if the input was correct enough to parse
82 : : in future passes.
83 : : */
84 : :
85 : : extern "C" bool P3Build_CompilationUnit (void);
86 : : static void ErrorString (DynamicStrings_String s);
87 : : static void ErrorArray (const char *a_, unsigned int _a_high);
88 : :
89 : : /*
90 : : DescribeStop - issues a message explaining what tokens were expected
91 : : */
92 : :
93 : : static DynamicStrings_String DescribeStop (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
94 : :
95 : : /*
96 : : DescribeError - issues a message explaining what tokens were expected
97 : : */
98 : :
99 : : static void DescribeError (void);
100 : :
101 : : /*
102 : : SyntaxError - after a syntax error we skip all tokens up until we reach
103 : : a stop symbol.
104 : : */
105 : :
106 : : static void SyntaxError (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
107 : :
108 : : /*
109 : : SyntaxCheck -
110 : : */
111 : :
112 : : static void SyntaxCheck (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
113 : :
114 : : /*
115 : : WarnMissingToken - generates a warning message about a missing token, t.
116 : : */
117 : :
118 : : static void WarnMissingToken (M2Reserved_toktype t);
119 : :
120 : : /*
121 : : MissingToken - generates a warning message about a missing token, t.
122 : : */
123 : :
124 : : static void MissingToken (M2Reserved_toktype t);
125 : :
126 : : /*
127 : : CheckAndInsert -
128 : : */
129 : :
130 : : static bool CheckAndInsert (M2Reserved_toktype t, P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
131 : :
132 : : /*
133 : : InStopSet
134 : : */
135 : :
136 : : static bool InStopSet (M2Reserved_toktype t, P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
137 : :
138 : : /*
139 : : PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
140 : : If it is not then it will insert a token providing the token
141 : : is one of ; ] ) } . OF END ,
142 : :
143 : : if the stopset contains <identtok> then we do not insert a token
144 : : */
145 : :
146 : : static void PeepToken (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
147 : :
148 : : /*
149 : : Expect -
150 : : */
151 : :
152 : : static void Expect (M2Reserved_toktype t, P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
153 : :
154 : : /*
155 : : Ident - error checking varient of Ident
156 : : */
157 : :
158 : : static void Ident (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
159 : :
160 : : /*
161 : : string -
162 : : */
163 : :
164 : : static void string (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
165 : :
166 : : /*
167 : : Integer -
168 : : */
169 : :
170 : : static void Integer (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
171 : :
172 : : /*
173 : : Real -
174 : : */
175 : :
176 : : static void Real (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
177 : :
178 : : /*
179 : : FileUnit :=
180 : : % PushAutoOff %
181 : : ( DefinitionModule |
182 : : ImplementationOrProgramModule )
183 : : % PopAuto %
184 : :
185 : :
186 : : first symbols:implementationtok, moduletok, definitiontok
187 : :
188 : : cannot reachend
189 : : */
190 : :
191 : : static void FileUnit (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
192 : :
193 : : /*
194 : : ProgramModule :=
195 : : % VAR modulet, endt: CARDINAL ; %
196 : :
197 : : % modulet := GetTokenNo () %
198 : : 'MODULE'
199 : : % M2Error.DefaultProgramModule %
200 : :
201 : : % PushAutoOn %
202 : : Ident
203 : : % P3StartBuildProgModule %
204 : :
205 : : % StartBuildModFile (modulet) %
206 : :
207 : : % BuildModuleStart (modulet) %
208 : :
209 : : % PushAutoOff %
210 : : [ Priority ] ';'
211 : : % BuildScaffold (modulet,
212 : : GetCurrentModule ()) %
213 : : { Import } Block
214 : : % PushAutoOn %
215 : :
216 : : % endt := GetTokenNo () -1 %
217 : : Ident
218 : : % EndBuildFile (endt) %
219 : :
220 : : % P3EndBuildProgModule %
221 : : '.'
222 : : % PopAuto ; PopAuto %
223 : :
224 : :
225 : : first symbols:moduletok
226 : :
227 : : cannot reachend
228 : : */
229 : :
230 : : static void ProgramModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
231 : :
232 : : /*
233 : : ImplementationModule :=
234 : : % VAR modulet, endt: CARDINAL ; %
235 : :
236 : : % modulet := GetTokenNo () %
237 : : 'IMPLEMENTATION'
238 : : % M2Error.DefaultImplementationModule %
239 : : 'MODULE'
240 : : % PushAutoOn %
241 : : Ident
242 : : % StartBuildModFile (modulet) %
243 : :
244 : : % P3StartBuildImpModule %
245 : :
246 : : % BuildModuleStart (modulet) %
247 : :
248 : : % PushAutoOff %
249 : : [ Priority ] ';'
250 : : % BuildScaffold (modulet,
251 : : GetCurrentModule ()) %
252 : : { Import } Block
253 : : % PushAutoOn %
254 : :
255 : : % endt := GetTokenNo () -1 %
256 : : Ident
257 : : % EndBuildFile (endt) %
258 : :
259 : : % P3EndBuildImpModule %
260 : : '.'
261 : : % PopAuto ; PopAuto ; PopAuto %
262 : :
263 : :
264 : : first symbols:implementationtok
265 : :
266 : : cannot reachend
267 : : */
268 : :
269 : : static void ImplementationModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
270 : :
271 : : /*
272 : : ImplementationOrProgramModule :=
273 : : % PushAutoOff %
274 : : ( ImplementationModule |
275 : : ProgramModule )
276 : :
277 : : % PopAuto %
278 : :
279 : :
280 : : first symbols:moduletok, implementationtok
281 : :
282 : : cannot reachend
283 : : */
284 : :
285 : : static void ImplementationOrProgramModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
286 : :
287 : : /*
288 : : Number := Integer | Real
289 : :
290 : : first symbols:realtok, integertok
291 : :
292 : : cannot reachend
293 : : */
294 : :
295 : : static void Number (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
296 : :
297 : : /*
298 : : Qualident :=
299 : : % VAR name : Name ;
300 : : init, ip1,
301 : : tokstart, tok : CARDINAL ; %
302 : : Ident
303 : : % IF IsAutoPushOn()
304 : : THEN
305 : : PopTtok(name, tokstart) ;
306 : : tok := tokstart ;
307 : : init := RequestSym (tok, name) ;
308 : : WHILE IsDefImp (init) OR IsModule (init) DO
309 : : Expect (periodtok, stopset0, stopset1, stopset2 + SetOfStop2{identtok}) ;
310 : : StartScope (init) ;
311 : : Ident (stopset0, stopset1, stopset2) ;
312 : : PopTtok (name, tok) ;
313 : : ip1 := RequestSym (tok, name) ;
314 : : PutIncluded(ip1) ;
315 : : EndScope ;
316 : : CheckCanBeImported(init, ip1) ;
317 : : init := ip1
318 : : END ;
319 : : IF tok#tokstart
320 : : THEN
321 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
322 : : END ;
323 : : IF IsProcedure(init) OR IsProcType(init)
324 : : THEN
325 : : PushTtok(init, tok)
326 : : ELSE
327 : : PushTFtok(init, GetType(init), tok) ;
328 : : END
329 : : ELSE %
330 : : { '.' Ident }
331 : : % END %
332 : :
333 : :
334 : : first symbols:identtok
335 : :
336 : : cannot reachend
337 : : */
338 : :
339 : : static void Qualident (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
340 : :
341 : : /*
342 : : QualidentCheck :=
343 : : % PushAutoOn %
344 : : Qualident
345 : : % PopAuto %
346 : :
347 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
348 : :
349 : : % IF NOT IsAutoPushOn ()
350 : : THEN
351 : : PopNothing
352 : : END %
353 : :
354 : :
355 : : first symbols:identtok
356 : :
357 : : cannot reachend
358 : : */
359 : :
360 : : static void QualidentCheck (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
361 : :
362 : : /*
363 : : ConstantDeclaration :=
364 : : % VAR tokno: CARDINAL ; %
365 : :
366 : : % InclConst (BlockState) %
367 : :
368 : : % PushAutoOn %
369 : : ( Ident '='
370 : : % tokno := GetTokenNo () -1 %
371 : :
372 : : % BuildConst %
373 : : ConstExpression )
374 : : % BuildAssignConstant (tokno) %
375 : :
376 : : % PopAuto %
377 : :
378 : : % ExclConst (BlockState) %
379 : :
380 : :
381 : : first symbols:identtok
382 : :
383 : : cannot reachend
384 : : */
385 : :
386 : : static void ConstantDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
387 : :
388 : : /*
389 : : ConstExpression :=
390 : : % VAR tokpos: CARDINAL ; %
391 : :
392 : : % PushInConstExpression %
393 : :
394 : : % PushAutoOn %
395 : : SimpleConstExpr [ Relation
396 : : % tokpos := GetTokenNo ()-1 %
397 : : SimpleConstExpr
398 : :
399 : : % BuildRelOp (tokpos) %
400 : : ]
401 : : % PopAuto %
402 : :
403 : : % PopInConstExpression %
404 : :
405 : :
406 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
407 : :
408 : : cannot reachend
409 : : */
410 : :
411 : : static void ConstExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
412 : :
413 : : /*
414 : : Relation := '='
415 : : % PushTtok(EqualTok, GetTokenNo() -1) ;
416 : : RecordOp %
417 : : | '#'
418 : : % PushTtok(HashTok, GetTokenNo() -1) ;
419 : : RecordOp %
420 : : | '<>'
421 : : % PushTtok(LessGreaterTok, GetTokenNo() -1) ;
422 : : RecordOp %
423 : : | '<'
424 : : % PushTtok(LessTok, GetTokenNo() -1) %
425 : : | '<='
426 : : % PushTtok(LessEqualTok, GetTokenNo() -1) %
427 : : | '>'
428 : : % PushTtok(GreaterTok, GetTokenNo() -1) %
429 : : | '>='
430 : : % PushTtok(GreaterEqualTok, GetTokenNo() -1) %
431 : : | 'IN'
432 : : % PushTtok(InTok, GetTokenNo() -1) %
433 : :
434 : :
435 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
436 : :
437 : : cannot reachend
438 : : */
439 : :
440 : : static void Relation (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
441 : :
442 : : /*
443 : : SimpleConstExpr := UnaryOrConstTerm { AddOperator
444 : : ConstTerm
445 : :
446 : : % BuildBinaryOp %
447 : : }
448 : :
449 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
450 : :
451 : : cannot reachend
452 : : */
453 : :
454 : : static void SimpleConstExpr (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
455 : :
456 : : /*
457 : : UnaryOrConstTerm := '+'
458 : : % PushTtok(PlusTok, GetTokenNo() -1) %
459 : : ConstTerm
460 : : % BuildUnaryOp %
461 : : | '-'
462 : : % PushTtok(MinusTok, GetTokenNo() -1) %
463 : : ConstTerm
464 : : % BuildUnaryOp %
465 : : | ConstTerm
466 : :
467 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
468 : :
469 : : cannot reachend
470 : : */
471 : :
472 : : static void UnaryOrConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
473 : :
474 : : /*
475 : : AddOperator := '+'
476 : : % PushTtok(PlusTok, GetTokenNo() -1) ;
477 : : RecordOp %
478 : : | '-'
479 : : % PushTtok(MinusTok, GetTokenNo() -1) ;
480 : : RecordOp %
481 : : | 'OR'
482 : : % PushTtok(OrTok, GetTokenNo() -1) ;
483 : : RecordOp %
484 : :
485 : :
486 : : first symbols:ortok, minustok, plustok
487 : :
488 : : cannot reachend
489 : : */
490 : :
491 : : static void AddOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
492 : :
493 : : /*
494 : : ConstTerm := ConstFactor { MulOperator ConstFactor
495 : :
496 : : % BuildBinaryOp %
497 : : }
498 : :
499 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok
500 : :
501 : : cannot reachend
502 : : */
503 : :
504 : : static void ConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
505 : :
506 : : /*
507 : : MulOperator := '*'
508 : : % PushTtok(TimesTok, GetTokenNo() -1) ;
509 : : RecordOp %
510 : : | '/'
511 : : % PushTtok(DivideTok, GetTokenNo() -1) ;
512 : : RecordOp %
513 : : | 'DIV'
514 : : % PushTtok(DivTok, GetTokenNo() -1) ;
515 : : RecordOp %
516 : : | 'MOD'
517 : : % PushTtok(ModTok, GetTokenNo() -1) ;
518 : : RecordOp %
519 : : | 'REM'
520 : : % PushTtok(RemTok, GetTokenNo() -1) ;
521 : : RecordOp %
522 : : | 'AND'
523 : : % PushTtok(AndTok, GetTokenNo() -1) ;
524 : : RecordOp %
525 : : | '&'
526 : : % PushTtok(AmbersandTok, GetTokenNo() -1) ;
527 : : RecordOp %
528 : :
529 : :
530 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
531 : :
532 : : cannot reachend
533 : : */
534 : :
535 : : static void MulOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
536 : :
537 : : /*
538 : : ConstFactor :=
539 : : % VAR tokpos: CARDINAL ; %
540 : : Number | ConstString |
541 : : ConstSetOrQualidentOrFunction |
542 : : '(' ConstExpression ')' |
543 : : 'NOT'
544 : : % tokpos := GetTokenNo() -1 %
545 : : ConstFactor
546 : : % BuildNot (tokpos) %
547 : : | ConstAttribute
548 : :
549 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok
550 : :
551 : : cannot reachend
552 : : */
553 : :
554 : : static void ConstFactor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
555 : :
556 : : /*
557 : : ConstString := string
558 : :
559 : : first symbols:stringtok
560 : :
561 : : cannot reachend
562 : : */
563 : :
564 : : static void ConstString (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
565 : :
566 : : /*
567 : : ComponentElement := ConstExpression ( '..' ConstExpression
568 : :
569 : : % PushTtok(PeriodPeriodTok, GetTokenNo() -1) %
570 : : |
571 : :
572 : : % PushT(NulTok) %
573 : : )
574 : :
575 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
576 : :
577 : : cannot reachend
578 : : */
579 : :
580 : : static void ComponentElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
581 : :
582 : : /*
583 : : ComponentValue :=
584 : : % VAR tokpos: CARDINAL ; %
585 : : (
586 : : % tokpos := GetTokenNo () %
587 : : ComponentElement (
588 : : % tokpos := GetTokenNo () %
589 : : 'BY' ConstExpression
590 : :
591 : : % PushTtok (ByTok, tokpos) %
592 : : |
593 : :
594 : : % PushTtok (NulTok, tokpos) %
595 : : ) )
596 : :
597 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
598 : :
599 : : cannot reachend
600 : : */
601 : :
602 : : static void ComponentValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
603 : :
604 : : /*
605 : : ArraySetRecordValue := ComponentValue
606 : : % BuildComponentValue %
607 : : { ','
608 : : % NextConstructorField %
609 : : ComponentValue
610 : : % BuildComponentValue %
611 : : }
612 : :
613 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
614 : :
615 : : cannot reachend
616 : : */
617 : :
618 : : static void ArraySetRecordValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
619 : :
620 : : /*
621 : : Constructor :=
622 : : % VAR tokpos: CARDINAL ; %
623 : :
624 : : % DisplayStack %
625 : :
626 : : % InclConstructor (BlockState) %
627 : :
628 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
629 : : '{'
630 : : % tokpos := GetTokenNo () -1 %
631 : :
632 : : % BuildConstructorStart (tokpos) %
633 : : [ ArraySetRecordValue ]
634 : : % BuildConstructorEnd (tokpos, GetTokenNo()) %
635 : : '}'
636 : : % ExclConstructor (BlockState) %
637 : :
638 : :
639 : : first symbols:lcbratok
640 : :
641 : : cannot reachend
642 : : */
643 : :
644 : : static void Constructor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
645 : :
646 : : /*
647 : : ConstSetOrQualidentOrFunction :=
648 : : % VAR tokpos: CARDINAL ; %
649 : :
650 : : % tokpos := GetTokenNo () %
651 : : ( Qualident [ Constructor |
652 : : ConstActualParameters
653 : :
654 : : % BuildConstFunctionCall %
655 : : ] |
656 : :
657 : : % BuildTypeForConstructor (tokpos) %
658 : : Constructor )
659 : :
660 : : first symbols:lcbratok, identtok
661 : :
662 : : cannot reachend
663 : : */
664 : :
665 : : static void ConstSetOrQualidentOrFunction (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
666 : :
667 : : /*
668 : : ConstActualParameters :=
669 : : % PushState (BlockState) %
670 : :
671 : : % InclConstFunc (BlockState) %
672 : :
673 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
674 : :
675 : : % PushInConstParameters %
676 : : ActualParameters
677 : : % PopInConstParameters %
678 : :
679 : : % PopState (BlockState) %
680 : :
681 : :
682 : : first symbols:lparatok
683 : :
684 : : cannot reachend
685 : : */
686 : :
687 : : static void ConstActualParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
688 : :
689 : : /*
690 : : ConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
691 : : '(' '('
692 : : % PushAutoOn %
693 : : ConstAttributeExpression
694 : : % PopAuto %
695 : : ')' ')'
696 : :
697 : : first symbols:attributetok
698 : :
699 : : cannot reachend
700 : : */
701 : :
702 : : static void ConstAttribute (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
703 : :
704 : : /*
705 : : ConstAttributeExpression := Ident
706 : : % BuildBuiltinConst %
707 : : | '<' Qualident ','
708 : : Ident
709 : : % BuildBuiltinTypeInfo %
710 : : '>'
711 : :
712 : : first symbols:lesstok, identtok
713 : :
714 : : cannot reachend
715 : : */
716 : :
717 : : static void ConstAttributeExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
718 : :
719 : : /*
720 : : ByteAlignment :=
721 : : % VAR tokpos: CARDINAL ; %
722 : : ''
723 : : % PopAuto %
724 : :
725 : :
726 : : first symbols:ldirectivetok
727 : :
728 : : cannot reachend
729 : : */
730 : :
731 : : static void ByteAlignment (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
732 : :
733 : : /*
734 : : Alignment := [ ByteAlignment ]
735 : :
736 : : first symbols:ldirectivetok
737 : :
738 : : reachend
739 : : */
740 : :
741 : : static void Alignment (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
742 : :
743 : : /*
744 : : TypeDeclaration :=
745 : : % InclType (BlockState) %
746 : : Ident '=' Type Alignment
747 : : % ExclType (BlockState) %
748 : :
749 : :
750 : : first symbols:identtok
751 : :
752 : : cannot reachend
753 : : */
754 : :
755 : : static void TypeDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
756 : :
757 : : /*
758 : : Type :=
759 : : % PushAutoOff %
760 : : ( SimpleType | ArrayType | RecordType |
761 : : SetType | PointerType |
762 : : ProcedureType )
763 : : % PopAuto %
764 : :
765 : :
766 : : first symbols:lparatok, lsbratok, proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok
767 : :
768 : : cannot reachend
769 : : */
770 : :
771 : : static void Type (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
772 : :
773 : : /*
774 : : SimpleType := QualidentCheck [ SubrangeType ] |
775 : : Enumeration | SubrangeType
776 : :
777 : : first symbols:lsbratok, lparatok, identtok
778 : :
779 : : cannot reachend
780 : : */
781 : :
782 : : static void SimpleType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
783 : :
784 : : /*
785 : : Enumeration := '(' ( IdentList ) ')'
786 : :
787 : : first symbols:lparatok
788 : :
789 : : cannot reachend
790 : : */
791 : :
792 : : static void Enumeration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
793 : :
794 : : /*
795 : : IdentList := Ident
796 : : % VAR
797 : : on: BOOLEAN ;
798 : : n : CARDINAL ; %
799 : :
800 : : % on := IsAutoPushOn() ;
801 : : IF on
802 : : THEN
803 : : n := 1
804 : : END %
805 : : { ',' Ident
806 : : % IF on
807 : : THEN
808 : : INC(n)
809 : : END %
810 : : }
811 : : % IF on
812 : : THEN
813 : : PushT(n)
814 : : END %
815 : :
816 : :
817 : : first symbols:identtok
818 : :
819 : : cannot reachend
820 : : */
821 : :
822 : : static void IdentList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
823 : :
824 : : /*
825 : : SubrangeType := '[' ConstExpression '..' ConstExpression
826 : : ']'
827 : : % BuildSubrange ; %
828 : :
829 : :
830 : : first symbols:lsbratok
831 : :
832 : : cannot reachend
833 : : */
834 : :
835 : : static void SubrangeType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
836 : :
837 : : /*
838 : : ArrayType := 'ARRAY' SimpleType { ',' SimpleType }
839 : : 'OF' Type
840 : :
841 : : first symbols:arraytok
842 : :
843 : : cannot reachend
844 : : */
845 : :
846 : : static void ArrayType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
847 : :
848 : : /*
849 : : RecordType := 'RECORD' [ DefaultRecordAttributes ]
850 : : FieldListSequence 'END'
851 : :
852 : : first symbols:recordtok
853 : :
854 : : cannot reachend
855 : : */
856 : :
857 : : static void RecordType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
858 : :
859 : : /*
860 : : DefaultRecordAttributes := ''
861 : :
862 : : first symbols:ldirectivetok
863 : :
864 : : cannot reachend
865 : : */
866 : :
867 : : static void DefaultRecordAttributes (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
868 : :
869 : : /*
870 : : RecordFieldPragma := [ '' ]
871 : :
872 : : first symbols:ldirectivetok
873 : :
874 : : reachend
875 : : */
876 : :
877 : : static void RecordFieldPragma (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
878 : :
879 : : /*
880 : : FieldPragmaExpression :=
881 : : % PushAutoOn %
882 : : Ident PragmaConstExpression
883 : :
884 : : % BuildPragmaField %
885 : :
886 : : % PopAuto %
887 : :
888 : :
889 : : first symbols:identtok
890 : :
891 : : cannot reachend
892 : : */
893 : :
894 : : static void FieldPragmaExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
895 : :
896 : : /*
897 : : PragmaConstExpression := ( '(' ConstExpression ')' |
898 : :
899 : : % PushT(NulSym) %
900 : :
901 : : % Annotate('NulSym||no pragma const') %
902 : : )
903 : :
904 : : first symbols:lparatok
905 : :
906 : : reachend
907 : : */
908 : :
909 : : static void PragmaConstExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
910 : :
911 : : /*
912 : : AttributeExpression := Ident '(' ConstExpression
913 : : ')'
914 : :
915 : : first symbols:identtok
916 : :
917 : : cannot reachend
918 : : */
919 : :
920 : : static void AttributeExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
921 : :
922 : : /*
923 : : FieldListSequence := FieldListStatement { ';' FieldListStatement }
924 : :
925 : : first symbols:casetok, identtok, semicolontok
926 : :
927 : : reachend
928 : : */
929 : :
930 : : static void FieldListSequence (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
931 : :
932 : : /*
933 : : FieldListStatement := [ FieldList ]
934 : :
935 : : first symbols:identtok, casetok
936 : :
937 : : reachend
938 : : */
939 : :
940 : : static void FieldListStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
941 : :
942 : : /*
943 : : FieldList := IdentList ':' Type RecordFieldPragma |
944 : : 'CASE'
945 : : % BeginVarient %
946 : : CaseTag 'OF' Varient { '|' Varient }
947 : : [ 'ELSE'
948 : : % ElseVarient %
949 : : FieldListSequence ] 'END'
950 : : % EndVarient %
951 : :
952 : :
953 : : first symbols:casetok, identtok
954 : :
955 : : cannot reachend
956 : : */
957 : :
958 : : static void FieldList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
959 : :
960 : : /*
961 : : TagIdent := [ Ident ]
962 : :
963 : : first symbols:identtok
964 : :
965 : : reachend
966 : : */
967 : :
968 : : static void TagIdent (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
969 : :
970 : : /*
971 : : CaseTag := TagIdent [ ':' QualidentCheck ]
972 : :
973 : : first symbols:colontok, identtok
974 : :
975 : : reachend
976 : : */
977 : :
978 : : static void CaseTag (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
979 : :
980 : : /*
981 : : Varient := [
982 : : % BeginVarientList %
983 : : VarientCaseLabelList ':' FieldListSequence
984 : :
985 : : % EndVarientList %
986 : : ]
987 : :
988 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
989 : :
990 : : reachend
991 : : */
992 : :
993 : : static void Varient (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
994 : :
995 : : /*
996 : : VarientCaseLabelList := VarientCaseLabels { ','
997 : : VarientCaseLabels }
998 : :
999 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1000 : :
1001 : : cannot reachend
1002 : : */
1003 : :
1004 : : static void VarientCaseLabelList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1005 : :
1006 : : /*
1007 : : VarientCaseLabels := ConstExpression ( '..' ConstExpression
1008 : :
1009 : : % AddVarientRange %
1010 : : |
1011 : :
1012 : : % AddVarientEquality ; epsilon %
1013 : : )
1014 : :
1015 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1016 : :
1017 : : cannot reachend
1018 : : */
1019 : :
1020 : : static void VarientCaseLabels (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1021 : :
1022 : : /*
1023 : : SilentConstExpression :=
1024 : : % PushAutoOff %
1025 : : SilentSimpleConstExpr [
1026 : : SilentRelation SilentSimpleConstExpr ]
1027 : : % PopAuto %
1028 : :
1029 : :
1030 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1031 : :
1032 : : cannot reachend
1033 : : */
1034 : :
1035 : : static void SilentConstExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1036 : :
1037 : : /*
1038 : : SilentRelation := '=' | '#' | '<>' | '<' |
1039 : : '<=' | '>' | '>=' | 'IN'
1040 : :
1041 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
1042 : :
1043 : : cannot reachend
1044 : : */
1045 : :
1046 : : static void SilentRelation (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1047 : :
1048 : : /*
1049 : : SilentSimpleConstExpr := SilentUnaryOrConstTerm
1050 : : { SilentAddOperator SilentConstTerm }
1051 : :
1052 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1053 : :
1054 : : cannot reachend
1055 : : */
1056 : :
1057 : : static void SilentSimpleConstExpr (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1058 : :
1059 : : /*
1060 : : SilentUnaryOrConstTerm := '+' SilentConstTerm |
1061 : : '-' SilentConstTerm |
1062 : : SilentConstTerm
1063 : :
1064 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1065 : :
1066 : : cannot reachend
1067 : : */
1068 : :
1069 : : static void SilentUnaryOrConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1070 : :
1071 : : /*
1072 : : SilentAddOperator := '+' | '-' | 'OR'
1073 : :
1074 : : first symbols:ortok, minustok, plustok
1075 : :
1076 : : cannot reachend
1077 : : */
1078 : :
1079 : : static void SilentAddOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1080 : :
1081 : : /*
1082 : : SilentConstTerm := SilentConstFactor { SilentMulOperator
1083 : : SilentConstFactor }
1084 : :
1085 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok
1086 : :
1087 : : cannot reachend
1088 : : */
1089 : :
1090 : : static void SilentConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1091 : :
1092 : : /*
1093 : : SilentMulOperator := '*' | '/' | 'DIV' |
1094 : : 'MOD' | 'REM' | 'AND' |
1095 : : '&'
1096 : :
1097 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
1098 : :
1099 : : cannot reachend
1100 : : */
1101 : :
1102 : : static void SilentMulOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1103 : :
1104 : : /*
1105 : : SilentConstFactor := Number | SilentConstString |
1106 : : SilentConstSetOrQualidentOrFunction |
1107 : : '(' SilentConstExpression ')' |
1108 : : 'NOT' SilentConstFactor |
1109 : : SilentConstAttribute
1110 : :
1111 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok
1112 : :
1113 : : cannot reachend
1114 : : */
1115 : :
1116 : : static void SilentConstFactor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1117 : :
1118 : : /*
1119 : : SilentConstString := string
1120 : :
1121 : : first symbols:stringtok
1122 : :
1123 : : cannot reachend
1124 : : */
1125 : :
1126 : : static void SilentConstString (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1127 : :
1128 : : /*
1129 : : SilentConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
1130 : : '(' '(' SilentConstAttributeExpression
1131 : : ')' ')'
1132 : :
1133 : : first symbols:attributetok
1134 : :
1135 : : cannot reachend
1136 : : */
1137 : :
1138 : : static void SilentConstAttribute (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1139 : :
1140 : : /*
1141 : : SilentConstAttributeExpression := Ident |
1142 : : '<' Ident ','
1143 : : SilentConstString
1144 : : '>'
1145 : :
1146 : : first symbols:lesstok, identtok
1147 : :
1148 : : cannot reachend
1149 : : */
1150 : :
1151 : : static void SilentConstAttributeExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1152 : :
1153 : : /*
1154 : : SilentComponentElement := SilentConstExpression
1155 : : [ '..' SilentConstExpression ]
1156 : :
1157 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1158 : :
1159 : : cannot reachend
1160 : : */
1161 : :
1162 : : static void SilentComponentElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1163 : :
1164 : : /*
1165 : : SilentComponentValue := SilentComponentElement [
1166 : : 'BY' SilentConstExpression ]
1167 : :
1168 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1169 : :
1170 : : cannot reachend
1171 : : */
1172 : :
1173 : : static void SilentComponentValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1174 : :
1175 : : /*
1176 : : SilentArraySetRecordValue := SilentComponentValue
1177 : : { ',' SilentComponentValue }
1178 : :
1179 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1180 : :
1181 : : cannot reachend
1182 : : */
1183 : :
1184 : : static void SilentArraySetRecordValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1185 : :
1186 : : /*
1187 : : SilentConstructor := '{'
1188 : : % SilentBuildConstructorStart %
1189 : : [ SilentArraySetRecordValue ]
1190 : : '}'
1191 : :
1192 : : first symbols:lcbratok
1193 : :
1194 : : cannot reachend
1195 : : */
1196 : :
1197 : : static void SilentConstructor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1198 : :
1199 : : /*
1200 : : SilentConstSetOrQualidentOrFunction := SilentConstructor |
1201 : : Qualident
1202 : : [ SilentConstructor |
1203 : : SilentActualParameters ]
1204 : :
1205 : : first symbols:identtok, lcbratok
1206 : :
1207 : : cannot reachend
1208 : : */
1209 : :
1210 : : static void SilentConstSetOrQualidentOrFunction (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1211 : :
1212 : : /*
1213 : : SilentActualParameters := '(' [ SilentExpList ]
1214 : : ')'
1215 : :
1216 : : first symbols:lparatok
1217 : :
1218 : : cannot reachend
1219 : : */
1220 : :
1221 : : static void SilentActualParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1222 : :
1223 : : /*
1224 : : SilentExpList := SilentConstExpression { ',' SilentConstExpression }
1225 : :
1226 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1227 : :
1228 : : cannot reachend
1229 : : */
1230 : :
1231 : : static void SilentExpList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1232 : :
1233 : : /*
1234 : : SetType := ( 'SET' | 'PACKEDSET' ) 'OF' SimpleType
1235 : :
1236 : : first symbols:oftok, packedsettok, settok
1237 : :
1238 : : cannot reachend
1239 : : */
1240 : :
1241 : : static void SetType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1242 : :
1243 : : /*
1244 : : PointerType := 'POINTER' 'TO' Type
1245 : :
1246 : : first symbols:pointertok
1247 : :
1248 : : cannot reachend
1249 : : */
1250 : :
1251 : : static void PointerType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1252 : :
1253 : : /*
1254 : : ProcedureType := 'PROCEDURE' [ FormalTypeList ]
1255 : :
1256 : : first symbols:proceduretok
1257 : :
1258 : : cannot reachend
1259 : : */
1260 : :
1261 : : static void ProcedureType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1262 : :
1263 : : /*
1264 : : FormalTypeList := '(' ( ')' FormalReturn |
1265 : : ProcedureParameters ')'
1266 : : FormalReturn )
1267 : :
1268 : : first symbols:lparatok
1269 : :
1270 : : cannot reachend
1271 : : */
1272 : :
1273 : : static void FormalTypeList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1274 : :
1275 : : /*
1276 : : FormalReturn := [ ':' OptReturnType ]
1277 : :
1278 : : first symbols:colontok
1279 : :
1280 : : reachend
1281 : : */
1282 : :
1283 : : static void FormalReturn (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1284 : :
1285 : : /*
1286 : : OptReturnType := '[' QualidentCheck ']' |
1287 : : QualidentCheck
1288 : :
1289 : : first symbols:identtok, lsbratok
1290 : :
1291 : : cannot reachend
1292 : : */
1293 : :
1294 : : static void OptReturnType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1295 : :
1296 : : /*
1297 : : ProcedureParameters := ProcedureParameter { ','
1298 : : ProcedureParameter }
1299 : :
1300 : : first symbols:identtok, arraytok, periodperiodperiodtok, vartok
1301 : :
1302 : : cannot reachend
1303 : : */
1304 : :
1305 : : static void ProcedureParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1306 : :
1307 : : /*
1308 : : ProcedureParameter := '...' | 'VAR' FormalType |
1309 : : FormalType
1310 : :
1311 : : first symbols:arraytok, identtok, vartok, periodperiodperiodtok
1312 : :
1313 : : cannot reachend
1314 : : */
1315 : :
1316 : : static void ProcedureParameter (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1317 : :
1318 : : /*
1319 : : VarIdent :=
1320 : : % VAR
1321 : : Sym, Type: CARDINAL ;
1322 : : on: BOOLEAN ; %
1323 : :
1324 : : % on := IsAutoPushOn() %
1325 : :
1326 : : % IF NOT on
1327 : : THEN
1328 : : PushAutoOn
1329 : : END %
1330 : : Ident
1331 : : % IF on
1332 : : THEN
1333 : : PopTF(Sym, Type) ;
1334 : : PushTF(Sym, Type) ;
1335 : : PushTF(Sym, Type)
1336 : : END %
1337 : : [ '[' ConstExpression
1338 : : % BuildVarAtAddress %
1339 : : ']' ]
1340 : : % PopNothing ;
1341 : : PopAuto %
1342 : :
1343 : :
1344 : : first symbols:identtok
1345 : :
1346 : : cannot reachend
1347 : : */
1348 : :
1349 : : static void VarIdent (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1350 : :
1351 : : /*
1352 : : VarIdentList := VarIdent
1353 : : % VAR
1354 : : on: BOOLEAN ;
1355 : : n : CARDINAL ; %
1356 : :
1357 : : % on := IsAutoPushOn() ;
1358 : : IF on
1359 : : THEN
1360 : : n := 1
1361 : : END %
1362 : : { ',' VarIdent
1363 : : % IF on
1364 : : THEN
1365 : : INC(n)
1366 : : END %
1367 : : }
1368 : : % IF on
1369 : : THEN
1370 : : PushT(n)
1371 : : END %
1372 : :
1373 : :
1374 : : first symbols:identtok
1375 : :
1376 : : cannot reachend
1377 : : */
1378 : :
1379 : : static void VarIdentList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1380 : :
1381 : : /*
1382 : : VariableDeclaration := VarIdentList ':'
1383 : : % InclVar (BlockState) %
1384 : : Type Alignment
1385 : : % ExclVar (BlockState) %
1386 : :
1387 : :
1388 : : first symbols:identtok
1389 : :
1390 : : cannot reachend
1391 : : */
1392 : :
1393 : : static void VariableDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1394 : :
1395 : : /*
1396 : : Designator := QualidentCheck
1397 : : % CheckWithReference %
1398 : : { SubDesignator }
1399 : :
1400 : : first symbols:identtok
1401 : :
1402 : : cannot reachend
1403 : : */
1404 : :
1405 : : static void Designator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1406 : :
1407 : : /*
1408 : : SubDesignator := '.'
1409 : : % VAR Sym, Type, tok,
1410 : : dotpostok : CARDINAL ;
1411 : : name, n1 : Name ; %
1412 : :
1413 : : % dotpostok := GetTokenNo () -1 ;
1414 : : PopTFtok (Sym, Type, tok) ;
1415 : : Type := SkipType(Type) ;
1416 : : PushTFtok(Sym, Type, tok) ;
1417 : : IF Type=NulSym
1418 : : THEN
1419 : : n1 := GetSymName(Sym) ;
1420 : : IF IsModuleKnown(GetSymName(Sym))
1421 : : THEN
1422 : : WriteFormat2('%a looks like a module which has not been globally imported (eg. suggest that you IMPORT %a ;)',
1423 : : n1, n1)
1424 : : ELSE
1425 : : WriteFormat1('%a is not a record variable', n1)
1426 : : END
1427 : : ELSIF NOT IsRecord(Type)
1428 : : THEN
1429 : : n1 := GetSymName(Type) ;
1430 : : WriteFormat1('%a is not a record type', n1)
1431 : : END ;
1432 : : StartScope(Type) %
1433 : : Ident
1434 : : % PopTtok (name, tok) ;
1435 : : Sym := GetLocalSym(Type, name) ;
1436 : : IF Sym=NulSym
1437 : : THEN
1438 : : n1 := GetSymName(Type) ;
1439 : : WriteFormat2('field %a does not exist within record %a', name, n1)
1440 : : END ;
1441 : : Type := GetType(Sym) ;
1442 : : PushTFtok (Sym, Type, tok) ;
1443 : : EndScope ;
1444 : : PushT(1) ;
1445 : : BuildDesignatorRecord (dotpostok) %
1446 : : | '[' ArrayExpList ']' |
1447 : : '^'
1448 : : % BuildDesignatorPointer (GetTokenNo () -1) %
1449 : :
1450 : :
1451 : : first symbols:uparrowtok, lsbratok, periodtok
1452 : :
1453 : : cannot reachend
1454 : : */
1455 : :
1456 : : static void SubDesignator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1457 : :
1458 : : /*
1459 : : ArrayExpList := Expression
1460 : : % BuildBooleanVariable %
1461 : :
1462 : : % BuildDesignatorArray %
1463 : : { ',' Expression
1464 : : % BuildBooleanVariable %
1465 : :
1466 : : % BuildDesignatorArray %
1467 : : }
1468 : :
1469 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1470 : :
1471 : : cannot reachend
1472 : : */
1473 : :
1474 : : static void ArrayExpList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1475 : :
1476 : : /*
1477 : : ExpList :=
1478 : : % VAR n: CARDINAL ; %
1479 : : Expression
1480 : : % BuildBooleanVariable %
1481 : :
1482 : : % n := 1 %
1483 : : { ',' Expression
1484 : : % BuildBooleanVariable %
1485 : :
1486 : : % INC(n) %
1487 : : }
1488 : : % PushT(n) %
1489 : :
1490 : :
1491 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1492 : :
1493 : : cannot reachend
1494 : : */
1495 : :
1496 : : static void ExpList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1497 : :
1498 : : /*
1499 : : Expression :=
1500 : : % VAR tokpos: CARDINAL ; %
1501 : :
1502 : : % PushAutoOn %
1503 : : SimpleExpression [ Relation
1504 : : % tokpos := GetTokenNo ()-1 %
1505 : : SimpleExpression
1506 : :
1507 : : % BuildRelOp (tokpos) %
1508 : : ]
1509 : : % PopAuto %
1510 : :
1511 : :
1512 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1513 : :
1514 : : cannot reachend
1515 : : */
1516 : :
1517 : : static void Expression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1518 : :
1519 : : /*
1520 : : SimpleExpression := UnaryOrTerm { AddOperator Term
1521 : :
1522 : : % BuildBinaryOp %
1523 : : }
1524 : :
1525 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1526 : :
1527 : : cannot reachend
1528 : : */
1529 : :
1530 : : static void SimpleExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1531 : :
1532 : : /*
1533 : : UnaryOrTerm := '+'
1534 : : % PushTtok(PlusTok, GetTokenNo() -1) %
1535 : : Term
1536 : : % BuildUnaryOp %
1537 : : | '-'
1538 : : % PushTtok(MinusTok, GetTokenNo() -1) %
1539 : : Term
1540 : : % BuildUnaryOp %
1541 : : | Term
1542 : :
1543 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1544 : :
1545 : : cannot reachend
1546 : : */
1547 : :
1548 : : static void UnaryOrTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1549 : :
1550 : : /*
1551 : : Term := Factor { MulOperator Factor
1552 : : % BuildBinaryOp %
1553 : : }
1554 : :
1555 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok
1556 : :
1557 : : cannot reachend
1558 : : */
1559 : :
1560 : : static void Term (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1561 : :
1562 : : /*
1563 : : Factor :=
1564 : : % VAR tokpos: CARDINAL ; %
1565 : : Number | string | SetOrDesignatorOrFunction |
1566 : : '(' Expression ')' |
1567 : : 'NOT'
1568 : : % tokpos := GetTokenNo ()-1 %
1569 : : ( Factor
1570 : : % BuildNot (tokpos) %
1571 : : | ConstAttribute )
1572 : :
1573 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok
1574 : :
1575 : : cannot reachend
1576 : : */
1577 : :
1578 : : static void Factor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1579 : :
1580 : : /*
1581 : : SetOrDesignatorOrFunction :=
1582 : : % VAR tokpos: CARDINAL ; %
1583 : :
1584 : : % tokpos := GetTokenNo () %
1585 : : ( Qualident
1586 : : % Assert (OperandTok (1) # UnknownTokenNo) %
1587 : :
1588 : : % CheckWithReference %
1589 : :
1590 : : % Assert (OperandTok (1) # UnknownTokenNo) %
1591 : : [ Constructor |
1592 : : SimpleDes
1593 : : % Assert (OperandTok(1) # UnknownTokenNo) %
1594 : : [ ActualParameters
1595 : :
1596 : : % IF IsInConstParameters ()
1597 : : THEN
1598 : : BuildConstFunctionCall
1599 : : ELSE
1600 : : BuildFunctionCall (FALSE)
1601 : : END %
1602 : : ] ] |
1603 : :
1604 : : % BuildTypeForConstructor (tokpos) %
1605 : : Constructor )
1606 : :
1607 : : first symbols:lcbratok, identtok
1608 : :
1609 : : cannot reachend
1610 : : */
1611 : :
1612 : : static void SetOrDesignatorOrFunction (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1613 : :
1614 : : /*
1615 : : SimpleDes := { SubDesignator }
1616 : :
1617 : : first symbols:periodtok, lsbratok, uparrowtok
1618 : :
1619 : : reachend
1620 : : */
1621 : :
1622 : : static void SimpleDes (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1623 : :
1624 : : /*
1625 : : ActualParameters := '('
1626 : : % BuildSizeCheckStart %
1627 : : ( ExpList |
1628 : : % BuildNulParam %
1629 : : ) ')'
1630 : :
1631 : : first symbols:lparatok
1632 : :
1633 : : cannot reachend
1634 : : */
1635 : :
1636 : : static void ActualParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1637 : :
1638 : : /*
1639 : : ExitStatement := 'EXIT'
1640 : : % BuildExit %
1641 : :
1642 : :
1643 : : first symbols:exittok
1644 : :
1645 : : cannot reachend
1646 : : */
1647 : :
1648 : : static void ExitStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1649 : :
1650 : : /*
1651 : : ReturnStatement := 'RETURN'
1652 : : % VAR tokno: CARDINAL ; %
1653 : :
1654 : : % tokno := GetTokenNo () -1 %
1655 : : ( Expression |
1656 : : % BuildNulExpression (tokno) %
1657 : : )
1658 : : % BuildReturn (tokno) %
1659 : :
1660 : :
1661 : : first symbols:returntok
1662 : :
1663 : : cannot reachend
1664 : : */
1665 : :
1666 : : static void ReturnStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1667 : :
1668 : : /*
1669 : : Statement :=
1670 : : % BuildStmtNote (0) %
1671 : :
1672 : : % PushAutoOn ; DisplayStack %
1673 : : [ AssignmentOrProcedureCall |
1674 : : IfStatement | CaseStatement |
1675 : : WhileStatement |
1676 : : RepeatStatement |
1677 : : LoopStatement | ForStatement |
1678 : : WithStatement | AsmStatement |
1679 : : ExitStatement | ReturnStatement |
1680 : : RetryStatement ]
1681 : : % PopAuto ; %
1682 : :
1683 : :
1684 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
1685 : :
1686 : : reachend
1687 : : */
1688 : :
1689 : : static void Statement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1690 : :
1691 : : /*
1692 : : RetryStatement := 'RETRY'
1693 : : % BuildRetry (GetTokenNo () -1) %
1694 : :
1695 : :
1696 : : first symbols:retrytok
1697 : :
1698 : : cannot reachend
1699 : : */
1700 : :
1701 : : static void RetryStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1702 : :
1703 : : /*
1704 : : AssignmentOrProcedureCall :=
1705 : : % VAR isFunc: BOOLEAN ;
1706 : : tokno : CARDINAL ; %
1707 : :
1708 : : % DisplayStack %
1709 : : Designator
1710 : : % tokno := GetTokenNo () %
1711 : : ( ':='
1712 : : % PrintTokenNo (tokno) %
1713 : : Expression
1714 : : % BuildAssignment (tokno) %
1715 : : |
1716 : :
1717 : : % isFunc := CheckBuildFunction() %
1718 : : ( ActualParameters |
1719 : :
1720 : : % BuildNulParam in epsilon %
1721 : : )
1722 : : % IF isFunc
1723 : : THEN
1724 : : BuildFunctionCall (FALSE) ;
1725 : : BuildAssignment (tokno)
1726 : : ELSE
1727 : : BuildProcedureCall (tokno - 1)
1728 : : END %
1729 : : )
1730 : : % DisplayStack %
1731 : :
1732 : :
1733 : : first symbols:identtok
1734 : :
1735 : : cannot reachend
1736 : : */
1737 : :
1738 : : static void AssignmentOrProcedureCall (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1739 : :
1740 : : /*
1741 : : StatementSequence := Statement { ';' Statement }
1742 : :
1743 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
1744 : :
1745 : : reachend
1746 : : */
1747 : :
1748 : : static void StatementSequence (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1749 : :
1750 : : /*
1751 : : IfStatement := 'IF' Expression 'THEN'
1752 : : % BuildThenIf %
1753 : :
1754 : : % BuildStmtNote (-1) %
1755 : : StatementSequence { 'ELSIF'
1756 : : % BuildElsif1 %
1757 : :
1758 : : % BuildStmtNote (-1) %
1759 : : Expression 'THEN'
1760 : :
1761 : : % BuildThenIf %
1762 : :
1763 : : % BuildStmtNote (-1) %
1764 : : StatementSequence
1765 : :
1766 : : % BuildElsif2 %
1767 : : } [ 'ELSE'
1768 : : % BuildElse %
1769 : :
1770 : : % BuildStmtNote (-1) %
1771 : : StatementSequence ]
1772 : : 'END'
1773 : : % BuildEndIf %
1774 : :
1775 : : % BuildStmtNote (-1) %
1776 : :
1777 : :
1778 : : first symbols:iftok
1779 : :
1780 : : cannot reachend
1781 : : */
1782 : :
1783 : : static void IfStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1784 : :
1785 : : /*
1786 : : CaseStatement := 'CASE' Expression
1787 : : % BuildCaseStart %
1788 : : 'OF' Case { '|' Case } CaseEndStatement
1789 : :
1790 : : first symbols:casetok
1791 : :
1792 : : cannot reachend
1793 : : */
1794 : :
1795 : : static void CaseStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1796 : :
1797 : : /*
1798 : : CaseEndStatement := 'END'
1799 : : % BuildStmtNote (-1) %
1800 : :
1801 : : % BuildCaseElse %
1802 : :
1803 : : % BuildCaseCheck %
1804 : :
1805 : : % BuildCaseEnd %
1806 : : | 'ELSE'
1807 : : % BuildStmtNote (-1) %
1808 : :
1809 : : % BuildCaseElse %
1810 : :
1811 : : % ElseCase (NulSym) %
1812 : : StatementSequence
1813 : : % BuildStmtNote (0) %
1814 : : 'END'
1815 : : % BuildCaseEnd %
1816 : :
1817 : :
1818 : : first symbols:elsetok, endtok
1819 : :
1820 : : cannot reachend
1821 : : */
1822 : :
1823 : : static void CaseEndStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1824 : :
1825 : : /*
1826 : : Case := [
1827 : : % BuildStmtNote (-1) %
1828 : : CaseLabelList
1829 : : % BuildCaseStartStatementSequence %
1830 : : ':' StatementSequence
1831 : : % BuildCaseEndStatementSequence %
1832 : :
1833 : : % EndCaseList %
1834 : : ]
1835 : :
1836 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1837 : :
1838 : : reachend
1839 : : */
1840 : :
1841 : : static void Case (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1842 : :
1843 : : /*
1844 : : CaseLabelList :=
1845 : : % BeginCaseList(NulSym) %
1846 : : CaseLabels { ','
1847 : : % BuildCaseOr %
1848 : : CaseLabels }
1849 : :
1850 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1851 : :
1852 : : cannot reachend
1853 : : */
1854 : :
1855 : : static void CaseLabelList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1856 : :
1857 : : /*
1858 : : CaseLabels := ConstExpression ( '..' ConstExpression
1859 : :
1860 : : % BuildCaseRange ;
1861 : : BuildCaseList %
1862 : : |
1863 : :
1864 : : % BuildCaseEquality ; epsilon
1865 : : BuildCaseList %
1866 : : )
1867 : :
1868 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1869 : :
1870 : : cannot reachend
1871 : : */
1872 : :
1873 : : static void CaseLabels (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1874 : :
1875 : : /*
1876 : : WhileStatement := 'WHILE'
1877 : : % BuildWhile %
1878 : :
1879 : : % BuildStmtNote (0) %
1880 : : Expression
1881 : : % BuildStmtNote (0) %
1882 : : 'DO'
1883 : : % BuildDoWhile %
1884 : : StatementSequence
1885 : : % BuildStmtNote (0) %
1886 : : 'END'
1887 : : % DisplayStack ; BuildEndWhile %
1888 : :
1889 : :
1890 : : first symbols:whiletok
1891 : :
1892 : : cannot reachend
1893 : : */
1894 : :
1895 : : static void WhileStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1896 : :
1897 : : /*
1898 : : RepeatStatement := 'REPEAT'
1899 : : % BuildRepeat %
1900 : : StatementSequence
1901 : : % BuildStmtNote (0) %
1902 : : 'UNTIL' Expression
1903 : : % BuildUntil %
1904 : :
1905 : :
1906 : : first symbols:repeattok
1907 : :
1908 : : cannot reachend
1909 : : */
1910 : :
1911 : : static void RepeatStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1912 : :
1913 : : /*
1914 : : ForStatement :=
1915 : : % VAR endpostok: CARDINAL ; %
1916 : :
1917 : : % PushLineNo %
1918 : : 'FOR' Ident ':=' Expression 'TO'
1919 : : Expression ( 'BY' ConstExpression |
1920 : :
1921 : : % BuildPseudoBy epsilon %
1922 : : )
1923 : : % PushLineNo %
1924 : :
1925 : : % BuildStmtNote (0) %
1926 : : 'DO'
1927 : : % BuildForToByDo %
1928 : : StatementSequence
1929 : : % BuildStmtNote (0) %
1930 : :
1931 : : % endpostok := GetTokenNo () %
1932 : : 'END'
1933 : : % BuildEndFor (endpostok) %
1934 : :
1935 : :
1936 : : first symbols:fortok
1937 : :
1938 : : cannot reachend
1939 : : */
1940 : :
1941 : : static void ForStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1942 : :
1943 : : /*
1944 : : LoopStatement := 'LOOP'
1945 : : % BuildLoop %
1946 : : StatementSequence
1947 : : % BuildStmtNote (0) %
1948 : : 'END'
1949 : : % BuildEndLoop %
1950 : :
1951 : :
1952 : : first symbols:looptok
1953 : :
1954 : : cannot reachend
1955 : : */
1956 : :
1957 : : static void LoopStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1958 : :
1959 : : /*
1960 : : WithStatement :=
1961 : : % VAR
1962 : : tok: CARDINAL ; %
1963 : : 'WITH'
1964 : : % tok := GetTokenNo () -1 %
1965 : : Designator
1966 : : % StartBuildWith (tok) %
1967 : :
1968 : : % BuildStmtNote (0) %
1969 : : 'DO' StatementSequence
1970 : : % BuildStmtNote (0) %
1971 : : 'END'
1972 : : % EndBuildWith %
1973 : :
1974 : :
1975 : : first symbols:withtok
1976 : :
1977 : : cannot reachend
1978 : : */
1979 : :
1980 : : static void WithStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1981 : :
1982 : : /*
1983 : : ProcedureDeclaration :=
1984 : : % VAR top: CARDINAL ; %
1985 : :
1986 : : % top := Top () %
1987 : : ProcedureHeading ';' PostProcedureHeading
1988 : :
1989 : : % Assert (top = Top ()) %
1990 : :
1991 : :
1992 : : first symbols:proceduretok
1993 : :
1994 : : cannot reachend
1995 : : */
1996 : :
1997 : : static void ProcedureDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
1998 : :
1999 : : /*
2000 : : PostProcedureHeading := ProperProcedure |
2001 : : ForwardDeclaration
2002 : :
2003 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok, forwardtok
2004 : :
2005 : : cannot reachend
2006 : : */
2007 : :
2008 : : static void PostProcedureHeading (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2009 : :
2010 : : /*
2011 : : ForwardDeclaration := 'FORWARD'
2012 : : % EndBuildForward %
2013 : :
2014 : :
2015 : : first symbols:forwardtok
2016 : :
2017 : : cannot reachend
2018 : : */
2019 : :
2020 : : static void ForwardDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2021 : :
2022 : : /*
2023 : : ProperProcedure := ProcedureBlock
2024 : : % BuildProcedureEnd ;
2025 : : PushAutoOn %
2026 : : Ident
2027 : : % EndBuildProcedure ;
2028 : : PopAuto %
2029 : :
2030 : :
2031 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok, begintok, endtok
2032 : :
2033 : : cannot reachend
2034 : : */
2035 : :
2036 : : static void ProperProcedure (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2037 : :
2038 : : /*
2039 : : DefineBuiltinProcedure := [ '__ATTRIBUTE__' '__BUILTIN__'
2040 : : '(' '('
2041 : : % PushAutoOff %
2042 : : Ident
2043 : : % PopAuto %
2044 : : ')' ')' |
2045 : : '__INLINE__' ]
2046 : :
2047 : : first symbols:inlinetok, attributetok
2048 : :
2049 : : reachend
2050 : : */
2051 : :
2052 : : static void DefineBuiltinProcedure (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2053 : :
2054 : : /*
2055 : : ProcedureHeading := 'PROCEDURE'
2056 : : % M2Error.DefaultProcedure %
2057 : :
2058 : : % PushAutoOn %
2059 : : DefineBuiltinProcedure ( Ident
2060 : :
2061 : : % StartBuildProcedure ;
2062 : : PushAutoOff %
2063 : : [ FormalParameters ]
2064 : : AttributeNoReturn
2065 : :
2066 : : % BuildProcedureHeading ;
2067 : : PopAuto %
2068 : : )
2069 : :
2070 : : % PopAuto %
2071 : :
2072 : :
2073 : : first symbols:proceduretok
2074 : :
2075 : : cannot reachend
2076 : : */
2077 : :
2078 : : static void ProcedureHeading (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2079 : :
2080 : : /*
2081 : : Builtin := [ '__BUILTIN__' | '__INLINE__' ]
2082 : :
2083 : : first symbols:inlinetok, builtintok
2084 : :
2085 : : reachend
2086 : : */
2087 : :
2088 : : static void Builtin (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2089 : :
2090 : : /*
2091 : : DefProcedureHeading := 'PROCEDURE'
2092 : : % M2Error.DefaultProcedure %
2093 : :
2094 : : % PushAutoOn %
2095 : : Builtin ( Ident
2096 : : % StartBuildProcedure ;
2097 : : PushAutoOff %
2098 : : [ DefFormalParameters ]
2099 : : AttributeNoReturn
2100 : :
2101 : : % BuildProcedureHeading ;
2102 : : PopAuto %
2103 : : )
2104 : : % PopAuto %
2105 : :
2106 : : % M2Error.LeaveErrorScope %
2107 : :
2108 : :
2109 : : first symbols:proceduretok
2110 : :
2111 : : cannot reachend
2112 : : */
2113 : :
2114 : : static void DefProcedureHeading (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2115 : :
2116 : : /*
2117 : : AttributeNoReturn := [ '' ]
2118 : :
2119 : : first symbols:ldirectivetok
2120 : :
2121 : : reachend
2122 : : */
2123 : :
2124 : : static void AttributeNoReturn (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2125 : :
2126 : : /*
2127 : : AttributeUnused := [ '' ]
2128 : :
2129 : : first symbols:ldirectivetok
2130 : :
2131 : : reachend
2132 : : */
2133 : :
2134 : : static void AttributeUnused (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2135 : :
2136 : : /*
2137 : : ProcedureBlock :=
2138 : : % BuildProcedureStart %
2139 : : { Declaration }
2140 : : % BuildProcedureBegin %
2141 : : [ 'BEGIN'
2142 : : % BuildStmtNote (-1) %
2143 : : ProcedureBlockBody ]
2144 : : % BuildStmtNote (0) %
2145 : : 'END'
2146 : :
2147 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
2148 : :
2149 : : cannot reachend
2150 : : */
2151 : :
2152 : : static void ProcedureBlock (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2153 : :
2154 : : /*
2155 : : Block := { Declaration }
2156 : : % StartBuildInit (GetTokenNo ()) %
2157 : : InitialBlock
2158 : : % EndBuildInit (GetTokenNo ()) ;
2159 : : StartBuildFinally (GetTokenNo ()) %
2160 : : FinalBlock
2161 : : % EndBuildFinally (GetTokenNo ()) %
2162 : : 'END'
2163 : :
2164 : : first symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
2165 : :
2166 : : cannot reachend
2167 : : */
2168 : :
2169 : : static void Block (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2170 : :
2171 : : /*
2172 : : InitialBlock := [ 'BEGIN'
2173 : : % BuildStmtNote (-1) %
2174 : : InitialBlockBody ]
2175 : :
2176 : : first symbols:begintok
2177 : :
2178 : : reachend
2179 : : */
2180 : :
2181 : : static void InitialBlock (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2182 : :
2183 : : /*
2184 : : FinalBlock := [ 'FINALLY'
2185 : : % BuildStmtNote (-1) %
2186 : : FinalBlockBody ]
2187 : :
2188 : : first symbols:finallytok
2189 : :
2190 : : reachend
2191 : : */
2192 : :
2193 : : static void FinalBlock (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2194 : :
2195 : : /*
2196 : : InitialBlockBody := NormalPart [ 'EXCEPT'
2197 : : % BuildStmtNote (-1) %
2198 : :
2199 : : % BuildExceptInitial (GetTokenNo() -1) %
2200 : : ExceptionalPart ]
2201 : :
2202 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
2203 : :
2204 : : reachend
2205 : : */
2206 : :
2207 : : static void InitialBlockBody (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2208 : :
2209 : : /*
2210 : : FinalBlockBody := NormalPart [ 'EXCEPT'
2211 : : % BuildStmtNote (-1) %
2212 : :
2213 : : % BuildExceptFinally (GetTokenNo() -1) %
2214 : : ExceptionalPart ]
2215 : :
2216 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
2217 : :
2218 : : reachend
2219 : : */
2220 : :
2221 : : static void FinalBlockBody (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2222 : :
2223 : : /*
2224 : : ProcedureBlockBody := NormalPart [ 'EXCEPT'
2225 : : % BuildStmtNote (-1) %
2226 : :
2227 : : % BuildExceptProcedure (GetTokenNo() -1) %
2228 : : ExceptionalPart ]
2229 : :
2230 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
2231 : :
2232 : : reachend
2233 : : */
2234 : :
2235 : : static void ProcedureBlockBody (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2236 : :
2237 : : /*
2238 : : NormalPart := StatementSequence
2239 : :
2240 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
2241 : :
2242 : : reachend
2243 : : */
2244 : :
2245 : : static void NormalPart (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2246 : :
2247 : : /*
2248 : : ExceptionalPart := StatementSequence
2249 : : % BuildReThrow (GetTokenNo()) %
2250 : :
2251 : :
2252 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
2253 : :
2254 : : reachend
2255 : : */
2256 : :
2257 : : static void ExceptionalPart (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2258 : :
2259 : : /*
2260 : : Declaration := 'CONST' { ConstantDeclaration ';' } |
2261 : : 'TYPE' { TypeDeclaration ';' } |
2262 : : 'VAR' { VariableDeclaration ';' } |
2263 : : ProcedureDeclaration ';' |
2264 : : ModuleDeclaration ';'
2265 : :
2266 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok
2267 : :
2268 : : cannot reachend
2269 : : */
2270 : :
2271 : : static void Declaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2272 : :
2273 : : /*
2274 : : DefFormalParameters := '(' [ DefMultiFPSection ]
2275 : : ')' FormalReturn
2276 : :
2277 : : first symbols:lparatok
2278 : :
2279 : : cannot reachend
2280 : : */
2281 : :
2282 : : static void DefFormalParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2283 : :
2284 : : /*
2285 : : DefMultiFPSection := DefExtendedFP |
2286 : : FPSection [ ';' DefMultiFPSection ]
2287 : :
2288 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
2289 : :
2290 : : cannot reachend
2291 : : */
2292 : :
2293 : : static void DefMultiFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2294 : :
2295 : : /*
2296 : : FormalParameters := '(' [ MultiFPSection ] ')'
2297 : : FormalReturn
2298 : :
2299 : : first symbols:lparatok
2300 : :
2301 : : cannot reachend
2302 : : */
2303 : :
2304 : : static void FormalParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2305 : :
2306 : : /*
2307 : : MultiFPSection := ExtendedFP | FPSection [ ';'
2308 : : MultiFPSection ]
2309 : :
2310 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
2311 : :
2312 : : cannot reachend
2313 : : */
2314 : :
2315 : : static void MultiFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2316 : :
2317 : : /*
2318 : : FPSection := NonVarFPSection |
2319 : : VarFPSection
2320 : :
2321 : : first symbols:vartok, identtok
2322 : :
2323 : : cannot reachend
2324 : : */
2325 : :
2326 : : static void FPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2327 : :
2328 : : /*
2329 : : DefExtendedFP := DefOptArg | '...'
2330 : :
2331 : : first symbols:lsbratok, periodperiodperiodtok
2332 : :
2333 : : cannot reachend
2334 : : */
2335 : :
2336 : : static void DefExtendedFP (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2337 : :
2338 : : /*
2339 : : ExtendedFP := OptArg | '...'
2340 : :
2341 : : first symbols:lsbratok, periodperiodperiodtok
2342 : :
2343 : : cannot reachend
2344 : : */
2345 : :
2346 : : static void ExtendedFP (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2347 : :
2348 : : /*
2349 : : VarFPSection := 'VAR' IdentList ':' FormalType [
2350 : : AttributeUnused ]
2351 : :
2352 : : first symbols:vartok
2353 : :
2354 : : cannot reachend
2355 : : */
2356 : :
2357 : : static void VarFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2358 : :
2359 : : /*
2360 : : NonVarFPSection := IdentList ':' FormalType [ AttributeUnused ]
2361 : :
2362 : : first symbols:identtok
2363 : :
2364 : : cannot reachend
2365 : : */
2366 : :
2367 : : static void NonVarFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2368 : :
2369 : : /*
2370 : : OptArg := '[' Ident ':' FormalType [ '=' ConstExpression
2371 : :
2372 : : % BuildOptArgInitializer %
2373 : : ] ']'
2374 : :
2375 : : first symbols:lsbratok
2376 : :
2377 : : cannot reachend
2378 : : */
2379 : :
2380 : : static void OptArg (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2381 : :
2382 : : /*
2383 : : DefOptArg := '[' Ident ':' FormalType '=' ConstExpression
2384 : :
2385 : : % BuildOptArgInitializer %
2386 : : ']'
2387 : :
2388 : : first symbols:lsbratok
2389 : :
2390 : : cannot reachend
2391 : : */
2392 : :
2393 : : static void DefOptArg (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2394 : :
2395 : : /*
2396 : : FormalType := { 'ARRAY' 'OF' } QualidentCheck
2397 : :
2398 : : first symbols:identtok, arraytok
2399 : :
2400 : : cannot reachend
2401 : : */
2402 : :
2403 : : static void FormalType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2404 : :
2405 : : /*
2406 : : ModuleDeclaration :=
2407 : : % VAR modulet: CARDINAL ; %
2408 : :
2409 : : % modulet := GetTokenNo () %
2410 : : 'MODULE'
2411 : : % M2Error.DefaultInnerModule %
2412 : :
2413 : : % PushAutoOn %
2414 : : Ident
2415 : : % StartBuildInnerModule %
2416 : :
2417 : : % BuildModuleStart (modulet) ;
2418 : : PushAutoOff %
2419 : : [ Priority ] ';' { Import }
2420 : : [ Export ] Block
2421 : : % PushAutoOn %
2422 : : Ident
2423 : : % EndBuildInnerModule %
2424 : :
2425 : : % PopAuto ; PopAuto ; PopAuto %
2426 : :
2427 : :
2428 : : first symbols:moduletok
2429 : :
2430 : : cannot reachend
2431 : : */
2432 : :
2433 : : static void ModuleDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2434 : :
2435 : : /*
2436 : : Priority := '['
2437 : : % PushAutoOn %
2438 : : ConstExpression
2439 : : % BuildModulePriority ;
2440 : : PopAuto %
2441 : : ']'
2442 : :
2443 : : first symbols:lsbratok
2444 : :
2445 : : cannot reachend
2446 : : */
2447 : :
2448 : : static void Priority (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2449 : :
2450 : : /*
2451 : : Export := 'EXPORT' ( 'QUALIFIED' IdentList |
2452 : : 'UNQUALIFIED' IdentList |
2453 : : IdentList ) ';'
2454 : :
2455 : : first symbols:exporttok
2456 : :
2457 : : cannot reachend
2458 : : */
2459 : :
2460 : : static void Export (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2461 : :
2462 : : /*
2463 : : FromImport :=
2464 : : % PushAutoOn %
2465 : : 'FROM' Ident 'IMPORT' IdentList ';'
2466 : :
2467 : : % CheckImportListOuterModule %
2468 : :
2469 : : % PopAuto %
2470 : :
2471 : :
2472 : : first symbols:fromtok
2473 : :
2474 : : cannot reachend
2475 : : */
2476 : :
2477 : : static void FromImport (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2478 : :
2479 : : /*
2480 : : WithoutFromImport :=
2481 : : % PushAutoOff %
2482 : : 'IMPORT' IdentList ';'
2483 : : % PopAuto %
2484 : :
2485 : :
2486 : : first symbols:importtok
2487 : :
2488 : : cannot reachend
2489 : : */
2490 : :
2491 : : static void WithoutFromImport (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2492 : :
2493 : : /*
2494 : : Import := FromImport | WithoutFromImport
2495 : :
2496 : : first symbols:importtok, fromtok
2497 : :
2498 : : cannot reachend
2499 : : */
2500 : :
2501 : : static void Import (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2502 : :
2503 : : /*
2504 : : DefinitionModule :=
2505 : : % VAR deft, endt: CARDINAL ; %
2506 : :
2507 : : % deft := GetTokenNo () %
2508 : : 'DEFINITION'
2509 : : % M2Error.DefaultDefinitionModule %
2510 : : 'MODULE'
2511 : : % PushAutoOn %
2512 : : [ 'FOR' string ] Ident
2513 : : % StartBuildDefFile (deft) ;
2514 : : P3StartBuildDefModule ;
2515 : : PushAutoOff %
2516 : : ';' { Import } [ Export ]
2517 : : { Definition }
2518 : : % endt := GetTokenNo () %
2519 : : 'END'
2520 : : % PushAutoOn %
2521 : : Ident
2522 : : % EndBuildFile (endt) ;
2523 : : P3EndBuildDefModule %
2524 : : '.'
2525 : : % PopAuto ; PopAuto ; PopAuto %
2526 : :
2527 : :
2528 : : first symbols:definitiontok
2529 : :
2530 : : cannot reachend
2531 : : */
2532 : :
2533 : : static void DefinitionModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2534 : :
2535 : : /*
2536 : : Definition := 'CONST' { ConstantDeclaration ';' } |
2537 : : 'TYPE' { Ident ( ';' | '=' Type Alignment
2538 : : ';' ) } |
2539 : : 'VAR' { VariableDeclaration ';' } |
2540 : : DefProcedureHeading ';'
2541 : :
2542 : : first symbols:proceduretok, vartok, typetok, consttok
2543 : :
2544 : : cannot reachend
2545 : : */
2546 : :
2547 : : static void Definition (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2548 : :
2549 : : /*
2550 : : AsmStatement :=
2551 : : % VAR CurrentAsm: CARDINAL ;
2552 : : tok: CARDINAL ; %
2553 : :
2554 : : % tok := GetTokenNo () %
2555 : : 'ASM'
2556 : : % PushAutoOn ;
2557 : : PushT (0) ; operand count
2558 : : PushT (MakeGnuAsm ())
2559 : : %
2560 : : [ 'VOLATILE'
2561 : : % PopT (CurrentAsm) ;
2562 : : PutGnuAsmVolatile (CurrentAsm) ;
2563 : : PushT (CurrentAsm)
2564 : : %
2565 : : ] '(' AsmOperands
2566 : : % PopNothing ; throw away interface sym
2567 : : BuildAsm (tok) ;
2568 : : PopNothing ; throw away count
2569 : : PopAuto
2570 : : %
2571 : : ')'
2572 : :
2573 : : first symbols:asmtok
2574 : :
2575 : : cannot reachend
2576 : : */
2577 : :
2578 : : static void AsmStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2579 : :
2580 : : /*
2581 : : AsmOperands :=
2582 : : % VAR CurrentAsm, count: CARDINAL ;
2583 : : str: CARDINAL ;
2584 : : %
2585 : : ConstExpression
2586 : : % PopT (str) ;
2587 : : PopT (CurrentAsm) ;
2588 : : Assert (IsGnuAsm (CurrentAsm) OR IsGnuAsmVolatile (CurrentAsm)) ;
2589 : : PopT (count) ;
2590 : : IF DebugAsm
2591 : : THEN
2592 : : printf1 ('1: count of asm operands: %d
2593 : : ', count)
2594 : : END ;
2595 : : PushT (count) ;
2596 : : adds the name/instruction for this asm
2597 : : PutGnuAsm (CurrentAsm, str) ;
2598 : : PushT (CurrentAsm) ;
2599 : : PushT (NulSym) the InterfaceSym
2600 : : %
2601 : : ( AsmOperandSpec |
2602 : :
2603 : : % epsilon
2604 : : PutGnuAsmSimple (CurrentAsm)
2605 : : %
2606 : : )
2607 : :
2608 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
2609 : :
2610 : : cannot reachend
2611 : : */
2612 : :
2613 : : static void AsmOperands (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2614 : :
2615 : : /*
2616 : : AsmOperandSpec :=
2617 : : % VAR CurrentAsm, outputs, inputs, trash, count: CARDINAL ;
2618 : : %
2619 : : ':' AsmOutputList
2620 : : % PopT(outputs) ;
2621 : : PopT(CurrentAsm) ;
2622 : : Assert(IsGnuAsm(CurrentAsm) OR IsGnuAsmVolatile(CurrentAsm)) ;
2623 : : PopT(count) ;
2624 : : IF DebugAsm
2625 : : THEN
2626 : : printf1('2: output count of asm operands: %d
2627 : : ', count)
2628 : : END ;
2629 : : PutGnuAsmOutput(CurrentAsm, outputs) ;
2630 : : PushT(0) ; reset count
2631 : : PushT(CurrentAsm) ;
2632 : : PushT(NulSym) the InterfaceSym
2633 : : %
2634 : : [ ':' AsmInputList
2635 : : % PopT(inputs) ;
2636 : : PopT(CurrentAsm) ;
2637 : : Assert(IsGnuAsm(CurrentAsm) OR IsGnuAsmVolatile(CurrentAsm)) ;
2638 : : PopT(count) ;
2639 : : IF DebugAsm
2640 : : THEN
2641 : : printf1('3: input count of asm operands: %d
2642 : : ', count)
2643 : : END ;
2644 : : PutGnuAsmInput(CurrentAsm, inputs) ;
2645 : : PushT(0) ; reset count
2646 : : PushT(CurrentAsm) ;
2647 : : PushT(NulSym) the InterfaceSym
2648 : : %
2649 : : [ ':' AsmTrashList
2650 : : % PopT(trash) ;
2651 : : PopT(CurrentAsm) ;
2652 : : Assert(IsGnuAsm(CurrentAsm) OR IsGnuAsmVolatile(CurrentAsm)) ;
2653 : : PopT(count) ;
2654 : : IF DebugAsm
2655 : : THEN
2656 : : printf1('4: trash count of asm operands: %d
2657 : : ', count)
2658 : : END ;
2659 : : PutGnuAsmTrash(CurrentAsm, trash) ;
2660 : : PushT(0) ; reset count
2661 : : PushT(CurrentAsm) ;
2662 : : PushT(NulSym) the InterfaceSym
2663 : : %
2664 : : ] ]
2665 : :
2666 : : first symbols:colontok
2667 : :
2668 : : cannot reachend
2669 : : */
2670 : :
2671 : : static void AsmOperandSpec (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2672 : :
2673 : : /*
2674 : : AsmOutputList := [ AsmOutputElement ] { ',' AsmOutputElement }
2675 : :
2676 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok, lsbratok, commatok
2677 : :
2678 : : reachend
2679 : : */
2680 : :
2681 : : static void AsmOutputList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2682 : :
2683 : : /*
2684 : : AsmInputList := [ AsmInputElement ] { ',' AsmInputElement }
2685 : :
2686 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok, lsbratok, commatok
2687 : :
2688 : : reachend
2689 : : */
2690 : :
2691 : : static void AsmInputList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2692 : :
2693 : : /*
2694 : : NamedOperand := '[' Ident ']'
2695 : :
2696 : : first symbols:lsbratok
2697 : :
2698 : : cannot reachend
2699 : : */
2700 : :
2701 : : static void NamedOperand (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2702 : :
2703 : : /*
2704 : : AsmOperandName := ( NamedOperand |
2705 : :
2706 : : % IF IsAutoPushOn()
2707 : : THEN
2708 : : PushTF (NulName, identtok)
2709 : : END
2710 : : %
2711 : : )
2712 : :
2713 : : first symbols:lsbratok
2714 : :
2715 : : reachend
2716 : : */
2717 : :
2718 : : static void AsmOperandName (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2719 : :
2720 : : /*
2721 : : AsmInputElement := AsmOperandName ConstExpression
2722 : : '(' Expression
2723 : : % BuildAsmElement (TRUE, FALSE)
2724 : : %
2725 : : ')'
2726 : :
2727 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, lsbratok
2728 : :
2729 : : cannot reachend
2730 : : */
2731 : :
2732 : : static void AsmInputElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2733 : :
2734 : : /*
2735 : : AsmOutputElement := AsmOperandName ConstExpression
2736 : : '(' Expression
2737 : : % BuildAsmElement (FALSE, TRUE)
2738 : : %
2739 : : ')'
2740 : :
2741 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, lsbratok
2742 : :
2743 : : cannot reachend
2744 : : */
2745 : :
2746 : : static void AsmOutputElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2747 : :
2748 : : /*
2749 : : AsmTrashList := [ ConstExpression
2750 : : % BuildAsmTrash
2751 : : %
2752 : : ] { ',' ConstExpression
2753 : : % BuildAsmTrash
2754 : : %
2755 : : }
2756 : :
2757 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, commatok
2758 : :
2759 : : reachend
2760 : : */
2761 : :
2762 : : static void AsmTrashList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2);
2763 : :
2764 : 0 : static void ErrorString (DynamicStrings_String s)
2765 : : {
2766 : 0 : M2Error_ErrorStringAt (s, M2LexBuf_GetTokenNo ());
2767 : 0 : seenError = true;
2768 : 0 : }
2769 : :
2770 : 0 : static void ErrorArray (const char *a_, unsigned int _a_high)
2771 : : {
2772 : 0 : char a[_a_high+1];
2773 : :
2774 : : /* make a local copy of each unbounded array. */
2775 : 0 : memcpy (a, a_, _a_high+1);
2776 : :
2777 : 0 : ErrorString (DynamicStrings_InitString ((const char *) a, _a_high));
2778 : 0 : }
2779 : :
2780 : :
2781 : : /*
2782 : : DescribeStop - issues a message explaining what tokens were expected
2783 : : */
2784 : :
2785 : 12 : static DynamicStrings_String DescribeStop (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
2786 : : {
2787 : 12 : unsigned int n;
2788 : 12 : DynamicStrings_String str;
2789 : 12 : DynamicStrings_String message;
2790 : :
2791 : 12 : n = 0;
2792 : 12 : message = DynamicStrings_InitString ((const char *) "", 0);
2793 : 12 : if ((((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2794 : : {
2795 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kstring}", 10)));
2796 : 0 : n += 1;
2797 : : }
2798 : 12 : if ((((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2799 : : {
2800 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kreal number}", 15)));
2801 : 0 : n += 1;
2802 : : }
2803 : 12 : if ((((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2804 : : {
2805 : 6 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kidentifier}", 14)));
2806 : 6 : n += 1;
2807 : : }
2808 : 12 : if ((((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2809 : : {
2810 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%Kinteger number}", 18)));
2811 : 0 : n += 1;
2812 : : }
2813 : 12 : if ((((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2814 : : {
2815 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__INLINE__}", 14)));
2816 : 0 : n += 1;
2817 : : }
2818 : 12 : if ((((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2819 : : {
2820 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__BUILTIN__}", 15)));
2821 : 0 : n += 1;
2822 : : }
2823 : 12 : if ((((1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2824 : : {
2825 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__ATTRIBUTE__}", 17)));
2826 : 0 : n += 1;
2827 : : }
2828 : 12 : if ((((1 << (M2Reserved_filetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2829 : : {
2830 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__FILE__}", 12)));
2831 : 0 : n += 1;
2832 : : }
2833 : 12 : if ((((1 << (M2Reserved_linetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2834 : : {
2835 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__LINE__}", 12)));
2836 : 0 : n += 1;
2837 : : }
2838 : 12 : if ((((1 << (M2Reserved_datetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2839 : : {
2840 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K__DATE__}", 12)));
2841 : 0 : n += 1;
2842 : : }
2843 : 12 : if ((((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2844 : : {
2845 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K...}", 7)));
2846 : 0 : n += 1;
2847 : : }
2848 : 12 : if ((((1 << (M2Reserved_volatiletok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2849 : : {
2850 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KVOLATILE}", 12)));
2851 : 0 : n += 1;
2852 : : }
2853 : 12 : if ((((1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2854 : : {
2855 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KASM}", 7)));
2856 : 0 : n += 1;
2857 : : }
2858 : 12 : if ((((1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2859 : : {
2860 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KWITH}", 8)));
2861 : 0 : n += 1;
2862 : : }
2863 : 12 : if ((((1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2864 : : {
2865 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KWHILE}", 9)));
2866 : 0 : n += 1;
2867 : : }
2868 : 12 : if ((((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2869 : : {
2870 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KVAR}", 7)));
2871 : 0 : n += 1;
2872 : : }
2873 : 12 : if ((((1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2874 : : {
2875 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KUNTIL}", 9)));
2876 : 0 : n += 1;
2877 : : }
2878 : 12 : if ((((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2879 : : {
2880 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTYPE}", 8)));
2881 : 0 : n += 1;
2882 : : }
2883 : 12 : if ((((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2884 : : {
2885 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTO}", 6)));
2886 : 0 : n += 1;
2887 : : }
2888 : 12 : if ((((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2889 : : {
2890 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KTHEN}", 8)));
2891 : 0 : n += 1;
2892 : : }
2893 : 12 : if ((((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2894 : : {
2895 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KSET}", 7)));
2896 : 0 : n += 1;
2897 : : }
2898 : 12 : if ((((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2899 : : {
2900 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRETURN}", 10)));
2901 : 0 : n += 1;
2902 : : }
2903 : 12 : if ((((1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2904 : : {
2905 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRETRY}", 9)));
2906 : 0 : n += 1;
2907 : : }
2908 : 12 : if ((((1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2909 : : {
2910 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KREPEAT}", 10)));
2911 : 0 : n += 1;
2912 : : }
2913 : 12 : if ((((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2914 : : {
2915 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KREM}", 7)));
2916 : 0 : n += 1;
2917 : : }
2918 : 12 : if ((((1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2919 : : {
2920 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KRECORD}", 10)));
2921 : 0 : n += 1;
2922 : : }
2923 : 12 : if ((((1 << (M2Reserved_unqualifiedtok-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))
2924 : : {
2925 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KUNQUALIFIED}", 15)));
2926 : 0 : n += 1;
2927 : : }
2928 : 12 : if ((((1 << (M2Reserved_qualifiedtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2929 : : {
2930 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KQUALIFIED}", 13)));
2931 : 0 : n += 1;
2932 : : }
2933 : 12 : if ((((1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) & (stopset1)) != 0))
2934 : : {
2935 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPROCEDURE}", 13)));
2936 : 0 : n += 1;
2937 : : }
2938 : 12 : if ((((1 << (M2Reserved_pointertok-M2Reserved_arraytok)) & (stopset1)) != 0))
2939 : : {
2940 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPOINTER}", 11)));
2941 : 0 : n += 1;
2942 : : }
2943 : 12 : if ((((1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) & (stopset1)) != 0))
2944 : : {
2945 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KPACKEDSET}", 13)));
2946 : 0 : n += 1;
2947 : : }
2948 : 12 : if ((((1 << (M2Reserved_ortok-M2Reserved_arraytok)) & (stopset1)) != 0))
2949 : : {
2950 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KOR}", 6)));
2951 : 0 : n += 1;
2952 : : }
2953 : 12 : if ((((1 << (M2Reserved_oftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2954 : : {
2955 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KOF}", 6)));
2956 : 0 : n += 1;
2957 : : }
2958 : 12 : if ((((1 << (M2Reserved_nottok-M2Reserved_arraytok)) & (stopset1)) != 0))
2959 : : {
2960 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KNOT}", 7)));
2961 : 0 : n += 1;
2962 : : }
2963 : 12 : if ((((1 << (M2Reserved_moduletok-M2Reserved_arraytok)) & (stopset1)) != 0))
2964 : : {
2965 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KMODULE}", 10)));
2966 : 0 : n += 1;
2967 : : }
2968 : 12 : if ((((1 << (M2Reserved_modtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2969 : : {
2970 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KMOD}", 7)));
2971 : 0 : n += 1;
2972 : : }
2973 : 12 : if ((((1 << (M2Reserved_looptok-M2Reserved_arraytok)) & (stopset1)) != 0))
2974 : : {
2975 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KLOOP}", 8)));
2976 : 0 : n += 1;
2977 : : }
2978 : 12 : if ((((1 << (M2Reserved_intok-M2Reserved_arraytok)) & (stopset1)) != 0))
2979 : : {
2980 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIN}", 6)));
2981 : 0 : n += 1;
2982 : : }
2983 : 12 : if ((((1 << (M2Reserved_importtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2984 : : {
2985 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIMPORT}", 10)));
2986 : 0 : n += 1;
2987 : : }
2988 : 12 : if ((((1 << (M2Reserved_implementationtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2989 : : {
2990 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIMPLEMENTATION}", 18)));
2991 : 0 : n += 1;
2992 : : }
2993 : 12 : if ((((1 << (M2Reserved_iftok-M2Reserved_arraytok)) & (stopset1)) != 0))
2994 : : {
2995 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KIF}", 6)));
2996 : 0 : n += 1;
2997 : : }
2998 : 12 : if ((((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) & (stopset1)) != 0))
2999 : : {
3000 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFROM}", 8)));
3001 : 0 : n += 1;
3002 : : }
3003 : 12 : if ((((1 << (M2Reserved_forwardtok-M2Reserved_arraytok)) & (stopset1)) != 0))
3004 : : {
3005 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFORWARD}", 11)));
3006 : 0 : n += 1;
3007 : : }
3008 : 12 : if ((((1 << (M2Reserved_fortok-M2Reserved_arraytok)) & (stopset1)) != 0))
3009 : : {
3010 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFOR}", 7)));
3011 : 0 : n += 1;
3012 : : }
3013 : 12 : if ((((1 << (M2Reserved_finallytok-M2Reserved_arraytok)) & (stopset1)) != 0))
3014 : : {
3015 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KFINALLY}", 11)));
3016 : 0 : n += 1;
3017 : : }
3018 : 12 : if ((((1 << (M2Reserved_exporttok-M2Reserved_arraytok)) & (stopset1)) != 0))
3019 : : {
3020 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXPORT}", 10)));
3021 : 0 : n += 1;
3022 : : }
3023 : 12 : if ((((1 << (M2Reserved_exittok-M2Reserved_arraytok)) & (stopset1)) != 0))
3024 : : {
3025 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXIT}", 8)));
3026 : 0 : n += 1;
3027 : : }
3028 : 12 : if ((((1 << (M2Reserved_excepttok-M2Reserved_arraytok)) & (stopset1)) != 0))
3029 : : {
3030 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEXCEPT}", 10)));
3031 : 0 : n += 1;
3032 : : }
3033 : 12 : if ((((1 << (M2Reserved_endtok-M2Reserved_arraytok)) & (stopset1)) != 0))
3034 : : {
3035 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KEND}", 7)));
3036 : 0 : n += 1;
3037 : : }
3038 : 12 : if ((((1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) & (stopset1)) != 0))
3039 : : {
3040 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KELSIF}", 9)));
3041 : 0 : n += 1;
3042 : : }
3043 : 12 : if ((((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) & (stopset1)) != 0))
3044 : : {
3045 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KELSE}", 8)));
3046 : 0 : n += 1;
3047 : : }
3048 : 12 : if ((((1 << (M2Reserved_dotok-M2Reserved_arraytok)) & (stopset1)) != 0))
3049 : : {
3050 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDO}", 6)));
3051 : 0 : n += 1;
3052 : : }
3053 : 12 : if ((((1 << (M2Reserved_divtok-M2Reserved_arraytok)) & (stopset1)) != 0))
3054 : : {
3055 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDIV}", 7)));
3056 : 0 : n += 1;
3057 : : }
3058 : 12 : if ((((1 << (M2Reserved_definitiontok-M2Reserved_arraytok)) & (stopset1)) != 0))
3059 : : {
3060 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KDEFINITION}", 14)));
3061 : 0 : n += 1;
3062 : : }
3063 : 12 : if ((((1 << (M2Reserved_consttok-M2Reserved_arraytok)) & (stopset1)) != 0))
3064 : : {
3065 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KCONST}", 9)));
3066 : 0 : n += 1;
3067 : : }
3068 : 12 : if ((((1 << (M2Reserved_casetok-M2Reserved_arraytok)) & (stopset1)) != 0))
3069 : : {
3070 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KCASE}", 8)));
3071 : 0 : n += 1;
3072 : : }
3073 : 12 : if ((((1 << (M2Reserved_bytok-M2Reserved_arraytok)) & (stopset1)) != 0))
3074 : : {
3075 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KBY}", 6)));
3076 : 0 : n += 1;
3077 : : }
3078 : 12 : if ((((1 << (M2Reserved_begintok-M2Reserved_arraytok)) & (stopset1)) != 0))
3079 : : {
3080 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KBEGIN}", 9)));
3081 : 0 : n += 1;
3082 : : }
3083 : 12 : if ((((1 << (M2Reserved_arraytok-M2Reserved_arraytok)) & (stopset1)) != 0))
3084 : : {
3085 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KARRAY}", 9)));
3086 : 0 : n += 1;
3087 : : }
3088 : 12 : if ((((1 << (M2Reserved_andtok-M2Reserved_eoftok)) & (stopset0)) != 0))
3089 : : {
3090 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%KAND}", 7)));
3091 : 0 : n += 1;
3092 : : }
3093 : 12 : if ((((1 << (M2Reserved_colontok-M2Reserved_eoftok)) & (stopset0)) != 0))
3094 : : {
3095 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K:}", 5)));
3096 : 0 : n += 1;
3097 : : }
3098 : 12 : if ((((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok)) & (stopset0)) != 0))
3099 : : {
3100 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K..}", 6)));
3101 : 0 : n += 1;
3102 : : }
3103 : 12 : if ((((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok)) & (stopset0)) != 0))
3104 : : {
3105 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K*>}", 6)));
3106 : 0 : n += 1;
3107 : : }
3108 : 12 : if ((((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) & (stopset0)) != 0))
3109 : : {
3110 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<*}", 6)));
3111 : 0 : n += 1;
3112 : : }
3113 : 12 : if ((((1 << (M2Reserved_greaterequaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
3114 : : {
3115 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K>=}", 6)));
3116 : 0 : n += 1;
3117 : : }
3118 : 12 : if ((((1 << (M2Reserved_lessequaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
3119 : : {
3120 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<=}", 6)));
3121 : 0 : n += 1;
3122 : : }
3123 : 12 : if ((((1 << (M2Reserved_lessgreatertok-M2Reserved_eoftok)) & (stopset0)) != 0))
3124 : : {
3125 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<>}", 6)));
3126 : 0 : n += 1;
3127 : : }
3128 : 12 : if ((((1 << (M2Reserved_hashtok-M2Reserved_eoftok)) & (stopset0)) != 0))
3129 : : {
3130 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K#}", 5)));
3131 : 0 : n += 1;
3132 : : }
3133 : 12 : if ((((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) & (stopset0)) != 0))
3134 : : {
3135 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K=}", 5)));
3136 : 0 : n += 1;
3137 : : }
3138 : 12 : if ((((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) & (stopset0)) != 0))
3139 : : {
3140 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K^}", 5)));
3141 : 0 : n += 1;
3142 : : }
3143 : 12 : if ((((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) & (stopset0)) != 0))
3144 : : {
3145 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K;}", 5)));
3146 : 0 : n += 1;
3147 : : }
3148 : 12 : if ((((1 << (M2Reserved_commatok-M2Reserved_eoftok)) & (stopset0)) != 0))
3149 : : {
3150 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K,}", 5)));
3151 : 0 : n += 1;
3152 : : }
3153 : 12 : if ((((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) & (stopset0)) != 0))
3154 : : {
3155 : 6 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K.}", 5)));
3156 : 6 : n += 1;
3157 : : }
3158 : 12 : if ((((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) & (stopset0)) != 0))
3159 : : {
3160 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K&}", 5)));
3161 : 0 : n += 1;
3162 : : }
3163 : 12 : if ((((1 << (M2Reserved_dividetok-M2Reserved_eoftok)) & (stopset0)) != 0))
3164 : : {
3165 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K/}", 5)));
3166 : 0 : n += 1;
3167 : : }
3168 : 12 : if ((((1 << (M2Reserved_timestok-M2Reserved_eoftok)) & (stopset0)) != 0))
3169 : : {
3170 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K*}", 5)));
3171 : 0 : n += 1;
3172 : : }
3173 : 12 : if ((((1 << (M2Reserved_minustok-M2Reserved_eoftok)) & (stopset0)) != 0))
3174 : : {
3175 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K-}", 5)));
3176 : 0 : n += 1;
3177 : : }
3178 : 12 : if ((((1 << (M2Reserved_plustok-M2Reserved_eoftok)) & (stopset0)) != 0))
3179 : : {
3180 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K+}", 5)));
3181 : 0 : n += 1;
3182 : : }
3183 : 12 : if ((((1 << (M2Reserved_doublequotestok-M2Reserved_eoftok)) & (stopset0)) != 0))
3184 : : {
3185 : 0 : message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '`'), '"'), '\''), ',');
3186 : 0 : n += 1;
3187 : : }
3188 : 12 : if ((((1 << (M2Reserved_singlequotetok-M2Reserved_eoftok)) & (stopset0)) != 0))
3189 : : {
3190 : 0 : message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '"'), '\''), '"'), ',');
3191 : 0 : n += 1;
3192 : : }
3193 : 12 : if ((((1 << (M2Reserved_greatertok-M2Reserved_eoftok)) & (stopset0)) != 0))
3194 : : {
3195 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K>}", 5)));
3196 : 0 : n += 1;
3197 : : }
3198 : 12 : if ((((1 << (M2Reserved_lesstok-M2Reserved_eoftok)) & (stopset0)) != 0))
3199 : : {
3200 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K<}", 5)));
3201 : 0 : n += 1;
3202 : : }
3203 : 12 : if ((((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) & (stopset0)) != 0))
3204 : : {
3205 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K)}", 5)));
3206 : 0 : n += 1;
3207 : : }
3208 : 12 : if ((((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) & (stopset0)) != 0))
3209 : : {
3210 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K(}", 5)));
3211 : 0 : n += 1;
3212 : : }
3213 : 12 : if ((((1 << (M2Reserved_rcbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
3214 : : {
3215 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K%}}", 6)));
3216 : 0 : n += 1;
3217 : : }
3218 : 12 : if ((((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
3219 : : {
3220 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K%{}", 6)));
3221 : 0 : n += 1;
3222 : : }
3223 : 12 : if ((((1 << (M2Reserved_rsbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
3224 : : {
3225 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K]}", 5)));
3226 : 0 : n += 1;
3227 : : }
3228 : 12 : if ((((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) & (stopset0)) != 0))
3229 : : {
3230 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K[}", 5)));
3231 : 0 : n += 1;
3232 : : }
3233 : 12 : if ((((1 << (M2Reserved_bartok-M2Reserved_eoftok)) & (stopset0)) != 0))
3234 : : {
3235 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K|}", 5)));
3236 : 0 : n += 1;
3237 : : }
3238 : 12 : if ((((1 << (M2Reserved_becomestok-M2Reserved_eoftok)) & (stopset0)) != 0))
3239 : : {
3240 : 0 : message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{%K:=}", 6)));
3241 : 0 : n += 1;
3242 : : }
3243 : 12 : if ((((1 << (M2Reserved_eoftok-M2Reserved_eoftok)) & (stopset0)) != 0))
3244 : : {} /* empty. */
3245 : : /* eoftok has no token name (needed to generate error messages) */
3246 : 12 : if (n == 0)
3247 : : {
3248 : 0 : str = DynamicStrings_InitString ((const char *) " syntax error", 13);
3249 : 0 : message = DynamicStrings_KillString (message);
3250 : : }
3251 : 12 : else if (n == 1)
3252 : : {
3253 : : /* avoid dangling else. */
3254 : 12 : str = DynamicStrings_ConCat (message, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) " missing ", 9)));
3255 : : }
3256 : : else
3257 : : {
3258 : : /* avoid dangling else. */
3259 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) " expecting one of", 17), message);
3260 : 0 : message = DynamicStrings_KillString (message);
3261 : : }
3262 : 12 : return str;
3263 : : /* static analysis guarentees a RETURN statement will be used before here. */
3264 : : __builtin_unreachable ();
3265 : : }
3266 : :
3267 : :
3268 : : /*
3269 : : DescribeError - issues a message explaining what tokens were expected
3270 : : */
3271 : :
3272 : 0 : static void DescribeError (void)
3273 : : {
3274 : 0 : DynamicStrings_String str;
3275 : :
3276 : 0 : str = DynamicStrings_InitString ((const char *) "", 0);
3277 : 0 : switch (M2LexBuf_currenttoken)
3278 : : {
3279 : 0 : case M2Reserved_stringtok:
3280 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kstring}", 30), DynamicStrings_Mark (str));
3281 : 0 : break;
3282 : :
3283 : 0 : case M2Reserved_realtok:
3284 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kreal number}", 35), DynamicStrings_Mark (str));
3285 : 0 : break;
3286 : :
3287 : 0 : case M2Reserved_identtok:
3288 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kidentifier}", 34), DynamicStrings_Mark (str));
3289 : 0 : break;
3290 : :
3291 : 0 : case M2Reserved_integertok:
3292 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%Kinteger number}", 38), DynamicStrings_Mark (str));
3293 : 0 : break;
3294 : :
3295 : 0 : case M2Reserved_inlinetok:
3296 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__INLINE__}", 34), DynamicStrings_Mark (str));
3297 : 0 : break;
3298 : :
3299 : 0 : case M2Reserved_builtintok:
3300 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__BUILTIN__}", 35), DynamicStrings_Mark (str));
3301 : 0 : break;
3302 : :
3303 : 0 : case M2Reserved_attributetok:
3304 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__ATTRIBUTE__}", 37), DynamicStrings_Mark (str));
3305 : 0 : break;
3306 : :
3307 : 0 : case M2Reserved_filetok:
3308 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__FILE__}", 32), DynamicStrings_Mark (str));
3309 : 0 : break;
3310 : :
3311 : 0 : case M2Reserved_linetok:
3312 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__LINE__}", 32), DynamicStrings_Mark (str));
3313 : 0 : break;
3314 : :
3315 : 0 : case M2Reserved_datetok:
3316 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K__DATE__}", 32), DynamicStrings_Mark (str));
3317 : 0 : break;
3318 : :
3319 : 0 : case M2Reserved_periodperiodperiodtok:
3320 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K...}", 27), DynamicStrings_Mark (str));
3321 : 0 : break;
3322 : :
3323 : 0 : case M2Reserved_volatiletok:
3324 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KVOLATILE}", 32), DynamicStrings_Mark (str));
3325 : 0 : break;
3326 : :
3327 : 0 : case M2Reserved_asmtok:
3328 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KASM}", 27), DynamicStrings_Mark (str));
3329 : 0 : break;
3330 : :
3331 : 0 : case M2Reserved_withtok:
3332 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KWITH}", 28), DynamicStrings_Mark (str));
3333 : 0 : break;
3334 : :
3335 : 0 : case M2Reserved_whiletok:
3336 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KWHILE}", 29), DynamicStrings_Mark (str));
3337 : 0 : break;
3338 : :
3339 : 0 : case M2Reserved_vartok:
3340 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KVAR}", 27), DynamicStrings_Mark (str));
3341 : 0 : break;
3342 : :
3343 : 0 : case M2Reserved_untiltok:
3344 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KUNTIL}", 29), DynamicStrings_Mark (str));
3345 : 0 : break;
3346 : :
3347 : 0 : case M2Reserved_typetok:
3348 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTYPE}", 28), DynamicStrings_Mark (str));
3349 : 0 : break;
3350 : :
3351 : 0 : case M2Reserved_totok:
3352 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTO}", 26), DynamicStrings_Mark (str));
3353 : 0 : break;
3354 : :
3355 : 0 : case M2Reserved_thentok:
3356 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KTHEN}", 28), DynamicStrings_Mark (str));
3357 : 0 : break;
3358 : :
3359 : 0 : case M2Reserved_settok:
3360 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KSET}", 27), DynamicStrings_Mark (str));
3361 : 0 : break;
3362 : :
3363 : 0 : case M2Reserved_returntok:
3364 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRETURN}", 30), DynamicStrings_Mark (str));
3365 : 0 : break;
3366 : :
3367 : 0 : case M2Reserved_retrytok:
3368 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRETRY}", 29), DynamicStrings_Mark (str));
3369 : 0 : break;
3370 : :
3371 : 0 : case M2Reserved_repeattok:
3372 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KREPEAT}", 30), DynamicStrings_Mark (str));
3373 : 0 : break;
3374 : :
3375 : 0 : case M2Reserved_remtok:
3376 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KREM}", 27), DynamicStrings_Mark (str));
3377 : 0 : break;
3378 : :
3379 : 0 : case M2Reserved_recordtok:
3380 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KRECORD}", 30), DynamicStrings_Mark (str));
3381 : 0 : break;
3382 : :
3383 : 0 : case M2Reserved_unqualifiedtok:
3384 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KUNQUALIFIED}", 35), DynamicStrings_Mark (str));
3385 : 0 : break;
3386 : :
3387 : 0 : case M2Reserved_qualifiedtok:
3388 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KQUALIFIED}", 33), DynamicStrings_Mark (str));
3389 : 0 : break;
3390 : :
3391 : 0 : case M2Reserved_proceduretok:
3392 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPROCEDURE}", 33), DynamicStrings_Mark (str));
3393 : 0 : break;
3394 : :
3395 : 0 : case M2Reserved_pointertok:
3396 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPOINTER}", 31), DynamicStrings_Mark (str));
3397 : 0 : break;
3398 : :
3399 : 0 : case M2Reserved_packedsettok:
3400 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KPACKEDSET}", 33), DynamicStrings_Mark (str));
3401 : 0 : break;
3402 : :
3403 : 0 : case M2Reserved_ortok:
3404 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KOR}", 26), DynamicStrings_Mark (str));
3405 : 0 : break;
3406 : :
3407 : 0 : case M2Reserved_oftok:
3408 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KOF}", 26), DynamicStrings_Mark (str));
3409 : 0 : break;
3410 : :
3411 : 0 : case M2Reserved_nottok:
3412 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KNOT}", 27), DynamicStrings_Mark (str));
3413 : 0 : break;
3414 : :
3415 : 0 : case M2Reserved_moduletok:
3416 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KMODULE}", 30), DynamicStrings_Mark (str));
3417 : 0 : break;
3418 : :
3419 : 0 : case M2Reserved_modtok:
3420 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KMOD}", 27), DynamicStrings_Mark (str));
3421 : 0 : break;
3422 : :
3423 : 0 : case M2Reserved_looptok:
3424 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KLOOP}", 28), DynamicStrings_Mark (str));
3425 : 0 : break;
3426 : :
3427 : 0 : case M2Reserved_intok:
3428 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIN}", 26), DynamicStrings_Mark (str));
3429 : 0 : break;
3430 : :
3431 : 0 : case M2Reserved_importtok:
3432 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIMPORT}", 30), DynamicStrings_Mark (str));
3433 : 0 : break;
3434 : :
3435 : 0 : case M2Reserved_implementationtok:
3436 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIMPLEMENTATION}", 38), DynamicStrings_Mark (str));
3437 : 0 : break;
3438 : :
3439 : 0 : case M2Reserved_iftok:
3440 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KIF}", 26), DynamicStrings_Mark (str));
3441 : 0 : break;
3442 : :
3443 : 0 : case M2Reserved_fromtok:
3444 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFROM}", 28), DynamicStrings_Mark (str));
3445 : 0 : break;
3446 : :
3447 : 0 : case M2Reserved_forwardtok:
3448 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFORWARD}", 31), DynamicStrings_Mark (str));
3449 : 0 : break;
3450 : :
3451 : 0 : case M2Reserved_fortok:
3452 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFOR}", 27), DynamicStrings_Mark (str));
3453 : 0 : break;
3454 : :
3455 : 0 : case M2Reserved_finallytok:
3456 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KFINALLY}", 31), DynamicStrings_Mark (str));
3457 : 0 : break;
3458 : :
3459 : 0 : case M2Reserved_exporttok:
3460 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXPORT}", 30), DynamicStrings_Mark (str));
3461 : 0 : break;
3462 : :
3463 : 0 : case M2Reserved_exittok:
3464 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXIT}", 28), DynamicStrings_Mark (str));
3465 : 0 : break;
3466 : :
3467 : 0 : case M2Reserved_excepttok:
3468 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEXCEPT}", 30), DynamicStrings_Mark (str));
3469 : 0 : break;
3470 : :
3471 : 0 : case M2Reserved_endtok:
3472 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KEND}", 27), DynamicStrings_Mark (str));
3473 : 0 : break;
3474 : :
3475 : 0 : case M2Reserved_elsiftok:
3476 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KELSIF}", 29), DynamicStrings_Mark (str));
3477 : 0 : break;
3478 : :
3479 : 0 : case M2Reserved_elsetok:
3480 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KELSE}", 28), DynamicStrings_Mark (str));
3481 : 0 : break;
3482 : :
3483 : 0 : case M2Reserved_dotok:
3484 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDO}", 26), DynamicStrings_Mark (str));
3485 : 0 : break;
3486 : :
3487 : 0 : case M2Reserved_divtok:
3488 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDIV}", 27), DynamicStrings_Mark (str));
3489 : 0 : break;
3490 : :
3491 : 0 : case M2Reserved_definitiontok:
3492 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KDEFINITION}", 34), DynamicStrings_Mark (str));
3493 : 0 : break;
3494 : :
3495 : 0 : case M2Reserved_consttok:
3496 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KCONST}", 29), DynamicStrings_Mark (str));
3497 : 0 : break;
3498 : :
3499 : 0 : case M2Reserved_casetok:
3500 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KCASE}", 28), DynamicStrings_Mark (str));
3501 : 0 : break;
3502 : :
3503 : 0 : case M2Reserved_bytok:
3504 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KBY}", 26), DynamicStrings_Mark (str));
3505 : 0 : break;
3506 : :
3507 : 0 : case M2Reserved_begintok:
3508 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KBEGIN}", 29), DynamicStrings_Mark (str));
3509 : 0 : break;
3510 : :
3511 : 0 : case M2Reserved_arraytok:
3512 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KARRAY}", 29), DynamicStrings_Mark (str));
3513 : 0 : break;
3514 : :
3515 : 0 : case M2Reserved_andtok:
3516 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%KAND}", 27), DynamicStrings_Mark (str));
3517 : 0 : break;
3518 : :
3519 : 0 : case M2Reserved_colontok:
3520 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K:}", 25), DynamicStrings_Mark (str));
3521 : 0 : break;
3522 : :
3523 : 0 : case M2Reserved_periodperiodtok:
3524 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K..}", 26), DynamicStrings_Mark (str));
3525 : 0 : break;
3526 : :
3527 : 0 : case M2Reserved_rdirectivetok:
3528 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K*>}", 26), DynamicStrings_Mark (str));
3529 : 0 : break;
3530 : :
3531 : 0 : case M2Reserved_ldirectivetok:
3532 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<*}", 26), DynamicStrings_Mark (str));
3533 : 0 : break;
3534 : :
3535 : 0 : case M2Reserved_greaterequaltok:
3536 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K>=}", 26), DynamicStrings_Mark (str));
3537 : 0 : break;
3538 : :
3539 : 0 : case M2Reserved_lessequaltok:
3540 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<=}", 26), DynamicStrings_Mark (str));
3541 : 0 : break;
3542 : :
3543 : 0 : case M2Reserved_lessgreatertok:
3544 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<>}", 26), DynamicStrings_Mark (str));
3545 : 0 : break;
3546 : :
3547 : 0 : case M2Reserved_hashtok:
3548 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K#}", 25), DynamicStrings_Mark (str));
3549 : 0 : break;
3550 : :
3551 : 0 : case M2Reserved_equaltok:
3552 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K=}", 25), DynamicStrings_Mark (str));
3553 : 0 : break;
3554 : :
3555 : 0 : case M2Reserved_uparrowtok:
3556 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K^}", 25), DynamicStrings_Mark (str));
3557 : 0 : break;
3558 : :
3559 : 0 : case M2Reserved_semicolontok:
3560 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K;}", 25), DynamicStrings_Mark (str));
3561 : 0 : break;
3562 : :
3563 : 0 : case M2Reserved_commatok:
3564 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K,}", 25), DynamicStrings_Mark (str));
3565 : 0 : break;
3566 : :
3567 : 0 : case M2Reserved_periodtok:
3568 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K.}", 25), DynamicStrings_Mark (str));
3569 : 0 : break;
3570 : :
3571 : 0 : case M2Reserved_ambersandtok:
3572 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K&}", 25), DynamicStrings_Mark (str));
3573 : 0 : break;
3574 : :
3575 : 0 : case M2Reserved_dividetok:
3576 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K/}", 25), DynamicStrings_Mark (str));
3577 : 0 : break;
3578 : :
3579 : 0 : case M2Reserved_timestok:
3580 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K*}", 25), DynamicStrings_Mark (str));
3581 : 0 : break;
3582 : :
3583 : 0 : case M2Reserved_minustok:
3584 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K-}", 25), DynamicStrings_Mark (str));
3585 : 0 : break;
3586 : :
3587 : 0 : case M2Reserved_plustok:
3588 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K+}", 25), DynamicStrings_Mark (str));
3589 : 0 : break;
3590 : :
3591 : 0 : case M2Reserved_doublequotestok:
3592 : 0 : str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found '", 21), '"'), '\''), DynamicStrings_Mark (str));
3593 : 0 : break;
3594 : :
3595 : 0 : case M2Reserved_singlequotetok:
3596 : 0 : str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found \"", 21), '\''), '"'), DynamicStrings_Mark (str));
3597 : 0 : break;
3598 : :
3599 : 0 : case M2Reserved_greatertok:
3600 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K>}", 25), DynamicStrings_Mark (str));
3601 : 0 : break;
3602 : :
3603 : 0 : case M2Reserved_lesstok:
3604 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K<}", 25), DynamicStrings_Mark (str));
3605 : 0 : break;
3606 : :
3607 : 0 : case M2Reserved_rparatok:
3608 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K)}", 25), DynamicStrings_Mark (str));
3609 : 0 : break;
3610 : :
3611 : 0 : case M2Reserved_lparatok:
3612 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K(}", 25), DynamicStrings_Mark (str));
3613 : 0 : break;
3614 : :
3615 : 0 : case M2Reserved_rcbratok:
3616 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K%}}", 26), DynamicStrings_Mark (str));
3617 : 0 : break;
3618 : :
3619 : 0 : case M2Reserved_lcbratok:
3620 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K%{}", 26), DynamicStrings_Mark (str));
3621 : 0 : break;
3622 : :
3623 : 0 : case M2Reserved_rsbratok:
3624 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K]}", 25), DynamicStrings_Mark (str));
3625 : 0 : break;
3626 : :
3627 : 0 : case M2Reserved_lsbratok:
3628 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K[}", 25), DynamicStrings_Mark (str));
3629 : 0 : break;
3630 : :
3631 : 0 : case M2Reserved_bartok:
3632 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K|}", 25), DynamicStrings_Mark (str));
3633 : 0 : break;
3634 : :
3635 : 0 : case M2Reserved_becomestok:
3636 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K:=}", 26), DynamicStrings_Mark (str));
3637 : 0 : break;
3638 : :
3639 : 0 : case M2Reserved_eoftok:
3640 : 0 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {%K}", 24), DynamicStrings_Mark (str));
3641 : 0 : break;
3642 : :
3643 : :
3644 : : default:
3645 : : break;
3646 : : }
3647 : 0 : ErrorString (str);
3648 : 0 : }
3649 : :
3650 : :
3651 : : /*
3652 : : SyntaxError - after a syntax error we skip all tokens up until we reach
3653 : : a stop symbol.
3654 : : */
3655 : :
3656 : 0 : static void SyntaxError (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3657 : : {
3658 : 0 : DescribeError ();
3659 : 0 : if (Debugging)
3660 : : {
3661 : : M2Printf_printf0 ((const char *) "\\nskipping token *** ", 21);
3662 : : }
3663 : : /* --fixme-- this assumes a 32 bit word size. */
3664 : 0 : while (! (((( ((unsigned int) (M2LexBuf_currenttoken)) < 32) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (M2LexBuf_currenttoken)) >= 32) && ( ((unsigned int) (M2LexBuf_currenttoken)) < 64)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (M2LexBuf_currenttoken)) >= 64) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & (stopset2)) != 0)))))
3665 : : {
3666 : 0 : M2LexBuf_GetToken ();
3667 : : }
3668 : 0 : if (Debugging)
3669 : : {
3670 : : M2Printf_printf0 ((const char *) " ***\\n", 6);
3671 : : }
3672 : 0 : }
3673 : :
3674 : :
3675 : : /*
3676 : : SyntaxCheck -
3677 : : */
3678 : :
3679 : 37906589 : static void SyntaxCheck (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3680 : : {
3681 : : /* --fixme-- this assumes a 32 bit word size. */
3682 : 37906589 : if (! (((( ((unsigned int) (M2LexBuf_currenttoken)) < 32) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (M2LexBuf_currenttoken)) >= 32) && ( ((unsigned int) (M2LexBuf_currenttoken)) < 64)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (M2LexBuf_currenttoken)) >= 64) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & (stopset2)) != 0)))))
3683 : : {
3684 : 0 : SyntaxError (stopset0, stopset1, stopset2);
3685 : : }
3686 : 37906589 : }
3687 : :
3688 : :
3689 : : /*
3690 : : WarnMissingToken - generates a warning message about a missing token, t.
3691 : : */
3692 : :
3693 : 12 : static void WarnMissingToken (M2Reserved_toktype t)
3694 : : {
3695 : 12 : P3Build_SetOfStop0 s0;
3696 : 12 : P3Build_SetOfStop1 s1;
3697 : 12 : P3Build_SetOfStop2 s2;
3698 : 12 : DynamicStrings_String str;
3699 : :
3700 : 12 : s0 = (P3Build_SetOfStop0) 0;
3701 : 12 : s1 = (P3Build_SetOfStop1) 0;
3702 : 12 : s2 = (P3Build_SetOfStop2) 0;
3703 : 12 : if ( ((unsigned int) (t)) < 32)
3704 : : {
3705 : 6 : s0 = (P3Build_SetOfStop0) ((1 << (t-M2Reserved_eoftok)));
3706 : : }
3707 : 6 : else if ( ((unsigned int) (t)) < 64)
3708 : : {
3709 : : /* avoid dangling else. */
3710 : 0 : s1 = (P3Build_SetOfStop1) ((1 << (t-M2Reserved_arraytok)));
3711 : : }
3712 : : else
3713 : : {
3714 : : /* avoid dangling else. */
3715 : 6 : s2 = (P3Build_SetOfStop2) ((1 << (t-M2Reserved_unqualifiedtok)));
3716 : : }
3717 : 12 : str = DescribeStop (s0, s1, s2);
3718 : 12 : str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error,", 13), DynamicStrings_Mark (str));
3719 : 12 : M2Error_ErrorStringAt (str, M2LexBuf_GetTokenNo ());
3720 : 12 : }
3721 : :
3722 : :
3723 : : /*
3724 : : MissingToken - generates a warning message about a missing token, t.
3725 : : */
3726 : :
3727 : 12 : static void MissingToken (M2Reserved_toktype t)
3728 : : {
3729 : 12 : WarnMissingToken (t);
3730 : 12 : if ((((t != M2Reserved_identtok) && (t != M2Reserved_integertok)) && (t != M2Reserved_realtok)) && (t != M2Reserved_stringtok))
3731 : : {
3732 : 6 : if (Debugging)
3733 : : {
3734 : : M2Printf_printf0 ((const char *) "inserting token\\n", 17);
3735 : : }
3736 : 6 : M2LexBuf_InsertToken (t);
3737 : : }
3738 : 12 : }
3739 : :
3740 : :
3741 : : /*
3742 : : CheckAndInsert -
3743 : : */
3744 : :
3745 : 0 : static bool CheckAndInsert (M2Reserved_toktype t, P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3746 : : {
3747 : 0 : if (((( ((unsigned int) (t)) < 32) && ((((1 << (t-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (t)) >= 32) && ( ((unsigned int) (t)) < 64)) && ((((1 << (t-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (t)) >= 64) && ((((1 << (t-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))))
3748 : : {
3749 : 0 : WarnMissingToken (t);
3750 : 0 : M2LexBuf_InsertTokenAndRewind (t);
3751 : 0 : return true;
3752 : : }
3753 : : else
3754 : : {
3755 : : return false;
3756 : : }
3757 : : /* static analysis guarentees a RETURN statement will be used before here. */
3758 : : __builtin_unreachable ();
3759 : : }
3760 : :
3761 : :
3762 : : /*
3763 : : InStopSet
3764 : : */
3765 : :
3766 : 0 : static bool InStopSet (M2Reserved_toktype t, P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3767 : : {
3768 : 0 : if (((( ((unsigned int) (t)) < 32) && ((((1 << (t-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (t)) >= 32) && ( ((unsigned int) (t)) < 64)) && ((((1 << (t-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (t)) >= 64) && ((((1 << (t-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))))
3769 : : {
3770 : : return true;
3771 : : }
3772 : : else
3773 : : {
3774 : 0 : return false;
3775 : : }
3776 : : /* static analysis guarentees a RETURN statement will be used before here. */
3777 : : __builtin_unreachable ();
3778 : : }
3779 : :
3780 : :
3781 : : /*
3782 : : PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
3783 : : If it is not then it will insert a token providing the token
3784 : : is one of ; ] ) } . OF END ,
3785 : :
3786 : : if the stopset contains <identtok> then we do not insert a token
3787 : : */
3788 : :
3789 : 0 : static void PeepToken (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3790 : : {
3791 : : /* and again (see above re: ORD)
3792 : : */
3793 : 0 : if ((! (((( ((unsigned int) (M2LexBuf_currenttoken)) < 32) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (M2LexBuf_currenttoken)) >= 32) && ( ((unsigned int) (M2LexBuf_currenttoken)) < 64)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (M2LexBuf_currenttoken)) >= 64) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & (stopset2)) != 0))))) && (! (InStopSet (M2Reserved_identtok, stopset0, stopset1, stopset2))))
3794 : : {
3795 : : /* SyntaxCheck would fail since currentoken is not part of the stopset
3796 : : we check to see whether any of currenttoken might be a commonly omitted token */
3797 : 0 : if ((((((((CheckAndInsert (M2Reserved_semicolontok, stopset0, stopset1, stopset2)) || (CheckAndInsert (M2Reserved_rsbratok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_rparatok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_rcbratok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_periodtok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_oftok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_endtok, stopset0, stopset1, stopset2))) || (CheckAndInsert (M2Reserved_commatok, stopset0, stopset1, stopset2)))
3798 : : {} /* empty. */
3799 : : }
3800 : 0 : }
3801 : :
3802 : :
3803 : : /*
3804 : : Expect -
3805 : : */
3806 : :
3807 : 37906589 : static void Expect (M2Reserved_toktype t, P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3808 : : {
3809 : 37906589 : if (M2LexBuf_currenttoken == t)
3810 : : {
3811 : : /* avoid dangling else. */
3812 : 37906577 : M2LexBuf_GetToken ();
3813 : 37906577 : if (Pass1)
3814 : : {
3815 : : PeepToken (stopset0, stopset1, stopset2);
3816 : : }
3817 : : }
3818 : : else
3819 : : {
3820 : 12 : MissingToken (t);
3821 : : }
3822 : 37906589 : SyntaxCheck (stopset0, stopset1, stopset2);
3823 : 37906589 : }
3824 : :
3825 : :
3826 : : /*
3827 : : Ident - error checking varient of Ident
3828 : : */
3829 : :
3830 : 15074621 : static void Ident (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3831 : : {
3832 : 15074621 : if (M2Quads_IsAutoPushOn ())
3833 : : {
3834 : : /* ; MetaErrorT0 (GetTokenNo(), "{%W}an ident") */
3835 : 7850205 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_identtok), M2LexBuf_GetTokenNo ());
3836 : : }
3837 : 15074621 : Expect (M2Reserved_identtok, stopset0, stopset1, stopset2);
3838 : 15074621 : }
3839 : :
3840 : :
3841 : : /*
3842 : : string -
3843 : : */
3844 : :
3845 : 53718 : static void string (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3846 : : {
3847 : 53718 : if (M2Quads_IsAutoPushOn ())
3848 : : {
3849 : 53718 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_stringtok), M2LexBuf_GetTokenNo ());
3850 : 53718 : P2SymBuild_BuildString ();
3851 : : }
3852 : 53718 : Expect (M2Reserved_stringtok, stopset0, stopset1, stopset2);
3853 : 53718 : }
3854 : :
3855 : :
3856 : : /*
3857 : : Integer -
3858 : : */
3859 : :
3860 : 246484 : static void Integer (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3861 : : {
3862 : 246484 : if (M2Quads_IsAutoPushOn ())
3863 : : {
3864 : 246484 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_integertok), M2LexBuf_GetTokenNo ());
3865 : 246484 : P2SymBuild_BuildNumber ();
3866 : : }
3867 : 246484 : Expect (M2Reserved_integertok, stopset0, stopset1, stopset2);
3868 : 246484 : }
3869 : :
3870 : :
3871 : : /*
3872 : : Real -
3873 : : */
3874 : :
3875 : 6454 : static void Real (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3876 : : {
3877 : 6454 : if (M2Quads_IsAutoPushOn ())
3878 : : {
3879 : 6454 : M2Quads_PushTFtok (NameKey_makekey (M2LexBuf_currentstring), static_cast<unsigned int> (M2Reserved_realtok), M2LexBuf_GetTokenNo ());
3880 : 6454 : P2SymBuild_BuildNumber ();
3881 : : }
3882 : 6454 : Expect (M2Reserved_realtok, stopset0, stopset1, stopset2);
3883 : 6454 : }
3884 : :
3885 : :
3886 : : /*
3887 : : FileUnit :=
3888 : : % PushAutoOff %
3889 : : ( DefinitionModule |
3890 : : ImplementationOrProgramModule )
3891 : : % PopAuto %
3892 : :
3893 : :
3894 : : first symbols:implementationtok, moduletok, definitiontok
3895 : :
3896 : : cannot reachend
3897 : : */
3898 : :
3899 : 128447 : static void FileUnit (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3900 : : {
3901 : 128447 : M2Quads_PushAutoOff ();
3902 : 128447 : if (M2LexBuf_currenttoken == M2Reserved_definitiontok)
3903 : : {
3904 : 114178 : DefinitionModule (stopset0, stopset1, stopset2);
3905 : : }
3906 : 14269 : else if (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_implementationtok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0)))
3907 : : {
3908 : : /* avoid dangling else. */
3909 : 14269 : ImplementationOrProgramModule (stopset0, stopset1, stopset2);
3910 : : }
3911 : : else
3912 : : {
3913 : : /* avoid dangling else. */
3914 : 0 : ErrorArray ((const char *) "expecting one of: {%KIMPLEMENTATION} {%KMODULE} {%KDEFINITION}", 62);
3915 : : }
3916 : 128249 : M2Quads_PopAuto ();
3917 : 128249 : }
3918 : :
3919 : :
3920 : : /*
3921 : : ProgramModule :=
3922 : : % VAR modulet, endt: CARDINAL ; %
3923 : :
3924 : : % modulet := GetTokenNo () %
3925 : : 'MODULE'
3926 : : % M2Error.DefaultProgramModule %
3927 : :
3928 : : % PushAutoOn %
3929 : : Ident
3930 : : % P3StartBuildProgModule %
3931 : :
3932 : : % StartBuildModFile (modulet) %
3933 : :
3934 : : % BuildModuleStart (modulet) %
3935 : :
3936 : : % PushAutoOff %
3937 : : [ Priority ] ';'
3938 : : % BuildScaffold (modulet,
3939 : : GetCurrentModule ()) %
3940 : : { Import } Block
3941 : : % PushAutoOn %
3942 : :
3943 : : % endt := GetTokenNo () -1 %
3944 : : Ident
3945 : : % EndBuildFile (endt) %
3946 : :
3947 : : % P3EndBuildProgModule %
3948 : : '.'
3949 : : % PopAuto ; PopAuto %
3950 : :
3951 : :
3952 : : first symbols:moduletok
3953 : :
3954 : : cannot reachend
3955 : : */
3956 : :
3957 : 10984 : static void ProgramModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
3958 : : {
3959 : 10984 : unsigned int modulet;
3960 : 10984 : unsigned int endt;
3961 : :
3962 : 10984 : modulet = M2LexBuf_GetTokenNo ();
3963 : 10984 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3964 : 10984 : M2Error_DefaultProgramModule ();
3965 : 10984 : M2Quads_PushAutoOn ();
3966 : 10984 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
3967 : 10984 : P3SymBuild_P3StartBuildProgModule ();
3968 : 10984 : M2Quads_StartBuildModFile (modulet);
3969 : 10984 : M2Quads_BuildModuleStart (modulet);
3970 : 10984 : M2Quads_PushAutoOff ();
3971 : 10984 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
3972 : : {
3973 : 12 : Priority (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
3974 : : }
3975 : 10984 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
3976 : 10984 : M2Quads_BuildScaffold (modulet, SymbolTable_GetCurrentModule ());
3977 : 35364 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
3978 : : {
3979 : 13396 : Import (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
3980 : : }
3981 : : /* while */
3982 : 10984 : Block (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
3983 : 10786 : M2Quads_PushAutoOn ();
3984 : 10786 : endt = (M2LexBuf_GetTokenNo ())-1;
3985 : 10786 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
3986 : 10786 : M2Quads_EndBuildFile (endt);
3987 : 10786 : P3SymBuild_P3EndBuildProgModule ();
3988 : 10786 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
3989 : 10786 : M2Quads_PopAuto ();
3990 : 10786 : M2Quads_PopAuto ();
3991 : 10786 : }
3992 : :
3993 : :
3994 : : /*
3995 : : ImplementationModule :=
3996 : : % VAR modulet, endt: CARDINAL ; %
3997 : :
3998 : : % modulet := GetTokenNo () %
3999 : : 'IMPLEMENTATION'
4000 : : % M2Error.DefaultImplementationModule %
4001 : : 'MODULE'
4002 : : % PushAutoOn %
4003 : : Ident
4004 : : % StartBuildModFile (modulet) %
4005 : :
4006 : : % P3StartBuildImpModule %
4007 : :
4008 : : % BuildModuleStart (modulet) %
4009 : :
4010 : : % PushAutoOff %
4011 : : [ Priority ] ';'
4012 : : % BuildScaffold (modulet,
4013 : : GetCurrentModule ()) %
4014 : : { Import } Block
4015 : : % PushAutoOn %
4016 : :
4017 : : % endt := GetTokenNo () -1 %
4018 : : Ident
4019 : : % EndBuildFile (endt) %
4020 : :
4021 : : % P3EndBuildImpModule %
4022 : : '.'
4023 : : % PopAuto ; PopAuto ; PopAuto %
4024 : :
4025 : :
4026 : : first symbols:implementationtok
4027 : :
4028 : : cannot reachend
4029 : : */
4030 : :
4031 : 3285 : static void ImplementationModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4032 : : {
4033 : 3285 : unsigned int modulet;
4034 : 3285 : unsigned int endt;
4035 : :
4036 : 3285 : modulet = M2LexBuf_GetTokenNo ();
4037 : 3285 : Expect (M2Reserved_implementationtok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2);
4038 : 3285 : M2Error_DefaultImplementationModule ();
4039 : 3285 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4040 : 3285 : M2Quads_PushAutoOn ();
4041 : 3285 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
4042 : 3285 : M2Quads_StartBuildModFile (modulet);
4043 : 3285 : P3SymBuild_P3StartBuildImpModule ();
4044 : 3285 : M2Quads_BuildModuleStart (modulet);
4045 : 3285 : M2Quads_PushAutoOff ();
4046 : 3285 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
4047 : : {
4048 : 14 : Priority (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
4049 : : }
4050 : 3285 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
4051 : 3285 : M2Quads_BuildScaffold (modulet, SymbolTable_GetCurrentModule ());
4052 : 11976 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
4053 : : {
4054 : 5406 : Import (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
4055 : : }
4056 : : /* while */
4057 : 3285 : Block (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4058 : 3285 : M2Quads_PushAutoOn ();
4059 : 3285 : endt = (M2LexBuf_GetTokenNo ())-1;
4060 : 3285 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
4061 : 3285 : M2Quads_EndBuildFile (endt);
4062 : 3285 : P3SymBuild_P3EndBuildImpModule ();
4063 : 3285 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
4064 : 3285 : M2Quads_PopAuto ();
4065 : 3285 : M2Quads_PopAuto ();
4066 : 3285 : M2Quads_PopAuto ();
4067 : 3285 : }
4068 : :
4069 : :
4070 : : /*
4071 : : ImplementationOrProgramModule :=
4072 : : % PushAutoOff %
4073 : : ( ImplementationModule |
4074 : : ProgramModule )
4075 : :
4076 : : % PopAuto %
4077 : :
4078 : :
4079 : : first symbols:moduletok, implementationtok
4080 : :
4081 : : cannot reachend
4082 : : */
4083 : :
4084 : 14269 : static void ImplementationOrProgramModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4085 : : {
4086 : 14269 : M2Quads_PushAutoOff ();
4087 : 14269 : if (M2LexBuf_currenttoken == M2Reserved_implementationtok)
4088 : : {
4089 : 3285 : ImplementationModule (stopset0, stopset1, stopset2);
4090 : : }
4091 : 10984 : else if (M2LexBuf_currenttoken == M2Reserved_moduletok)
4092 : : {
4093 : : /* avoid dangling else. */
4094 : 10984 : ProgramModule (stopset0, stopset1, stopset2);
4095 : : }
4096 : : else
4097 : : {
4098 : : /* avoid dangling else. */
4099 : 0 : ErrorArray ((const char *) "expecting one of: {%KMODULE} {%KIMPLEMENTATION}", 47);
4100 : : }
4101 : 14071 : M2Quads_PopAuto ();
4102 : 14071 : }
4103 : :
4104 : :
4105 : : /*
4106 : : Number := Integer | Real
4107 : :
4108 : : first symbols:realtok, integertok
4109 : :
4110 : : cannot reachend
4111 : : */
4112 : :
4113 : 252938 : static void Number (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4114 : : {
4115 : 252938 : if (M2LexBuf_currenttoken == M2Reserved_integertok)
4116 : : {
4117 : 246484 : Integer (stopset0, stopset1, stopset2);
4118 : : }
4119 : 6454 : else if (M2LexBuf_currenttoken == M2Reserved_realtok)
4120 : : {
4121 : : /* avoid dangling else. */
4122 : 6454 : Real (stopset0, stopset1, stopset2);
4123 : : }
4124 : : else
4125 : : {
4126 : : /* avoid dangling else. */
4127 : 0 : ErrorArray ((const char *) "expecting one of: {%Kreal number} {%Kinteger number}", 52);
4128 : : }
4129 : 252938 : }
4130 : :
4131 : :
4132 : : /*
4133 : : Qualident :=
4134 : : % VAR name : Name ;
4135 : : init, ip1,
4136 : : tokstart, tok : CARDINAL ; %
4137 : : Ident
4138 : : % IF IsAutoPushOn()
4139 : : THEN
4140 : : PopTtok(name, tokstart) ;
4141 : : tok := tokstart ;
4142 : : init := RequestSym (tok, name) ;
4143 : : WHILE IsDefImp (init) OR IsModule (init) DO
4144 : : Expect (periodtok, stopset0, stopset1, stopset2 + SetOfStop2{identtok}) ;
4145 : : StartScope (init) ;
4146 : : Ident (stopset0, stopset1, stopset2) ;
4147 : : PopTtok (name, tok) ;
4148 : : ip1 := RequestSym (tok, name) ;
4149 : : PutIncluded(ip1) ;
4150 : : EndScope ;
4151 : : CheckCanBeImported(init, ip1) ;
4152 : : init := ip1
4153 : : END ;
4154 : : IF tok#tokstart
4155 : : THEN
4156 : : tok := MakeVirtualTok (tokstart, tokstart, tok)
4157 : : END ;
4158 : : IF IsProcedure(init) OR IsProcType(init)
4159 : : THEN
4160 : : PushTtok(init, tok)
4161 : : ELSE
4162 : : PushTFtok(init, GetType(init), tok) ;
4163 : : END
4164 : : ELSE %
4165 : : { '.' Ident }
4166 : : % END %
4167 : :
4168 : :
4169 : : first symbols:identtok
4170 : :
4171 : : cannot reachend
4172 : : */
4173 : :
4174 : 5099479 : static void Qualident (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4175 : : {
4176 : 5099479 : NameKey_Name name;
4177 : 5099479 : unsigned int init;
4178 : 5099479 : unsigned int ip1;
4179 : 5099479 : unsigned int tokstart;
4180 : 5099479 : unsigned int tok;
4181 : :
4182 : 5099479 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
4183 : 5099479 : if (M2Quads_IsAutoPushOn ())
4184 : : {
4185 : 5099479 : M2Quads_PopTtok (&name, &tokstart);
4186 : 5099479 : tok = tokstart;
4187 : 5099479 : init = SymbolTable_RequestSym (tok, name);
4188 : 10236638 : while ((SymbolTable_IsDefImp (init)) || (SymbolTable_IsModule (init)))
4189 : : {
4190 : 37680 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4191 : 37680 : SymbolTable_StartScope (init);
4192 : 37680 : Ident (stopset0, stopset1, stopset2);
4193 : 37680 : M2Quads_PopTtok (&name, &tok);
4194 : 37680 : ip1 = SymbolTable_RequestSym (tok, name);
4195 : 37680 : SymbolTable_PutIncluded (ip1);
4196 : 37680 : SymbolTable_EndScope ();
4197 : 37680 : P3SymBuild_CheckCanBeImported (init, ip1);
4198 : 37680 : init = ip1;
4199 : : }
4200 : 5099479 : if (tok != tokstart)
4201 : : {
4202 : 37668 : tok = M2LexBuf_MakeVirtualTok (tokstart, tokstart, tok);
4203 : : }
4204 : 5099479 : if ((SymbolTable_IsProcedure (init)) || (SymbolTable_IsProcType (init)))
4205 : : {
4206 : 265678 : M2Quads_PushTtok (init, tok);
4207 : : }
4208 : : else
4209 : : {
4210 : 4833801 : M2Quads_PushTFtok (init, SymbolTable_GetType (init), tok);
4211 : : }
4212 : : }
4213 : : else
4214 : : {
4215 : 0 : while (M2LexBuf_currenttoken == M2Reserved_periodtok)
4216 : : {
4217 : 0 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4218 : 0 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
4219 : : }
4220 : : /* while */
4221 : : }
4222 : 5099479 : }
4223 : :
4224 : :
4225 : : /*
4226 : : QualidentCheck :=
4227 : : % PushAutoOn %
4228 : : Qualident
4229 : : % PopAuto %
4230 : :
4231 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
4232 : :
4233 : : % IF NOT IsAutoPushOn ()
4234 : : THEN
4235 : : PopNothing
4236 : : END %
4237 : :
4238 : :
4239 : : first symbols:identtok
4240 : :
4241 : : cannot reachend
4242 : : */
4243 : :
4244 : 4685722 : static void QualidentCheck (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4245 : : {
4246 : 4685722 : M2Quads_PushAutoOn ();
4247 : 4685722 : Qualident (stopset0, stopset1, stopset2);
4248 : 4685722 : M2Quads_PopAuto ();
4249 : 4685722 : M2StateCheck_CheckQualident (M2Quads_OperandTok (1), BlockState, M2Quads_OperandT (1));
4250 : 4685698 : if (! (M2Quads_IsAutoPushOn ()))
4251 : : {
4252 : 4513782 : M2Quads_PopNothing ();
4253 : : }
4254 : 4685698 : }
4255 : :
4256 : :
4257 : : /*
4258 : : ConstantDeclaration :=
4259 : : % VAR tokno: CARDINAL ; %
4260 : :
4261 : : % InclConst (BlockState) %
4262 : :
4263 : : % PushAutoOn %
4264 : : ( Ident '='
4265 : : % tokno := GetTokenNo () -1 %
4266 : :
4267 : : % BuildConst %
4268 : : ConstExpression )
4269 : : % BuildAssignConstant (tokno) %
4270 : :
4271 : : % PopAuto %
4272 : :
4273 : : % ExclConst (BlockState) %
4274 : :
4275 : :
4276 : : first symbols:identtok
4277 : :
4278 : : cannot reachend
4279 : : */
4280 : :
4281 : 183099 : static void ConstantDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4282 : : {
4283 : 183099 : unsigned int tokno;
4284 : :
4285 : 183099 : M2StateCheck_InclConst (BlockState);
4286 : 183099 : M2Quads_PushAutoOn ();
4287 : 183099 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
4288 : 183099 : Expect (M2Reserved_equaltok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4289 : 183099 : tokno = (M2LexBuf_GetTokenNo ())-1;
4290 : 183099 : P3SymBuild_BuildConst ();
4291 : 183099 : ConstExpression (stopset0, stopset1, stopset2);
4292 : 183099 : M2Quads_BuildAssignConstant (tokno);
4293 : 183099 : M2Quads_PopAuto ();
4294 : 183099 : M2StateCheck_ExclConst (BlockState);
4295 : 183099 : }
4296 : :
4297 : :
4298 : : /*
4299 : : ConstExpression :=
4300 : : % VAR tokpos: CARDINAL ; %
4301 : :
4302 : : % PushInConstExpression %
4303 : :
4304 : : % PushAutoOn %
4305 : : SimpleConstExpr [ Relation
4306 : : % tokpos := GetTokenNo ()-1 %
4307 : : SimpleConstExpr
4308 : :
4309 : : % BuildRelOp (tokpos) %
4310 : : ]
4311 : : % PopAuto %
4312 : :
4313 : : % PopInConstExpression %
4314 : :
4315 : :
4316 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
4317 : :
4318 : : cannot reachend
4319 : : */
4320 : :
4321 : 241270 : static void ConstExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4322 : : {
4323 : 241270 : unsigned int tokpos;
4324 : :
4325 : 241270 : M2Quads_PushInConstExpression ();
4326 : 241270 : M2Quads_PushAutoOn ();
4327 : 241270 : SimpleConstExpr (stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
4328 : 241270 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_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))
4329 : : {
4330 : 42 : Relation (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4331 : 42 : tokpos = (M2LexBuf_GetTokenNo ())-1;
4332 : 42 : SimpleConstExpr (stopset0, stopset1, stopset2);
4333 : 42 : M2Quads_BuildRelOp (tokpos);
4334 : : }
4335 : 241270 : M2Quads_PopAuto ();
4336 : 241270 : M2Quads_PopInConstExpression ();
4337 : 241270 : }
4338 : :
4339 : :
4340 : : /*
4341 : : Relation := '='
4342 : : % PushTtok(EqualTok, GetTokenNo() -1) ;
4343 : : RecordOp %
4344 : : | '#'
4345 : : % PushTtok(HashTok, GetTokenNo() -1) ;
4346 : : RecordOp %
4347 : : | '<>'
4348 : : % PushTtok(LessGreaterTok, GetTokenNo() -1) ;
4349 : : RecordOp %
4350 : : | '<'
4351 : : % PushTtok(LessTok, GetTokenNo() -1) %
4352 : : | '<='
4353 : : % PushTtok(LessEqualTok, GetTokenNo() -1) %
4354 : : | '>'
4355 : : % PushTtok(GreaterTok, GetTokenNo() -1) %
4356 : : | '>='
4357 : : % PushTtok(GreaterEqualTok, GetTokenNo() -1) %
4358 : : | 'IN'
4359 : : % PushTtok(InTok, GetTokenNo() -1) %
4360 : :
4361 : :
4362 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
4363 : :
4364 : : cannot reachend
4365 : : */
4366 : :
4367 : 46899 : static void Relation (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4368 : : {
4369 : 46899 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
4370 : : {
4371 : 19341 : Expect (M2Reserved_equaltok, stopset0, stopset1, stopset2);
4372 : 19341 : M2Quads_PushTtok (M2Reserved_EqualTok, (M2LexBuf_GetTokenNo ())-1);
4373 : 19341 : M2Quads_RecordOp ();
4374 : : }
4375 : : else if (M2LexBuf_currenttoken == M2Reserved_hashtok)
4376 : : {
4377 : : /* avoid dangling else. */
4378 : 9920 : Expect (M2Reserved_hashtok, stopset0, stopset1, stopset2);
4379 : 9920 : M2Quads_PushTtok (M2Reserved_HashTok, (M2LexBuf_GetTokenNo ())-1);
4380 : 9920 : M2Quads_RecordOp ();
4381 : : }
4382 : : else if (M2LexBuf_currenttoken == M2Reserved_lessgreatertok)
4383 : : {
4384 : : /* avoid dangling else. */
4385 : 84 : Expect (M2Reserved_lessgreatertok, stopset0, stopset1, stopset2);
4386 : 84 : M2Quads_PushTtok (M2Reserved_LessGreaterTok, (M2LexBuf_GetTokenNo ())-1);
4387 : 84 : M2Quads_RecordOp ();
4388 : : }
4389 : : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
4390 : : {
4391 : : /* avoid dangling else. */
4392 : 5432 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2);
4393 : 5432 : M2Quads_PushTtok (M2Reserved_LessTok, (M2LexBuf_GetTokenNo ())-1);
4394 : : }
4395 : : else if (M2LexBuf_currenttoken == M2Reserved_lessequaltok)
4396 : : {
4397 : : /* avoid dangling else. */
4398 : 3762 : Expect (M2Reserved_lessequaltok, stopset0, stopset1, stopset2);
4399 : 3762 : M2Quads_PushTtok (M2Reserved_LessEqualTok, (M2LexBuf_GetTokenNo ())-1);
4400 : : }
4401 : : else if (M2LexBuf_currenttoken == M2Reserved_greatertok)
4402 : : {
4403 : : /* avoid dangling else. */
4404 : 4854 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
4405 : 4854 : M2Quads_PushTtok (M2Reserved_GreaterTok, (M2LexBuf_GetTokenNo ())-1);
4406 : : }
4407 : : else if (M2LexBuf_currenttoken == M2Reserved_greaterequaltok)
4408 : : {
4409 : : /* avoid dangling else. */
4410 : 2046 : Expect (M2Reserved_greaterequaltok, stopset0, stopset1, stopset2);
4411 : 2046 : M2Quads_PushTtok (M2Reserved_GreaterEqualTok, (M2LexBuf_GetTokenNo ())-1);
4412 : : }
4413 : : else if (M2LexBuf_currenttoken == M2Reserved_intok)
4414 : : {
4415 : : /* avoid dangling else. */
4416 : 1460 : Expect (M2Reserved_intok, stopset0, stopset1, stopset2);
4417 : 1460 : M2Quads_PushTtok (M2Reserved_InTok, (M2LexBuf_GetTokenNo ())-1);
4418 : : }
4419 : : else
4420 : : {
4421 : : /* avoid dangling else. */
4422 : 0 : ErrorArray ((const char *) "expecting one of: {%KIN} {%K>=} {%K>} {%K<=} {%K<} {%K<>} {%K#} {%K=}", 69);
4423 : : }
4424 : 46899 : }
4425 : :
4426 : :
4427 : : /*
4428 : : SimpleConstExpr := UnaryOrConstTerm { AddOperator
4429 : : ConstTerm
4430 : :
4431 : : % BuildBinaryOp %
4432 : : }
4433 : :
4434 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4435 : :
4436 : : cannot reachend
4437 : : */
4438 : :
4439 : 241312 : static void SimpleConstExpr (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4440 : : {
4441 : 241312 : UnaryOrConstTerm (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
4442 : 484376 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
4443 : : {
4444 : 1752 : AddOperator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4445 : 1752 : ConstTerm (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
4446 : 1752 : M2Quads_BuildBinaryOp ();
4447 : : }
4448 : : /* while */
4449 : 241312 : }
4450 : :
4451 : :
4452 : : /*
4453 : : UnaryOrConstTerm := '+'
4454 : : % PushTtok(PlusTok, GetTokenNo() -1) %
4455 : : ConstTerm
4456 : : % BuildUnaryOp %
4457 : : | '-'
4458 : : % PushTtok(MinusTok, GetTokenNo() -1) %
4459 : : ConstTerm
4460 : : % BuildUnaryOp %
4461 : : | ConstTerm
4462 : :
4463 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
4464 : :
4465 : : cannot reachend
4466 : : */
4467 : :
4468 : 241312 : static void UnaryOrConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4469 : : {
4470 : 241312 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
4471 : : {
4472 : 0 : Expect (M2Reserved_plustok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4473 : 0 : M2Quads_PushTtok (M2Reserved_PlusTok, (M2LexBuf_GetTokenNo ())-1);
4474 : 0 : ConstTerm (stopset0, stopset1, stopset2);
4475 : 0 : M2Quads_BuildUnaryOp ();
4476 : : }
4477 : 241312 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
4478 : : {
4479 : : /* avoid dangling else. */
4480 : 14897 : Expect (M2Reserved_minustok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4481 : 14897 : M2Quads_PushTtok (M2Reserved_MinusTok, (M2LexBuf_GetTokenNo ())-1);
4482 : 14897 : ConstTerm (stopset0, stopset1, stopset2);
4483 : 14897 : M2Quads_BuildUnaryOp ();
4484 : : }
4485 : 226415 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
4486 : : {
4487 : : /* avoid dangling else. */
4488 : 226415 : ConstTerm (stopset0, stopset1, stopset2);
4489 : : }
4490 : : else
4491 : : {
4492 : : /* avoid dangling else. */
4493 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kinteger number} {%Kreal number} {%K__ATTRIBUTE__} {%Kidentifier} {%K%{} {%Kstring} {%K-} {%K+}", 129);
4494 : : }
4495 : 241312 : }
4496 : :
4497 : :
4498 : : /*
4499 : : AddOperator := '+'
4500 : : % PushTtok(PlusTok, GetTokenNo() -1) ;
4501 : : RecordOp %
4502 : : | '-'
4503 : : % PushTtok(MinusTok, GetTokenNo() -1) ;
4504 : : RecordOp %
4505 : : | 'OR'
4506 : : % PushTtok(OrTok, GetTokenNo() -1) ;
4507 : : RecordOp %
4508 : :
4509 : :
4510 : : first symbols:ortok, minustok, plustok
4511 : :
4512 : : cannot reachend
4513 : : */
4514 : :
4515 : 19046 : static void AddOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4516 : : {
4517 : 19046 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
4518 : : {
4519 : 9120 : Expect (M2Reserved_plustok, stopset0, stopset1, stopset2);
4520 : 9120 : M2Quads_PushTtok (M2Reserved_PlusTok, (M2LexBuf_GetTokenNo ())-1);
4521 : 9120 : M2Quads_RecordOp ();
4522 : : }
4523 : 9926 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
4524 : : {
4525 : : /* avoid dangling else. */
4526 : 6908 : Expect (M2Reserved_minustok, stopset0, stopset1, stopset2);
4527 : 6908 : M2Quads_PushTtok (M2Reserved_MinusTok, (M2LexBuf_GetTokenNo ())-1);
4528 : 6908 : M2Quads_RecordOp ();
4529 : : }
4530 : 3018 : else if (M2LexBuf_currenttoken == M2Reserved_ortok)
4531 : : {
4532 : : /* avoid dangling else. */
4533 : 3018 : Expect (M2Reserved_ortok, stopset0, stopset1, stopset2);
4534 : 3018 : M2Quads_PushTtok (M2Reserved_OrTok, (M2LexBuf_GetTokenNo ())-1);
4535 : 3018 : M2Quads_RecordOp ();
4536 : : }
4537 : : else
4538 : : {
4539 : : /* avoid dangling else. */
4540 : 0 : ErrorArray ((const char *) "expecting one of: {%KOR} {%K-} {%K+}", 36);
4541 : : }
4542 : 19046 : }
4543 : :
4544 : :
4545 : : /*
4546 : : ConstTerm := ConstFactor { MulOperator ConstFactor
4547 : :
4548 : : % BuildBinaryOp %
4549 : : }
4550 : :
4551 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok
4552 : :
4553 : : cannot reachend
4554 : : */
4555 : :
4556 : 243064 : static void ConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4557 : : {
4558 : 243064 : ConstFactor (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
4559 : 491169 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))))) != 0))) || (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
4560 : : {
4561 : 5041 : MulOperator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4562 : 5041 : ConstFactor (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
4563 : 5041 : M2Quads_BuildBinaryOp ();
4564 : : }
4565 : : /* while */
4566 : 243064 : }
4567 : :
4568 : :
4569 : : /*
4570 : : MulOperator := '*'
4571 : : % PushTtok(TimesTok, GetTokenNo() -1) ;
4572 : : RecordOp %
4573 : : | '/'
4574 : : % PushTtok(DivideTok, GetTokenNo() -1) ;
4575 : : RecordOp %
4576 : : | 'DIV'
4577 : : % PushTtok(DivTok, GetTokenNo() -1) ;
4578 : : RecordOp %
4579 : : | 'MOD'
4580 : : % PushTtok(ModTok, GetTokenNo() -1) ;
4581 : : RecordOp %
4582 : : | 'REM'
4583 : : % PushTtok(RemTok, GetTokenNo() -1) ;
4584 : : RecordOp %
4585 : : | 'AND'
4586 : : % PushTtok(AndTok, GetTokenNo() -1) ;
4587 : : RecordOp %
4588 : : | '&'
4589 : : % PushTtok(AmbersandTok, GetTokenNo() -1) ;
4590 : : RecordOp %
4591 : :
4592 : :
4593 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
4594 : :
4595 : : cannot reachend
4596 : : */
4597 : :
4598 : 19529 : static void MulOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4599 : : {
4600 : 19529 : if (M2LexBuf_currenttoken == M2Reserved_timestok)
4601 : : {
4602 : 3788 : Expect (M2Reserved_timestok, stopset0, stopset1, stopset2);
4603 : 3788 : M2Quads_PushTtok (M2Reserved_TimesTok, (M2LexBuf_GetTokenNo ())-1);
4604 : 3788 : M2Quads_RecordOp ();
4605 : : }
4606 : : else if (M2LexBuf_currenttoken == M2Reserved_dividetok)
4607 : : {
4608 : : /* avoid dangling else. */
4609 : 428 : Expect (M2Reserved_dividetok, stopset0, stopset1, stopset2);
4610 : 428 : M2Quads_PushTtok (M2Reserved_DivideTok, (M2LexBuf_GetTokenNo ())-1);
4611 : 428 : M2Quads_RecordOp ();
4612 : : }
4613 : : else if (M2LexBuf_currenttoken == M2Reserved_divtok)
4614 : : {
4615 : : /* avoid dangling else. */
4616 : 5959 : Expect (M2Reserved_divtok, stopset0, stopset1, stopset2);
4617 : 5959 : M2Quads_PushTtok (M2Reserved_DivTok, (M2LexBuf_GetTokenNo ())-1);
4618 : 5959 : M2Quads_RecordOp ();
4619 : : }
4620 : : else if (M2LexBuf_currenttoken == M2Reserved_modtok)
4621 : : {
4622 : : /* avoid dangling else. */
4623 : 2010 : Expect (M2Reserved_modtok, stopset0, stopset1, stopset2);
4624 : 2010 : M2Quads_PushTtok (M2Reserved_ModTok, (M2LexBuf_GetTokenNo ())-1);
4625 : 2010 : M2Quads_RecordOp ();
4626 : : }
4627 : : else if (M2LexBuf_currenttoken == M2Reserved_remtok)
4628 : : {
4629 : : /* avoid dangling else. */
4630 : 96 : Expect (M2Reserved_remtok, stopset0, stopset1, stopset2);
4631 : 96 : M2Quads_PushTtok (M2Reserved_RemTok, (M2LexBuf_GetTokenNo ())-1);
4632 : 96 : M2Quads_RecordOp ();
4633 : : }
4634 : : else if (M2LexBuf_currenttoken == M2Reserved_andtok)
4635 : : {
4636 : : /* avoid dangling else. */
4637 : 7248 : Expect (M2Reserved_andtok, stopset0, stopset1, stopset2);
4638 : 7248 : M2Quads_PushTtok (M2Reserved_AndTok, (M2LexBuf_GetTokenNo ())-1);
4639 : 7248 : M2Quads_RecordOp ();
4640 : : }
4641 : : else if (M2LexBuf_currenttoken == M2Reserved_ambersandtok)
4642 : : {
4643 : : /* avoid dangling else. */
4644 : 0 : Expect (M2Reserved_ambersandtok, stopset0, stopset1, stopset2);
4645 : 0 : M2Quads_PushTtok (M2Reserved_AmbersandTok, (M2LexBuf_GetTokenNo ())-1);
4646 : 0 : M2Quads_RecordOp ();
4647 : : }
4648 : : else
4649 : : {
4650 : : /* avoid dangling else. */
4651 : 0 : ErrorArray ((const char *) "expecting one of: {%K&} {%KAND} {%KREM} {%KMOD} {%KDIV} {%K/} {%K*}", 67);
4652 : : }
4653 : 19529 : }
4654 : :
4655 : :
4656 : : /*
4657 : : ConstFactor :=
4658 : : % VAR tokpos: CARDINAL ; %
4659 : : Number | ConstString |
4660 : : ConstSetOrQualidentOrFunction |
4661 : : '(' ConstExpression ')' |
4662 : : 'NOT'
4663 : : % tokpos := GetTokenNo() -1 %
4664 : : ConstFactor
4665 : : % BuildNot (tokpos) %
4666 : : | ConstAttribute
4667 : :
4668 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok
4669 : :
4670 : : cannot reachend
4671 : : */
4672 : :
4673 : 248105 : static void ConstFactor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4674 : : {
4675 : 248105 : unsigned int tokpos;
4676 : :
4677 : 248105 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
4678 : : {
4679 : 170888 : Number (stopset0, stopset1, stopset2);
4680 : : }
4681 : 77217 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
4682 : : {
4683 : : /* avoid dangling else. */
4684 : 6576 : ConstString (stopset0, stopset1, stopset2);
4685 : : }
4686 : : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
4687 : : {
4688 : : /* avoid dangling else. */
4689 : 42793 : ConstSetOrQualidentOrFunction (stopset0, stopset1, stopset2);
4690 : : }
4691 : : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4692 : : {
4693 : : /* avoid dangling else. */
4694 : 78 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4695 : 78 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4696 : 78 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4697 : : }
4698 : : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
4699 : : {
4700 : : /* avoid dangling else. */
4701 : 0 : Expect (M2Reserved_nottok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4702 : 0 : tokpos = (M2LexBuf_GetTokenNo ())-1;
4703 : 0 : ConstFactor (stopset0, stopset1, stopset2);
4704 : 0 : M2Quads_BuildNot (tokpos);
4705 : : }
4706 : : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
4707 : : {
4708 : : /* avoid dangling else. */
4709 : 27770 : ConstAttribute (stopset0, stopset1, stopset2);
4710 : : }
4711 : : else
4712 : : {
4713 : : /* avoid dangling else. */
4714 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%KNOT} {%K(} {%Kidentifier} {%K%{} {%Kstring} {%Kinteger number} {%Kreal number}", 117);
4715 : : }
4716 : 248105 : }
4717 : :
4718 : :
4719 : : /*
4720 : : ConstString := string
4721 : :
4722 : : first symbols:stringtok
4723 : :
4724 : : cannot reachend
4725 : : */
4726 : :
4727 : 6576 : static void ConstString (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4728 : : {
4729 : 6576 : string (stopset0, stopset1, stopset2);
4730 : 6576 : }
4731 : :
4732 : :
4733 : : /*
4734 : : ComponentElement := ConstExpression ( '..' ConstExpression
4735 : :
4736 : : % PushTtok(PeriodPeriodTok, GetTokenNo() -1) %
4737 : : |
4738 : :
4739 : : % PushT(NulTok) %
4740 : : )
4741 : :
4742 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4743 : :
4744 : : cannot reachend
4745 : : */
4746 : :
4747 : 24274 : static void ComponentElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4748 : : {
4749 : 24274 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
4750 : 24274 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
4751 : : {
4752 : 242 : Expect (M2Reserved_periodperiodtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4753 : 242 : ConstExpression (stopset0, stopset1, stopset2);
4754 : 242 : M2Quads_PushTtok (M2Reserved_PeriodPeriodTok, (M2LexBuf_GetTokenNo ())-1);
4755 : : }
4756 : : else
4757 : : {
4758 : 24032 : M2Quads_PushT (M2Reserved_NulTok);
4759 : : }
4760 : 24274 : }
4761 : :
4762 : :
4763 : : /*
4764 : : ComponentValue :=
4765 : : % VAR tokpos: CARDINAL ; %
4766 : : (
4767 : : % tokpos := GetTokenNo () %
4768 : : ComponentElement (
4769 : : % tokpos := GetTokenNo () %
4770 : : 'BY' ConstExpression
4771 : :
4772 : : % PushTtok (ByTok, tokpos) %
4773 : : |
4774 : :
4775 : : % PushTtok (NulTok, tokpos) %
4776 : : ) )
4777 : :
4778 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
4779 : :
4780 : : cannot reachend
4781 : : */
4782 : :
4783 : 24274 : static void ComponentValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4784 : : {
4785 : 24274 : unsigned int tokpos;
4786 : :
4787 : 24274 : tokpos = M2LexBuf_GetTokenNo ();
4788 : 24274 : ComponentElement (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok))), stopset2);
4789 : 24274 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
4790 : : {
4791 : 30 : Expect (M2Reserved_bytok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4792 : 30 : tokpos = M2LexBuf_GetTokenNo ();
4793 : 30 : ConstExpression (stopset0, stopset1, stopset2);
4794 : 30 : M2Quads_PushTtok (M2Reserved_ByTok, tokpos);
4795 : : }
4796 : : else
4797 : : {
4798 : 24244 : M2Quads_PushTtok (M2Reserved_NulTok, tokpos);
4799 : : }
4800 : 24274 : }
4801 : :
4802 : :
4803 : : /*
4804 : : ArraySetRecordValue := ComponentValue
4805 : : % BuildComponentValue %
4806 : : { ','
4807 : : % NextConstructorField %
4808 : : ComponentValue
4809 : : % BuildComponentValue %
4810 : : }
4811 : :
4812 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4813 : :
4814 : : cannot reachend
4815 : : */
4816 : :
4817 : 8920 : static void ArraySetRecordValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4818 : : {
4819 : 8920 : ComponentValue (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4820 : 8920 : M2Quads_BuildComponentValue ();
4821 : 33194 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
4822 : : {
4823 : 15354 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
4824 : 15354 : M2Quads_NextConstructorField ();
4825 : 15354 : ComponentValue (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
4826 : 15354 : M2Quads_BuildComponentValue ();
4827 : : }
4828 : : /* while */
4829 : 8920 : }
4830 : :
4831 : :
4832 : : /*
4833 : : Constructor :=
4834 : : % VAR tokpos: CARDINAL ; %
4835 : :
4836 : : % DisplayStack %
4837 : :
4838 : : % InclConstructor (BlockState) %
4839 : :
4840 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
4841 : : '{'
4842 : : % tokpos := GetTokenNo () -1 %
4843 : :
4844 : : % BuildConstructorStart (tokpos) %
4845 : : [ ArraySetRecordValue ]
4846 : : % BuildConstructorEnd (tokpos, GetTokenNo()) %
4847 : : '}'
4848 : : % ExclConstructor (BlockState) %
4849 : :
4850 : :
4851 : : first symbols:lcbratok
4852 : :
4853 : : cannot reachend
4854 : : */
4855 : :
4856 : 10024 : static void Constructor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4857 : : {
4858 : 10024 : unsigned int tokpos;
4859 : :
4860 : 10024 : M2Quads_DisplayStack ();
4861 : 10024 : M2StateCheck_InclConstructor (BlockState);
4862 : 10024 : M2StateCheck_CheckQualident (M2Quads_OperandTok (1), BlockState, M2Quads_OperandT (1));
4863 : 10024 : Expect (M2Reserved_lcbratok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
4864 : 10024 : tokpos = (M2LexBuf_GetTokenNo ())-1;
4865 : 10024 : M2Quads_BuildConstructorStart (tokpos);
4866 : 10024 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
4867 : : {
4868 : 8920 : ArraySetRecordValue (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rcbratok-M2Reserved_eoftok))), stopset1, stopset2);
4869 : : }
4870 : 10024 : M2Quads_BuildConstructorEnd (tokpos, M2LexBuf_GetTokenNo ());
4871 : 10024 : Expect (M2Reserved_rcbratok, stopset0, stopset1, stopset2);
4872 : 10024 : M2StateCheck_ExclConstructor (BlockState);
4873 : 10024 : }
4874 : :
4875 : :
4876 : : /*
4877 : : ConstSetOrQualidentOrFunction :=
4878 : : % VAR tokpos: CARDINAL ; %
4879 : :
4880 : : % tokpos := GetTokenNo () %
4881 : : ( Qualident [ Constructor |
4882 : : ConstActualParameters
4883 : :
4884 : : % BuildConstFunctionCall %
4885 : : ] |
4886 : :
4887 : : % BuildTypeForConstructor (tokpos) %
4888 : : Constructor )
4889 : :
4890 : : first symbols:lcbratok, identtok
4891 : :
4892 : : cannot reachend
4893 : : */
4894 : :
4895 : 42793 : static void ConstSetOrQualidentOrFunction (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4896 : : {
4897 : 42793 : unsigned int tokpos;
4898 : :
4899 : 42793 : tokpos = M2LexBuf_GetTokenNo ();
4900 : 42793 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
4901 : : {
4902 : : /* avoid dangling else. */
4903 : 42241 : Qualident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4904 : 42241 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0)))
4905 : : {
4906 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
4907 : : /* seen optional [ | ] expression */
4908 : 7128 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
4909 : : {
4910 : 5506 : Constructor (stopset0, stopset1, stopset2);
4911 : : }
4912 : 1622 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
4913 : : {
4914 : : /* avoid dangling else. */
4915 : 1622 : ConstActualParameters (stopset0, stopset1, stopset2);
4916 : 1622 : M2Quads_BuildConstFunctionCall ();
4917 : : }
4918 : : else
4919 : : {
4920 : : /* avoid dangling else. */
4921 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K%{}", 30);
4922 : : }
4923 : : }
4924 : : /* end of optional [ | ] expression */
4925 : : }
4926 : : else
4927 : : {
4928 : 552 : M2Quads_BuildTypeForConstructor (tokpos);
4929 : 552 : Constructor (stopset0, stopset1, stopset2);
4930 : : }
4931 : 42793 : }
4932 : :
4933 : :
4934 : : /*
4935 : : ConstActualParameters :=
4936 : : % PushState (BlockState) %
4937 : :
4938 : : % InclConstFunc (BlockState) %
4939 : :
4940 : : % CheckQualident (OperandTok (1), BlockState, OperandT (1)) %
4941 : :
4942 : : % PushInConstParameters %
4943 : : ActualParameters
4944 : : % PopInConstParameters %
4945 : :
4946 : : % PopState (BlockState) %
4947 : :
4948 : :
4949 : : first symbols:lparatok
4950 : :
4951 : : cannot reachend
4952 : : */
4953 : :
4954 : 1622 : static void ConstActualParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4955 : : {
4956 : 1622 : M2StateCheck_PushState (&BlockState);
4957 : 1622 : M2StateCheck_InclConstFunc (BlockState);
4958 : 1622 : M2StateCheck_CheckQualident (M2Quads_OperandTok (1), BlockState, M2Quads_OperandT (1));
4959 : 1622 : M2Quads_PushInConstParameters ();
4960 : 1622 : ActualParameters (stopset0, stopset1, stopset2);
4961 : 1622 : M2Quads_PopInConstParameters ();
4962 : 1622 : M2StateCheck_PopState (&BlockState);
4963 : 1622 : }
4964 : :
4965 : :
4966 : : /*
4967 : : ConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
4968 : : '(' '('
4969 : : % PushAutoOn %
4970 : : ConstAttributeExpression
4971 : : % PopAuto %
4972 : : ')' ')'
4973 : :
4974 : : first symbols:attributetok
4975 : :
4976 : : cannot reachend
4977 : : */
4978 : :
4979 : 27770 : static void ConstAttribute (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
4980 : : {
4981 : 27770 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
4982 : 27770 : Expect (M2Reserved_builtintok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4983 : 27770 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
4984 : 27770 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lesstok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
4985 : 27770 : M2Quads_PushAutoOn ();
4986 : 27770 : ConstAttributeExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4987 : 27770 : M2Quads_PopAuto ();
4988 : 27770 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
4989 : 27770 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
4990 : 27770 : }
4991 : :
4992 : :
4993 : : /*
4994 : : ConstAttributeExpression := Ident
4995 : : % BuildBuiltinConst %
4996 : : | '<' Qualident ','
4997 : : Ident
4998 : : % BuildBuiltinTypeInfo %
4999 : : '>'
5000 : :
5001 : : first symbols:lesstok, identtok
5002 : :
5003 : : cannot reachend
5004 : : */
5005 : :
5006 : 27770 : static void ConstAttributeExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5007 : : {
5008 : 27770 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5009 : : {
5010 : 27410 : Ident (stopset0, stopset1, stopset2);
5011 : 27410 : M2Quads_BuildBuiltinConst ();
5012 : : }
5013 : 360 : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
5014 : : {
5015 : : /* avoid dangling else. */
5016 : 360 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5017 : 360 : Qualident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5018 : 360 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5019 : 360 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_greatertok-M2Reserved_eoftok))), stopset1, stopset2);
5020 : 360 : M2Quads_BuildBuiltinTypeInfo ();
5021 : 360 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
5022 : : }
5023 : : else
5024 : : {
5025 : : /* avoid dangling else. */
5026 : 0 : ErrorArray ((const char *) "expecting one of: {%K<} {%Kidentifier}", 38);
5027 : : }
5028 : 27770 : }
5029 : :
5030 : :
5031 : : /*
5032 : : ByteAlignment :=
5033 : : % VAR tokpos: CARDINAL ; %
5034 : : ''
5035 : : % PopAuto %
5036 : :
5037 : :
5038 : : first symbols:ldirectivetok
5039 : :
5040 : : cannot reachend
5041 : : */
5042 : :
5043 : 72 : static void ByteAlignment (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5044 : : {
5045 : 72 : unsigned int tokpos;
5046 : :
5047 : 72 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5048 : 72 : M2Quads_PushAutoOn ();
5049 : 72 : tokpos = M2LexBuf_GetTokenNo ();
5050 : 72 : AttributeExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5051 : 72 : M2Quads_BuildAlignment (tokpos);
5052 : 72 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
5053 : 72 : M2Quads_PopAuto ();
5054 : 72 : }
5055 : :
5056 : :
5057 : : /*
5058 : : Alignment := [ ByteAlignment ]
5059 : :
5060 : : first symbols:ldirectivetok
5061 : :
5062 : : reachend
5063 : : */
5064 : :
5065 : 147224 : static void Alignment (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5066 : : {
5067 : 0 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
5068 : : {
5069 : 72 : ByteAlignment (stopset0, stopset1, stopset2);
5070 : : }
5071 : 0 : }
5072 : :
5073 : :
5074 : : /*
5075 : : TypeDeclaration :=
5076 : : % InclType (BlockState) %
5077 : : Ident '=' Type Alignment
5078 : : % ExclType (BlockState) %
5079 : :
5080 : :
5081 : : first symbols:identtok
5082 : :
5083 : : cannot reachend
5084 : : */
5085 : :
5086 : 7050 : static void TypeDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5087 : : {
5088 : 7050 : M2StateCheck_InclType (BlockState);
5089 : 7050 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
5090 : 7050 : Expect (M2Reserved_equaltok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5091 : 7050 : Type (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5092 : 7044 : Alignment (stopset0, stopset1, stopset2);
5093 : 7044 : M2StateCheck_ExclType (BlockState);
5094 : 7044 : }
5095 : :
5096 : :
5097 : : /*
5098 : : Type :=
5099 : : % PushAutoOff %
5100 : : ( SimpleType | ArrayType | RecordType |
5101 : : SetType | PointerType |
5102 : : ProcedureType )
5103 : : % PopAuto %
5104 : :
5105 : :
5106 : : first symbols:lparatok, lsbratok, proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok
5107 : :
5108 : : cannot reachend
5109 : : */
5110 : :
5111 : 256470 : static void Type (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5112 : : {
5113 : 256470 : M2Quads_PushAutoOff ();
5114 : 256470 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_identtok))
5115 : : {
5116 : 173088 : SimpleType (stopset0, stopset1, stopset2);
5117 : : }
5118 : 83382 : else if (M2LexBuf_currenttoken == M2Reserved_arraytok)
5119 : : {
5120 : : /* avoid dangling else. */
5121 : 5748 : ArrayType (stopset0, stopset1, stopset2);
5122 : : }
5123 : 77634 : else if (M2LexBuf_currenttoken == M2Reserved_recordtok)
5124 : : {
5125 : : /* avoid dangling else. */
5126 : 14164 : RecordType (stopset0, stopset1, stopset2);
5127 : : }
5128 : 63470 : else if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_packedsettok-M2Reserved_arraytok)) | (1 << (M2Reserved_oftok-M2Reserved_arraytok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_settok))
5129 : : {
5130 : : /* avoid dangling else. */
5131 : 1724 : SetType (stopset0, stopset1, stopset2);
5132 : : }
5133 : 61746 : else if (M2LexBuf_currenttoken == M2Reserved_pointertok)
5134 : : {
5135 : : /* avoid dangling else. */
5136 : 8730 : PointerType (stopset0, stopset1, stopset2);
5137 : : }
5138 : 53016 : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
5139 : : {
5140 : : /* avoid dangling else. */
5141 : 53016 : ProcedureType (stopset0, stopset1, stopset2);
5142 : : }
5143 : : else
5144 : : {
5145 : : /* avoid dangling else. */
5146 : 0 : ErrorArray ((const char *) "expecting one of: {%KPROCEDURE} {%KPOINTER} {%KSET} {%KPACKEDSET} {%KOF} {%KRECORD} {%KARRAY} {%Kidentifier} {%K(} {%K[}", 120);
5147 : : }
5148 : 256446 : M2Quads_PopAuto ();
5149 : 256446 : }
5150 : :
5151 : :
5152 : : /*
5153 : : SimpleType := QualidentCheck [ SubrangeType ] |
5154 : : Enumeration | SubrangeType
5155 : :
5156 : : first symbols:lsbratok, lparatok, identtok
5157 : :
5158 : : cannot reachend
5159 : : */
5160 : :
5161 : 180692 : static void SimpleType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5162 : : {
5163 : 180692 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5164 : : {
5165 : : /* avoid dangling else. */
5166 : 158812 : QualidentCheck (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
5167 : 158788 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
5168 : : {
5169 : 18 : SubrangeType (stopset0, stopset1, stopset2);
5170 : : }
5171 : : }
5172 : 21880 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5173 : : {
5174 : : /* avoid dangling else. */
5175 : 14148 : Enumeration (stopset0, stopset1, stopset2);
5176 : : }
5177 : 7732 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
5178 : : {
5179 : : /* avoid dangling else. */
5180 : 7732 : SubrangeType (stopset0, stopset1, stopset2);
5181 : : }
5182 : : else
5183 : : {
5184 : : /* avoid dangling else. */
5185 : 0 : ErrorArray ((const char *) "expecting one of: {%K[} {%K(} {%Kidentifier}", 44);
5186 : : }
5187 : 180668 : }
5188 : :
5189 : :
5190 : : /*
5191 : : Enumeration := '(' ( IdentList ) ')'
5192 : :
5193 : : first symbols:lparatok
5194 : :
5195 : : cannot reachend
5196 : : */
5197 : :
5198 : 14148 : static void Enumeration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5199 : : {
5200 : 14148 : Expect (M2Reserved_lparatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5201 : 14148 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5202 : 14148 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5203 : 14148 : }
5204 : :
5205 : :
5206 : : /*
5207 : : IdentList := Ident
5208 : : % VAR
5209 : : on: BOOLEAN ;
5210 : : n : CARDINAL ; %
5211 : :
5212 : : % on := IsAutoPushOn() ;
5213 : : IF on
5214 : : THEN
5215 : : n := 1
5216 : : END %
5217 : : { ',' Ident
5218 : : % IF on
5219 : : THEN
5220 : : INC(n)
5221 : : END %
5222 : : }
5223 : : % IF on
5224 : : THEN
5225 : : PushT(n)
5226 : : END %
5227 : :
5228 : :
5229 : : first symbols:identtok
5230 : :
5231 : : cannot reachend
5232 : : */
5233 : :
5234 : 3605468 : static void IdentList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5235 : : {
5236 : 3605468 : bool on;
5237 : 3605468 : unsigned int n;
5238 : :
5239 : 3605468 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5240 : 3605468 : on = M2Quads_IsAutoPushOn ();
5241 : 3605468 : if (on)
5242 : : {
5243 : 3605468 : n = 1;
5244 : : }
5245 : 6771509 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5246 : : {
5247 : 3166041 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5248 : 3166041 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5249 : 3166041 : if (on)
5250 : : {
5251 : 34992 : n += 1;
5252 : : }
5253 : : }
5254 : : /* while */
5255 : 3605468 : if (on)
5256 : : {
5257 : 80128 : M2Quads_PushT (n);
5258 : : }
5259 : 3605468 : }
5260 : :
5261 : :
5262 : : /*
5263 : : SubrangeType := '[' ConstExpression '..' ConstExpression
5264 : : ']'
5265 : : % BuildSubrange ; %
5266 : :
5267 : :
5268 : : first symbols:lsbratok
5269 : :
5270 : : cannot reachend
5271 : : */
5272 : :
5273 : 7750 : static void SubrangeType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5274 : : {
5275 : 7750 : Expect (M2Reserved_lsbratok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5276 : 7750 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
5277 : 7750 : Expect (M2Reserved_periodperiodtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5278 : 7750 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
5279 : 7750 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
5280 : 7750 : P3SymBuild_BuildSubrange ();
5281 : 7750 : }
5282 : :
5283 : :
5284 : : /*
5285 : : ArrayType := 'ARRAY' SimpleType { ',' SimpleType }
5286 : : 'OF' Type
5287 : :
5288 : : first symbols:arraytok
5289 : :
5290 : : cannot reachend
5291 : : */
5292 : :
5293 : 5748 : static void ArrayType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5294 : : {
5295 : 5748 : Expect (M2Reserved_arraytok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5296 : 5748 : SimpleType (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5297 : 11628 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5298 : : {
5299 : 132 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5300 : 132 : SimpleType (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5301 : : }
5302 : : /* while */
5303 : 5748 : Expect (M2Reserved_oftok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5304 : 5748 : Type (stopset0, stopset1, stopset2);
5305 : 5748 : }
5306 : :
5307 : :
5308 : : /*
5309 : : RecordType := 'RECORD' [ DefaultRecordAttributes ]
5310 : : FieldListSequence 'END'
5311 : :
5312 : : first symbols:recordtok
5313 : :
5314 : : cannot reachend
5315 : : */
5316 : :
5317 : 14164 : static void RecordType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5318 : : {
5319 : 14164 : Expect (M2Reserved_recordtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5320 : 14164 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
5321 : : {
5322 : 36 : DefaultRecordAttributes (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5323 : : }
5324 : 14164 : FieldListSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5325 : 14164 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5326 : 14164 : }
5327 : :
5328 : :
5329 : : /*
5330 : : DefaultRecordAttributes := ''
5331 : :
5332 : : first symbols:ldirectivetok
5333 : :
5334 : : cannot reachend
5335 : : */
5336 : :
5337 : 36 : static void DefaultRecordAttributes (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5338 : : {
5339 : 36 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5340 : 36 : M2Quads_PushAutoOn ();
5341 : 36 : AttributeExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5342 : 36 : M2Quads_BuildDefaultFieldAlignment ();
5343 : 36 : M2Quads_PopAuto ();
5344 : 36 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
5345 : 36 : }
5346 : :
5347 : :
5348 : : /*
5349 : : RecordFieldPragma := [ '' ]
5350 : :
5351 : : first symbols:ldirectivetok
5352 : :
5353 : : reachend
5354 : : */
5355 : :
5356 : 94744 : static void RecordFieldPragma (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5357 : : {
5358 : 94744 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
5359 : : {
5360 : 12 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5361 : 12 : FieldPragmaExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok)) | (1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5362 : 24 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5363 : : {
5364 : 0 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5365 : 0 : FieldPragmaExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5366 : : }
5367 : : /* while */
5368 : 12 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
5369 : : }
5370 : 94744 : }
5371 : :
5372 : :
5373 : : /*
5374 : : FieldPragmaExpression :=
5375 : : % PushAutoOn %
5376 : : Ident PragmaConstExpression
5377 : :
5378 : : % BuildPragmaField %
5379 : :
5380 : : % PopAuto %
5381 : :
5382 : :
5383 : : first symbols:identtok
5384 : :
5385 : : cannot reachend
5386 : : */
5387 : :
5388 : 12 : static void FieldPragmaExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5389 : : {
5390 : 12 : M2Quads_PushAutoOn ();
5391 : 12 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5392 : 12 : PragmaConstExpression (stopset0, stopset1, stopset2);
5393 : 12 : M2Quads_BuildPragmaField ();
5394 : 12 : M2Quads_PopAuto ();
5395 : 12 : }
5396 : :
5397 : :
5398 : : /*
5399 : : PragmaConstExpression := ( '(' ConstExpression ')' |
5400 : :
5401 : : % PushT(NulSym) %
5402 : :
5403 : : % Annotate('NulSym||no pragma const') %
5404 : : )
5405 : :
5406 : : first symbols:lparatok
5407 : :
5408 : : reachend
5409 : : */
5410 : :
5411 : 12 : static void PragmaConstExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5412 : : {
5413 : 12 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5414 : : {
5415 : 12 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5416 : 12 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5417 : 12 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5418 : : }
5419 : : else
5420 : : {
5421 : 0 : M2Quads_PushT (static_cast<unsigned int> (SymbolTable_NulSym));
5422 : 0 : M2Quads_Annotate ((const char *) "NulSym||no pragma const", 23);
5423 : : }
5424 : 12 : }
5425 : :
5426 : :
5427 : : /*
5428 : : AttributeExpression := Ident '(' ConstExpression
5429 : : ')'
5430 : :
5431 : : first symbols:identtok
5432 : :
5433 : : cannot reachend
5434 : : */
5435 : :
5436 : 108 : static void AttributeExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5437 : : {
5438 : 108 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5439 : 108 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5440 : 108 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5441 : 108 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5442 : 108 : }
5443 : :
5444 : :
5445 : : /*
5446 : : FieldListSequence := FieldListStatement { ';' FieldListStatement }
5447 : :
5448 : : first symbols:casetok, identtok, semicolontok
5449 : :
5450 : : reachend
5451 : : */
5452 : :
5453 : 14830 : static void FieldListSequence (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5454 : : {
5455 : 14830 : FieldListStatement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5456 : 123808 : while (M2LexBuf_currenttoken == M2Reserved_semicolontok)
5457 : : {
5458 : 94148 : Expect (M2Reserved_semicolontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5459 : 94148 : FieldListStatement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
5460 : : }
5461 : : /* while */
5462 : 14830 : }
5463 : :
5464 : :
5465 : : /*
5466 : : FieldListStatement := [ FieldList ]
5467 : :
5468 : : first symbols:identtok, casetok
5469 : :
5470 : : reachend
5471 : : */
5472 : :
5473 : 108978 : static void FieldListStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5474 : : {
5475 : 108978 : if ((M2LexBuf_currenttoken == M2Reserved_casetok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
5476 : : {
5477 : 95020 : FieldList (stopset0, stopset1, stopset2);
5478 : : }
5479 : 108978 : }
5480 : :
5481 : :
5482 : : /*
5483 : : FieldList := IdentList ':' Type RecordFieldPragma |
5484 : : 'CASE'
5485 : : % BeginVarient %
5486 : : CaseTag 'OF' Varient { '|' Varient }
5487 : : [ 'ELSE'
5488 : : % ElseVarient %
5489 : : FieldListSequence ] 'END'
5490 : : % EndVarient %
5491 : :
5492 : :
5493 : : first symbols:casetok, identtok
5494 : :
5495 : : cannot reachend
5496 : : */
5497 : :
5498 : 95020 : static void FieldList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5499 : : {
5500 : 95020 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5501 : : {
5502 : 94744 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5503 : 94744 : Expect (M2Reserved_colontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5504 : 94744 : Type (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
5505 : 94744 : RecordFieldPragma (stopset0, stopset1, stopset2);
5506 : : }
5507 : 276 : else if (M2LexBuf_currenttoken == M2Reserved_casetok)
5508 : : {
5509 : : /* avoid dangling else. */
5510 : 276 : Expect (M2Reserved_casetok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5511 : 276 : M2Quads_BeginVarient ();
5512 : 276 : CaseTag (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
5513 : 276 : Expect (M2Reserved_oftok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5514 : 276 : Varient (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5515 : 1188 : while (M2LexBuf_currenttoken == M2Reserved_bartok)
5516 : : {
5517 : 636 : Expect (M2Reserved_bartok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5518 : 636 : Varient (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok))), stopset2);
5519 : : }
5520 : : /* while */
5521 : 276 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
5522 : : {
5523 : 114 : Expect (M2Reserved_elsetok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5524 : 114 : M2Quads_ElseVarient ();
5525 : 114 : FieldListSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
5526 : : }
5527 : 276 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
5528 : 276 : M2Quads_EndVarient ();
5529 : : }
5530 : : else
5531 : : {
5532 : : /* avoid dangling else. */
5533 : 0 : ErrorArray ((const char *) "expecting one of: {%KCASE} {%Kidentifier}", 41);
5534 : : }
5535 : 95020 : }
5536 : :
5537 : :
5538 : : /*
5539 : : TagIdent := [ Ident ]
5540 : :
5541 : : first symbols:identtok
5542 : :
5543 : : reachend
5544 : : */
5545 : :
5546 : 276 : static void TagIdent (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5547 : : {
5548 : 0 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
5549 : : {
5550 : 234 : Ident (stopset0, stopset1, stopset2);
5551 : : }
5552 : 0 : }
5553 : :
5554 : :
5555 : : /*
5556 : : CaseTag := TagIdent [ ':' QualidentCheck ]
5557 : :
5558 : : first symbols:colontok, identtok
5559 : :
5560 : : reachend
5561 : : */
5562 : :
5563 : 276 : static void CaseTag (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5564 : : {
5565 : 276 : TagIdent (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5566 : 276 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
5567 : : {
5568 : 264 : Expect (M2Reserved_colontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5569 : 264 : QualidentCheck (stopset0, stopset1, stopset2);
5570 : : }
5571 : 276 : }
5572 : :
5573 : :
5574 : : /*
5575 : : Varient := [
5576 : : % BeginVarientList %
5577 : : VarientCaseLabelList ':' FieldListSequence
5578 : :
5579 : : % EndVarientList %
5580 : : ]
5581 : :
5582 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5583 : :
5584 : : reachend
5585 : : */
5586 : :
5587 : 912 : static void Varient (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5588 : : {
5589 : 912 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0))))
5590 : : {
5591 : 552 : M2Quads_BeginVarientList ();
5592 : 552 : VarientCaseLabelList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
5593 : 552 : Expect (M2Reserved_colontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_casetok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5594 : 552 : FieldListSequence (stopset0, stopset1, stopset2);
5595 : 552 : M2Quads_EndVarientList ();
5596 : : }
5597 : 912 : }
5598 : :
5599 : :
5600 : : /*
5601 : : VarientCaseLabelList := VarientCaseLabels { ','
5602 : : VarientCaseLabels }
5603 : :
5604 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5605 : :
5606 : : cannot reachend
5607 : : */
5608 : :
5609 : 552 : static void VarientCaseLabelList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5610 : : {
5611 : 552 : VarientCaseLabels (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5612 : 1146 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
5613 : : {
5614 : 42 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5615 : 42 : VarientCaseLabels (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
5616 : : }
5617 : : /* while */
5618 : 552 : }
5619 : :
5620 : :
5621 : : /*
5622 : : VarientCaseLabels := ConstExpression ( '..' ConstExpression
5623 : :
5624 : : % AddVarientRange %
5625 : : |
5626 : :
5627 : : % AddVarientEquality ; epsilon %
5628 : : )
5629 : :
5630 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5631 : :
5632 : : cannot reachend
5633 : : */
5634 : :
5635 : 594 : static void VarientCaseLabels (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5636 : : {
5637 : 594 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
5638 : 594 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
5639 : : {
5640 : 0 : Expect (M2Reserved_periodperiodtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5641 : 0 : ConstExpression (stopset0, stopset1, stopset2);
5642 : 0 : M2Quads_AddVarientRange ();
5643 : : }
5644 : : else
5645 : : {
5646 : 594 : M2Quads_AddVarientEquality (); /* epsilon */
5647 : : }
5648 : : /* epsilon */
5649 : 594 : }
5650 : :
5651 : :
5652 : : /*
5653 : : SilentConstExpression :=
5654 : : % PushAutoOff %
5655 : : SilentSimpleConstExpr [
5656 : : SilentRelation SilentSimpleConstExpr ]
5657 : : % PopAuto %
5658 : :
5659 : :
5660 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5661 : :
5662 : : cannot reachend
5663 : : */
5664 : :
5665 : 0 : static void SilentConstExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5666 : : {
5667 : 0 : M2Quads_PushAutoOff ();
5668 : 0 : SilentSimpleConstExpr (stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
5669 : 0 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_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))
5670 : : {
5671 : 0 : SilentRelation (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5672 : 0 : SilentSimpleConstExpr (stopset0, stopset1, stopset2);
5673 : : }
5674 : 0 : M2Quads_PopAuto ();
5675 : 0 : }
5676 : :
5677 : :
5678 : : /*
5679 : : SilentRelation := '=' | '#' | '<>' | '<' |
5680 : : '<=' | '>' | '>=' | 'IN'
5681 : :
5682 : : first symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
5683 : :
5684 : : cannot reachend
5685 : : */
5686 : :
5687 : 0 : static void SilentRelation (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5688 : : {
5689 : 0 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
5690 : : {
5691 : 0 : Expect (M2Reserved_equaltok, stopset0, stopset1, stopset2);
5692 : : }
5693 : : else if (M2LexBuf_currenttoken == M2Reserved_hashtok)
5694 : : {
5695 : : /* avoid dangling else. */
5696 : 0 : Expect (M2Reserved_hashtok, stopset0, stopset1, stopset2);
5697 : : }
5698 : : else if (M2LexBuf_currenttoken == M2Reserved_lessgreatertok)
5699 : : {
5700 : : /* avoid dangling else. */
5701 : 0 : Expect (M2Reserved_lessgreatertok, stopset0, stopset1, stopset2);
5702 : : }
5703 : : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
5704 : : {
5705 : : /* avoid dangling else. */
5706 : 0 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2);
5707 : : }
5708 : : else if (M2LexBuf_currenttoken == M2Reserved_lessequaltok)
5709 : : {
5710 : : /* avoid dangling else. */
5711 : 0 : Expect (M2Reserved_lessequaltok, stopset0, stopset1, stopset2);
5712 : : }
5713 : : else if (M2LexBuf_currenttoken == M2Reserved_greatertok)
5714 : : {
5715 : : /* avoid dangling else. */
5716 : 0 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
5717 : : }
5718 : : else if (M2LexBuf_currenttoken == M2Reserved_greaterequaltok)
5719 : : {
5720 : : /* avoid dangling else. */
5721 : 0 : Expect (M2Reserved_greaterequaltok, stopset0, stopset1, stopset2);
5722 : : }
5723 : : else if (M2LexBuf_currenttoken == M2Reserved_intok)
5724 : : {
5725 : : /* avoid dangling else. */
5726 : 0 : Expect (M2Reserved_intok, stopset0, stopset1, stopset2);
5727 : : }
5728 : : else
5729 : : {
5730 : : /* avoid dangling else. */
5731 : 0 : ErrorArray ((const char *) "expecting one of: {%KIN} {%K>=} {%K>} {%K<=} {%K<} {%K<>} {%K#} {%K=}", 69);
5732 : : }
5733 : 0 : }
5734 : :
5735 : :
5736 : : /*
5737 : : SilentSimpleConstExpr := SilentUnaryOrConstTerm
5738 : : { SilentAddOperator SilentConstTerm }
5739 : :
5740 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5741 : :
5742 : : cannot reachend
5743 : : */
5744 : :
5745 : 0 : static void SilentSimpleConstExpr (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5746 : : {
5747 : 0 : SilentUnaryOrConstTerm (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
5748 : 0 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
5749 : : {
5750 : 0 : SilentAddOperator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5751 : 0 : SilentConstTerm (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
5752 : : }
5753 : : /* while */
5754 : 0 : }
5755 : :
5756 : :
5757 : : /*
5758 : : SilentUnaryOrConstTerm := '+' SilentConstTerm |
5759 : : '-' SilentConstTerm |
5760 : : SilentConstTerm
5761 : :
5762 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5763 : :
5764 : : cannot reachend
5765 : : */
5766 : :
5767 : 0 : static void SilentUnaryOrConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5768 : : {
5769 : 0 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
5770 : : {
5771 : 0 : Expect (M2Reserved_plustok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5772 : 0 : SilentConstTerm (stopset0, stopset1, stopset2);
5773 : : }
5774 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
5775 : : {
5776 : : /* avoid dangling else. */
5777 : 0 : Expect (M2Reserved_minustok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
5778 : 0 : SilentConstTerm (stopset0, stopset1, stopset2);
5779 : : }
5780 : 0 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
5781 : : {
5782 : : /* avoid dangling else. */
5783 : 0 : SilentConstTerm (stopset0, stopset1, stopset2);
5784 : : }
5785 : : else
5786 : : {
5787 : : /* avoid dangling else. */
5788 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kinteger number} {%Kreal number} {%K__ATTRIBUTE__} {%K%{} {%Kidentifier} {%Kstring} {%K-} {%K+}", 129);
5789 : : }
5790 : 0 : }
5791 : :
5792 : :
5793 : : /*
5794 : : SilentAddOperator := '+' | '-' | 'OR'
5795 : :
5796 : : first symbols:ortok, minustok, plustok
5797 : :
5798 : : cannot reachend
5799 : : */
5800 : :
5801 : 0 : static void SilentAddOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5802 : : {
5803 : 0 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
5804 : : {
5805 : 0 : Expect (M2Reserved_plustok, stopset0, stopset1, stopset2);
5806 : : }
5807 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
5808 : : {
5809 : : /* avoid dangling else. */
5810 : 0 : Expect (M2Reserved_minustok, stopset0, stopset1, stopset2);
5811 : : }
5812 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_ortok)
5813 : : {
5814 : : /* avoid dangling else. */
5815 : 0 : Expect (M2Reserved_ortok, stopset0, stopset1, stopset2);
5816 : : }
5817 : : else
5818 : : {
5819 : : /* avoid dangling else. */
5820 : 0 : ErrorArray ((const char *) "expecting one of: {%KOR} {%K-} {%K+}", 36);
5821 : : }
5822 : 0 : }
5823 : :
5824 : :
5825 : : /*
5826 : : SilentConstTerm := SilentConstFactor { SilentMulOperator
5827 : : SilentConstFactor }
5828 : :
5829 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok
5830 : :
5831 : : cannot reachend
5832 : : */
5833 : :
5834 : 0 : static void SilentConstTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5835 : : {
5836 : 0 : SilentConstFactor (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
5837 : 0 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))))) != 0))) || (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
5838 : : {
5839 : 0 : SilentMulOperator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5840 : 0 : SilentConstFactor (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
5841 : : }
5842 : : /* while */
5843 : 0 : }
5844 : :
5845 : :
5846 : : /*
5847 : : SilentMulOperator := '*' | '/' | 'DIV' |
5848 : : 'MOD' | 'REM' | 'AND' |
5849 : : '&'
5850 : :
5851 : : first symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
5852 : :
5853 : : cannot reachend
5854 : : */
5855 : :
5856 : 0 : static void SilentMulOperator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5857 : : {
5858 : 0 : if (M2LexBuf_currenttoken == M2Reserved_timestok)
5859 : : {
5860 : 0 : Expect (M2Reserved_timestok, stopset0, stopset1, stopset2);
5861 : : }
5862 : : else if (M2LexBuf_currenttoken == M2Reserved_dividetok)
5863 : : {
5864 : : /* avoid dangling else. */
5865 : 0 : Expect (M2Reserved_dividetok, stopset0, stopset1, stopset2);
5866 : : }
5867 : : else if (M2LexBuf_currenttoken == M2Reserved_divtok)
5868 : : {
5869 : : /* avoid dangling else. */
5870 : 0 : Expect (M2Reserved_divtok, stopset0, stopset1, stopset2);
5871 : : }
5872 : : else if (M2LexBuf_currenttoken == M2Reserved_modtok)
5873 : : {
5874 : : /* avoid dangling else. */
5875 : 0 : Expect (M2Reserved_modtok, stopset0, stopset1, stopset2);
5876 : : }
5877 : : else if (M2LexBuf_currenttoken == M2Reserved_remtok)
5878 : : {
5879 : : /* avoid dangling else. */
5880 : 0 : Expect (M2Reserved_remtok, stopset0, stopset1, stopset2);
5881 : : }
5882 : : else if (M2LexBuf_currenttoken == M2Reserved_andtok)
5883 : : {
5884 : : /* avoid dangling else. */
5885 : 0 : Expect (M2Reserved_andtok, stopset0, stopset1, stopset2);
5886 : : }
5887 : : else if (M2LexBuf_currenttoken == M2Reserved_ambersandtok)
5888 : : {
5889 : : /* avoid dangling else. */
5890 : 0 : Expect (M2Reserved_ambersandtok, stopset0, stopset1, stopset2);
5891 : : }
5892 : : else
5893 : : {
5894 : : /* avoid dangling else. */
5895 : 0 : ErrorArray ((const char *) "expecting one of: {%K&} {%KAND} {%KREM} {%KMOD} {%KDIV} {%K/} {%K*}", 67);
5896 : : }
5897 : 0 : }
5898 : :
5899 : :
5900 : : /*
5901 : : SilentConstFactor := Number | SilentConstString |
5902 : : SilentConstSetOrQualidentOrFunction |
5903 : : '(' SilentConstExpression ')' |
5904 : : 'NOT' SilentConstFactor |
5905 : : SilentConstAttribute
5906 : :
5907 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok
5908 : :
5909 : : cannot reachend
5910 : : */
5911 : :
5912 : 0 : static void SilentConstFactor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5913 : : {
5914 : 0 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
5915 : : {
5916 : 0 : Number (stopset0, stopset1, stopset2);
5917 : : }
5918 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
5919 : : {
5920 : : /* avoid dangling else. */
5921 : 0 : SilentConstString (stopset0, stopset1, stopset2);
5922 : : }
5923 : : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
5924 : : {
5925 : : /* avoid dangling else. */
5926 : 0 : SilentConstSetOrQualidentOrFunction (stopset0, stopset1, stopset2);
5927 : : }
5928 : : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
5929 : : {
5930 : : /* avoid dangling else. */
5931 : 0 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5932 : 0 : SilentConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5933 : 0 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5934 : : }
5935 : : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
5936 : : {
5937 : : /* avoid dangling else. */
5938 : 0 : Expect (M2Reserved_nottok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
5939 : 0 : SilentConstFactor (stopset0, stopset1, stopset2);
5940 : : }
5941 : : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
5942 : : {
5943 : : /* avoid dangling else. */
5944 : 0 : SilentConstAttribute (stopset0, stopset1, stopset2);
5945 : : }
5946 : : else
5947 : : {
5948 : : /* avoid dangling else. */
5949 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%KNOT} {%K(} {%K%{} {%Kidentifier} {%Kstring} {%Kinteger number} {%Kreal number}", 117);
5950 : : }
5951 : 0 : }
5952 : :
5953 : :
5954 : : /*
5955 : : SilentConstString := string
5956 : :
5957 : : first symbols:stringtok
5958 : :
5959 : : cannot reachend
5960 : : */
5961 : :
5962 : 0 : static void SilentConstString (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5963 : : {
5964 : 0 : string (stopset0, stopset1, stopset2);
5965 : 0 : }
5966 : :
5967 : :
5968 : : /*
5969 : : SilentConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
5970 : : '(' '(' SilentConstAttributeExpression
5971 : : ')' ')'
5972 : :
5973 : : first symbols:attributetok
5974 : :
5975 : : cannot reachend
5976 : : */
5977 : :
5978 : 0 : static void SilentConstAttribute (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
5979 : : {
5980 : 0 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
5981 : 0 : Expect (M2Reserved_builtintok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5982 : 0 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
5983 : 0 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lesstok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
5984 : 0 : SilentConstAttributeExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5985 : 0 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
5986 : 0 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
5987 : 0 : }
5988 : :
5989 : :
5990 : : /*
5991 : : SilentConstAttributeExpression := Ident |
5992 : : '<' Ident ','
5993 : : SilentConstString
5994 : : '>'
5995 : :
5996 : : first symbols:lesstok, identtok
5997 : :
5998 : : cannot reachend
5999 : : */
6000 : :
6001 : 0 : static void SilentConstAttributeExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6002 : : {
6003 : 0 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
6004 : : {
6005 : 0 : Ident (stopset0, stopset1, stopset2);
6006 : : }
6007 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_lesstok)
6008 : : {
6009 : : /* avoid dangling else. */
6010 : 0 : Expect (M2Reserved_lesstok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6011 : 0 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6012 : 0 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6013 : 0 : SilentConstString (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_greatertok-M2Reserved_eoftok))), stopset1, stopset2);
6014 : 0 : Expect (M2Reserved_greatertok, stopset0, stopset1, stopset2);
6015 : : }
6016 : : else
6017 : : {
6018 : : /* avoid dangling else. */
6019 : 0 : ErrorArray ((const char *) "expecting one of: {%K<} {%Kidentifier}", 38);
6020 : : }
6021 : 0 : }
6022 : :
6023 : :
6024 : : /*
6025 : : SilentComponentElement := SilentConstExpression
6026 : : [ '..' SilentConstExpression ]
6027 : :
6028 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
6029 : :
6030 : : cannot reachend
6031 : : */
6032 : :
6033 : 0 : static void SilentComponentElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6034 : : {
6035 : 0 : SilentConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
6036 : 0 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
6037 : : {
6038 : 0 : Expect (M2Reserved_periodperiodtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6039 : 0 : SilentConstExpression (stopset0, stopset1, stopset2);
6040 : : }
6041 : 0 : }
6042 : :
6043 : :
6044 : : /*
6045 : : SilentComponentValue := SilentComponentElement [
6046 : : 'BY' SilentConstExpression ]
6047 : :
6048 : : first symbols:attributetok, lcbratok, identtok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
6049 : :
6050 : : cannot reachend
6051 : : */
6052 : :
6053 : 0 : static void SilentComponentValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6054 : : {
6055 : 0 : SilentComponentElement (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok))), stopset2);
6056 : 0 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
6057 : : {
6058 : 0 : Expect (M2Reserved_bytok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6059 : 0 : SilentConstExpression (stopset0, stopset1, stopset2);
6060 : : }
6061 : 0 : }
6062 : :
6063 : :
6064 : : /*
6065 : : SilentArraySetRecordValue := SilentComponentValue
6066 : : { ',' SilentComponentValue }
6067 : :
6068 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
6069 : :
6070 : : cannot reachend
6071 : : */
6072 : :
6073 : 0 : static void SilentArraySetRecordValue (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6074 : : {
6075 : 0 : SilentComponentValue (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6076 : 0 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6077 : : {
6078 : 0 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6079 : 0 : SilentComponentValue (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6080 : : }
6081 : : /* while */
6082 : 0 : }
6083 : :
6084 : :
6085 : : /*
6086 : : SilentConstructor := '{'
6087 : : % SilentBuildConstructorStart %
6088 : : [ SilentArraySetRecordValue ]
6089 : : '}'
6090 : :
6091 : : first symbols:lcbratok
6092 : :
6093 : : cannot reachend
6094 : : */
6095 : :
6096 : 0 : static void SilentConstructor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6097 : : {
6098 : 0 : Expect (M2Reserved_lcbratok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
6099 : 0 : M2Quads_SilentBuildConstructorStart ();
6100 : 0 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
6101 : : {
6102 : 0 : SilentArraySetRecordValue (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rcbratok-M2Reserved_eoftok))), stopset1, stopset2);
6103 : : }
6104 : 0 : Expect (M2Reserved_rcbratok, stopset0, stopset1, stopset2);
6105 : 0 : }
6106 : :
6107 : :
6108 : : /*
6109 : : SilentConstSetOrQualidentOrFunction := SilentConstructor |
6110 : : Qualident
6111 : : [ SilentConstructor |
6112 : : SilentActualParameters ]
6113 : :
6114 : : first symbols:identtok, lcbratok
6115 : :
6116 : : cannot reachend
6117 : : */
6118 : :
6119 : 0 : static void SilentConstSetOrQualidentOrFunction (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6120 : : {
6121 : 0 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
6122 : : {
6123 : 0 : SilentConstructor (stopset0, stopset1, stopset2);
6124 : : }
6125 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
6126 : : {
6127 : : /* avoid dangling else. */
6128 : 0 : Qualident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6129 : 0 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0)))
6130 : : {
6131 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6132 : : /* seen optional [ | ] expression */
6133 : 0 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
6134 : : {
6135 : 0 : SilentConstructor (stopset0, stopset1, stopset2);
6136 : : }
6137 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
6138 : : {
6139 : : /* avoid dangling else. */
6140 : 0 : SilentActualParameters (stopset0, stopset1, stopset2);
6141 : : }
6142 : : else
6143 : : {
6144 : : /* avoid dangling else. */
6145 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K%{}", 30);
6146 : : }
6147 : : }
6148 : : /* end of optional [ | ] expression */
6149 : : }
6150 : : else
6151 : : {
6152 : : /* avoid dangling else. */
6153 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%K%{}", 39);
6154 : : }
6155 : 0 : }
6156 : :
6157 : :
6158 : : /*
6159 : : SilentActualParameters := '(' [ SilentExpList ]
6160 : : ')'
6161 : :
6162 : : first symbols:lparatok
6163 : :
6164 : : cannot reachend
6165 : : */
6166 : :
6167 : 0 : static void SilentActualParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6168 : : {
6169 : 0 : Expect (M2Reserved_lparatok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
6170 : 0 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
6171 : : {
6172 : 0 : SilentExpList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6173 : : }
6174 : 0 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
6175 : 0 : }
6176 : :
6177 : :
6178 : : /*
6179 : : SilentExpList := SilentConstExpression { ',' SilentConstExpression }
6180 : :
6181 : : first symbols:stringtok, identtok, lcbratok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
6182 : :
6183 : : cannot reachend
6184 : : */
6185 : :
6186 : 0 : static void SilentExpList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6187 : : {
6188 : 0 : SilentConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6189 : 0 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6190 : : {
6191 : 0 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6192 : 0 : SilentConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6193 : : }
6194 : : /* while */
6195 : 0 : }
6196 : :
6197 : :
6198 : : /*
6199 : : SetType := ( 'SET' | 'PACKEDSET' ) 'OF' SimpleType
6200 : :
6201 : : first symbols:oftok, packedsettok, settok
6202 : :
6203 : : cannot reachend
6204 : : */
6205 : :
6206 : 1724 : static void SetType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6207 : : {
6208 : 1724 : if (M2LexBuf_currenttoken == M2Reserved_settok)
6209 : : {
6210 : 1628 : Expect (M2Reserved_settok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
6211 : : }
6212 : 96 : else if (M2LexBuf_currenttoken == M2Reserved_packedsettok)
6213 : : {
6214 : : /* avoid dangling else. */
6215 : 96 : Expect (M2Reserved_packedsettok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
6216 : : }
6217 : : else
6218 : : {
6219 : : /* avoid dangling else. */
6220 : 0 : ErrorArray ((const char *) "expecting one of: {%KPACKEDSET} {%KSET}", 39);
6221 : : }
6222 : 1724 : Expect (M2Reserved_oftok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6223 : 1724 : SimpleType (stopset0, stopset1, stopset2);
6224 : 1724 : }
6225 : :
6226 : :
6227 : : /*
6228 : : PointerType := 'POINTER' 'TO' Type
6229 : :
6230 : : first symbols:pointertok
6231 : :
6232 : : cannot reachend
6233 : : */
6234 : :
6235 : 8730 : static void PointerType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6236 : : {
6237 : 8730 : Expect (M2Reserved_pointertok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok))));
6238 : 8730 : Expect (M2Reserved_totok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6239 : 8730 : Type (stopset0, stopset1, stopset2);
6240 : 8730 : }
6241 : :
6242 : :
6243 : : /*
6244 : : ProcedureType := 'PROCEDURE' [ FormalTypeList ]
6245 : :
6246 : : first symbols:proceduretok
6247 : :
6248 : : cannot reachend
6249 : : */
6250 : :
6251 : 53016 : static void ProcedureType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6252 : : {
6253 : 53016 : Expect (M2Reserved_proceduretok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6254 : 53016 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
6255 : : {
6256 : 39137 : FormalTypeList (stopset0, stopset1, stopset2);
6257 : : }
6258 : 53016 : }
6259 : :
6260 : :
6261 : : /*
6262 : : FormalTypeList := '(' ( ')' FormalReturn |
6263 : : ProcedureParameters ')'
6264 : : FormalReturn )
6265 : :
6266 : : first symbols:lparatok
6267 : :
6268 : : cannot reachend
6269 : : */
6270 : :
6271 : 39137 : static void FormalTypeList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6272 : : {
6273 : 39137 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6274 : 39137 : if (M2LexBuf_currenttoken == M2Reserved_rparatok)
6275 : : {
6276 : 5338 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6277 : 5338 : FormalReturn (stopset0, stopset1, stopset2);
6278 : : }
6279 : 33799 : else if ((M2LexBuf_currenttoken == M2Reserved_arraytok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6280 : : {
6281 : : /* avoid dangling else. */
6282 : 33799 : ProcedureParameters (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6283 : 33799 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6284 : 33799 : FormalReturn (stopset0, stopset1, stopset2);
6285 : : }
6286 : : else
6287 : : {
6288 : : /* avoid dangling else. */
6289 : 0 : ErrorArray ((const char *) "expecting one of: {%KVAR} {%K...} {%KARRAY} {%Kidentifier} {%K)}", 64);
6290 : : }
6291 : 39137 : }
6292 : :
6293 : :
6294 : : /*
6295 : : FormalReturn := [ ':' OptReturnType ]
6296 : :
6297 : : first symbols:colontok
6298 : :
6299 : : reachend
6300 : : */
6301 : :
6302 : 1879268 : static void FormalReturn (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6303 : : {
6304 : 1879268 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
6305 : : {
6306 : 924108 : Expect (M2Reserved_colontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6307 : 924108 : OptReturnType (stopset0, stopset1, stopset2);
6308 : : }
6309 : 1879268 : }
6310 : :
6311 : :
6312 : : /*
6313 : : OptReturnType := '[' QualidentCheck ']' |
6314 : : QualidentCheck
6315 : :
6316 : : first symbols:identtok, lsbratok
6317 : :
6318 : : cannot reachend
6319 : : */
6320 : :
6321 : 924108 : static void OptReturnType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6322 : : {
6323 : 924108 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6324 : : {
6325 : 120456 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6326 : 120456 : QualidentCheck (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6327 : 120456 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6328 : : }
6329 : 803652 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
6330 : : {
6331 : : /* avoid dangling else. */
6332 : 803652 : QualidentCheck (stopset0, stopset1, stopset2);
6333 : : }
6334 : : else
6335 : : {
6336 : : /* avoid dangling else. */
6337 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%K[}", 38);
6338 : : }
6339 : 924108 : }
6340 : :
6341 : :
6342 : : /*
6343 : : ProcedureParameters := ProcedureParameter { ','
6344 : : ProcedureParameter }
6345 : :
6346 : : first symbols:identtok, arraytok, periodperiodperiodtok, vartok
6347 : :
6348 : : cannot reachend
6349 : : */
6350 : :
6351 : 33799 : static void ProcedureParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6352 : : {
6353 : 33799 : ProcedureParameter (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6354 : 109398 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6355 : : {
6356 : 41800 : Expect (M2Reserved_commatok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6357 : 41800 : ProcedureParameter (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6358 : : }
6359 : : /* while */
6360 : 33799 : }
6361 : :
6362 : :
6363 : : /*
6364 : : ProcedureParameter := '...' | 'VAR' FormalType |
6365 : : FormalType
6366 : :
6367 : : first symbols:arraytok, identtok, vartok, periodperiodperiodtok
6368 : :
6369 : : cannot reachend
6370 : : */
6371 : :
6372 : 75599 : static void ProcedureParameter (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6373 : : {
6374 : 75599 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
6375 : : {
6376 : 0 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
6377 : : }
6378 : 75599 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
6379 : : {
6380 : : /* avoid dangling else. */
6381 : 6008 : Expect (M2Reserved_vartok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6382 : 6008 : FormalType (stopset0, stopset1, stopset2);
6383 : : }
6384 : 69591 : else if ((M2LexBuf_currenttoken == M2Reserved_arraytok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
6385 : : {
6386 : : /* avoid dangling else. */
6387 : 69591 : FormalType (stopset0, stopset1, stopset2);
6388 : : }
6389 : : else
6390 : : {
6391 : : /* avoid dangling else. */
6392 : 0 : ErrorArray ((const char *) "expecting one of: {%KARRAY} {%Kidentifier} {%KVAR} {%K...}", 58);
6393 : : }
6394 : 75599 : }
6395 : :
6396 : :
6397 : : /*
6398 : : VarIdent :=
6399 : : % VAR
6400 : : Sym, Type: CARDINAL ;
6401 : : on: BOOLEAN ; %
6402 : :
6403 : : % on := IsAutoPushOn() %
6404 : :
6405 : : % IF NOT on
6406 : : THEN
6407 : : PushAutoOn
6408 : : END %
6409 : : Ident
6410 : : % IF on
6411 : : THEN
6412 : : PopTF(Sym, Type) ;
6413 : : PushTF(Sym, Type) ;
6414 : : PushTF(Sym, Type)
6415 : : END %
6416 : : [ '[' ConstExpression
6417 : : % BuildVarAtAddress %
6418 : : ']' ]
6419 : : % PopNothing ;
6420 : : PopAuto %
6421 : :
6422 : :
6423 : : first symbols:identtok
6424 : :
6425 : : cannot reachend
6426 : : */
6427 : :
6428 : 59676 : static void VarIdent (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6429 : : {
6430 : 59676 : unsigned int Sym;
6431 : 59676 : unsigned int Type;
6432 : 59676 : bool on;
6433 : :
6434 : 59676 : on = M2Quads_IsAutoPushOn ();
6435 : 59676 : if (! on)
6436 : : {
6437 : 59676 : M2Quads_PushAutoOn ();
6438 : : }
6439 : 59676 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6440 : 59676 : if (on)
6441 : : {
6442 : 0 : M2Quads_PopTF (&Sym, &Type);
6443 : 0 : M2Quads_PushTF (Sym, Type);
6444 : 0 : M2Quads_PushTF (Sym, Type);
6445 : : }
6446 : 59676 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6447 : : {
6448 : 54 : Expect (M2Reserved_lsbratok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
6449 : 54 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6450 : 54 : P3SymBuild_BuildVarAtAddress ();
6451 : 54 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6452 : : }
6453 : 59676 : M2Quads_PopNothing ();
6454 : 59676 : M2Quads_PopAuto ();
6455 : 59676 : }
6456 : :
6457 : :
6458 : : /*
6459 : : VarIdentList := VarIdent
6460 : : % VAR
6461 : : on: BOOLEAN ;
6462 : : n : CARDINAL ; %
6463 : :
6464 : : % on := IsAutoPushOn() ;
6465 : : IF on
6466 : : THEN
6467 : : n := 1
6468 : : END %
6469 : : { ',' VarIdent
6470 : : % IF on
6471 : : THEN
6472 : : INC(n)
6473 : : END %
6474 : : }
6475 : : % IF on
6476 : : THEN
6477 : : PushT(n)
6478 : : END %
6479 : :
6480 : :
6481 : : first symbols:identtok
6482 : :
6483 : : cannot reachend
6484 : : */
6485 : :
6486 : 40746 : static void VarIdentList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6487 : : {
6488 : 40746 : bool on;
6489 : 40746 : unsigned int n;
6490 : :
6491 : 40746 : VarIdent (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6492 : 40746 : on = M2Quads_IsAutoPushOn ();
6493 : 40746 : if (on)
6494 : : {
6495 : 40746 : n = 1;
6496 : : }
6497 : 59676 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6498 : : {
6499 : 18930 : Expect (M2Reserved_commatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6500 : 18930 : VarIdent (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6501 : 18930 : if (on)
6502 : : {
6503 : 0 : n += 1;
6504 : : }
6505 : : }
6506 : : /* while */
6507 : 40746 : if (on)
6508 : : {
6509 : 0 : M2Quads_PushT (n);
6510 : : }
6511 : 40746 : }
6512 : :
6513 : :
6514 : : /*
6515 : : VariableDeclaration := VarIdentList ':'
6516 : : % InclVar (BlockState) %
6517 : : Type Alignment
6518 : : % ExclVar (BlockState) %
6519 : :
6520 : :
6521 : : first symbols:identtok
6522 : :
6523 : : cannot reachend
6524 : : */
6525 : :
6526 : 40746 : static void VariableDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6527 : : {
6528 : 40746 : VarIdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
6529 : 40746 : Expect (M2Reserved_colontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6530 : 40746 : M2StateCheck_InclVar (BlockState);
6531 : 40746 : Type (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
6532 : 40728 : Alignment (stopset0, stopset1, stopset2);
6533 : 40728 : M2StateCheck_ExclVar (BlockState);
6534 : 40728 : }
6535 : :
6536 : :
6537 : : /*
6538 : : Designator := QualidentCheck
6539 : : % CheckWithReference %
6540 : : { SubDesignator }
6541 : :
6542 : : first symbols:identtok
6543 : :
6544 : : cannot reachend
6545 : : */
6546 : :
6547 : 171916 : static void Designator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6548 : : {
6549 : 171916 : QualidentCheck (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
6550 : 171916 : M2Quads_CheckWithReference ();
6551 : 365810 : while ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))))) != 0)))
6552 : : {
6553 : 21984 : SubDesignator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))), stopset1, stopset2);
6554 : : }
6555 : : /* while */
6556 : 171910 : }
6557 : :
6558 : :
6559 : : /*
6560 : : SubDesignator := '.'
6561 : : % VAR Sym, Type, tok,
6562 : : dotpostok : CARDINAL ;
6563 : : name, n1 : Name ; %
6564 : :
6565 : : % dotpostok := GetTokenNo () -1 ;
6566 : : PopTFtok (Sym, Type, tok) ;
6567 : : Type := SkipType(Type) ;
6568 : : PushTFtok(Sym, Type, tok) ;
6569 : : IF Type=NulSym
6570 : : THEN
6571 : : n1 := GetSymName(Sym) ;
6572 : : IF IsModuleKnown(GetSymName(Sym))
6573 : : THEN
6574 : : WriteFormat2('%a looks like a module which has not been globally imported (eg. suggest that you IMPORT %a ;)',
6575 : : n1, n1)
6576 : : ELSE
6577 : : WriteFormat1('%a is not a record variable', n1)
6578 : : END
6579 : : ELSIF NOT IsRecord(Type)
6580 : : THEN
6581 : : n1 := GetSymName(Type) ;
6582 : : WriteFormat1('%a is not a record type', n1)
6583 : : END ;
6584 : : StartScope(Type) %
6585 : : Ident
6586 : : % PopTtok (name, tok) ;
6587 : : Sym := GetLocalSym(Type, name) ;
6588 : : IF Sym=NulSym
6589 : : THEN
6590 : : n1 := GetSymName(Type) ;
6591 : : WriteFormat2('field %a does not exist within record %a', name, n1)
6592 : : END ;
6593 : : Type := GetType(Sym) ;
6594 : : PushTFtok (Sym, Type, tok) ;
6595 : : EndScope ;
6596 : : PushT(1) ;
6597 : : BuildDesignatorRecord (dotpostok) %
6598 : : | '[' ArrayExpList ']' |
6599 : : '^'
6600 : : % BuildDesignatorPointer (GetTokenNo () -1) %
6601 : :
6602 : :
6603 : : first symbols:uparrowtok, lsbratok, periodtok
6604 : :
6605 : : cannot reachend
6606 : : */
6607 : :
6608 : 52620 : static void SubDesignator (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6609 : : {
6610 : 52620 : unsigned int Sym;
6611 : 52620 : unsigned int Type;
6612 : 52620 : unsigned int tok;
6613 : 52620 : unsigned int dotpostok;
6614 : 52620 : NameKey_Name name;
6615 : 52620 : NameKey_Name n1;
6616 : :
6617 : 52620 : if (M2LexBuf_currenttoken == M2Reserved_periodtok)
6618 : : {
6619 : 17814 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6620 : 17814 : dotpostok = (M2LexBuf_GetTokenNo ())-1;
6621 : 17814 : M2Quads_PopTFtok (&Sym, &Type, &tok);
6622 : 17814 : Type = SymbolTable_SkipType (Type);
6623 : 17814 : M2Quads_PushTFtok (Sym, Type, tok);
6624 : 17814 : if (Type == SymbolTable_NulSym)
6625 : : {
6626 : 6 : n1 = SymbolTable_GetSymName (Sym);
6627 : 6 : if (M2Batch_IsModuleKnown (SymbolTable_GetSymName (Sym)))
6628 : : {
6629 : 6 : M2Error_WriteFormat2 ((const char *) "%a looks like a module which has not been globally imported (eg. suggest that you IMPORT %a ;)", 94, (const unsigned char *) &n1, (sizeof (n1)-1), (const unsigned char *) &n1, (sizeof (n1)-1));
6630 : : }
6631 : : else
6632 : : {
6633 : 0 : M2Error_WriteFormat1 ((const char *) "%a is not a record variable", 27, (const unsigned char *) &n1, (sizeof (n1)-1));
6634 : : }
6635 : : }
6636 : 17808 : else if (! (SymbolTable_IsRecord (Type)))
6637 : : {
6638 : : /* avoid dangling else. */
6639 : 0 : n1 = SymbolTable_GetSymName (Type);
6640 : 0 : M2Error_WriteFormat1 ((const char *) "%a is not a record type", 23, (const unsigned char *) &n1, (sizeof (n1)-1));
6641 : : }
6642 : 17814 : SymbolTable_StartScope (Type);
6643 : 17808 : Ident (stopset0, stopset1, stopset2);
6644 : 17808 : M2Quads_PopTtok (&name, &tok);
6645 : 17808 : Sym = SymbolTable_GetLocalSym (Type, name);
6646 : 17808 : if (Sym == SymbolTable_NulSym)
6647 : : {
6648 : 0 : n1 = SymbolTable_GetSymName (Type);
6649 : 0 : M2Error_WriteFormat2 ((const char *) "field %a does not exist within record %a", 40, (const unsigned char *) &name, (sizeof (name)-1), (const unsigned char *) &n1, (sizeof (n1)-1));
6650 : : }
6651 : 17808 : Type = SymbolTable_GetType (Sym);
6652 : 17808 : M2Quads_PushTFtok (Sym, Type, tok);
6653 : 17808 : SymbolTable_EndScope ();
6654 : 17808 : M2Quads_PushT (static_cast<unsigned int> (1));
6655 : 17808 : M2Quads_BuildDesignatorRecord (dotpostok);
6656 : : }
6657 : 34806 : else if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
6658 : : {
6659 : : /* avoid dangling else. */
6660 : 21336 : Expect (M2Reserved_lsbratok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6661 : 21336 : ArrayExpList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
6662 : 21330 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
6663 : : }
6664 : 13470 : else if (M2LexBuf_currenttoken == M2Reserved_uparrowtok)
6665 : : {
6666 : : /* avoid dangling else. */
6667 : 13470 : Expect (M2Reserved_uparrowtok, stopset0, stopset1, stopset2);
6668 : 13470 : M2Quads_BuildDesignatorPointer ((M2LexBuf_GetTokenNo ())-1);
6669 : : }
6670 : : else
6671 : : {
6672 : : /* avoid dangling else. */
6673 : 0 : ErrorArray ((const char *) "expecting one of: {%K^} {%K[} {%K.}", 35);
6674 : : }
6675 : 52608 : }
6676 : :
6677 : :
6678 : : /*
6679 : : ArrayExpList := Expression
6680 : : % BuildBooleanVariable %
6681 : :
6682 : : % BuildDesignatorArray %
6683 : : { ',' Expression
6684 : : % BuildBooleanVariable %
6685 : :
6686 : : % BuildDesignatorArray %
6687 : : }
6688 : :
6689 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
6690 : :
6691 : : cannot reachend
6692 : : */
6693 : :
6694 : 21336 : static void ArrayExpList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6695 : : {
6696 : 21336 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6697 : 21336 : M2Quads_BuildBooleanVariable ();
6698 : 21336 : M2Quads_BuildDesignatorArray ();
6699 : 43110 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6700 : : {
6701 : 444 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6702 : 444 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6703 : 444 : M2Quads_BuildBooleanVariable ();
6704 : 444 : M2Quads_BuildDesignatorArray ();
6705 : : }
6706 : : /* while */
6707 : 21330 : }
6708 : :
6709 : :
6710 : : /*
6711 : : ExpList :=
6712 : : % VAR n: CARDINAL ; %
6713 : : Expression
6714 : : % BuildBooleanVariable %
6715 : :
6716 : : % n := 1 %
6717 : : { ',' Expression
6718 : : % BuildBooleanVariable %
6719 : :
6720 : : % INC(n) %
6721 : : }
6722 : : % PushT(n) %
6723 : :
6724 : :
6725 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
6726 : :
6727 : : cannot reachend
6728 : : */
6729 : :
6730 : 138944 : static void ExpList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6731 : : {
6732 : 138944 : unsigned int n;
6733 : :
6734 : 138944 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6735 : 138944 : M2Quads_BuildBooleanVariable ();
6736 : 138944 : n = 1;
6737 : 395586 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
6738 : : {
6739 : 117698 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6740 : 117698 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
6741 : 117698 : M2Quads_BuildBooleanVariable ();
6742 : 117698 : n += 1;
6743 : : }
6744 : : /* while */
6745 : 138944 : M2Quads_PushT (n);
6746 : 138944 : }
6747 : :
6748 : :
6749 : : /*
6750 : : Expression :=
6751 : : % VAR tokpos: CARDINAL ; %
6752 : :
6753 : : % PushAutoOn %
6754 : : SimpleExpression [ Relation
6755 : : % tokpos := GetTokenNo ()-1 %
6756 : : SimpleExpression
6757 : :
6758 : : % BuildRelOp (tokpos) %
6759 : : ]
6760 : : % PopAuto %
6761 : :
6762 : :
6763 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
6764 : :
6765 : : cannot reachend
6766 : : */
6767 : :
6768 : 441121 : static void Expression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6769 : : {
6770 : 441121 : unsigned int tokpos;
6771 : :
6772 : 441121 : M2Quads_PushAutoOn ();
6773 : 441121 : SimpleExpression (stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_intok-M2Reserved_arraytok))), stopset2);
6774 : 440983 : if (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_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))
6775 : : {
6776 : 46857 : Relation (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6777 : 46857 : tokpos = (M2LexBuf_GetTokenNo ())-1;
6778 : 46857 : SimpleExpression (stopset0, stopset1, stopset2);
6779 : 46857 : M2Quads_BuildRelOp (tokpos);
6780 : : }
6781 : 440983 : M2Quads_PopAuto ();
6782 : 440983 : }
6783 : :
6784 : :
6785 : : /*
6786 : : SimpleExpression := UnaryOrTerm { AddOperator Term
6787 : :
6788 : : % BuildBinaryOp %
6789 : : }
6790 : :
6791 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
6792 : :
6793 : : cannot reachend
6794 : : */
6795 : :
6796 : 487978 : static void SimpleExpression (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6797 : : {
6798 : 487978 : UnaryOrTerm (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
6799 : 993112 : while (((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_ortok))
6800 : : {
6801 : 17294 : AddOperator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6802 : 17294 : Term (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_ortok-M2Reserved_arraytok))), stopset2);
6803 : 17294 : M2Quads_BuildBinaryOp ();
6804 : : }
6805 : : /* while */
6806 : 487840 : }
6807 : :
6808 : :
6809 : : /*
6810 : : UnaryOrTerm := '+'
6811 : : % PushTtok(PlusTok, GetTokenNo() -1) %
6812 : : Term
6813 : : % BuildUnaryOp %
6814 : : | '-'
6815 : : % PushTtok(MinusTok, GetTokenNo() -1) %
6816 : : Term
6817 : : % BuildUnaryOp %
6818 : : | Term
6819 : :
6820 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
6821 : :
6822 : : cannot reachend
6823 : : */
6824 : :
6825 : 487978 : static void UnaryOrTerm (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6826 : : {
6827 : 487978 : if (M2LexBuf_currenttoken == M2Reserved_plustok)
6828 : : {
6829 : 144 : Expect (M2Reserved_plustok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6830 : 144 : M2Quads_PushTtok (M2Reserved_PlusTok, (M2LexBuf_GetTokenNo ())-1);
6831 : 144 : Term (stopset0, stopset1, stopset2);
6832 : 144 : M2Quads_BuildUnaryOp ();
6833 : : }
6834 : 487834 : else if (M2LexBuf_currenttoken == M2Reserved_minustok)
6835 : : {
6836 : : /* avoid dangling else. */
6837 : 4342 : Expect (M2Reserved_minustok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6838 : 4342 : M2Quads_PushTtok (M2Reserved_MinusTok, (M2LexBuf_GetTokenNo ())-1);
6839 : 4342 : Term (stopset0, stopset1, stopset2);
6840 : 4342 : M2Quads_BuildUnaryOp ();
6841 : : }
6842 : 483492 : else if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6843 : : {
6844 : : /* avoid dangling else. */
6845 : 483492 : Term (stopset0, stopset1, stopset2);
6846 : : }
6847 : : else
6848 : : {
6849 : : /* avoid dangling else. */
6850 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kstring} {%Kinteger number} {%Kreal number} {%Kidentifier} {%K%{} {%K-} {%K+}", 111);
6851 : : }
6852 : 487948 : }
6853 : :
6854 : :
6855 : : /*
6856 : : Term := Factor { MulOperator Factor
6857 : : % BuildBinaryOp %
6858 : : }
6859 : :
6860 : : first symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok
6861 : :
6862 : : cannot reachend
6863 : : */
6864 : :
6865 : 505272 : static void Term (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6866 : : {
6867 : 505272 : Factor (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ambersandtok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_timestok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_modtok-M2Reserved_arraytok)) | (1 << (M2Reserved_divtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
6868 : 1025002 : while ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))))) != 0))) || (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))))) != 0)))) || (M2LexBuf_currenttoken == M2Reserved_remtok))
6869 : : {
6870 : 14488 : MulOperator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6871 : 14488 : Factor (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_timestok-M2Reserved_eoftok)) | (1 << (M2Reserved_dividetok-M2Reserved_eoftok)) | (1 << (M2Reserved_andtok-M2Reserved_eoftok)) | (1 << (M2Reserved_ambersandtok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_divtok-M2Reserved_arraytok)) | (1 << (M2Reserved_modtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_remtok-M2Reserved_unqualifiedtok))));
6872 : 14488 : M2Quads_BuildBinaryOp ();
6873 : : }
6874 : : /* while */
6875 : 505242 : }
6876 : :
6877 : :
6878 : : /*
6879 : : Factor :=
6880 : : % VAR tokpos: CARDINAL ; %
6881 : : Number | string | SetOrDesignatorOrFunction |
6882 : : '(' Expression ')' |
6883 : : 'NOT'
6884 : : % tokpos := GetTokenNo ()-1 %
6885 : : ( Factor
6886 : : % BuildNot (tokpos) %
6887 : : | ConstAttribute )
6888 : :
6889 : : first symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok
6890 : :
6891 : : cannot reachend
6892 : : */
6893 : :
6894 : 523658 : static void Factor (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6895 : : {
6896 : 523658 : unsigned int tokpos;
6897 : :
6898 : 523658 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok))))) != 0)))
6899 : : {
6900 : 82050 : Number (stopset0, stopset1, stopset2);
6901 : : }
6902 : 441608 : else if (M2LexBuf_currenttoken == M2Reserved_stringtok)
6903 : : {
6904 : : /* avoid dangling else. */
6905 : 39414 : string (stopset0, stopset1, stopset2);
6906 : : }
6907 : 402194 : else if ((M2LexBuf_currenttoken == M2Reserved_lcbratok) || (M2LexBuf_currenttoken == M2Reserved_identtok))
6908 : : {
6909 : : /* avoid dangling else. */
6910 : 371454 : SetOrDesignatorOrFunction (stopset0, stopset1, stopset2);
6911 : : }
6912 : 30740 : else if (M2LexBuf_currenttoken == M2Reserved_lparatok)
6913 : : {
6914 : : /* avoid dangling else. */
6915 : 26842 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6916 : 26842 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
6917 : 26842 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
6918 : : }
6919 : 3898 : else if (M2LexBuf_currenttoken == M2Reserved_nottok)
6920 : : {
6921 : : /* avoid dangling else. */
6922 : 3898 : Expect (M2Reserved_nottok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
6923 : 3898 : tokpos = (M2LexBuf_GetTokenNo ())-1;
6924 : 3898 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
6925 : : {
6926 : 3898 : Factor (stopset0, stopset1, stopset2);
6927 : 3898 : M2Quads_BuildNot (tokpos);
6928 : : }
6929 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_attributetok)
6930 : : {
6931 : : /* avoid dangling else. */
6932 : 0 : ConstAttribute (stopset0, stopset1, stopset2);
6933 : : }
6934 : : else
6935 : : {
6936 : : /* avoid dangling else. */
6937 : 0 : ErrorArray ((const char *) "expecting one of: {%K__ATTRIBUTE__} {%Kreal number} {%Kinteger number} {%Kstring} {%K(} {%KNOT} {%K%{} {%Kidentifier}", 117);
6938 : : }
6939 : : }
6940 : : else
6941 : : {
6942 : : /* avoid dangling else. */
6943 : 0 : ErrorArray ((const char *) "expecting one of: {%KNOT} {%K(} {%Kidentifier} {%K%{} {%Kstring} {%Kinteger number} {%Kreal number}", 99);
6944 : : }
6945 : 523628 : }
6946 : :
6947 : :
6948 : : /*
6949 : : SetOrDesignatorOrFunction :=
6950 : : % VAR tokpos: CARDINAL ; %
6951 : :
6952 : : % tokpos := GetTokenNo () %
6953 : : ( Qualident
6954 : : % Assert (OperandTok (1) # UnknownTokenNo) %
6955 : :
6956 : : % CheckWithReference %
6957 : :
6958 : : % Assert (OperandTok (1) # UnknownTokenNo) %
6959 : : [ Constructor |
6960 : : SimpleDes
6961 : : % Assert (OperandTok(1) # UnknownTokenNo) %
6962 : : [ ActualParameters
6963 : :
6964 : : % IF IsInConstParameters ()
6965 : : THEN
6966 : : BuildConstFunctionCall
6967 : : ELSE
6968 : : BuildFunctionCall (FALSE)
6969 : : END %
6970 : : ] ] |
6971 : :
6972 : : % BuildTypeForConstructor (tokpos) %
6973 : : Constructor )
6974 : :
6975 : : first symbols:lcbratok, identtok
6976 : :
6977 : : cannot reachend
6978 : : */
6979 : :
6980 : 371454 : static void SetOrDesignatorOrFunction (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
6981 : : {
6982 : 371454 : unsigned int tokpos;
6983 : :
6984 : 371454 : tokpos = M2LexBuf_GetTokenNo ();
6985 : 371454 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
6986 : : {
6987 : : /* avoid dangling else. */
6988 : 371156 : Qualident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lcbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
6989 : 371156 : M2Debug_Assert ((M2Quads_OperandTok (1)) != M2LexBuf_UnknownTokenNo);
6990 : 371156 : M2Quads_CheckWithReference ();
6991 : 371156 : M2Debug_Assert ((M2Quads_OperandTok (1)) != M2LexBuf_UnknownTokenNo);
6992 : 371156 : if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_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)))
6993 : : {
6994 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
6995 : : /* seen optional [ | ] expression */
6996 : 86636 : if (M2LexBuf_currenttoken == M2Reserved_lcbratok)
6997 : : {
6998 : 3668 : Constructor (stopset0, stopset1, stopset2);
6999 : : }
7000 : 82968 : else if ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_periodtok-M2Reserved_eoftok))))) != 0)))
7001 : : {
7002 : : /* avoid dangling else. */
7003 : 82968 : SimpleDes (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
7004 : : /* Assert (OperandTok(1) # UnknownTokenNo) */
7005 : 82962 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
7006 : : {
7007 : 62778 : ActualParameters (stopset0, stopset1, stopset2);
7008 : 62778 : if (M2Quads_IsInConstParameters ())
7009 : : {
7010 : 48 : M2Quads_BuildConstFunctionCall ();
7011 : : }
7012 : : else
7013 : : {
7014 : 62730 : M2Quads_BuildFunctionCall (false);
7015 : : }
7016 : : }
7017 : : }
7018 : : else
7019 : : {
7020 : : /* avoid dangling else. */
7021 : 0 : ErrorArray ((const char *) "expecting one of: {%K(} {%K^} {%K[} {%K.} {%K%{}", 48);
7022 : : }
7023 : : }
7024 : : /* end of optional [ | ] expression */
7025 : : }
7026 : : else
7027 : : {
7028 : 298 : M2Quads_BuildTypeForConstructor (tokpos);
7029 : 298 : Constructor (stopset0, stopset1, stopset2);
7030 : : }
7031 : 371424 : }
7032 : :
7033 : :
7034 : : /*
7035 : : SimpleDes := { SubDesignator }
7036 : :
7037 : : first symbols:periodtok, lsbratok, uparrowtok
7038 : :
7039 : : reachend
7040 : : */
7041 : :
7042 : 82968 : static void SimpleDes (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7043 : : {
7044 : 113598 : while ((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))))) != 0)))
7045 : : {
7046 : 30636 : SubDesignator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_uparrowtok-M2Reserved_eoftok))), stopset1, stopset2);
7047 : : }
7048 : : /* while */
7049 : 82962 : }
7050 : :
7051 : :
7052 : : /*
7053 : : ActualParameters := '('
7054 : : % BuildSizeCheckStart %
7055 : : ( ExpList |
7056 : : % BuildNulParam %
7057 : : ) ')'
7058 : :
7059 : : first symbols:lparatok
7060 : :
7061 : : cannot reachend
7062 : : */
7063 : :
7064 : 142244 : static void ActualParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7065 : : {
7066 : 142244 : Expect (M2Reserved_lparatok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7067 : 142244 : M2Quads_BuildSizeCheckStart ();
7068 : 142244 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
7069 : : {
7070 : 138944 : ExpList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7071 : : }
7072 : : else
7073 : : {
7074 : 3300 : M2Quads_BuildNulParam ();
7075 : : }
7076 : 142244 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
7077 : 142244 : }
7078 : :
7079 : :
7080 : : /*
7081 : : ExitStatement := 'EXIT'
7082 : : % BuildExit %
7083 : :
7084 : :
7085 : : first symbols:exittok
7086 : :
7087 : : cannot reachend
7088 : : */
7089 : :
7090 : 94 : static void ExitStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7091 : : {
7092 : 0 : Expect (M2Reserved_exittok, stopset0, stopset1, stopset2);
7093 : 0 : M2Quads_BuildExit ();
7094 : 94 : }
7095 : :
7096 : :
7097 : : /*
7098 : : ReturnStatement := 'RETURN'
7099 : : % VAR tokno: CARDINAL ; %
7100 : :
7101 : : % tokno := GetTokenNo () -1 %
7102 : : ( Expression |
7103 : : % BuildNulExpression (tokno) %
7104 : : )
7105 : : % BuildReturn (tokno) %
7106 : :
7107 : :
7108 : : first symbols:returntok
7109 : :
7110 : : cannot reachend
7111 : : */
7112 : :
7113 : 14180 : static void ReturnStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7114 : : {
7115 : 14180 : unsigned int tokno;
7116 : :
7117 : 14180 : Expect (M2Reserved_returntok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7118 : 14180 : tokno = (M2LexBuf_GetTokenNo ())-1;
7119 : 14180 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
7120 : : {
7121 : 13464 : Expression (stopset0, stopset1, stopset2);
7122 : : }
7123 : : else
7124 : : {
7125 : 716 : M2Quads_BuildNulExpression (tokno);
7126 : : }
7127 : 14180 : M2Quads_BuildReturn (tokno);
7128 : 14180 : }
7129 : :
7130 : :
7131 : : /*
7132 : : Statement :=
7133 : : % BuildStmtNote (0) %
7134 : :
7135 : : % PushAutoOn ; DisplayStack %
7136 : : [ AssignmentOrProcedureCall |
7137 : : IfStatement | CaseStatement |
7138 : : WhileStatement |
7139 : : RepeatStatement |
7140 : : LoopStatement | ForStatement |
7141 : : WithStatement | AsmStatement |
7142 : : ExitStatement | ReturnStatement |
7143 : : RetryStatement ]
7144 : : % PopAuto ; %
7145 : :
7146 : :
7147 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
7148 : :
7149 : : reachend
7150 : : */
7151 : :
7152 : 237084 : static void Statement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7153 : : {
7154 : 237084 : M2Quads_BuildStmtNote (0);
7155 : 237084 : M2Quads_PushAutoOn ();
7156 : 237084 : M2Quads_DisplayStack ();
7157 : 237084 : if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_exittok-M2Reserved_arraytok)) | (1 << (M2Reserved_fortok-M2Reserved_arraytok)) | (1 << (M2Reserved_looptok-M2Reserved_arraytok)) | (1 << (M2Reserved_casetok-M2Reserved_arraytok)) | (1 << (M2Reserved_iftok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
7158 : : {
7159 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7160 : : /* seen optional [ | ] expression */
7161 : 227820 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
7162 : : {
7163 : 166780 : AssignmentOrProcedureCall (stopset0, stopset1, stopset2);
7164 : : }
7165 : : else if (M2LexBuf_currenttoken == M2Reserved_iftok)
7166 : : {
7167 : : /* avoid dangling else. */
7168 : 31650 : IfStatement (stopset0, stopset1, stopset2);
7169 : : }
7170 : : else if (M2LexBuf_currenttoken == M2Reserved_casetok)
7171 : : {
7172 : : /* avoid dangling else. */
7173 : 580 : CaseStatement (stopset0, stopset1, stopset2);
7174 : : }
7175 : : else if (M2LexBuf_currenttoken == M2Reserved_whiletok)
7176 : : {
7177 : : /* avoid dangling else. */
7178 : 5544 : WhileStatement (stopset0, stopset1, stopset2);
7179 : : }
7180 : : else if (M2LexBuf_currenttoken == M2Reserved_repeattok)
7181 : : {
7182 : : /* avoid dangling else. */
7183 : 1192 : RepeatStatement (stopset0, stopset1, stopset2);
7184 : : }
7185 : : else if (M2LexBuf_currenttoken == M2Reserved_looptok)
7186 : : {
7187 : : /* avoid dangling else. */
7188 : 502 : LoopStatement (stopset0, stopset1, stopset2);
7189 : : }
7190 : : else if (M2LexBuf_currenttoken == M2Reserved_fortok)
7191 : : {
7192 : : /* avoid dangling else. */
7193 : 2018 : ForStatement (stopset0, stopset1, stopset2);
7194 : : }
7195 : : else if (M2LexBuf_currenttoken == M2Reserved_withtok)
7196 : : {
7197 : : /* avoid dangling else. */
7198 : 5136 : WithStatement (stopset0, stopset1, stopset2);
7199 : : }
7200 : : else if (M2LexBuf_currenttoken == M2Reserved_asmtok)
7201 : : {
7202 : : /* avoid dangling else. */
7203 : 24 : AsmStatement (stopset0, stopset1, stopset2);
7204 : : }
7205 : : else if (M2LexBuf_currenttoken == M2Reserved_exittok)
7206 : : {
7207 : : /* avoid dangling else. */
7208 : 94 : ExitStatement (stopset0, stopset1, stopset2);
7209 : : }
7210 : : else if (M2LexBuf_currenttoken == M2Reserved_returntok)
7211 : : {
7212 : : /* avoid dangling else. */
7213 : 14180 : ReturnStatement (stopset0, stopset1, stopset2);
7214 : : }
7215 : : else if (M2LexBuf_currenttoken == M2Reserved_retrytok)
7216 : : {
7217 : : /* avoid dangling else. */
7218 : 120 : RetryStatement (stopset0, stopset1, stopset2);
7219 : : }
7220 : : else
7221 : : {
7222 : : /* avoid dangling else. */
7223 : 0 : ErrorArray ((const char *) "expecting one of: {%KRETRY} {%KRETURN} {%KEXIT} {%KASM} {%KWITH} {%KFOR} {%KLOOP} {%KREPEAT} {%KWHILE} {%KCASE} {%KIF} {%Kidentifier}", 133);
7224 : : }
7225 : : }
7226 : : /* end of optional [ | ] expression */
7227 : 236922 : M2Quads_PopAuto ();
7228 : 236922 : }
7229 : :
7230 : :
7231 : : /*
7232 : : RetryStatement := 'RETRY'
7233 : : % BuildRetry (GetTokenNo () -1) %
7234 : :
7235 : :
7236 : : first symbols:retrytok
7237 : :
7238 : : cannot reachend
7239 : : */
7240 : :
7241 : 120 : static void RetryStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7242 : : {
7243 : 120 : Expect (M2Reserved_retrytok, stopset0, stopset1, stopset2);
7244 : 120 : M2Quads_BuildRetry ((M2LexBuf_GetTokenNo ())-1);
7245 : 120 : }
7246 : :
7247 : :
7248 : : /*
7249 : : AssignmentOrProcedureCall :=
7250 : : % VAR isFunc: BOOLEAN ;
7251 : : tokno : CARDINAL ; %
7252 : :
7253 : : % DisplayStack %
7254 : : Designator
7255 : : % tokno := GetTokenNo () %
7256 : : ( ':='
7257 : : % PrintTokenNo (tokno) %
7258 : : Expression
7259 : : % BuildAssignment (tokno) %
7260 : : |
7261 : :
7262 : : % isFunc := CheckBuildFunction() %
7263 : : ( ActualParameters |
7264 : :
7265 : : % BuildNulParam in epsilon %
7266 : : )
7267 : : % IF isFunc
7268 : : THEN
7269 : : BuildFunctionCall (FALSE) ;
7270 : : BuildAssignment (tokno)
7271 : : ELSE
7272 : : BuildProcedureCall (tokno - 1)
7273 : : END %
7274 : : )
7275 : : % DisplayStack %
7276 : :
7277 : :
7278 : : first symbols:identtok
7279 : :
7280 : : cannot reachend
7281 : : */
7282 : :
7283 : 166780 : static void AssignmentOrProcedureCall (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7284 : : {
7285 : 166780 : bool isFunc;
7286 : 166780 : unsigned int tokno;
7287 : :
7288 : 166780 : M2Quads_DisplayStack ();
7289 : 166780 : Designator (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_becomestok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
7290 : 166774 : tokno = M2LexBuf_GetTokenNo ();
7291 : 166774 : if (M2LexBuf_currenttoken == M2Reserved_becomestok)
7292 : : {
7293 : 76659 : Expect (M2Reserved_becomestok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7294 : : /* PrintTokenNo (tokno) */
7295 : 76659 : Expression (stopset0, stopset1, stopset2);
7296 : 76527 : M2Quads_BuildAssignment (tokno);
7297 : : }
7298 : : else
7299 : : {
7300 : 90115 : isFunc = M2Quads_CheckBuildFunction ();
7301 : 90115 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
7302 : : {
7303 : 77844 : ActualParameters (stopset0, stopset1, stopset2);
7304 : : }
7305 : : else
7306 : : {
7307 : 12271 : M2Quads_BuildNulParam (); /* in epsilon */
7308 : : }
7309 : 90115 : if (isFunc)
7310 : : {
7311 : 0 : M2Quads_BuildFunctionCall (false);
7312 : 0 : M2Quads_BuildAssignment (tokno);
7313 : : }
7314 : : else
7315 : : {
7316 : 90115 : M2Quads_BuildProcedureCall (tokno-1);
7317 : : }
7318 : : }
7319 : 166636 : M2Quads_DisplayStack ();
7320 : 166636 : }
7321 : :
7322 : :
7323 : : /*
7324 : : StatementSequence := Statement { ';' Statement }
7325 : :
7326 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
7327 : :
7328 : : reachend
7329 : : */
7330 : :
7331 : 103751 : static void StatementSequence (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7332 : : {
7333 : 103751 : Statement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7334 : 340673 : while (M2LexBuf_currenttoken == M2Reserved_semicolontok)
7335 : : {
7336 : 133333 : Expect (M2Reserved_semicolontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7337 : 133333 : Statement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7338 : : }
7339 : : /* while */
7340 : 103589 : }
7341 : :
7342 : :
7343 : : /*
7344 : : IfStatement := 'IF' Expression 'THEN'
7345 : : % BuildThenIf %
7346 : :
7347 : : % BuildStmtNote (-1) %
7348 : : StatementSequence { 'ELSIF'
7349 : : % BuildElsif1 %
7350 : :
7351 : : % BuildStmtNote (-1) %
7352 : : Expression 'THEN'
7353 : :
7354 : : % BuildThenIf %
7355 : :
7356 : : % BuildStmtNote (-1) %
7357 : : StatementSequence
7358 : :
7359 : : % BuildElsif2 %
7360 : : } [ 'ELSE'
7361 : : % BuildElse %
7362 : :
7363 : : % BuildStmtNote (-1) %
7364 : : StatementSequence ]
7365 : : 'END'
7366 : : % BuildEndIf %
7367 : :
7368 : : % BuildStmtNote (-1) %
7369 : :
7370 : :
7371 : : first symbols:iftok
7372 : :
7373 : : cannot reachend
7374 : : */
7375 : :
7376 : 31650 : static void IfStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7377 : : {
7378 : 31650 : Expect (M2Reserved_iftok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7379 : 31650 : Expression (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok))));
7380 : 31644 : Expect (M2Reserved_thentok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7381 : 31644 : M2Quads_BuildThenIf ();
7382 : 31644 : M2Quads_BuildStmtNote (-1);
7383 : 31644 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_elsiftok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7384 : 65996 : while (M2LexBuf_currenttoken == M2Reserved_elsiftok)
7385 : : {
7386 : 2708 : Expect (M2Reserved_elsiftok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7387 : 2708 : M2Quads_BuildElsif1 ();
7388 : 2708 : M2Quads_BuildStmtNote (-1);
7389 : 2708 : Expression (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_thentok-M2Reserved_unqualifiedtok))));
7390 : 2708 : Expect (M2Reserved_thentok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7391 : 2708 : M2Quads_BuildThenIf ();
7392 : 2708 : M2Quads_BuildStmtNote (-1);
7393 : 2708 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsiftok-M2Reserved_arraytok))), stopset2);
7394 : 2708 : M2Quads_BuildElsif2 ();
7395 : : }
7396 : : /* while */
7397 : 31644 : if (M2LexBuf_currenttoken == M2Reserved_elsetok)
7398 : : {
7399 : 11397 : Expect (M2Reserved_elsetok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7400 : 11397 : M2Quads_BuildElse ();
7401 : 11397 : M2Quads_BuildStmtNote (-1);
7402 : 11397 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7403 : : }
7404 : 31644 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7405 : 31644 : M2Quads_BuildEndIf ();
7406 : 31644 : M2Quads_BuildStmtNote (-1);
7407 : 31644 : }
7408 : :
7409 : :
7410 : : /*
7411 : : CaseStatement := 'CASE' Expression
7412 : : % BuildCaseStart %
7413 : : 'OF' Case { '|' Case } CaseEndStatement
7414 : :
7415 : : first symbols:casetok
7416 : :
7417 : : cannot reachend
7418 : : */
7419 : :
7420 : 580 : static void CaseStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7421 : : {
7422 : 580 : Expect (M2Reserved_casetok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7423 : 580 : Expression (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
7424 : 580 : M2Quads_BuildCaseStart ();
7425 : 580 : Expect (M2Reserved_oftok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
7426 : 580 : Case (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7427 : 3318 : while (M2LexBuf_currenttoken == M2Reserved_bartok)
7428 : : {
7429 : 2158 : Expect (M2Reserved_bartok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok)) | (1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
7430 : 2158 : Case (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_bartok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_elsetok-M2Reserved_arraytok))), stopset2);
7431 : : }
7432 : : /* while */
7433 : 580 : CaseEndStatement (stopset0, stopset1, stopset2);
7434 : 580 : }
7435 : :
7436 : :
7437 : : /*
7438 : : CaseEndStatement := 'END'
7439 : : % BuildStmtNote (-1) %
7440 : :
7441 : : % BuildCaseElse %
7442 : :
7443 : : % BuildCaseCheck %
7444 : :
7445 : : % BuildCaseEnd %
7446 : : | 'ELSE'
7447 : : % BuildStmtNote (-1) %
7448 : :
7449 : : % BuildCaseElse %
7450 : :
7451 : : % ElseCase (NulSym) %
7452 : : StatementSequence
7453 : : % BuildStmtNote (0) %
7454 : : 'END'
7455 : : % BuildCaseEnd %
7456 : :
7457 : :
7458 : : first symbols:elsetok, endtok
7459 : :
7460 : : cannot reachend
7461 : : */
7462 : :
7463 : 580 : static void CaseEndStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7464 : : {
7465 : 580 : if (M2LexBuf_currenttoken == M2Reserved_endtok)
7466 : : {
7467 : 336 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7468 : 336 : M2Quads_BuildStmtNote (-1);
7469 : 336 : M2Quads_BuildCaseElse ();
7470 : 336 : M2Quads_BuildCaseCheck ();
7471 : 336 : M2Quads_BuildCaseEnd ();
7472 : : }
7473 : 244 : else if (M2LexBuf_currenttoken == M2Reserved_elsetok)
7474 : : {
7475 : : /* avoid dangling else. */
7476 : 244 : Expect (M2Reserved_elsetok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7477 : 244 : M2Quads_BuildStmtNote (-1);
7478 : 244 : M2Quads_BuildCaseElse ();
7479 : 244 : M2CaseList_ElseCase (SymbolTable_NulSym);
7480 : 244 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7481 : 244 : M2Quads_BuildStmtNote (0);
7482 : 244 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7483 : 244 : M2Quads_BuildCaseEnd ();
7484 : : }
7485 : : else
7486 : : {
7487 : : /* avoid dangling else. */
7488 : 0 : ErrorArray ((const char *) "expecting one of: {%KELSE} {%KEND}", 34);
7489 : : }
7490 : 580 : }
7491 : :
7492 : :
7493 : : /*
7494 : : Case := [
7495 : : % BuildStmtNote (-1) %
7496 : : CaseLabelList
7497 : : % BuildCaseStartStatementSequence %
7498 : : ':' StatementSequence
7499 : : % BuildCaseEndStatementSequence %
7500 : :
7501 : : % EndCaseList %
7502 : : ]
7503 : :
7504 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
7505 : :
7506 : : reachend
7507 : : */
7508 : :
7509 : 2738 : static void Case (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7510 : : {
7511 : 2738 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0))))
7512 : : {
7513 : 2650 : M2Quads_BuildStmtNote (-1);
7514 : 2650 : CaseLabelList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
7515 : 2650 : M2Quads_BuildCaseStartStatementSequence ();
7516 : 2650 : Expect (M2Reserved_colontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7517 : 2650 : StatementSequence (stopset0, stopset1, stopset2);
7518 : 2650 : M2Quads_BuildCaseEndStatementSequence ();
7519 : 2650 : M2CaseList_EndCaseList ();
7520 : : }
7521 : 2738 : }
7522 : :
7523 : :
7524 : : /*
7525 : : CaseLabelList :=
7526 : : % BeginCaseList(NulSym) %
7527 : : CaseLabels { ','
7528 : : % BuildCaseOr %
7529 : : CaseLabels }
7530 : :
7531 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
7532 : :
7533 : : cannot reachend
7534 : : */
7535 : :
7536 : 2650 : static void CaseLabelList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7537 : : {
7538 : 2650 : M2CaseList_BeginCaseList (SymbolTable_NulSym);
7539 : 2650 : CaseLabels (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
7540 : 5350 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
7541 : : {
7542 : 50 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
7543 : 50 : M2Quads_BuildCaseOr ();
7544 : 50 : CaseLabels (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
7545 : : }
7546 : : /* while */
7547 : 2650 : }
7548 : :
7549 : :
7550 : : /*
7551 : : CaseLabels := ConstExpression ( '..' ConstExpression
7552 : :
7553 : : % BuildCaseRange ;
7554 : : BuildCaseList %
7555 : : |
7556 : :
7557 : : % BuildCaseEquality ; epsilon
7558 : : BuildCaseList %
7559 : : )
7560 : :
7561 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
7562 : :
7563 : : cannot reachend
7564 : : */
7565 : :
7566 : 2700 : static void CaseLabels (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7567 : : {
7568 : 2700 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodperiodtok-M2Reserved_eoftok))), stopset1, stopset2);
7569 : 2700 : if (M2LexBuf_currenttoken == M2Reserved_periodperiodtok)
7570 : : {
7571 : 168 : Expect (M2Reserved_periodperiodtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
7572 : 168 : ConstExpression (stopset0, stopset1, stopset2);
7573 : 168 : M2Quads_BuildCaseRange ();
7574 : 168 : M2Quads_BuildCaseList ();
7575 : : }
7576 : : else
7577 : : {
7578 : 2532 : M2Quads_BuildCaseEquality (); /* epsilon */
7579 : 2532 : M2Quads_BuildCaseList (); /* epsilon */
7580 : : }
7581 : 2700 : }
7582 : :
7583 : :
7584 : : /*
7585 : : WhileStatement := 'WHILE'
7586 : : % BuildWhile %
7587 : :
7588 : : % BuildStmtNote (0) %
7589 : : Expression
7590 : : % BuildStmtNote (0) %
7591 : : 'DO'
7592 : : % BuildDoWhile %
7593 : : StatementSequence
7594 : : % BuildStmtNote (0) %
7595 : : 'END'
7596 : : % DisplayStack ; BuildEndWhile %
7597 : :
7598 : :
7599 : : first symbols:whiletok
7600 : :
7601 : : cannot reachend
7602 : : */
7603 : :
7604 : 5544 : static void WhileStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7605 : : {
7606 : 5544 : Expect (M2Reserved_whiletok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7607 : 5544 : M2Quads_BuildWhile ();
7608 : 5544 : M2Quads_BuildStmtNote (0);
7609 : 5544 : Expression (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7610 : 5544 : M2Quads_BuildStmtNote (0);
7611 : 5544 : Expect (M2Reserved_dotok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7612 : 5544 : M2Quads_BuildDoWhile ();
7613 : 5544 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7614 : 5544 : M2Quads_BuildStmtNote (0);
7615 : 5544 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7616 : 5544 : M2Quads_DisplayStack ();
7617 : 5544 : M2Quads_BuildEndWhile ();
7618 : 5544 : }
7619 : :
7620 : :
7621 : : /*
7622 : : RepeatStatement := 'REPEAT'
7623 : : % BuildRepeat %
7624 : : StatementSequence
7625 : : % BuildStmtNote (0) %
7626 : : 'UNTIL' Expression
7627 : : % BuildUntil %
7628 : :
7629 : :
7630 : : first symbols:repeattok
7631 : :
7632 : : cannot reachend
7633 : : */
7634 : :
7635 : 1192 : static void RepeatStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7636 : : {
7637 : 1192 : Expect (M2Reserved_repeattok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7638 : 1192 : M2Quads_BuildRepeat ();
7639 : 1192 : StatementSequence (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_untiltok-M2Reserved_unqualifiedtok))));
7640 : 1192 : M2Quads_BuildStmtNote (0);
7641 : 1192 : Expect (M2Reserved_untiltok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7642 : 1192 : Expression (stopset0, stopset1, stopset2);
7643 : 1192 : M2Quads_BuildUntil ();
7644 : 1192 : }
7645 : :
7646 : :
7647 : : /*
7648 : : ForStatement :=
7649 : : % VAR endpostok: CARDINAL ; %
7650 : :
7651 : : % PushLineNo %
7652 : : 'FOR' Ident ':=' Expression 'TO'
7653 : : Expression ( 'BY' ConstExpression |
7654 : :
7655 : : % BuildPseudoBy epsilon %
7656 : : )
7657 : : % PushLineNo %
7658 : :
7659 : : % BuildStmtNote (0) %
7660 : : 'DO'
7661 : : % BuildForToByDo %
7662 : : StatementSequence
7663 : : % BuildStmtNote (0) %
7664 : :
7665 : : % endpostok := GetTokenNo () %
7666 : : 'END'
7667 : : % BuildEndFor (endpostok) %
7668 : :
7669 : :
7670 : : first symbols:fortok
7671 : :
7672 : : cannot reachend
7673 : : */
7674 : :
7675 : 2018 : static void ForStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7676 : : {
7677 : 2018 : unsigned int endpostok;
7678 : :
7679 : 2018 : M2Quads_PushLineNo ();
7680 : 2018 : Expect (M2Reserved_fortok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7681 : 2018 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_becomestok-M2Reserved_eoftok))), stopset1, stopset2);
7682 : 2018 : Expect (M2Reserved_becomestok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7683 : 2018 : Expression (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_totok-M2Reserved_unqualifiedtok))));
7684 : 2018 : Expect (M2Reserved_totok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7685 : 2018 : Expression (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_bytok-M2Reserved_arraytok)) | (1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7686 : 2018 : if (M2LexBuf_currenttoken == M2Reserved_bytok)
7687 : : {
7688 : 342 : Expect (M2Reserved_bytok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
7689 : 342 : ConstExpression (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7690 : : }
7691 : : else
7692 : : {
7693 : 1676 : M2Quads_BuildPseudoBy (); /* epsilon */
7694 : : }
7695 : 2018 : M2Quads_PushLineNo ();
7696 : 2018 : M2Quads_BuildStmtNote (0);
7697 : 2018 : Expect (M2Reserved_dotok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7698 : 2018 : M2Quads_BuildForToByDo ();
7699 : 2012 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7700 : 2012 : M2Quads_BuildStmtNote (0);
7701 : 2012 : endpostok = M2LexBuf_GetTokenNo ();
7702 : 2012 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7703 : 2012 : M2Quads_BuildEndFor (endpostok);
7704 : 2012 : }
7705 : :
7706 : :
7707 : : /*
7708 : : LoopStatement := 'LOOP'
7709 : : % BuildLoop %
7710 : : StatementSequence
7711 : : % BuildStmtNote (0) %
7712 : : 'END'
7713 : : % BuildEndLoop %
7714 : :
7715 : :
7716 : : first symbols:looptok
7717 : :
7718 : : cannot reachend
7719 : : */
7720 : :
7721 : 502 : static void LoopStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7722 : : {
7723 : 502 : Expect (M2Reserved_looptok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7724 : 502 : M2Quads_BuildLoop ();
7725 : 502 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7726 : 502 : M2Quads_BuildStmtNote (0);
7727 : 502 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7728 : 502 : M2Quads_BuildEndLoop ();
7729 : 502 : }
7730 : :
7731 : :
7732 : : /*
7733 : : WithStatement :=
7734 : : % VAR
7735 : : tok: CARDINAL ; %
7736 : : 'WITH'
7737 : : % tok := GetTokenNo () -1 %
7738 : : Designator
7739 : : % StartBuildWith (tok) %
7740 : :
7741 : : % BuildStmtNote (0) %
7742 : : 'DO' StatementSequence
7743 : : % BuildStmtNote (0) %
7744 : : 'END'
7745 : : % EndBuildWith %
7746 : :
7747 : :
7748 : : first symbols:withtok
7749 : :
7750 : : cannot reachend
7751 : : */
7752 : :
7753 : 5136 : static void WithStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7754 : : {
7755 : 5136 : unsigned int tok;
7756 : :
7757 : 5136 : Expect (M2Reserved_withtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7758 : 5136 : tok = (M2LexBuf_GetTokenNo ())-1;
7759 : 5136 : Designator (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_dotok-M2Reserved_arraytok))), stopset2);
7760 : 5136 : M2Quads_StartBuildWith (tok);
7761 : 5130 : M2Quads_BuildStmtNote (0);
7762 : 5130 : Expect (M2Reserved_dotok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
7763 : 5130 : StatementSequence (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
7764 : 5130 : M2Quads_BuildStmtNote (0);
7765 : 5130 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
7766 : 5130 : M2Quads_EndBuildWith ();
7767 : 5130 : }
7768 : :
7769 : :
7770 : : /*
7771 : : ProcedureDeclaration :=
7772 : : % VAR top: CARDINAL ; %
7773 : :
7774 : : % top := Top () %
7775 : : ProcedureHeading ';' PostProcedureHeading
7776 : :
7777 : : % Assert (top = Top ()) %
7778 : :
7779 : :
7780 : : first symbols:proceduretok
7781 : :
7782 : : cannot reachend
7783 : : */
7784 : :
7785 : 28881 : static void ProcedureDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7786 : : {
7787 : 28881 : unsigned int top;
7788 : :
7789 : 28881 : top = M2Quads_Top ();
7790 : 28881 : ProcedureHeading (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
7791 : 28881 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_forwardtok-M2Reserved_arraytok)) | (1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
7792 : 28881 : PostProcedureHeading (stopset0, stopset1, stopset2);
7793 : 28839 : M2Debug_Assert (top == (M2Quads_Top ()));
7794 : 28839 : }
7795 : :
7796 : :
7797 : : /*
7798 : : PostProcedureHeading := ProperProcedure |
7799 : : ForwardDeclaration
7800 : :
7801 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok, forwardtok
7802 : :
7803 : : cannot reachend
7804 : : */
7805 : :
7806 : 28881 : static void PostProcedureHeading (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7807 : : {
7808 : 28881 : if ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_begintok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
7809 : : {
7810 : 28857 : ProperProcedure (stopset0, stopset1, stopset2);
7811 : : }
7812 : 24 : else if (M2LexBuf_currenttoken == M2Reserved_forwardtok)
7813 : : {
7814 : : /* avoid dangling else. */
7815 : 48 : ForwardDeclaration (stopset0, stopset1, stopset2);
7816 : : }
7817 : : else
7818 : : {
7819 : : /* avoid dangling else. */
7820 : 0 : ErrorArray ((const char *) "expecting one of: {%KFORWARD} {%KEND} {%KBEGIN} {%KCONST} {%KTYPE} {%KVAR} {%KPROCEDURE} {%KMODULE}", 99);
7821 : : }
7822 : 28839 : }
7823 : :
7824 : :
7825 : : /*
7826 : : ForwardDeclaration := 'FORWARD'
7827 : : % EndBuildForward %
7828 : :
7829 : :
7830 : : first symbols:forwardtok
7831 : :
7832 : : cannot reachend
7833 : : */
7834 : :
7835 : 24 : static void ForwardDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7836 : : {
7837 : 24 : Expect (M2Reserved_forwardtok, stopset0, stopset1, stopset2);
7838 : 24 : P3SymBuild_EndBuildForward ();
7839 : 24 : }
7840 : :
7841 : :
7842 : : /*
7843 : : ProperProcedure := ProcedureBlock
7844 : : % BuildProcedureEnd ;
7845 : : PushAutoOn %
7846 : : Ident
7847 : : % EndBuildProcedure ;
7848 : : PopAuto %
7849 : :
7850 : :
7851 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok, begintok, endtok
7852 : :
7853 : : cannot reachend
7854 : : */
7855 : :
7856 : 28857 : static void ProperProcedure (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7857 : : {
7858 : 28857 : ProcedureBlock (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7859 : 28815 : M2Quads_BuildProcedureEnd ();
7860 : 28815 : M2Quads_PushAutoOn ();
7861 : 28815 : Ident (stopset0, stopset1, stopset2);
7862 : 28815 : P3SymBuild_EndBuildProcedure ();
7863 : 28815 : M2Quads_PopAuto ();
7864 : 28815 : }
7865 : :
7866 : :
7867 : : /*
7868 : : DefineBuiltinProcedure := [ '__ATTRIBUTE__' '__BUILTIN__'
7869 : : '(' '('
7870 : : % PushAutoOff %
7871 : : Ident
7872 : : % PopAuto %
7873 : : ')' ')' |
7874 : : '__INLINE__' ]
7875 : :
7876 : : first symbols:inlinetok, attributetok
7877 : :
7878 : : reachend
7879 : : */
7880 : :
7881 : 28881 : static void DefineBuiltinProcedure (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7882 : : {
7883 : 28881 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0)))
7884 : : {
7885 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7886 : : /* seen optional [ | ] expression */
7887 : 900 : if (M2LexBuf_currenttoken == M2Reserved_attributetok)
7888 : : {
7889 : 900 : Expect (M2Reserved_attributetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))));
7890 : 900 : Expect (M2Reserved_builtintok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
7891 : 900 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
7892 : 900 : Expect (M2Reserved_lparatok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7893 : 900 : M2Quads_PushAutoOff ();
7894 : 900 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7895 : 900 : M2Quads_PopAuto ();
7896 : 900 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
7897 : 900 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
7898 : : }
7899 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_inlinetok)
7900 : : {
7901 : : /* avoid dangling else. */
7902 : 0 : Expect (M2Reserved_inlinetok, stopset0, stopset1, stopset2);
7903 : : }
7904 : : else
7905 : : {
7906 : : /* avoid dangling else. */
7907 : 0 : ErrorArray ((const char *) "expecting one of: {%K__INLINE__} {%K__ATTRIBUTE__}", 50);
7908 : : }
7909 : : }
7910 : : /* end of optional [ | ] expression */
7911 : 28881 : }
7912 : :
7913 : :
7914 : : /*
7915 : : ProcedureHeading := 'PROCEDURE'
7916 : : % M2Error.DefaultProcedure %
7917 : :
7918 : : % PushAutoOn %
7919 : : DefineBuiltinProcedure ( Ident
7920 : :
7921 : : % StartBuildProcedure ;
7922 : : PushAutoOff %
7923 : : [ FormalParameters ]
7924 : : AttributeNoReturn
7925 : :
7926 : : % BuildProcedureHeading ;
7927 : : PopAuto %
7928 : : )
7929 : :
7930 : : % PopAuto %
7931 : :
7932 : :
7933 : : first symbols:proceduretok
7934 : :
7935 : : cannot reachend
7936 : : */
7937 : :
7938 : 28881 : static void ProcedureHeading (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7939 : : {
7940 : 28881 : Expect (M2Reserved_proceduretok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7941 : 28881 : M2Error_DefaultProcedure ();
7942 : 28881 : M2Quads_PushAutoOn ();
7943 : 28881 : DefineBuiltinProcedure (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
7944 : 28881 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7945 : 28881 : P3SymBuild_StartBuildProcedure ();
7946 : 28881 : M2Quads_PushAutoOff ();
7947 : 28881 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
7948 : : {
7949 : 24022 : FormalParameters (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
7950 : : }
7951 : 28881 : AttributeNoReturn (stopset0, stopset1, stopset2);
7952 : 28881 : P3SymBuild_BuildProcedureHeading ();
7953 : 28881 : M2Quads_PopAuto ();
7954 : 28881 : M2Quads_PopAuto ();
7955 : 28881 : }
7956 : :
7957 : :
7958 : : /*
7959 : : Builtin := [ '__BUILTIN__' | '__INLINE__' ]
7960 : :
7961 : : first symbols:inlinetok, builtintok
7962 : :
7963 : : reachend
7964 : : */
7965 : :
7966 : 1912087 : static void Builtin (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
7967 : : {
7968 : 1912087 : if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok))))) != 0)))
7969 : : {
7970 : : /* avoid gcc warning by using compound statement even if not strictly necessary. */
7971 : : /* seen optional [ | ] expression */
7972 : 50500 : if (M2LexBuf_currenttoken == M2Reserved_builtintok)
7973 : : {
7974 : 50500 : Expect (M2Reserved_builtintok, stopset0, stopset1, stopset2);
7975 : : }
7976 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_inlinetok)
7977 : : {
7978 : : /* avoid dangling else. */
7979 : 0 : Expect (M2Reserved_inlinetok, stopset0, stopset1, stopset2);
7980 : : }
7981 : : else
7982 : : {
7983 : : /* avoid dangling else. */
7984 : 0 : ErrorArray ((const char *) "expecting one of: {%K__INLINE__} {%K__BUILTIN__}", 48);
7985 : : }
7986 : : }
7987 : : /* end of optional [ | ] expression */
7988 : 1912087 : }
7989 : :
7990 : :
7991 : : /*
7992 : : DefProcedureHeading := 'PROCEDURE'
7993 : : % M2Error.DefaultProcedure %
7994 : :
7995 : : % PushAutoOn %
7996 : : Builtin ( Ident
7997 : : % StartBuildProcedure ;
7998 : : PushAutoOff %
7999 : : [ DefFormalParameters ]
8000 : : AttributeNoReturn
8001 : :
8002 : : % BuildProcedureHeading ;
8003 : : PopAuto %
8004 : : )
8005 : : % PopAuto %
8006 : :
8007 : : % M2Error.LeaveErrorScope %
8008 : :
8009 : :
8010 : : first symbols:proceduretok
8011 : :
8012 : : cannot reachend
8013 : : */
8014 : :
8015 : 1912087 : static void DefProcedureHeading (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8016 : : {
8017 : 1912087 : Expect (M2Reserved_proceduretok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_inlinetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_builtintok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8018 : 1912087 : M2Error_DefaultProcedure ();
8019 : 1912087 : M2Quads_PushAutoOn ();
8020 : 1912087 : Builtin (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8021 : 1912087 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
8022 : 1912087 : P3SymBuild_StartBuildProcedure ();
8023 : 1912087 : M2Quads_PushAutoOff ();
8024 : 1912087 : if (M2LexBuf_currenttoken == M2Reserved_lparatok)
8025 : : {
8026 : 1816109 : DefFormalParameters (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
8027 : : }
8028 : 1912087 : AttributeNoReturn (stopset0, stopset1, stopset2);
8029 : 1912087 : P3SymBuild_BuildProcedureHeading ();
8030 : 1912087 : M2Quads_PopAuto ();
8031 : 1912087 : M2Quads_PopAuto ();
8032 : 1912087 : M2Error_LeaveErrorScope ();
8033 : 1912087 : }
8034 : :
8035 : :
8036 : : /*
8037 : : AttributeNoReturn := [ '' ]
8038 : :
8039 : : first symbols:ldirectivetok
8040 : :
8041 : : reachend
8042 : : */
8043 : :
8044 : 1940968 : static void AttributeNoReturn (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8045 : : {
8046 : 1940968 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
8047 : : {
8048 : 424565 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8049 : 424565 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
8050 : 424565 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
8051 : : }
8052 : 1940968 : }
8053 : :
8054 : :
8055 : : /*
8056 : : AttributeUnused := [ '' ]
8057 : :
8058 : : first symbols:ldirectivetok
8059 : :
8060 : : reachend
8061 : : */
8062 : :
8063 : 0 : static void AttributeUnused (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8064 : : {
8065 : 0 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
8066 : : {
8067 : 0 : Expect (M2Reserved_ldirectivetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8068 : 0 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rdirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
8069 : 0 : Expect (M2Reserved_rdirectivetok, stopset0, stopset1, stopset2);
8070 : : }
8071 : 0 : }
8072 : :
8073 : :
8074 : : /*
8075 : : ProcedureBlock :=
8076 : : % BuildProcedureStart %
8077 : : { Declaration }
8078 : : % BuildProcedureBegin %
8079 : : [ 'BEGIN'
8080 : : % BuildStmtNote (-1) %
8081 : : ProcedureBlockBody ]
8082 : : % BuildStmtNote (0) %
8083 : : 'END'
8084 : :
8085 : : first symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
8086 : :
8087 : : cannot reachend
8088 : : */
8089 : :
8090 : 28857 : static void ProcedureBlock (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8091 : : {
8092 : 28857 : M2Quads_BuildProcedureStart ();
8093 : 71805 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
8094 : : {
8095 : 14103 : Declaration (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8096 : : }
8097 : : /* while */
8098 : 28845 : M2Quads_BuildProcedureBegin ();
8099 : 28845 : if (M2LexBuf_currenttoken == M2Reserved_begintok)
8100 : : {
8101 : 28765 : Expect (M2Reserved_begintok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
8102 : 28765 : M2Quads_BuildStmtNote (-1);
8103 : 28765 : ProcedureBlockBody (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
8104 : : }
8105 : 28815 : M2Quads_BuildStmtNote (0);
8106 : 28815 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
8107 : 28815 : }
8108 : :
8109 : :
8110 : : /*
8111 : : Block := { Declaration }
8112 : : % StartBuildInit (GetTokenNo ()) %
8113 : : InitialBlock
8114 : : % EndBuildInit (GetTokenNo ()) ;
8115 : : StartBuildFinally (GetTokenNo ()) %
8116 : : FinalBlock
8117 : : % EndBuildFinally (GetTokenNo ()) %
8118 : : 'END'
8119 : :
8120 : : first symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
8121 : :
8122 : : cannot reachend
8123 : : */
8124 : :
8125 : 14683 : static void Block (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8126 : : {
8127 : 58684 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok)) | (1 << (M2Reserved_moduletok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
8128 : : {
8129 : 44055 : Declaration (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8130 : : }
8131 : : /* while */
8132 : 14629 : M2Quads_StartBuildInit (M2LexBuf_GetTokenNo ());
8133 : 14623 : InitialBlock (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_finallytok-M2Reserved_arraytok))), stopset2);
8134 : 14491 : M2Quads_EndBuildInit (M2LexBuf_GetTokenNo ());
8135 : 14491 : M2Quads_StartBuildFinally (M2LexBuf_GetTokenNo ());
8136 : 14485 : FinalBlock (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok))), stopset2);
8137 : 14485 : M2Quads_EndBuildFinally (M2LexBuf_GetTokenNo ());
8138 : 14485 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2);
8139 : 14485 : }
8140 : :
8141 : :
8142 : : /*
8143 : : InitialBlock := [ 'BEGIN'
8144 : : % BuildStmtNote (-1) %
8145 : : InitialBlockBody ]
8146 : :
8147 : : first symbols:begintok
8148 : :
8149 : : reachend
8150 : : */
8151 : :
8152 : 14623 : static void InitialBlock (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8153 : : {
8154 : 14623 : if (M2LexBuf_currenttoken == M2Reserved_begintok)
8155 : : {
8156 : 11711 : Expect (M2Reserved_begintok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
8157 : 11711 : M2Quads_BuildStmtNote (-1);
8158 : 11711 : InitialBlockBody (stopset0, stopset1, stopset2);
8159 : : }
8160 : 14491 : }
8161 : :
8162 : :
8163 : : /*
8164 : : FinalBlock := [ 'FINALLY'
8165 : : % BuildStmtNote (-1) %
8166 : : FinalBlockBody ]
8167 : :
8168 : : first symbols:finallytok
8169 : :
8170 : : reachend
8171 : : */
8172 : :
8173 : 14485 : static void FinalBlock (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8174 : : {
8175 : 14485 : if (M2LexBuf_currenttoken == M2Reserved_finallytok)
8176 : : {
8177 : 72 : Expect (M2Reserved_finallytok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok))));
8178 : 72 : M2Quads_BuildStmtNote (-1);
8179 : 72 : FinalBlockBody (stopset0, stopset1, stopset2);
8180 : : }
8181 : 14485 : }
8182 : :
8183 : :
8184 : : /*
8185 : : InitialBlockBody := NormalPart [ 'EXCEPT'
8186 : : % BuildStmtNote (-1) %
8187 : :
8188 : : % BuildExceptInitial (GetTokenNo() -1) %
8189 : : ExceptionalPart ]
8190 : :
8191 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
8192 : :
8193 : : reachend
8194 : : */
8195 : :
8196 : 11711 : static void InitialBlockBody (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8197 : : {
8198 : 23290 : NormalPart (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
8199 : 11579 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
8200 : : {
8201 : 48 : Expect (M2Reserved_excepttok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8202 : 48 : M2Quads_BuildStmtNote (-1);
8203 : 48 : M2Quads_BuildExceptInitial ((M2LexBuf_GetTokenNo ())-1);
8204 : 48 : ExceptionalPart (stopset0, stopset1, stopset2);
8205 : : }
8206 : 11579 : }
8207 : :
8208 : :
8209 : : /*
8210 : : FinalBlockBody := NormalPart [ 'EXCEPT'
8211 : : % BuildStmtNote (-1) %
8212 : :
8213 : : % BuildExceptFinally (GetTokenNo() -1) %
8214 : : ExceptionalPart ]
8215 : :
8216 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
8217 : :
8218 : : reachend
8219 : : */
8220 : :
8221 : 72 : static void FinalBlockBody (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8222 : : {
8223 : 144 : NormalPart (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
8224 : 72 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
8225 : : {
8226 : 0 : Expect (M2Reserved_excepttok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8227 : 0 : M2Quads_BuildStmtNote (-1);
8228 : 0 : M2Quads_BuildExceptFinally ((M2LexBuf_GetTokenNo ())-1);
8229 : 0 : ExceptionalPart (stopset0, stopset1, stopset2);
8230 : : }
8231 : 72 : }
8232 : :
8233 : :
8234 : : /*
8235 : : ProcedureBlockBody := NormalPart [ 'EXCEPT'
8236 : : % BuildStmtNote (-1) %
8237 : :
8238 : : % BuildExceptProcedure (GetTokenNo() -1) %
8239 : : ExceptionalPart ]
8240 : :
8241 : : first symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
8242 : :
8243 : : reachend
8244 : : */
8245 : :
8246 : 28765 : static void ProcedureBlockBody (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8247 : : {
8248 : 57500 : NormalPart (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_excepttok-M2Reserved_arraytok))), stopset2);
8249 : 28735 : if (M2LexBuf_currenttoken == M2Reserved_excepttok)
8250 : : {
8251 : 132 : Expect (M2Reserved_excepttok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_returntok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_retrytok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_asmtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_withtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_repeattok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_whiletok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8252 : 132 : M2Quads_BuildStmtNote (-1);
8253 : 132 : M2Quads_BuildExceptProcedure ((M2LexBuf_GetTokenNo ())-1);
8254 : 132 : ExceptionalPart (stopset0, stopset1, stopset2);
8255 : : }
8256 : 28735 : }
8257 : :
8258 : :
8259 : : /*
8260 : : NormalPart := StatementSequence
8261 : :
8262 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
8263 : :
8264 : : reachend
8265 : : */
8266 : :
8267 : 40548 : static void NormalPart (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8268 : : {
8269 : 40548 : StatementSequence (stopset0, stopset1, stopset2);
8270 : 0 : }
8271 : :
8272 : :
8273 : : /*
8274 : : ExceptionalPart := StatementSequence
8275 : : % BuildReThrow (GetTokenNo()) %
8276 : :
8277 : :
8278 : : first symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
8279 : :
8280 : : reachend
8281 : : */
8282 : :
8283 : 180 : static void ExceptionalPart (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8284 : : {
8285 : 180 : StatementSequence (stopset0, stopset1, stopset2);
8286 : 180 : M2Quads_BuildReThrow (M2LexBuf_GetTokenNo ());
8287 : 180 : }
8288 : :
8289 : :
8290 : : /*
8291 : : Declaration := 'CONST' { ConstantDeclaration ';' } |
8292 : : 'TYPE' { TypeDeclaration ';' } |
8293 : : 'VAR' { VariableDeclaration ';' } |
8294 : : ProcedureDeclaration ';' |
8295 : : ModuleDeclaration ';'
8296 : :
8297 : : first symbols:moduletok, proceduretok, vartok, typetok, consttok
8298 : :
8299 : : cannot reachend
8300 : : */
8301 : :
8302 : 58158 : static void Declaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8303 : : {
8304 : 58158 : if (M2LexBuf_currenttoken == M2Reserved_consttok)
8305 : : {
8306 : 2436 : Expect (M2Reserved_consttok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8307 : 9526 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8308 : : {
8309 : 4654 : ConstantDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8310 : 4654 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8311 : : }
8312 : : /* while */
8313 : : }
8314 : : else if (M2LexBuf_currenttoken == M2Reserved_typetok)
8315 : : {
8316 : : /* avoid dangling else. */
8317 : 4098 : Expect (M2Reserved_typetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8318 : 15240 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8319 : : {
8320 : 7050 : TypeDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8321 : 7044 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8322 : : }
8323 : : /* while */
8324 : : }
8325 : : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
8326 : : {
8327 : : /* avoid dangling else. */
8328 : 22329 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8329 : 81336 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8330 : : {
8331 : 36696 : VariableDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8332 : 36678 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8333 : : }
8334 : : /* while */
8335 : : }
8336 : : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
8337 : : {
8338 : : /* avoid dangling else. */
8339 : 28881 : ProcedureDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8340 : 28839 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8341 : : }
8342 : : else if (M2LexBuf_currenttoken == M2Reserved_moduletok)
8343 : : {
8344 : : /* avoid dangling else. */
8345 : 414 : ModuleDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8346 : 414 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8347 : : }
8348 : : else
8349 : : {
8350 : : /* avoid dangling else. */
8351 : 0 : ErrorArray ((const char *) "expecting one of: {%KMODULE} {%KPROCEDURE} {%KVAR} {%KTYPE} {%KCONST}", 69);
8352 : : }
8353 : 58092 : }
8354 : :
8355 : :
8356 : : /*
8357 : : DefFormalParameters := '(' [ DefMultiFPSection ]
8358 : : ')' FormalReturn
8359 : :
8360 : : first symbols:lparatok
8361 : :
8362 : : cannot reachend
8363 : : */
8364 : :
8365 : 1816109 : static void DefFormalParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8366 : : {
8367 : 1816109 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8368 : 1816109 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
8369 : : {
8370 : 1670358 : DefMultiFPSection (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
8371 : : }
8372 : 1816109 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8373 : 1816109 : FormalReturn (stopset0, stopset1, stopset2);
8374 : 1816109 : }
8375 : :
8376 : :
8377 : : /*
8378 : : DefMultiFPSection := DefExtendedFP |
8379 : : FPSection [ ';' DefMultiFPSection ]
8380 : :
8381 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
8382 : :
8383 : : cannot reachend
8384 : : */
8385 : :
8386 : 1670358 : static void DefMultiFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8387 : : {
8388 : 3324611 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok))
8389 : : {
8390 : 24619 : DefExtendedFP (stopset0, stopset1, stopset2);
8391 : : }
8392 : 3299992 : else if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0)))
8393 : : {
8394 : : /* avoid dangling else. */
8395 : 3299992 : FPSection (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8396 : 3299992 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
8397 : : {
8398 : 1654253 : Expect (M2Reserved_semicolontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8399 : 1654253 : DefMultiFPSection (stopset0, stopset1, stopset2);
8400 : : }
8401 : : }
8402 : : else
8403 : : {
8404 : : /* avoid dangling else. */
8405 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KVAR} {%K...} {%K[}", 54);
8406 : : }
8407 : 1670358 : }
8408 : :
8409 : :
8410 : : /*
8411 : : FormalParameters := '(' [ MultiFPSection ] ')'
8412 : : FormalReturn
8413 : :
8414 : : first symbols:lparatok
8415 : :
8416 : : cannot reachend
8417 : : */
8418 : :
8419 : 24022 : static void FormalParameters (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8420 : : {
8421 : 24022 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8422 : 24022 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))))) != 0))))
8423 : : {
8424 : 22730 : MultiFPSection (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
8425 : : }
8426 : 24022 : Expect (M2Reserved_rparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8427 : 24022 : FormalReturn (stopset0, stopset1, stopset2);
8428 : 24022 : }
8429 : :
8430 : :
8431 : : /*
8432 : : MultiFPSection := ExtendedFP | FPSection [ ';'
8433 : : MultiFPSection ]
8434 : :
8435 : : first symbols:identtok, vartok, lsbratok, periodperiodperiodtok
8436 : :
8437 : : cannot reachend
8438 : : */
8439 : :
8440 : 22730 : static void MultiFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8441 : : {
8442 : 41092 : if ((M2LexBuf_currenttoken == M2Reserved_lsbratok) || (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok))
8443 : : {
8444 : 54 : ExtendedFP (stopset0, stopset1, stopset2);
8445 : : }
8446 : 41038 : else if ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0)))
8447 : : {
8448 : : /* avoid dangling else. */
8449 : 41038 : FPSection (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8450 : 41038 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
8451 : : {
8452 : 18362 : Expect (M2Reserved_semicolontok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_periodperiodperiodtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8453 : 18362 : MultiFPSection (stopset0, stopset1, stopset2);
8454 : : }
8455 : : }
8456 : : else
8457 : : {
8458 : : /* avoid dangling else. */
8459 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KVAR} {%K...} {%K[}", 54);
8460 : : }
8461 : 22730 : }
8462 : :
8463 : :
8464 : : /*
8465 : : FPSection := NonVarFPSection |
8466 : : VarFPSection
8467 : :
8468 : : first symbols:vartok, identtok
8469 : :
8470 : : cannot reachend
8471 : : */
8472 : :
8473 : 3341030 : static void FPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8474 : : {
8475 : 3341030 : if (M2LexBuf_currenttoken == M2Reserved_identtok)
8476 : : {
8477 : 3078850 : NonVarFPSection (stopset0, stopset1, stopset2);
8478 : : }
8479 : 262180 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
8480 : : {
8481 : : /* avoid dangling else. */
8482 : 262180 : VarFPSection (stopset0, stopset1, stopset2);
8483 : : }
8484 : : else
8485 : : {
8486 : : /* avoid dangling else. */
8487 : 0 : ErrorArray ((const char *) "expecting one of: {%KVAR} {%Kidentifier}", 40);
8488 : : }
8489 : 3341030 : }
8490 : :
8491 : :
8492 : : /*
8493 : : DefExtendedFP := DefOptArg | '...'
8494 : :
8495 : : first symbols:lsbratok, periodperiodperiodtok
8496 : :
8497 : : cannot reachend
8498 : : */
8499 : :
8500 : 24619 : static void DefExtendedFP (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8501 : : {
8502 : 24619 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
8503 : : {
8504 : 13939 : DefOptArg (stopset0, stopset1, stopset2);
8505 : : }
8506 : 10680 : else if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
8507 : : {
8508 : : /* avoid dangling else. */
8509 : 10680 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
8510 : : }
8511 : : else
8512 : : {
8513 : : /* avoid dangling else. */
8514 : 0 : ErrorArray ((const char *) "expecting one of: {%K...} {%K[}", 31);
8515 : : }
8516 : 24619 : }
8517 : :
8518 : :
8519 : : /*
8520 : : ExtendedFP := OptArg | '...'
8521 : :
8522 : : first symbols:lsbratok, periodperiodperiodtok
8523 : :
8524 : : cannot reachend
8525 : : */
8526 : :
8527 : 54 : static void ExtendedFP (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8528 : : {
8529 : 54 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
8530 : : {
8531 : 54 : OptArg (stopset0, stopset1, stopset2);
8532 : : }
8533 : 0 : else if (M2LexBuf_currenttoken == M2Reserved_periodperiodperiodtok)
8534 : : {
8535 : : /* avoid dangling else. */
8536 : 0 : Expect (M2Reserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
8537 : : }
8538 : : else
8539 : : {
8540 : : /* avoid dangling else. */
8541 : 0 : ErrorArray ((const char *) "expecting one of: {%K...} {%K[}", 31);
8542 : : }
8543 : 54 : }
8544 : :
8545 : :
8546 : : /*
8547 : : VarFPSection := 'VAR' IdentList ':' FormalType [
8548 : : AttributeUnused ]
8549 : :
8550 : : first symbols:vartok
8551 : :
8552 : : cannot reachend
8553 : : */
8554 : :
8555 : 262180 : static void VarFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8556 : : {
8557 : 262180 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8558 : 262180 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8559 : 262180 : Expect (M2Reserved_colontok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8560 : 262180 : FormalType (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
8561 : 262180 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
8562 : : {
8563 : 0 : AttributeUnused (stopset0, stopset1, stopset2);
8564 : : }
8565 : 262180 : }
8566 : :
8567 : :
8568 : : /*
8569 : : NonVarFPSection := IdentList ':' FormalType [ AttributeUnused ]
8570 : :
8571 : : first symbols:identtok
8572 : :
8573 : : cannot reachend
8574 : : */
8575 : :
8576 : 3078850 : static void NonVarFPSection (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8577 : : {
8578 : 3078850 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8579 : 3078850 : Expect (M2Reserved_colontok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8580 : 3078850 : FormalType (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok))), stopset1, stopset2);
8581 : 3078850 : if (M2LexBuf_currenttoken == M2Reserved_ldirectivetok)
8582 : : {
8583 : 0 : AttributeUnused (stopset0, stopset1, stopset2);
8584 : : }
8585 : 3078850 : }
8586 : :
8587 : :
8588 : : /*
8589 : : OptArg := '[' Ident ':' FormalType [ '=' ConstExpression
8590 : :
8591 : : % BuildOptArgInitializer %
8592 : : ] ']'
8593 : :
8594 : : first symbols:lsbratok
8595 : :
8596 : : cannot reachend
8597 : : */
8598 : :
8599 : 54 : static void OptArg (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8600 : : {
8601 : 54 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8602 : 54 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8603 : 54 : Expect (M2Reserved_colontok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8604 : 54 : FormalType (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok)) | (1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8605 : 54 : if (M2LexBuf_currenttoken == M2Reserved_equaltok)
8606 : : {
8607 : 44 : Expect (M2Reserved_equaltok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
8608 : 44 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8609 : 44 : P3SymBuild_BuildOptArgInitializer ();
8610 : : }
8611 : 54 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
8612 : 54 : }
8613 : :
8614 : :
8615 : : /*
8616 : : DefOptArg := '[' Ident ':' FormalType '=' ConstExpression
8617 : :
8618 : : % BuildOptArgInitializer %
8619 : : ']'
8620 : :
8621 : : first symbols:lsbratok
8622 : :
8623 : : cannot reachend
8624 : : */
8625 : :
8626 : 13939 : static void DefOptArg (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8627 : : {
8628 : 13939 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8629 : 13939 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
8630 : 13939 : Expect (M2Reserved_colontok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8631 : 13939 : FormalType (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
8632 : 13939 : Expect (M2Reserved_equaltok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
8633 : 13939 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8634 : 13939 : P3SymBuild_BuildOptArgInitializer ();
8635 : 13939 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
8636 : 13939 : }
8637 : :
8638 : :
8639 : : /*
8640 : : FormalType := { 'ARRAY' 'OF' } QualidentCheck
8641 : :
8642 : : first symbols:identtok, arraytok
8643 : :
8644 : : cannot reachend
8645 : : */
8646 : :
8647 : 3430622 : static void FormalType (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8648 : : {
8649 : 3737459 : while (M2LexBuf_currenttoken == M2Reserved_arraytok)
8650 : : {
8651 : 306837 : Expect (M2Reserved_arraytok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_oftok-M2Reserved_arraytok))), stopset2);
8652 : 306837 : Expect (M2Reserved_oftok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_arraytok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8653 : : }
8654 : : /* while */
8655 : 3430622 : QualidentCheck (stopset0, stopset1, stopset2);
8656 : 3430622 : }
8657 : :
8658 : :
8659 : : /*
8660 : : ModuleDeclaration :=
8661 : : % VAR modulet: CARDINAL ; %
8662 : :
8663 : : % modulet := GetTokenNo () %
8664 : : 'MODULE'
8665 : : % M2Error.DefaultInnerModule %
8666 : :
8667 : : % PushAutoOn %
8668 : : Ident
8669 : : % StartBuildInnerModule %
8670 : :
8671 : : % BuildModuleStart (modulet) ;
8672 : : PushAutoOff %
8673 : : [ Priority ] ';' { Import }
8674 : : [ Export ] Block
8675 : : % PushAutoOn %
8676 : : Ident
8677 : : % EndBuildInnerModule %
8678 : :
8679 : : % PopAuto ; PopAuto ; PopAuto %
8680 : :
8681 : :
8682 : : first symbols:moduletok
8683 : :
8684 : : cannot reachend
8685 : : */
8686 : :
8687 : 414 : static void ModuleDeclaration (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8688 : : {
8689 : 414 : unsigned int modulet;
8690 : :
8691 : 414 : modulet = M2LexBuf_GetTokenNo ();
8692 : 414 : Expect (M2Reserved_moduletok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8693 : 414 : M2Error_DefaultInnerModule ();
8694 : 414 : M2Quads_PushAutoOn ();
8695 : 414 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8696 : 414 : P3SymBuild_StartBuildInnerModule ();
8697 : 414 : M2Quads_BuildModuleStart (modulet);
8698 : 414 : M2Quads_PushAutoOff ();
8699 : 414 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
8700 : : {
8701 : 12 : Priority (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8702 : : }
8703 : 414 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8704 : 1050 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
8705 : : {
8706 : 222 : Import (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
8707 : : }
8708 : : /* while */
8709 : 414 : if (M2LexBuf_currenttoken == M2Reserved_exporttok)
8710 : : {
8711 : 276 : Export (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
8712 : : }
8713 : 414 : Block (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8714 : 414 : M2Quads_PushAutoOn ();
8715 : 414 : Ident (stopset0, stopset1, stopset2);
8716 : 414 : P3SymBuild_EndBuildInnerModule ();
8717 : 414 : M2Quads_PopAuto ();
8718 : 414 : M2Quads_PopAuto ();
8719 : 414 : M2Quads_PopAuto ();
8720 : 414 : }
8721 : :
8722 : :
8723 : : /*
8724 : : Priority := '['
8725 : : % PushAutoOn %
8726 : : ConstExpression
8727 : : % BuildModulePriority ;
8728 : : PopAuto %
8729 : : ']'
8730 : :
8731 : : first symbols:lsbratok
8732 : :
8733 : : cannot reachend
8734 : : */
8735 : :
8736 : 38 : static void Priority (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8737 : : {
8738 : 38 : Expect (M2Reserved_lsbratok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
8739 : 38 : M2Quads_PushAutoOn ();
8740 : 38 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
8741 : 38 : M2Quads_BuildModulePriority ();
8742 : 38 : M2Quads_PopAuto ();
8743 : 38 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
8744 : 38 : }
8745 : :
8746 : :
8747 : : /*
8748 : : Export := 'EXPORT' ( 'QUALIFIED' IdentList |
8749 : : 'UNQUALIFIED' IdentList |
8750 : : IdentList ) ';'
8751 : :
8752 : : first symbols:exporttok
8753 : :
8754 : : cannot reachend
8755 : : */
8756 : :
8757 : 67000 : static void Export (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8758 : : {
8759 : 67000 : Expect (M2Reserved_exporttok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_qualifiedtok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_unqualifiedtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8760 : 67000 : if (M2LexBuf_currenttoken == M2Reserved_qualifiedtok)
8761 : : {
8762 : 60370 : Expect (M2Reserved_qualifiedtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8763 : 60370 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8764 : : }
8765 : 6630 : else if (M2LexBuf_currenttoken == M2Reserved_unqualifiedtok)
8766 : : {
8767 : : /* avoid dangling else. */
8768 : 6354 : Expect (M2Reserved_unqualifiedtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8769 : 6354 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8770 : : }
8771 : 276 : else if (M2LexBuf_currenttoken == M2Reserved_identtok)
8772 : : {
8773 : : /* avoid dangling else. */
8774 : 276 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8775 : : }
8776 : : else
8777 : : {
8778 : : /* avoid dangling else. */
8779 : 0 : ErrorArray ((const char *) "expecting one of: {%Kidentifier} {%KUNQUALIFIED} {%KQUALIFIED}", 62);
8780 : : }
8781 : 67000 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8782 : 67000 : }
8783 : :
8784 : :
8785 : : /*
8786 : : FromImport :=
8787 : : % PushAutoOn %
8788 : : 'FROM' Ident 'IMPORT' IdentList ';'
8789 : :
8790 : : % CheckImportListOuterModule %
8791 : :
8792 : : % PopAuto %
8793 : :
8794 : :
8795 : : first symbols:fromtok
8796 : :
8797 : : cannot reachend
8798 : : */
8799 : :
8800 : 80128 : static void FromImport (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8801 : : {
8802 : 80128 : M2Quads_PushAutoOn ();
8803 : 80128 : Expect (M2Reserved_fromtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8804 : 80128 : Ident (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_importtok-M2Reserved_arraytok))), stopset2);
8805 : 80128 : Expect (M2Reserved_importtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8806 : 80128 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8807 : 80128 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8808 : 80128 : P3SymBuild_CheckImportListOuterModule ();
8809 : 80128 : M2Quads_PopAuto ();
8810 : 80128 : }
8811 : :
8812 : :
8813 : : /*
8814 : : WithoutFromImport :=
8815 : : % PushAutoOff %
8816 : : 'IMPORT' IdentList ';'
8817 : : % PopAuto %
8818 : :
8819 : :
8820 : : first symbols:importtok
8821 : :
8822 : : cannot reachend
8823 : : */
8824 : :
8825 : 8418 : static void WithoutFromImport (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8826 : : {
8827 : 8418 : M2Quads_PushAutoOff ();
8828 : 8418 : Expect (M2Reserved_importtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8829 : 8418 : IdentList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8830 : 8418 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
8831 : 8418 : M2Quads_PopAuto ();
8832 : 8418 : }
8833 : :
8834 : :
8835 : : /*
8836 : : Import := FromImport | WithoutFromImport
8837 : :
8838 : : first symbols:importtok, fromtok
8839 : :
8840 : : cannot reachend
8841 : : */
8842 : :
8843 : 88546 : static void Import (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8844 : : {
8845 : 88546 : if (M2LexBuf_currenttoken == M2Reserved_fromtok)
8846 : : {
8847 : 80128 : FromImport (stopset0, stopset1, stopset2);
8848 : : }
8849 : 8418 : else if (M2LexBuf_currenttoken == M2Reserved_importtok)
8850 : : {
8851 : : /* avoid dangling else. */
8852 : 8418 : WithoutFromImport (stopset0, stopset1, stopset2);
8853 : : }
8854 : : else
8855 : : {
8856 : : /* avoid dangling else. */
8857 : 0 : ErrorArray ((const char *) "expecting one of: {%KIMPORT} {%KFROM}", 37);
8858 : : }
8859 : 88546 : }
8860 : :
8861 : :
8862 : : /*
8863 : : DefinitionModule :=
8864 : : % VAR deft, endt: CARDINAL ; %
8865 : :
8866 : : % deft := GetTokenNo () %
8867 : : 'DEFINITION'
8868 : : % M2Error.DefaultDefinitionModule %
8869 : : 'MODULE'
8870 : : % PushAutoOn %
8871 : : [ 'FOR' string ] Ident
8872 : : % StartBuildDefFile (deft) ;
8873 : : P3StartBuildDefModule ;
8874 : : PushAutoOff %
8875 : : ';' { Import } [ Export ]
8876 : : { Definition }
8877 : : % endt := GetTokenNo () %
8878 : : 'END'
8879 : : % PushAutoOn %
8880 : : Ident
8881 : : % EndBuildFile (endt) ;
8882 : : P3EndBuildDefModule %
8883 : : '.'
8884 : : % PopAuto ; PopAuto ; PopAuto %
8885 : :
8886 : :
8887 : : first symbols:definitiontok
8888 : :
8889 : : cannot reachend
8890 : : */
8891 : :
8892 : 114178 : static void DefinitionModule (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8893 : : {
8894 : 114178 : unsigned int deft;
8895 : 114178 : unsigned int endt;
8896 : :
8897 : 114178 : deft = M2LexBuf_GetTokenNo ();
8898 : 114178 : Expect (M2Reserved_definitiontok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_moduletok-M2Reserved_arraytok))), stopset2);
8899 : 114178 : M2Error_DefaultDefinitionModule ();
8900 : 114178 : Expect (M2Reserved_moduletok, stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_fortok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8901 : 114178 : M2Quads_PushAutoOn ();
8902 : 114178 : if (M2LexBuf_currenttoken == M2Reserved_fortok)
8903 : : {
8904 : 7728 : Expect (M2Reserved_fortok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
8905 : 7728 : string (stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8906 : : }
8907 : 114178 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8908 : 114178 : M2Quads_StartBuildDefFile (deft);
8909 : 114178 : P3SymBuild_P3StartBuildDefModule ();
8910 : 114178 : M2Quads_PushAutoOff ();
8911 : 114178 : Expect (M2Reserved_semicolontok, stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok))));
8912 : 297878 : while (((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_fromtok-M2Reserved_arraytok)) | (1 << (M2Reserved_importtok-M2Reserved_arraytok))))) != 0)))
8913 : : {
8914 : 69522 : Import (stopset0, stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8915 : : }
8916 : : /* while */
8917 : 114178 : if (M2LexBuf_currenttoken == M2Reserved_exporttok)
8918 : : {
8919 : 66724 : Export (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8920 : : }
8921 : 2117376 : while ((((M2LexBuf_currenttoken >= M2Reserved_arraytok) && (M2LexBuf_currenttoken < M2Reserved_unqualifiedtok)) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_arraytok)) & ((P3Build_SetOfStop1) ((1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))))) != 0))) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))))) != 0))))
8922 : : {
8923 : 2003198 : Definition (stopset0, stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_endtok-M2Reserved_arraytok)) | (1 << (M2Reserved_consttok-M2Reserved_arraytok)) | (1 << (M2Reserved_proceduretok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_typetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_vartok-M2Reserved_unqualifiedtok))));
8924 : : }
8925 : : /* while */
8926 : 114178 : endt = M2LexBuf_GetTokenNo ();
8927 : 114178 : Expect (M2Reserved_endtok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8928 : 114178 : M2Quads_PushAutoOn ();
8929 : 114178 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_periodtok-M2Reserved_eoftok))), stopset1, stopset2);
8930 : 114178 : M2Quads_EndBuildFile (endt);
8931 : 114178 : P3SymBuild_P3EndBuildDefModule ();
8932 : 114178 : Expect (M2Reserved_periodtok, stopset0, stopset1, stopset2);
8933 : 114178 : M2Quads_PopAuto ();
8934 : 114178 : M2Quads_PopAuto ();
8935 : 114178 : M2Quads_PopAuto ();
8936 : 114178 : }
8937 : :
8938 : :
8939 : : /*
8940 : : Definition := 'CONST' { ConstantDeclaration ';' } |
8941 : : 'TYPE' { Ident ( ';' | '=' Type Alignment
8942 : : ';' ) } |
8943 : : 'VAR' { VariableDeclaration ';' } |
8944 : : DefProcedureHeading ';'
8945 : :
8946 : : first symbols:proceduretok, vartok, typetok, consttok
8947 : :
8948 : : cannot reachend
8949 : : */
8950 : :
8951 : 2003198 : static void Definition (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
8952 : : {
8953 : 2003198 : if (M2LexBuf_currenttoken == M2Reserved_consttok)
8954 : : {
8955 : 22303 : Expect (M2Reserved_consttok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8956 : 223051 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8957 : : {
8958 : 178445 : ConstantDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8959 : 178445 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8960 : : }
8961 : : /* while */
8962 : : }
8963 : 1980895 : else if (M2LexBuf_currenttoken == M2Reserved_typetok)
8964 : : {
8965 : : /* avoid dangling else. */
8966 : 65396 : Expect (M2Reserved_typetok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8967 : 252077 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8968 : : {
8969 : 121285 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok)) | (1 << (M2Reserved_equaltok-M2Reserved_eoftok))), stopset1, stopset2);
8970 : 121285 : if (M2LexBuf_currenttoken == M2Reserved_semicolontok)
8971 : : {
8972 : 21833 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8973 : : }
8974 : 99452 : else if (M2LexBuf_currenttoken == M2Reserved_equaltok)
8975 : : {
8976 : : /* avoid dangling else. */
8977 : 99452 : Expect (M2Reserved_equaltok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lsbratok-M2Reserved_eoftok))), stopset1|(P3Build_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|(P3Build_SetOfStop2) ((1 << (M2Reserved_settok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_recordtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8978 : 99452 : Type (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_ldirectivetok-M2Reserved_eoftok)) | (1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8979 : 99452 : Alignment (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8980 : 99452 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8981 : : }
8982 : : else
8983 : : {
8984 : : /* avoid dangling else. */
8985 : 0 : ErrorArray ((const char *) "expecting one of: {%K=} {%K;}", 29);
8986 : : }
8987 : : }
8988 : : /* while */
8989 : : }
8990 : 1915499 : else if (M2LexBuf_currenttoken == M2Reserved_vartok)
8991 : : {
8992 : : /* avoid dangling else. */
8993 : 3412 : Expect (M2Reserved_vartok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8994 : 10874 : while (M2LexBuf_currenttoken == M2Reserved_identtok)
8995 : : {
8996 : 4050 : VariableDeclaration (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
8997 : 4050 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
8998 : : }
8999 : : /* while */
9000 : : }
9001 : 1912087 : else if (M2LexBuf_currenttoken == M2Reserved_proceduretok)
9002 : : {
9003 : : /* avoid dangling else. */
9004 : 1912087 : DefProcedureHeading (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_semicolontok-M2Reserved_eoftok))), stopset1, stopset2);
9005 : 1912087 : Expect (M2Reserved_semicolontok, stopset0, stopset1, stopset2);
9006 : : }
9007 : : else
9008 : : {
9009 : : /* avoid dangling else. */
9010 : 0 : ErrorArray ((const char *) "expecting one of: {%KPROCEDURE} {%KVAR} {%KTYPE} {%KCONST}", 58);
9011 : : }
9012 : 2003198 : }
9013 : :
9014 : :
9015 : : /*
9016 : : AsmStatement :=
9017 : : % VAR CurrentAsm: CARDINAL ;
9018 : : tok: CARDINAL ; %
9019 : :
9020 : : % tok := GetTokenNo () %
9021 : : 'ASM'
9022 : : % PushAutoOn ;
9023 : : PushT (0) ; operand count
9024 : : PushT (MakeGnuAsm ())
9025 : : %
9026 : : [ 'VOLATILE'
9027 : : % PopT (CurrentAsm) ;
9028 : : PutGnuAsmVolatile (CurrentAsm) ;
9029 : : PushT (CurrentAsm)
9030 : : %
9031 : : ] '(' AsmOperands
9032 : : % PopNothing ; throw away interface sym
9033 : : BuildAsm (tok) ;
9034 : : PopNothing ; throw away count
9035 : : PopAuto
9036 : : %
9037 : : ')'
9038 : :
9039 : : first symbols:asmtok
9040 : :
9041 : : cannot reachend
9042 : : */
9043 : :
9044 : 24 : static void AsmStatement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9045 : : {
9046 : 24 : unsigned int CurrentAsm;
9047 : 24 : unsigned int tok;
9048 : :
9049 : 24 : tok = M2LexBuf_GetTokenNo ();
9050 : 24 : Expect (M2Reserved_asmtok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_volatiletok-M2Reserved_unqualifiedtok))));
9051 : 24 : M2Quads_PushAutoOn ();
9052 : 24 : M2Quads_PushT (static_cast<unsigned int> (0)); /* operand count */
9053 : 24 : M2Quads_PushT (SymbolTable_MakeGnuAsm ()); /* operand count */
9054 : 24 : if (M2LexBuf_currenttoken == M2Reserved_volatiletok)
9055 : : {
9056 : 12 : Expect (M2Reserved_volatiletok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
9057 : 12 : M2Quads_PopT (&CurrentAsm);
9058 : 12 : SymbolTable_PutGnuAsmVolatile (CurrentAsm);
9059 : 12 : M2Quads_PushT (CurrentAsm);
9060 : : }
9061 : 24 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
9062 : 24 : AsmOperands (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
9063 : 24 : M2Quads_PopNothing (); /* throw away interface sym */
9064 : 24 : M2Quads_BuildAsm (tok); /* throw away interface sym */
9065 : 24 : M2Quads_PopNothing (); /* throw away count */
9066 : 24 : M2Quads_PopAuto (); /* throw away count */
9067 : 24 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
9068 : 24 : }
9069 : :
9070 : :
9071 : : /*
9072 : : AsmOperands :=
9073 : : % VAR CurrentAsm, count: CARDINAL ;
9074 : : str: CARDINAL ;
9075 : : %
9076 : : ConstExpression
9077 : : % PopT (str) ;
9078 : : PopT (CurrentAsm) ;
9079 : : Assert (IsGnuAsm (CurrentAsm) OR IsGnuAsmVolatile (CurrentAsm)) ;
9080 : : PopT (count) ;
9081 : : IF DebugAsm
9082 : : THEN
9083 : : printf1 ('1: count of asm operands: %d
9084 : : ', count)
9085 : : END ;
9086 : : PushT (count) ;
9087 : : adds the name/instruction for this asm
9088 : : PutGnuAsm (CurrentAsm, str) ;
9089 : : PushT (CurrentAsm) ;
9090 : : PushT (NulSym) the InterfaceSym
9091 : : %
9092 : : ( AsmOperandSpec |
9093 : :
9094 : : % epsilon
9095 : : PutGnuAsmSimple (CurrentAsm)
9096 : : %
9097 : : )
9098 : :
9099 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
9100 : :
9101 : : cannot reachend
9102 : : */
9103 : :
9104 : 24 : static void AsmOperands (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9105 : : {
9106 : 24 : unsigned int CurrentAsm;
9107 : 24 : unsigned int count;
9108 : 24 : unsigned int str;
9109 : :
9110 : 24 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
9111 : 24 : M2Quads_PopT (&str);
9112 : 24 : M2Quads_PopT (&CurrentAsm);
9113 : 48 : M2Debug_Assert ((SymbolTable_IsGnuAsm (CurrentAsm)) || (SymbolTable_IsGnuAsmVolatile (CurrentAsm)));
9114 : 24 : M2Quads_PopT (&count);
9115 : 24 : if (DebugAsm)
9116 : : {
9117 : : M2Printf_printf1 ((const char *) "1: count of asm operands: %d\\n", 30, (const unsigned char *) &count, (sizeof (count)-1));
9118 : : }
9119 : 24 : M2Quads_PushT (count);
9120 : : /* adds the name/instruction for this asm */
9121 : 24 : SymbolTable_PutGnuAsm (CurrentAsm, str);
9122 : 24 : M2Quads_PushT (CurrentAsm);
9123 : 24 : M2Quads_PushT (static_cast<unsigned int> (SymbolTable_NulSym)); /* the InterfaceSym */
9124 : 24 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
9125 : : {
9126 : 18 : AsmOperandSpec (stopset0, stopset1, stopset2);
9127 : : }
9128 : : else
9129 : : {
9130 : : /* epsilon */
9131 : 6 : SymbolTable_PutGnuAsmSimple (CurrentAsm);
9132 : : }
9133 : 24 : }
9134 : :
9135 : :
9136 : : /*
9137 : : AsmOperandSpec :=
9138 : : % VAR CurrentAsm, outputs, inputs, trash, count: CARDINAL ;
9139 : : %
9140 : : ':' AsmOutputList
9141 : : % PopT(outputs) ;
9142 : : PopT(CurrentAsm) ;
9143 : : Assert(IsGnuAsm(CurrentAsm) OR IsGnuAsmVolatile(CurrentAsm)) ;
9144 : : PopT(count) ;
9145 : : IF DebugAsm
9146 : : THEN
9147 : : printf1('2: output count of asm operands: %d
9148 : : ', count)
9149 : : END ;
9150 : : PutGnuAsmOutput(CurrentAsm, outputs) ;
9151 : : PushT(0) ; reset count
9152 : : PushT(CurrentAsm) ;
9153 : : PushT(NulSym) the InterfaceSym
9154 : : %
9155 : : [ ':' AsmInputList
9156 : : % PopT(inputs) ;
9157 : : PopT(CurrentAsm) ;
9158 : : Assert(IsGnuAsm(CurrentAsm) OR IsGnuAsmVolatile(CurrentAsm)) ;
9159 : : PopT(count) ;
9160 : : IF DebugAsm
9161 : : THEN
9162 : : printf1('3: input count of asm operands: %d
9163 : : ', count)
9164 : : END ;
9165 : : PutGnuAsmInput(CurrentAsm, inputs) ;
9166 : : PushT(0) ; reset count
9167 : : PushT(CurrentAsm) ;
9168 : : PushT(NulSym) the InterfaceSym
9169 : : %
9170 : : [ ':' AsmTrashList
9171 : : % PopT(trash) ;
9172 : : PopT(CurrentAsm) ;
9173 : : Assert(IsGnuAsm(CurrentAsm) OR IsGnuAsmVolatile(CurrentAsm)) ;
9174 : : PopT(count) ;
9175 : : IF DebugAsm
9176 : : THEN
9177 : : printf1('4: trash count of asm operands: %d
9178 : : ', count)
9179 : : END ;
9180 : : PutGnuAsmTrash(CurrentAsm, trash) ;
9181 : : PushT(0) ; reset count
9182 : : PushT(CurrentAsm) ;
9183 : : PushT(NulSym) the InterfaceSym
9184 : : %
9185 : : ] ]
9186 : :
9187 : : first symbols:colontok
9188 : :
9189 : : cannot reachend
9190 : : */
9191 : :
9192 : 18 : static void AsmOperandSpec (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9193 : : {
9194 : 18 : unsigned int CurrentAsm;
9195 : 18 : unsigned int outputs;
9196 : 18 : unsigned int inputs;
9197 : 18 : unsigned int trash;
9198 : 18 : unsigned int count;
9199 : :
9200 : 18 : Expect (M2Reserved_colontok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
9201 : 18 : AsmOutputList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
9202 : 18 : M2Quads_PopT (&outputs);
9203 : 18 : M2Quads_PopT (&CurrentAsm);
9204 : 36 : M2Debug_Assert ((SymbolTable_IsGnuAsm (CurrentAsm)) || (SymbolTable_IsGnuAsmVolatile (CurrentAsm)));
9205 : 18 : M2Quads_PopT (&count);
9206 : 18 : if (DebugAsm)
9207 : : {
9208 : : M2Printf_printf1 ((const char *) "2: output count of asm operands: %d\\n", 37, (const unsigned char *) &count, (sizeof (count)-1));
9209 : : }
9210 : 18 : SymbolTable_PutGnuAsmOutput (CurrentAsm, outputs);
9211 : 18 : M2Quads_PushT (static_cast<unsigned int> (0)); /* reset count */
9212 : 18 : M2Quads_PushT (CurrentAsm); /* reset count */
9213 : 18 : M2Quads_PushT (static_cast<unsigned int> (SymbolTable_NulSym)); /* the InterfaceSym */
9214 : 18 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
9215 : : {
9216 : 12 : Expect (M2Reserved_colontok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
9217 : 12 : AsmInputList (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_colontok-M2Reserved_eoftok))), stopset1, stopset2);
9218 : 12 : M2Quads_PopT (&inputs);
9219 : 12 : M2Quads_PopT (&CurrentAsm);
9220 : 24 : M2Debug_Assert ((SymbolTable_IsGnuAsm (CurrentAsm)) || (SymbolTable_IsGnuAsmVolatile (CurrentAsm)));
9221 : 12 : M2Quads_PopT (&count);
9222 : 12 : if (DebugAsm)
9223 : : {
9224 : : M2Printf_printf1 ((const char *) "3: input count of asm operands: %d\\n", 36, (const unsigned char *) &count, (sizeof (count)-1));
9225 : : }
9226 : 12 : SymbolTable_PutGnuAsmInput (CurrentAsm, inputs);
9227 : 12 : M2Quads_PushT (static_cast<unsigned int> (0)); /* reset count */
9228 : 12 : M2Quads_PushT (CurrentAsm); /* reset count */
9229 : 12 : M2Quads_PushT (static_cast<unsigned int> (SymbolTable_NulSym)); /* the InterfaceSym */
9230 : 12 : if (M2LexBuf_currenttoken == M2Reserved_colontok)
9231 : : {
9232 : 6 : Expect (M2Reserved_colontok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
9233 : 6 : AsmTrashList (stopset0, stopset1, stopset2);
9234 : 6 : M2Quads_PopT (&trash);
9235 : 6 : M2Quads_PopT (&CurrentAsm);
9236 : 12 : M2Debug_Assert ((SymbolTable_IsGnuAsm (CurrentAsm)) || (SymbolTable_IsGnuAsmVolatile (CurrentAsm)));
9237 : 6 : M2Quads_PopT (&count);
9238 : 6 : if (DebugAsm)
9239 : : {
9240 : : M2Printf_printf1 ((const char *) "4: trash count of asm operands: %d\\n", 36, (const unsigned char *) &count, (sizeof (count)-1));
9241 : : }
9242 : 6 : SymbolTable_PutGnuAsmTrash (CurrentAsm, trash);
9243 : 6 : M2Quads_PushT (static_cast<unsigned int> (0)); /* reset count */
9244 : 6 : M2Quads_PushT (CurrentAsm); /* reset count */
9245 : 6 : M2Quads_PushT (static_cast<unsigned int> (SymbolTable_NulSym)); /* the InterfaceSym */
9246 : : }
9247 : : }
9248 : 18 : }
9249 : :
9250 : :
9251 : : /*
9252 : : AsmOutputList := [ AsmOutputElement ] { ',' AsmOutputElement }
9253 : :
9254 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok, lsbratok, commatok
9255 : :
9256 : : reachend
9257 : : */
9258 : :
9259 : 18 : static void AsmOutputList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9260 : : {
9261 : 18 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
9262 : : {
9263 : 12 : AsmOutputElement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
9264 : : }
9265 : 18 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
9266 : : {
9267 : 0 : Expect (M2Reserved_commatok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
9268 : 0 : AsmOutputElement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
9269 : : }
9270 : : /* while */
9271 : 18 : }
9272 : :
9273 : :
9274 : : /*
9275 : : AsmInputList := [ AsmInputElement ] { ',' AsmInputElement }
9276 : :
9277 : : first symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok, lsbratok, commatok
9278 : :
9279 : : reachend
9280 : : */
9281 : :
9282 : 12 : static void AsmInputList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9283 : : {
9284 : 12 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_lsbratok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))))) != 0))))
9285 : : {
9286 : 12 : AsmInputElement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
9287 : : }
9288 : 12 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
9289 : : {
9290 : 0 : Expect (M2Reserved_commatok, stopset0|(P3Build_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|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))));
9291 : 0 : AsmInputElement (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
9292 : : }
9293 : : /* while */
9294 : 12 : }
9295 : :
9296 : :
9297 : : /*
9298 : : NamedOperand := '[' Ident ']'
9299 : :
9300 : : first symbols:lsbratok
9301 : :
9302 : : cannot reachend
9303 : : */
9304 : :
9305 : 0 : static void NamedOperand (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9306 : : {
9307 : 0 : Expect (M2Reserved_lsbratok, stopset0, stopset1, stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
9308 : 0 : Ident (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rsbratok-M2Reserved_eoftok))), stopset1, stopset2);
9309 : 0 : Expect (M2Reserved_rsbratok, stopset0, stopset1, stopset2);
9310 : 0 : }
9311 : :
9312 : :
9313 : : /*
9314 : : AsmOperandName := ( NamedOperand |
9315 : :
9316 : : % IF IsAutoPushOn()
9317 : : THEN
9318 : : PushTF (NulName, identtok)
9319 : : END
9320 : : %
9321 : : )
9322 : :
9323 : : first symbols:lsbratok
9324 : :
9325 : : reachend
9326 : : */
9327 : :
9328 : 24 : static void AsmOperandName (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9329 : : {
9330 : 24 : if (M2LexBuf_currenttoken == M2Reserved_lsbratok)
9331 : : {
9332 : 0 : NamedOperand (stopset0, stopset1, stopset2);
9333 : : }
9334 : : else
9335 : : {
9336 : 24 : if (M2Quads_IsAutoPushOn ())
9337 : : {
9338 : 24 : M2Quads_PushTF (static_cast<unsigned int> (NameKey_NulName), static_cast<unsigned int> (M2Reserved_identtok));
9339 : : }
9340 : : }
9341 : 24 : }
9342 : :
9343 : :
9344 : : /*
9345 : : AsmInputElement := AsmOperandName ConstExpression
9346 : : '(' Expression
9347 : : % BuildAsmElement (TRUE, FALSE)
9348 : : %
9349 : : ')'
9350 : :
9351 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, lsbratok
9352 : :
9353 : : cannot reachend
9354 : : */
9355 : :
9356 : 12 : static void AsmInputElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9357 : : {
9358 : 12 : AsmOperandName (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
9359 : 12 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
9360 : 12 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
9361 : 12 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
9362 : 12 : M2Quads_BuildAsmElement (true, false);
9363 : 12 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
9364 : 12 : }
9365 : :
9366 : :
9367 : : /*
9368 : : AsmOutputElement := AsmOperandName ConstExpression
9369 : : '(' Expression
9370 : : % BuildAsmElement (FALSE, TRUE)
9371 : : %
9372 : : ')'
9373 : :
9374 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, lsbratok
9375 : :
9376 : : cannot reachend
9377 : : */
9378 : :
9379 : 12 : static void AsmOutputElement (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9380 : : {
9381 : 12 : AsmOperandName (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
9382 : 12 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_lparatok-M2Reserved_eoftok))), stopset1, stopset2);
9383 : 12 : Expect (M2Reserved_lparatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok))));
9384 : 12 : Expression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_rparatok-M2Reserved_eoftok))), stopset1, stopset2);
9385 : 12 : M2Quads_BuildAsmElement (false, true);
9386 : 12 : Expect (M2Reserved_rparatok, stopset0, stopset1, stopset2);
9387 : 12 : }
9388 : :
9389 : :
9390 : : /*
9391 : : AsmTrashList := [ ConstExpression
9392 : : % BuildAsmTrash
9393 : : %
9394 : : ] { ',' ConstExpression
9395 : : % BuildAsmTrash
9396 : : %
9397 : : }
9398 : :
9399 : : first symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok, commatok
9400 : :
9401 : : reachend
9402 : : */
9403 : :
9404 : 6 : static void AsmTrashList (P3Build_SetOfStop0 stopset0, P3Build_SetOfStop1 stopset1, P3Build_SetOfStop2 stopset2)
9405 : : {
9406 : 6 : if ((((M2LexBuf_currenttoken < M2Reserved_arraytok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_eoftok)) & ((P3Build_SetOfStop0) ((1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))))) != 0))) || (M2LexBuf_currenttoken == M2Reserved_nottok)) || ((M2LexBuf_currenttoken >= M2Reserved_unqualifiedtok) && ((((1 << (M2LexBuf_currenttoken-M2Reserved_unqualifiedtok)) & ((P3Build_SetOfStop2) ((1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok))))) != 0))))
9407 : : {
9408 : 0 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
9409 : 0 : M2Quads_BuildAsmTrash ();
9410 : : }
9411 : 6 : while (M2LexBuf_currenttoken == M2Reserved_commatok)
9412 : : {
9413 : 0 : Expect (M2Reserved_commatok, stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_minustok-M2Reserved_eoftok)) | (1 << (M2Reserved_plustok-M2Reserved_eoftok)) | (1 << (M2Reserved_lparatok-M2Reserved_eoftok)) | (1 << (M2Reserved_lcbratok-M2Reserved_eoftok))), stopset1|(P3Build_SetOfStop1) ((1 << (M2Reserved_nottok-M2Reserved_arraytok))), stopset2|(P3Build_SetOfStop2) ((1 << (M2Reserved_integertok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_realtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_attributetok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_identtok-M2Reserved_unqualifiedtok)) | (1 << (M2Reserved_stringtok-M2Reserved_unqualifiedtok))));
9414 : 0 : ConstExpression (stopset0|(P3Build_SetOfStop0) ((1 << (M2Reserved_commatok-M2Reserved_eoftok))), stopset1, stopset2);
9415 : 0 : M2Quads_BuildAsmTrash ();
9416 : : }
9417 : : /* while */
9418 : 6 : }
9419 : :
9420 : :
9421 : : /*
9422 : : CompilationUnit - returns TRUE if the input was correct enough to parse
9423 : : in future passes.
9424 : : */
9425 : :
9426 : 128447 : extern "C" bool P3Build_CompilationUnit (void)
9427 : : {
9428 : 128447 : seenError = false;
9429 : 128447 : FileUnit ((P3Build_SetOfStop0) ((1 << (M2Reserved_eoftok-M2Reserved_eoftok))), (P3Build_SetOfStop1) 0, (P3Build_SetOfStop2) 0);
9430 : 128249 : return ! seenError;
9431 : : /* static analysis guarentees a RETURN statement will be used before here. */
9432 : : __builtin_unreachable ();
9433 : : }
9434 : :
9435 : 14232 : extern "C" void _M2_P3Build_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
9436 : : {
9437 : 14232 : BlockState = M2StateCheck_InitState ();
9438 : 14232 : }
9439 : :
9440 : 0 : extern "C" void _M2_P3Build_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
9441 : : {
9442 : 0 : }
|
