home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 498a.lha / SC_v6.7 / gram.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-08  |  79.3 KB  |  2,195 lines
  1.  
  2. /*  A Bison parser, made from gram.y  */
  3.  
  4. #define    STRING    258
  5. #define    NUMBER    259
  6. #define    FNUMBER    260
  7. #define    RANGE    261
  8. #define    VAR    262
  9. #define    WORD    263
  10. #define    COL    264
  11. #define    S_FORMAT    265
  12. #define    S_LABEL    266
  13. #define    S_LEFTSTRING    267
  14. #define    S_RIGHTSTRING    268
  15. #define    S_GET    269
  16. #define    S_PUT    270
  17. #define    S_MERGE    271
  18. #define    S_LET    272
  19. #define    S_WRITE    273
  20. #define    S_TBL    274
  21. #define    S_COPY    275
  22. #define    S_SHOW    276
  23. #define    S_ERASE    277
  24. #define    S_FILL    278
  25. #define    S_GOTO    279
  26. #define    S_DEFINE    280
  27. #define    S_UNDEFINE    281
  28. #define    S_VALUE    282
  29. #define    S_MDIR    283
  30. #define    S_HIDE    284
  31. #define    S_SET    285
  32. #define    K_FIXED    286
  33. #define    K_SUM    287
  34. #define    K_PROD    288
  35. #define    K_AVG    289
  36. #define    K_STDDEV    290
  37. #define    K_COUNT    291
  38. #define    K_ABS    292
  39. #define    K_ACOS    293
  40. #define    K_ASIN    294
  41. #define    K_ATAN    295
  42. #define    K_ATAN2    296
  43. #define    K_CEIL    297
  44. #define    K_COS    298
  45. #define    K_EXP    299
  46. #define    K_FABS    300
  47. #define    K_FLOOR    301
  48. #define    K_HYPOT    302
  49. #define    K_LN    303
  50. #define    K_LOG    304
  51. #define    K_PI    305
  52. #define    K_POW    306
  53. #define    K_SIN    307
  54. #define    K_SQRT    308
  55. #define    K_TAN    309
  56. #define    K_DTR    310
  57. #define    K_RTD    311
  58. #define    K_MAX    312
  59. #define    K_MIN    313
  60. #define    K_RND    314
  61. #define    K_ROUND    315
  62. #define    K_IF    316
  63. #define    K_PV    317
  64. #define    K_FV    318
  65. #define    K_PMT    319
  66. #define    K_HOUR    320
  67. #define    K_MINUTE    321
  68. #define    K_SECOND    322
  69. #define    K_MONTH    323
  70. #define    K_DAY    324
  71. #define    K_YEAR    325
  72. #define    K_NOW    326
  73. #define    K_DATE    327
  74. #define    K_DTS    328
  75. #define    K_TTS    329
  76. #define    K_FMT    330
  77. #define    K_SUBSTR    331
  78. #define    K_STON    332
  79. #define    K_EQS    333
  80. #define    K_EXT    334
  81. #define    K_NVAL    335
  82. #define    K_SVAL    336
  83. #define    K_LOOKUP    337
  84. #define    K_HLOOKUP    338
  85. #define    K_VLOOKUP    339
  86. #define    K_INDEX    340
  87. #define    K_STINDEX    341
  88. #define    K_AUTO    342
  89. #define    K_AUTOCALC    343
  90. #define    K_BYROWS    344
  91. #define    K_BYCOLS    345
  92. #define    K_BYGRAPH    346
  93. #define    K_ITERATIONS    347
  94. #define    K_NUMERIC    348
  95. #define    K_PRESCALE    349
  96. #define    K_EXTFUN    350
  97. #define    K_CELLCUR    351
  98. #define    K_TOPROW    352
  99. #define    K_TBLSTYLE    353
  100. #define    K_TBL    354
  101. #define    K_LATEX    355
  102. #define    K_TEX    356
  103.  
  104. #line 17 "gram.y"
  105.  
  106. #include <curses.h>
  107. #include "sc.h"
  108.  
  109. #define ENULL (struct enode *)0
  110.  
  111. char *strcpy();
  112.  
  113. #line 26 "gram.y"
  114. typedef union {
  115.     int ival;
  116.     double fval;
  117.     struct ent_ptr ent;
  118.     struct enode *enode;
  119.     char *sval;
  120.     struct range_s rval;
  121. } YYSTYPE;
  122.  
  123. #ifndef YYLTYPE
  124. typedef
  125.   struct yyltype
  126.     {
  127.       int timestamp;
  128.       int first_line;
  129.       int first_column;
  130.       int last_line;
  131.       int last_column;
  132.       char *text;
  133.    }
  134.   yyltype;
  135.  
  136. #define YYLTYPE yyltype
  137. #endif
  138.  
  139. #define    YYACCEPT    return(0)
  140. #define    YYABORT    return(1)
  141. #define    YYERROR    return(1)
  142. #include <stdio.h>
  143.  
  144. #ifdef __STDC__
  145. #define CONST const
  146. #else
  147. #define CONST
  148. #endif
  149.  
  150.  
  151.  
  152. #define    YYFINAL        473
  153. #define    YYFLAG        -32768
  154. #define    YYNTBASE    123
  155.  
  156. #define YYTRANSLATE(x) ((unsigned)(x) <= 356 ? yytranslate[x] : 134)
  157.  
  158. static CONST char yytranslate[] = {     0,
  159.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  160.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  161.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  162.      2,     2,   109,     2,   112,   122,   115,   105,     2,   118,
  163.    119,   113,   110,   120,   111,     2,   114,     2,     2,     2,
  164.      2,     2,     2,     2,     2,     2,     2,   103,     2,   106,
  165.    107,   108,   102,   117,     2,     2,     2,     2,     2,     2,
  166.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  167.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  168.      2,     2,     2,   116,     2,     2,     2,     2,     2,     2,
  169.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  170.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  171.      2,     2,     2,   104,     2,   121,     2,     2,     2,     2,
  172.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  173.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  174.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  175.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  176.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  177.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  178.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  179.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  180.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  181.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  182.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  183.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  184.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  185.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  186.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  187.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  188.     36,    37,    38,    39,    40,    41,    42,    43,    44,    45,
  189.     46,    47,    48,    49,    50,    51,    52,    53,    54,    55,
  190.     56,    57,    58,    59,    60,    61,    62,    63,    64,    65,
  191.     66,    67,    68,    69,    70,    71,    72,    73,    74,    75,
  192.     76,    77,    78,    79,    80,    81,    82,    83,    84,    85,
  193.     86,    87,    88,    89,    90,    91,    92,    93,    94,    95,
  194.     96,    97,    98,    99,   100,   101
  195. };
  196.  
  197. static CONST short yyrline[] = {     0,
  198.    153,   155,   157,   159,   161,   163,   165,   172,   178,   180,
  199.    185,   188,   192,   194,   198,   200,   202,   204,   206,   208,
  200.    211,   214,   216,   218,   222,   224,   226,   227,   228,   229,
  201.    230,   237,   238,   239,   240,   241,   242,   244,   245,   246,
  202.    248,   250,   252,   254,   256,   258,   260,   262,   264,   265,
  203.    266,   267,   268,   269,   270,   271,   272,   273,   274,   275,
  204.    276,   277,   278,   279,   280,   281,   282,   283,   284,   285,
  205.    287,   288,   289,   291,   292,   293,   294,   295,   296,   297,
  206.    298,   300,   302,   303,   304,   305,   306,   308,   310,   313,
  207.    316,   318,   319,   320,   321,   323,   324,   325,   326,   327,
  208.    328,   329,   330,   331,   334,   335,   336,   337,   338,   339,
  209.    340,   341,   342,   343,   344,   345,   346,   347,   348,   349,
  210.    350,   353,   354,   357,   358,   361,   362,   364,   366,   368,
  211.    371,   372,   375,   376,   377,   378,   381,   382,   393,   394,
  212.    397,   398,   399,   400,   401,   402,   403,   404,   405,   406,
  213.    407,   408,   409,   410,   411,   412,   413,   414,   415,   416,
  214.    417,   418,   419,   420
  215. };
  216.  
  217. static CONST char * yytname[] = {     0,
  218. "error","$illegal.","STRING","NUMBER","FNUMBER","RANGE","VAR","WORD","COL","S_FORMAT",
  219. "S_LABEL","S_LEFTSTRING","S_RIGHTSTRING","S_GET","S_PUT","S_MERGE","S_LET","S_WRITE","S_TBL","S_COPY",
  220. "S_SHOW","S_ERASE","S_FILL","S_GOTO","S_DEFINE","S_UNDEFINE","S_VALUE","S_MDIR","S_HIDE","S_SET",
  221. "K_FIXED","K_SUM","K_PROD","K_AVG","K_STDDEV","K_COUNT","K_ABS","K_ACOS","K_ASIN","K_ATAN",
  222. "K_ATAN2","K_CEIL","K_COS","K_EXP","K_FABS","K_FLOOR","K_HYPOT","K_LN","K_LOG","K_PI",
  223. "K_POW","K_SIN","K_SQRT","K_TAN","K_DTR","K_RTD","K_MAX","K_MIN","K_RND","K_ROUND",
  224. "K_IF","K_PV","K_FV","K_PMT","K_HOUR","K_MINUTE","K_SECOND","K_MONTH","K_DAY","K_YEAR",
  225. "K_NOW","K_DATE","K_DTS","K_TTS","K_FMT","K_SUBSTR","K_STON","K_EQS","K_EXT","K_NVAL",
  226. "K_SVAL","K_LOOKUP","K_HLOOKUP","K_VLOOKUP","K_INDEX","K_STINDEX","K_AUTO","K_AUTOCALC","K_BYROWS","K_BYCOLS",
  227. "K_BYGRAPH","K_ITERATIONS","K_NUMERIC","K_PRESCALE","K_EXTFUN","K_CELLCUR","K_TOPROW","K_TBLSTYLE","K_TBL","K_LATEX",
  228. "K_TEX","'?'","':'","'|'","'&'","'<'","'='","'>'","'!'","'+'",
  229. "'-'","'#'","'*'","'/'","'%'","'^'","'@'","'('","')'","','",
  230. "'~'","'$'","command"
  231. };
  232.  
  233. static CONST short yyr1[] = {     0,
  234.    123,   123,   123,   123,   123,   123,   123,   123,   123,   123,
  235.    123,   123,   123,   123,   123,   123,   123,   123,   123,   123,
  236.    123,   123,   123,   123,   123,   123,   123,   123,   123,   123,
  237.    123,   123,   123,   123,   123,   123,   123,   124,   124,   124,
  238.    124,   124,   124,   124,   124,   124,   124,   124,   124,   124,
  239.    124,   124,   124,   124,   124,   124,   124,   124,   124,   124,
  240.    124,   124,   124,   124,   124,   124,   124,   124,   124,   124,
  241.    124,   124,   124,   124,   124,   124,   124,   124,   124,   124,
  242.    124,   124,   124,   124,   124,   124,   124,   124,   124,   124,
  243.    124,   124,   124,   124,   124,   124,   124,   124,   124,   124,
  244.    124,   124,   124,   124,   125,   125,   125,   125,   125,   125,
  245.    125,   125,   125,   125,   125,   125,   125,   125,   125,   125,
  246.    125,   126,   126,   127,   127,   128,   128,   128,   128,   128,
  247.    129,   129,   130,   130,   130,   130,   131,   131,   132,   132,
  248.    133,   133,   133,   133,   133,   133,   133,   133,   133,   133,
  249.    133,   133,   133,   133,   133,   133,   133,   133,   133,   133,
  250.    133,   133,   133,   133
  251. };
  252.  
  253. static CONST short yyr2[] = {     0,
  254.      4,     4,     4,     4,     6,     4,     2,     2,     2,     3,
  255.      2,     3,     2,     3,     2,     4,     4,     2,     2,     3,
  256.      1,     2,     1,     2,     3,     4,     2,     2,     2,     1,
  257.      2,     3,     3,     2,     2,     0,     1,     1,     2,     5,
  258.      5,     5,     5,     5,     5,     7,     5,     7,     5,     5,
  259.      5,     5,     7,     5,     5,     5,     5,     5,     7,     5,
  260.      5,     7,     5,     5,     5,     5,     5,     5,     7,     9,
  261.      9,     9,     9,     5,     5,     5,     5,     5,     5,     2,
  262.      9,     9,     5,     7,     5,     7,     7,     7,     9,     9,
  263.      7,     7,     7,     7,     9,     3,     2,     2,     1,     1,
  264.      1,     1,     2,     2,     3,     3,     3,     3,     3,     3,
  265.      1,     5,     3,     3,     3,     3,     3,     4,     4,     4,
  266.      3,     1,     3,     3,     1,     2,     3,     3,     4,     1,
  267.      1,     1,     1,     1,     2,     2,     1,     1,     0,     2,
  268.      1,     1,     2,     2,     2,     2,     1,     1,     1,     1,
  269.      2,     1,     2,     1,     2,     1,     2,     1,     2,     3,
  270.      3,     3,     3,     3
  271. };
  272.  
  273. static CONST short yydefact[] = {     0,
  274.     37,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  275.      0,     0,     0,    21,     0,    30,     0,     0,    23,     0,
  276.      0,   139,     0,   125,   130,     0,     0,   131,   132,     0,
  277.      0,     0,   137,   138,     7,    11,     8,     0,    13,    15,
  278.      0,     0,     0,     0,    22,   133,   134,     0,     0,     0,
  279.      0,    29,    27,    28,    31,    34,    24,     9,    19,    18,
  280.     35,     0,     0,   126,     0,     0,     0,     0,     0,     0,
  281.     10,     0,    12,    14,    20,     0,     0,   136,   135,     0,
  282.     25,    32,    33,   141,   142,   148,   147,   149,     0,   150,
  283.    152,   154,   156,   158,     0,     0,     0,   140,     6,     0,
  284.    128,   127,     0,   124,   102,    99,   100,     0,   101,     0,
  285.      0,     0,     0,     0,     0,   111,     2,    38,     3,     4,
  286.      1,    17,    16,    26,     0,     0,   145,   146,   151,   153,
  287.    155,   157,   159,   143,   144,     0,   129,    39,   104,    97,
  288.     98,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  289.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  290.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  291.      0,     0,     0,     0,     0,     0,     0,     0,     0,    80,
  292.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  293.      0,     0,     0,     0,     0,     0,   103,     0,     0,     0,
  294.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  295.      0,   160,   161,   162,   163,   164,     5,     0,     0,     0,
  296.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  297.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  298.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  299.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  300.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  301.     96,     0,   117,   116,     0,   113,   114,     0,   115,     0,
  302.    105,   106,   121,   107,   108,   109,   110,     0,     0,     0,
  303.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  304.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  305.      0,     0,    38,     0,     0,     0,     0,     0,     0,     0,
  306.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  307.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  308.      0,     0,     0,     0,   118,   120,   119,    40,    41,    42,
  309.     43,    44,    49,    50,    51,    52,     0,    54,    55,    56,
  310.     57,    58,     0,    60,    61,     0,    63,    64,    65,    66,
  311.     67,     0,    45,     0,    47,    68,     0,     0,     0,     0,
  312.      0,    74,    75,    76,    77,    78,    79,    85,     0,     0,
  313.      0,     0,    83,     0,     0,     0,     0,     0,     0,     0,
  314.      0,     0,   112,     0,     0,     0,   122,     0,     0,     0,
  315.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  316.      0,     0,     0,     0,     0,     0,     0,    53,    59,    62,
  317.     46,     0,    48,    69,     0,     0,     0,     0,     0,     0,
  318.     86,     0,    84,    92,    93,    94,    88,     0,     0,    87,
  319.     91,   123,     0,     0,     0,     0,     0,     0,     0,     0,
  320.      0,    70,    71,    72,    73,    81,    82,    95,    89,    90,
  321.      0,     0,     0
  322. };
  323.  
  324. static CONST short yydefgoto[] = {   471,
  325.    116,   407,   408,    28,   118,    30,    51,    35,    61,    98
  326. };
  327.  
  328. static CONST short yypact[] = {   486,
  329. -32768,    20,    71,    71,    71,    42,    42,    42,    71,    42,
  330.     42,    71,    58,    71,    98,    85,    42,    71,    71,    42,
  331.    118,-32768,     6,-32768,-32768,    23,    30,-32768,   -60,   -54,
  332.    -32,   -28,-32768,-32768,-32768,    71,-32768,   -26,    71,    71,
  333.     71,   -60,   -20,   -18,-32768,-32768,-32768,    14,    14,    14,
  334.     14,-32768,-32768,-32768,    71,-32768,-32768,-32768,-32768,-32768,
  335.    355,    95,    97,-32768,   104,    44,    52,    51,    51,    51,
  336. -32768,    51,-32768,-32768,-32768,   106,   105,-32768,-32768,    14,
  337. -32768,-32768,   -60,-32768,-32768,-32768,-32768,-32768,     9,-32768,
  338. -32768,-32768,-32768,-32768,    28,   168,   -22,-32768,-32768,   119,
  339. -32768,-32768,   134,-32768,-32768,-32768,-32768,    51,-32768,    51,
  340.     51,    51,   292,    51,    51,-32768,  1646,-32768,  1646,  1646,
  341.   1646,-32768,-32768,-32768,   135,    80,-32768,-32768,-32768,-32768,
  342. -32768,-32768,-32768,-32768,-32768,   138,-32768,-32768,-32768,-32768,
  343. -32768,    31,    35,    38,    45,    47,    57,    69,    72,    73,
  344.     74,    76,    79,    81,    84,    87,    88,    93,    94,    96,
  345.    129,   139,   142,   196,   197,   198,   199,   201,   202,   204,
  346.    224,   268,   270,   271,   272,   273,   274,   275,   276,-32768,
  347.    283,   284,   285,   286,   287,   289,   290,   293,   294,   295,
  348.    301,   307,   308,   309,   310,   925,-32768,    51,    51,    51,
  349.     19,    51,    37,    91,    51,    51,    51,    51,    51,    51,
  350.     51,-32768,-32768,-32768,-32768,-32768,-32768,    71,    71,    71,
  351.     71,    71,    51,    51,    51,    51,    51,    51,    51,    51,
  352.     51,    51,    51,    51,    51,    51,    51,    51,    51,    51,
  353.     51,    67,    67,    51,    51,    51,    51,    51,    51,    51,
  354.     51,    51,    51,    51,    51,    51,    51,    51,    51,    51,
  355.     51,    51,    51,    51,    51,    51,    51,    51,    51,    51,
  356. -32768,  1631,  1658,  1669,    51,   269,   269,    51,   269,    51,
  357.     18,    18,    18,   313,   313,   313,-32768,   291,   311,   312,
  358.    317,   322,   941,   957,   973,   989,   415,  1005,  1021,  1037,
  359.   1053,  1069,   432,  1085,  1101,   449,  1117,  1133,  1149,  1165,
  360.   1181,   466,   -56,   335,   483,   336,  1197,   500,   517,   534,
  361.    551,   568,  1213,  1229,  1245,  1261,  1277,  1293,  1309,   585,
  362.    602,   619,   636,  1325,   653,   670,   687,   704,   721,   738,
  363.    755,   772,   789,    51,   269,   269,   269,-32768,-32768,-32768,
  364. -32768,-32768,-32768,-32768,-32768,-32768,    51,-32768,-32768,-32768,
  365. -32768,-32768,    51,-32768,-32768,    51,-32768,-32768,-32768,-32768,
  366. -32768,    51,-32768,    51,-32768,-32768,    51,    51,    51,    51,
  367.     51,-32768,-32768,-32768,-32768,-32768,-32768,-32768,    51,    51,
  368.     51,    51,-32768,    51,    51,    51,    51,    71,    71,    71,
  369.     71,    71,   117,  1341,  1357,  1373,  1646,    32,    63,  1389,
  370.    806,   823,   840,   857,   874,   891,  1405,   908,  1421,  1437,
  371.   1453,  1469,   337,   338,   339,   341,   342,-32768,-32768,-32768,
  372. -32768,    51,-32768,-32768,    51,    51,    51,    51,    51,    51,
  373. -32768,    51,-32768,-32768,-32768,-32768,-32768,    51,    51,-32768,
  374. -32768,  1646,  1485,  1501,  1517,  1533,  1549,  1565,  1581,  1597,
  375.   1613,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  376.    457,   462,-32768
  377. };
  378.  
  379. static CONST short yypgoto[] = {-32768,
  380.    -15,    43,    89,   131,    -3,    16,    70,   193,-32768,-32768
  381. };
  382.  
  383.  
  384. #define    YYLAST        1785
  385.  
  386.  
  387. static CONST short yytable[] = {    29,
  388.     29,    29,    34,    34,    34,    29,    34,    34,    42,    62,
  389.     29,    29,    29,    34,    29,    29,    34,    46,    47,    31,
  390.     32,   105,   106,   107,    38,    25,    64,    26,    23,    45,
  391.     50,    53,    42,    56,    57,    42,    42,    29,    66,   105,
  392.    106,   107,    67,    25,    33,    26,    67,   102,    25,   108,
  393.     26,    83,    68,   105,   106,   107,    75,    25,    25,    26,
  394.     26,    43,  -132,   104,   134,   135,    44,   108,   109,   105,
  395.    106,   107,    24,    25,    69,    26,    24,    25,    70,    26,
  396.     72,   108,    76,   213,    77,    54,   109,    52,    46,    47,
  397.     24,    25,   138,    26,   139,   140,   141,   108,    99,   197,
  398.    109,    46,    47,    24,    25,   100,    26,   101,    63,   122,
  399.    117,   119,   120,   123,   121,   125,   109,    78,    79,    80,
  400.     81,    59,   136,    48,    49,   275,    60,   110,   111,   112,
  401.    208,   209,   210,   211,   126,   113,   114,   137,   212,   115,
  402.     27,   217,    41,   278,    65,   110,   111,   112,   218,   124,
  403.    431,   432,   219,   113,   114,   220,   196,   115,    27,   110,
  404.    111,   112,   221,    27,   222,   103,    71,   113,   114,    73,
  405.     74,   115,    27,    27,   223,   110,   111,   112,   214,   215,
  406.    216,   433,   432,   113,   114,    82,   224,   115,    27,   225,
  407.    226,   227,    27,   228,    48,    49,   229,   280,   230,    36,
  408.     37,   231,    39,    40,   232,   233,    27,    48,    49,    55,
  409.    234,   235,    58,   236,    29,    29,    29,    29,    29,    27,
  410.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  411.    209,   210,   211,   288,   289,   290,   291,   292,   313,   313,
  412.    272,   273,   274,   276,   277,   279,   237,   281,   282,   283,
  413.    284,   285,   286,   287,   127,   128,   238,   314,   316,   239,
  414.    129,   130,   131,   132,   133,   293,   294,   295,   296,   297,
  415.    298,   299,   300,   301,   302,   303,   304,   305,   306,   307,
  416.    308,   309,   310,   311,   312,   315,   317,   318,   319,   320,
  417.    321,   322,   323,   324,   325,   326,   327,   328,   329,   330,
  418.    331,   332,   333,   334,   335,   336,   337,   338,   339,   340,
  419.    341,   342,   343,   240,   241,   242,   243,   345,   244,   245,
  420.    346,   246,   347,   142,   143,   144,   145,   146,   147,   148,
  421.    149,   150,   151,   152,   153,   154,   155,   156,   157,   158,
  422.    159,   247,   160,   161,   162,   163,   164,   165,   166,   167,
  423.    168,   169,   170,   171,   172,   173,   174,   175,   176,   177,
  424.    178,   179,   180,   181,   182,   183,   184,   185,   186,   187,
  425.    188,   189,   190,   191,   192,   193,   194,   195,   205,   206,
  426.    207,   208,   209,   210,   211,   248,   403,   249,   250,   251,
  427.    252,   253,   254,   255,    29,    29,    29,    29,    29,   404,
  428.    256,   257,   258,   259,   260,   405,   261,   262,   406,   348,
  429.    263,   264,   265,   423,   424,   425,   426,   427,   266,   410,
  430.    411,   412,   413,   414,   267,   268,   269,   270,   211,   349,
  431.    350,   415,   416,   417,   418,   351,   419,   420,   421,   422,
  432.    352,    84,    85,    86,    87,    88,    89,    90,    91,    92,
  433.     93,    94,    95,   373,   375,   447,   472,   448,   449,   450,
  434.    451,   473,   409,    96,     0,     0,     0,     0,     0,     0,
  435.      0,     0,     0,     0,   452,    97,     0,   453,   454,   455,
  436.    456,   457,   458,     0,   459,   -36,     1,     0,     0,     0,
  437.    460,   461,     0,     0,     0,     2,     3,     4,     5,     6,
  438.      7,     8,     9,    10,    11,    12,    13,    14,    15,    16,
  439.     17,    18,    19,    20,    21,    22,   198,     0,   199,   200,
  440.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  441.    211,     0,     0,   198,   357,   199,   200,   201,   202,   203,
  442.    204,   205,   206,   207,   208,   209,   210,   211,     0,     0,
  443.    198,   363,   199,   200,   201,   202,   203,   204,   205,   206,
  444.    207,   208,   209,   210,   211,     0,     0,   198,   366,   199,
  445.    200,   201,   202,   203,   204,   205,   206,   207,   208,   209,
  446.    210,   211,     0,     0,   198,   372,   199,   200,   201,   202,
  447.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  448.      0,   198,   374,   199,   200,   201,   202,   203,   204,   205,
  449.    206,   207,   208,   209,   210,   211,     0,     0,   198,   377,
  450.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  451.    209,   210,   211,     0,     0,   198,   378,   199,   200,   201,
  452.    202,   203,   204,   205,   206,   207,   208,   209,   210,   211,
  453.      0,     0,   198,   379,   199,   200,   201,   202,   203,   204,
  454.    205,   206,   207,   208,   209,   210,   211,     0,     0,   198,
  455.    380,   199,   200,   201,   202,   203,   204,   205,   206,   207,
  456.    208,   209,   210,   211,     0,     0,   198,   381,   199,   200,
  457.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  458.    211,     0,     0,   198,   389,   199,   200,   201,   202,   203,
  459.    204,   205,   206,   207,   208,   209,   210,   211,     0,     0,
  460.    198,   390,   199,   200,   201,   202,   203,   204,   205,   206,
  461.    207,   208,   209,   210,   211,     0,     0,   198,   391,   199,
  462.    200,   201,   202,   203,   204,   205,   206,   207,   208,   209,
  463.    210,   211,     0,     0,   198,   392,   199,   200,   201,   202,
  464.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  465.      0,   198,   394,   199,   200,   201,   202,   203,   204,   205,
  466.    206,   207,   208,   209,   210,   211,     0,     0,   198,   395,
  467.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  468.    209,   210,   211,     0,     0,   198,   396,   199,   200,   201,
  469.    202,   203,   204,   205,   206,   207,   208,   209,   210,   211,
  470.      0,     0,   198,   397,   199,   200,   201,   202,   203,   204,
  471.    205,   206,   207,   208,   209,   210,   211,     0,     0,   198,
  472.    398,   199,   200,   201,   202,   203,   204,   205,   206,   207,
  473.    208,   209,   210,   211,     0,     0,   198,   399,   199,   200,
  474.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  475.    211,     0,     0,   198,   400,   199,   200,   201,   202,   203,
  476.    204,   205,   206,   207,   208,   209,   210,   211,     0,     0,
  477.    198,   401,   199,   200,   201,   202,   203,   204,   205,   206,
  478.    207,   208,   209,   210,   211,     0,     0,   198,   402,   199,
  479.    200,   201,   202,   203,   204,   205,   206,   207,   208,   209,
  480.    210,   211,     0,     0,   198,   435,   199,   200,   201,   202,
  481.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  482.      0,   198,   436,   199,   200,   201,   202,   203,   204,   205,
  483.    206,   207,   208,   209,   210,   211,     0,     0,   198,   437,
  484.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  485.    209,   210,   211,     0,     0,   198,   438,   199,   200,   201,
  486.    202,   203,   204,   205,   206,   207,   208,   209,   210,   211,
  487.      0,     0,   198,   439,   199,   200,   201,   202,   203,   204,
  488.    205,   206,   207,   208,   209,   210,   211,     0,     0,   198,
  489.    440,   199,   200,   201,   202,   203,   204,   205,   206,   207,
  490.    208,   209,   210,   211,     0,     0,   198,   442,   199,   200,
  491.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  492.    211,     0,   198,   271,   199,   200,   201,   202,   203,   204,
  493.    205,   206,   207,   208,   209,   210,   211,     0,   198,   353,
  494.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  495.    209,   210,   211,     0,   198,   354,   199,   200,   201,   202,
  496.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  497.    198,   355,   199,   200,   201,   202,   203,   204,   205,   206,
  498.    207,   208,   209,   210,   211,     0,   198,   356,   199,   200,
  499.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  500.    211,     0,   198,   358,   199,   200,   201,   202,   203,   204,
  501.    205,   206,   207,   208,   209,   210,   211,     0,   198,   359,
  502.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  503.    209,   210,   211,     0,   198,   360,   199,   200,   201,   202,
  504.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  505.    198,   361,   199,   200,   201,   202,   203,   204,   205,   206,
  506.    207,   208,   209,   210,   211,     0,   198,   362,   199,   200,
  507.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  508.    211,     0,   198,   364,   199,   200,   201,   202,   203,   204,
  509.    205,   206,   207,   208,   209,   210,   211,     0,   198,   365,
  510.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  511.    209,   210,   211,     0,   198,   367,   199,   200,   201,   202,
  512.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  513.    198,   368,   199,   200,   201,   202,   203,   204,   205,   206,
  514.    207,   208,   209,   210,   211,     0,   198,   369,   199,   200,
  515.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  516.    211,     0,   198,   370,   199,   200,   201,   202,   203,   204,
  517.    205,   206,   207,   208,   209,   210,   211,     0,   198,   371,
  518.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  519.    209,   210,   211,     0,   198,   376,   199,   200,   201,   202,
  520.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  521.    198,   382,   199,   200,   201,   202,   203,   204,   205,   206,
  522.    207,   208,   209,   210,   211,     0,   198,   383,   199,   200,
  523.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  524.    211,     0,   198,   384,   199,   200,   201,   202,   203,   204,
  525.    205,   206,   207,   208,   209,   210,   211,     0,   198,   385,
  526.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  527.    209,   210,   211,     0,   198,   386,   199,   200,   201,   202,
  528.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  529.    198,   387,   199,   200,   201,   202,   203,   204,   205,   206,
  530.    207,   208,   209,   210,   211,     0,   198,   388,   199,   200,
  531.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  532.    211,     0,   198,   393,   199,   200,   201,   202,   203,   204,
  533.    205,   206,   207,   208,   209,   210,   211,     0,   198,   428,
  534.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  535.    209,   210,   211,     0,   198,   429,   199,   200,   201,   202,
  536.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  537.    198,   430,   199,   200,   201,   202,   203,   204,   205,   206,
  538.    207,   208,   209,   210,   211,     0,   198,   434,   199,   200,
  539.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  540.    211,     0,   198,   441,   199,   200,   201,   202,   203,   204,
  541.    205,   206,   207,   208,   209,   210,   211,     0,   198,   443,
  542.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  543.    209,   210,   211,     0,   198,   444,   199,   200,   201,   202,
  544.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  545.    198,   445,   199,   200,   201,   202,   203,   204,   205,   206,
  546.    207,   208,   209,   210,   211,     0,   198,   446,   199,   200,
  547.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  548.    211,     0,   198,   462,   199,   200,   201,   202,   203,   204,
  549.    205,   206,   207,   208,   209,   210,   211,     0,   198,   463,
  550.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  551.    209,   210,   211,     0,   198,   464,   199,   200,   201,   202,
  552.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  553.    198,   465,   199,   200,   201,   202,   203,   204,   205,   206,
  554.    207,   208,   209,   210,   211,     0,   198,   466,   199,   200,
  555.    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
  556.    211,     0,   198,   467,   199,   200,   201,   202,   203,   204,
  557.    205,   206,   207,   208,   209,   210,   211,     0,   198,   468,
  558.    199,   200,   201,   202,   203,   204,   205,   206,   207,   208,
  559.    209,   210,   211,     0,   198,   469,   199,   200,   201,   202,
  560.    203,   204,   205,   206,   207,   208,   209,   210,   211,     0,
  561.      0,   470,   198,   344,   199,   200,   201,   202,   203,   204,
  562.    205,   206,   207,   208,   209,   210,   211,   198,     0,   199,
  563.    200,   201,   202,   203,   204,   205,   206,   207,   208,   209,
  564.    210,   211,   200,   201,   202,   203,   204,   205,   206,   207,
  565.    208,   209,   210,   211,   201,   202,   203,   204,   205,   206,
  566.    207,   208,   209,   210,   211
  567. };
  568.  
  569. static CONST short yycheck[] = {     3,
  570.      4,     5,     6,     7,     8,     9,    10,    11,    12,     4,
  571.     14,    15,    16,    17,    18,    19,    20,     4,     5,     4,
  572.      5,     3,     4,     5,     9,     7,     4,     9,     9,    14,
  573.     15,    16,    36,    18,    19,    39,    40,    41,     9,     3,
  574.      4,     5,   103,     7,     3,     9,   103,     4,     7,    31,
  575.      9,    55,   107,     3,     4,     5,    41,     7,     7,     9,
  576.      9,     4,   119,    67,    87,    88,     9,    31,    50,     3,
  577.      4,     5,     6,     7,   107,     9,     6,     7,   107,     9,
  578.    107,    31,   103,     4,   103,    16,    50,     3,     4,     5,
  579.      6,     7,   108,     9,   110,   111,   112,    31,     4,   115,
  580.     50,     4,     5,     6,     7,     9,     9,     4,   103,     4,
  581.     68,    69,    70,     9,    72,   107,    50,    48,    49,    50,
  582.     51,     4,     4,   110,   111,   107,     9,   109,   110,   111,
  583.    113,   114,   115,   116,   107,   117,   118,     4,     4,   121,
  584.    122,     4,    12,   107,   122,   109,   110,   111,   118,    80,
  585.    119,   120,   118,   117,   118,   118,   114,   121,   122,   109,
  586.    110,   111,   118,   122,   118,   122,    36,   117,   118,    39,
  587.     40,   121,   122,   122,   118,   109,   110,   111,    99,   100,
  588.    101,   119,   120,   117,   118,    55,   118,   121,   122,   118,
  589.    118,   118,   122,   118,   110,   111,   118,   107,   118,     7,
  590.      8,   118,    10,    11,   118,   118,   122,   110,   111,    17,
  591.    118,   118,    20,   118,   218,   219,   220,   221,   222,   122,
  592.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  593.    114,   115,   116,   218,   219,   220,   221,   222,   242,   243,
  594.    198,   199,   200,   201,   202,   203,   118,   205,   206,   207,
  595.    208,   209,   210,   211,    87,    88,   118,   242,   243,   118,
  596.     93,    94,    95,    96,    97,   223,   224,   225,   226,   227,
  597.    228,   229,   230,   231,   232,   233,   234,   235,   236,   237,
  598.    238,   239,   240,   241,   242,   243,   244,   245,   246,   247,
  599.    248,   249,   250,   251,   252,   253,   254,   255,   256,   257,
  600.    258,   259,   260,   261,   262,   263,   264,   265,   266,   267,
  601.    268,   269,   270,   118,   118,   118,   118,   275,   118,   118,
  602.    278,   118,   280,    32,    33,    34,    35,    36,    37,    38,
  603.     39,    40,    41,    42,    43,    44,    45,    46,    47,    48,
  604.     49,   118,    51,    52,    53,    54,    55,    56,    57,    58,
  605.     59,    60,    61,    62,    63,    64,    65,    66,    67,    68,
  606.     69,    70,    71,    72,    73,    74,    75,    76,    77,    78,
  607.     79,    80,    81,    82,    83,    84,    85,    86,   110,   111,
  608.    112,   113,   114,   115,   116,   118,   344,   118,   118,   118,
  609.    118,   118,   118,   118,   398,   399,   400,   401,   402,   357,
  610.    118,   118,   118,   118,   118,   363,   118,   118,   366,   119,
  611.    118,   118,   118,   398,   399,   400,   401,   402,   118,   377,
  612.    378,   379,   380,   381,   118,   118,   118,   118,   116,   119,
  613.    119,   389,   390,   391,   392,   119,   394,   395,   396,   397,
  614.    119,    87,    88,    89,    90,    91,    92,    93,    94,    95,
  615.     96,    97,    98,   119,   119,   119,     0,   120,   120,   119,
  616.    119,     0,   374,   109,    -1,    -1,    -1,    -1,    -1,    -1,
  617.     -1,    -1,    -1,    -1,   432,   121,    -1,   435,   436,   437,
  618.    438,   439,   440,    -1,   442,     0,     1,    -1,    -1,    -1,
  619.    448,   449,    -1,    -1,    -1,    10,    11,    12,    13,    14,
  620.     15,    16,    17,    18,    19,    20,    21,    22,    23,    24,
  621.     25,    26,    27,    28,    29,    30,   102,    -1,   104,   105,
  622.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  623.    116,    -1,    -1,   102,   120,   104,   105,   106,   107,   108,
  624.    109,   110,   111,   112,   113,   114,   115,   116,    -1,    -1,
  625.    102,   120,   104,   105,   106,   107,   108,   109,   110,   111,
  626.    112,   113,   114,   115,   116,    -1,    -1,   102,   120,   104,
  627.    105,   106,   107,   108,   109,   110,   111,   112,   113,   114,
  628.    115,   116,    -1,    -1,   102,   120,   104,   105,   106,   107,
  629.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  630.     -1,   102,   120,   104,   105,   106,   107,   108,   109,   110,
  631.    111,   112,   113,   114,   115,   116,    -1,    -1,   102,   120,
  632.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  633.    114,   115,   116,    -1,    -1,   102,   120,   104,   105,   106,
  634.    107,   108,   109,   110,   111,   112,   113,   114,   115,   116,
  635.     -1,    -1,   102,   120,   104,   105,   106,   107,   108,   109,
  636.    110,   111,   112,   113,   114,   115,   116,    -1,    -1,   102,
  637.    120,   104,   105,   106,   107,   108,   109,   110,   111,   112,
  638.    113,   114,   115,   116,    -1,    -1,   102,   120,   104,   105,
  639.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  640.    116,    -1,    -1,   102,   120,   104,   105,   106,   107,   108,
  641.    109,   110,   111,   112,   113,   114,   115,   116,    -1,    -1,
  642.    102,   120,   104,   105,   106,   107,   108,   109,   110,   111,
  643.    112,   113,   114,   115,   116,    -1,    -1,   102,   120,   104,
  644.    105,   106,   107,   108,   109,   110,   111,   112,   113,   114,
  645.    115,   116,    -1,    -1,   102,   120,   104,   105,   106,   107,
  646.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  647.     -1,   102,   120,   104,   105,   106,   107,   108,   109,   110,
  648.    111,   112,   113,   114,   115,   116,    -1,    -1,   102,   120,
  649.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  650.    114,   115,   116,    -1,    -1,   102,   120,   104,   105,   106,
  651.    107,   108,   109,   110,   111,   112,   113,   114,   115,   116,
  652.     -1,    -1,   102,   120,   104,   105,   106,   107,   108,   109,
  653.    110,   111,   112,   113,   114,   115,   116,    -1,    -1,   102,
  654.    120,   104,   105,   106,   107,   108,   109,   110,   111,   112,
  655.    113,   114,   115,   116,    -1,    -1,   102,   120,   104,   105,
  656.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  657.    116,    -1,    -1,   102,   120,   104,   105,   106,   107,   108,
  658.    109,   110,   111,   112,   113,   114,   115,   116,    -1,    -1,
  659.    102,   120,   104,   105,   106,   107,   108,   109,   110,   111,
  660.    112,   113,   114,   115,   116,    -1,    -1,   102,   120,   104,
  661.    105,   106,   107,   108,   109,   110,   111,   112,   113,   114,
  662.    115,   116,    -1,    -1,   102,   120,   104,   105,   106,   107,
  663.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  664.     -1,   102,   120,   104,   105,   106,   107,   108,   109,   110,
  665.    111,   112,   113,   114,   115,   116,    -1,    -1,   102,   120,
  666.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  667.    114,   115,   116,    -1,    -1,   102,   120,   104,   105,   106,
  668.    107,   108,   109,   110,   111,   112,   113,   114,   115,   116,
  669.     -1,    -1,   102,   120,   104,   105,   106,   107,   108,   109,
  670.    110,   111,   112,   113,   114,   115,   116,    -1,    -1,   102,
  671.    120,   104,   105,   106,   107,   108,   109,   110,   111,   112,
  672.    113,   114,   115,   116,    -1,    -1,   102,   120,   104,   105,
  673.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  674.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  675.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  676.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  677.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  678.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  679.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  680.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  681.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  682.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  683.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  684.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  685.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  686.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  687.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  688.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  689.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  690.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  691.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  692.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  693.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  694.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  695.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  696.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  697.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  698.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  699.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  700.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  701.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  702.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  703.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  704.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  705.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  706.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  707.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  708.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  709.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  710.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  711.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  712.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  713.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  714.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  715.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  716.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  717.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  718.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  719.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  720.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  721.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  722.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  723.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  724.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  725.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  726.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  727.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  728.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  729.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  730.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  731.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  732.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  733.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  734.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  735.    102,   119,   104,   105,   106,   107,   108,   109,   110,   111,
  736.    112,   113,   114,   115,   116,    -1,   102,   119,   104,   105,
  737.    106,   107,   108,   109,   110,   111,   112,   113,   114,   115,
  738.    116,    -1,   102,   119,   104,   105,   106,   107,   108,   109,
  739.    110,   111,   112,   113,   114,   115,   116,    -1,   102,   119,
  740.    104,   105,   106,   107,   108,   109,   110,   111,   112,   113,
  741.    114,   115,   116,    -1,   102,   119,   104,   105,   106,   107,
  742.    108,   109,   110,   111,   112,   113,   114,   115,   116,    -1,
  743.     -1,   119,   102,   103,   104,   105,   106,   107,   108,   109,
  744.    110,   111,   112,   113,   114,   115,   116,   102,    -1,   104,
  745.    105,   106,   107,   108,   109,   110,   111,   112,   113,   114,
  746.    115,   116,   105,   106,   107,   108,   109,   110,   111,   112,
  747.    113,   114,   115,   116,   106,   107,   108,   109,   110,   111,
  748.    112,   113,   114,   115,   116
  749. };
  750. #define YYPURE 1
  751.  
  752. #line 2 "bison.simple"
  753.  
  754. /* Skeleton output parser for bison,
  755.    copyright (C) 1984 Bob Corbett and Richard Stallman
  756.  
  757.                        NO WARRANTY
  758.  
  759.   BECAUSE THIS PROGRAM IS LICENSED FREE OF CHARGE, WE PROVIDE ABSOLUTELY
  760. NO WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW.  EXCEPT
  761. WHEN OTHERWISE STATED IN WRITING, FREE SOFTWARE FOUNDATION, INC,
  762. RICHARD M. STALLMAN AND/OR OTHER PARTIES PROVIDE THIS PROGRAM "AS IS"
  763. WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
  764. BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
  765. FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY
  766. AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE PROGRAM PROVE
  767. DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
  768. CORRECTION.
  769.  
  770.  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL RICHARD M.
  771. STALLMAN, THE FREE SOFTWARE FOUNDATION, INC., AND/OR ANY OTHER PARTY
  772. WHO MAY MODIFY AND REDISTRIBUTE THIS PROGRAM AS PERMITTED BELOW, BE
  773. LIABLE TO YOU FOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR
  774. OTHER SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
  775. USE OR INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR
  776. DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR
  777. A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS) THIS
  778. PROGRAM, EVEN IF YOU HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH
  779. DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY.
  780.  
  781.                 GENERAL PUBLIC LICENSE TO COPY
  782.  
  783.   1. You may copy and distribute verbatim copies of this source file
  784. as you receive it, in any medium, provided that you conspicuously and
  785. appropriately publish on each copy a valid copyright notice "Copyright
  786. (C) 1985 Free Software Foundation, Inc."; and include following the
  787. copyright notice a verbatim copy of the above disclaimer of warranty
  788. and of this License.  You may charge a distribution fee for the
  789. physical act of transferring a copy.
  790.  
  791.   2. You may modify your copy or copies of this source file or
  792. any portion of it, and copy and distribute such modifications under
  793. the terms of Paragraph 1 above, provided that you also do the following:
  794.  
  795.     a) cause the modified files to carry prominent notices stating
  796.     that you changed the files and the date of any change; and
  797.  
  798.     b) cause the whole of any work that you distribute or publish,
  799.     that in whole or in part contains or is a derivative of this
  800.     program or any part thereof, to be licensed at no charge to all
  801.     third parties on terms identical to those contained in this
  802.     License Agreement (except that you may choose to grant more extensive
  803.     warranty protection to some or all third parties, at your option).
  804.  
  805.     c) You may charge a distribution fee for the physical act of
  806.     transferring a copy, and you may at your option offer warranty
  807.     protection in exchange for a fee.
  808.  
  809. Mere aggregation of another unrelated program with this program (or its
  810. derivative) on a volume of a storage or distribution medium does not bring
  811. the other program under the scope of these terms.
  812.  
  813.   3. You may copy and distribute this program (or a portion or derivative
  814. of it, under Paragraph 2) in object code or executable form under the terms
  815. of Paragraphs 1 and 2 above provided that you also do one of the following:
  816.  
  817.     a) accompany it with the complete corresponding machine-readable
  818.     source code, which must be distributed under the terms of
  819.     Paragraphs 1 and 2 above; or,
  820.  
  821.     b) accompany it with a written offer, valid for at least three
  822.     years, to give any third party free (except for a nominal
  823.     shipping charge) a complete machine-readable copy of the
  824.     corresponding source code, to be distributed under the terms of
  825.     Paragraphs 1 and 2 above; or,
  826.  
  827.     c) accompany it with the information you received as to where the
  828.     corresponding source code may be obtained.  (This alternative is
  829.     allowed only for noncommercial distribution and only if you
  830.     received the program in object code or executable form alone.)
  831.  
  832. For an executable file, complete source code means all the source code for
  833. all modules it contains; but, as a special exception, it need not include
  834. source code for modules which are standard libraries that accompany the
  835. operating system on which the executable file runs.
  836.  
  837.   4. You may not copy, sublicense, distribute or transfer this program
  838. except as expressly provided under this License Agreement.  Any attempt
  839. otherwise to copy, sublicense, distribute or transfer this program is void and
  840. your rights to use the program under this License agreement shall be
  841. automatically terminated.  However, parties who have received computer
  842. software programs from you with this License Agreement will not have
  843. their licenses terminated so long as such parties remain in full compliance.
  844.  
  845.   5. If you wish to incorporate parts of this program into other free
  846. programs whose distribution conditions are different, write to the Free
  847. Software Foundation at 675 Mass Ave, Cambridge, MA 02139.  We have not yet
  848. worked out a simple rule that can be stated here, but we will often permit
  849. this.  We will be guided by the two goals of preserving the free status of
  850. all derivatives of our free software and of promoting the sharing and reuse of
  851. software.
  852.  
  853.  
  854. In other words, you are welcome to use, share and improve this program.
  855. You are forbidden to forbid anyone else to use, share and improve
  856. what you give them.   Help stamp out software-hoarding!  */
  857.  
  858. /* This is the parser code that is written into each bison parser
  859.   when the %semantic_parser declaration is not specified in the grammar.
  860.   It was written by Richard Stallman by simplifying the hairy parser
  861.   used when %semantic_parser is specified.  */
  862.  
  863. /* Note: there must be only one dollar sign in this file.
  864.    It is replaced by the list of actions, each action
  865.    as one case of the switch.  */
  866.  
  867. #ifdef AMIGA
  868.  
  869. #define bzero(b, length) memset((b),'\0',(length))
  870. #define bcopy(b1, b2, length) memcpy((b1),(b2),(length))
  871. #define bcmp(b1, b2, length)  memcmp((b1),(b2),(length))
  872.  
  873. void
  874. memory_full ()
  875. {
  876.   printf ("Memory exhausted.\n");
  877.   exit(1);
  878. }
  879.  
  880.  
  881. char *
  882. bison_xmalloc (size)
  883.      int size;
  884. {
  885.   extern char *malloc ();
  886.   register char *ptr = malloc (size);
  887.   if (ptr != 0) return (ptr);
  888.   memory_full ();
  889.   /*NOTREACHED*/
  890. }
  891.  
  892. char *
  893. xrealloc (old, size)
  894.      char *old;
  895.      int size;
  896. {
  897.   extern char *realloc ();
  898.   register char *ptr = realloc (old, size);
  899.   if (ptr != 0) return (ptr);
  900.   memory_full ();
  901.   /*NOTREACHED*/
  902. }
  903.  
  904. char *
  905. xcalloc (number, size)
  906.      int number, size;
  907. {
  908.   extern char *malloc ();
  909.   register int total = number * size;
  910.   register char *ptr = malloc (total);
  911.   if (ptr != 0)
  912.     {
  913.       if (total > 100)
  914.         bzero (ptr, total);
  915.       else {
  916.         /* It's not too long, so loop, zeroing by longs.
  917.            It must be safe because malloc values are always well aligned.  */
  918.         register long *zp = (long *) ptr;
  919.         register long *zl = (long *) (ptr + total - 4);
  920.         register int i = total - 4;
  921.         while (zp < zl)
  922.           *zp++ = 0;
  923.         if (i < 0)
  924.           i = 0;
  925.         while (i < total)
  926.           ptr[i++] = 0;
  927.       }
  928.       return ptr;
  929.     }
  930.   memory_full ();
  931.   /*NOTREACHED*/
  932. }
  933.  
  934. /*
  935.         alloca -- (mostly) portable public-domain implementation -- D A Gwyn
  936.  
  937.         last edit:      86/05/30        rms
  938.            include config.h, since on VMS it renames some symbols.
  939.            Use bison_xmalloc instead of malloc.
  940.  
  941.         This implementation of the PWB library alloca() function,
  942.         which is used to allocate space off the run-time stack so
  943.         that it is automatically reclaimed upon procedure exit,
  944.         was inspired by discussions with J. Q. Johnson of Cornell.
  945.  
  946.         It should work under any C implementation that uses an
  947.         actual procedure stack (as opposed to a linked list of
  948.         frames).  There are some preprocessor constants that can
  949.         be defined when compiling for your specific system, for
  950.         improved efficiency; however, the defaults should be okay.
  951.  
  952.         The general concept of this implementation is to keep
  953.         track of all alloca()-allocated blocks, and reclaim any
  954.         that are found to be deeper in the stack than the current
  955.         invocation.  This heuristic does not reclaim storage as
  956.         soon as it becomes invalid, but it will do so eventually.
  957.  
  958.         As a special case, alloca(0) reclaims storage without
  959.         allocating any.  It is a good idea to use alloca(0) in
  960.         your main control loop, etc. to force garbage collection.
  961. */
  962.  
  963. typedef char    *pointer;               /* generic pointer type */
  964.  
  965. extern void     free();
  966. extern pointer  bison_xmalloc();
  967.  
  968. /*
  969.         Define STACK_DIRECTION if you know the direction of stack
  970.         growth for your system; otherwise it will be automatically
  971.         deduced at run-time.
  972.  
  973.         STACK_DIRECTION > 0 => grows toward higher addresses
  974.         STACK_DIRECTION < 0 => grows toward lower addresses
  975.         STACK_DIRECTION = 0 => direction of growth unknown
  976. */
  977.  
  978. #define STACK_DIRECTION -1
  979.  
  980. #define STACK_DIR       STACK_DIRECTION /* known at compile-time */
  981.  
  982. /*
  983.         An "alloca header" is used to:
  984.         (a) chain together all alloca()ed blocks;
  985.         (b) keep track of stack depth.
  986.  
  987.         It is very important that sizeof(header) agree with malloc()
  988.         alignment chunk size.  The following default should work okay.
  989. */
  990.  
  991. #ifndef ALIGN_SIZE
  992. #define ALIGN_SIZE      sizeof(double)
  993. #endif
  994.  
  995. typedef union hdr
  996. {
  997.   char  align[ALIGN_SIZE];      /* to force sizeof(header) */
  998.   struct
  999.     {
  1000.       union hdr *next;          /* for chaining headers */
  1001.       char *deep;               /* for stack depth measure */
  1002.     } h;
  1003. } header;
  1004.  
  1005. /*
  1006.         alloca( size ) returns a pointer to at least `size' bytes of
  1007.         storage which will be automatically reclaimed upon exit from
  1008.         the procedure that called alloca().  Originally, this space
  1009.         was supposed to be taken from the current stack frame of the
  1010.         caller, but that method cannot be made to work for some
  1011.         implementations of C, for example under Gould's UTX/32.
  1012. */
  1013.  
  1014. static header *last_alloca_header = NULL; /* -> last alloca header */
  1015.  
  1016. pointer
  1017. alloca (size)                   /* returns pointer to storage */
  1018.      unsigned   size;           /* # bytes to allocate */
  1019. {
  1020.   auto char     probe;          /* probes stack depth: */
  1021.   register char *depth = &probe;
  1022.  
  1023.                                 /* Reclaim garbage, defined as all alloca()ed storage that
  1024.                                    was allocated from deeper in the stack than currently. */
  1025.  
  1026.   {
  1027.     register header     *hp;    /* traverses linked list */
  1028.  
  1029.     for (hp = last_alloca_header; hp != NULL;)
  1030.       if (STACK_DIR > 0 && hp->h.deep > depth
  1031.           || STACK_DIR < 0 && hp->h.deep < depth)
  1032.         {
  1033.           register header       *np = hp->h.next;
  1034.  
  1035.           free ((pointer) hp);  /* collect garbage */
  1036.  
  1037.           hp = np;              /* -> next header */
  1038.         }
  1039.       else
  1040.         break;                  /* rest are not deeper */
  1041.  
  1042.     last_alloca_header = hp;    /* -> last valid storage */
  1043.   }
  1044.  
  1045.   if (size == 0)
  1046.     return NULL;                /* no allocation required */
  1047.  
  1048.   /* Allocate combined header + user data storage. */
  1049.  
  1050.   {
  1051.     register pointer    new = bison_xmalloc (sizeof (header) + size);
  1052.     /* address of header */
  1053.  
  1054.     ((header *)new)->h.next = last_alloca_header;
  1055.     ((header *)new)->h.deep = depth;
  1056.  
  1057.     last_alloca_header = (header *)new;
  1058.  
  1059.     /* User storage begins just after header. */
  1060.  
  1061.     return (pointer)((char *)new + sizeof(header));
  1062.   }
  1063. }
  1064. #endif
  1065.  
  1066.  
  1067.  
  1068. #define yyerrok         (yyerrstatus = 0)
  1069. #define yyclearin       (yychar = YYEMPTY)
  1070. #define YYEMPTY         -2
  1071. #define YYEOF           0
  1072. #define YYFAIL          goto yyerrlab;
  1073.  
  1074. #define YYTERROR        1
  1075.  
  1076. #ifndef YYIMPURE
  1077. #define YYLEX           yylex()
  1078. #endif
  1079.  
  1080. #ifndef YYPURE
  1081. #define YYLEX           yylex(&yylval, &yylloc)
  1082. #endif
  1083.  
  1084. /* If nonreentrant, generate the variables here */
  1085.  
  1086. #ifndef YYIMPURE
  1087.  
  1088. int     yychar;                 /*  the lookahead symbol                */
  1089. YYSTYPE yylval;                 /*  the semantic value of the           */
  1090.                                 /*  lookahead symbol                    */
  1091.  
  1092. YYLTYPE yylloc;                 /*  location data for the lookahead     */
  1093.                                 /*  symbol                              */
  1094.  
  1095. int yynerr;                     /*  number of parse errors so far       */
  1096.  
  1097. #ifdef YYDEBUG
  1098. int yydebug = 0;                /*  nonzero means print parse trace     */
  1099. #endif
  1100.  
  1101. #endif  /* YYIMPURE */
  1102.  
  1103.  
  1104. /*  YYMAXDEPTH indicates the initial size of the parser's stacks        */
  1105.  
  1106. #ifndef YYMAXDEPTH
  1107. #define YYMAXDEPTH 200
  1108. #endif
  1109.  
  1110. /*  YYMAXLIMIT is the maximum size the stacks can grow to
  1111.     (effective only if the built-in stack extension method is used).  */
  1112.  
  1113. #ifndef YYMAXLIMIT
  1114. #define YYMAXLIMIT 10000
  1115. #endif
  1116.  
  1117.  
  1118. #line 165 "bison.simple"
  1119. int
  1120. yyparse()
  1121. {
  1122.   register int yystate;
  1123.   register int yyn;
  1124.   register short *yyssp;
  1125.   register YYSTYPE *yyvsp;
  1126.   YYLTYPE *yylsp;
  1127.   int yyerrstatus;      /*  number of tokens to shift before error messages enabled */
  1128.   int yychar1;          /*  lookahead token as an internal (translated) token number */
  1129.  
  1130.   short yyssa[YYMAXDEPTH];      /*  the state stack                     */
  1131.   YYSTYPE yyvsa[YYMAXDEPTH];    /*  the semantic value stack            */
  1132.   YYLTYPE yylsa[YYMAXDEPTH];    /*  the location stack                  */
  1133.  
  1134.   short *yyss = yyssa;          /*  refer to the stacks thru separate pointers */
  1135.   YYSTYPE *yyvs = yyvsa;        /*  to allow yyoverflow to reallocate them elsewhere */
  1136.   YYLTYPE *yyls = yylsa;
  1137.  
  1138.   int yymaxdepth = YYMAXDEPTH;
  1139.  
  1140. #ifndef YYPURE
  1141.   int yychar;
  1142.   YYSTYPE yylval;
  1143.   YYLTYPE yylloc;
  1144. #endif
  1145.  
  1146. #ifdef YYDEBUG
  1147.   extern int yydebug;
  1148. #endif
  1149.  
  1150.  
  1151.   YYSTYPE yyval;                /*  the variable used to return         */
  1152.                                 /*  semantic values from the action     */
  1153.                                 /*  routines                            */
  1154.  
  1155.   int yylen;
  1156.  
  1157. #ifdef YYDEBUG
  1158.   if (yydebug)
  1159.     fprintf(stderr, "Starting parse\n");
  1160. #endif
  1161.  
  1162.   yystate = 0;
  1163.   yyerrstatus = 0;
  1164.   yynerr = 0;
  1165.   yychar = YYEMPTY;             /* Cause a token to be read.  */
  1166.  
  1167.   /* Initialize stack pointers.
  1168.      Waste one element of value and location stack
  1169.      so that they stay on the same level as the state stack.  */
  1170.  
  1171.   yyssp = yyss - 1;
  1172.   yyvsp = yyvs;
  1173.   yylsp = yyls;
  1174.  
  1175. /* Push a new state, which is found in  yystate  .  */
  1176. /* In all cases, when you get here, the value and location stacks
  1177.    have just been pushed. so pushing a state here evens the stacks.  */
  1178. yynewstate:
  1179.  
  1180.   *++yyssp = yystate;
  1181.  
  1182.   if (yyssp >= yyss + yymaxdepth - 1)
  1183.     {
  1184.       /* Give user a chance to reallocate the stack */
  1185.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  1186.       YYSTYPE *yyvs1 = yyvs;
  1187.       YYLTYPE *yyls1 = yyls;
  1188.       short *yyss1 = yyss;
  1189.  
  1190.       /* Get the current used size of the three stacks, in elements.  */
  1191.       int size = yyssp - yyss + 1;
  1192.  
  1193. #ifdef yyoverflow
  1194.       /* Each stack pointer address is followed by the size of
  1195.          the data in use in that stack, in bytes.  */
  1196.       yyoverflow("parser stack overflow",
  1197.                  &yyss1, size * sizeof (*yyssp),
  1198.                  &yyvs1, size * sizeof (*yyvsp),
  1199.                  &yyls1, size * sizeof (*yylsp),
  1200.                  &yymaxdepth);
  1201.  
  1202.       yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
  1203. #else /* no yyoverflow */
  1204.       /* Extend the stack our own way.  */
  1205.       if (yymaxdepth >= YYMAXLIMIT)
  1206.         yyerror("parser stack overflow");
  1207.       yymaxdepth *= 2;
  1208.       if (yymaxdepth > YYMAXLIMIT)
  1209.         yymaxdepth = YYMAXLIMIT;
  1210.       yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
  1211.       bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  1212.       yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
  1213.       bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  1214. #ifdef YYLSP_NEEDED
  1215.       yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
  1216.       bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  1217. #endif
  1218. #endif /* no yyoverflow */
  1219.  
  1220.       yyssp = yyss + size - 1;
  1221.       yyvsp = yyvs + size - 1;
  1222. #ifdef YYLSP_NEEDED
  1223.       yylsp = yyls + size - 1;
  1224. #endif
  1225.  
  1226. #ifdef YYDEBUG
  1227.       if (yydebug)
  1228.         fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
  1229. #endif
  1230.  
  1231.       if (yyssp >= yyss + yymaxdepth - 1)
  1232.         YYERROR;
  1233.     }
  1234.  
  1235. #ifdef YYDEBUG
  1236.   if (yydebug)
  1237.     fprintf(stderr, "Entering state %d\n", yystate);
  1238. #endif
  1239.  
  1240. /* Do appropriate processing given the current state.  */
  1241. /* Read a lookahead token if we need one and don't already have one.  */
  1242. yyresume:
  1243.  
  1244.   /* First try to decide what to do without reference to lookahead token.  */
  1245.  
  1246.   yyn = yypact[yystate];
  1247.   if (yyn == YYFLAG)
  1248.     goto yydefault;
  1249.  
  1250.   /* Not known => get a lookahead token if don't already have one.  */
  1251.  
  1252.   /* yychar is either YYEMPTY or YYEOF
  1253.      or a valid token in external form.  */
  1254.  
  1255.   if (yychar == YYEMPTY)
  1256.     {
  1257. #ifdef YYDEBUG
  1258.       if (yydebug)
  1259.         fprintf(stderr, "Reading a token: ");
  1260. #endif
  1261.       yychar = YYLEX;
  1262.     }
  1263.  
  1264.   /* Convert token to internal form (in yychar1) for indexing tables with */
  1265.  
  1266.   if (yychar <= 0)              /* This means end of input. */
  1267.     {
  1268.       yychar1 = 0;
  1269.       yychar = YYEOF;           /* Don't call YYLEX any more */
  1270.  
  1271. #ifdef YYDEBUG
  1272.       if (yydebug)
  1273.         fprintf(stderr, "Now at end of input.\n");
  1274. #endif
  1275.     }
  1276.   else
  1277.     {
  1278.       yychar1 = YYTRANSLATE(yychar);
  1279.  
  1280. #ifdef YYDEBUG
  1281.       if (yydebug)
  1282.         fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]);
  1283. #endif
  1284.     }
  1285.  
  1286.   yyn += yychar1;
  1287.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1288.     goto yydefault;
  1289.  
  1290.   yyn = yytable[yyn];
  1291.  
  1292.   /* yyn is what to do for this token type in this state.
  1293.      Negative => reduce, -yyn is rule number.
  1294.      Positive => shift, yyn is new state.
  1295.        New state is final state => don't bother to shift,
  1296.        just return success.
  1297.      0, or most negative number => error.  */
  1298.  
  1299.   if (yyn < 0)
  1300.     {
  1301.       if (yyn == YYFLAG)
  1302.         goto yyerrlab;
  1303.       yyn = -yyn;
  1304.       goto yyreduce;
  1305.     }
  1306.   else if (yyn == 0)
  1307.     goto yyerrlab;
  1308.  
  1309.   if (yyn == YYFINAL)
  1310.     YYACCEPT;
  1311.  
  1312.   /* Shift the lookahead token.  */
  1313.  
  1314. #ifdef YYDEBUG
  1315.   if (yydebug)
  1316.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1317. #endif
  1318.  
  1319.   /* Discard the token being shifted unless it is eof.  */
  1320.   if (yychar != YYEOF)
  1321.     yychar = YYEMPTY;
  1322.  
  1323.   *++yyvsp = yylval;
  1324. #ifdef YYLSP_NEEDED
  1325.   *++yylsp = yylloc;
  1326. #endif
  1327.  
  1328.   /* count tokens shifted since error; after three, turn off error status.  */
  1329.   if (yyerrstatus) yyerrstatus--;
  1330.  
  1331.   yystate = yyn;
  1332.   goto yynewstate;
  1333.  
  1334. /* Do the default action for the current state.  */
  1335. yydefault:
  1336.  
  1337.   yyn = yydefact[yystate];
  1338.   if (yyn == 0)
  1339.     goto yyerrlab;
  1340.  
  1341. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1342. yyreduce:
  1343.   yylen = yyr2[yyn];
  1344.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1345.  
  1346. #ifdef YYDEBUG
  1347.   if (yydebug)
  1348.     {
  1349.       if (yylen == 1)
  1350.         fprintf (stderr, "Reducing 1 value via line %d, ",
  1351.                  yyrline[yyn]);
  1352.       else
  1353.         fprintf (stderr, "Reducing %d values via line %d, ",
  1354.                  yylen, yyrline[yyn]);
  1355.     }
  1356. #endif
  1357.  
  1358.  
  1359.   switch (yyn) {
  1360.  
  1361. case 1:
  1362. #line 154 "gram.y"
  1363. { let(yyvsp[-2].rval.left.vp, yyvsp[0].enode); ;
  1364.     break;}
  1365. case 2:
  1366. #line 156 "gram.y"
  1367. { slet(yyvsp[-2].rval.left.vp, yyvsp[0].enode, 0); ;
  1368.     break;}
  1369. case 3:
  1370. #line 158 "gram.y"
  1371. { slet(yyvsp[-2].rval.left.vp, yyvsp[0].enode, -1); ;
  1372.     break;}
  1373. case 4:
  1374. #line 160 "gram.y"
  1375. { slet(yyvsp[-2].rval.left.vp, yyvsp[0].enode, 1); ;
  1376.     break;}
  1377. case 5:
  1378. #line 162 "gram.y"
  1379. { doformat(yyvsp[-4].ival,yyvsp[-2].ival,yyvsp[-1].ival,yyvsp[0].ival); ;
  1380.     break;}
  1381. case 6:
  1382. #line 164 "gram.y"
  1383. { doformat(yyvsp[-2].ival,yyvsp[-2].ival,yyvsp[-1].ival,yyvsp[0].ival); ;
  1384.     break;}
  1385. case 7:
  1386. #line 165 "gram.y"
  1387. {  /* This tmp hack is because readfile
  1388.                     * recurses back through yyparse. */
  1389.                   char *tmp;
  1390.                   tmp = yyvsp[0].sval;
  1391.                   readfile (tmp, 1);
  1392.                   xfree(tmp);
  1393.                 ;
  1394.     break;}
  1395. case 8:
  1396. #line 172 "gram.y"
  1397. {
  1398.                   char *tmp;
  1399.                   tmp = yyvsp[0].sval;
  1400.                   readfile (tmp, 0);
  1401.                   xfree(tmp);
  1402.                 ;
  1403.     break;}
  1404. case 9:
  1405. #line 179 "gram.y"
  1406. { if (mdir) xfree(mdir); mdir = yyvsp[0].sval; ;
  1407.     break;}
  1408. case 10:
  1409. #line 181 "gram.y"
  1410. { (void) writefile(yyvsp[-1].sval, (yyvsp[0].rval.left.vp)->row, 
  1411.                  (yyvsp[0].rval.left.vp)->col, (yyvsp[0].rval.right.vp)->row,
  1412.                  (yyvsp[0].rval.right.vp)->col);
  1413.                  xfree(yyvsp[-1].sval); ;
  1414.     break;}
  1415. case 11:
  1416. #line 186 "gram.y"
  1417. { (void) writefile (yyvsp[0].sval, 0, 0, maxrow, maxcol);
  1418.                  xfree(yyvsp[0].sval); ;
  1419.     break;}
  1420. case 12:
  1421. #line 188 "gram.y"
  1422. { (void) printfile(yyvsp[-1].sval, (yyvsp[0].rval.left.vp)->row, 
  1423.              (yyvsp[0].rval.left.vp)->col, (yyvsp[0].rval.right.vp)->row,
  1424.              (yyvsp[0].rval.right.vp)->col);
  1425.              xfree(yyvsp[-1].sval); ;
  1426.     break;}
  1427. case 13:
  1428. #line 192 "gram.y"
  1429. { (void) printfile (yyvsp[0].sval, 0, 0, maxrow, maxcol);
  1430.              xfree(yyvsp[0].sval); ;
  1431.     break;}
  1432. case 14:
  1433. #line 194 "gram.y"
  1434. { (void) tblprintfile(yyvsp[-1].sval, (yyvsp[0].rval.left.vp)->row, 
  1435.              (yyvsp[0].rval.left.vp)->col, (yyvsp[0].rval.right.vp)->row,
  1436.              (yyvsp[0].rval.right.vp)->col);
  1437.              xfree(yyvsp[-1].sval); ;
  1438.     break;}
  1439. case 15:
  1440. #line 198 "gram.y"
  1441. { (void)tblprintfile (yyvsp[0].sval, 0, 0, maxrow, maxcol);
  1442.              xfree(yyvsp[0].sval); ;
  1443.     break;}
  1444. case 16:
  1445. #line 201 "gram.y"
  1446. { showcol( yyvsp[-2].ival, yyvsp[0].ival); ;
  1447.     break;}
  1448. case 17:
  1449. #line 203 "gram.y"
  1450. { showrow( yyvsp[-2].ival, yyvsp[0].ival); ;
  1451.     break;}
  1452. case 18:
  1453. #line 205 "gram.y"
  1454. { hide_col( yyvsp[0].ival ); ;
  1455.     break;}
  1456. case 19:
  1457. #line 207 "gram.y"
  1458. { hide_row( yyvsp[0].ival ); ;
  1459.     break;}
  1460. case 20:
  1461. #line 209 "gram.y"
  1462. { copy(yyvsp[-1].rval.left.vp,yyvsp[-1].rval.right.vp,
  1463.                     yyvsp[0].rval.left.vp,yyvsp[0].rval.right.vp); ;
  1464.     break;}
  1465. case 21:
  1466. #line 212 "gram.y"
  1467. { eraser(lookat(showsr, showsc),
  1468.                         lookat(currow, curcol)); ;
  1469.     break;}
  1470. case 22:
  1471. #line 215 "gram.y"
  1472. { eraser(yyvsp[0].rval.left.vp, yyvsp[0].rval.right.vp); ;
  1473.     break;}
  1474. case 23:
  1475. #line 216 "gram.y"
  1476. { valueize_area(showsr, showsc, currow, curcol);
  1477.                  modflg++; ;
  1478.     break;}
  1479. case 24:
  1480. #line 218 "gram.y"
  1481. { valueize_area((yyvsp[0].rval.left.vp)->row,
  1482.                 (yyvsp[0].rval.left.vp)->col,
  1483.                 (yyvsp[0].rval.right.vp)->row,
  1484.                 (yyvsp[0].rval.right.vp)->col); modflg++; ;
  1485.     break;}
  1486. case 25:
  1487. #line 222 "gram.y"
  1488. { fill(lookat(showsr, showsc),
  1489.                       lookat(currow, curcol), yyvsp[-1].fval, yyvsp[0].fval); ;
  1490.     break;}
  1491. case 26:
  1492. #line 225 "gram.y"
  1493. { fill(yyvsp[-2].rval.left.vp, yyvsp[-2].rval.right.vp, yyvsp[-1].fval, yyvsp[0].fval); ;
  1494.     break;}
  1495. case 27:
  1496. #line 226 "gram.y"
  1497. {moveto(yyvsp[0].rval.left.vp->row, yyvsp[0].rval.left.vp->col);;
  1498.     break;}
  1499. case 28:
  1500. #line 227 "gram.y"
  1501. {num_search(yyvsp[0].fval);;
  1502.     break;}
  1503. case 29:
  1504. #line 228 "gram.y"
  1505. {str_search(yyvsp[0].sval);;
  1506.     break;}
  1507. case 30:
  1508. #line 229 "gram.y"
  1509. {go_last();;
  1510.     break;}
  1511. case 31:
  1512. #line 230 "gram.y"
  1513. { struct ent_ptr arg1, arg2;
  1514.                     arg1.vp = lookat(showsr, showsc);
  1515.                     arg1.vf = 0;
  1516.                     arg2.vp = lookat(currow, curcol);
  1517.                     arg2.vf = 0;
  1518.                     add_range(yyvsp[0].sval, arg1, arg2, 1); ;
  1519.     break;}
  1520. case 32:
  1521. #line 237 "gram.y"
  1522. { add_range(yyvsp[-1].sval, yyvsp[0].rval.left, yyvsp[0].rval.right, 1); ;
  1523.     break;}
  1524. case 33:
  1525. #line 238 "gram.y"
  1526. { add_range(yyvsp[-1].sval, yyvsp[0].ent, yyvsp[0].ent, 0); ;
  1527.     break;}
  1528. case 34:
  1529. #line 239 "gram.y"
  1530. { del_range(yyvsp[0].rval.left.vp, yyvsp[0].rval.right.vp); ;
  1531.     break;}
  1532. case 38:
  1533. #line 244 "gram.y"
  1534. { yyval.enode = new_var('v', yyvsp[0].ent); ;
  1535.     break;}
  1536. case 39:
  1537. #line 245 "gram.y"
  1538. { yyval.enode = new ('f', ENULL, yyvsp[0].enode); ;
  1539.     break;}
  1540. case 40:
  1541. #line 247 "gram.y"
  1542. { yyval.enode = new_range(REDUCE | '+', yyvsp[-1].rval); ;
  1543.     break;}
  1544. case 41:
  1545. #line 249 "gram.y"
  1546. { yyval.enode = new_range (REDUCE | '*', yyvsp[-1].rval); ;
  1547.     break;}
  1548. case 42:
  1549. #line 251 "gram.y"
  1550. { yyval.enode = new_range (REDUCE | 'a', yyvsp[-1].rval); ;
  1551.     break;}
  1552. case 43:
  1553. #line 253 "gram.y"
  1554. { yyval.enode = new_range (REDUCE | 's', yyvsp[-1].rval); ;
  1555.     break;}
  1556. case 44:
  1557. #line 255 "gram.y"
  1558. { yyval.enode = new_range (REDUCE | 'c', yyvsp[-1].rval); ;
  1559.     break;}
  1560. case 45:
  1561. #line 257 "gram.y"
  1562. { yyval.enode = new_range (REDUCE | MAX, yyvsp[-1].rval); ;
  1563.     break;}
  1564. case 46:
  1565. #line 259 "gram.y"
  1566. { yyval.enode = new(LMAX, yyvsp[-1].enode, yyvsp[-3].enode); ;
  1567.     break;}
  1568. case 47:
  1569. #line 261 "gram.y"
  1570. { yyval.enode = new_range (REDUCE | MIN, yyvsp[-1].rval); ;
  1571.     break;}
  1572. case 48:
  1573. #line 263 "gram.y"
  1574. { yyval.enode = new(LMIN, yyvsp[-1].enode, yyvsp[-3].enode); ;
  1575.     break;}
  1576. case 49:
  1577. #line 264 "gram.y"
  1578. { yyval.enode = new(ABS, ENULL, yyvsp[-1].enode); ;
  1579.     break;}
  1580. case 50:
  1581. #line 265 "gram.y"
  1582. { yyval.enode = new(ACOS, ENULL, yyvsp[-1].enode); ;
  1583.     break;}
  1584. case 51:
  1585. #line 266 "gram.y"
  1586. { yyval.enode = new(ASIN, ENULL, yyvsp[-1].enode); ;
  1587.     break;}
  1588. case 52:
  1589. #line 267 "gram.y"
  1590. { yyval.enode = new(ATAN, ENULL, yyvsp[-1].enode); ;
  1591.     break;}
  1592. case 53:
  1593. #line 268 "gram.y"
  1594. { yyval.enode = new(ATAN2, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1595.     break;}
  1596. case 54:
  1597. #line 269 "gram.y"
  1598. { yyval.enode = new(CEIL, ENULL, yyvsp[-1].enode); ;
  1599.     break;}
  1600. case 55:
  1601. #line 270 "gram.y"
  1602. { yyval.enode = new(COS, ENULL, yyvsp[-1].enode); ;
  1603.     break;}
  1604. case 56:
  1605. #line 271 "gram.y"
  1606. { yyval.enode = new(EXP, ENULL, yyvsp[-1].enode); ;
  1607.     break;}
  1608. case 57:
  1609. #line 272 "gram.y"
  1610. { yyval.enode = new(FABS, ENULL, yyvsp[-1].enode); ;
  1611.     break;}
  1612. case 58:
  1613. #line 273 "gram.y"
  1614. { yyval.enode = new(FLOOR, ENULL, yyvsp[-1].enode); ;
  1615.     break;}
  1616. case 59:
  1617. #line 274 "gram.y"
  1618. { yyval.enode = new(HYPOT, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1619.     break;}
  1620. case 60:
  1621. #line 275 "gram.y"
  1622. { yyval.enode = new(LOG, ENULL, yyvsp[-1].enode); ;
  1623.     break;}
  1624. case 61:
  1625. #line 276 "gram.y"
  1626. { yyval.enode = new(LOG10, ENULL, yyvsp[-1].enode); ;
  1627.     break;}
  1628. case 62:
  1629. #line 277 "gram.y"
  1630. { yyval.enode = new(POW, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1631.     break;}
  1632. case 63:
  1633. #line 278 "gram.y"
  1634. { yyval.enode = new(SIN, ENULL, yyvsp[-1].enode); ;
  1635.     break;}
  1636. case 64:
  1637. #line 279 "gram.y"
  1638. { yyval.enode = new(SQRT, ENULL, yyvsp[-1].enode); ;
  1639.     break;}
  1640. case 65:
  1641. #line 280 "gram.y"
  1642. { yyval.enode = new(TAN, ENULL, yyvsp[-1].enode); ;
  1643.     break;}
  1644. case 66:
  1645. #line 281 "gram.y"
  1646. { yyval.enode = new(DTR, ENULL, yyvsp[-1].enode); ;
  1647.     break;}
  1648. case 67:
  1649. #line 282 "gram.y"
  1650. { yyval.enode = new(RTD, ENULL, yyvsp[-1].enode); ;
  1651.     break;}
  1652. case 68:
  1653. #line 283 "gram.y"
  1654. { yyval.enode = new(RND, ENULL, yyvsp[-1].enode); ;
  1655.     break;}
  1656. case 69:
  1657. #line 284 "gram.y"
  1658. { yyval.enode = new(ROUND, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1659.     break;}
  1660. case 70:
  1661. #line 285 "gram.y"
  1662. { yyval.enode = new(IF,  yyvsp[-5].enode,new(',',yyvsp[-3].enode,yyvsp[-1].enode)); ;
  1663.     break;}
  1664. case 71:
  1665. #line 287 "gram.y"
  1666. { yyval.enode = new(PV,  yyvsp[-5].enode,new(':',yyvsp[-3].enode,yyvsp[-1].enode)); ;
  1667.     break;}
  1668. case 72:
  1669. #line 288 "gram.y"
  1670. { yyval.enode = new(FV,  yyvsp[-5].enode,new(':',yyvsp[-3].enode,yyvsp[-1].enode)); ;
  1671.     break;}
  1672. case 73:
  1673. #line 289 "gram.y"
  1674. { yyval.enode = new(PMT, yyvsp[-5].enode,new(':',yyvsp[-3].enode,yyvsp[-1].enode)); ;
  1675.     break;}
  1676. case 74:
  1677. #line 291 "gram.y"
  1678. { yyval.enode = new(HOUR,ENULL, yyvsp[-1].enode); ;
  1679.     break;}
  1680. case 75:
  1681. #line 292 "gram.y"
  1682. { yyval.enode = new(MINUTE,ENULL, yyvsp[-1].enode); ;
  1683.     break;}
  1684. case 76:
  1685. #line 293 "gram.y"
  1686. { yyval.enode = new(SECOND,ENULL, yyvsp[-1].enode); ;
  1687.     break;}
  1688. case 77:
  1689. #line 294 "gram.y"
  1690. { yyval.enode = new(MONTH,ENULL,yyvsp[-1].enode); ;
  1691.     break;}
  1692. case 78:
  1693. #line 295 "gram.y"
  1694. { yyval.enode = new(DAY, ENULL, yyvsp[-1].enode); ;
  1695.     break;}
  1696. case 79:
  1697. #line 296 "gram.y"
  1698. { yyval.enode = new(YEAR, ENULL, yyvsp[-1].enode); ;
  1699.     break;}
  1700. case 80:
  1701. #line 297 "gram.y"
  1702. { yyval.enode = new(NOW, ENULL, ENULL);;
  1703.     break;}
  1704. case 81:
  1705. #line 299 "gram.y"
  1706. { yyval.enode = new(DTS, yyvsp[-5].enode, new(',', yyvsp[-3].enode, yyvsp[-1].enode));;
  1707.     break;}
  1708. case 82:
  1709. #line 301 "gram.y"
  1710. { yyval.enode = new(TTS, yyvsp[-5].enode, new(',', yyvsp[-3].enode, yyvsp[-1].enode));;
  1711.     break;}
  1712. case 83:
  1713. #line 302 "gram.y"
  1714. { yyval.enode = new(STON, ENULL, yyvsp[-1].enode); ;
  1715.     break;}
  1716. case 84:
  1717. #line 303 "gram.y"
  1718. { yyval.enode = new (EQS, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1719.     break;}
  1720. case 85:
  1721. #line 304 "gram.y"
  1722. { yyval.enode = new(DATE, ENULL, yyvsp[-1].enode); ;
  1723.     break;}
  1724. case 86:
  1725. #line 305 "gram.y"
  1726. { yyval.enode = new(FMT, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1727.     break;}
  1728. case 87:
  1729. #line 307 "gram.y"
  1730. { yyval.enode = new(INDEX, yyvsp[-3].enode, new_range(REDUCE | INDEX, yyvsp[-1].rval)); ;
  1731.     break;}
  1732. case 88:
  1733. #line 309 "gram.y"
  1734. { yyval.enode = new(LOOKUP, yyvsp[-3].enode, new_range(REDUCE | LOOKUP, yyvsp[-1].rval)); ;
  1735.     break;}
  1736. case 89:
  1737. #line 311 "gram.y"
  1738. { yyval.enode = new(HLOOKUP, new(',', yyvsp[-5].enode, yyvsp[-1].enode),
  1739.             new_range(REDUCE | HLOOKUP, yyvsp[-3].rval)); ;
  1740.     break;}
  1741. case 90:
  1742. #line 314 "gram.y"
  1743. { yyval.enode = new(VLOOKUP, new(',', yyvsp[-5].enode, yyvsp[-1].enode),
  1744.             new_range(REDUCE | VLOOKUP, yyvsp[-3].rval)); ;
  1745.     break;}
  1746. case 91:
  1747. #line 317 "gram.y"
  1748. { yyval.enode = new(STINDEX, yyvsp[-3].enode, new_range(REDUCE | STINDEX, yyvsp[-1].rval)); ;
  1749.     break;}
  1750. case 92:
  1751. #line 318 "gram.y"
  1752. { yyval.enode = new(EXT, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1753.     break;}
  1754. case 93:
  1755. #line 319 "gram.y"
  1756. { yyval.enode = new(NVAL, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1757.     break;}
  1758. case 94:
  1759. #line 320 "gram.y"
  1760. { yyval.enode = new(SVAL, yyvsp[-3].enode, yyvsp[-1].enode); ;
  1761.     break;}
  1762. case 95:
  1763. #line 322 "gram.y"
  1764. { yyval.enode = new(SUBSTR, yyvsp[-5].enode, new(',', yyvsp[-3].enode, yyvsp[-1].enode)); ;
  1765.     break;}
  1766. case 96:
  1767. #line 323 "gram.y"
  1768. { yyval.enode = yyvsp[-1].enode; ;
  1769.     break;}
  1770. case 97:
  1771. #line 324 "gram.y"
  1772. { yyval.enode = yyvsp[0].enode; ;
  1773.     break;}
  1774. case 98:
  1775. #line 325 "gram.y"
  1776. { yyval.enode = new ('m', ENULL, yyvsp[0].enode); ;
  1777.     break;}
  1778. case 99:
  1779. #line 326 "gram.y"
  1780. { yyval.enode = new_const('k', (double) yyvsp[0].ival); ;
  1781.     break;}
  1782. case 100:
  1783. #line 327 "gram.y"
  1784. { yyval.enode = new_const('k', yyvsp[0].fval); ;
  1785.     break;}
  1786. case 101:
  1787. #line 328 "gram.y"
  1788. { yyval.enode = new_const('k', (double)3.14159265358979323846); ;
  1789.     break;}
  1790. case 102:
  1791. #line 329 "gram.y"
  1792. { yyval.enode = new_str(yyvsp[0].sval); ;
  1793.     break;}
  1794. case 103:
  1795. #line 330 "gram.y"
  1796. { yyval.enode = new ('~', ENULL, yyvsp[0].enode); ;
  1797.     break;}
  1798. case 104:
  1799. #line 331 "gram.y"
  1800. { yyval.enode = new ('~', ENULL, yyvsp[0].enode); ;
  1801.     break;}
  1802. case 105:
  1803. #line 334 "gram.y"
  1804. { yyval.enode = new ('+', yyvsp[-2].enode, yyvsp[0].enode); ;
  1805.     break;}
  1806. case 106:
  1807. #line 335 "gram.y"
  1808. { yyval.enode = new ('-', yyvsp[-2].enode, yyvsp[0].enode); ;
  1809.     break;}
  1810. case 107:
  1811. #line 336 "gram.y"
  1812. { yyval.enode = new ('*', yyvsp[-2].enode, yyvsp[0].enode); ;
  1813.     break;}
  1814. case 108:
  1815. #line 337 "gram.y"
  1816. { yyval.enode = new ('/', yyvsp[-2].enode, yyvsp[0].enode); ;
  1817.     break;}
  1818. case 109:
  1819. #line 338 "gram.y"
  1820. { yyval.enode = new ('%', yyvsp[-2].enode, yyvsp[0].enode); ;
  1821.     break;}
  1822. case 110:
  1823. #line 339 "gram.y"
  1824. { yyval.enode = new ('^', yyvsp[-2].enode, yyvsp[0].enode); ;
  1825.     break;}
  1826. case 112:
  1827. #line 341 "gram.y"
  1828. { yyval.enode = new ('?', yyvsp[-4].enode, new(':', yyvsp[-2].enode, yyvsp[0].enode)); ;
  1829.     break;}
  1830. case 113:
  1831. #line 342 "gram.y"
  1832. { yyval.enode = new ('<', yyvsp[-2].enode, yyvsp[0].enode); ;
  1833.     break;}
  1834. case 114:
  1835. #line 343 "gram.y"
  1836. { yyval.enode = new ('=', yyvsp[-2].enode, yyvsp[0].enode); ;
  1837.     break;}
  1838. case 115:
  1839. #line 344 "gram.y"
  1840. { yyval.enode = new ('>', yyvsp[-2].enode, yyvsp[0].enode); ;
  1841.     break;}
  1842. case 116:
  1843. #line 345 "gram.y"
  1844. { yyval.enode = new ('&', yyvsp[-2].enode, yyvsp[0].enode); ;
  1845.     break;}
  1846. case 117:
  1847. #line 346 "gram.y"
  1848. { yyval.enode = new ('|', yyvsp[-2].enode, yyvsp[0].enode); ;
  1849.     break;}
  1850. case 118:
  1851. #line 347 "gram.y"
  1852. { yyval.enode = new ('~', ENULL, new ('>', yyvsp[-3].enode, yyvsp[0].enode)); ;
  1853.     break;}
  1854. case 119:
  1855. #line 348 "gram.y"
  1856. { yyval.enode = new ('~', ENULL, new ('=', yyvsp[-3].enode, yyvsp[0].enode)); ;
  1857.     break;}
  1858. case 120:
  1859. #line 349 "gram.y"
  1860. { yyval.enode = new ('~', ENULL, new ('<', yyvsp[-3].enode, yyvsp[0].enode)); ;
  1861.     break;}
  1862. case 121:
  1863. #line 350 "gram.y"
  1864. { yyval.enode = new ('#', yyvsp[-2].enode, yyvsp[0].enode); ;
  1865.     break;}
  1866. case 122:
  1867. #line 353 "gram.y"
  1868. { yyval.enode = new(ELIST, ENULL, yyvsp[0].enode); ;
  1869.     break;}
  1870. case 123:
  1871. #line 354 "gram.y"
  1872. { yyval.enode = new(ELIST, yyvsp[-2].enode, yyvsp[0].enode); ;
  1873.     break;}
  1874. case 124:
  1875. #line 357 "gram.y"
  1876. { yyval.rval.left = yyvsp[-2].ent; yyval.rval.right = yyvsp[0].ent; ;
  1877.     break;}
  1878. case 125:
  1879. #line 358 "gram.y"
  1880. { yyval.rval = yyvsp[0].rval; ;
  1881.     break;}
  1882. case 126:
  1883. #line 361 "gram.y"
  1884. { yyval.ent.vp = lookat(yyvsp[0].ival , yyvsp[-1].ival); yyval.ent.vf = 0;;
  1885.     break;}
  1886. case 127:
  1887. #line 362 "gram.y"
  1888. { yyval.ent.vp = lookat(yyvsp[0].ival , yyvsp[-1].ival);
  1889.                     yyval.ent.vf = FIX_COL;;
  1890.     break;}
  1891. case 128:
  1892. #line 364 "gram.y"
  1893. { yyval.ent.vp = lookat(yyvsp[0].ival , yyvsp[-2].ival);
  1894.                     yyval.ent.vf = FIX_ROW;;
  1895.     break;}
  1896. case 129:
  1897. #line 366 "gram.y"
  1898. { yyval.ent.vp = lookat(yyvsp[0].ival , yyvsp[-2].ival);
  1899.                     yyval.ent.vf = FIX_ROW | FIX_COL;;
  1900.     break;}
  1901. case 130:
  1902. #line 368 "gram.y"
  1903. { yyval.ent = yyvsp[0].rval.left; ;
  1904.     break;}
  1905. case 131:
  1906. #line 371 "gram.y"
  1907. { yyval.rval = yyvsp[0].rval; ;
  1908.     break;}
  1909. case 132:
  1910. #line 372 "gram.y"
  1911. { yyval.rval.left = yyvsp[0].ent; yyval.rval.right = yyvsp[0].ent; ;
  1912.     break;}
  1913. case 133:
  1914. #line 375 "gram.y"
  1915. { yyval.fval = (double) yyvsp[0].ival; ;
  1916.     break;}
  1917. case 134:
  1918. #line 376 "gram.y"
  1919. { yyval.fval = yyvsp[0].fval; ;
  1920.     break;}
  1921. case 135:
  1922. #line 377 "gram.y"
  1923. { yyval.fval = -yyvsp[0].fval; ;
  1924.     break;}
  1925. case 136:
  1926. #line 378 "gram.y"
  1927. { yyval.fval = yyvsp[0].fval; ;
  1928.     break;}
  1929. case 137:
  1930. #line 381 "gram.y"
  1931. { yyval.sval = yyvsp[0].sval; ;
  1932.     break;}
  1933. case 138:
  1934. #line 382 "gram.y"
  1935. {
  1936.                     char *s, *s1;
  1937.                     s1 = yyvsp[0].ent.vp->label;
  1938.                     if (!s1)
  1939.                     s1 = "NULL_STRING";
  1940.                     s = xmalloc((unsigned)strlen(s1)+1);
  1941.                     (void) strcpy(s, s1);
  1942.                     yyval.sval = s;
  1943.                 ;
  1944.     break;}
  1945. case 141:
  1946. #line 397 "gram.y"
  1947. { setauto(1); ;
  1948.     break;}
  1949. case 142:
  1950. #line 398 "gram.y"
  1951. { setauto(1); ;
  1952.     break;}
  1953. case 143:
  1954. #line 399 "gram.y"
  1955. { setauto(0); ;
  1956.     break;}
  1957. case 144:
  1958. #line 400 "gram.y"
  1959. { setauto(0); ;
  1960.     break;}
  1961. case 145:
  1962. #line 401 "gram.y"
  1963. { setauto(0); ;
  1964.     break;}
  1965. case 146:
  1966. #line 402 "gram.y"
  1967. { setauto(0); ;
  1968.     break;}
  1969. case 147:
  1970. #line 403 "gram.y"
  1971. { setorder(BYCOLS); ;
  1972.     break;}
  1973. case 148:
  1974. #line 404 "gram.y"
  1975. { setorder(BYROWS); ;
  1976.     break;}
  1977. case 149:
  1978. #line 405 "gram.y"
  1979. { setorder(BYGRAPH); ;
  1980.     break;}
  1981. case 150:
  1982. #line 406 "gram.y"
  1983. { numeric = 1; ;
  1984.     break;}
  1985. case 151:
  1986. #line 407 "gram.y"
  1987. { numeric = 0; ;
  1988.     break;}
  1989. case 152:
  1990. #line 408 "gram.y"
  1991. { prescale = 0.01; ;
  1992.     break;}
  1993. case 153:
  1994. #line 409 "gram.y"
  1995. { prescale = 1.0; ;
  1996.     break;}
  1997. case 154:
  1998. #line 410 "gram.y"
  1999. { extfunc = 1; ;
  2000.     break;}
  2001. case 155:
  2002. #line 411 "gram.y"
  2003. { extfunc = 0; ;
  2004.     break;}
  2005. case 156:
  2006. #line 412 "gram.y"
  2007. { showcell = 1; ;
  2008.     break;}
  2009. case 157:
  2010. #line 413 "gram.y"
  2011. { showcell = 0; ;
  2012.     break;}
  2013. case 158:
  2014. #line 414 "gram.y"
  2015. { showtop = 1; ;
  2016.     break;}
  2017. case 159:
  2018. #line 415 "gram.y"
  2019. { showtop = 0; ;
  2020.     break;}
  2021. case 160:
  2022. #line 416 "gram.y"
  2023. { setiterations(yyvsp[0].ival); ;
  2024.     break;}
  2025. case 161:
  2026. #line 417 "gram.y"
  2027. { tbl_style = yyvsp[0].ival; ;
  2028.     break;}
  2029. case 162:
  2030. #line 418 "gram.y"
  2031. { tbl_style = TBL; ;
  2032.     break;}
  2033. case 163:
  2034. #line 419 "gram.y"
  2035. { tbl_style = LATEX; ;
  2036.     break;}
  2037. case 164:
  2038. #line 420 "gram.y"
  2039. { tbl_style = TEX; ;
  2040.     break;}
  2041. }
  2042.    /* the action file gets copied in in place of this dollarsign */
  2043. #line 303 "bison.simple"
  2044.  
  2045.   yyvsp -= yylen;
  2046.   yyssp -= yylen;
  2047. #ifdef YYLSP_NEEDED
  2048.   yylsp -= yylen;
  2049. #endif
  2050.  
  2051. #ifdef YYDEBUG
  2052.   if (yydebug)
  2053.     {
  2054.       short *ssp1 = yyss - 1;
  2055.       fprintf (stderr, "state stack now");
  2056.       while (ssp1 != yyssp)
  2057.         fprintf (stderr, " %d", *++ssp1);
  2058.       fprintf (stderr, "\n");
  2059.     }
  2060. #endif
  2061.  
  2062.   *++yyvsp = yyval;
  2063.  
  2064. #ifdef YYLSP_NEEDED
  2065.   yylsp++;
  2066.   if (yylen == 0)
  2067.     {
  2068.       yylsp->first_line = yylloc.first_line;
  2069.       yylsp->first_column = yylloc.first_column;
  2070.       yylsp->last_line = (yylsp-1)->last_line;
  2071.       yylsp->last_column = (yylsp-1)->last_column;
  2072.       yylsp->text = 0;
  2073.     }
  2074.   else
  2075.     {
  2076.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  2077.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  2078.     }
  2079. #endif
  2080.  
  2081.   /* Now "shift" the result of the reduction.
  2082.      Determine what state that goes to,
  2083.      based on the state we popped back to
  2084.      and the rule number reduced by.  */
  2085.  
  2086.   yyn = yyr1[yyn];
  2087.  
  2088.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  2089.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  2090.     yystate = yytable[yystate];
  2091.   else
  2092.     yystate = yydefgoto[yyn - YYNTBASE];
  2093.  
  2094.   goto yynewstate;
  2095.  
  2096. yyerrlab:   /* here on detecting error */
  2097.  
  2098.   if (! yyerrstatus)
  2099.     /* If not already recovering from an error, report this error.  */
  2100.     {
  2101.       ++yynerr;
  2102.       yyerror("parse error");
  2103.     }
  2104.  
  2105.   if (yyerrstatus == 3)
  2106.     {
  2107.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  2108.  
  2109.       /* return failure if at end of input */
  2110.       if (yychar == YYEOF)
  2111.         YYERROR;
  2112.  
  2113. #ifdef YYDEBUG
  2114.       if (yydebug)
  2115.         fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  2116. #endif
  2117.  
  2118.       yychar = YYEMPTY;
  2119.     }
  2120.  
  2121.   /* Else will try to reuse lookahead token
  2122.      after shifting the error token.  */
  2123.  
  2124.   yyerrstatus = 3;              /* Each real token shifted decrements this */
  2125.  
  2126.   goto yyerrhandle;
  2127.  
  2128. yyerrdefault:  /* current state does not do anything special for the error token. */
  2129.  
  2130. #if 0
  2131.   /* This is wrong; only states that explicitly want error tokens
  2132.      should shift them.  */
  2133.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  2134.   if (yyn) goto yydefault;
  2135. #endif
  2136.  
  2137. yyerrpop:   /* pop the current state because it cannot handle the error token */
  2138.  
  2139.   if (yyssp == yyss) YYERROR;
  2140.   yyvsp--;
  2141.   yystate = *--yyssp;
  2142. #ifdef YYLSP_NEEDED
  2143.   yylsp--;
  2144. #endif
  2145.  
  2146. #ifdef YYDEBUG
  2147.   if (yydebug)
  2148.     {
  2149.       short *ssp1 = yyss - 1;
  2150.       fprintf (stderr, "Error: state stack now");
  2151.       while (ssp1 != yyssp)
  2152.         fprintf (stderr, " %d", *++ssp1);
  2153.       fprintf (stderr, "\n");
  2154.     }
  2155. #endif
  2156.  
  2157. yyerrhandle:
  2158.  
  2159.   yyn = yypact[yystate];
  2160.   if (yyn == YYFLAG)
  2161.     goto yyerrdefault;
  2162.  
  2163.   yyn += YYTERROR;
  2164.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  2165.     goto yyerrdefault;
  2166.  
  2167.   yyn = yytable[yyn];
  2168.   if (yyn < 0)
  2169.     {
  2170.       if (yyn == YYFLAG)
  2171.         goto yyerrpop;
  2172.       yyn = -yyn;
  2173.       goto yyreduce;
  2174.     }
  2175.   else if (yyn == 0)
  2176.     goto yyerrpop;
  2177.  
  2178.   if (yyn == YYFINAL)
  2179.     YYACCEPT;
  2180.  
  2181. #ifdef YYDEBUG
  2182.   if (yydebug)
  2183.     fprintf(stderr, "Shifting error token, ");
  2184. #endif
  2185.  
  2186.   *++yyvsp = yylval;
  2187. #ifdef YYLSP_NEEDED
  2188.   *++yylsp = yylloc;
  2189. #endif
  2190.  
  2191.   yystate = yyn;
  2192.   goto yynewstate;
  2193. }
  2194. #line 422 "gram.y"
  2195.