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