gcc/m2/mc-boot/Gmcp4.cc

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