home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v92.tgz / v92.tar / v92 / src / rtt / rttparse.c < prev    next >
C/C++ Source or Header  |  1996-03-22  |  116KB  |  2,993 lines

  1.  
  2. # line 7 "rttgram.y"
  3. #include "rtt1.h"
  4. #define YYMAXDEPTH 250
  5.  
  6. # line 11 "rttgram.y"
  7. typedef union  {
  8.    struct token *t;
  9.    struct node *n;
  10.    long i;
  11.    } YYSTYPE;
  12. # define Identifier 257
  13. # define StrLit 258
  14. # define LStrLit 259
  15. # define FltConst 260
  16. # define DblConst 261
  17. # define LDblConst 262
  18. # define CharConst 263
  19. # define LCharConst 264
  20. # define IntConst 265
  21. # define UIntConst 266
  22. # define LIntConst 267
  23. # define ULIntConst 268
  24. # define Arrow 269
  25. # define Incr 270
  26. # define Decr 271
  27. # define LShft 272
  28. # define RShft 273
  29. # define Leq 274
  30. # define Geq 275
  31. # define Equal 276
  32. # define Neq 277
  33. # define And 278
  34. # define Or 279
  35. # define MultAsgn 280
  36. # define DivAsgn 281
  37. # define ModAsgn 282
  38. # define PlusAsgn 283
  39. # define MinusAsgn 284
  40. # define LShftAsgn 285
  41. # define RShftAsgn 286
  42. # define AndAsgn 287
  43. # define XorAsgn 288
  44. # define OrAsgn 289
  45. # define Sizeof 290
  46. # define Intersect 291
  47. # define OpSym 292
  48. # define Typedef 293
  49. # define Extern 294
  50. # define Static 295
  51. # define Auto 296
  52. # define Register 297
  53. # define Tended 298
  54. # define Char 299
  55. # define Short 300
  56. # define Int 301
  57. # define Long 302
  58. # define Signed 303
  59. # define Unsigned 304
  60. # define Float 305
  61. # define Doubl 306
  62. # define Const 307
  63. # define Volatile 308
  64. # define Void 309
  65. # define TypeDefName 310
  66. # define Struct 311
  67. # define Union 312
  68. # define Enum 313
  69. # define Ellipsis 314
  70. # define Case 315
  71. # define Default 316
  72. # define If 317
  73. # define Else 318
  74. # define Switch 319
  75. # define While 320
  76. # define Do 321
  77. # define For 322
  78. # define Goto 323
  79. # define Continue 324
  80. # define Break 325
  81. # define Return 326
  82. # define Runerr 327
  83. # define Is 328
  84. # define Cnv 329
  85. # define Def 330
  86. # define Exact 331
  87. # define Empty_type 332
  88. # define IconType 333
  89. # define Component 334
  90. # define Variable 335
  91. # define Any_value 336
  92. # define Named_var 337
  93. # define Struct_var 338
  94. # define C_Integer 339
  95. # define Arith_case 340
  96. # define C_Double 341
  97. # define C_String 342
  98. # define Tmp_string 343
  99. # define Tmp_cset 344
  100. # define Body 345
  101. # define End 346
  102. # define Function 347
  103. # define Keyword 348
  104. # define Operator 349
  105. # define Underef 350
  106. # define Declare 351
  107. # define Suspend 352
  108. # define Fail 353
  109. # define Inline 354
  110. # define Abstract 355
  111. # define Store 356
  112. # define Type 357
  113. # define New 358
  114. # define All_fields 359
  115. # define Then 360
  116. # define Type_case 361
  117. # define Of 362
  118. # define Len_case 363
  119. # define Constant 364
  120. # define Errorfail 365
  121. # define IfStmt 366
  122. #define yyclearin yychar = -1
  123. #define yyerrok yyerrflag = 0
  124. extern int yychar;
  125. extern int yyerrflag;
  126. #ifndef YYMAXDEPTH
  127. #define YYMAXDEPTH 150
  128. #endif
  129. YYSTYPE yylval, yyval;
  130. # define YYERRCODE 256
  131.  
  132. # line 1089 "rttgram.y"
  133.  
  134.  
  135. /*
  136.  * xfree(p) -- used with free(p) macro to avoid compiler errors from
  137.  *  miscast free calls generated by Yacc.
  138.  */
  139. static novalue xfree(p)
  140. char *p;
  141. {
  142.    free(p);
  143. }
  144.  
  145. #define free(p) xfree((char*)p)
  146. int yyexca[] ={
  147. -1, 0,
  148.     0, 279,
  149.     258, 299,
  150.     347, 299,
  151.     348, 299,
  152.     349, 299,
  153.     -2, 193,
  154. -1, 1,
  155.     0, -1,
  156.     -2, 0,
  157. -1, 2,
  158.     0, 280,
  159.     258, 299,
  160.     347, 299,
  161.     348, 299,
  162.     349, 299,
  163.     -2, 193,
  164. -1, 51,
  165.     44, 113,
  166.     59, 113,
  167.     -2, 290,
  168. -1, 58,
  169.     44, 115,
  170.     59, 115,
  171.     -2, 289,
  172. -1, 100,
  173.     123, 166,
  174.     -2, 168,
  175. -1, 138,
  176.     125, 257,
  177.     59, 86,
  178.     -2, 230,
  179. -1, 238,
  180.     125, 257,
  181.     59, 86,
  182.     -2, 230,
  183. -1, 239,
  184.     125, 258,
  185.     59, 86,
  186.     -2, 230,
  187. -1, 255,
  188.     58, 293,
  189.     -2, 1,
  190. -1, 256,
  191.     58, 294,
  192.     -2, 98,
  193. -1, 262,
  194.     59, 86,
  195.     -2, 230,
  196. -1, 308,
  197.     41, 212,
  198.     -2, 193,
  199. -1, 371,
  200.     41, 204,
  201.     44, 204,
  202.     -2, 193,
  203. -1, 396,
  204.     59, 86,
  205.     -2, 230,
  206. -1, 398,
  207.     59, 86,
  208.     -2, 230,
  209. -1, 452,
  210.     41, 214,
  211.     44, 214,
  212.     -2, 194,
  213. -1, 516,
  214.     59, 86,
  215.     -2, 230,
  216. -1, 545,
  217.     40, 193,
  218.     91, 193,
  219.     -2, 219,
  220. -1, 617,
  221.     293, 219,
  222.     294, 219,
  223.     295, 219,
  224.     296, 219,
  225.     297, 219,
  226.     299, 219,
  227.     300, 219,
  228.     301, 219,
  229.     302, 219,
  230.     303, 219,
  231.     304, 219,
  232.     305, 219,
  233.     306, 219,
  234.     307, 219,
  235.     308, 219,
  236.     309, 219,
  237.     310, 219,
  238.     311, 219,
  239.     312, 219,
  240.     313, 219,
  241.     41, 219,
  242.     339, 219,
  243.     341, 219,
  244.     342, 219,
  245.     -2, 193,
  246. -1, 624,
  247.     59, 86,
  248.     -2, 230,
  249. -1, 625,
  250.     59, 86,
  251.     -2, 230,
  252. -1, 627,
  253.     59, 86,
  254.     -2, 230,
  255. -1, 677,
  256.     59, 86,
  257.     -2, 230,
  258. -1, 725,
  259.     59, 86,
  260.     -2, 230,
  261. -1, 730,
  262.     58, 453,
  263.     -2, 317,
  264. -1, 731,
  265.     58, 454,
  266.     -2, 321,
  267. -1, 732,
  268.     58, 455,
  269.     -2, 324,
  270. -1, 733,
  271.     58, 456,
  272.     -2, 337,
  273. -1, 771,
  274.     59, 86,
  275.     -2, 230,
  276. -1, 792,
  277.     59, 86,
  278.     -2, 230,
  279.     };
  280. # define YYNPROD 481
  281. # define YYLAST 3082
  282. int yyact[]={
  283.  
  284.    166,   644,   439,   665,   196,   272,   241,   718,   245,   720,
  285.    565,   350,   645,    16,   676,   257,    63,   657,   105,     9,
  286.    662,     9,   646,   492,   365,   212,   552,   370,   104,     8,
  287.    358,     8,    11,   658,   240,    88,   186,    50,   143,   234,
  288.    222,   346,    58,   638,    97,    97,   227,   761,   271,   213,
  289.    420,   486,   140,   484,    97,   147,   745,    98,    98,    12,
  290.    478,    51,   642,   551,   193,    13,   475,    98,   728,    55,
  291.    118,   120,   119,   541,   146,    56,   683,    25,   238,   709,
  292.    523,   746,   684,    90,   436,   437,   364,   438,   435,   137,
  293.    725,   652,   553,   553,   345,   436,   437,   123,   438,   435,
  294.    436,   437,   179,   438,   435,   347,   348,   349,   666,    93,
  295.    132,   663,    23,    24,   144,    18,    19,    20,    21,    22,
  296.    144,    33,    34,    35,    36,    39,    40,    37,    38,    23,
  297.     24,    32,   308,    45,    46,    44,    97,   307,   141,   255,
  298.    132,   132,   185,   181,   132,   180,   141,   182,   393,    98,
  299.    670,   144,   256,   191,    56,   165,   301,   780,   751,    15,
  300.    394,   395,   713,   228,   189,    55,   696,   184,    53,   479,
  301.    124,    56,   288,   789,   154,   663,   446,   215,   650,   317,
  302.    560,   318,   223,   246,   274,   315,   316,   695,   490,   298,
  303.    321,   322,   312,    61,   183,   336,   214,   237,   338,   334,
  304.    337,   131,   339,   412,   351,   352,   295,   297,   215,   299,
  305.    820,   360,   800,   328,   127,   200,    31,   368,   770,    18,
  306.     19,    20,    21,    22,   756,   691,   612,   306,   233,   384,
  307.    510,   128,   132,    23,    24,   373,   422,    97,   496,   255,
  308.    255,   491,   476,   215,   305,   372,   390,   384,   387,   786,
  309.     98,   626,   256,   391,   561,   559,   138,   235,   477,   130,
  310.    332,   313,   214,   255,    53,   409,   236,    53,   211,   406,
  311.    210,    53,   750,   389,   378,    88,   391,   209,   391,   382,
  312.    215,   423,   135,   413,   413,   215,   126,    59,   802,    53,
  313.    738,    92,    97,    97,   200,   420,   429,   397,   690,   214,
  314.    660,    95,   100,   215,   214,    98,    98,   447,   357,   404,
  315.    509,   110,   471,   363,   312,   637,   700,   421,   651,   696,
  316.    765,   485,   214,   312,   312,   434,   781,   385,   383,   114,
  317.    368,   108,   226,   545,   696,   696,   334,   425,   426,   399,
  318.    695,   218,   772,   215,   535,   306,   334,   768,   373,   306,
  319.    666,   188,   451,   735,   351,   695,   695,   215,   372,   220,
  320.    194,   215,   468,   469,   470,   487,   636,   764,   521,   215,
  321.    215,   215,   215,   215,   215,   215,   215,   215,   215,   215,
  322.    215,   215,   215,   215,   546,    97,   452,   480,   287,   347,
  323.    348,   349,   230,   319,   320,   512,   514,   255,    98,   255,
  324.     52,   190,   187,   515,   500,   517,   518,   671,   448,   202,
  325.    391,   474,   391,   228,    31,   501,   472,   503,   629,   208,
  326.    527,   528,   529,   524,   507,   122,   531,   505,   144,   223,
  327.    511,    49,   205,    55,   359,   508,   388,   206,   432,    56,
  328.    530,   215,   454,   455,   488,   489,   207,   201,   408,   452,
  329.    220,   519,   520,   203,   522,   204,   195,   433,   457,   456,
  330.    214,   533,   424,   458,   459,   386,   466,   467,   453,   440,
  331.    436,   437,   417,   438,   435,   441,   121,   442,   443,   444,
  332.    445,    23,    24,   554,   526,   557,   558,   543,   202,   464,
  333.    465,   525,   566,   419,   649,   647,   648,   566,   208,   614,
  334.    418,   696,   411,    63,   556,   567,   215,   613,   142,   389,
  335.    567,   205,   460,   461,   462,   463,   206,   255,   373,   361,
  336.    362,   555,   695,   621,   611,   207,   201,   616,   372,   410,
  337.    391,   502,   203,   420,   204,   401,    53,   818,   290,   242,
  338.      5,    31,     5,   631,   291,   632,   633,   534,   635,   430,
  339.    431,   107,    53,   331,   618,   380,   619,   229,   376,    31,
  340.    215,   341,   215,   351,   815,   351,   620,   810,   113,   107,
  341.    379,   771,   640,   375,   664,   224,   667,   643,   759,   214,
  342.    758,   214,   659,   112,   106,   757,   715,   712,   103,   289,
  343.    215,   516,   483,   482,   481,   398,   396,   381,   377,   304,
  344.    303,   164,   215,   302,   697,   775,   159,   327,   178,   630,
  345.    160,   161,   325,   162,   323,   798,   324,   326,   799,   794,
  346.    755,   214,   795,   452,   753,   255,   255,   754,   255,   672,
  347.    734,   673,   674,   420,   678,   669,   685,   627,   391,   391,
  348.    420,   391,   139,   625,   692,   680,   420,   682,   693,   659,
  349.    123,   562,   701,   702,   351,   351,   351,   703,   373,   499,
  350.    677,   498,   686,   710,   689,   704,   705,   706,   372,   721,
  351.    624,   699,   622,   420,   708,   623,   420,   679,   494,   659,
  352.    563,   711,   714,   564,   536,   812,   729,   537,   736,    31,
  353.    727,   737,   215,   811,   163,   452,   741,   806,   659,   351,
  354.    711,   790,   749,   494,   493,   453,   373,   742,   743,   677,
  355.    747,   214,   739,   797,   449,   792,   372,   420,   777,   776,
  356.    760,   762,   774,   766,   566,   763,   255,   752,   740,   724,
  357.    717,   716,   769,   688,   767,   681,   634,   567,   547,   391,
  358.    538,   497,   450,   330,   217,   748,   698,   668,   655,   654,
  359.    779,   773,   653,   628,   542,   540,   539,   407,   405,   403,
  360.    782,   783,   784,   402,   785,   787,   721,   292,   293,   294,
  361.    400,   356,   353,   314,   355,   788,     3,   502,   354,    47,
  362.    791,   793,   641,   796,   342,   719,   723,   495,   117,   801,
  363.    803,   721,   192,   255,   116,   115,    60,   807,   804,   805,
  364.    808,    10,    48,     6,     4,   809,   391,     2,   392,   249,
  365.    687,   639,   216,   329,   136,   813,   814,    99,   506,   817,
  366.    816,   200,   504,   819,     1,    75,   167,   168,   169,   170,
  367.    171,   172,   173,   174,   175,   176,   177,   778,   150,   151,
  368.    550,   164,   549,   661,   344,   675,   159,   726,   178,   707,
  369.    160,   161,   656,   162,   343,   197,   199,   198,   153,   340,
  370.      7,    18,    19,    20,    21,    22,   243,    33,    34,    35,
  371.     36,    39,    40,    37,    38,    23,    24,    32,    26,    45,
  372.     46,    44,   253,   247,   248,   258,   252,   259,   261,   262,
  373.    263,   264,   265,   266,   267,   254,   156,   157,   158,    73,
  374.     71,    74,    69,    87,    67,    77,    81,    27,    75,    28,
  375.     29,    84,    83,    68,    72,   251,   250,   239,    86,    70,
  376.    268,   269,    76,    65,    80,    85,    78,    66,    82,   260,
  377.     79,   101,   102,   270,   163,   244,   273,   544,   366,   369,
  378.    367,   599,    62,   109,   605,   582,   600,   568,   594,   604,
  379.    571,   597,   589,   592,   598,   607,   584,   578,   573,   609,
  380.    608,    26,   601,   606,   580,    42,   570,   576,   588,   579,
  381.    603,   610,   577,   585,   587,   574,   569,   595,   596,   590,
  382.    572,   575,    73,    71,    74,    69,    87,    67,    77,    81,
  383.     27,   225,    28,    29,    84,    83,    68,    72,   586,   591,
  384.    593,    86,    70,   602,   583,    76,    65,    80,    85,    78,
  385.     66,    82,   164,    79,   221,   202,   581,   159,   133,   178,
  386.    129,   160,   161,    41,   162,   208,   309,    54,    17,   371,
  387.    436,   437,   276,   438,   435,   148,   428,   149,   205,   155,
  388.    744,   694,   335,   206,    43,   275,   152,     0,     0,     0,
  389.      0,     0,   207,   201,     0,     0,   111,     0,     0,   203,
  390.      0,   204,     0,     0,     0,    75,   167,   168,   169,   170,
  391.    171,   172,   173,   174,   175,   176,   177,     0,   150,   151,
  392.     33,    34,    35,    36,    39,    40,    37,    38,    23,    24,
  393.     32,     0,    45,    46,    44,     0,     0,     0,   153,     0,
  394.      0,     0,     0,     0,     0,   163,     0,     0,     0,     0,
  395.      0,     0,     0,     0,     0,     0,     0,     0,    26,    75,
  396.      0,     0,     0,   247,   248,   258,     0,   259,   261,   262,
  397.    263,   264,   265,   266,   267,   254,   156,   157,   158,    73,
  398.     71,    74,    69,    87,    67,    77,    81,    27,     0,    28,
  399.     29,    84,    83,    68,    72,     0,     0,     0,    86,    70,
  400.    268,   269,    76,    65,    80,    85,    78,    66,    82,   260,
  401.     79,   164,    26,   270,     0,     0,   159,     0,   178,     0,
  402.    160,   161,     0,   162,     0,     0,     0,     0,     0,     0,
  403.      0,     0,     0,    73,    71,    74,    69,    87,    67,    77,
  404.     81,    27,     0,    28,    29,    84,    83,    68,    72,     0,
  405.      0,     0,    86,    70,     0,     0,    76,    65,    80,    85,
  406.     78,    66,    82,     0,    79,     0,     0,     0,     0,     0,
  407.      0,     0,     0,     0,     0,     0,    75,   167,   168,   169,
  408.    170,   171,   172,   173,   174,   175,   176,   177,     0,   150,
  409.    151,   277,   278,   279,   280,   281,   282,   283,   284,   285,
  410.    286,     0,     0,     0,   163,     0,     0,     0,     0,   153,
  411.      0,     0,     0,    75,     0,     0,     0,     0,    33,    34,
  412.     35,    36,    39,    40,    37,    38,    23,    24,    32,    26,
  413.     45,    46,    44,   164,     0,     0,     0,     0,   159,     0,
  414.    178,     0,   160,   161,     0,   162,     0,   156,   157,   158,
  415.     73,    71,    74,    69,    87,    67,    77,    81,    27,     0,
  416.     28,    29,    84,    83,    68,    72,    26,     0,     0,    86,
  417.     70,     0,     0,    76,    65,    80,    85,    78,    66,    82,
  418.      0,    79,     0,     0,     0,     0,     0,    73,    71,    74,
  419.     69,    87,    67,    77,    81,    27,     0,    28,    29,    84,
  420.     83,    68,    72,     0,     0,     0,    86,    70,     0,     0,
  421.     76,    65,    80,    85,    78,    66,    82,     0,    79,     0,
  422.      0,     0,     0,     0,     0,     0,   163,     0,     0,     0,
  423.      0,     0,     0,     0,     0,    75,   167,   168,   169,   170,
  424.    171,   172,   173,   174,   175,   176,   177,     0,   150,   151,
  425.      0,   164,     0,     0,     0,     0,   159,     0,   178,     0,
  426.    160,   161,     0,   162,     0,     0,     0,     0,   153,     0,
  427.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  428.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  429.      0,     0,     0,     0,     0,   258,     0,   259,   261,   262,
  430.    263,   264,   265,   266,   267,   254,   156,   157,   158,    73,
  431.     71,    74,    69,    87,    67,    77,    81,     0,     0,     0,
  432.      0,    84,    83,    68,    72,     0,     0,     0,    86,    70,
  433.    268,   269,    76,    65,    80,    85,    78,    66,    82,   260,
  434.     79,     0,     0,   270,   163,     0,     0,     0,     0,     0,
  435.      0,     0,     0,     0,     0,     0,     0,    75,   167,   168,
  436.    169,   170,   171,   172,   173,   174,   175,   176,   177,     0,
  437.    150,   151,     0,     0,   164,     0,     0,     0,     0,   159,
  438.      0,   178,     0,   160,   161,     0,   162,     0,     0,     0,
  439.    153,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  440.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  441.      0,     0,     0,     0,     0,     0,     0,   258,     0,   259,
  442.    261,   262,   263,   264,   265,   266,   267,   254,   156,   157,
  443.    158,    73,   731,   732,    69,   733,   730,    77,    81,     0,
  444.      0,     0,     0,    84,    83,    68,    72,     0,     0,     0,
  445.     86,    70,   268,   269,    76,    65,    80,    85,    78,    66,
  446.     82,   260,    79,     0,   145,   270,   532,   163,     0,     0,
  447.      0,     0,     0,     0,     0,    75,   167,   168,   169,   170,
  448.    171,   172,   173,   174,   175,   176,   177,     0,   150,   151,
  449.    164,     0,     0,     0,     0,   159,     0,   178,   427,   160,
  450.    161,     0,   162,     0,     0,     0,     0,     0,   153,     0,
  451.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  452.      0,     0,     0,     0,     0,   164,     0,     0,     0,     0,
  453.    159,     0,   178,     0,   160,   161,     0,   162,     0,     0,
  454.      0,     0,     0,     0,     0,     0,   156,   157,   158,    73,
  455.     71,    74,    69,    87,    67,    77,    81,   414,   374,   415,
  456.    416,    84,    83,    68,    72,     0,     0,     0,    86,    70,
  457.      0,     0,    76,    65,    80,    85,    78,    66,    82,     0,
  458.     79,     0,     0,   163,     0,     0,     0,     0,     0,     0,
  459.      0,     0,     0,     0,     0,     0,     0,     0,    75,   167,
  460.    168,   169,   170,   171,   172,   173,   174,   175,   176,   177,
  461.      0,   150,   151,     0,     0,   145,     0,     0,   163,     0,
  462.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  463.      0,   153,     0,   164,     0,     0,     0,     0,   159,     0,
  464.    178,     0,   160,   161,     0,   162,     0,     0,     0,     0,
  465.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  466.      0,     0,     0,     0,     0,     0,     0,     0,     0,   156,
  467.    157,   158,    73,    71,    74,    69,    87,    67,    77,    81,
  468.      0,     0,     0,     0,    84,    83,    68,    72,     0,     0,
  469.      0,    86,    70,     0,     0,    76,    65,    80,    85,    78,
  470.     66,    82,     0,    79,     0,     0,     0,     0,     0,     0,
  471.      0,     0,     0,     0,    75,   167,   168,   169,   170,   171,
  472.    172,   173,   174,   175,   176,   177,   163,   150,   151,     0,
  473.      0,     0,    33,    34,    35,    36,    39,    40,    37,    38,
  474.     23,    24,    32,    26,    45,    46,    44,   153,     0,    75,
  475.    167,   168,   169,   170,   171,   172,   173,   174,   175,   176,
  476.    177,     0,   150,   151,     0,     0,     0,     0,     0,     0,
  477.      0,     0,    27,     0,    28,    29,     0,     0,     0,     0,
  478.      0,     0,   153,     0,     0,   156,   157,   158,    73,    71,
  479.     74,    69,    87,    67,    77,    81,     0,     0,     0,     0,
  480.     84,    83,    68,    72,     0,     0,     0,    86,    70,     0,
  481.      0,    76,    65,    80,    85,    78,    66,    82,     0,    79,
  482.    156,   157,   158,    73,    71,    74,    69,    87,    67,    77,
  483.     81,     0,     0,     0,     0,    84,    83,    68,    72,     0,
  484.      0,     0,    86,    70,     0,     0,    76,    65,    80,    85,
  485.     78,    66,    82,     0,    79,     0,     0,    75,   167,   168,
  486.    169,   170,   171,   172,   173,   174,   175,   176,   177,     0,
  487.    150,   151,   164,     0,     0,     0,     0,   159,     0,   300,
  488.      0,   160,   161,     0,   162,     0,     0,     0,     0,     0,
  489.    153,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  490.      0,     0,     0,     0,     0,     0,     0,   164,     0,     0,
  491.      0,     0,   159,     0,   296,     0,   160,   161,     0,   162,
  492.      0,     0,     0,     0,     0,     0,     0,     0,   156,   157,
  493.    158,    73,    71,    74,    69,    87,    67,    77,    81,    75,
  494.    219,     0,     0,    84,    83,    68,    72,     0,     0,     0,
  495.     86,    70,     0,     0,    76,    65,    80,    85,    78,    66,
  496.     82,     0,    79,     0,     0,   163,     0,     0,     0,     0,
  497.      0,    75,     0,     0,     0,    18,    19,    20,    21,    22,
  498.      0,    33,    34,    35,    36,    39,    40,    37,    38,    23,
  499.     24,    32,    26,    45,    46,    44,     0,     0,     0,     0,
  500.    163,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  501.      0,     0,     0,    73,    71,    74,    69,    87,    67,    77,
  502.     81,    27,     0,    28,    29,    84,    83,    68,    72,     0,
  503.      0,     0,    86,    70,     0,     0,    76,    65,    80,    85,
  504.     78,    66,    82,   617,    79,    73,    71,    74,    69,    87,
  505.     67,    77,    81,     0,     0,     0,     0,    84,    83,    68,
  506.     72,     0,     0,     0,   722,    70,     0,     0,    76,    65,
  507.     80,    85,    78,    66,    82,     0,    79,     0,     0,    96,
  508.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  509.      0,     0,     0,     0,   546,     0,    75,   167,   168,   169,
  510.    170,   171,   172,   173,   174,   175,   176,   177,     0,   150,
  511.    151,     0,     0,     0,    33,    34,    35,    36,    39,    40,
  512.     37,    38,    23,    24,    32,    26,    45,    46,    44,   153,
  513.      0,    75,   167,   168,   169,   170,   171,   172,   173,   174,
  514.    175,   176,   177,     0,   150,   151,     0,     0,    14,     0,
  515.      0,     0,     0,     0,    27,     0,    28,    29,    57,    64,
  516.      0,     0,     0,     0,   153,     0,    91,   156,   157,   158,
  517.     73,    71,    74,    69,    87,    67,    77,    81,     0,     0,
  518.     94,     0,    84,    83,    68,    72,     0,     0,     0,    86,
  519.     70,     0,     0,    76,    65,    80,    85,    78,    66,    82,
  520.      0,    79,   156,   157,   158,    73,    71,    74,    69,    87,
  521.     67,    77,    81,    75,     0,     0,     0,    84,    83,    68,
  522.     72,     0,     0,     0,    86,    70,     0,     0,    76,    65,
  523.     80,    85,    78,    66,    82,     0,    79,    57,     0,     0,
  524.      0,   125,     0,     0,     0,    94,     0,     0,     0,     0,
  525.      0,     0,     0,     0,    57,     0,     0,     0,     0,     0,
  526.     75,     0,     0,     0,     0,     0,    26,     0,     0,     0,
  527.      0,     0,     0,     0,     0,    94,    94,     0,     0,   125,
  528.      0,    94,   232,     0,     0,     0,     0,    73,    71,    74,
  529.     69,    87,    67,    77,    81,    27,     0,    28,    29,    84,
  530.     83,    68,    72,     0,     0,     0,    86,    70,     0,     0,
  531.     76,    65,    80,    85,    78,    66,    82,    75,    79,     0,
  532.    200,     0,     0,   200,     0,     0,     0,   310,     0,     0,
  533.      0,     0,     0,     0,    73,    71,    74,    69,    87,    67,
  534.     77,    81,     0,     0,     0,     0,    84,    83,    68,    72,
  535.      0,     0,     0,    86,    70,     0,     0,    76,    65,    80,
  536.     85,    78,    66,    82,     0,    79,     0,    94,     0,     0,
  537.    513,     0,     0,     0,     0,     0,    75,     0,     0,   125,
  538.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  539.      0,    73,    71,    74,    69,    87,    67,    77,    81,   548,
  540.      0,     0,     0,    84,    83,    68,    72,     0,    75,    31,
  541.     86,    70,     0,     0,    76,    65,    80,    85,    78,    66,
  542.     82,     0,    79,     0,     0,     0,     0,     0,     0,     0,
  543.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  544.      0,     0,     0,     0,     0,     0,     0,     0,     0,   310,
  545.     73,    71,    74,    69,    87,    67,    77,    81,   310,   310,
  546.      0,     0,    84,    83,    68,    72,     0,     0,     0,    86,
  547.     70,     0,     0,    76,    65,    80,    85,    78,    66,    82,
  548.      0,    79,    73,    71,    74,    69,    87,    67,    77,    81,
  549.      0,     0,     0,     0,    84,    83,    68,    72,     0,     0,
  550.      0,    86,    70,    31,     0,    76,    65,    80,    85,    78,
  551.     66,    82,     0,    79,   202,     0,     0,   202,     0,   229,
  552.      0,     0,    57,     0,   208,     0,     0,   208,     0,     0,
  553.      0,     0,     0,     0,     0,     0,     0,   205,     0,     0,
  554.    205,     0,   206,   473,     0,   206,   333,     0,     0,     0,
  555.      0,   207,   201,     0,   207,   201,     0,     0,   203,     0,
  556.    204,   203,     0,   204,     0,     0,     0,    18,    19,    20,
  557.     21,    22,   243,    33,    34,    35,    36,    39,    40,    37,
  558.     38,    23,    24,    32,    26,    45,    46,    44,    18,    19,
  559.     20,    21,    22,     0,    33,    34,    35,    36,    39,    40,
  560.     37,    38,    23,    24,    32,    26,    45,    46,    44,   615,
  561.     30,     0,     0,    27,     0,    28,    29,     0,     0,     0,
  562.      0,     0,     0,     0,     0,     0,     0,     0,    89,     0,
  563.      0,     0,     0,     0,    27,     0,    28,    29,    18,    19,
  564.     20,    21,    22,   243,    33,    34,    35,    36,    39,    40,
  565.     37,    38,    23,    24,    32,    26,    45,    46,    44,     0,
  566.     18,    19,    20,    21,    22,     0,    33,    34,    35,    36,
  567.     39,    40,    37,    38,    23,    24,    32,    26,    45,    46,
  568.     44,     0,     0,     0,    27,     0,    28,    29,     0,     0,
  569.      0,    33,    34,    35,    36,    39,    40,    37,    38,    23,
  570.     24,    32,    26,    45,    46,    44,    27,   134,    28,    29,
  571.     18,    19,    20,    21,    22,     0,    33,    34,    35,    36,
  572.     39,    40,    37,    38,    23,    24,    32,    26,    45,    46,
  573.     44,    27,     0,    28,    29,     0,     0,   134,   134,     0,
  574.      0,   134,     0,     0,   231,     0,     0,     0,     0,     0,
  575.      0,     0,     0,     0,     0,     0,    27,     0,    28,    29,
  576.     33,    34,    35,    36,    39,    40,    37,    38,    23,    24,
  577.     32,    26,    45,    46,    44,     0,     0,     0,     0,     0,
  578.      0,     0,     0,     0,     0,     0,     0,     0,     0,   311,
  579.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  580.     27,     0,    28,    29,     0,     0,     0,     0,     0,     0,
  581.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  582.      0,     0,     0,     0,     0,     0,     0,     0,     0,   134,
  583.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  584.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  585.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  586.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  587.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  588.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  589.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  590.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  591.      0,   311,     0,     0,     0,     0,     0,     0,     0,     0,
  592.    311,   311 };
  593. int yypact[]={
  594.  
  595.   2527, -1000,  2527, -1000, -1000, -1000, -1000, -1000,   372,  2527,
  596.    -65, -1000, -1000, -1000, -1000,  2279,   -74,  -178, -1000, -1000,
  597.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  598.  -1000,   174, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  599.  -1000, -1000, -1000,  2116,   862, -1000, -1000, -1000,  2577, -1000,
  600.    525,   270, -1000,  1016,   524, -1000, -1000, -1000,   268, -1000,
  601.   -277, -1000,   385, -1000,   647, -1000, -1000, -1000, -1000, -1000,
  602.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  603.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,   -74, -1000,
  604.  -1000, -1000,   174, -1000, -1000,   163,  2552, -1000, -1000,   159,
  605.  -1000,   133,  2577, -1000,   372,  2527, -1000,   647,  1652,   311,
  606.  -1000,   647, -1000,   647,  1652, -1000,  -287,    92,   154,   147,
  607.    145,  1760, -1000,   703, -1000, -1000,  2552,  1975, -1000,   517,
  608.   2621, -1000,  -195,   781, -1000,   862,   143, -1000,   568, -1000,
  609.    270,   268, -1000, -1000, -1000,  1652, -1000,   971,   109,   498,
  610.   2034,  2034,  1760,  1999,  -122, -1000,   545,   542,   541, -1000,
  611.  -1000, -1000, -1000, -1000, -1000,   120, -1000, -1000, -1000, -1000,
  612.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,   979,   167,
  613.    735,   -91,   119,   -82,   571,   570, -1000,  1760, -1000,   702,
  614.  -1000, -1000,   171,   137,  2360,   -63, -1000, -1000, -1000, -1000,
  615.    171, -1000,    61,  2311,  2311,   732, -1000, -1000,   731,   169,
  616.    169,   169,   220, -1000, -1000, -1000,  1842, -1000,  1593, -1000,
  617.  -1000,   514, -1000,   540,  1760,   511, -1000, -1000,   539,  1760,
  618.   -195, -1000, -1000,   203, -1000,   266,   862,   123,   568,   808,
  619.  -1000, -1000, -1000,  -151, -1000, -1000,   538,  1760,   537,   133,
  620.  -1000, -1000, -1000, -1000,   730, -1000,   -74,   476,   723,   719,
  621.   1760,   718,   808,   717,   862,   470,   443,  1378,  1378,   441,
  622.    434,   632, -1000,   192, -1000,  1760, -1000, -1000, -1000, -1000,
  623.  -1000, -1000, -1000, -1000, -1000, -1000, -1000,  1760,  1760,  1760,
  624.   1617,   862,   862, -1000, -1000, -1000,  1760, -1000, -1000, -1000,
  625.    979,  1760,  -232,   136,   136,  1760,   673,   701,   647,  2552,
  626.   2552, -1000, -1000,  1760,  1760,  1760,  1760,  1760,  1760,  1760,
  627.   1760,  1760,  1760,  1760,  1760,  1760,  1760,  1760,   219,  1842,
  628.  -1000,  2357,  2505, -1000, -1000,  -280, -1000, -1000, -1000, -1000,
  629.    117,   171,   135,  -300,  -109,  -223, -1000,   536,   535,   534,
  630.   -309,   230,  -311,  2311,   133,   133,   -77,   116,   660, -1000,
  631.  -1000, -1000,   113, -1000,   700, -1000,   617, -1000, -1000,   615,
  632.  -1000,   647, -1000,  2577, -1000, -1000,   517, -1000, -1000, -1000,
  633.    499, -1000, -1000, -1000,   862,  1760,   185, -1000,   105, -1000,
  634.  -1000, -1000,   647, -1000,  2220,  2311,   808,   533,   808, -1000,
  635.   1760, -1000,  1760,  1760,     6,  1760,  -240,  1760,   432, -1000,
  636.  -1000, -1000,   425, -1000,  1760,  1760,  1760,   381, -1000, -1000,
  637.   1760, -1000,  1501, -1000,  -122,   489,   251, -1000,   643, -1000,
  638.  -1000, -1000,   699,   120,   716, -1000, -1000, -1000, -1000,   715,
  639.  -1000, -1000, -1000, -1000, -1000, -1000,  -258,   714,   167, -1000,
  640.   1760, -1000, -1000,   293, -1000, -1000,   735,   -91,   119,   119,
  641.    -82,   -82,   -82,   -82,   571,   571,   570,   570, -1000, -1000,
  642.  -1000, -1000,   697, -1000,  2434, -1000, -1000,  -263,   171,  -223,
  643.  -1000,  -232,   136,   136,   132,   -85,   131,   607, -1000, -1000,
  644.    639,   651, -1000,   169, -1000,   101,   651, -1000,  2311,  2455,
  645.  -1000, -1000,  2163, -1000,  1760, -1000,  1760, -1000, -1000, -1000,
  646.  -1000,   507, -1000, -1000, -1000, -1000,   808, -1000,   631,   629,
  647.    602,   128,   596,   713,   359, -1000, -1000, -1000, -1000, -1000,
  648.  -1000, -1000, -1000, -1000,  1760, -1000, -1000,  1760, -1000,  1760,
  649.   1760,   695,  1760, -1000,   275,   647,  1760, -1000, -1000, -1000,
  650.   -264,   138, -1000,   227,  -227, -1000,   712,   709,   708,  -232,
  651.    207,   -90,  2311,   291,  2311,   707, -1000, -1000, -1000, -1000,
  652.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  653.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  654.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  655.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  656.  -1000,   635,  -142, -1000, -1000, -1000, -1000,   647, -1000, -1000,
  657.  -1000, -1000,   348,  1760,   808,   808,  -232,   808,  1760,  1760,
  658.  -1000, -1000,   694,   603,  -257,   592,  1760, -1000,   692,  2577,
  659.    205,   100,   138, -1000,    49,   558, -1000,   706,  -232,   225,
  660.    138,   138,   171,  2311,  2311,  2311,  -237, -1000,   698,   529,
  661.  -1000,  -154, -1000,   528,   690, -1000, -1000,   689,  1874, -1000,
  662.  -1000, -1000,   688,  -228, -1000,  -248, -1000,  1260, -1000,   589,
  663.    294, -1000,  1760, -1000, -1000,  1760,   197,  2577, -1000,   687,
  664.  -1000, -1000,    49, -1000,   138,   138, -1000,  -278,  2311,   705,
  665.    138,   231,    65, -1000,   686,   583,   576,    99, -1000,   527,
  666.  -1000,   522, -1000,   520, -1000,   171,  -315,   291,   684,   276,
  667.  -1000, -1000,  2311,   651,   288,   808,    93, -1000,   513, -1000,
  668.  -1000, -1000, -1000, -1000,   283,  1760,   681,   561, -1000,   678,
  669.  -1000, -1000,   558,   558, -1000, -1000, -1000,   677,   138,    64,
  670.  -1000,   265, -1000, -1000,  1760,  1760, -1000,   171, -1000,   171,
  671.  -1000,   126, -1000, -1000,  2311,  1874,   -96,   661, -1000, -1000,
  672.  -1000,  1138, -1000,   674, -1000,  1760, -1000, -1000,   578,  -104,
  673.  -1000,   138,   672,   574, -1000,    87,   136,   195, -1000,  2311,
  674.   1874, -1000,   808,   656, -1000,   138,    49, -1000, -1000,  1760,
  675.  -1000,   509, -1000, -1000,   652, -1000, -1000,  -104, -1000,   644,
  676.    171, -1000, -1000,   136,   506,   171,   136,   479,   171,    85,
  677.  -1000 };
  678. int yypgo[]={
  679.  
  680.      0,  1046,  1045,  1044,    13,     0,    10,  1042,  1041,  1040,
  681.    257,    65,  2308,  1039,  1037,  1036,    55,    36,   142,   167,
  682.    194,   147,   143,   145,   102,   155,   174,  1035,    74,     5,
  683.     48,    15,    49,    25,   539,    28,  1029,    59,  1028,    18,
  684.     37,  1027,   400,   287,  1026,  2770,  1023,   214,   231,  1020,
  685.    201,  1018,  1014,    40,   991,    46,   965,   228,    39,    52,
  686.     32,   943,   942,    77,   159,   259,   940,    24,   939,    27,
  687.    938,   132,   137,    43,   937,    38,   936,     6,   935,    89,
  688.    932,   931,   917,   916,   915,   886,   882,    86,   860,   197,
  689.     78,    34,     2,    22,   859,   360,     4,   203,   857,   856,
  690.     11,   855,   183,   854,   852,   849,    17,    33,   847,    14,
  691.    845,     8,   844,    41,   843,    20,   842,   840,    26,     1,
  692.     12,   837,    23,    30,   824,   822,   818,   817,   814,   813,
  693.    812,   811,   810,   809,   808,   807,   776,   804,   803,   802,
  694.    801,   796,   795,   794,   792,   788,   308,     7,   787,   786,
  695.    785,     9,   784,   782,   778,   774,     3 };
  696. int yyr1[]={
  697.  
  698.      0,    13,    13,    13,    13,    13,    13,    13,    13,    13,
  699.     13,    13,    13,    13,    14,    14,    14,    14,    14,    14,
  700.     14,    14,    14,    14,    14,    15,    15,    16,    16,    16,
  701.     16,    16,    16,     1,     1,     1,     1,     1,     1,    17,
  702.     17,    18,    18,    18,    18,    19,    19,    19,    20,    20,
  703.     20,    21,    21,    21,    21,    21,    22,    22,    22,    23,
  704.     23,    24,    24,    25,    25,    26,    26,    27,    27,    28,
  705.     28,    29,    29,     2,     2,     2,     2,     2,     2,     2,
  706.      2,     2,     2,     2,    30,    30,    31,    31,    32,    33,
  707.     33,    34,    34,    34,    35,    35,    36,    36,    37,    37,
  708.     37,    38,    38,    38,    38,    39,    39,    39,    39,    40,
  709.     40,    41,    41,    42,    42,    43,    43,    11,    11,    11,
  710.     11,    11,    44,    44,    45,    45,    45,    45,    45,    45,
  711.     45,    45,    45,    45,    45,    46,    46,    46,     3,     3,
  712.     47,    47,    48,    48,    49,    49,    50,    50,    50,    51,
  713.     51,    51,    52,    52,    53,    53,   125,    53,    54,    54,
  714.     55,    55,   126,    55,   127,    56,   128,    56,    56,    57,
  715.     57,    58,    58,    12,    12,    59,    60,    61,    61,    61,
  716.    129,    61,    62,    62,    62,   130,    62,    87,    87,    63,
  717.     63,    63,    63,    64,    64,    65,    65,    66,    66,    67,
  718.     67,    68,    68,    69,    69,    69,    70,    70,    71,    71,
  719.     71,    71,    72,    72,    73,    73,    74,    74,    74,   131,
  720.     74,   132,    74,    75,    75,    75,    76,    76,    77,    77,
  721.    133,   111,   111,   111,   111,   111,   111,   111,    78,    78,
  722.     78,    79,    79,    80,    80,    81,    81,    90,    90,    91,
  723.     91,   134,   134,   134,   134,    82,    82,    89,    89,    83,
  724.     84,    84,    84,    84,   110,   110,   109,   108,   108,    85,
  725.     85,    85,    86,    86,    86,    86,    86,    86,    86,   124,
  726.    124,   135,   135,   136,   136,   136,   139,   137,    88,    88,
  727.     88,    10,    10,   102,   102,     4,     4,     4,     4,   140,
  728.    138,   142,   142,   142,   141,   141,   143,   148,   149,   143,
  729.    145,     7,     7,     7,     7,     5,     5,     5,     5,     5,
  730.      5,     5,     5,     5,     5,     5,     5,     5,     5,     5,
  731.      5,     5,     5,     5,     5,     5,     5,     5,     6,     6,
  732.      6,     6,     6,     6,     6,     6,     6,     6,     6,     6,
  733.      6,     6,     6,     6,     6,     6,     6,     6,     6,     6,
  734.      6,     6,     6,     6,     6,     6,     6,     6,     6,     6,
  735.      6,     6,     6,     6,     6,     6,     6,     6,     6,     6,
  736.      6,     6,     6,   146,   146,   146,   123,   123,   122,   122,
  737.    147,   147,   147,   150,   150,   151,   151,   151,   144,   144,
  738.     94,    94,    95,    95,    96,    96,    96,    96,   152,   153,
  739.     96,   101,   101,   101,   101,   101,   104,   104,   106,   105,
  740.    105,   107,   107,   114,   114,   115,   103,   103,   112,   112,
  741.    113,   113,   113,   113,   113,   154,    98,   155,    98,    99,
  742.     99,   156,   156,   100,   100,    92,    92,    92,    92,    92,
  743.     92,    92,    92,    93,    93,    93,    93,    97,    97,    97,
  744.     97,   116,   116,   116,   117,   117,   118,   119,   119,   119,
  745.    120,   120,   120,   120,   120,   120,     8,   121,   121,     9,
  746.      9 };
  747. int yyr2[]={
  748.  
  749.      0,     3,     3,     3,     3,     3,     3,     3,     3,     3,
  750.      3,     3,     3,     7,     2,     9,     7,     9,     7,     7,
  751.      5,     5,    13,    17,    21,     2,     7,     2,     5,     5,
  752.      5,     5,     9,     2,     2,     2,     2,     2,     2,     2,
  753.      9,     2,     7,     7,     7,     2,     7,     7,     2,     7,
  754.      7,     2,     7,     7,     7,     7,     2,     7,     7,     2,
  755.      7,     2,     7,     2,     7,     2,     7,     2,     7,     2,
  756.     11,     2,     7,     2,     2,     2,     2,     2,     2,     2,
  757.      2,     2,     2,     2,     2,     7,     1,     2,     2,     1,
  758.      2,     5,     7,     7,     2,     5,     2,     2,     3,     5,
  759.      2,     2,     5,     5,     5,     2,     2,     5,     5,     2,
  760.      7,     2,     7,     3,     7,     3,     7,     3,     3,     3,
  761.      3,     3,     2,     3,     3,     3,     3,     3,     3,     3,
  762.      3,     3,     3,     2,     2,    11,     9,     5,     2,     2,
  763.      2,     5,     7,     7,     2,     5,     3,     5,     2,     2,
  764.      5,     5,     2,     7,     3,     5,     1,     9,     2,     7,
  765.      3,     5,     1,     9,     1,    11,     1,    13,     5,     2,
  766.      7,     3,     7,     3,     3,     5,     5,     2,     7,     9,
  767.      1,    11,     3,     7,     9,     1,    11,     2,     2,     3,
  768.      5,     5,     7,     1,     2,     2,     5,     2,     7,     1,
  769.      2,     2,     7,     5,     2,     5,     3,     7,     2,     2,
  770.      5,     5,     2,     5,     2,     5,     7,     7,     9,     1,
  771.      9,     1,    11,     2,     7,     9,     2,     7,     2,     2,
  772.      1,     5,     2,     2,     2,     2,    11,    15,     7,     9,
  773.      7,     7,     9,     2,     5,     1,     2,     2,     5,     2,
  774.      9,     3,     5,     5,     5,     2,     5,     1,     2,     5,
  775.     11,    15,    11,    15,     3,     5,     5,     1,     7,    11,
  776.     15,    19,     7,     5,     5,     7,     7,     5,     5,     0,
  777.      2,     2,     4,     2,     3,     2,     1,     9,     3,     5,
  778.      5,     3,     3,     3,     3,     2,     2,     2,     2,     1,
  779.      6,     9,     7,     9,     1,     3,    17,     1,     1,    23,
  780.     11,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  781.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  782.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  783.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  784.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  785.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  786.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  787.      2,     2,     2,     1,     5,     9,     3,     3,     1,     3,
  788.      0,     2,     9,     2,     7,     3,     5,     9,     1,     9,
  789.      1,     2,     2,     5,     2,     2,     2,     7,     1,     1,
  790.     13,     9,    13,    15,    19,    37,     3,     5,     5,     1,
  791.      7,     5,     7,     2,     5,     7,     2,     5,     2,     7,
  792.     13,    13,    17,    17,    21,     1,     7,     1,     7,    11,
  793.     15,     0,     3,     3,     9,     3,     3,     3,     3,     3,
  794.      3,     9,     9,     3,     3,     3,     3,     2,     5,     5,
  795.      5,     9,     7,     3,     2,     5,    15,     2,     7,     7,
  796.      3,     9,    11,     9,     7,     7,     2,     2,     7,     2,
  797.      2 };
  798. int yychk[]={
  799.  
  800.  -1000,  -124,  -135,  -136,  -137,   -34,  -138,   -88,   -35,   -39,
  801.   -140,   -60,   -37,   -11,   -12,   -64,    -4,   -38,   293,   294,
  802.    295,   296,   297,   307,   308,   -63,   310,   339,   341,   342,
  803.    -45,    42,   309,   299,   300,   301,   302,   305,   306,   303,
  804.    304,   -46,   -56,    -3,   313,   311,   312,  -136,  -139,    59,
  805.    -40,   -59,   -42,   -64,   -41,   -37,   -11,   -12,   -60,   -43,
  806.   -141,   258,   -62,    -5,    40,   355,   359,   336,   345,   334,
  807.    351,   332,   346,   331,   333,   257,   354,   337,   358,   362,
  808.    356,   338,   360,   344,   343,   357,   350,   335,   -39,   -45,
  809.    -11,   -12,   -65,   -63,   -12,   -10,   123,    -5,    -4,  -127,
  810.    -10,   -81,   -80,   -34,   -35,   -39,    59,    44,    61,   -61,
  811.    -10,    40,    59,    44,    61,  -142,  -143,  -145,   347,   349,
  812.    348,    91,    40,   -60,   -63,   -12,   123,   -47,   -48,   -49,
  813.    -65,   -50,    -4,   -51,   -45,   123,  -128,   -79,   123,   -34,
  814.    -59,   -60,   -42,   -75,   -29,   123,   -28,   -16,   -27,   -14,
  815.    270,   271,    -1,   290,   -26,   -13,   328,   329,   330,    38,
  816.     42,    43,    45,   126,    33,   -25,    -5,   258,   259,   260,
  817.    261,   262,   263,   264,   265,   266,   267,   268,    40,   -24,
  818.    -23,   -22,   -21,   -20,   -19,   -18,   -17,    91,    40,   -59,
  819.    -43,   -75,  -144,   351,   -95,   364,   -96,  -101,   -98,   -99,
  820.    123,   355,   317,   361,   363,   340,   345,   354,   327,   123,
  821.    123,   123,   -33,   -32,   -28,   -16,  -130,    41,   -47,   125,
  822.    -48,   -52,   -53,   -59,    58,   -54,   -50,   -55,   -60,    58,
  823.    -65,   -45,   -12,   -57,   -58,   -10,   123,   -89,   -90,   -82,
  824.    -91,   -77,   -34,   298,   -78,  -111,  -102,   315,   316,  -133,
  825.    -83,   -84,   -85,   -86,   327,    -5,    -4,   -31,   317,   319,
  826.    361,   320,   321,   322,   323,   324,   325,   326,   352,   353,
  827.    365,   -30,   -29,   -76,   -75,    -2,    61,   280,   281,   282,
  828.    283,   284,   285,   286,   287,   288,   289,   279,    63,    91,
  829.     40,    46,   269,   270,   271,   -16,    40,   -16,   -17,   -16,
  830.     40,   278,    58,    58,    58,   124,   -30,   -72,   -71,   -44,
  831.    -12,   -45,    -4,    94,    38,   276,   277,    60,    62,   274,
  832.    275,   272,   273,    43,    45,    42,    47,    37,   -33,  -129,
  833.     41,   -95,   123,   346,   -96,    -7,   258,   263,   261,   265,
  834.    -94,   -95,  -152,  -103,  -112,    33,  -113,   328,   329,   330,
  835.   -100,    -5,    -5,    40,  -154,  -155,    40,  -146,  -123,   265,
  836.     42,  -146,  -146,    93,   -87,   -67,   -70,   -66,    -5,   -68,
  837.    -69,   -36,   -35,   -39,   125,    59,    44,    58,   -32,    59,
  838.     44,    58,   -32,   125,    44,    61,   -57,   125,   -89,   -91,
  839.    -77,    -4,  -134,   299,   311,   312,    58,   -32,    58,   -79,
  840.     40,    59,    40,    40,   -30,    40,   -77,    40,  -102,    -5,
  841.     59,    59,   -97,   -31,   339,   341,   342,   -97,    59,    59,
  842.     44,   125,    44,   -29,   -26,   -30,   -30,    41,   -15,   -29,
  843.    -10,   -10,   -72,   -25,   -93,   336,   332,   333,   335,   -92,
  844.    333,   339,   341,   342,   343,   344,    40,   -92,   -24,    41,
  845.     41,   -73,   -63,   -64,   -71,   -71,   -23,   -22,   -21,   -21,
  846.    -20,   -20,   -20,   -20,   -19,   -19,   -18,   -18,   -17,   -17,
  847.    -17,    93,   -87,   346,   -90,   346,   125,   123,   360,   278,
  848.   -113,    58,    58,    58,   362,    91,   362,  -100,   -79,   -79,
  849.    265,   125,  -122,    44,    43,  -148,   125,    41,    44,    44,
  850.    -60,   -73,   -64,   -53,  -125,   -55,  -126,   -58,   -32,   125,
  851.    125,   -40,    -5,   310,    -5,   -77,    58,   -77,   -29,   -30,
  852.    -30,   362,   -30,   320,   -31,    59,    59,   -29,   -29,   -29,
  853.     59,   -29,   125,   -75,    58,    93,    41,    44,    41,    40,
  854.     40,   331,    40,   -17,   -74,    40,    91,    41,   125,  -116,
  855.   -117,   326,  -118,   356,   -96,  -113,   -93,   -92,   -92,   123,
  856.    265,   123,    44,    41,    44,    -6,    -5,    -4,   296,   325,
  857.    315,   299,   329,   307,   324,   330,   316,   321,   306,   318,
  858.    313,   365,   294,   353,   305,   322,   347,   323,   317,   301,
  859.    328,   348,   302,   349,   297,   326,   327,   300,   303,   290,
  860.    295,   311,   352,   319,   298,   293,   312,   304,   309,   308,
  861.    320,  -123,   125,    -6,    -5,   314,   -69,    40,   -32,   -32,
  862.     59,   -77,    41,    44,    41,    41,   123,    41,    40,    59,
  863.    -28,   -29,   -29,   -29,    41,   -29,    91,    40,   -73,  -131,
  864.    -33,  -153,   326,  -118,  -119,  -120,   -93,   357,   358,   356,
  865.     40,    91,   318,    40,    40,    40,  -104,  -106,  -107,   -93,
  866.     93,  -114,  -115,   265,  -100,  -156,    59,  -100,    40,  -122,
  867.    292,    59,   -29,   -77,   -77,  -110,  -109,  -107,   -77,   -30,
  868.    -31,    41,    44,   333,   339,    44,   -33,  -132,    41,   -67,
  869.     93,   125,  -119,  -156,    -8,   291,   270,    46,    40,   -93,
  870.     91,  -119,  -119,   -96,  -100,  -100,  -100,  -105,  -106,   316,
  871.    -96,   -93,    58,   316,  -115,    58,    41,    41,  -147,  -150,
  872.   -151,    -5,   350,  -149,    41,   318,  -108,  -109,   316,  -111,
  873.    336,   332,   333,   335,    41,    59,   -29,   -29,    93,   -67,
  874.     41,  -156,  -120,  -120,    -9,   334,   359,  -100,    40,  -119,
  875.     41,    93,    41,    41,    44,    44,   125,    58,    58,    58,
  876.    -96,   362,  -156,    41,    91,    44,    -5,    -6,    59,   -77,
  877.    125,    58,    59,   -31,    41,    44,    41,    41,  -121,  -119,
  878.     93,    61,   -29,   -29,   -96,   -96,   123,    -5,  -151,   269,
  879.     40,  -111,    41,   -29,    41,    44,  -119,    41,    41,    44,
  880.    125,   -92,    93,    -5,  -147,   -77,    41,  -119,  -156,   -29,
  881.     58,    41,    41,   -96,   -92,    58,   -96,   -92,    58,   -96,
  882.    125 };
  883. int yydef[]={
  884.  
  885.     -2,    -2,    -2,   281,   283,   284,   285,   286,   193,   193,
  886.    304,   288,    94,   105,   106,     0,    98,   100,   117,   118,
  887.    119,   120,   121,   173,   174,   194,   295,   296,   297,   298,
  888.    101,   189,   124,   125,   126,   127,   128,   129,   130,   131,
  889.    132,   133,   134,     0,   164,   138,   139,   282,   245,    91,
  890.      0,    -2,   109,     0,     0,    95,   107,   108,    -2,   111,
  891.      0,   305,   176,   182,   193,   315,   316,   317,   318,   319,
  892.    320,   321,   322,   323,   324,   325,   326,   327,   328,   329,
  893.    330,   331,   332,   333,   334,   335,   336,   337,    99,   102,
  894.    103,   104,   190,   191,   195,   137,     0,   291,   292,     0,
  895.     -2,     0,   246,   243,   193,   193,    92,   193,     0,   175,
  896.    177,   193,    93,   193,     0,   300,   398,     0,     0,     0,
  897.      0,    89,   185,     0,   192,   196,     0,     0,   140,   193,
  898.    193,   144,   146,   148,   149,     0,     0,   287,    -2,   244,
  899.    113,   115,   110,   114,   223,     0,    71,    39,    69,    27,
  900.      0,     0,     0,     0,    67,    14,     0,     0,     0,    33,
  901.     34,    35,    36,    37,    38,    65,     1,     2,     3,     4,
  902.      5,     6,     7,     8,     9,    10,    11,    12,     0,    63,
  903.     61,    59,    56,    51,    48,    45,    41,    89,   180,     0,
  904.    112,   116,     0,     0,     0,     0,   402,   404,   405,   406,
  905.    400,   408,     0,     0,     0,     0,   435,   437,     0,   383,
  906.    383,   383,     0,    90,    88,    39,   199,   183,     0,   136,
  907.    141,     0,   152,   154,     0,     0,   145,   158,   160,     0,
  908.    147,   150,   151,     0,   169,   171,     0,     0,    -2,    -2,
  909.    247,   255,   249,     0,   228,   229,     0,     0,     0,     0,
  910.    232,   233,   234,   235,     0,    -2,    -2,     0,     0,     0,
  911.      0,     0,    -2,     0,     0,     0,     0,    86,    86,     0,
  912.      0,    87,    84,     0,   226,     0,    73,    74,    75,    76,
  913.     77,    78,    79,    80,    81,    82,    83,     0,     0,     0,
  914.      0,     0,     0,    20,    21,    28,     0,    29,    30,    31,
  915.      0,     0,     0,     0,     0,     0,     0,     0,    -2,   208,
  916.    209,   122,   123,     0,     0,     0,     0,     0,     0,     0,
  917.      0,     0,     0,     0,     0,     0,     0,     0,     0,   199,
  918.    178,     0,     0,   302,   403,     0,   311,   312,   313,   314,
  919.      0,   401,     0,     0,   426,     0,   428,     0,     0,     0,
  920.      0,   443,     0,     0,     0,     0,     0,     0,   388,   386,
  921.    387,   307,     0,   184,     0,   187,   188,   200,   206,   197,
  922.    201,    -2,    96,    97,   135,   142,   193,   156,   155,   143,
  923.    193,   162,   161,   165,     0,     0,     0,   241,     0,   248,
  924.    256,   294,   193,   251,     0,     0,    -2,     0,    -2,   231,
  925.      0,   259,     0,     0,     0,     0,     0,    86,     0,   293,
  926.    273,   274,     0,   457,     0,     0,     0,     0,   277,   278,
  927.      0,   224,     0,    72,    68,     0,     0,    16,     0,    25,
  928.     18,    19,     0,    66,     0,   453,   454,   455,   456,     0,
  929.    445,   446,   447,   448,   449,   450,     0,     0,    64,    13,
  930.      0,   213,    -2,     0,   210,   211,    62,    60,    57,    58,
  931.     52,    53,    54,    55,    49,    50,    46,    47,    42,    43,
  932.     44,   179,     0,   301,     0,   303,   407,     0,     0,     0,
  933.    427,     0,     0,     0,     0,     0,     0,     0,   436,   438,
  934.      0,     0,   384,     0,   389,     0,     0,   186,     0,     0,
  935.    203,   205,     0,   153,     0,   159,     0,   170,   172,   167,
  936.    242,     0,   252,   253,   254,   238,    -2,   240,     0,     0,
  937.      0,     0,     0,     0,     0,   272,   275,   458,   459,   460,
  938.    276,    85,   225,   227,     0,    15,    17,     0,    32,     0,
  939.      0,     0,     0,    40,   215,    -2,    89,   181,   399,   409,
  940.    463,     0,   464,     0,   411,   429,     0,     0,     0,     0,
  941.      0,     0,     0,   441,     0,     0,   338,   339,   340,   341,
  942.    342,   343,   344,   345,   346,   347,   348,   349,   350,   351,
  943.    352,   353,   354,   355,   356,   357,   358,   359,   360,   361,
  944.    362,   363,   364,   365,   366,   367,   368,   369,   370,   371,
  945.    372,   373,   374,   375,   376,   377,   378,   379,   380,   381,
  946.    382,   388,     0,   310,   207,   198,   202,    -2,   157,   163,
  947.    250,   239,     0,     0,    -2,    -2,     0,    -2,     0,    86,
  948.     70,    26,     0,     0,     0,     0,    89,   221,     0,   199,
  949.      0,     0,     0,   465,   441,   467,   470,     0,     0,     0,
  950.      0,     0,     0,     0,     0,     0,   419,   416,     0,     0,
  951.    444,     0,   423,     0,     0,   439,   442,     0,   390,   385,
  952.    308,   236,     0,   260,   262,   267,   264,    -2,   269,     0,
  953.      0,    22,     0,   451,   452,     0,     0,   199,   216,     0,
  954.    217,   410,   441,   462,     0,     0,   476,     0,     0,     0,
  955.      0,     0,     0,   412,     0,     0,     0,     0,   417,     0,
  956.    418,     0,   421,     0,   424,     0,     0,   441,     0,   391,
  957.    393,   395,   336,     0,     0,    -2,     0,   265,     0,   266,
  958.     -2,    -2,    -2,    -2,     0,    86,     0,     0,   218,     0,
  959.    220,   461,   468,   469,   474,   479,   480,     0,     0,     0,
  960.    475,     0,   430,   431,     0,     0,   413,     0,   422,     0,
  961.    425,     0,   440,   306,     0,     0,   396,     0,   237,   261,
  962.    263,    -2,   270,     0,    23,     0,   222,   471,     0,   477,
  963.    473,     0,     0,     0,   420,     0,     0,     0,   394,     0,
  964.    390,   268,    -2,     0,   472,     0,   441,   432,   433,     0,
  965.    414,     0,   392,   397,     0,   271,    24,   478,   466,     0,
  966.      0,   309,   434,     0,     0,     0,     0,     0,     0,     0,
  967.    415 };
  968. typedef struct { char *t_name; int t_val; } yytoktype;
  969. #ifndef YYDEBUG
  970. #    define YYDEBUG    0    /* don't allow debugging */
  971. #endif
  972.  
  973. #if YYDEBUG
  974.  
  975. yytoktype yytoks[] =
  976. {
  977.     "Identifier",    257,
  978.     "StrLit",    258,
  979.     "LStrLit",    259,
  980.     "FltConst",    260,
  981.     "DblConst",    261,
  982.     "LDblConst",    262,
  983.     "CharConst",    263,
  984.     "LCharConst",    264,
  985.     "IntConst",    265,
  986.     "UIntConst",    266,
  987.     "LIntConst",    267,
  988.     "ULIntConst",    268,
  989.     "Arrow",    269,
  990.     "Incr",    270,
  991.     "Decr",    271,
  992.     "LShft",    272,
  993.     "RShft",    273,
  994.     "Leq",    274,
  995.     "Geq",    275,
  996.     "Equal",    276,
  997.     "Neq",    277,
  998.     "And",    278,
  999.     "Or",    279,
  1000.     "MultAsgn",    280,
  1001.     "DivAsgn",    281,
  1002.     "ModAsgn",    282,
  1003.     "PlusAsgn",    283,
  1004.     "MinusAsgn",    284,
  1005.     "LShftAsgn",    285,
  1006.     "RShftAsgn",    286,
  1007.     "AndAsgn",    287,
  1008.     "XorAsgn",    288,
  1009.     "OrAsgn",    289,
  1010.     "Sizeof",    290,
  1011.     "Intersect",    291,
  1012.     "OpSym",    292,
  1013.     "Typedef",    293,
  1014.     "Extern",    294,
  1015.     "Static",    295,
  1016.     "Auto",    296,
  1017.     "Register",    297,
  1018.     "Tended",    298,
  1019.     "Char",    299,
  1020.     "Short",    300,
  1021.     "Int",    301,
  1022.     "Long",    302,
  1023.     "Signed",    303,
  1024.     "Unsigned",    304,
  1025.     "Float",    305,
  1026.     "Doubl",    306,
  1027.     "Const",    307,
  1028.     "Volatile",    308,
  1029.     "Void",    309,
  1030.     "TypeDefName",    310,
  1031.     "Struct",    311,
  1032.     "Union",    312,
  1033.     "Enum",    313,
  1034.     "Ellipsis",    314,
  1035.     "Case",    315,
  1036.     "Default",    316,
  1037.     "If",    317,
  1038.     "Else",    318,
  1039.     "Switch",    319,
  1040.     "While",    320,
  1041.     "Do",    321,
  1042.     "For",    322,
  1043.     "Goto",    323,
  1044.     "Continue",    324,
  1045.     "Break",    325,
  1046.     "Return",    326,
  1047.     "%",    37,
  1048.     "&",    38,
  1049.     "(",    40,
  1050.     ")",    41,
  1051.     "*",    42,
  1052.     "+",    43,
  1053.     ",",    44,
  1054.     "-",    45,
  1055.     ".",    46,
  1056.     "/",    47,
  1057.     "{",    123,
  1058.     "|",    124,
  1059.     "}",    125,
  1060.     "~",    126,
  1061.     "[",    91,
  1062.     "]",    93,
  1063.     "^",    94,
  1064.     ":",    58,
  1065.     ";",    59,
  1066.     "<",    60,
  1067.     "=",    61,
  1068.     ">",    62,
  1069.     "?",    63,
  1070.     "!",    33,
  1071.     "@",    64,
  1072.     "\\",    92,
  1073.     "Runerr",    327,
  1074.     "Is",    328,
  1075.     "Cnv",    329,
  1076.     "Def",    330,
  1077.     "Exact",    331,
  1078.     "Empty_type",    332,
  1079.     "IconType",    333,
  1080.     "Component",    334,
  1081.     "Variable",    335,
  1082.     "Any_value",    336,
  1083.     "Named_var",    337,
  1084.     "Struct_var",    338,
  1085.     "C_Integer",    339,
  1086.     "Arith_case",    340,
  1087.     "C_Double",    341,
  1088.     "C_String",    342,
  1089.     "Tmp_string",    343,
  1090.     "Tmp_cset",    344,
  1091.     "Body",    345,
  1092.     "End",    346,
  1093.     "Function",    347,
  1094.     "Keyword",    348,
  1095.     "Operator",    349,
  1096.     "Underef",    350,
  1097.     "Declare",    351,
  1098.     "Suspend",    352,
  1099.     "Fail",    353,
  1100.     "Inline",    354,
  1101.     "Abstract",    355,
  1102.     "Store",    356,
  1103.     "Type",    357,
  1104.     "New",    358,
  1105.     "All_fields",    359,
  1106.     "Then",    360,
  1107.     "Type_case",    361,
  1108.     "Of",    362,
  1109.     "Len_case",    363,
  1110.     "Constant",    364,
  1111.     "Errorfail",    365,
  1112.     "IfStmt",    366,
  1113.     "-unknown-",    -1    /* ends search */
  1114. };
  1115.  
  1116. char * yyreds[] =
  1117. {
  1118.     "-no such reduction-",
  1119.     "primary_expr : identifier",
  1120.     "primary_expr : StrLit",
  1121.     "primary_expr : LStrLit",
  1122.     "primary_expr : FltConst",
  1123.     "primary_expr : DblConst",
  1124.     "primary_expr : LDblConst",
  1125.     "primary_expr : CharConst",
  1126.     "primary_expr : LCharConst",
  1127.     "primary_expr : IntConst",
  1128.     "primary_expr : UIntConst",
  1129.     "primary_expr : LIntConst",
  1130.     "primary_expr : ULIntConst",
  1131.     "primary_expr : '(' expr ')'",
  1132.     "postfix_expr : primary_expr",
  1133.     "postfix_expr : postfix_expr '[' expr ']'",
  1134.     "postfix_expr : postfix_expr '(' ')'",
  1135.     "postfix_expr : postfix_expr '(' arg_expr_lst ')'",
  1136.     "postfix_expr : postfix_expr '.' any_ident",
  1137.     "postfix_expr : postfix_expr Arrow any_ident",
  1138.     "postfix_expr : postfix_expr Incr",
  1139.     "postfix_expr : postfix_expr Decr",
  1140.     "postfix_expr : Is ':' i_type_name '(' assign_expr ')'",
  1141.     "postfix_expr : Cnv ':' dest_type '(' assign_expr ',' assign_expr ')'",
  1142.     "postfix_expr : Def ':' dest_type '(' assign_expr ',' assign_expr ',' assign_expr ')'",
  1143.     "arg_expr_lst : assign_expr",
  1144.     "arg_expr_lst : arg_expr_lst ',' assign_expr",
  1145.     "unary_expr : postfix_expr",
  1146.     "unary_expr : Incr unary_expr",
  1147.     "unary_expr : Decr unary_expr",
  1148.     "unary_expr : unary_op cast_expr",
  1149.     "unary_expr : Sizeof unary_expr",
  1150.     "unary_expr : Sizeof '(' type_name ')'",
  1151.     "unary_op : '&'",
  1152.     "unary_op : '*'",
  1153.     "unary_op : '+'",
  1154.     "unary_op : '-'",
  1155.     "unary_op : '~'",
  1156.     "unary_op : '!'",
  1157.     "cast_expr : unary_expr",
  1158.     "cast_expr : '(' type_name ')' cast_expr",
  1159.     "multiplicative_expr : cast_expr",
  1160.     "multiplicative_expr : multiplicative_expr '*' cast_expr",
  1161.     "multiplicative_expr : multiplicative_expr '/' cast_expr",
  1162.     "multiplicative_expr : multiplicative_expr '%' cast_expr",
  1163.     "additive_expr : multiplicative_expr",
  1164.     "additive_expr : additive_expr '+' multiplicative_expr",
  1165.     "additive_expr : additive_expr '-' multiplicative_expr",
  1166.     "shift_expr : additive_expr",
  1167.     "shift_expr : shift_expr LShft additive_expr",
  1168.     "shift_expr : shift_expr RShft additive_expr",
  1169.     "relational_expr : shift_expr",
  1170.     "relational_expr : relational_expr '<' shift_expr",
  1171.     "relational_expr : relational_expr '>' shift_expr",
  1172.     "relational_expr : relational_expr Leq shift_expr",
  1173.     "relational_expr : relational_expr Geq shift_expr",
  1174.     "equality_expr : relational_expr",
  1175.     "equality_expr : equality_expr Equal relational_expr",
  1176.     "equality_expr : equality_expr Neq relational_expr",
  1177.     "and_expr : equality_expr",
  1178.     "and_expr : and_expr '&' equality_expr",
  1179.     "exclusive_or_expr : and_expr",
  1180.     "exclusive_or_expr : exclusive_or_expr '^' and_expr",
  1181.     "inclusive_or_expr : exclusive_or_expr",
  1182.     "inclusive_or_expr : inclusive_or_expr '|' exclusive_or_expr",
  1183.     "logical_and_expr : inclusive_or_expr",
  1184.     "logical_and_expr : logical_and_expr And inclusive_or_expr",
  1185.     "logical_or_expr : logical_and_expr",
  1186.     "logical_or_expr : logical_or_expr Or logical_and_expr",
  1187.     "conditional_expr : logical_or_expr",
  1188.     "conditional_expr : logical_or_expr '?' expr ':' conditional_expr",
  1189.     "assign_expr : conditional_expr",
  1190.     "assign_expr : unary_expr assign_op assign_expr",
  1191.     "assign_op : '='",
  1192.     "assign_op : MultAsgn",
  1193.     "assign_op : DivAsgn",
  1194.     "assign_op : ModAsgn",
  1195.     "assign_op : PlusAsgn",
  1196.     "assign_op : MinusAsgn",
  1197.     "assign_op : LShftAsgn",
  1198.     "assign_op : RShftAsgn",
  1199.     "assign_op : AndAsgn",
  1200.     "assign_op : XorAsgn",
  1201.     "assign_op : OrAsgn",
  1202.     "expr : assign_expr",
  1203.     "expr : expr ',' assign_expr",
  1204.     "opt_expr : /* empty */",
  1205.     "opt_expr : expr",
  1206.     "constant_expr : conditional_expr",
  1207.     "opt_constant_expr : /* empty */",
  1208.     "opt_constant_expr : constant_expr",
  1209.     "dcltion : typ_dcltion_specs ';'",
  1210.     "dcltion : typ_dcltion_specs init_dcltor_lst ';'",
  1211.     "dcltion : storcl_tqual_lst no_tdn_init_dcltor_lst ';'",
  1212.     "typ_dcltion_specs : type_ind",
  1213.     "typ_dcltion_specs : storcl_tqual_lst type_ind",
  1214.     "dcltion_specs : typ_dcltion_specs",
  1215.     "dcltion_specs : storcl_tqual_lst",
  1216.     "type_ind : typedefname",
  1217.     "type_ind : typedefname storcl_tqual_lst",
  1218.     "type_ind : type_storcl_tqual_lst",
  1219.     "type_storcl_tqual_lst : stnd_type",
  1220.     "type_storcl_tqual_lst : type_storcl_tqual_lst stnd_type",
  1221.     "type_storcl_tqual_lst : type_storcl_tqual_lst storage_class_spec",
  1222.     "type_storcl_tqual_lst : type_storcl_tqual_lst type_qual",
  1223.     "storcl_tqual_lst : storage_class_spec",
  1224.     "storcl_tqual_lst : type_qual",
  1225.     "storcl_tqual_lst : storcl_tqual_lst storage_class_spec",
  1226.     "storcl_tqual_lst : storcl_tqual_lst type_qual",
  1227.     "init_dcltor_lst : init_dcltor",
  1228.     "init_dcltor_lst : init_dcltor_lst ',' init_dcltor",
  1229.     "no_tdn_init_dcltor_lst : no_tdn_init_dcltor",
  1230.     "no_tdn_init_dcltor_lst : no_tdn_init_dcltor_lst ',' no_tdn_init_dcltor",
  1231.     "init_dcltor : dcltor",
  1232.     "init_dcltor : dcltor '=' initializer",
  1233.     "no_tdn_init_dcltor : no_tdn_dcltor",
  1234.     "no_tdn_init_dcltor : no_tdn_dcltor '=' initializer",
  1235.     "storage_class_spec : Typedef",
  1236.     "storage_class_spec : Extern",
  1237.     "storage_class_spec : Static",
  1238.     "storage_class_spec : Auto",
  1239.     "storage_class_spec : Register",
  1240.     "type_spec : stnd_type",
  1241.     "type_spec : typedefname",
  1242.     "stnd_type : Void",
  1243.     "stnd_type : Char",
  1244.     "stnd_type : Short",
  1245.     "stnd_type : Int",
  1246.     "stnd_type : Long",
  1247.     "stnd_type : Float",
  1248.     "stnd_type : Doubl",
  1249.     "stnd_type : Signed",
  1250.     "stnd_type : Unsigned",
  1251.     "stnd_type : struct_or_union_spec",
  1252.     "stnd_type : enum_spec",
  1253.     "struct_or_union_spec : struct_or_union any_ident '{' struct_dcltion_lst '}'",
  1254.     "struct_or_union_spec : struct_or_union '{' struct_dcltion_lst '}'",
  1255.     "struct_or_union_spec : struct_or_union any_ident",
  1256.     "struct_or_union : Struct",
  1257.     "struct_or_union : Union",
  1258.     "struct_dcltion_lst : struct_dcltion",
  1259.     "struct_dcltion_lst : struct_dcltion_lst struct_dcltion",
  1260.     "struct_dcltion : struct_dcltion_specs struct_dcltor_lst ';'",
  1261.     "struct_dcltion : tqual_lst struct_no_tdn_dcltor_lst ';'",
  1262.     "struct_dcltion_specs : struct_type_ind",
  1263.     "struct_dcltion_specs : tqual_lst struct_type_ind",
  1264.     "struct_type_ind : typedefname",
  1265.     "struct_type_ind : typedefname tqual_lst",
  1266.     "struct_type_ind : struct_type_lst",
  1267.     "struct_type_lst : stnd_type",
  1268.     "struct_type_lst : struct_type_lst stnd_type",
  1269.     "struct_type_lst : struct_type_lst type_qual",
  1270.     "struct_dcltor_lst : struct_dcltor",
  1271.     "struct_dcltor_lst : struct_dcltor_lst ',' struct_dcltor",
  1272.     "struct_dcltor : dcltor",
  1273.     "struct_dcltor : ':' constant_expr",
  1274.     "struct_dcltor : dcltor ':'",
  1275.     "struct_dcltor : dcltor ':' constant_expr",
  1276.     "struct_no_tdn_dcltor_lst : struct_no_tdn_dcltor",
  1277.     "struct_no_tdn_dcltor_lst : struct_no_tdn_dcltor_lst ',' struct_no_tdn_dcltor",
  1278.     "struct_no_tdn_dcltor : no_tdn_dcltor",
  1279.     "struct_no_tdn_dcltor : ':' constant_expr",
  1280.     "struct_no_tdn_dcltor : no_tdn_dcltor ':'",
  1281.     "struct_no_tdn_dcltor : no_tdn_dcltor ':' constant_expr",
  1282.     "enum_spec : Enum",
  1283.     "enum_spec : Enum '{' enumerator_lst '}'",
  1284.     "enum_spec : Enum any_ident",
  1285.     "enum_spec : Enum any_ident '{' enumerator_lst '}'",
  1286.     "enum_spec : Enum any_ident",
  1287.     "enumerator_lst : enumerator",
  1288.     "enumerator_lst : enumerator_lst ',' enumerator",
  1289.     "enumerator : any_ident",
  1290.     "enumerator : any_ident '=' constant_expr",
  1291.     "type_qual : Const",
  1292.     "type_qual : Volatile",
  1293.     "dcltor : opt_pointer direct_dcltor",
  1294.     "no_tdn_dcltor : opt_pointer no_tdn_direct_dcltor",
  1295.     "direct_dcltor : any_ident",
  1296.     "direct_dcltor : '(' dcltor ')'",
  1297.     "direct_dcltor : direct_dcltor '[' opt_constant_expr ']'",
  1298.     "direct_dcltor : direct_dcltor '('",
  1299.     "direct_dcltor : direct_dcltor '(' parm_dcls_or_ids ')'",
  1300.     "no_tdn_direct_dcltor : identifier",
  1301.     "no_tdn_direct_dcltor : '(' no_tdn_dcltor ')'",
  1302.     "no_tdn_direct_dcltor : no_tdn_direct_dcltor '[' opt_constant_expr ']'",
  1303.     "no_tdn_direct_dcltor : no_tdn_direct_dcltor '('",
  1304.     "no_tdn_direct_dcltor : no_tdn_direct_dcltor '(' parm_dcls_or_ids ')'",
  1305.     "parm_dcls_or_ids : opt_param_type_lst",
  1306.     "parm_dcls_or_ids : ident_lst",
  1307.     "pointer : '*'",
  1308.     "pointer : '*' tqual_lst",
  1309.     "pointer : '*' pointer",
  1310.     "pointer : '*' tqual_lst pointer",
  1311.     "opt_pointer : /* empty */",
  1312.     "opt_pointer : pointer",
  1313.     "tqual_lst : type_qual",
  1314.     "tqual_lst : tqual_lst type_qual",
  1315.     "param_type_lst : param_lst",
  1316.     "param_type_lst : param_lst ',' Ellipsis",
  1317.     "opt_param_type_lst : /* empty */",
  1318.     "opt_param_type_lst : param_type_lst",
  1319.     "param_lst : param_dcltion",
  1320.     "param_lst : param_lst ',' param_dcltion",
  1321.     "param_dcltion : dcltion_specs no_tdn_dcltor",
  1322.     "param_dcltion : dcltion_specs",
  1323.     "param_dcltion : dcltion_specs abstract_dcltor",
  1324.     "ident_lst : identifier",
  1325.     "ident_lst : ident_lst ',' identifier",
  1326.     "type_tqual_lst : type_spec",
  1327.     "type_tqual_lst : type_qual",
  1328.     "type_tqual_lst : type_spec type_tqual_lst",
  1329.     "type_tqual_lst : type_qual type_tqual_lst",
  1330.     "type_name : type_tqual_lst",
  1331.     "type_name : type_tqual_lst abstract_dcltor",
  1332.     "abstract_dcltor : pointer",
  1333.     "abstract_dcltor : opt_pointer direct_abstract_dcltor",
  1334.     "direct_abstract_dcltor : '(' abstract_dcltor ')'",
  1335.     "direct_abstract_dcltor : '[' opt_constant_expr ']'",
  1336.     "direct_abstract_dcltor : direct_abstract_dcltor '[' opt_constant_expr ']'",
  1337.     "direct_abstract_dcltor : '('",
  1338.     "direct_abstract_dcltor : '(' opt_param_type_lst ')'",
  1339.     "direct_abstract_dcltor : direct_abstract_dcltor '('",
  1340.     "direct_abstract_dcltor : direct_abstract_dcltor '(' opt_param_type_lst ')'",
  1341.     "initializer : assign_expr",
  1342.     "initializer : '{' initializer_lst '}'",
  1343.     "initializer : '{' initializer_lst ',' '}'",
  1344.     "initializer_lst : initializer",
  1345.     "initializer_lst : initializer_lst ',' initializer",
  1346.     "stmt : labeled_stmt",
  1347.     "stmt : non_lbl_stmt",
  1348.     "non_lbl_stmt : /* empty */",
  1349.     "non_lbl_stmt : compound_stmt",
  1350.     "non_lbl_stmt : expr_stmt",
  1351.     "non_lbl_stmt : selection_stmt",
  1352.     "non_lbl_stmt : iteration_stmt",
  1353.     "non_lbl_stmt : jump_stmt",
  1354.     "non_lbl_stmt : Runerr '(' assign_expr ')' ';'",
  1355.     "non_lbl_stmt : Runerr '(' assign_expr ',' assign_expr ')' ';'",
  1356.     "labeled_stmt : label ':' stmt",
  1357.     "labeled_stmt : Case constant_expr ':' stmt",
  1358.     "labeled_stmt : Default ':' stmt",
  1359.     "compound_stmt : '{' opt_stmt_lst '}'",
  1360.     "compound_stmt : '{' local_dcls opt_stmt_lst '}'",
  1361.     "dcltion_lst : dcltion",
  1362.     "dcltion_lst : dcltion_lst dcltion",
  1363.     "opt_dcltion_lst : /* empty */",
  1364.     "opt_dcltion_lst : dcltion_lst",
  1365.     "local_dcls : local_dcl",
  1366.     "local_dcls : local_dcls local_dcl",
  1367.     "local_dcl : dcltion",
  1368.     "local_dcl : Tended tended_type init_dcltor_lst ';'",
  1369.     "tended_type : Char",
  1370.     "tended_type : Struct identifier",
  1371.     "tended_type : Struct TypeDefName",
  1372.     "tended_type : Union identifier",
  1373.     "stmt_lst : stmt",
  1374.     "stmt_lst : stmt_lst stmt",
  1375.     "opt_stmt_lst : /* empty */",
  1376.     "opt_stmt_lst : stmt_lst",
  1377.     "expr_stmt : opt_expr ';'",
  1378.     "selection_stmt : If '(' expr ')' stmt",
  1379.     "selection_stmt : If '(' expr ')' stmt Else stmt",
  1380.     "selection_stmt : Switch '(' expr ')' stmt",
  1381.     "selection_stmt : Type_case expr Of '{' c_type_select_lst c_opt_default '}'",
  1382.     "c_type_select_lst : c_type_select",
  1383.     "c_type_select_lst : c_type_select_lst c_type_select",
  1384.     "c_type_select : selector_lst non_lbl_stmt",
  1385.     "c_opt_default : /* empty */",
  1386.     "c_opt_default : Default ':' non_lbl_stmt",
  1387.     "iteration_stmt : While '(' expr ')' stmt",
  1388.     "iteration_stmt : Do stmt While '(' expr ')' ';'",
  1389.     "iteration_stmt : For '(' opt_expr ';' opt_expr ';' opt_expr ')' stmt",
  1390.     "jump_stmt : Goto label ';'",
  1391.     "jump_stmt : Continue ';'",
  1392.     "jump_stmt : Break ';'",
  1393.     "jump_stmt : Return ret_val ';'",
  1394.     "jump_stmt : Suspend ret_val ';'",
  1395.     "jump_stmt : Fail ';'",
  1396.     "jump_stmt : Errorfail ';'",
  1397.     "translation_unit : /* empty */",
  1398.     "translation_unit : extrn_decltn_lst",
  1399.     "extrn_decltn_lst : external_dcltion",
  1400.     "extrn_decltn_lst : extrn_decltn_lst external_dcltion",
  1401.     "external_dcltion : function_definition",
  1402.     "external_dcltion : dcltion",
  1403.     "external_dcltion : definition",
  1404.     "function_definition : func_head",
  1405.     "function_definition : func_head opt_dcltion_lst compound_stmt",
  1406.     "func_head : no_tdn_dcltor",
  1407.     "func_head : storcl_tqual_lst no_tdn_dcltor",
  1408.     "func_head : typ_dcltion_specs dcltor",
  1409.     "any_ident : identifier",
  1410.     "any_ident : typedefname",
  1411.     "label : identifier",
  1412.     "label : typedefname",
  1413.     "typedefname : TypeDefName",
  1414.     "typedefname : C_Integer",
  1415.     "typedefname : C_Double",
  1416.     "typedefname : C_String",
  1417.     "definition : /* empty */",
  1418.     "definition : description operation",
  1419.     "operation : fnc_oper op_declare actions End",
  1420.     "operation : keyword actions End",
  1421.     "operation : keyword Constant key_const End",
  1422.     "description : /* empty */",
  1423.     "description : StrLit",
  1424.     "fnc_oper : Function '{' result_seq '}' op_name '(' opt_s_parm_lst ')'",
  1425.     "fnc_oper : Operator '{' result_seq",
  1426.     "fnc_oper : Operator '{' result_seq '}' OpSym",
  1427.     "fnc_oper : Operator '{' result_seq '}' OpSym op_name '(' opt_s_parm_lst ')'",
  1428.     "keyword : Keyword '{' result_seq '}' op_name",
  1429.     "key_const : StrLit",
  1430.     "key_const : CharConst",
  1431.     "key_const : DblConst",
  1432.     "key_const : IntConst",
  1433.     "identifier : Abstract",
  1434.     "identifier : All_fields",
  1435.     "identifier : Any_value",
  1436.     "identifier : Body",
  1437.     "identifier : Component",
  1438.     "identifier : Declare",
  1439.     "identifier : Empty_type",
  1440.     "identifier : End",
  1441.     "identifier : Exact",
  1442.     "identifier : IconType",
  1443.     "identifier : Identifier",
  1444.     "identifier : Inline",
  1445.     "identifier : Named_var",
  1446.     "identifier : New",
  1447.     "identifier : Of",
  1448.     "identifier : Store",
  1449.     "identifier : Struct_var",
  1450.     "identifier : Then",
  1451.     "identifier : Tmp_cset",
  1452.     "identifier : Tmp_string",
  1453.     "identifier : Type",
  1454.     "identifier : Underef",
  1455.     "identifier : Variable",
  1456.     "op_name : identifier",
  1457.     "op_name : typedefname",
  1458.     "op_name : Auto",
  1459.     "op_name : Break",
  1460.     "op_name : Case",
  1461.     "op_name : Char",
  1462.     "op_name : Cnv",
  1463.     "op_name : Const",
  1464.     "op_name : Continue",
  1465.     "op_name : Def",
  1466.     "op_name : Default",
  1467.     "op_name : Do",
  1468.     "op_name : Doubl",
  1469.     "op_name : Else",
  1470.     "op_name : Enum",
  1471.     "op_name : Errorfail",
  1472.     "op_name : Extern",
  1473.     "op_name : Fail",
  1474.     "op_name : Float",
  1475.     "op_name : For",
  1476.     "op_name : Function",
  1477.     "op_name : Goto",
  1478.     "op_name : If",
  1479.     "op_name : Int",
  1480.     "op_name : Is",
  1481.     "op_name : Keyword",
  1482.     "op_name : Long",
  1483.     "op_name : Operator",
  1484.     "op_name : Register",
  1485.     "op_name : Return",
  1486.     "op_name : Runerr",
  1487.     "op_name : Short",
  1488.     "op_name : Signed",
  1489.     "op_name : Sizeof",
  1490.     "op_name : Static",
  1491.     "op_name : Struct",
  1492.     "op_name : Suspend",
  1493.     "op_name : Switch",
  1494.     "op_name : Tended",
  1495.     "op_name : Typedef",
  1496.     "op_name : Union",
  1497.     "op_name : Unsigned",
  1498.     "op_name : Void",
  1499.     "op_name : Volatile",
  1500.     "op_name : While",
  1501.     "result_seq : /* empty */",
  1502.     "result_seq : length opt_plus",
  1503.     "result_seq : length ',' length opt_plus",
  1504.     "length : IntConst",
  1505.     "length : '*'",
  1506.     "opt_plus : /* empty */",
  1507.     "opt_plus : '+'",
  1508.     "opt_s_parm_lst : /* empty */",
  1509.     "opt_s_parm_lst : s_parm_lst",
  1510.     "opt_s_parm_lst : s_parm_lst '[' identifier ']'",
  1511.     "s_parm_lst : s_parm",
  1512.     "s_parm_lst : s_parm_lst ',' s_parm",
  1513.     "s_parm : identifier",
  1514.     "s_parm : Underef identifier",
  1515.     "s_parm : Underef identifier Arrow identifier",
  1516.     "op_declare : /* empty */",
  1517.     "op_declare : Declare '{' local_dcls '}'",
  1518.     "opt_actions : /* empty */",
  1519.     "opt_actions : actions",
  1520.     "actions : action",
  1521.     "actions : actions action",
  1522.     "action : checking_conversions",
  1523.     "action : detail_code",
  1524.     "action : runerr",
  1525.     "action : '{' opt_actions '}'",
  1526.     "action : Abstract",
  1527.     "action : Abstract '{' type_computations",
  1528.     "action : Abstract '{' type_computations '}'",
  1529.     "checking_conversions : If type_check Then action",
  1530.     "checking_conversions : If type_check Then action Else action",
  1531.     "checking_conversions : Type_case variable Of '{' type_select_lst opt_default '}'",
  1532.     "checking_conversions : Len_case identifier Of '{' len_select_lst Default ':' action '}'",
  1533.     "checking_conversions : Arith_case '(' variable ',' variable ')' Of '{' dest_type ':' action dest_type ':' action dest_type ':' action '}'",
  1534.     "type_select_lst : type_select",
  1535.     "type_select_lst : type_select_lst type_select",
  1536.     "type_select : selector_lst action",
  1537.     "opt_default : /* empty */",
  1538.     "opt_default : Default ':' action",
  1539.     "selector_lst : i_type_name ':'",
  1540.     "selector_lst : selector_lst i_type_name ':'",
  1541.     "len_select_lst : len_select",
  1542.     "len_select_lst : len_select_lst len_select",
  1543.     "len_select : IntConst ':' action",
  1544.     "type_check : simple_check_conj",
  1545.     "type_check : '!' simple_check",
  1546.     "simple_check_conj : simple_check",
  1547.     "simple_check_conj : simple_check_conj And simple_check",
  1548.     "simple_check : Is ':' i_type_name '(' variable ')'",
  1549.     "simple_check : Cnv ':' dest_type '(' variable ')'",
  1550.     "simple_check : Cnv ':' dest_type '(' variable ',' assign_expr ')'",
  1551.     "simple_check : Def ':' dest_type '(' variable ',' assign_expr ')'",
  1552.     "simple_check : Def ':' dest_type '(' variable ',' assign_expr ',' assign_expr ')'",
  1553.     "detail_code : Body",
  1554.     "detail_code : Body compound_stmt",
  1555.     "detail_code : Inline",
  1556.     "detail_code : Inline compound_stmt",
  1557.     "runerr : Runerr '(' IntConst ')' opt_semi",
  1558.     "runerr : Runerr '(' IntConst ',' variable ')' opt_semi",
  1559.     "opt_semi : /* empty */",
  1560.     "opt_semi : ';'",
  1561.     "variable : identifier",
  1562.     "variable : identifier '[' IntConst ']'",
  1563.     "dest_type : IconType",
  1564.     "dest_type : C_Integer",
  1565.     "dest_type : C_Double",
  1566.     "dest_type : C_String",
  1567.     "dest_type : Tmp_string",
  1568.     "dest_type : Tmp_cset",
  1569.     "dest_type : '(' Exact ')' IconType",
  1570.     "dest_type : '(' Exact ')' C_Integer",
  1571.     "i_type_name : Any_value",
  1572.     "i_type_name : Empty_type",
  1573.     "i_type_name : IconType",
  1574.     "i_type_name : Variable",
  1575.     "ret_val : opt_expr",
  1576.     "ret_val : C_Integer assign_expr",
  1577.     "ret_val : C_Double assign_expr",
  1578.     "ret_val : C_String assign_expr",
  1579.     "type_computations : side_effect_lst Return type opt_semi",
  1580.     "type_computations : Return type opt_semi",
  1581.     "type_computations : side_effect_lst",
  1582.     "side_effect_lst : side_effect",
  1583.     "side_effect_lst : side_effect_lst side_effect",
  1584.     "side_effect : Store '[' type ']' '=' type opt_semi",
  1585.     "type : basic_type",
  1586.     "type : type union basic_type",
  1587.     "type : type Intersect basic_type",
  1588.     "basic_type : i_type_name",
  1589.     "basic_type : Type '(' variable ')'",
  1590.     "basic_type : New i_type_name '(' type_lst ')'",
  1591.     "basic_type : Store '[' type ']'",
  1592.     "basic_type : basic_type '.' attrb_name",
  1593.     "basic_type : '(' type ')'",
  1594.     "union : Incr",
  1595.     "type_lst : type",
  1596.     "type_lst : type_lst ',' type",
  1597.     "attrb_name : Component",
  1598.     "attrb_name : All_fields",
  1599. };
  1600. #endif /* YYDEBUG */
  1601. #line 1 "/usr/lib/yaccpar"
  1602. /*    @(#)yaccpar 1.10 89/04/04 SMI; from S5R3 1.10    */
  1603.  
  1604. /*
  1605. ** Skeleton parser driver for yacc output
  1606. */
  1607.  
  1608. /*
  1609. ** yacc user known macros and defines
  1610. */
  1611. #define YYERROR        goto yyerrlab
  1612. #define YYACCEPT    { free(yys); free(yyv); return(0); }
  1613. #define YYABORT        { free(yys); free(yyv); return(1); }
  1614. #define YYBACKUP( newtoken, newvalue )\
  1615. {\
  1616.     if ( yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
  1617.     {\
  1618.         yyerror( "syntax error - cannot backup" );\
  1619.         goto yyerrlab;\
  1620.     }\
  1621.     yychar = newtoken;\
  1622.     yystate = *yyps;\
  1623.     yylval = newvalue;\
  1624.     goto yynewstate;\
  1625. }
  1626. #define YYRECOVERING()    (!!yyerrflag)
  1627. #ifndef YYDEBUG
  1628. #    define YYDEBUG    1    /* make debugging available */
  1629. #endif
  1630.  
  1631. /*
  1632. ** user known globals
  1633. */
  1634. int yydebug;            /* set to 1 to get debugging */
  1635.  
  1636. /*
  1637. ** driver internal defines
  1638. */
  1639. #define YYFLAG        (-1000)
  1640.  
  1641. /*
  1642. ** static variables used by the parser
  1643. */
  1644. static YYSTYPE *yyv;            /* value stack */
  1645. static int *yys;            /* state stack */
  1646.  
  1647. static YYSTYPE *yypv;            /* top of value stack */
  1648. static int *yyps;            /* top of state stack */
  1649.  
  1650. static int yystate;            /* current state */
  1651. static int yytmp;            /* extra var (lasts between blocks) */
  1652.  
  1653. int yynerrs;            /* number of errors */
  1654.  
  1655. int yyerrflag;            /* error recovery flag */
  1656. int yychar;            /* current input token number */
  1657.  
  1658.  
  1659. /*
  1660. ** yyparse - return 0 if worked, 1 if syntax error not recovered from
  1661. */
  1662. int
  1663. yyparse()
  1664. {
  1665.     register YYSTYPE *yypvt;    /* top of value stack for $vars */
  1666.     unsigned yymaxdepth = YYMAXDEPTH;
  1667.  
  1668.     /*
  1669.     ** Initialize externals - yyparse may be called more than once
  1670.     */
  1671.     yyv = (YYSTYPE*)malloc(yymaxdepth*sizeof(YYSTYPE));
  1672.     yys = (int*)malloc(yymaxdepth*sizeof(int));
  1673.     if (!yyv || !yys)
  1674.     {
  1675.         yyerror( "out of memory" );
  1676.         return(1);
  1677.     }
  1678.     yypv = &yyv[-1];
  1679.     yyps = &yys[-1];
  1680.     yystate = 0;
  1681.     yytmp = 0;
  1682.     yynerrs = 0;
  1683.     yyerrflag = 0;
  1684.     yychar = -1;
  1685.  
  1686.     goto yystack;
  1687.     {
  1688.         register YYSTYPE *yy_pv;    /* top of value stack */
  1689.         register int *yy_ps;        /* top of state stack */
  1690.         register int yy_state;        /* current state */
  1691.         register int  yy_n;        /* internal state number info */
  1692.  
  1693.         /*
  1694.         ** get globals into registers.
  1695.         ** branch to here only if YYBACKUP was called.
  1696.         */
  1697.     yynewstate:
  1698.         yy_pv = yypv;
  1699.         yy_ps = yyps;
  1700.         yy_state = yystate;
  1701.         goto yy_newstate;
  1702.  
  1703.         /*
  1704.         ** get globals into registers.
  1705.         ** either we just started, or we just finished a reduction
  1706.         */
  1707.     yystack:
  1708.         yy_pv = yypv;
  1709.         yy_ps = yyps;
  1710.         yy_state = yystate;
  1711.  
  1712.         /*
  1713.         ** top of for (;;) loop while no reductions done
  1714.         */
  1715.     yy_stack:
  1716.         /*
  1717.         ** put a state and value onto the stacks
  1718.         */
  1719. #if YYDEBUG
  1720.         /*
  1721.         ** if debugging, look up token value in list of value vs.
  1722.         ** name pairs.  0 and negative (-1) are special values.
  1723.         ** Note: linear search is used since time is not a real
  1724.         ** consideration while debugging.
  1725.         */
  1726.         if ( yydebug )
  1727.         {
  1728.             register int yy_i;
  1729.  
  1730.             (void)printf( "State %d, token ", yy_state );
  1731.             if ( yychar == 0 )
  1732.                 (void)printf( "end-of-file\n" );
  1733.             else if ( yychar < 0 )
  1734.                 (void)printf( "-none-\n" );
  1735.             else
  1736.             {
  1737.                 for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
  1738.                     yy_i++ )
  1739.                 {
  1740.                     if ( yytoks[yy_i].t_val == yychar )
  1741.                         break;
  1742.                 }
  1743.                 (void)printf( "%s\n", yytoks[yy_i].t_name );
  1744.             }
  1745.         }
  1746. #endif /* YYDEBUG */
  1747.         if ( ++yy_ps >= &yys[ yymaxdepth ] )    /* room on stack? */
  1748.         {
  1749.             /*
  1750.             ** reallocate and recover.  Note that pointers
  1751.             ** have to be reset, or bad things will happen
  1752.             */
  1753.             int yyps_index = (yy_ps - yys);
  1754.             int yypv_index = (yy_pv - yyv);
  1755.             int yypvt_index = (yypvt - yyv);
  1756.             yymaxdepth += YYMAXDEPTH;
  1757.             yyv = (YYSTYPE*)realloc((char*)yyv,
  1758.                 yymaxdepth * sizeof(YYSTYPE));
  1759.             yys = (int*)realloc((char*)yys,
  1760.                 yymaxdepth * sizeof(int));
  1761.             if (!yyv || !yys)
  1762.             {
  1763.                 yyerror( "yacc stack overflow" );
  1764.                 return(1);
  1765.             }
  1766.             yy_ps = yys + yyps_index;
  1767.             yy_pv = yyv + yypv_index;
  1768.             yypvt = yyv + yypvt_index;
  1769.         }
  1770.         *yy_ps = yy_state;
  1771.         *++yy_pv = yyval;
  1772.  
  1773.         /*
  1774.         ** we have a new state - find out what to do
  1775.         */
  1776.     yy_newstate:
  1777.         if ( ( yy_n = yypact[ yy_state ] ) <= YYFLAG )
  1778.             goto yydefault;        /* simple state */
  1779. #if YYDEBUG
  1780.         /*
  1781.         ** if debugging, need to mark whether new token grabbed
  1782.         */
  1783.         yytmp = yychar < 0;
  1784. #endif
  1785.         if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
  1786.             yychar = 0;        /* reached EOF */
  1787. #if YYDEBUG
  1788.         if ( yydebug && yytmp )
  1789.         {
  1790.             register int yy_i;
  1791.  
  1792.             (void)printf( "Received token " );
  1793.             if ( yychar == 0 )
  1794.                 (void)printf( "end-of-file\n" );
  1795.             else if ( yychar < 0 )
  1796.                 (void)printf( "-none-\n" );
  1797.             else
  1798.             {
  1799.                 for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
  1800.                     yy_i++ )
  1801.                 {
  1802.                     if ( yytoks[yy_i].t_val == yychar )
  1803.                         break;
  1804.                 }
  1805.                 (void)printf( "%s\n", yytoks[yy_i].t_name );
  1806.             }
  1807.         }
  1808. #endif /* YYDEBUG */
  1809.         if ( ( ( yy_n += yychar ) < 0 ) || ( yy_n >= YYLAST ) )
  1810.             goto yydefault;
  1811.         if ( yychk[ yy_n = yyact[ yy_n ] ] == yychar )    /*valid shift*/
  1812.         {
  1813.             yychar = -1;
  1814.             yyval = yylval;
  1815.             yy_state = yy_n;
  1816.             if ( yyerrflag > 0 )
  1817.                 yyerrflag--;
  1818.             goto yy_stack;
  1819.         }
  1820.  
  1821.     yydefault:
  1822.         if ( ( yy_n = yydef[ yy_state ] ) == -2 )
  1823.         {
  1824. #if YYDEBUG
  1825.             yytmp = yychar < 0;
  1826. #endif
  1827.             if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
  1828.                 yychar = 0;        /* reached EOF */
  1829. #if YYDEBUG
  1830.             if ( yydebug && yytmp )
  1831.             {
  1832.                 register int yy_i;
  1833.  
  1834.                 (void)printf( "Received token " );
  1835.                 if ( yychar == 0 )
  1836.                     (void)printf( "end-of-file\n" );
  1837.                 else if ( yychar < 0 )
  1838.                     (void)printf( "-none-\n" );
  1839.                 else
  1840.                 {
  1841.                     for ( yy_i = 0;
  1842.                         yytoks[yy_i].t_val >= 0;
  1843.                         yy_i++ )
  1844.                     {
  1845.                         if ( yytoks[yy_i].t_val
  1846.                             == yychar )
  1847.                         {
  1848.                             break;
  1849.                         }
  1850.                     }
  1851.                     (void)printf( "%s\n", yytoks[yy_i].t_name );
  1852.                 }
  1853.             }
  1854. #endif /* YYDEBUG */
  1855.             /*
  1856.             ** look through exception table
  1857.             */
  1858.             {
  1859.                 register int *yyxi = yyexca;
  1860.  
  1861.                 while ( ( *yyxi != -1 ) ||
  1862.                     ( yyxi[1] != yy_state ) )
  1863.                 {
  1864.                     yyxi += 2;
  1865.                 }
  1866.                 while ( ( *(yyxi += 2) >= 0 ) &&
  1867.                     ( *yyxi != yychar ) )
  1868.                     ;
  1869.                 if ( ( yy_n = yyxi[1] ) < 0 )
  1870.                     YYACCEPT;
  1871.             }
  1872.         }
  1873.  
  1874.         /*
  1875.         ** check for syntax error
  1876.         */
  1877.         if ( yy_n == 0 )    /* have an error */
  1878.         {
  1879.             /* no worry about speed here! */
  1880.             switch ( yyerrflag )
  1881.             {
  1882.             case 0:        /* new error */
  1883.                 yyerror( "syntax error" );
  1884.                 goto skip_init;
  1885.             yyerrlab:
  1886.                 /*
  1887.                 ** get globals into registers.
  1888.                 ** we have a user generated syntax type error
  1889.                 */
  1890.                 yy_pv = yypv;
  1891.                 yy_ps = yyps;
  1892.                 yy_state = yystate;
  1893.                 yynerrs++;
  1894.             skip_init:
  1895.             case 1:
  1896.             case 2:        /* incompletely recovered error */
  1897.                     /* try again... */
  1898.                 yyerrflag = 3;
  1899.                 /*
  1900.                 ** find state where "error" is a legal
  1901.                 ** shift action
  1902.                 */
  1903.                 while ( yy_ps >= yys )
  1904.                 {
  1905.                     yy_n = yypact[ *yy_ps ] + YYERRCODE;
  1906.                     if ( yy_n >= 0 && yy_n < YYLAST &&
  1907.                         yychk[yyact[yy_n]] == YYERRCODE)                    {
  1908.                         /*
  1909.                         ** simulate shift of "error"
  1910.                         */
  1911.                         yy_state = yyact[ yy_n ];
  1912.                         goto yy_stack;
  1913.                     }
  1914.                     /*
  1915.                     ** current state has no shift on
  1916.                     ** "error", pop stack
  1917.                     */
  1918. #if YYDEBUG
  1919. #    define _POP_ "Error recovery pops state %d, uncovers state %d\n"
  1920.                     if ( yydebug )
  1921.                         (void)printf( _POP_, *yy_ps,
  1922.                             yy_ps[-1] );
  1923. #    undef _POP_
  1924. #endif
  1925.                     yy_ps--;
  1926.                     yy_pv--;
  1927.                 }
  1928.                 /*
  1929.                 ** there is no state on stack with "error" as
  1930.                 ** a valid shift.  give up.
  1931.                 */
  1932.                 YYABORT;
  1933.             case 3:        /* no shift yet; eat a token */
  1934. #if YYDEBUG
  1935.                 /*
  1936.                 ** if debugging, look up token in list of
  1937.                 ** pairs.  0 and negative shouldn't occur,
  1938.                 ** but since timing doesn't matter when
  1939.                 ** debugging, it doesn't hurt to leave the
  1940.                 ** tests here.
  1941.                 */
  1942.                 if ( yydebug )
  1943.                 {
  1944.                     register int yy_i;
  1945.  
  1946.                     (void)printf( "Error recovery discards " );
  1947.                     if ( yychar == 0 )
  1948.                         (void)printf( "token end-of-file\n" );
  1949.                     else if ( yychar < 0 )
  1950.                         (void)printf( "token -none-\n" );
  1951.                     else
  1952.                     {
  1953.                         for ( yy_i = 0;
  1954.                             yytoks[yy_i].t_val >= 0;
  1955.                             yy_i++ )
  1956.                         {
  1957.                             if ( yytoks[yy_i].t_val
  1958.                                 == yychar )
  1959.                             {
  1960.                                 break;
  1961.                             }
  1962.                         }
  1963.                         (void)printf( "token %s\n",
  1964.                             yytoks[yy_i].t_name );
  1965.                     }
  1966.                 }
  1967. #endif /* YYDEBUG */
  1968.                 if ( yychar == 0 )    /* reached EOF. quit */
  1969.                     YYABORT;
  1970.                 yychar = -1;
  1971.                 goto yy_newstate;
  1972.             }
  1973.         }/* end if ( yy_n == 0 ) */
  1974.         /*
  1975.         ** reduction by production yy_n
  1976.         ** put stack tops, etc. so things right after switch
  1977.         */
  1978. #if YYDEBUG
  1979.         /*
  1980.         ** if debugging, print the string that is the user's
  1981.         ** specification of the reduction which is just about
  1982.         ** to be done.
  1983.         */
  1984.         if ( yydebug )
  1985.             (void)printf( "Reduce by (%d) \"%s\"\n",
  1986.                 yy_n, yyreds[ yy_n ] );
  1987. #endif
  1988.         yytmp = yy_n;            /* value to switch over */
  1989.         yypvt = yy_pv;            /* $vars top of value stack */
  1990.         /*
  1991.         ** Look in goto table for next state
  1992.         ** Sorry about using yy_state here as temporary
  1993.         ** register variable, but why not, if it works...
  1994.         ** If yyr2[ yy_n ] doesn't have the low order bit
  1995.         ** set, then there is no action to be done for
  1996.         ** this reduction.  So, no saving & unsaving of
  1997.         ** registers done.  The only difference between the
  1998.         ** code just after the if and the body of the if is
  1999.         ** the goto yy_stack in the body.  This way the test
  2000.         ** can be made before the choice of what to do is needed.
  2001.         */
  2002.         {
  2003.             /* length of production doubled with extra bit */
  2004.             register int yy_len = yyr2[ yy_n ];
  2005.  
  2006.             if ( !( yy_len & 01 ) )
  2007.             {
  2008.                 yy_len >>= 1;
  2009.                 yyval = ( yy_pv -= yy_len )[1];    /* $$ = $1 */
  2010.                 yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
  2011.                     *( yy_ps -= yy_len ) + 1;
  2012.                 if ( yy_state >= YYLAST ||
  2013.                     yychk[ yy_state =
  2014.                     yyact[ yy_state ] ] != -yy_n )
  2015.                 {
  2016.                     yy_state = yyact[ yypgo[ yy_n ] ];
  2017.                 }
  2018.                 goto yy_stack;
  2019.             }
  2020.             yy_len >>= 1;
  2021.             yyval = ( yy_pv -= yy_len )[1];    /* $$ = $1 */
  2022.             yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
  2023.                 *( yy_ps -= yy_len ) + 1;
  2024.             if ( yy_state >= YYLAST ||
  2025.                 yychk[ yy_state = yyact[ yy_state ] ] != -yy_n )
  2026.             {
  2027.                 yy_state = yyact[ yypgo[ yy_n ] ];
  2028.             }
  2029.         }
  2030.                     /* save until reenter driver code */
  2031.         yystate = yy_state;
  2032.         yyps = yy_ps;
  2033.         yypv = yy_pv;
  2034.     }
  2035.     /*
  2036.     ** code supplied by user is placed in this switch
  2037.     */
  2038.     switch( yytmp )
  2039.     {
  2040.         
  2041. case 1:
  2042. # line 81 "rttgram.y"
  2043. {yyval.n = sym_node(yypvt[-0].t);} break;
  2044. case 2:
  2045. # line 82 "rttgram.y"
  2046. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2047. case 3:
  2048. # line 83 "rttgram.y"
  2049. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2050. case 4:
  2051. # line 84 "rttgram.y"
  2052. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2053. case 5:
  2054. # line 85 "rttgram.y"
  2055. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2056. case 6:
  2057. # line 86 "rttgram.y"
  2058. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2059. case 7:
  2060. # line 87 "rttgram.y"
  2061. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2062. case 8:
  2063. # line 88 "rttgram.y"
  2064. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2065. case 9:
  2066. # line 89 "rttgram.y"
  2067. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2068. case 10:
  2069. # line 90 "rttgram.y"
  2070. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2071. case 11:
  2072. # line 91 "rttgram.y"
  2073. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2074. case 12:
  2075. # line 92 "rttgram.y"
  2076. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2077. case 13:
  2078. # line 93 "rttgram.y"
  2079. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2080. case 15:
  2081. # line 98 "rttgram.y"
  2082. {yyval.n = node2(BinryNd, yypvt[-2].t, yypvt[-3].n, yypvt[-1].n);
  2083.                                         free_t(yypvt[-0].t);} break;
  2084. case 16:
  2085. # line 100 "rttgram.y"
  2086. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-2].n, NULL);
  2087.                                         free_t(yypvt[-1].t);} break;
  2088. case 17:
  2089. # line 102 "rttgram.y"
  2090. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-3].n, yypvt[-1].n);
  2091.                                         free_t(yypvt[-2].t);} break;
  2092. case 18:
  2093. # line 104 "rttgram.y"
  2094. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2095. case 19:
  2096. # line 105 "rttgram.y"
  2097. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2098. case 20:
  2099. # line 106 "rttgram.y"
  2100. {yyval.n = node1(PstfxNd, yypvt[-0].t, yypvt[-1].n);} break;
  2101. case 21:
  2102. # line 107 "rttgram.y"
  2103. {yyval.n = node1(PstfxNd, yypvt[-0].t, yypvt[-1].n);} break;
  2104. case 22:
  2105. # line 109 "rttgram.y"
  2106. {yyval.n = node2(BinryNd, yypvt[-5].t, yypvt[-3].n, yypvt[-1].n); free_t(yypvt[-4].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2107. case 23:
  2108. # line 111 "rttgram.y"
  2109. {yyval.n = node3(TrnryNd, yypvt[-7].t, yypvt[-5].n, yypvt[-3].n, yypvt[-1].n), free_t(yypvt[-6].t); free_t(yypvt[-4].t); free_t(yypvt[-2].t);
  2110.        free_t(yypvt[-0].t);} break;
  2111. case 24:
  2112. # line 114 "rttgram.y"
  2113. {yyval.n = node4(QuadNd, yypvt[-9].t, yypvt[-7].n, yypvt[-5].n, yypvt[-3].n, yypvt[-1].n), free_t(yypvt[-8].t); free_t(yypvt[-6].t);
  2114.        free_t(yypvt[-4].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2115. case 26:
  2116. # line 120 "rttgram.y"
  2117. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2118. case 28:
  2119. # line 125 "rttgram.y"
  2120. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2121. case 29:
  2122. # line 126 "rttgram.y"
  2123. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2124. case 30:
  2125. # line 127 "rttgram.y"
  2126. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2127. case 31:
  2128. # line 128 "rttgram.y"
  2129. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2130. case 32:
  2131. # line 129 "rttgram.y"
  2132. {yyval.n = node1(PrefxNd, yypvt[-3].t, yypvt[-1].n);
  2133.                                free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2134. case 40:
  2135. # line 144 "rttgram.y"
  2136. {yyval.n = node2(BinryNd, yypvt[-3].t, yypvt[-2].n, yypvt[-0].n); free_t(yypvt[-1].t);} break;
  2137. case 42:
  2138. # line 149 "rttgram.y"
  2139. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2140. case 43:
  2141. # line 150 "rttgram.y"
  2142. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2143. case 44:
  2144. # line 151 "rttgram.y"
  2145. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2146. case 46:
  2147. # line 156 "rttgram.y"
  2148. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2149. case 47:
  2150. # line 157 "rttgram.y"
  2151. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2152. case 49:
  2153. # line 162 "rttgram.y"
  2154. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2155. case 50:
  2156. # line 163 "rttgram.y"
  2157. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2158. case 52:
  2159. # line 168 "rttgram.y"
  2160. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2161. case 53:
  2162. # line 169 "rttgram.y"
  2163. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2164. case 54:
  2165. # line 170 "rttgram.y"
  2166. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2167. case 55:
  2168. # line 171 "rttgram.y"
  2169. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2170. case 57:
  2171. # line 176 "rttgram.y"
  2172. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2173. case 58:
  2174. # line 177 "rttgram.y"
  2175. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2176. case 60:
  2177. # line 182 "rttgram.y"
  2178. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2179. case 62:
  2180. # line 187 "rttgram.y"
  2181. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2182. case 64:
  2183. # line 192 "rttgram.y"
  2184. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2185. case 66:
  2186. # line 197 "rttgram.y"
  2187. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2188. case 68:
  2189. # line 202 "rttgram.y"
  2190. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2191. case 70:
  2192. # line 208 "rttgram.y"
  2193. {yyval.n = node3(TrnryNd, yypvt[-3].t, yypvt[-4].n, yypvt[-2].n, yypvt[-0].n);
  2194.                                           free_t(yypvt[-1].t);} break;
  2195. case 72:
  2196. # line 214 "rttgram.y"
  2197. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2198. case 85:
  2199. # line 233 "rttgram.y"
  2200. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2201. case 86:
  2202. # line 237 "rttgram.y"
  2203. {yyval.n = NULL;} break;
  2204. case 89:
  2205. # line 246 "rttgram.y"
  2206. {yyval.n = NULL;} break;
  2207. case 91:
  2208. # line 251 "rttgram.y"
  2209. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-1].n, NULL);
  2210.                                              dcl_stk->kind_dcl = OtherDcl;} break;
  2211. case 92:
  2212. # line 253 "rttgram.y"
  2213. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-2].n, yypvt[-1].n);
  2214.                                              dcl_stk->kind_dcl = OtherDcl;} break;
  2215. case 93:
  2216. # line 256 "rttgram.y"
  2217. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-2].n, yypvt[-1].n);
  2218.                                              dcl_stk->kind_dcl = OtherDcl;} break;
  2219. case 95:
  2220. # line 262 "rttgram.y"
  2221. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2222. case 98:
  2223. # line 271 "rttgram.y"
  2224. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2225. case 99:
  2226. # line 273 "rttgram.y"
  2227. {yyval.n = node2(LstNd, NULL, node0(PrimryNd, yypvt[-1].t), yypvt[-0].n);} break;
  2228. case 102:
  2229. # line 279 "rttgram.y"
  2230. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2231. case 103:
  2232. # line 280 "rttgram.y"
  2233. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2234. case 104:
  2235. # line 281 "rttgram.y"
  2236. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2237. case 107:
  2238. # line 287 "rttgram.y"
  2239. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2240. case 108:
  2241. # line 288 "rttgram.y"
  2242. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2243. case 110:
  2244. # line 293 "rttgram.y"
  2245. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2246. case 112:
  2247. # line 299 "rttgram.y"
  2248. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2249. case 113:
  2250. # line 303 "rttgram.y"
  2251. {yyval.n = yypvt[-0].n; id_def(yypvt[-0].n, NULL);} break;
  2252. case 114:
  2253. # line 304 "rttgram.y"
  2254. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n); id_def(yypvt[-2].n, yypvt[-0].n);} break;
  2255. case 115:
  2256. # line 308 "rttgram.y"
  2257. {yyval.n = yypvt[-0].n; id_def(yypvt[-0].n, NULL);} break;
  2258. case 116:
  2259. # line 310 "rttgram.y"
  2260. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n); id_def(yypvt[-2].n, yypvt[-0].n);} break;
  2261. case 117:
  2262. # line 314 "rttgram.y"
  2263. {yyval.n = node0(PrimryNd, yypvt[-0].t); dcl_stk->kind_dcl = IsTypedef;} break;
  2264. case 118:
  2265. # line 315 "rttgram.y"
  2266. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2267. case 119:
  2268. # line 316 "rttgram.y"
  2269. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2270. case 120:
  2271. # line 317 "rttgram.y"
  2272. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2273. case 121:
  2274. # line 318 "rttgram.y"
  2275. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2276. case 123:
  2277. # line 323 "rttgram.y"
  2278. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2279. case 124:
  2280. # line 327 "rttgram.y"
  2281. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2282. case 125:
  2283. # line 328 "rttgram.y"
  2284. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2285. case 126:
  2286. # line 329 "rttgram.y"
  2287. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2288. case 127:
  2289. # line 330 "rttgram.y"
  2290. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2291. case 128:
  2292. # line 331 "rttgram.y"
  2293. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2294. case 129:
  2295. # line 332 "rttgram.y"
  2296. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2297. case 130:
  2298. # line 333 "rttgram.y"
  2299. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2300. case 131:
  2301. # line 334 "rttgram.y"
  2302. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2303. case 132:
  2304. # line 335 "rttgram.y"
  2305. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2306. case 135:
  2307. # line 342 "rttgram.y"
  2308. {yyval.n = node2(BinryNd, yypvt[-4].t, yypvt[-3].n, yypvt[-1].n);
  2309.                                              free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2310. case 136:
  2311. # line 345 "rttgram.y"
  2312. {yyval.n = node2(BinryNd, yypvt[-3].t, NULL, yypvt[-1].n);
  2313.                                              free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2314. case 137:
  2315. # line 347 "rttgram.y"
  2316. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-0].n, NULL);} break;
  2317. case 141:
  2318. # line 357 "rttgram.y"
  2319. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2320. case 142:
  2321. # line 362 "rttgram.y"
  2322. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-2].n, yypvt[-1].n);} break;
  2323. case 143:
  2324. # line 363 "rttgram.y"
  2325. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-2].n, yypvt[-1].n);} break;
  2326. case 145:
  2327. # line 368 "rttgram.y"
  2328. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2329. case 146:
  2330. # line 372 "rttgram.y"
  2331. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2332. case 147:
  2333. # line 373 "rttgram.y"
  2334. {yyval.n = node2(LstNd, NULL, node0(PrimryNd, yypvt[-1].t), yypvt[-0].n);} break;
  2335. case 150:
  2336. # line 379 "rttgram.y"
  2337. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2338. case 151:
  2339. # line 380 "rttgram.y"
  2340. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2341. case 153:
  2342. # line 384 "rttgram.y"
  2343. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2344. case 154:
  2345. # line 388 "rttgram.y"
  2346. {yyval.n = node2(StrDclNd, NULL, yypvt[-0].n, NULL);
  2347.                                if (dcl_stk->parms_done) pop_cntxt();} break;
  2348. case 155:
  2349. # line 390 "rttgram.y"
  2350. {yyval.n = node2(StrDclNd, yypvt[-1].t, NULL, yypvt[-0].n);} break;
  2351. case 156:
  2352. # line 391 "rttgram.y"
  2353. {if (dcl_stk->parms_done) pop_cntxt();} break;
  2354. case 157:
  2355. # line 392 "rttgram.y"
  2356. {yyval.n = node2(StrDclNd, yypvt[-2].t, yypvt[-3].n, yypvt[-0].n);} break;
  2357. case 159:
  2358. # line 398 "rttgram.y"
  2359. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2360. case 160:
  2361. # line 402 "rttgram.y"
  2362. {yyval.n = node2(StrDclNd, NULL, yypvt[-0].n, NULL);
  2363.                                       if (dcl_stk->parms_done) pop_cntxt();} break;
  2364. case 161:
  2365. # line 404 "rttgram.y"
  2366. {yyval.n = node2(StrDclNd, yypvt[-1].t, NULL, yypvt[-0].n);} break;
  2367. case 162:
  2368. # line 405 "rttgram.y"
  2369. {if (dcl_stk->parms_done) pop_cntxt();} break;
  2370. case 163:
  2371. # line 406 "rttgram.y"
  2372. {yyval.n = node2(StrDclNd, yypvt[-2].t, yypvt[-3].n, yypvt[-0].n);} break;
  2373. case 164:
  2374. # line 410 "rttgram.y"
  2375. {push_cntxt(0);} break;
  2376. case 165:
  2377. # line 411 "rttgram.y"
  2378. {yyval.n = node2(BinryNd, yypvt[-4].t, NULL, yypvt[-1].n); pop_cntxt(); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2379. case 166:
  2380. # line 412 "rttgram.y"
  2381. {push_cntxt(0);} break;
  2382. case 167:
  2383. # line 413 "rttgram.y"
  2384. {yyval.n = node2(BinryNd, yypvt[-5].t, yypvt[-4].n,  yypvt[-1].n); pop_cntxt(); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2385. case 168:
  2386. # line 414 "rttgram.y"
  2387. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-0].n,  NULL);} break;
  2388. case 170:
  2389. # line 419 "rttgram.y"
  2390. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2391. case 171:
  2392. # line 423 "rttgram.y"
  2393. {yyval.n = yypvt[-0].n; id_def(yypvt[-0].n, NULL);} break;
  2394. case 172:
  2395. # line 425 "rttgram.y"
  2396. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n); id_def(yypvt[-2].n, yypvt[-0].n);} break;
  2397. case 173:
  2398. # line 429 "rttgram.y"
  2399. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2400. case 174:
  2401. # line 430 "rttgram.y"
  2402. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2403. case 175:
  2404. # line 435 "rttgram.y"
  2405. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2406. case 176:
  2407. # line 439 "rttgram.y"
  2408. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2409. case 178:
  2410. # line 444 "rttgram.y"
  2411. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n);
  2412.                                                free_t(yypvt[-0].t);} break;
  2413. case 179:
  2414. # line 446 "rttgram.y"
  2415. {yyval.n = node2(BinryNd, yypvt[-2].t, yypvt[-3].n, yypvt[-1].n);
  2416.                                                free_t(yypvt[-0].t);} break;
  2417. case 180:
  2418. # line 448 "rttgram.y"
  2419. {push_cntxt(1);} break;
  2420. case 181:
  2421. # line 449 "rttgram.y"
  2422. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-4].n, yypvt[-1].n);
  2423.                                                if (dcl_stk->nest_lvl == 2)
  2424.                                                   dcl_stk->parms_done = 1;
  2425.                                                 else
  2426.                                                   pop_cntxt();
  2427.                                                free_t(yypvt[-3].t);} break;
  2428. case 182:
  2429. # line 458 "rttgram.y"
  2430. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2431. case 183:
  2432. # line 459 "rttgram.y"
  2433. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n);
  2434.                                                free_t(yypvt[-0].t);} break;
  2435. case 184:
  2436. # line 462 "rttgram.y"
  2437. {yyval.n = node2(BinryNd, yypvt[-2].t, yypvt[-3].n, yypvt[-1].n);
  2438.                                                free_t(yypvt[-0].t);} break;
  2439. case 185:
  2440. # line 464 "rttgram.y"
  2441. {push_cntxt(1);} break;
  2442. case 186:
  2443. # line 465 "rttgram.y"
  2444. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-4].n, yypvt[-1].n);
  2445.                                                if (dcl_stk->nest_lvl == 2)
  2446.                                                   dcl_stk->parms_done = 1;
  2447.                                                 else
  2448.                                                   pop_cntxt();
  2449.                                                free_t(yypvt[-3].t);} break;
  2450. case 189:
  2451. # line 479 "rttgram.y"
  2452. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2453. case 190:
  2454. # line 480 "rttgram.y"
  2455. {yyval.n = node1(PreSpcNd, yypvt[-1].t, yypvt[-0].n);} break;
  2456. case 191:
  2457. # line 481 "rttgram.y"
  2458. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2459. case 192:
  2460. # line 482 "rttgram.y"
  2461. {yyval.n = node1(PrefxNd, yypvt[-2].t, node2(LstNd, NULL, yypvt[-1].n,yypvt[-0].n));} break;
  2462. case 193:
  2463. # line 486 "rttgram.y"
  2464. {yyval.n = NULL;} break;
  2465. case 196:
  2466. # line 492 "rttgram.y"
  2467. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2468. case 198:
  2469. # line 497 "rttgram.y"
  2470. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, node0(PrimryNd, yypvt[-0].t));} break;
  2471. case 199:
  2472. # line 501 "rttgram.y"
  2473. {yyval.n = NULL;} break;
  2474. case 202:
  2475. # line 507 "rttgram.y"
  2476. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2477. case 203:
  2478. # line 511 "rttgram.y"
  2479. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);
  2480.                                     id_def(yypvt[-0].n, NULL);} break;
  2481. case 205:
  2482. # line 514 "rttgram.y"
  2483. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2484. case 206:
  2485. # line 518 "rttgram.y"
  2486. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2487. case 207:
  2488. # line 519 "rttgram.y"
  2489. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, node0(PrimryNd,yypvt[-0].t));} break;
  2490. case 210:
  2491. # line 525 "rttgram.y"
  2492. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2493. case 211:
  2494. # line 526 "rttgram.y"
  2495. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2496. case 213:
  2497. # line 531 "rttgram.y"
  2498. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2499. case 215:
  2500. # line 536 "rttgram.y"
  2501. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2502. case 216:
  2503. # line 540 "rttgram.y"
  2504. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n);
  2505.                                              free_t(yypvt[-0].t);} break;
  2506. case 217:
  2507. # line 543 "rttgram.y"
  2508. {yyval.n = node2(BinryNd, yypvt[-2].t, NULL, yypvt[-1].n);
  2509.                                              free_t(yypvt[-0].t);} break;
  2510. case 218:
  2511. # line 546 "rttgram.y"
  2512. {yyval.n = node2(BinryNd, yypvt[-2].t, yypvt[-3].n, yypvt[-1].n);
  2513.                                              free_t(yypvt[-0].t);} break;
  2514. case 219:
  2515. # line 548 "rttgram.y"
  2516. {push_cntxt(1);} break;
  2517. case 220:
  2518. # line 549 "rttgram.y"
  2519. {yyval.n = node2(BinryNd, yypvt[-0].t, NULL, yypvt[-1].n);
  2520.                                              pop_cntxt();
  2521.                                              free_t(yypvt[-3].t);} break;
  2522. case 221:
  2523. # line 552 "rttgram.y"
  2524. {push_cntxt(1);} break;
  2525. case 222:
  2526. # line 553 "rttgram.y"
  2527. {yyval.n = node2(BinryNd, yypvt[-0].t, yypvt[-4].n, yypvt[-1].n);
  2528.                                              pop_cntxt();
  2529.                                              free_t(yypvt[-3].t);} break;
  2530. case 224:
  2531. # line 561 "rttgram.y"
  2532. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2533. case 225:
  2534. # line 563 "rttgram.y"
  2535. {yyval.n = node1(PrefxNd, yypvt[-3].t, node2(CommaNd, yypvt[-1].t, yypvt[-2].n, NULL));
  2536.                           free_t(yypvt[-0].t);} break;
  2537. case 227:
  2538. # line 569 "rttgram.y"
  2539. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2540. case 230:
  2541. # line 578 "rttgram.y"
  2542. {push_cntxt(1);} break;
  2543. case 231:
  2544. # line 578 "rttgram.y"
  2545. {yyval.n = yypvt[-0].n; pop_cntxt();} break;
  2546. case 236:
  2547. # line 584 "rttgram.y"
  2548. {yyval.n = node2(BinryNd, yypvt[-4].t, yypvt[-2].n, NULL); free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2549. case 237:
  2550. # line 586 "rttgram.y"
  2551. {yyval.n = node2(BinryNd, yypvt[-6].t, yypvt[-4].n, yypvt[-2].n); free_t(yypvt[-5].t); free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2552. case 238:
  2553. # line 590 "rttgram.y"
  2554. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2555. case 239:
  2556. # line 591 "rttgram.y"
  2557. {yyval.n = node2(BinryNd, yypvt[-3].t, yypvt[-2].n, yypvt[-0].n); free_t(yypvt[-1].t);} break;
  2558. case 240:
  2559. # line 592 "rttgram.y"
  2560. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-0].n); free_t(yypvt[-1].t);} break;
  2561. case 241:
  2562. # line 596 "rttgram.y"
  2563. {yyval.n = comp_nd(yypvt[-2].t, NULL, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2564. case 242:
  2565. # line 597 "rttgram.y"
  2566. {yyval.n = comp_nd(yypvt[-3].t, yypvt[-2].n,   yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2567. case 244:
  2568. # line 602 "rttgram.y"
  2569. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2570. case 245:
  2571. # line 606 "rttgram.y"
  2572. {yyval.n = NULL;} break;
  2573. case 248:
  2574. # line 612 "rttgram.y"
  2575. {yyval.n = (yypvt[-0].n == NULL ? yypvt[-1].n : node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n));} break;
  2576. case 250:
  2577. # line 618 "rttgram.y"
  2578. {yyval.n = NULL; free_t(yypvt[-3].t); free_t(yypvt[-0].t); dcl_stk->kind_dcl = OtherDcl;} break;
  2579. case 251:
  2580. # line 622 "rttgram.y"
  2581. {tnd_char(); free_t(yypvt[-0].t);} break;
  2582. case 252:
  2583. # line 623 "rttgram.y"
  2584. {tnd_strct(yypvt[-0].t); free_t(yypvt[-1].t);} break;
  2585. case 253:
  2586. # line 624 "rttgram.y"
  2587. {tnd_strct(yypvt[-0].t); free_t(yypvt[-1].t);} break;
  2588. case 254:
  2589. # line 625 "rttgram.y"
  2590. {tnd_union(yypvt[-0].t); free_t(yypvt[-1].t);} break;
  2591. case 256:
  2592. # line 630 "rttgram.y"
  2593. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2594. case 257:
  2595. # line 634 "rttgram.y"
  2596. {yyval.n = NULL;} break;
  2597. case 259:
  2598. # line 638 "rttgram.y"
  2599. {yyval.n = node1(PstfxNd, yypvt[-0].t, yypvt[-1].n);} break;
  2600. case 260:
  2601. # line 642 "rttgram.y"
  2602. {yyval.n = node3(TrnryNd, yypvt[-4].t, yypvt[-2].n, yypvt[-0].n,NULL);
  2603.                                           free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2604. case 261:
  2605. # line 644 "rttgram.y"
  2606. {yyval.n = node3(TrnryNd, yypvt[-6].t, yypvt[-4].n, yypvt[-2].n, yypvt[-0].n);
  2607.                                           free_t(yypvt[-5].t); free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2608. case 262:
  2609. # line 646 "rttgram.y"
  2610. {yyval.n = node2(BinryNd, yypvt[-4].t, yypvt[-2].n, yypvt[-0].n);
  2611.                                           free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2612. case 263:
  2613. # line 649 "rttgram.y"
  2614. {yyval.n = node3(TrnryNd, yypvt[-6].t, yypvt[-5].n, yypvt[-2].n, yypvt[-1].n); free_t(yypvt[-4].t); free_t(yypvt[-3].t); free_t(yypvt[-0].t);} break;
  2615. case 264:
  2616. # line 653 "rttgram.y"
  2617. {yyval.n = node2(ConCatNd, NULL, NULL, yypvt[-0].n);} break;
  2618. case 265:
  2619. # line 654 "rttgram.y"
  2620. {yyval.n = node2(ConCatNd, NULL,   yypvt[-1].n, yypvt[-0].n);} break;
  2621. case 266:
  2622. # line 658 "rttgram.y"
  2623. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2624. case 267:
  2625. # line 662 "rttgram.y"
  2626. {yyval.n = NULL;} break;
  2627. case 268:
  2628. # line 663 "rttgram.y"
  2629. {yyval.n = yypvt[-0].n; free_t(yypvt[-2].t); free_t(yypvt[-1].t);} break;
  2630. case 269:
  2631. # line 667 "rttgram.y"
  2632. {yyval.n = node2(BinryNd, yypvt[-4].t, yypvt[-2].n, yypvt[-0].n);
  2633.                                         free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2634. case 270:
  2635. # line 669 "rttgram.y"
  2636. {yyval.n = node2(BinryNd, yypvt[-6].t, yypvt[-5].n, yypvt[-2].n);
  2637.                                         free_t(yypvt[-4].t); free_t(yypvt[-3].t); free_t(yypvt[-1].t);
  2638.                                         free_t(yypvt[-0].t);} break;
  2639. case 271:
  2640. # line 673 "rttgram.y"
  2641. {yyval.n = node4(QuadNd, yypvt[-8].t, yypvt[-6].n, yypvt[-4].n, yypvt[-2].n, yypvt[-0].n);
  2642.                                         free_t(yypvt[-7].t); free_t(yypvt[-5].t); free_t(yypvt[-3].t);
  2643.                                         free_t(yypvt[-1].t);} break;
  2644. case 272:
  2645. # line 679 "rttgram.y"
  2646. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2647. case 273:
  2648. # line 680 "rttgram.y"
  2649. {yyval.n = node0(PrimryNd, yypvt[-1].t); free_t(yypvt[-0].t);} break;
  2650. case 274:
  2651. # line 681 "rttgram.y"
  2652. {yyval.n = node0(PrimryNd, yypvt[-1].t); free_t(yypvt[-0].t);} break;
  2653. case 275:
  2654. # line 682 "rttgram.y"
  2655. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2656. case 276:
  2657. # line 683 "rttgram.y"
  2658. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2659. case 277:
  2660. # line 684 "rttgram.y"
  2661. {yyval.n = node0(PrimryNd, yypvt[-1].t); free_t(yypvt[-0].t);} break;
  2662. case 278:
  2663. # line 685 "rttgram.y"
  2664. {yyval.n = node0(PrimryNd, yypvt[-1].t); free_t(yypvt[-0].t);} break;
  2665. case 284:
  2666. # line 700 "rttgram.y"
  2667. {dclout(yypvt[-0].n);} break;
  2668. case 286:
  2669. # line 705 "rttgram.y"
  2670. {func_def(yypvt[-0].n);} break;
  2671. case 287:
  2672. # line 706 "rttgram.y"
  2673. {fncout(yypvt[-3].n, yypvt[-1].n, yypvt[-0].n);} break;
  2674. case 288:
  2675. # line 710 "rttgram.y"
  2676. {yyval.n = node2(LstNd, NULL, NULL, yypvt[-0].n);} break;
  2677. case 289:
  2678. # line 711 "rttgram.y"
  2679. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2680. case 290:
  2681. # line 712 "rttgram.y"
  2682. {yyval.n = node2(LstNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2683. case 291:
  2684. # line 716 "rttgram.y"
  2685. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2686. case 292:
  2687. # line 717 "rttgram.y"
  2688. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2689. case 293:
  2690. # line 721 "rttgram.y"
  2691. {yyval.n = lbl(yypvt[-0].t);} break;
  2692. case 294:
  2693. # line 722 "rttgram.y"
  2694. {yyval.n = lbl(yypvt[-0].t);} break;
  2695. case 299:
  2696. # line 737 "rttgram.y"
  2697. {strt_def();} break;
  2698. case 301:
  2699. # line 741 "rttgram.y"
  2700. {defout(yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2701. case 302:
  2702. # line 742 "rttgram.y"
  2703. {defout(yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2704. case 303:
  2705. # line 743 "rttgram.y"
  2706. {keyconst(yypvt[-1].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2707. case 304:
  2708. # line 747 "rttgram.y"
  2709. {comment = NULL;} break;
  2710. case 305:
  2711. # line 748 "rttgram.y"
  2712. {comment = yypvt[-0].t;} break;
  2713. case 306:
  2714. # line 753 "rttgram.y"
  2715. {impl_fnc(yypvt[-3].t); free_t(yypvt[-7].t); free_t(yypvt[-6].t); free_t(yypvt[-4].t); free_t(yypvt[-2].t);
  2716.        free_t(yypvt[-0].t);} break;
  2717. case 307:
  2718. # line 755 "rttgram.y"
  2719. {lex_state = OpHead;} break;
  2720. case 308:
  2721. # line 756 "rttgram.y"
  2722. {lex_state = DfltLex;} break;
  2723. case 309:
  2724. # line 757 "rttgram.y"
  2725. {impl_op(yypvt[-5].t, yypvt[-3].t); free_t(yypvt[-10].t); free_t(yypvt[-9].t); free_t(yypvt[-6].t); free_t(yypvt[-2].t);
  2726.        free_t(yypvt[-0].t);} break;
  2727. case 310:
  2728. # line 762 "rttgram.y"
  2729. {impl_key(yypvt[-0].t); free_t(yypvt[-4].t); free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2730. case 383:
  2731. # line 853 "rttgram.y"
  2732. {set_r_seq(NoRsltSeq, NoRsltSeq, 0);} break;
  2733. case 384:
  2734. # line 854 "rttgram.y"
  2735. {set_r_seq(yypvt[-1].i, yypvt[-1].i, (int)yypvt[-0].i);} break;
  2736. case 385:
  2737. # line 855 "rttgram.y"
  2738. {set_r_seq(yypvt[-3].i, yypvt[-1].i, (int)yypvt[-0].i); free_t(yypvt[-2].t);} break;
  2739. case 386:
  2740. # line 859 "rttgram.y"
  2741. {yyval.i = ttol(yypvt[-0].t); free_t(yypvt[-0].t);} break;
  2742. case 387:
  2743. # line 860 "rttgram.y"
  2744. {yyval.i = UnbndSeq; free_t(yypvt[-0].t);} break;
  2745. case 388:
  2746. # line 864 "rttgram.y"
  2747. {yyval.i = 0;} break;
  2748. case 389:
  2749. # line 865 "rttgram.y"
  2750. {yyval.i = 1; free_t(yypvt[-0].t);} break;
  2751. case 392:
  2752. # line 871 "rttgram.y"
  2753. {var_args(yypvt[-1].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2754. case 394:
  2755. # line 876 "rttgram.y"
  2756. {free_t(yypvt[-1].t);} break;
  2757. case 395:
  2758. # line 880 "rttgram.y"
  2759. {s_prm_def(NULL, yypvt[-0].t);} break;
  2760. case 396:
  2761. # line 881 "rttgram.y"
  2762. {s_prm_def(yypvt[-0].t, NULL); free_t(yypvt[-1].t);} break;
  2763. case 397:
  2764. # line 882 "rttgram.y"
  2765. {s_prm_def(yypvt[-2].t, yypvt[-0].t);   free_t(yypvt[-3].t);
  2766.                                           free_t(yypvt[-1].t);} break;
  2767. case 398:
  2768. # line 887 "rttgram.y"
  2769. {} break;
  2770. case 399:
  2771. # line 888 "rttgram.y"
  2772. {d_lst_typ(yypvt[-1].n); free_t(yypvt[-3].t); free_t(yypvt[-2].t);
  2773.                                  free_t(yypvt[-0].t);} break;
  2774. case 400:
  2775. # line 893 "rttgram.y"
  2776. {yyval.n = NULL;} break;
  2777. case 403:
  2778. # line 899 "rttgram.y"
  2779. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2780. case 407:
  2781. # line 906 "rttgram.y"
  2782. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-1].n); free_t(yypvt[-0].t);} break;
  2783. case 408:
  2784. # line 907 "rttgram.y"
  2785. {lex_state = TypeComp;} break;
  2786. case 409:
  2787. # line 908 "rttgram.y"
  2788. {lex_state = DfltLex;} break;
  2789. case 410:
  2790. # line 909 "rttgram.y"
  2791. {yyval.n = yypvt[-2].n; free_t(yypvt[-5].t); free_t(yypvt[-3].t); free_t(yypvt[-0].t);} break;
  2792. case 411:
  2793. # line 914 "rttgram.y"
  2794. {yyval.n = node3(TrnryNd, yypvt[-3].t, yypvt[-2].n, yypvt[-0].n, NULL); free_t(yypvt[-1].t);} break;
  2795. case 412:
  2796. # line 916 "rttgram.y"
  2797. {yyval.n = node3(TrnryNd, yypvt[-5].t, yypvt[-4].n, yypvt[-2].n, yypvt[-0].n); free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2798. case 413:
  2799. # line 918 "rttgram.y"
  2800. {yyval.n = node3(TrnryNd, yypvt[-6].t, yypvt[-5].n, yypvt[-2].n, yypvt[-1].n); free_t(yypvt[-4].t); free_t(yypvt[-3].t); free_t(yypvt[-0].t);} break;
  2801. case 414:
  2802. # line 920 "rttgram.y"
  2803. {yyval.n = node3(TrnryNd, yypvt[-8].t, sym_node(yypvt[-7].t), yypvt[-4].n, yypvt[-1].n); free_t(yypvt[-6].t), free_t(yypvt[-5].t);
  2804.        free_t(yypvt[-3].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2805. case 415:
  2806. # line 924 "rttgram.y"
  2807. {yyval.n = arith_nd(yypvt[-17].t, yypvt[-15].n, yypvt[-13].n, yypvt[-9].n, yypvt[-7].n, yypvt[-6].n, yypvt[-4].n, yypvt[-3].n, yypvt[-1].n); free_t(yypvt[-16].t);
  2808.        free_t(yypvt[-14].t), free_t(yypvt[-12].t); free_t(yypvt[-11].t); free_t(yypvt[-10].t); free_t(yypvt[-8].t);
  2809.        free_t(yypvt[-5].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2810. case 416:
  2811. # line 930 "rttgram.y"
  2812. {yyval.n = node2(ConCatNd, NULL, NULL, yypvt[-0].n);} break;
  2813. case 417:
  2814. # line 931 "rttgram.y"
  2815. {yyval.n = node2(ConCatNd, NULL,   yypvt[-1].n, yypvt[-0].n);} break;
  2816. case 418:
  2817. # line 935 "rttgram.y"
  2818. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2819. case 419:
  2820. # line 939 "rttgram.y"
  2821. {yyval.n = NULL;} break;
  2822. case 420:
  2823. # line 940 "rttgram.y"
  2824. {yyval.n = yypvt[-0].n; free_t(yypvt[-2].t); free_t(yypvt[-1].t);} break;
  2825. case 421:
  2826. # line 944 "rttgram.y"
  2827. {yyval.n = node2(ConCatNd, NULL, NULL, yypvt[-1].n);
  2828.                                    free_t(yypvt[-0].t);} break;
  2829. case 422:
  2830. # line 946 "rttgram.y"
  2831. {yyval.n = node2(ConCatNd, NULL,   yypvt[-2].n, yypvt[-1].n);
  2832.                                    free_t(yypvt[-0].t);} break;
  2833. case 424:
  2834. # line 952 "rttgram.y"
  2835. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2836. case 425:
  2837. # line 956 "rttgram.y"
  2838. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-0].n); free_t(yypvt[-1].t);} break;
  2839. case 427:
  2840. # line 961 "rttgram.y"
  2841. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2842. case 429:
  2843. # line 966 "rttgram.y"
  2844. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2845. case 430:
  2846. # line 971 "rttgram.y"
  2847. {yyval.n = node2(BinryNd, yypvt[-5].t, yypvt[-3].n, yypvt[-1].n); free_t(yypvt[-4].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2848. case 431:
  2849. # line 973 "rttgram.y"
  2850. {yyval.n = node3(TrnryNd, yypvt[-5].t, yypvt[-3].n, yypvt[-1].n, NULL), dst_alloc(yypvt[-3].n, yypvt[-1].n); free_t(yypvt[-4].t);
  2851.        free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2852. case 432:
  2853. # line 976 "rttgram.y"
  2854. {yyval.n = node3(TrnryNd, yypvt[-7].t, yypvt[-5].n, yypvt[-3].n, yypvt[-1].n), free_t(yypvt[-6].t); free_t(yypvt[-4].t); free_t(yypvt[-2].t);
  2855.        free_t(yypvt[-0].t);} break;
  2856. case 433:
  2857. # line 979 "rttgram.y"
  2858. {yyval.n = node4(QuadNd, yypvt[-7].t, yypvt[-5].n, yypvt[-3].n, yypvt[-1].n, NULL), dst_alloc(yypvt[-5].n, yypvt[-3].n); free_t(yypvt[-6].t);
  2859.        free_t(yypvt[-4].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2860. case 434:
  2861. # line 982 "rttgram.y"
  2862. {yyval.n = node4(QuadNd, yypvt[-9].t, yypvt[-7].n, yypvt[-5].n, yypvt[-3].n, yypvt[-1].n), free_t(yypvt[-8].t); free_t(yypvt[-6].t);
  2863.        free_t(yypvt[-4].t); free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2864. case 435:
  2865. # line 987 "rttgram.y"
  2866. {push_cntxt(1);} break;
  2867. case 436:
  2868. # line 988 "rttgram.y"
  2869. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-0].n); pop_cntxt();} break;
  2870. case 437:
  2871. # line 989 "rttgram.y"
  2872. {push_cntxt(1);} break;
  2873. case 438:
  2874. # line 990 "rttgram.y"
  2875. {yyval.n = node1(PrefxNd, yypvt[-2].t, yypvt[-0].n); pop_cntxt();} break;
  2876. case 439:
  2877. # line 995 "rttgram.y"
  2878. {yyval.n = node2(BinryNd, yypvt[-4].t, node0(PrimryNd, yypvt[-2].t), NULL);
  2879.                      free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2880. case 440:
  2881. # line 998 "rttgram.y"
  2882. {yyval.n = node2(BinryNd, yypvt[-6].t, node0(PrimryNd, yypvt[-4].t), yypvt[-2].n);
  2883.                      free_t(yypvt[-5].t); free_t(yypvt[-3].t); free_t(yypvt[-1].t);} break;
  2884. case 442:
  2885. # line 1004 "rttgram.y"
  2886. {free_t(yypvt[-0].t);} break;
  2887. case 443:
  2888. # line 1008 "rttgram.y"
  2889. {yyval.n = sym_node(yypvt[-0].t);} break;
  2890. case 444:
  2891. # line 1009 "rttgram.y"
  2892. {yyval.n = node2(BinryNd, yypvt[-2].t, sym_node(yypvt[-3].t),
  2893.                                     node0(PrimryNd, yypvt[-1].t));
  2894.                                   free_t(yypvt[-0].t);} break;
  2895. case 445:
  2896. # line 1014 "rttgram.y"
  2897. {yyval.n = dest_node(yypvt[-0].t);} break;
  2898. case 446:
  2899. # line 1015 "rttgram.y"
  2900. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2901. case 447:
  2902. # line 1016 "rttgram.y"
  2903. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2904. case 448:
  2905. # line 1017 "rttgram.y"
  2906. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2907. case 449:
  2908. # line 1018 "rttgram.y"
  2909. {yyval.n = node0(PrimryNd, yypvt[-0].t); ++n_tmp_str;} break;
  2910. case 450:
  2911. # line 1019 "rttgram.y"
  2912. {yyval.n = node0(PrimryNd, yypvt[-0].t); ++n_tmp_cset;} break;
  2913. case 451:
  2914. # line 1020 "rttgram.y"
  2915. {yyval.n = node0(ExactCnv, chk_exct(yypvt[-0].t)); free_t(yypvt[-3].t);
  2916.                               free_t(yypvt[-2].t); free_t(yypvt[-1].t);} break;
  2917. case 452:
  2918. # line 1022 "rttgram.y"
  2919. {yyval.n = node0(ExactCnv, yypvt[-0].t); free_t(yypvt[-3].t); free_t(yypvt[-2].t);
  2920.                               free_t(yypvt[-1].t);} break;
  2921. case 453:
  2922. # line 1027 "rttgram.y"
  2923. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2924. case 454:
  2925. # line 1028 "rttgram.y"
  2926. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2927. case 455:
  2928. # line 1029 "rttgram.y"
  2929. {yyval.n = sym_node(yypvt[-0].t);} break;
  2930. case 456:
  2931. # line 1030 "rttgram.y"
  2932. {yyval.n = node0(PrimryNd, yypvt[-0].t);} break;
  2933. case 458:
  2934. # line 1035 "rttgram.y"
  2935. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2936. case 459:
  2937. # line 1036 "rttgram.y"
  2938. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2939. case 460:
  2940. # line 1037 "rttgram.y"
  2941. {yyval.n = node1(PrefxNd, yypvt[-1].t, yypvt[-0].n);} break;
  2942. case 461:
  2943. # line 1041 "rttgram.y"
  2944. {yyval.n = node2(AbstrNd, yypvt[-2].t,   yypvt[-3].n,   yypvt[-1].n);} break;
  2945. case 462:
  2946. # line 1042 "rttgram.y"
  2947. {yyval.n = node2(AbstrNd, yypvt[-2].t,   NULL, yypvt[-1].n);} break;
  2948. case 463:
  2949. # line 1043 "rttgram.y"
  2950. {yyval.n = node2(AbstrNd, NULL, yypvt[-0].n, NULL);} break;
  2951. case 465:
  2952. # line 1048 "rttgram.y"
  2953. {yyval.n = node2(ConCatNd, NULL, yypvt[-1].n, yypvt[-0].n);} break;
  2954. case 466:
  2955. # line 1052 "rttgram.y"
  2956. {yyval.n = node2(BinryNd, yypvt[-2].t, yypvt[-4].n, yypvt[-1].n);
  2957.                                            free_t(yypvt[-6].t); free_t(yypvt[-5].t); free_t(yypvt[-3].t);} break;
  2958. case 468:
  2959. # line 1058 "rttgram.y"
  2960. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2961. case 469:
  2962. # line 1059 "rttgram.y"
  2963. {yyval.n = node2(BinryNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2964. case 470:
  2965. # line 1062 "rttgram.y"
  2966. {yyval.n = node1(IcnTypNd,
  2967.                                          copy_t(yypvt[-0].n->tok), yypvt[-0].n);} break;
  2968. case 471:
  2969. # line 1064 "rttgram.y"
  2970. {yyval.n = node1(PrefxNd, yypvt[-3].t, yypvt[-1].n);
  2971.                                          free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2972. case 472:
  2973. # line 1066 "rttgram.y"
  2974. {yyval.n = node2(BinryNd, yypvt[-4].t, yypvt[-3].n, yypvt[-1].n);
  2975.                                          free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2976. case 473:
  2977. # line 1068 "rttgram.y"
  2978. {yyval.n = node1(PrefxNd, yypvt[-3].t, yypvt[-1].n);
  2979.                                          free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2980. case 474:
  2981. # line 1070 "rttgram.y"
  2982. {yyval.n = node1(PstfxNd, yypvt[-0].t, yypvt[-2].n); 
  2983.                                          free_t(yypvt[-1].t);} break;
  2984. case 475:
  2985. # line 1072 "rttgram.y"
  2986. {yyval.n = yypvt[-1].n; free_t(yypvt[-2].t); free_t(yypvt[-0].t);} break;
  2987. case 478:
  2988. # line 1081 "rttgram.y"
  2989. {yyval.n = node2(CommaNd, yypvt[-1].t, yypvt[-2].n, yypvt[-0].n);} break;
  2990.     }
  2991.     goto yystack;        /* reset registers in driver code */
  2992. }
  2993.