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