home *** CD-ROM | disk | FTP | other *** search
/ Photo CD Demo 1 / Demo.bin / graphtal / yacc.c < prev    next >
C/C++ Source or Header  |  1992-11-03  |  66KB  |  2,109 lines
  1.  
  2. /*  A Bison parser, made from yacc.y  */
  3.  
  4. #define YYBISON 1  /* Identify Bison output.  */
  5.  
  6. #define    tVALUE    258
  7. #define    tNAME    259
  8. #define    tCONSTANT    260
  9. #define    tLSYSTEM    261
  10. #define    tTABLE    262
  11. #define    tCONST    263
  12. #define    tATTRIBUTES    264
  13. #define    tDERIVATION    265
  14. #define    tAXIOM    266
  15. #define    tPITCH    267
  16. #define    tROLL    268
  17. #define    tTURN    269
  18. #define    tANGLE    270
  19. #define    tFORWARD    271
  20. #define    tRANDOMIZE    272
  21. #define    tINFINITY    273
  22. #define    tTROPISM    274
  23. #define    tWEIGHT    275
  24. #define    tEYE    276
  25. #define    tLOOKAT    277
  26. #define    tUP    278
  27. #define    tFOV    279
  28. #define    tCONERES    280
  29. #define    tSPHERERES    281
  30. #define    tHULL    282
  31. #define    tSPHERE    283
  32. #define    tTRIANGLE    284
  33. #define    tPLANE    285
  34. #define    tCYLINDER    286
  35. #define    tCONE    287
  36. #define    tTRANSLATE    288
  37. #define    tROTATE    289
  38. #define    tSCALE    290
  39. #define    tTRANSFORM    291
  40. #define    tSIN    292
  41. #define    tCOS    293
  42. #define    tTAN    294
  43. #define    tASIN    295
  44. #define    tACOS    296
  45. #define    tATAN    297
  46. #define    tABS    298
  47. #define    tSQRT    299
  48. #define    tEXP    300
  49. #define    tLOG    301
  50. #define    tLOG10    302
  51. #define    tRAND    303
  52. #define    tGAUSS    304
  53. #define    tIF    305
  54. #define    tTURTLEX    306
  55. #define    tTURTLEY    307
  56. #define    tTURTLEZ    308
  57. #define    tSCOPE    309
  58. #define    tAND    310
  59. #define    tOR    311
  60. #define    tEQ    312
  61. #define    tNEQ    313
  62. #define    tGEQ    314
  63. #define    tLEQ    315
  64. #define    tARROW    316
  65. #define    tPOW    317
  66. #define    tUMINUS    318
  67.  
  68. #line 1 "yacc.y"
  69.  
  70. /*
  71.  * yacc.y - parser for graphtal.
  72.  *
  73.  * Copyright (C) 1992, Christoph Streit (streit@iam.unibe.ch)
  74.  * All rights reserved.
  75.  *
  76.  * This software may be freely copied, modified, and redistributed
  77.  * provided that this copyright notice is preserved on all copies.
  78.  *
  79.  * You may not distribute this software, in whole or in part, as part of
  80.  * any commercial product without the express consent of the authors.
  81.  *
  82.  * There is no warranty or other guarantee of fitness of this software
  83.  * for any purpose.  It is provided solely "as is".
  84.  *
  85.  */
  86.  
  87. // #ifdef _AIX
  88. //   #pragma alloca
  89. // # include <malloc.h>
  90. // # include <unistd.h>
  91. // #else
  92. # include <unistd.h>
  93. # ifndef alloca
  94. #  include <malloc.h>
  95. #  ifndef alloca
  96. #   define alloca
  97. #  endif
  98. # endif
  99. // #endif
  100.  
  101. #include <stdlib.h>
  102. #include <iostream.h>
  103.  
  104. #include "yyerror.h"
  105. #include "rcString.h"
  106. #include "LSystem.h"
  107. #include "Expression.h"
  108. #include "ExprItems.h"
  109. #include "table.h"
  110. #include "Color.h"
  111. #include "Options.h"
  112. #include "Primitives.h"
  113. #include "Hull.h"
  114. #include "Interpreter.h"
  115.  
  116. extern int yylex();
  117.  
  118. LSystem* lsystem = NULL;
  119.  
  120. declareTable(ExprSymtab, rcString, ExpressionPtr);
  121. implementTable(ExprSymtab, rcString, ExpressionPtr);
  122.  
  123. declareTable(IntSymtab, rcString, int);
  124. implementTable(IntSymtab, rcString, int);
  125.  
  126. declareTable(TableSymtab, rcString, TablePtr)
  127. implementTable(TableSymtab, rcString, TablePtr)
  128.  
  129. static ExprSymtab  GlobalConst(503);
  130. static ExprSymtab* LocalConst = new ExprSymtab(503);
  131. static IntSymtab*  FormalParam = new IntSymtab(17);
  132. static HullSymtab* theHulls = new HullSymtab(17);
  133. static TableSymtab theTables(17);
  134.  
  135. static int definingLocalConst = 0;
  136. static int nthParam = 0;
  137. static ProdModuleList* axiom = NULL;
  138. static DerivationList* derivation = NULL;
  139.  
  140. #line 73 "yacc.y"
  141. typedef union { double realnumber;
  142.      int intnumber;
  143.  
  144.      Vector* vector;
  145.      TransMatrix* trans;
  146.      GeoObject* geoObject;
  147.      Hull* hull;
  148.          DerivationList* derivations;
  149.      TableList* table_list;
  150.      Table* table;
  151.      ProductionList* prod_list;
  152.          Production* production;
  153.      Predecessor* predecessor;
  154.      NameList* name_list;
  155.      SuccessorList* succ_list;
  156.          Successor* successor;
  157.      ProdModuleList* module_list;
  158.      ProdModule* module;
  159.  
  160.      ExpressionList* expr_list;
  161.          Expression* expr;
  162.          Value* value;
  163.      rcString* name;
  164.        } YYSTYPE;
  165.  
  166. #ifndef YYLTYPE
  167. typedef
  168.   struct yyltype
  169.     {
  170.       int timestamp;
  171.       int first_line;
  172.       int first_column;
  173.       int last_line;
  174.       int last_column;
  175.       char *text;
  176.    }
  177.   yyltype;
  178.  
  179. #define YYLTYPE yyltype
  180. #endif
  181.  
  182. #ifndef YYDEBUG
  183. #define YYDEBUG 1
  184. #endif
  185.  
  186. #include <stdio.h>
  187.  
  188. #ifndef __STDC__
  189. #define const
  190. #endif
  191.  
  192.  
  193.  
  194. #define    YYFINAL        303
  195. #define    YYFLAG        -32768
  196. #define    YYNTBASE    88
  197.  
  198. #define YYTRANSLATE(x) ((unsigned)(x) <= 318 ? yytranslate[x] : 126)
  199.  
  200. static const char yytranslate[] = {     0,
  201.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  202.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  203.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  204.      2,     2,    57,     2,     2,    81,    70,    78,     2,    83,
  205.     86,    68,    66,    84,    67,    82,    69,     2,     2,     2,
  206.      2,     2,     2,     2,     2,     2,     2,    85,    87,    62,
  207.     73,    63,     2,     2,     2,     2,     2,     2,     2,     2,
  208.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  209.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  210.     76,    79,    77,    71,     2,     2,     2,     2,     2,     2,
  211.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  212.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  213.      2,     2,    74,    80,    75,     2,     2,     2,     2,     2,
  214.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  215.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  216.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  217.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  218.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  219.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  220.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  221.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  222.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  223.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  224.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  225.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  226.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  227.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  228.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  229.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  230.     36,    37,    38,    39,    40,    41,    42,    43,    44,    45,
  231.     46,    47,    48,    49,    50,    51,    52,    53,    54,    55,
  232.     56,    58,    59,    60,    61,    64,    65,    72
  233. };
  234.  
  235. #if YYDEBUG != 0
  236. static const short yyprhs[] = {     0,
  237.      0,     8,    10,    11,    14,    16,    19,    24,    25,    28,
  238.     35,    37,    40,    43,    47,    51,    56,    60,    65,    71,
  239.     75,    77,    80,    83,    85,    87,    90,    93,    98,   102,
  240.    107,   113,   115,   118,   126,   128,   131,   135,   140,   142,
  241.    145,   147,   149,   151,   153,   155,   157,   159,   161,   163,
  242.    165,   167,   169,   171,   173,   175,   179,   181,   185,   188,
  243.    190,   193,   197,   200,   201,   205,   207,   210,   212,   217,
  244.    219,   223,   225,   227,   229,   231,   233,   236,   240,   244,
  245.    248,   252,   256,   260,   264,   268,   271,   275,   279,   283,
  246.    287,   291,   295,   299,   302,   305,   308,   311,   314,   317,
  247.    320,   323,   326,   329,   332,   335,   338,   341,   350,   353,
  248.    358,   362,   365,   369,   375,   376,   379,   383,   387,   391,
  249.    395,   399,   403,   407,   410,   414,   422,   426,   434,   442,
  250.    450,   454,   458,   462,   465,   470,   471,   475,   479,   481
  251. };
  252.  
  253. #endif
  254.  
  255. static const short yyrhs[] = {     6,
  256.      4,   124,    89,    93,   101,   119,     0,    90,     0,     0,
  257.      8,    91,     0,    92,     0,    91,    92,     0,     5,    73,
  258.    116,   124,     0,     0,    93,    94,     0,    27,     4,    74,
  259.     95,    75,   124,     0,    96,     0,    96,    99,     0,    95,
  260.     96,     0,    95,    96,    99,     0,    28,    98,    97,     0,
  261.     29,    97,    97,    97,     0,    30,    97,    97,     0,    31,
  262.     98,    97,    97,     0,    32,    98,    97,    98,    97,     0,
  263.     98,    98,    98,     0,     3,     0,    67,     3,     0,    66,
  264.      3,     0,     4,     0,   100,     0,    99,   100,     0,    33,
  265.     97,     0,    35,    98,    98,    98,     0,    34,    97,    98,
  266.      0,    36,    97,    97,    97,     0,    36,    97,    97,    97,
  267.     97,     0,   102,     0,   101,   102,     0,     7,     4,    74,
  268.     90,   103,    75,   124,     0,   104,     0,   103,   104,     0,
  269.    105,   110,   124,     0,   105,   109,   110,   124,     0,   106,
  270.      0,   106,   107,     0,    74,     0,    75,     0,    76,     0,
  271.     77,     0,    71,     0,    78,     0,    66,     0,    67,     0,
  272.     79,     0,    69,     0,    80,     0,    81,     0,    82,     0,
  273.     70,     0,     4,     0,    83,   108,   125,     0,     4,     0,
  274.    108,    84,     4,     0,    85,   116,     0,   111,     0,   110,
  275.    111,     0,    64,   112,   113,     0,    64,   112,     0,     0,
  276.     83,     3,    86,     0,   114,     0,   113,   114,     0,   106,
  277.      0,   106,    83,   115,   125,     0,   116,     0,   115,    84,
  278.    116,     0,     3,     0,    51,     0,    52,     0,    53,     0,
  279.      4,     0,    54,     4,     0,   116,    56,   116,     0,   116,
  280.     55,   116,     0,   116,    58,   116,     0,   116,    59,   116,
  281.      0,   116,    60,   116,     0,   116,    61,   116,     0,   116,
  282.     63,   116,     0,   116,    62,   116,     0,    57,   116,     0,
  283.    116,    66,   116,     0,   116,    67,   116,     0,   116,    68,
  284.    116,     0,   116,    69,   116,     0,   116,    70,   116,     0,
  285.    116,    65,   116,     0,   116,    71,   116,     0,    67,   116,
  286.      0,    37,   118,     0,    38,   118,     0,    39,   118,     0,
  287.     40,   118,     0,    41,   118,     0,    42,   118,     0,    43,
  288.    118,     0,    44,   118,     0,    45,   118,     0,    46,   118,
  289.      0,    47,   118,     0,    48,   117,     0,    49,   117,     0,
  290.     50,    83,   116,    84,   116,    84,   116,   125,     0,     4,
  291.    117,     0,     4,    83,   115,   125,     0,    83,   116,   125,
  292.      0,    83,   125,     0,    83,   116,   125,     0,     9,    74,
  293.    120,    75,   124,     0,     0,   120,   121,     0,    10,   122,
  294.    124,     0,    11,   113,   124,     0,    12,   116,   124,     0,
  295.     13,   116,   124,     0,    14,   116,   124,     0,    15,   116,
  296.    124,     0,    16,   116,   124,     0,    17,   124,     0,    17,
  297.    116,   124,     0,    19,   116,    84,   116,    84,   116,   124,
  298.      0,    20,   116,   124,     0,    21,   116,    84,   116,    84,
  299.    116,   124,     0,    22,   116,    84,   116,    84,   116,   124,
  300.      0,    23,   116,    84,   116,    84,   116,   124,     0,    24,
  301.    116,   124,     0,    25,     3,   124,     0,    26,     3,   124,
  302.      0,     4,   123,     0,   122,    84,     4,   123,     0,     0,
  303.     83,   116,   125,     0,    83,    18,   125,     0,    87,     0,
  304.     86,     0
  305. };
  306.  
  307. #if YYDEBUG != 0
  308. static const short yyrline[] = { 0,
  309.    162,   175,   179,   180,   183,   184,   187,   201,   202,   205,
  310.    213,   218,   226,   231,   241,   248,   257,   265,   273,   283,
  311.    289,   294,   300,   305,   318,   322,   330,   336,   341,   347,
  312.    354,   364,   369,   376,   392,   398,   406,   415,   426,   431,
  313.    438,   440,   442,   444,   446,   448,   450,   452,   454,   456,
  314.    458,   460,   462,   464,   466,   470,   474,   483,   494,   498,
  315.    503,   510,   514,   520,   521,   526,   531,   538,   543,   550,
  316.    555,   562,   565,   569,   572,   575,   595,   606,   608,   610,
  317.    612,   614,   616,   618,   620,   622,   625,   627,   629,   631,
  318.    633,   635,   637,   639,   642,   644,   646,   648,   650,   652,
  319.    654,   656,   658,   660,   662,   664,   666,   668,   670,   674,
  320.    678,   682,   685,   689,   692,   693,   696,   698,   700,   705,
  321.    709,   714,   721,   726,   743,   748,   754,   758,   765,   772,
  322.    778,   783,   788,   795,   806,   819,   821,   825,   829,   830
  323. };
  324.  
  325. static const char * const yytname[] = {   "$","error","$illegal.","tVALUE","tNAME",
  326. "tCONSTANT","tLSYSTEM","tTABLE","tCONST","tATTRIBUTES","tDERIVATION","tAXIOM",
  327. "tPITCH","tROLL","tTURN","tANGLE","tFORWARD","tRANDOMIZE","tINFINITY","tTROPISM",
  328. "tWEIGHT","tEYE","tLOOKAT","tUP","tFOV","tCONERES","tSPHERERES","tHULL","tSPHERE",
  329. "tTRIANGLE","tPLANE","tCYLINDER","tCONE","tTRANSLATE","tROTATE","tSCALE","tTRANSFORM",
  330. "tSIN","tCOS","tTAN","tASIN","tACOS","tATAN","tABS","tSQRT","tEXP","tLOG","tLOG10",
  331. "tRAND","tGAUSS","tIF","tTURTLEX","tTURTLEY","tTURTLEZ","tSCOPE","tAND","tOR",
  332. "'!'","tEQ","tNEQ","tGEQ","tLEQ","'<'","'>'","tARROW","tPOW","'+'","'-'","'*'",
  333. "'/'","'%'","'^'","tUMINUS","'='","'{'","'}'","'['","']'","'&'","'\\\\'","'|'",
  334. "'$'","'.'","'('","','","':'","')'","';'","lgrammar","global_const","constant_def",
  335. "constants","constant","hulls","hull","primitives","primitive","vector","number",
  336. "transforms","transformation","tables","table","productions","production","predecessor",
  337. "name","arguments","parameters","condition","successors","successor","probability",
  338. "modules","module","expr_list","expression","no_argument","one_argument","attributes",
  339. "attr_list","attr_item","derivations","steps","sc","rp",""
  340. };
  341. #endif
  342.  
  343. static const short yyr1[] = {     0,
  344.     88,    89,    90,    90,    91,    91,    92,    93,    93,    94,
  345.     95,    95,    95,    95,    96,    96,    96,    96,    96,    97,
  346.     98,    98,    98,    98,    99,    99,   100,   100,   100,   100,
  347.    100,   101,   101,   102,   103,   103,   104,   104,   105,   105,
  348.    106,   106,   106,   106,   106,   106,   106,   106,   106,   106,
  349.    106,   106,   106,   106,   106,   107,   108,   108,   109,   110,
  350.    110,   111,   111,   112,   112,   113,   113,   114,   114,   115,
  351.    115,   116,   116,   116,   116,   116,   116,   116,   116,   116,
  352.    116,   116,   116,   116,   116,   116,   116,   116,   116,   116,
  353.    116,   116,   116,   116,   116,   116,   116,   116,   116,   116,
  354.    116,   116,   116,   116,   116,   116,   116,   116,   116,   116,
  355.    116,   117,   118,   119,   120,   120,   121,   121,   121,   121,
  356.    121,   121,   121,   121,   121,   121,   121,   121,   121,   121,
  357.    121,   121,   121,   122,   122,   123,   123,   123,   124,   125
  358. };
  359.  
  360. static const short yyr2[] = {     0,
  361.      7,     1,     0,     2,     1,     2,     4,     0,     2,     6,
  362.      1,     2,     2,     3,     3,     4,     3,     4,     5,     3,
  363.      1,     2,     2,     1,     1,     2,     2,     4,     3,     4,
  364.      5,     1,     2,     7,     1,     2,     3,     4,     1,     2,
  365.      1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  366.      1,     1,     1,     1,     1,     3,     1,     3,     2,     1,
  367.      2,     3,     2,     0,     3,     1,     2,     1,     4,     1,
  368.      3,     1,     1,     1,     1,     1,     2,     3,     3,     3,
  369.      3,     3,     3,     3,     3,     2,     3,     3,     3,     3,
  370.      3,     3,     3,     2,     2,     2,     2,     2,     2,     2,
  371.      2,     2,     2,     2,     2,     2,     2,     8,     2,     4,
  372.      3,     2,     3,     5,     0,     2,     3,     3,     3,     3,
  373.      3,     3,     3,     2,     3,     7,     3,     7,     7,     7,
  374.      3,     3,     3,     2,     4,     0,     3,     3,     1,     1
  375. };
  376.  
  377. static const short yydefact[] = {     0,
  378.      0,     0,   139,     3,     0,     8,     2,     0,     4,     5,
  379.      0,     0,     6,     0,     0,     9,     0,    32,    72,    76,
  380.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  381.      0,     0,     0,     0,    73,    74,    75,     0,     0,     0,
  382.      0,     0,     0,     0,     0,    33,     1,     0,   109,     0,
  383.     95,    96,    97,    98,    99,   100,   101,   102,   103,   104,
  384.    105,     0,   106,   107,     0,    77,    86,    94,     0,     0,
  385.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  386.      0,     0,     0,     0,     7,     3,     0,   115,   140,     0,
  387.     70,   112,     0,     0,   111,    79,    78,    80,    81,    82,
  388.     83,    85,    84,    92,    87,    88,    89,    90,    91,    93,
  389.      0,     0,     0,     0,     0,     0,     0,    11,     0,     0,
  390.    110,   113,     0,    55,    47,    48,    50,    54,    45,    41,
  391.     42,    43,    44,    46,    49,    51,    52,    53,     0,    35,
  392.      0,    39,    21,    24,     0,     0,     0,     0,     0,     0,
  393.      0,     0,     0,    13,     0,     0,     0,     0,    12,    25,
  394.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  395.      0,     0,     0,     0,     0,     0,     0,   116,    71,     0,
  396.     42,    36,    64,     0,     0,     0,    60,     0,    40,    23,
  397.     22,    15,     0,     0,    17,     0,     0,    10,    14,    27,
  398.      0,     0,     0,    26,   136,     0,    68,     0,    66,     0,
  399.      0,     0,     0,     0,     0,   124,     0,     0,     0,     0,
  400.      0,     0,     0,     0,   114,     0,    34,     0,    63,    59,
  401.      0,    61,    37,    57,     0,    16,    20,    18,     0,    29,
  402.      0,     0,     0,   134,     0,   117,     0,    67,   118,   119,
  403.    120,   121,   122,   123,   125,     0,   127,     0,     0,     0,
  404.    131,   132,   133,     0,     0,    62,    38,     0,    56,    19,
  405.     28,    30,     0,     0,   136,     0,     0,     0,     0,     0,
  406.    108,    65,    58,    31,   138,   137,   135,    69,     0,     0,
  407.      0,     0,     0,     0,     0,     0,   126,   128,   129,   130,
  408.      0,     0,     0
  409. };
  410.  
  411. static const short yydefgoto[] = {   301,
  412.      6,     7,     9,    10,    11,    16,   117,   118,   148,   149,
  413.    159,   160,    17,    18,   139,   140,   141,   207,   189,   235,
  414.    185,   186,   187,   229,   208,   209,    90,    91,    49,    51,
  415.     47,   119,   178,   206,   244,     4,    92
  416. };
  417.  
  418. static const short yypact[] = {    10,
  419.     16,   -64,-32768,    29,    45,-32768,-32768,   -17,    45,-32768,
  420.     12,   402,-32768,    75,    84,-32768,    -3,-32768,-32768,    -7,
  421.     14,    14,    14,    14,    14,    14,    14,    14,    14,    14,
  422.     14,    22,    22,    23,-32768,-32768,-32768,    86,   402,   402,
  423.    402,   405,    21,    33,    41,-32768,-32768,   298,-32768,   402,
  424. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  425. -32768,    47,-32768,-32768,   402,-32768,   -57,   -57,   428,   402,
  426.    402,   402,   402,   402,   402,   402,   402,   402,   402,   402,
  427.    402,   402,   402,   402,-32768,    29,    72,-32768,-32768,   -29,
  428.    630,-32768,   428,   353,-32768,   661,   647,   675,   675,   172,
  429.    172,   172,   172,   -57,    13,    13,   -57,   -57,   -57,   -57,
  430.    146,     7,     7,     7,     7,     7,     2,    93,   295,   402,
  431. -32768,-32768,   402,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  432. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   194,-32768,
  433.    -49,    51,-32768,-32768,   133,   134,     7,     7,     7,     7,
  434.      7,     7,   -64,    93,     7,     7,     7,     7,    93,-32768,
  435.    135,   146,   402,   402,   402,   402,   402,   246,   402,   402,
  436.    402,   402,   402,   402,   138,   139,   -64,-32768,   630,   450,
  437.    -64,-32768,    62,   402,    79,   -61,-32768,   142,-32768,-32768,
  438. -32768,-32768,     7,     7,-32768,     7,     7,-32768,    93,-32768,
  439.      7,     7,     7,-32768,    64,   -66,    65,    43,-32768,   405,
  440.    405,   405,   405,   405,   405,-32768,   470,   405,   490,   510,
  441.    530,   405,   -64,   -64,-32768,   402,-32768,   160,   146,   630,
  442.    -61,-32768,-32768,-32768,     1,-32768,-32768,-32768,     7,-32768,
  443.      7,     7,   350,-32768,   162,-32768,   402,-32768,-32768,-32768,
  444. -32768,-32768,-32768,-32768,-32768,   402,-32768,   402,   402,   402,
  445. -32768,-32768,-32768,   428,    78,   146,-32768,   164,-32768,-32768,
  446. -32768,     7,    47,   428,    64,   -29,   550,   570,   590,   610,
  447. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   402,   402,
  448.    402,   402,   405,   405,   405,   405,-32768,-32768,-32768,-32768,
  449.    170,   179,-32768
  450. };
  451.  
  452. static const short yypgoto[] = {-32768,
  453. -32768,    94,-32768,   173,-32768,-32768,-32768,    66,  -107,  -103,
  454.     30,  -157,-32768,   171,-32768,    50,-32768,   -87,-32768,-32768,
  455. -32768,     5,  -151,-32768,   -38,  -191,   -55,   -12,    60,   349,
  456. -32768,-32768,-32768,-32768,   -82,   -37,   -68
  457. };
  458.  
  459.  
  460. #define    YYLAST        746
  461.  
  462.  
  463. static const short yytable[] = {    42,
  464.     95,   204,   183,    14,    85,    45,   150,    78,   147,   143,
  465.    144,   151,   152,    84,   183,     1,   248,   245,    14,     2,
  466.      3,   121,     3,   142,   122,     3,    67,    68,    69,   112,
  467.    113,   114,   115,   116,   232,   184,     5,    93,    15,   192,
  468.    193,   204,   195,   196,   197,   194,   124,   200,   201,     8,
  469.    203,   142,    94,   202,   120,    12,    89,    96,    97,    98,
  470.     99,   100,   101,   102,   103,   104,   105,   106,   107,   108,
  471.    109,   110,   145,   146,   248,    48,   153,    78,    43,   232,
  472.     81,    82,    83,    84,   268,   236,    89,    44,   238,    66,
  473.    237,    63,    64,   239,    86,   242,    50,   240,   241,   112,
  474.    113,   114,   115,   116,    62,    65,    87,   179,   125,   126,
  475.    180,   127,   128,   129,    88,   198,   130,   131,   132,   133,
  476.    134,   135,   136,   137,   138,   155,   156,   157,   158,     3,
  477.    216,   270,    89,   188,   272,   190,   191,   271,   205,   225,
  478.    223,   224,   183,   227,   228,   234,   243,   247,   233,   124,
  479.    210,   211,   212,   213,   214,   215,   217,   218,   219,   220,
  480.    221,   222,   265,   282,   284,   275,   269,   283,   246,   302,
  481.    249,   230,   250,   251,   252,   253,   254,   255,   303,   111,
  482.    257,    13,   154,   199,   261,   262,   263,    46,   182,   231,
  483.    266,   276,   287,   267,     0,   281,     0,   124,     0,     0,
  484.      0,     0,     0,     0,   285,   286,     0,   288,     0,     0,
  485.      0,   125,   126,   264,   127,   128,   129,     0,     0,   130,
  486.    131,   132,   133,   134,   135,   136,   137,   138,     0,     0,
  487.    274,-32768,-32768,-32768,-32768,     0,    78,    79,    80,    81,
  488.     82,    83,    84,   277,     0,   278,   279,   280,    19,    20,
  489.      0,     0,     0,     0,     0,   297,   298,   299,   300,   125,
  490.    126,     0,   127,   128,   129,     0,     0,   130,   181,   132,
  491.    133,   134,   135,   136,   137,   138,   293,   294,   295,   296,
  492.      0,     0,    21,    22,    23,    24,    25,    26,    27,    28,
  493.     29,    30,    31,    32,    33,    34,    35,    36,    37,    38,
  494.     19,    20,    39,     0,   161,   162,   163,   164,   165,   166,
  495.    167,   168,    40,   169,   170,   171,   172,   173,   174,   175,
  496.    176,     0,     0,     0,     0,     0,     0,     0,    41,     0,
  497.      0,     0,     3,     0,    21,    22,    23,    24,    25,    26,
  498.     27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
  499.     37,    38,    19,    20,    39,     0,     0,     0,     0,     0,
  500.      0,     0,     0,     0,    40,     0,     0,   273,     0,   177,
  501.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  502.     41,     0,     0,    89,     0,     0,    21,    22,    23,    24,
  503.     25,    26,    27,    28,    29,    30,    31,    32,    33,    34,
  504.     35,    36,    37,    38,    19,    20,    39,    70,    71,     0,
  505.     72,    73,    74,    75,    76,    77,    40,    78,    79,    80,
  506.     81,    82,    83,    84,     0,     0,     0,     0,     0,     0,
  507.      0,     0,    41,     0,     0,     0,   123,     0,    21,    22,
  508.     23,    24,    25,    26,    27,    28,    29,    30,    31,    32,
  509.     33,    34,    35,    36,    37,    38,     0,     0,    39,    70,
  510.     71,     0,    72,    73,    74,    75,    76,    77,    40,    78,
  511.     79,    80,    81,    82,    83,    84,     0,     0,     0,     0,
  512.      0,     0,    70,    71,    41,    72,    73,    74,    75,    76,
  513.     77,     3,    78,    79,    80,    81,    82,    83,    84,     0,
  514.      0,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  515.     75,    76,    77,    89,    78,    79,    80,    81,    82,    83,
  516.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  517.     75,    76,    77,   226,    78,    79,    80,    81,    82,    83,
  518.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  519.     75,    76,    77,   256,    78,    79,    80,    81,    82,    83,
  520.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  521.     75,    76,    77,   258,    78,    79,    80,    81,    82,    83,
  522.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  523.     75,    76,    77,   259,    78,    79,    80,    81,    82,    83,
  524.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  525.     75,    76,    77,   260,    78,    79,    80,    81,    82,    83,
  526.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  527.     75,    76,    77,   289,    78,    79,    80,    81,    82,    83,
  528.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  529.     75,    76,    77,   290,    78,    79,    80,    81,    82,    83,
  530.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  531.     75,    76,    77,   291,    78,    79,    80,    81,    82,    83,
  532.     84,     0,     0,     0,    70,    71,     0,    72,    73,    74,
  533.     75,    76,    77,   292,    78,    79,    80,    81,    82,    83,
  534.     84,    70,     0,     0,    72,    73,    74,    75,    76,    77,
  535.      0,    78,    79,    80,    81,    82,    83,    84,    72,    73,
  536.     74,    75,    76,    77,     0,    78,    79,    80,    81,    82,
  537.     83,    84,-32768,-32768,    74,    75,    76,    77,     0,    78,
  538.     79,    80,    81,    82,    83,    84
  539. };
  540.  
  541. static const short yycheck[] = {    12,
  542.     69,   159,    64,     7,    42,     9,   114,    65,   112,     3,
  543.      4,   115,   116,    71,    64,     6,   208,    84,     7,     4,
  544.     87,    90,    87,   111,    93,    87,    39,    40,    41,    28,
  545.     29,    30,    31,    32,   186,    85,     8,    50,    27,   147,
  546.    148,   199,   150,   151,   152,   149,     4,   155,   156,     5,
  547.    158,   139,    65,   157,    84,    73,    86,    70,    71,    72,
  548.     73,    74,    75,    76,    77,    78,    79,    80,    81,    82,
  549.     83,    84,    66,    67,   266,    83,    75,    65,     4,   231,
  550.     68,    69,    70,    71,    84,   193,    86,     4,   196,     4,
  551.    194,    32,    33,   197,    74,   203,    83,   201,   202,    28,
  552.     29,    30,    31,    32,    83,    83,    74,   120,    66,    67,
  553.    123,    69,    70,    71,    74,   153,    74,    75,    76,    77,
  554.     78,    79,    80,    81,    82,    33,    34,    35,    36,    87,
  555.    168,   239,    86,    83,   242,     3,     3,   241,     4,   177,
  556.      3,     3,    64,   181,    83,     4,    83,    83,   186,     4,
  557.    163,   164,   165,   166,   167,   168,   169,   170,   171,   172,
  558.    173,   174,     3,    86,   272,     4,   235,     4,   206,     0,
  559.    208,   184,   210,   211,   212,   213,   214,   215,     0,    86,
  560.    218,     9,   117,   154,   222,   223,   224,    17,   139,   185,
  561.    229,   247,   275,   231,    -1,   264,    -1,     4,    -1,    -1,
  562.     -1,    -1,    -1,    -1,   273,   274,    -1,   276,    -1,    -1,
  563.     -1,    66,    67,   226,    69,    70,    71,    -1,    -1,    74,
  564.     75,    76,    77,    78,    79,    80,    81,    82,    -1,    -1,
  565.    243,    60,    61,    62,    63,    -1,    65,    66,    67,    68,
  566.     69,    70,    71,   256,    -1,   258,   259,   260,     3,     4,
  567.     -1,    -1,    -1,    -1,    -1,   293,   294,   295,   296,    66,
  568.     67,    -1,    69,    70,    71,    -1,    -1,    74,    75,    76,
  569.     77,    78,    79,    80,    81,    82,   289,   290,   291,   292,
  570.     -1,    -1,    37,    38,    39,    40,    41,    42,    43,    44,
  571.     45,    46,    47,    48,    49,    50,    51,    52,    53,    54,
  572.      3,     4,    57,    -1,    10,    11,    12,    13,    14,    15,
  573.     16,    17,    67,    19,    20,    21,    22,    23,    24,    25,
  574.     26,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    83,    -1,
  575.     -1,    -1,    87,    -1,    37,    38,    39,    40,    41,    42,
  576.     43,    44,    45,    46,    47,    48,    49,    50,    51,    52,
  577.     53,    54,     3,     4,    57,    -1,    -1,    -1,    -1,    -1,
  578.     -1,    -1,    -1,    -1,    67,    -1,    -1,    18,    -1,    75,
  579.     22,    23,    24,    25,    26,    27,    28,    29,    30,    31,
  580.     83,    -1,    -1,    86,    -1,    -1,    37,    38,    39,    40,
  581.     41,    42,    43,    44,    45,    46,    47,    48,    49,    50,
  582.     51,    52,    53,    54,     3,     4,    57,    55,    56,    -1,
  583.     58,    59,    60,    61,    62,    63,    67,    65,    66,    67,
  584.     68,    69,    70,    71,    -1,    -1,    -1,    -1,    -1,    -1,
  585.     -1,    -1,    83,    -1,    -1,    -1,    84,    -1,    37,    38,
  586.     39,    40,    41,    42,    43,    44,    45,    46,    47,    48,
  587.     49,    50,    51,    52,    53,    54,    -1,    -1,    57,    55,
  588.     56,    -1,    58,    59,    60,    61,    62,    63,    67,    65,
  589.     66,    67,    68,    69,    70,    71,    -1,    -1,    -1,    -1,
  590.     -1,    -1,    55,    56,    83,    58,    59,    60,    61,    62,
  591.     63,    87,    65,    66,    67,    68,    69,    70,    71,    -1,
  592.     -1,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  593.     61,    62,    63,    86,    65,    66,    67,    68,    69,    70,
  594.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  595.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  596.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  597.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  598.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  599.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  600.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  601.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  602.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  603.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  604.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  605.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  606.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  607.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  608.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  609.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  610.     71,    -1,    -1,    -1,    55,    56,    -1,    58,    59,    60,
  611.     61,    62,    63,    84,    65,    66,    67,    68,    69,    70,
  612.     71,    55,    -1,    -1,    58,    59,    60,    61,    62,    63,
  613.     -1,    65,    66,    67,    68,    69,    70,    71,    58,    59,
  614.     60,    61,    62,    63,    -1,    65,    66,    67,    68,    69,
  615.     70,    71,    58,    59,    60,    61,    62,    63,    -1,    65,
  616.     66,    67,    68,    69,    70,    71
  617. };
  618. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  619. #line 3 "/usr/local/lib/bison/bison.simple"
  620.  
  621. /* Skeleton output parser for bison,
  622.    Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  623.  
  624.    This program is free software; you can redistribute it and/or modify
  625.    it under the terms of the GNU General Public License as published by
  626.    the Free Software Foundation; either version 1, or (at your option)
  627.    any later version.
  628.  
  629.    This program is distributed in the hope that it will be useful,
  630.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  631.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  632.    GNU General Public License for more details.
  633.  
  634.    You should have received a copy of the GNU General Public License
  635.    along with this program; if not, write to the Free Software
  636.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  637.  
  638.  
  639. #ifndef alloca
  640. #ifdef __GNUC__
  641. #define alloca __builtin_alloca
  642. #else /* not GNU C.  */
  643. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  644. #include <alloca.h>
  645. #else /* not sparc */
  646. #if defined (MSDOS) && !defined (__TURBOC__)
  647. #include <malloc.h>
  648. #else /* not MSDOS, or __TURBOC__ */
  649. #if defined(_AIX)
  650. #include <malloc.h>
  651.  #pragma alloca
  652. #endif /* not _AIX */
  653. #endif /* not MSDOS, or __TURBOC__ */
  654. #endif /* not sparc.  */
  655. #endif /* not GNU C.  */
  656. #endif /* alloca not defined.  */
  657.  
  658. /* This is the parser code that is written into each bison parser
  659.   when the %semantic_parser declaration is not specified in the grammar.
  660.   It was written by Richard Stallman by simplifying the hairy parser
  661.   used when %semantic_parser is specified.  */
  662.  
  663. /* Note: there must be only one dollar sign in this file.
  664.    It is replaced by the list of actions, each action
  665.    as one case of the switch.  */
  666.  
  667. #define yyerrok        (yyerrstatus = 0)
  668. #define yyclearin    (yychar = YYEMPTY)
  669. #define YYEMPTY        -2
  670. #define YYEOF        0
  671. #define YYACCEPT    return(0)
  672. #define YYABORT     return(1)
  673. #define YYERROR        goto yyerrlab1
  674. /* Like YYERROR except do call yyerror.
  675.    This remains here temporarily to ease the
  676.    transition to the new meaning of YYERROR, for GCC.
  677.    Once GCC version 2 has supplanted version 1, this can go.  */
  678. #define YYFAIL        goto yyerrlab
  679. #define YYRECOVERING()  (!!yyerrstatus)
  680. #define YYBACKUP(token, value) \
  681. do                                \
  682.   if (yychar == YYEMPTY && yylen == 1)                \
  683.     { yychar = (token), yylval = (value);            \
  684.       yychar1 = YYTRANSLATE (yychar);                \
  685.       YYPOPSTACK;                        \
  686.       goto yybackup;                        \
  687.     }                                \
  688.   else                                \
  689.     { yyerror ("syntax error: cannot back up"); YYERROR; }    \
  690. while (0)
  691.  
  692. #define YYTERROR    1
  693. #define YYERRCODE    256
  694.  
  695. #ifndef YYPURE
  696. #define YYLEX        yylex()
  697. #endif
  698.  
  699. #ifdef YYPURE
  700. #ifdef YYLSP_NEEDED
  701. #define YYLEX        yylex(&yylval, &yylloc)
  702. #else
  703. #define YYLEX        yylex(&yylval)
  704. #endif
  705. #endif
  706.  
  707. /* If nonreentrant, generate the variables here */
  708.  
  709. #ifndef YYPURE
  710.  
  711. int    yychar;            /*  the lookahead symbol        */
  712. YYSTYPE    yylval;            /*  the semantic value of the        */
  713.                 /*  lookahead symbol            */
  714.  
  715. #ifdef YYLSP_NEEDED
  716. YYLTYPE yylloc;            /*  location data for the lookahead    */
  717.                 /*  symbol                */
  718. #endif
  719.  
  720. int yynerrs;            /*  number of parse errors so far       */
  721. #endif  /* not YYPURE */
  722.  
  723. #if YYDEBUG != 0
  724. int yydebug;            /*  nonzero means print parse trace    */
  725. /* Since this is uninitialized, it does not stop multiple parsers
  726.    from coexisting.  */
  727. #endif
  728.  
  729. /*  YYINITDEPTH indicates the initial size of the parser's stacks    */
  730.  
  731. #ifndef    YYINITDEPTH
  732. #define YYINITDEPTH 200
  733. #endif
  734.  
  735. /*  YYMAXDEPTH is the maximum size the stacks can grow to
  736.     (effective only if the built-in stack extension method is used).  */
  737.  
  738. #if YYMAXDEPTH == 0
  739. #undef YYMAXDEPTH
  740. #endif
  741.  
  742. #ifndef YYMAXDEPTH
  743. #define YYMAXDEPTH 10000
  744. #endif
  745.  
  746. #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  747. #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  748. #else                /* not GNU C or C++ */
  749. #ifndef __cplusplus
  750.  
  751. /* This is the most reliable way to avoid incompatibilities
  752.    in available built-in functions on various systems.  */
  753. static void
  754. __yy_bcopy (from, to, count)
  755.      char *from;
  756.      char *to;
  757.      int count;
  758. {
  759.   register char *f = from;
  760.   register char *t = to;
  761.   register int i = count;
  762.  
  763.   while (i-- > 0)
  764.     *t++ = *f++;
  765. }
  766.  
  767. #else /* __cplusplus */
  768.  
  769. /* This is the most reliable way to avoid incompatibilities
  770.    in available built-in functions on various systems.  */
  771. static void
  772. __yy_bcopy (char *from, char *to, int count)
  773. {
  774.   register char *f = from;
  775.   register char *t = to;
  776.   register int i = count;
  777.  
  778.   while (i-- > 0)
  779.     *t++ = *f++;
  780. }
  781.  
  782. #endif
  783. #endif
  784.  
  785. #line 169 "/usr/local/lib/bison/bison.simple"
  786. int
  787. yyparse()
  788. {
  789.   register int yystate;
  790.   register int yyn;
  791.   register short *yyssp;
  792.   register YYSTYPE *yyvsp;
  793.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  794.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  795.  
  796.   short    yyssa[YYINITDEPTH];    /*  the state stack            */
  797.   YYSTYPE yyvsa[YYINITDEPTH];    /*  the semantic value stack        */
  798.  
  799.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  800.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  801.  
  802. #ifdef YYLSP_NEEDED
  803.   YYLTYPE yylsa[YYINITDEPTH];    /*  the location stack            */
  804.   YYLTYPE *yyls = yylsa;
  805.   YYLTYPE *yylsp;
  806.  
  807. #define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
  808. #else
  809. #define YYPOPSTACK   (yyvsp--, yyssp--)
  810. #endif
  811.  
  812.   int yystacksize = YYINITDEPTH;
  813.  
  814. #ifdef YYPURE
  815.   int yychar;
  816.   YYSTYPE yylval;
  817.   int yynerrs;
  818. #ifdef YYLSP_NEEDED
  819.   YYLTYPE yylloc;
  820. #endif
  821. #endif
  822.  
  823.   YYSTYPE yyval;        /*  the variable used to return        */
  824.                 /*  semantic values from the action    */
  825.                 /*  routines                */
  826.  
  827.   int yylen;
  828.  
  829. #if YYDEBUG != 0
  830.   if (yydebug)
  831.     fprintf(stderr, "Starting parse\n");
  832. #endif
  833.  
  834.   yystate = 0;
  835.   yyerrstatus = 0;
  836.   yynerrs = 0;
  837.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  838.  
  839.   /* Initialize stack pointers.
  840.      Waste one element of value and location stack
  841.      so that they stay on the same level as the state stack.  */
  842.  
  843.   yyssp = yyss - 1;
  844.   yyvsp = yyvs;
  845. #ifdef YYLSP_NEEDED
  846.   yylsp = yyls;
  847. #endif
  848.  
  849. /* Push a new state, which is found in  yystate  .  */
  850. /* In all cases, when you get here, the value and location stacks
  851.    have just been pushed. so pushing a state here evens the stacks.  */
  852. yynewstate:
  853.  
  854.   *++yyssp = yystate;
  855.  
  856.   if (yyssp >= yyss + yystacksize - 1)
  857.     {
  858.       /* Give user a chance to reallocate the stack */
  859.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  860.       YYSTYPE *yyvs1 = yyvs;
  861.       short *yyss1 = yyss;
  862. #ifdef YYLSP_NEEDED
  863.       YYLTYPE *yyls1 = yyls;
  864. #endif
  865.  
  866.       /* Get the current used size of the three stacks, in elements.  */
  867.       int size = yyssp - yyss + 1;
  868.  
  869. #ifdef yyoverflow
  870.       /* Each stack pointer address is followed by the size of
  871.      the data in use in that stack, in bytes.  */
  872.       yyoverflow("parser stack overflow",
  873.          &yyss1, size * sizeof (*yyssp),
  874.          &yyvs1, size * sizeof (*yyvsp),
  875. #ifdef YYLSP_NEEDED
  876.          &yyls1, size * sizeof (*yylsp),
  877. #endif
  878.          &yystacksize);
  879.  
  880.       yyss = yyss1; yyvs = yyvs1;
  881. #ifdef YYLSP_NEEDED
  882.       yyls = yyls1;
  883. #endif
  884. #else /* no yyoverflow */
  885.       /* Extend the stack our own way.  */
  886.       if (yystacksize >= YYMAXDEPTH)
  887.     {
  888.       yyerror("parser stack overflow");
  889.       return 2;
  890.     }
  891.       yystacksize *= 2;
  892.       if (yystacksize > YYMAXDEPTH)
  893.     yystacksize = YYMAXDEPTH;
  894.       yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
  895.       __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  896.       yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
  897.       __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  898. #ifdef YYLSP_NEEDED
  899.       yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
  900.       __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  901. #endif
  902. #endif /* no yyoverflow */
  903.  
  904.       yyssp = yyss + size - 1;
  905.       yyvsp = yyvs + size - 1;
  906. #ifdef YYLSP_NEEDED
  907.       yylsp = yyls + size - 1;
  908. #endif
  909.  
  910. #if YYDEBUG != 0
  911.       if (yydebug)
  912.     fprintf(stderr, "Stack size increased to %d\n", yystacksize);
  913. #endif
  914.  
  915.       if (yyssp >= yyss + yystacksize - 1)
  916.     YYABORT;
  917.     }
  918.  
  919. #if YYDEBUG != 0
  920.   if (yydebug)
  921.     fprintf(stderr, "Entering state %d\n", yystate);
  922. #endif
  923.  
  924.  yybackup:
  925.  
  926. /* Do appropriate processing given the current state.  */
  927. /* Read a lookahead token if we need one and don't already have one.  */
  928. /* yyresume: */
  929.  
  930.   /* First try to decide what to do without reference to lookahead token.  */
  931.  
  932.   yyn = yypact[yystate];
  933.   if (yyn == YYFLAG)
  934.     goto yydefault;
  935.  
  936.   /* Not known => get a lookahead token if don't already have one.  */
  937.  
  938.   /* yychar is either YYEMPTY or YYEOF
  939.      or a valid token in external form.  */
  940.  
  941.   if (yychar == YYEMPTY)
  942.     {
  943. #if YYDEBUG != 0
  944.       if (yydebug)
  945.     fprintf(stderr, "Reading a token: ");
  946. #endif
  947.       yychar = YYLEX;
  948.     }
  949.  
  950.   /* Convert token to internal form (in yychar1) for indexing tables with */
  951.  
  952.   if (yychar <= 0)        /* This means end of input. */
  953.     {
  954.       yychar1 = 0;
  955.       yychar = YYEOF;        /* Don't call YYLEX any more */
  956.  
  957. #if YYDEBUG != 0
  958.       if (yydebug)
  959.     fprintf(stderr, "Now at end of input.\n");
  960. #endif
  961.     }
  962.   else
  963.     {
  964.       yychar1 = YYTRANSLATE(yychar);
  965.  
  966. #if YYDEBUG != 0
  967.       if (yydebug)
  968.     {
  969.       fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
  970.       /* Give the individual parser a way to print the precise meaning
  971.          of a token, for further debugging info.  */
  972. #ifdef YYPRINT
  973.       YYPRINT (stderr, yychar, yylval);
  974. #endif
  975.       fprintf (stderr, ")\n");
  976.     }
  977. #endif
  978.     }
  979.  
  980.   yyn += yychar1;
  981.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  982.     goto yydefault;
  983.  
  984.   yyn = yytable[yyn];
  985.  
  986.   /* yyn is what to do for this token type in this state.
  987.      Negative => reduce, -yyn is rule number.
  988.      Positive => shift, yyn is new state.
  989.        New state is final state => don't bother to shift,
  990.        just return success.
  991.      0, or most negative number => error.  */
  992.  
  993.   if (yyn < 0)
  994.     {
  995.       if (yyn == YYFLAG)
  996.     goto yyerrlab;
  997.       yyn = -yyn;
  998.       goto yyreduce;
  999.     }
  1000.   else if (yyn == 0)
  1001.     goto yyerrlab;
  1002.  
  1003.   if (yyn == YYFINAL)
  1004.     YYACCEPT;
  1005.  
  1006.   /* Shift the lookahead token.  */
  1007.  
  1008. #if YYDEBUG != 0
  1009.   if (yydebug)
  1010.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1011. #endif
  1012.  
  1013.   /* Discard the token being shifted unless it is eof.  */
  1014.   if (yychar != YYEOF)
  1015.     yychar = YYEMPTY;
  1016.  
  1017.   *++yyvsp = yylval;
  1018. #ifdef YYLSP_NEEDED
  1019.   *++yylsp = yylloc;
  1020. #endif
  1021.  
  1022.   /* count tokens shifted since error; after three, turn off error status.  */
  1023.   if (yyerrstatus) yyerrstatus--;
  1024.  
  1025.   yystate = yyn;
  1026.   goto yynewstate;
  1027.  
  1028. /* Do the default action for the current state.  */
  1029. yydefault:
  1030.  
  1031.   yyn = yydefact[yystate];
  1032.   if (yyn == 0)
  1033.     goto yyerrlab;
  1034.  
  1035. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1036. yyreduce:
  1037.   yylen = yyr2[yyn];
  1038.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1039.  
  1040. #if YYDEBUG != 0
  1041.   if (yydebug)
  1042.     {
  1043.       int i;
  1044.  
  1045.       fprintf (stderr, "Reducing via rule %d (line %d), ",
  1046.            yyn, yyrline[yyn]);
  1047.  
  1048.       /* Print the symboles being reduced, and their result.  */
  1049.       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  1050.     fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  1051.       fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  1052.     }
  1053. #endif
  1054.  
  1055.  
  1056.   switch (yyn) {
  1057.  
  1058. case 1:
  1059. #line 164 "yacc.y"
  1060. {
  1061.            if (!axiom)
  1062.              yyerror("no axiom defined");
  1063.            if (!derivation)
  1064.              yyerror("no derivation list defined");
  1065.  
  1066.            lsystem = new LSystem(Name(yyvsp[-5].name), yyvsp[-1].table_list, axiom, derivation);
  1067.            theOptions.hulls = theHulls;
  1068.            delete yyvsp[-5].name;
  1069.          ;
  1070.     break;}
  1071. case 2:
  1072. #line 176 "yacc.y"
  1073. { definingLocalConst = 1; ;
  1074.     break;}
  1075. case 7:
  1076. #line 188 "yacc.y"
  1077. { 
  1078.            if (definingLocalConst) {
  1079.              if (!LocalConst->insert(*yyvsp[-3].name, yyvsp[-1].expr->simplify()))
  1080.                yyerror("Constant " + *yyvsp[-3].name + " already defined");
  1081.            }
  1082.            else {
  1083.              if (!GlobalConst.insert(*yyvsp[-3].name, yyvsp[-1].expr->simplify()))
  1084.                yyerror("Constant " + *yyvsp[-3].name + " already defined");
  1085.            }
  1086.            delete yyvsp[-3].name;
  1087.          ;
  1088.     break;}
  1089. case 10:
  1090. #line 206 "yacc.y"
  1091. {
  1092.            if (!theHulls->insert(*yyvsp[-4].name, yyvsp[-2].hull))
  1093.              yyerror("hull " + *yyvsp[-4].name + " already defined");
  1094.            delete yyvsp[-4].name;
  1095.          ;
  1096.     break;}
  1097. case 11:
  1098. #line 214 "yacc.y"
  1099. {
  1100.            yyval.hull = new Hull;
  1101.            yyval.hull->addPrimitive(yyvsp[0].geoObject);
  1102.          ;
  1103.     break;}
  1104. case 12:
  1105. #line 219 "yacc.y"
  1106. {
  1107.            if (!yyvsp[-1].geoObject->setTransform(yyvsp[0].trans)) 
  1108.              yyerror("singular matrix");
  1109.  
  1110.            yyval.hull = new Hull;
  1111.            yyval.hull->addPrimitive(yyvsp[-1].geoObject);
  1112.          ;
  1113.     break;}
  1114. case 13:
  1115. #line 227 "yacc.y"
  1116. { 
  1117.            yyval.hull = yyvsp[-1].hull;
  1118.            yyval.hull->addPrimitive(yyvsp[0].geoObject);
  1119.          ;
  1120.     break;}
  1121. case 14:
  1122. #line 232 "yacc.y"
  1123. { 
  1124.            if (!yyvsp[-1].geoObject->setTransform(yyvsp[0].trans)) 
  1125.              yyerror("singular matrix");
  1126.  
  1127.            yyval.hull = yyvsp[-2].hull;
  1128.            yyval.hull->addPrimitive(yyvsp[-1].geoObject);
  1129.          ;
  1130.     break;}
  1131. case 15:
  1132. #line 242 "yacc.y"
  1133. {
  1134.            if ((yyval.geoObject = Sphere::create(yyvsp[-1].realnumber, *yyvsp[0].vector)) == NULL)
  1135.              yyerror("degenerate sphere");
  1136.  
  1137.            delete yyvsp[0].vector;
  1138.                  ;
  1139.     break;}
  1140. case 16:
  1141. #line 249 "yacc.y"
  1142. {
  1143.            if ((yyval.geoObject = Triangle::create(*yyvsp[-2].vector, *yyvsp[-1].vector, *yyvsp[0].vector)) == NULL)
  1144.              yyerror("degenerate triangle");
  1145.  
  1146.            delete yyvsp[-2].vector; 
  1147.            delete yyvsp[-1].vector; 
  1148.            delete yyvsp[0].vector;
  1149.                  ;
  1150.     break;}
  1151. case 17:
  1152. #line 258 "yacc.y"
  1153. {
  1154.            if ((yyval.geoObject = Plane::create(*yyvsp[-1].vector, *yyvsp[0].vector)) == NULL)
  1155.              yyerror("degenerate plane normal");
  1156.  
  1157.            delete yyvsp[-1].vector; 
  1158.            delete yyvsp[0].vector;
  1159.                  ;
  1160.     break;}
  1161. case 18:
  1162. #line 266 "yacc.y"
  1163. {
  1164.            if ((yyval.geoObject = Cylinder::create(yyvsp[-2].realnumber, *yyvsp[-1].vector, *yyvsp[0].vector)) == NULL)
  1165.              yyerror("degenerate cylinder");
  1166.  
  1167.            delete yyvsp[-1].vector; 
  1168.            delete yyvsp[0].vector;
  1169.                  ;
  1170.     break;}
  1171. case 19:
  1172. #line 274 "yacc.y"
  1173. {
  1174.            if ((yyval.geoObject = Cone::create(yyvsp[-3].realnumber, *yyvsp[-2].vector, yyvsp[-1].realnumber, *yyvsp[0].vector)) == NULL)
  1175.              yyerror("degenerate cone");
  1176.  
  1177.            delete yyvsp[-2].vector; 
  1178.            delete yyvsp[0].vector;
  1179.                  ;
  1180.     break;}
  1181. case 20:
  1182. #line 284 "yacc.y"
  1183. { 
  1184.            yyval.vector = new Vector(yyvsp[-2].realnumber, yyvsp[-1].realnumber, yyvsp[0].realnumber);
  1185.          ;
  1186.     break;}
  1187. case 21:
  1188. #line 290 "yacc.y"
  1189. { 
  1190.            yyval.realnumber = *yyvsp[0].value; 
  1191.            delete yyvsp[0].value;
  1192.          ;
  1193.     break;}
  1194. case 22:
  1195. #line 295 "yacc.y"
  1196. {
  1197.            yyval.realnumber = *yyvsp[0].value;
  1198.            yyval.realnumber = -yyval.realnumber;
  1199.            delete yyvsp[0].value;
  1200.          ;
  1201.     break;}
  1202. case 23:
  1203. #line 301 "yacc.y"
  1204. { 
  1205.            yyval.realnumber = *yyvsp[0].value; 
  1206.            delete yyvsp[0].value;
  1207.          ;
  1208.     break;}
  1209. case 24:
  1210. #line 306 "yacc.y"
  1211. {
  1212.            Expression *expr;
  1213.  
  1214.            if (!GlobalConst.lookup(*yyvsp[0].name, expr))
  1215.              yyerror(*yyvsp[0].name + " unknown");
  1216.            else
  1217.                      yyval.realnumber = expr->evaluate();
  1218.  
  1219.            delete yyvsp[0].name;
  1220.          ;
  1221.     break;}
  1222. case 25:
  1223. #line 319 "yacc.y"
  1224. { 
  1225.            yyval.trans = yyvsp[0].trans;
  1226.              ;
  1227.     break;}
  1228. case 26:
  1229. #line 323 "yacc.y"
  1230. {
  1231.            (*yyvsp[-1].trans) *= (*yyvsp[0].trans);
  1232.            yyval.trans = yyvsp[-1].trans;
  1233.            delete yyvsp[0].trans;
  1234.          ;
  1235.     break;}
  1236. case 27:
  1237. #line 331 "yacc.y"
  1238. {
  1239.            yyval.trans = new TransMatrix;
  1240.            yyval.trans->translate(*yyvsp[0].vector);
  1241.            delete yyvsp[0].vector;
  1242.          ;
  1243.     break;}
  1244. case 28:
  1245. #line 337 "yacc.y"
  1246. {
  1247.            yyval.trans = new TransMatrix;
  1248.            yyval.trans->scale(yyvsp[-2].realnumber, yyvsp[-1].realnumber, yyvsp[0].realnumber);
  1249.          ;
  1250.     break;}
  1251. case 29:
  1252. #line 342 "yacc.y"
  1253. {
  1254.            yyval.trans = new TransMatrix;
  1255.            yyval.trans->rotate(*yyvsp[-1].vector, dtor(yyvsp[0].realnumber));
  1256.            delete yyvsp[-1].vector;
  1257.          ;
  1258.     break;}
  1259. case 30:
  1260. #line 348 "yacc.y"
  1261. {
  1262.            yyval.trans = new TransMatrix(*yyvsp[-2].vector, *yyvsp[-1].vector, *yyvsp[0].vector);
  1263.            delete yyvsp[-2].vector;
  1264.            delete yyvsp[-1].vector;
  1265.            delete yyvsp[0].vector;
  1266.          ;
  1267.     break;}
  1268. case 31:
  1269. #line 355 "yacc.y"
  1270. {
  1271.            yyval.trans = new TransMatrix(*yyvsp[-3].vector, *yyvsp[-2].vector, *yyvsp[-1].vector, *yyvsp[0].vector);
  1272.            delete yyvsp[-3].vector;
  1273.            delete yyvsp[-2].vector;
  1274.            delete yyvsp[-1].vector;
  1275.            delete yyvsp[0].vector;
  1276.          ;
  1277.     break;}
  1278. case 32:
  1279. #line 365 "yacc.y"
  1280. { 
  1281.            yyval.table_list = new TableList(1);
  1282.            yyval.table_list->append(yyvsp[0].table);
  1283.          ;
  1284.     break;}
  1285. case 33:
  1286. #line 370 "yacc.y"
  1287. { 
  1288.            yyval.table_list = yyvsp[-1].table_list;
  1289.            yyval.table_list->append(yyvsp[0].table);
  1290.          ;
  1291.     break;}
  1292. case 34:
  1293. #line 377 "yacc.y"
  1294. {
  1295.            Table *table = new Table(Name(yyvsp[-5].name), yyvsp[-2].prod_list);
  1296.            if (!theTables.insert(*yyvsp[-5].name, table))
  1297.              yyerror("Table " + *yyvsp[-5].name + " already defined");
  1298.            else {
  1299.              // delete current local constants
  1300.              delete LocalConst;
  1301.              LocalConst = new ExprSymtab(503);
  1302.  
  1303.              yyval.table = table;
  1304.            }
  1305.            delete yyvsp[-5].name;
  1306.          ;
  1307.     break;}
  1308. case 35:
  1309. #line 393 "yacc.y"
  1310. { 
  1311.            nthParam = 0; 
  1312.            yyval.prod_list = new ProductionList;
  1313.            yyval.prod_list->append(yyvsp[0].production);
  1314.          ;
  1315.     break;}
  1316. case 36:
  1317. #line 399 "yacc.y"
  1318. { 
  1319.            nthParam = 0; 
  1320.            yyval.prod_list = yyvsp[-1].prod_list;
  1321.            yyval.prod_list->append(yyvsp[0].production);
  1322.          ;
  1323.     break;}
  1324. case 37:
  1325. #line 407 "yacc.y"
  1326. { 
  1327.            yyval.production = new Production(yyvsp[-2].predecessor, NULL, yyvsp[-1].succ_list);
  1328.            if (yyval.production->cumulateProbability())
  1329.              yyerror("Sum of production probabilities is > 1");
  1330.  
  1331.                    delete FormalParam;
  1332.            FormalParam = new IntSymtab(17);
  1333.          ;
  1334.     break;}
  1335. case 38:
  1336. #line 416 "yacc.y"
  1337. {
  1338.            yyval.production = new Production(yyvsp[-3].predecessor, yyvsp[-2].expr, yyvsp[-1].succ_list);
  1339.            if (yyval.production->cumulateProbability())
  1340.              yyerror("Sum of production probabilities is > 1");
  1341.  
  1342.                    delete FormalParam;
  1343.            FormalParam = new IntSymtab(17);
  1344.          ;
  1345.     break;}
  1346. case 39:
  1347. #line 427 "yacc.y"
  1348. { 
  1349.            yyval.predecessor = new Predecessor(Name(yyvsp[0].name), NULL); 
  1350.            delete yyvsp[0].name;
  1351.          ;
  1352.     break;}
  1353. case 40:
  1354. #line 432 "yacc.y"
  1355. { 
  1356.            yyval.predecessor = new Predecessor(Name(yyvsp[-1].name), yyvsp[0].name_list); 
  1357.            delete yyvsp[-1].name;
  1358.          ;
  1359.     break;}
  1360. case 41:
  1361. #line 439 "yacc.y"
  1362. { yyval.name = new rcString("{"); ;
  1363.     break;}
  1364. case 42:
  1365. #line 441 "yacc.y"
  1366. { yyval.name = new rcString("}"); ;
  1367.     break;}
  1368. case 43:
  1369. #line 443 "yacc.y"
  1370. { yyval.name = new rcString("["); ;
  1371.     break;}
  1372. case 44:
  1373. #line 445 "yacc.y"
  1374. { yyval.name = new rcString("]"); ;
  1375.     break;}
  1376. case 45:
  1377. #line 447 "yacc.y"
  1378. { yyval.name = new rcString("^"); ;
  1379.     break;}
  1380. case 46:
  1381. #line 449 "yacc.y"
  1382. { yyval.name = new rcString("&"); ;
  1383.     break;}
  1384. case 47:
  1385. #line 451 "yacc.y"
  1386. { yyval.name = new rcString("+"); ;
  1387.     break;}
  1388. case 48:
  1389. #line 453 "yacc.y"
  1390. { yyval.name = new rcString("-"); ;
  1391.     break;}
  1392. case 49:
  1393. #line 455 "yacc.y"
  1394. { yyval.name = new rcString("\\"); ;
  1395.     break;}
  1396. case 50:
  1397. #line 457 "yacc.y"
  1398. { yyval.name = new rcString("/"); ;
  1399.     break;}
  1400. case 51:
  1401. #line 459 "yacc.y"
  1402. { yyval.name = new rcString("|"); ;
  1403.     break;}
  1404. case 52:
  1405. #line 461 "yacc.y"
  1406. { yyval.name = new rcString("$"); ;
  1407.     break;}
  1408. case 53:
  1409. #line 463 "yacc.y"
  1410. { yyval.name = new rcString("."); ;
  1411.     break;}
  1412. case 54:
  1413. #line 465 "yacc.y"
  1414. { yyval.name = new rcString("~"); ;
  1415.     break;}
  1416. case 55:
  1417. #line 467 "yacc.y"
  1418. { yyval.name = yyvsp[0].name; ;
  1419.     break;}
  1420. case 56:
  1421. #line 471 "yacc.y"
  1422. { yyval.name_list = yyvsp[-1].name_list; ;
  1423.     break;}
  1424. case 57:
  1425. #line 475 "yacc.y"
  1426. { 
  1427.            yyval.name_list = new NameList(1);
  1428.            yyval.name_list->append(new Name(yyvsp[0].name));
  1429.            if (!FormalParam->insert(*yyvsp[0].name, nthParam++))
  1430.              yyerror("Parameter " + *yyvsp[0].name + " already used");
  1431.  
  1432.            delete yyvsp[0].name;
  1433.          ;
  1434.     break;}
  1435. case 58:
  1436. #line 484 "yacc.y"
  1437. { 
  1438.            yyval.name_list = yyvsp[-2].name_list;
  1439.            yyval.name_list->append(new Name(yyvsp[0].name));
  1440.            if (!FormalParam->insert(*yyvsp[0].name, nthParam++))
  1441.              yyerror("Parameter " + *yyvsp[0].name + " already used");
  1442.  
  1443.            delete yyvsp[0].name;
  1444.          ;
  1445.     break;}
  1446. case 59:
  1447. #line 495 "yacc.y"
  1448. { yyval.expr = yyvsp[0].expr->simplify(); ;
  1449.     break;}
  1450. case 60:
  1451. #line 499 "yacc.y"
  1452. {
  1453.            yyval.succ_list = new SuccessorList(1);
  1454.            yyval.succ_list->append(yyvsp[0].successor);
  1455.          ;
  1456.     break;}
  1457. case 61:
  1458. #line 504 "yacc.y"
  1459. { 
  1460.            yyval.succ_list = yyvsp[-1].succ_list;
  1461.            yyval.succ_list->append(yyvsp[0].successor);
  1462.          ;
  1463.     break;}
  1464. case 62:
  1465. #line 511 "yacc.y"
  1466. {
  1467.            yyval.successor = new Successor(yyvsp[-1].realnumber, yyvsp[0].module_list);
  1468.          ;
  1469.     break;}
  1470. case 63:
  1471. #line 515 "yacc.y"
  1472. {
  1473.            yyval.successor = new Successor(yyvsp[0].realnumber, NULL);
  1474.          ;
  1475.     break;}
  1476. case 64:
  1477. #line 520 "yacc.y"
  1478. { yyval.realnumber = 1.0; ;
  1479.     break;}
  1480. case 65:
  1481. #line 521 "yacc.y"
  1482. { yyval.realnumber = *yyvsp[-1].value;
  1483.                   delete yyvsp[-1].value;
  1484.                 ;
  1485.     break;}
  1486. case 66:
  1487. #line 527 "yacc.y"
  1488. {
  1489.            yyval.module_list = new ProdModuleList(1);
  1490.            yyval.module_list->append(yyvsp[0].module);
  1491.          ;
  1492.     break;}
  1493. case 67:
  1494. #line 532 "yacc.y"
  1495. {
  1496.            yyval.module_list = yyvsp[-1].module_list;
  1497.            yyval.module_list->append(yyvsp[0].module);
  1498.          ;
  1499.     break;}
  1500. case 68:
  1501. #line 539 "yacc.y"
  1502. {
  1503.            yyval.module = new ProdModule(Name(yyvsp[0].name), NULL);
  1504.            delete yyvsp[0].name;
  1505.          ;
  1506.     break;}
  1507. case 69:
  1508. #line 544 "yacc.y"
  1509. {
  1510.            yyval.module = new ProdModule(Name(yyvsp[-3].name), yyvsp[-1].expr_list);
  1511.            delete yyvsp[-3].name;
  1512.          ;
  1513.     break;}
  1514. case 70:
  1515. #line 551 "yacc.y"
  1516. {
  1517.            yyval.expr_list = new ExpressionList(1);
  1518.            yyval.expr_list->append(yyvsp[0].expr->simplify());
  1519.          ;
  1520.     break;}
  1521. case 71:
  1522. #line 556 "yacc.y"
  1523. {
  1524.            yyvsp[-2].expr_list->append(yyvsp[0].expr->simplify());
  1525.            yyval.expr_list = yyvsp[-2].expr_list;
  1526.          ;
  1527.     break;}
  1528. case 72:
  1529. #line 562 "yacc.y"
  1530. { yyval.expr = new Expression(new ValueItem(yyvsp[0].value));
  1531.               delete yyvsp[0].value;
  1532.             ;
  1533.     break;}
  1534. case 73:
  1535. #line 566 "yacc.y"
  1536. { yyval.expr = new Expression(new Variable(Name("tx"),
  1537.                           Interpreter::getTx())); 
  1538.          ;
  1539.     break;}
  1540. case 74:
  1541. #line 570 "yacc.y"
  1542. { yyval.expr = new Expression(new Variable(Name("ty"), 
  1543.                           Interpreter::getTy())); ;
  1544.     break;}
  1545. case 75:
  1546. #line 573 "yacc.y"
  1547. { yyval.expr = new Expression(new Variable(Name("tz"), 
  1548.                           Interpreter::getTz())); ;
  1549.     break;}
  1550. case 76:
  1551. #line 576 "yacc.y"
  1552. { Expression *expr;
  1553.            int nth;
  1554.            
  1555.            // a formal parameter, local or global constant ?
  1556.            if (!FormalParam->lookup(*yyvsp[0].name, nth)) {
  1557.              if (!LocalConst->lookup(*yyvsp[0].name, expr)) {
  1558.                if (!GlobalConst.lookup(*yyvsp[0].name, expr))
  1559.              yyerror("`" + *yyvsp[0].name + "' unknown");
  1560.                else
  1561.              yyval.expr = new Expression(*expr);
  1562.              }
  1563.              else
  1564.                yyval.expr = new Expression(*expr);
  1565.            }
  1566.            else
  1567.              yyval.expr = new Expression(new Variable(Name(yyvsp[0].name), 
  1568.                               Formals(nth)));
  1569.            delete yyvsp[0].name;
  1570.          ;
  1571.     break;}
  1572. case 77:
  1573. #line 596 "yacc.y"
  1574. {
  1575.            Expression *expr;
  1576.  
  1577.            if (!GlobalConst.lookup(*yyvsp[0].name, expr))
  1578.              yyerror("::" + *yyvsp[0].name + " unknown");
  1579.            else
  1580.              yyval.expr = new Expression(*expr);
  1581.  
  1582.            delete yyvsp[0].name;
  1583.          ;
  1584.     break;}
  1585. case 78:
  1586. #line 607 "yacc.y"
  1587. { yyval.expr = new Expression(new Or,  yyvsp[-2].expr, yyvsp[0].expr); ;
  1588.     break;}
  1589. case 79:
  1590. #line 609 "yacc.y"
  1591. { yyval.expr = new Expression(new And, yyvsp[-2].expr, yyvsp[0].expr); ;
  1592.     break;}
  1593. case 80:
  1594. #line 611 "yacc.y"
  1595. { yyval.expr = new Expression(new Eq,  yyvsp[-2].expr, yyvsp[0].expr); ;
  1596.     break;}
  1597. case 81:
  1598. #line 613 "yacc.y"
  1599. { yyval.expr = new Expression(new Neq, yyvsp[-2].expr, yyvsp[0].expr); ;
  1600.     break;}
  1601. case 82:
  1602. #line 615 "yacc.y"
  1603. { yyval.expr = new Expression(new Geq, yyvsp[-2].expr, yyvsp[0].expr); ;
  1604.     break;}
  1605. case 83:
  1606. #line 617 "yacc.y"
  1607. { yyval.expr = new Expression(new Leq, yyvsp[-2].expr, yyvsp[0].expr); ;
  1608.     break;}
  1609. case 84:
  1610. #line 619 "yacc.y"
  1611. { yyval.expr = new Expression(new Gt,  yyvsp[-2].expr, yyvsp[0].expr); ;
  1612.     break;}
  1613. case 85:
  1614. #line 621 "yacc.y"
  1615. { yyval.expr = new Expression(new Lt,  yyvsp[-2].expr, yyvsp[0].expr); ;
  1616.     break;}
  1617. case 86:
  1618. #line 623 "yacc.y"
  1619. { yyval.expr = new Expression(new Not,  yyvsp[0].expr); ;
  1620.     break;}
  1621. case 87:
  1622. #line 626 "yacc.y"
  1623. { yyval.expr = new Expression(new Add, yyvsp[-2].expr, yyvsp[0].expr); ;
  1624.     break;}
  1625. case 88:
  1626. #line 628 "yacc.y"
  1627. { yyval.expr = new Expression(new Sub, yyvsp[-2].expr, yyvsp[0].expr); ;
  1628.     break;}
  1629. case 89:
  1630. #line 630 "yacc.y"
  1631. { yyval.expr = new Expression(new Mul, yyvsp[-2].expr, yyvsp[0].expr); ;
  1632.     break;}
  1633. case 90:
  1634. #line 632 "yacc.y"
  1635. { yyval.expr = new Expression(new Div, yyvsp[-2].expr, yyvsp[0].expr); ;
  1636.     break;}
  1637. case 91:
  1638. #line 634 "yacc.y"
  1639. { yyval.expr = new Expression(new Mod, yyvsp[-2].expr, yyvsp[0].expr); ;
  1640.     break;}
  1641. case 92:
  1642. #line 636 "yacc.y"
  1643. { yyval.expr = new Expression(new Pow, yyvsp[-2].expr, yyvsp[0].expr); ;
  1644.     break;}
  1645. case 93:
  1646. #line 638 "yacc.y"
  1647. { yyval.expr = new Expression(new Pow, yyvsp[-2].expr, yyvsp[0].expr); ;
  1648.     break;}
  1649. case 94:
  1650. #line 640 "yacc.y"
  1651. { yyval.expr = new Expression(new Uminus,  yyvsp[0].expr); ;
  1652.     break;}
  1653. case 95:
  1654. #line 643 "yacc.y"
  1655. { yyval.expr = new Expression(new Sin, yyvsp[0].expr); ;
  1656.     break;}
  1657. case 96:
  1658. #line 645 "yacc.y"
  1659. { yyval.expr = new Expression(new Cos, yyvsp[0].expr); ;
  1660.     break;}
  1661. case 97:
  1662. #line 647 "yacc.y"
  1663. { yyval.expr = new Expression(new Tan, yyvsp[0].expr); ;
  1664.     break;}
  1665. case 98:
  1666. #line 649 "yacc.y"
  1667. { yyval.expr = new Expression(new Asin, yyvsp[0].expr); ;
  1668.     break;}
  1669. case 99:
  1670. #line 651 "yacc.y"
  1671. { yyval.expr = new Expression(new Acos, yyvsp[0].expr); ;
  1672.     break;}
  1673. case 100:
  1674. #line 653 "yacc.y"
  1675. { yyval.expr = new Expression(new Atan, yyvsp[0].expr); ;
  1676.     break;}
  1677. case 101:
  1678. #line 655 "yacc.y"
  1679. { yyval.expr = new Expression(new Abs, yyvsp[0].expr); ;
  1680.     break;}
  1681. case 102:
  1682. #line 657 "yacc.y"
  1683. { yyval.expr = new Expression(new Sqrt, yyvsp[0].expr); ;
  1684.     break;}
  1685. case 103:
  1686. #line 659 "yacc.y"
  1687. { yyval.expr = new Expression(new Exp, yyvsp[0].expr); ;
  1688.     break;}
  1689. case 104:
  1690. #line 661 "yacc.y"
  1691. { yyval.expr = new Expression(new Log, yyvsp[0].expr); ;
  1692.     break;}
  1693. case 105:
  1694. #line 663 "yacc.y"
  1695. { yyval.expr = new Expression(new Log, yyvsp[0].expr); ;
  1696.     break;}
  1697. case 106:
  1698. #line 665 "yacc.y"
  1699. { yyval.expr = new Expression(new Rand); ;
  1700.     break;}
  1701. case 107:
  1702. #line 667 "yacc.y"
  1703. { yyval.expr = new Expression(new Gauss); ;
  1704.     break;}
  1705. case 108:
  1706. #line 669 "yacc.y"
  1707. { yyval.expr = new Expression(new If, yyvsp[-5].expr, yyvsp[-3].expr, yyvsp[-1].expr); ;
  1708.     break;}
  1709. case 109:
  1710. #line 671 "yacc.y"
  1711. { 
  1712.            yyerror("Function " + *yyvsp[-1].name + "() unknown"); 
  1713.          ;
  1714.     break;}
  1715. case 110:
  1716. #line 675 "yacc.y"
  1717. { 
  1718.            yyerror("Function " + *yyvsp[-3].name + "(arguments) unknown"); 
  1719.          ;
  1720.     break;}
  1721. case 111:
  1722. #line 679 "yacc.y"
  1723. { yyval.expr = yyvsp[-1].expr; ;
  1724.     break;}
  1725. case 112:
  1726. #line 683 "yacc.y"
  1727. { yyval.expr = NULL; ;
  1728.     break;}
  1729. case 113:
  1730. #line 686 "yacc.y"
  1731. { yyval.expr = yyvsp[-1].expr->simplify(); ;
  1732.     break;}
  1733. case 117:
  1734. #line 697 "yacc.y"
  1735. { derivation = yyvsp[-1].derivations; ;
  1736.     break;}
  1737. case 118:
  1738. #line 699 "yacc.y"
  1739. { axiom = yyvsp[-1].module_list; ;
  1740.     break;}
  1741. case 119:
  1742. #line 701 "yacc.y"
  1743. { 
  1744.            theOptions.defaultPitch = dtor(yyvsp[-1].expr->evaluate());
  1745.            delete yyvsp[-1].expr;
  1746.          ;
  1747.     break;}
  1748. case 120:
  1749. #line 706 "yacc.y"
  1750. { theOptions.defaultRoll = dtor(yyvsp[-1].expr->evaluate());
  1751.            delete yyvsp[-1].expr;
  1752.          ;
  1753.     break;}
  1754. case 121:
  1755. #line 710 "yacc.y"
  1756. { 
  1757.            theOptions.defaultTurn = dtor(yyvsp[-1].expr->evaluate());
  1758.            delete yyvsp[-1].expr;
  1759.          ;
  1760.     break;}
  1761. case 122:
  1762. #line 715 "yacc.y"
  1763. { 
  1764.            theOptions.defaultPitch = 
  1765.            theOptions.defaultRoll  = 
  1766.            theOptions.defaultTurn  =  dtor(yyvsp[-1].expr->evaluate());
  1767.            delete yyvsp[-1].expr;
  1768.          ;
  1769.     break;}
  1770. case 123:
  1771. #line 722 "yacc.y"
  1772. { 
  1773.            theOptions.defaultForward = yyvsp[-1].expr->evaluate();
  1774.            delete yyvsp[-1].expr;
  1775.          ;
  1776.     break;}
  1777. case 124:
  1778. #line 727 "yacc.y"
  1779. { 
  1780.            long now;
  1781.  
  1782. // #if defined(_AIX)
  1783. //              stime(&now);
  1784. //#elif defined(__DECCXX)
  1785.  
  1786. #if defined(__DECCXX)
  1787.            now = getpid();
  1788. #else
  1789.              time(&now);
  1790. #endif
  1791.            if (theOptions.verbose) 
  1792.              cerr << "randomize " << now << "\n";
  1793.            srand48(now);
  1794.          ;
  1795.     break;}
  1796. case 125:
  1797. #line 744 "yacc.y"
  1798. { 
  1799.            srand48((long)yyvsp[-1].expr->evaluate()); 
  1800.            delete yyvsp[-1].expr;
  1801.          ;
  1802.     break;}
  1803. case 126:
  1804. #line 749 "yacc.y"
  1805. { 
  1806.            theOptions.tropismX = yyvsp[-5].expr->simplify();
  1807.            theOptions.tropismY = yyvsp[-3].expr->simplify();
  1808.            theOptions.tropismZ = yyvsp[-1].expr->simplify();
  1809.          ;
  1810.     break;}
  1811. case 127:
  1812. #line 755 "yacc.y"
  1813. { 
  1814.            theOptions.weight = yyvsp[-1].expr->simplify();
  1815.          ;
  1816.     break;}
  1817. case 128:
  1818. #line 759 "yacc.y"
  1819. {
  1820.            theOptions.autoscale = 0;
  1821.            theOptions.eye = 
  1822.              Vector(yyvsp[-5].expr->evaluate(), yyvsp[-3].expr->evaluate(), yyvsp[-1].expr->evaluate());
  1823.            delete yyvsp[-5].expr; delete yyvsp[-3].expr; delete yyvsp[-1].expr;
  1824.          ;
  1825.     break;}
  1826. case 129:
  1827. #line 766 "yacc.y"
  1828. {
  1829.            theOptions.autoscale = 0;
  1830.            theOptions.lookat = 
  1831.              Vector(yyvsp[-5].expr->evaluate(), yyvsp[-3].expr->evaluate(), yyvsp[-1].expr->evaluate());
  1832.            delete yyvsp[-5].expr; delete yyvsp[-3].expr; delete yyvsp[-1].expr;
  1833.          ;
  1834.     break;}
  1835. case 130:
  1836. #line 773 "yacc.y"
  1837. {
  1838.            theOptions.up = 
  1839.              Vector(yyvsp[-5].expr->evaluate(), yyvsp[-3].expr->evaluate(), yyvsp[-1].expr->evaluate());
  1840.            delete yyvsp[-5].expr; delete yyvsp[-3].expr; delete yyvsp[-1].expr;
  1841.          ;
  1842.     break;}
  1843. case 131:
  1844. #line 779 "yacc.y"
  1845. {
  1846.            theOptions.fov = yyvsp[-1].expr->evaluate();
  1847.            delete yyvsp[-1].expr;
  1848.          ;
  1849.     break;}
  1850. case 132:
  1851. #line 784 "yacc.y"
  1852. {
  1853.            theOptions.coneResolution = (int) *yyvsp[-1].value;
  1854.            delete yyvsp[-1].value;
  1855.          ;
  1856.     break;}
  1857. case 133:
  1858. #line 789 "yacc.y"
  1859. {
  1860.            theOptions.sphereResolution = (int) *yyvsp[-1].value;
  1861.            delete yyvsp[-1].value;
  1862.          ;
  1863.     break;}
  1864. case 134:
  1865. #line 796 "yacc.y"
  1866. { Table *t;
  1867.  
  1868.            if (!theTables.lookup(*yyvsp[-1].name, t))
  1869.              yyerror("Unknown table " + *yyvsp[-1].name);
  1870.            else {
  1871.              yyval.derivations = new DerivationList(1);
  1872.              yyval.derivations->append(new DerivationItem(t,yyvsp[0].intnumber));
  1873.            }
  1874.            delete yyvsp[-1].name;
  1875.          ;
  1876.     break;}
  1877. case 135:
  1878. #line 807 "yacc.y"
  1879. { Table *t;
  1880.  
  1881.            yyval.derivations = yyvsp[-3].derivations;
  1882.            if (!theTables.lookup(*yyvsp[-1].name, t))
  1883.              yyerror("Unknown table " + *yyvsp[-1].name);
  1884.            else
  1885.              yyval.derivations->append(new DerivationItem(t,yyvsp[0].intnumber));
  1886.  
  1887.            delete yyvsp[-1].name;
  1888.          ;
  1889.     break;}
  1890. case 136:
  1891. #line 820 "yacc.y"
  1892. { yyval.intnumber = 1; ;
  1893.     break;}
  1894. case 137:
  1895. #line 822 "yacc.y"
  1896. { yyval.intnumber = (int) real(yyvsp[-1].expr->evaluate());
  1897.            delete yyvsp[-1].expr;
  1898.          ;
  1899.     break;}
  1900. case 138:
  1901. #line 826 "yacc.y"
  1902. { yyval.intnumber = -1; ;
  1903.     break;}
  1904. case 139:
  1905. #line 829 "yacc.y"
  1906. { yyerrok; ;
  1907.     break;}
  1908. case 140:
  1909. #line 830 "yacc.y"
  1910. { yyerrok; ;
  1911.     break;}
  1912. }
  1913.    /* the action file gets copied in in place of this dollarsign */
  1914. #line 440 "/usr/local/lib/bison/bison.simple"
  1915.  
  1916.   yyvsp -= yylen;
  1917.   yyssp -= yylen;
  1918. #ifdef YYLSP_NEEDED
  1919.   yylsp -= yylen;
  1920. #endif
  1921.  
  1922. #if YYDEBUG != 0
  1923.   if (yydebug)
  1924.     {
  1925.       short *ssp1 = yyss - 1;
  1926.       fprintf (stderr, "state stack now");
  1927.       while (ssp1 != yyssp)
  1928.     fprintf (stderr, " %d", *++ssp1);
  1929.       fprintf (stderr, "\n");
  1930.     }
  1931. #endif
  1932.  
  1933.   *++yyvsp = yyval;
  1934.  
  1935. #ifdef YYLSP_NEEDED
  1936.   yylsp++;
  1937.   if (yylen == 0)
  1938.     {
  1939.       yylsp->first_line = yylloc.first_line;
  1940.       yylsp->first_column = yylloc.first_column;
  1941.       yylsp->last_line = (yylsp-1)->last_line;
  1942.       yylsp->last_column = (yylsp-1)->last_column;
  1943.       yylsp->text = 0;
  1944.     }
  1945.   else
  1946.     {
  1947.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  1948.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  1949.     }
  1950. #endif
  1951.  
  1952.   /* Now "shift" the result of the reduction.
  1953.      Determine what state that goes to,
  1954.      based on the state we popped back to
  1955.      and the rule number reduced by.  */
  1956.  
  1957.   yyn = yyr1[yyn];
  1958.  
  1959.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1960.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1961.     yystate = yytable[yystate];
  1962.   else
  1963.     yystate = yydefgoto[yyn - YYNTBASE];
  1964.  
  1965.   goto yynewstate;
  1966.  
  1967. yyerrlab:   /* here on detecting error */
  1968.  
  1969.   if (! yyerrstatus)
  1970.     /* If not already recovering from an error, report this error.  */
  1971.     {
  1972.       ++yynerrs;
  1973.  
  1974. #ifdef YYERROR_VERBOSE
  1975.       yyn = yypact[yystate];
  1976.  
  1977.       if (yyn > YYFLAG && yyn < YYLAST)
  1978.     {
  1979.       int size = 0;
  1980.       char *msg;
  1981.       int x, count;
  1982.  
  1983.       count = 0;
  1984.       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  1985.         if (yycheck[x + yyn] == x)
  1986.           size += strlen(yytname[x]) + 15, count++;
  1987.       msg = (char *) malloc(size + 15);
  1988.       if (msg != 0)
  1989.         {
  1990.           strcpy(msg, "parse error");
  1991.  
  1992.           if (count < 5)
  1993.         {
  1994.           count = 0;
  1995.           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  1996.             if (yycheck[x + yyn] == x)
  1997.               {
  1998.             strcat(msg, count == 0 ? ", expecting `" : " or `");
  1999.             strcat(msg, yytname[x]);
  2000.             strcat(msg, "'");
  2001.             count++;
  2002.               }
  2003.         }
  2004.           yyerror(msg);
  2005.           free(msg);
  2006.         }
  2007.       else
  2008.         yyerror ("parse error; also virtual memory exceeded");
  2009.     }
  2010.       else
  2011. #endif /* YYERROR_VERBOSE */
  2012.     yyerror("parse error");
  2013.     }
  2014.  
  2015. yyerrlab1:   /* here on error raised explicitly by an action */
  2016.  
  2017.   if (yyerrstatus == 3)
  2018.     {
  2019.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  2020.  
  2021.       /* return failure if at end of input */
  2022.       if (yychar == YYEOF)
  2023.     YYABORT;
  2024.  
  2025. #if YYDEBUG != 0
  2026.       if (yydebug)
  2027.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  2028. #endif
  2029.  
  2030.       yychar = YYEMPTY;
  2031.     }
  2032.  
  2033.   /* Else will try to reuse lookahead token
  2034.      after shifting the error token.  */
  2035.  
  2036.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  2037.  
  2038.   goto yyerrhandle;
  2039.  
  2040. yyerrdefault:  /* current state does not do anything special for the error token. */
  2041.  
  2042. #if 0
  2043.   /* This is wrong; only states that explicitly want error tokens
  2044.      should shift them.  */
  2045.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  2046.   if (yyn) goto yydefault;
  2047. #endif
  2048.  
  2049. yyerrpop:   /* pop the current state because it cannot handle the error token */
  2050.  
  2051.   if (yyssp == yyss) YYABORT;
  2052.   yyvsp--;
  2053.   yystate = *--yyssp;
  2054. #ifdef YYLSP_NEEDED
  2055.   yylsp--;
  2056. #endif
  2057.  
  2058. #if YYDEBUG != 0
  2059.   if (yydebug)
  2060.     {
  2061.       short *ssp1 = yyss - 1;
  2062.       fprintf (stderr, "Error: state stack now");
  2063.       while (ssp1 != yyssp)
  2064.     fprintf (stderr, " %d", *++ssp1);
  2065.       fprintf (stderr, "\n");
  2066.     }
  2067. #endif
  2068.  
  2069. yyerrhandle:
  2070.  
  2071.   yyn = yypact[yystate];
  2072.   if (yyn == YYFLAG)
  2073.     goto yyerrdefault;
  2074.  
  2075.   yyn += YYTERROR;
  2076.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  2077.     goto yyerrdefault;
  2078.  
  2079.   yyn = yytable[yyn];
  2080.   if (yyn < 0)
  2081.     {
  2082.       if (yyn == YYFLAG)
  2083.     goto yyerrpop;
  2084.       yyn = -yyn;
  2085.       goto yyreduce;
  2086.     }
  2087.   else if (yyn == 0)
  2088.     goto yyerrpop;
  2089.  
  2090.   if (yyn == YYFINAL)
  2091.     YYACCEPT;
  2092.  
  2093. #if YYDEBUG != 0
  2094.   if (yydebug)
  2095.     fprintf(stderr, "Shifting error token, ");
  2096. #endif
  2097.  
  2098.   *++yyvsp = yylval;
  2099. #ifdef YYLSP_NEEDED
  2100.   *++yylsp = yylloc;
  2101. #endif
  2102.  
  2103.   yystate = yyn;
  2104.   goto yynewstate;
  2105. }
  2106. #line 833 "yacc.y"
  2107.  
  2108.  
  2109.