home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / groff / pic / grot / pic.tab.c next >
Encoding:
C/C++ Source or Header  |  1991-04-30  |  96.9 KB  |  3,206 lines
  1.  
  2. /*  A Bison parser, made from pic.y  */
  3.  
  4. #define    LABEL    258
  5. #define    VARIABLE    259
  6. #define    NUMBER    260
  7. #define    TEXT    261
  8. #define    COMMAND    262
  9. #define    DELIMITED    263
  10. #define    ORDINAL    264
  11. #define    LEFT_ARROW_HEAD    265
  12. #define    RIGHT_ARROW_HEAD    266
  13. #define    DOUBLE_ARROW_HEAD    267
  14. #define    LAST    268
  15. #define    UP    269
  16. #define    DOWN    270
  17. #define    LEFT    271
  18. #define    RIGHT    272
  19. #define    BOX    273
  20. #define    CIRCLE    274
  21. #define    ELLIPSE    275
  22. #define    ARC    276
  23. #define    LINE    277
  24. #define    ARROW    278
  25. #define    MOVE    279
  26. #define    SPLINE    280
  27. #define    HEIGHT    281
  28. #define    RADIUS    282
  29. #define    WIDTH    283
  30. #define    DIAMETER    284
  31. #define    FROM    285
  32. #define    TO    286
  33. #define    AT    287
  34. #define    WITH    288
  35. #define    BY    289
  36. #define    THEN    290
  37. #define    DOTTED    291
  38. #define    DASHED    292
  39. #define    CHOP    293
  40. #define    SAME    294
  41. #define    INVISIBLE    295
  42. #define    LJUST    296
  43. #define    RJUST    297
  44. #define    ABOVE    298
  45. #define    BELOW    299
  46. #define    OF    300
  47. #define    THE    301
  48. #define    WAY    302
  49. #define    BETWEEN    303
  50. #define    AND    304
  51. #define    HERE    305
  52. #define    DOT_N    306
  53. #define    DOT_E    307
  54. #define    DOT_W    308
  55. #define    DOT_S    309
  56. #define    DOT_NE    310
  57. #define    DOT_SE    311
  58. #define    DOT_NW    312
  59. #define    DOT_SW    313
  60. #define    DOT_C    314
  61. #define    DOT_START    315
  62. #define    DOT_END    316
  63. #define    DOT_X    317
  64. #define    DOT_Y    318
  65. #define    DOT_HT    319
  66. #define    DOT_WID    320
  67. #define    DOT_RAD    321
  68. #define    SIN    322
  69. #define    COS    323
  70. #define    ATAN2    324
  71. #define    LOG    325
  72. #define    EXP    326
  73. #define    SQRT    327
  74. #define    MAX    328
  75. #define    MIN    329
  76. #define    INT    330
  77. #define    RAND    331
  78. #define    COPY    332
  79. #define    THRU    333
  80. #define    TOP    334
  81. #define    BOTTOM    335
  82. #define    UPPER    336
  83. #define    LOWER    337
  84. #define    SH    338
  85. #define    PRINT    339
  86. #define    CW    340
  87. #define    CCW    341
  88. #define    FOR    342
  89. #define    DO    343
  90. #define    IF    344
  91. #define    ELSE    345
  92. #define    ANDAND    346
  93. #define    OROR    347
  94. #define    NOTEQUAL    348
  95. #define    EQUALEQUAL    349
  96. #define    LESSEQUAL    350
  97. #define    GREATEREQUAL    351
  98. #define    LEFT_CORNER    352
  99. #define    RIGHT_CORNER    353
  100. #define    CENTER    354
  101. #define    END    355
  102. #define    START    356
  103. #define    RESET    357
  104. #define    UNTIL    358
  105. #define    PLOT    359
  106. #define    THICKNESS    360
  107. #define    FILL    361
  108. #define    ALIGNED    362
  109. #define    SPRINTF    363
  110. #define    DEFINE    364
  111. #define    UNDEF    365
  112.  
  113. #line 19 "pic.y"
  114.  
  115. #include "pic.h"
  116. #include "ptable.h"
  117. #include "object.h"
  118.  
  119. extern int delim_flag;
  120. extern void do_copy(const char *);
  121. extern void copy_rest_thru(const char *, const char *);
  122. extern void copy_file_thru(const char *, const char *, const char *);
  123. extern void push_body(const char *);
  124. extern void do_for(char *var, double from, double to,
  125.            int by_is_multiplicative, double by, char *body);
  126. extern void do_lookahead();
  127.  
  128. extern "C" {
  129.   double fmod(double, double);
  130.   int rand();
  131. }
  132.  
  133. #define YYDEBUG 1
  134.  
  135. int yylex();
  136. void yyerror(const char *);
  137.  
  138. void reset(const char *nm);
  139. void reset_all();
  140.  
  141. place *lookup_label(const char *);
  142. void define_label(const char *label, const place *pl);
  143.  
  144. direction current_direction;
  145. position current_position;
  146.  
  147. implement_ptable(place)
  148.  
  149. PTABLE(place) top_table;
  150.  
  151. PTABLE(place) *current_table = &top_table;
  152. saved_state *current_saved_state = 0;
  153.  
  154. object_list olist;
  155.  
  156. const char *ordinal_postfix(int n);
  157. const char *object_type_name(object_type type);
  158. char *format_number(const char *form, double n);
  159. char *do_sprintf(const char *form, const double *v, int nv);
  160.  
  161.  
  162. #line 69 "pic.y"
  163. typedef union {
  164.     char *str;
  165.     int n;
  166.     double x;
  167.     struct { double x, y; } pair;
  168.     struct { double x; char *body; } if_data;
  169.     struct { char *str; const char *filename; int lineno; } lstr;
  170.     struct { double *v; int nv; int maxv; } dv;
  171.     struct { double val; int is_multiplicative; } by;
  172.     place pl;
  173.     object *obj;
  174.     corner crn;
  175.     path *pth;
  176.     object_spec *spec;
  177.     saved_state *pstate;
  178.     graphics_state state;
  179.     object_type obtype;
  180. } YYSTYPE;
  181.  
  182. #ifndef YYLTYPE
  183. typedef
  184.   struct yyltype
  185.     {
  186.       int timestamp;
  187.       int first_line;
  188.       int first_column;
  189.       int last_line;
  190.       int last_column;
  191.       char *text;
  192.    }
  193.   yyltype;
  194.  
  195. #define YYLTYPE yyltype
  196. #endif
  197.  
  198. #include <stdio.h>
  199.  
  200. #ifndef __STDC__
  201. #define const
  202. #endif
  203.  
  204.  
  205.  
  206. #define    YYFINAL        373
  207. #define    YYFLAG        -32768
  208. #define    YYNTBASE    131
  209.  
  210. #define YYTRANSLATE(x) ((unsigned)(x) <= 365 ? yytranslate[x] : 170)
  211.  
  212. static const short yytranslate[] = {     0,
  213.      2,     2,     2,     2,     2,     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,   120,     2,     2,     2,   119,     2,     2,   111,
  217.    129,   117,   115,   112,   116,   130,   118,     2,     2,     2,
  218.      2,     2,     2,     2,     2,     2,     2,   124,   122,   113,
  219.    123,   114,     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.    127,     2,   128,   121,     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,   125,     2,   126,     2,     2,     2,     2,     2,
  226.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  227.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  228.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  229.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  230.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  231.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  232.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  233.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  234.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  235.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  236.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  237.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  238.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  239.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  240.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  241.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  242.     36,    37,    38,    39,    40,    41,    42,    43,    44,    45,
  243.     46,    47,    48,    49,    50,    51,    52,    53,    54,    55,
  244.     56,    57,    58,    59,    60,    61,    62,    63,    64,    65,
  245.     66,    67,    68,    69,    70,    71,    72,    73,    74,    75,
  246.     76,    77,    78,    79,    80,    81,    82,    83,    84,    85,
  247.     86,    87,    88,    89,    90,    91,    92,    93,    94,    95,
  248.     96,    97,    98,    99,   100,   101,   102,   103,   104,   105,
  249.    106,   107,   108,   109,   110
  250. };
  251.  
  252. #if YYDEBUG != 0
  253. static const short yyrline[] = { 0,
  254.    263,   265,   273,   278,   281,   285,   287,   290,   292,   295,
  255.    301,   303,   305,   307,   309,   315,   320,   326,   331,   334,
  256.    339,   346,   349,   351,   359,   362,   364,   371,   374,   380,
  257.    388,   391,   402,   403,   407,   410,   412,   416,   420,   423,
  258.    426,   430,   433,   439,   446,   449,   451,   455,   470,   472,
  259.    480,   486,   492,   499,   507,   512,   516,   520,   525,   532,
  260.    539,   546,   553,   558,   563,   570,   585,   597,   603,   609,
  261.    615,   621,   640,   647,   654,   661,   668,   675,   682,   689,
  262.    696,   703,   718,   730,   736,   743,   755,   761,   767,   773,
  263.    779,   784,   790,   806,   823,   828,   833,   838,   843,   848,
  264.    853,   858,   865,   874,   883,   892,   901,   907,   914,   919,
  265.    929,   936,   957,   960,   968,   971,   976,   981,   986,   991,
  266.    998,  1000,  1003,  1006,  1010,  1013,  1019,  1025,  1031,  1039,
  267.   1050,  1054,  1062,  1065,  1069,  1084,  1100,  1103,  1105,  1107,
  268.   1109,  1111,  1113,  1115,  1117,  1121,  1126,  1133,  1141,  1145,
  269.   1152,  1158,  1164,  1170,  1176,  1184,  1187,  1189,  1191,  1193,
  270.   1195,  1197,  1199,  1201,  1203,  1205,  1207,  1209,  1211,  1213,
  271.   1215,  1217,  1219,  1221,  1223,  1225,  1227,  1229,  1231,  1233,
  272.   1235,  1237,  1239,  1243,  1252,  1254,  1261,  1268,  1275,  1282,
  273.   1289,  1291,  1293,  1295,  1303,  1311,  1324,  1326,  1328,  1337,
  274.   1346,  1359,  1368,  1377,  1386,  1388,  1390,  1392,  1394,  1400,
  275.   1402,  1404,  1406,  1408,  1410,  1412,  1414,  1416
  276. };
  277.  
  278. static const char * const yytname[] = {     0,
  279. "error","$illegal.","LABEL","VARIABLE","NUMBER","TEXT","COMMAND","DELIMITED","ORDINAL","LEFT_ARROW_HEAD",
  280. "RIGHT_ARROW_HEAD","DOUBLE_ARROW_HEAD","LAST","UP","DOWN","LEFT","RIGHT","BOX","CIRCLE","ELLIPSE",
  281. "ARC","LINE","ARROW","MOVE","SPLINE","HEIGHT","RADIUS","WIDTH","DIAMETER","FROM",
  282. "TO","AT","WITH","BY","THEN","DOTTED","DASHED","CHOP","SAME","INVISIBLE",
  283. "LJUST","RJUST","ABOVE","BELOW","OF","THE","WAY","BETWEEN","AND","HERE",
  284. "DOT_N","DOT_E","DOT_W","DOT_S","DOT_NE","DOT_SE","DOT_NW","DOT_SW","DOT_C","DOT_START",
  285. "DOT_END","DOT_X","DOT_Y","DOT_HT","DOT_WID","DOT_RAD","SIN","COS","ATAN2","LOG",
  286. "EXP","SQRT","MAX","MIN","INT","RAND","COPY","THRU","TOP","BOTTOM",
  287. "UPPER","LOWER","SH","PRINT","CW","CCW","FOR","DO","IF","ELSE",
  288. "ANDAND","OROR","NOTEQUAL","EQUALEQUAL","LESSEQUAL","GREATEREQUAL","LEFT_CORNER","RIGHT_CORNER","CENTER","END",
  289. "START","RESET","UNTIL","PLOT","THICKNESS","FILL","ALIGNED","SPRINTF","DEFINE","UNDEF",
  290. "'('","','","'<'","'>'","'+'","'-'","'*'","'/'","'%'","'!'",
  291. "'^'","';'","'='","':'","'{'","'}'","'['","']'","')'","'.'",
  292. "top"
  293. };
  294. #endif
  295.  
  296. static const short yyr1[] = {     0,
  297.    131,   131,   132,   133,   133,   134,   134,   135,   135,   136,
  298.    136,   136,   136,   136,   136,   136,   136,   136,   137,   136,
  299.    136,   138,   139,   136,   140,   141,   136,   142,   136,   136,
  300.    143,   136,   136,   136,   144,   144,   144,   146,   145,   147,
  301.    147,   148,   148,   148,   149,   149,   149,   150,   150,   150,
  302.    150,   151,   150,   150,   152,   152,   152,   152,   152,   152,
  303.    152,   152,   152,   152,   152,   153,   152,   152,   152,   152,
  304.    152,   152,   152,   152,   152,   152,   152,   152,   152,   152,
  305.    152,   152,   152,   152,   152,   152,   152,   152,   152,   152,
  306.    152,   152,   152,   152,   152,   152,   152,   152,   152,   152,
  307.    152,   152,   152,   152,   152,   152,   152,   152,   154,   154,
  308.    155,   155,   156,   156,   157,   157,   157,   157,   157,   157,
  309.    158,   158,   159,   159,   160,   160,   160,   160,   160,   161,
  310.    161,   161,   162,   162,   163,   163,   164,   164,   164,   164,
  311.    164,   164,   164,   164,   164,   165,   165,   166,   166,   166,
  312.    167,   167,   167,   167,   167,   168,   168,   168,   168,   168,
  313.    168,   168,   168,   168,   168,   168,   168,   168,   168,   168,
  314.    168,   168,   168,   168,   168,   168,   168,   168,   168,   168,
  315.    168,   168,   168,   169,   169,   169,   169,   169,   169,   169,
  316.    169,   169,   169,   169,   169,   169,   169,   169,   169,   169,
  317.    169,   169,   169,   169,   169,   169,   169,   169,   169,   169,
  318.    169,   169,   169,   169,   169,   169,   169,   169
  319. };
  320.  
  321. static const short yyr2[] = {     0,
  322.      1,     1,     3,     1,     3,     0,     1,     1,     2,     3,
  323.      1,     1,     1,     1,     1,     2,     2,     2,     0,     3,
  324.      2,     0,     0,     7,     0,     0,     6,     0,    10,     1,
  325.      0,     4,     1,     1,     2,     2,     3,     0,     5,     0,
  326.      2,     1,     3,     3,     0,     2,     3,     1,     4,     4,
  327.      4,     0,     4,     1,     1,     1,     1,     1,     1,     1,
  328.      1,     1,     1,     2,     3,     0,     4,     3,     3,     3,
  329.      3,     2,     2,     3,     2,     3,     2,     3,     2,     3,
  330.      3,     3,     3,     3,     3,     2,     2,     3,     2,     3,
  331.      2,     3,     2,     3,     2,     2,     2,     2,     2,     2,
  332.      2,     2,     2,     2,     2,     2,     3,     2,     1,     5,
  333.      0,     3,     1,     1,     1,     3,     3,     5,     5,     6,
  334.      1,     4,     3,     3,     1,     2,     2,     3,     1,     1,
  335.      1,     3,     1,     2,     2,     2,     1,     1,     1,     1,
  336.      1,     1,     1,     2,     1,     2,     3,     1,     1,     2,
  337.      1,     4,     3,     3,     2,     1,     1,     1,     1,     1,
  338.      1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  339.      2,     2,     2,     2,     1,     1,     2,     2,     2,     2,
  340.      1,     1,     1,     1,     1,     2,     2,     2,     2,     2,
  341.      3,     3,     3,     3,     3,     3,     2,     3,     4,     4,
  342.      6,     4,     4,     4,     6,     6,     4,     4,     3,     3,
  343.      3,     3,     3,     3,     3,     3,     3,     2
  344. };
  345.  
  346. static const short yydefact[] = {     6,
  347.      8,     2,     1,     7,     0,     0,   109,    15,    11,    12,
  348.     13,    14,    55,    56,    57,    58,    59,    60,    61,    62,
  349.      0,    19,     0,     0,     0,    34,     0,     0,    52,    66,
  350.      6,    54,    33,    30,     4,    48,    63,     9,     6,     0,
  351.     21,    25,     0,   130,   184,   185,     0,   133,   169,   170,
  352.    129,   156,   157,   158,   159,   160,   161,   162,   163,   164,
  353.    165,   166,     0,     0,     0,     0,     0,     0,     0,     0,
  354.      0,     0,   167,   168,     0,     0,   175,   176,   181,   183,
  355.    182,     0,     0,     0,    17,    18,   113,   115,   114,   125,
  356.      0,   131,     0,    16,     0,     0,     0,     0,     0,    42,
  357.     35,    64,     0,     6,     6,     3,     7,    36,     0,    31,
  358.     97,    98,    99,    73,    75,    79,    77,     0,     0,     0,
  359.      0,     0,     0,     0,     0,     0,    86,    87,    89,    93,
  360.     95,    96,   103,   104,   105,   106,   100,   101,     0,    91,
  361.    108,   102,    72,     0,    10,    22,     0,    20,   145,   134,
  362.    137,   138,   139,   140,   141,   142,   143,     0,   135,     0,
  363.      0,     0,     0,     0,     0,     0,     0,     0,     0,   171,
  364.    173,   177,   179,   172,   174,   178,   180,     0,   115,     0,
  365.    197,   218,     0,     0,   186,   187,   188,   189,   190,     0,
  366.    126,   136,     0,   127,     0,   121,     0,     0,     0,     0,
  367.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  368.      0,     0,     0,     0,    38,     0,     0,     0,    65,   111,
  369.      0,     0,     0,     5,    37,     0,    74,    76,    80,    78,
  370.     68,    69,    70,    71,    81,     0,    82,    83,     0,     0,
  371.      0,     0,   149,   151,    84,   148,     0,    85,     0,    88,
  372.     90,    94,   107,    92,   130,   184,    13,    14,    49,     0,
  373.     50,    51,     0,    26,   144,     0,     0,     0,     0,     0,
  374.      0,     0,     0,     0,   209,     0,     0,   124,   198,   116,
  375.    117,   132,   128,     0,   216,   217,   215,   214,   211,   213,
  376.    123,     0,   210,   212,   191,   192,   193,   194,   195,   196,
  377.      0,     0,     0,    44,    43,   210,     0,    53,    67,    32,
  378.    155,     0,     0,     0,   146,     0,   150,     0,     0,    23,
  379.     40,   199,   200,     0,   202,   203,   204,     0,     0,   207,
  380.    208,     0,     0,     0,     0,     0,    39,     0,   110,     0,
  381.    154,   153,   147,    40,     0,    27,     0,     0,     0,   118,
  382.    122,     0,   119,    45,   112,   152,    24,    41,   201,   205,
  383.    206,   120,     0,     0,     0,    46,    28,    47,     0,    29,
  384.      0,     0,     0
  385. };
  386.  
  387. static const short yydefgoto[] = {   371,
  388.      2,    31,   222,     4,    32,    43,   263,   344,   147,   321,
  389.    369,   226,    33,    34,   303,   346,    97,   364,    35,   104,
  390.     36,   105,    37,   307,    86,    87,   212,    88,    99,    90,
  391.     91,    92,   159,   243,   244,   245,    93,   236
  392. };
  393.  
  394. static const short yypact[] = {  -101,
  395. -32768,-32768,   535,   -99,   -96,   -89,-32768,-32768,-32768,-32768,
  396. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  397.     23,-32768,   750,    37,   851,    38,  1057,   -65,-32768,-32768,
  398.   -101,-32768,     1,   -42,-32768,   641,-32768,-32768,  -101,   851,
  399.     -4,-32768,    68,-32768,-32768,-32768,    62,-32768,-32768,-32768,
  400. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  401. -32768,-32768,   -32,   -21,    -9,    -7,    25,    41,    42,    46,
  402.     48,    52,-32768,-32768,     2,    21,-32768,-32768,-32768,-32768,
  403. -32768,  1158,  1057,  1057,-32768,   -59,-32768,-32768,   232,  1673,
  404.    363,-32768,    13,  1646,     7,  1057,    97,    28,   232,  1973,
  405. -32768,   984,   143,  -101,  -101,-32768,   509,-32768,   150,-32768,
  406. -32768,-32768,-32768,  1499,  1499,  1339,  1419,  1057,  1057,  1057,
  407.   1057,  1158,  1158,  1158,   153,  1259,-32768,  1499,  1499,  1499,
  408. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,  1057,  1499,
  409. -32768,-32768,  1973,   394,-32768,-32768,   157,-32768,-32768,-32768,
  410. -32768,-32768,-32768,-32768,-32768,-32768,-32768,    39,-32768,  1057,
  411.   1057,  1057,  1057,  1057,  1057,  1057,  1057,  1057,   276,-32768,
  412. -32768,-32768,-32768,-32768,-32768,-32768,-32768,   -61,    44,  1594,
  413.     50,    50,  1259,  1259,-32768,-32768,-32768,-32768,-32768,   190,
  414. -32768,-32768,   111,    64,   126,-32768,  1057,  1057,  1057,  1057,
  415.   1057,  1057,  1057,  1158,  1057,  1057,  1057,  1057,  1057,  1057,
  416.   1057,  1158,  1057,  1701,-32768,     0,     0,  1057,-32768,-32768,
  417.     70,   535,    69,-32768,-32768,   194,  1973,  1973,  1973,  1973,
  418.   1973,  1973,  1973,  1973,   -59,  1646,   -59,   -59,  1569,   253,
  419.    363,   200,  1621,-32768,-32768,-32768,  1259,-32768,   677,  1973,
  420.   1973,  1973,  1973,  1973,   -96,   -89,    22,    27,-32768,   -59,
  421.     19,   154,   207,-32768,-32768,  1732,  1741,  1540,  1772,  1781,
  422.   1812,  1932,  1942,  1821,-32768,  1852,  1158,-32768,-32768,-32768,
  423. -32768,-32768,    64,   174,   720,   778,   767,   767,   125,   125,
  424.   1973,    11,   110,   125,   169,   169,    50,    50,    50,    50,
  425.    -38,   486,   215,-32768,-32768,   125,   -80,-32768,-32768,-32768,
  426. -32768,   363,  1569,  1569,-32768,   227,-32768,    44,  1692,-32768,
  427.    133,-32768,-32768,  1057,-32768,-32768,-32768,  1057,  1057,-32768,
  428. -32768,   -63,   189,  1158,  1158,  1057,-32768,  1057,-32768,  1569,
  429. -32768,-32768,-32768,   133,   239,-32768,  1861,  1892,  1901,-32768,
  430. -32768,   -52,   -59,   452,  1973,-32768,-32768,-32768,-32768,-32768,
  431. -32768,-32768,   952,   159,  1057,  1973,-32768,  1973,   240,-32768,
  432.    249,   257,-32768
  433. };
  434.  
  435. static const short yypgoto[] = {-32768,
  436.     43,-32768,     8,   229,-32768,-32768,-32768,-32768,-32768,-32768,
  437. -32768,-32768,-32768,-32768,-32768,   -86,   221,-32768,   -74,-32768,
  438. -32768,-32768,   -16,-32768,   -79,   118,-32768,   -55,   -13,   -81,
  439. -32768,-32768,   -90,-32768,  -225,-32768,   -75,   -23
  440. };
  441.  
  442.  
  443. #define    YYLAST        2094
  444.  
  445.  
  446. static const short yytable[] = {    94,
  447.    192,   100,   178,   102,   108,     7,    85,     3,    98,    89,
  448.    335,   194,   143,   311,   191,    44,   100,   170,   171,   142,
  449.      1,    47,    38,    98,  -169,    48,   179,    39,    41,  -170,
  450.   -169,   338,   224,    40,  -169,  -170,   174,   175,   106,  -170,
  451.     95,   101,   235,   237,   238,   103,   144,   110,   339,   246,
  452.    277,   183,   184,   183,   184,   183,   184,   193,   180,   181,
  453.    182,   362,   183,   184,   260,   350,  -169,   149,    89,   259,
  454.    248,  -170,   214,   146,   150,   148,   183,   184,   160,   151,
  455.    152,   153,   154,   155,   156,   219,   157,   341,   342,   161,
  456.    227,   228,   229,   230,   231,   232,   233,   234,   172,   173,
  457.     42,   162,   249,   163,   250,   251,   252,    28,    89,    89,
  458.     89,   283,   109,    44,   356,   253,   254,   176,   177,    47,
  459.    216,   217,   334,    48,   292,   183,   184,   280,   281,   213,
  460.    262,   215,   301,  -113,  -113,   164,   266,   267,   268,   269,
  461.    270,   271,   272,   273,   274,   276,   221,   223,   220,   313,
  462.    314,   165,   166,   225,   195,   239,   167,   196,   168,   249,
  463.    249,   240,   169,   246,   264,   241,   265,   317,    49,    50,
  464.    211,   284,   278,   285,   286,   287,   288,   289,   290,   291,
  465.    293,   294,   295,   296,   297,   298,   299,   300,   158,   302,
  466.     89,   318,   282,   190,   306,   308,   309,   332,    89,   304,
  467.    305,   310,   315,    52,    53,    54,    55,    56,    57,    58,
  468.     59,    60,    61,    62,   320,   185,   186,   187,   188,   189,
  469.    333,   340,   337,   319,   206,   207,   208,   209,   210,   343,
  470.    211,    73,    74,    75,    76,   345,   351,   246,   246,   206,
  471.    207,   208,   209,   210,   358,   211,   367,   370,   372,    77,
  472.     78,    79,    80,    81,   352,   353,   373,   357,   149,   107,
  473.    145,   261,     0,    89,   246,   312,     0,     0,  -114,  -114,
  474.    151,   152,   153,   154,   155,   156,     0,   157,    44,    45,
  475.     46,     0,   242,     0,    47,   208,   209,   210,    48,   211,
  476.      0,    49,    50,   185,   186,   187,   188,   189,     0,     0,
  477.    347,     0,     0,     0,   348,   349,     0,     0,     0,     0,
  478.      0,     0,   354,     0,   355,     0,     0,     0,     0,     0,
  479.     89,    89,     0,     0,     0,    51,    52,    53,    54,    55,
  480.     56,    57,    58,    59,    60,    61,    62,     0,     0,   366,
  481.      0,   368,    63,    64,    65,    66,    67,    68,    69,    70,
  482.     71,    72,     0,     0,    73,    74,    75,    76,     0,     0,
  483.      0,     0,     0,     0,     0,     0,     0,     0,   149,     0,
  484.      0,     0,    77,    78,    79,    80,    81,     0,     0,   158,
  485.    151,   152,   153,   154,   155,   156,    96,   157,     0,     0,
  486.      0,    83,     0,     0,     0,    84,   255,   256,    46,     7,
  487.      8,     0,    47,     0,   275,     0,    48,     9,    10,   257,
  488.    258,    13,    14,    15,    16,    17,    18,    19,    20,     0,
  489.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  490.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  491.      0,     0,     0,    51,    52,    53,    54,    55,    56,    57,
  492.     58,    59,    60,    61,    62,     0,     0,     0,     0,     0,
  493.     63,    64,    65,    66,    67,    68,    69,    70,    71,    72,
  494.     21,     0,    73,    74,    75,    76,    22,    23,     0,     0,
  495.     24,     0,    25,     0,     0,   363,     0,     0,     0,   158,
  496.     77,    78,    79,    80,    81,    26,     0,    27,     0,     0,
  497.      0,    28,     0,     0,    82,     0,     0,     0,     0,    83,
  498.      0,     5,     6,    84,     7,     8,   336,     0,    29,     0,
  499.     30,     0,     9,    10,    11,    12,    13,    14,    15,    16,
  500.     17,    18,    19,    20,     0,     0,     0,     5,     6,     0,
  501.      7,     8,   197,   198,   199,   200,   201,   202,     9,    10,
  502.     11,    12,    13,    14,    15,    16,    17,    18,    19,    20,
  503.      0,     0,     0,     0,   218,   205,   206,   207,   208,   209,
  504.    210,     0,   211,     0,     0,     0,   197,   198,   199,   200,
  505.    201,   202,     0,     0,     0,    21,     0,     0,     0,     0,
  506.      0,    22,    23,     0,     0,    24,     0,    25,   218,   205,
  507.    206,   207,   208,   209,   210,     0,   211,     0,     0,     0,
  508.     26,    21,    27,     0,     0,     0,    28,    22,    23,     0,
  509.      0,    24,     0,    25,     0,     0,     0,     0,     0,     0,
  510.     38,     0,     0,    29,     0,    30,    26,     0,    27,     0,
  511.      0,     0,    28,    44,    45,    46,     7,     0,     0,    47,
  512.    111,   112,   113,    48,   114,   115,   116,   117,     0,    29,
  513.      0,    30,     0,     0,     0,     0,   118,   119,   120,   121,
  514.    122,   123,   124,   125,   126,   127,   128,   129,   130,   131,
  515.    132,   133,   134,   135,   136,     0,     0,     0,     0,     0,
  516.     51,    52,    53,    54,    55,    56,    57,    58,    59,    60,
  517.     61,    62,     0,     0,     0,     0,     0,    63,    64,    65,
  518.     66,    67,    68,    69,    70,    71,    72,     0,     0,    73,
  519.     74,    75,    76,     0,     0,   137,   138,     0,     0,     0,
  520.      0,     0,     0,     0,     0,     0,     0,    77,    78,    79,
  521.     80,    81,     0,     0,     0,   139,   140,   141,    28,     0,
  522.      0,    96,    44,    45,    46,     7,    83,     0,    47,     0,
  523.     84,     0,    48,     0,     0,    49,    50,   197,   198,   199,
  524.    200,   201,   202,     0,     0,     0,     0,     0,     0,     0,
  525.      0,     0,     0,     0,     0,     0,     0,     0,   203,   218,
  526.    205,   206,   207,   208,   209,   210,     0,   211,     0,    51,
  527.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  528.     62,     0,   199,   200,   201,   202,    63,    64,    65,    66,
  529.     67,    68,    69,    70,    71,    72,     0,     0,    73,    74,
  530.     75,    76,   218,   205,   206,   207,   208,   209,   210,     0,
  531.    211,     0,     0,     0,     0,     0,    77,    78,    79,    80,
  532.     81,     0,     0,    44,    45,    46,     7,    28,     0,    47,
  533.     82,   201,   202,    48,     0,    83,    49,    50,   197,    84,
  534.    199,   200,   201,   202,     0,     0,     0,     0,     0,   218,
  535.    205,   206,   207,   208,   209,   210,     0,   211,     0,     0,
  536.    218,   205,   206,   207,   208,   209,   210,     0,   211,     0,
  537.     51,    52,    53,    54,    55,    56,    57,    58,    59,    60,
  538.     61,    62,     0,     0,     0,     0,     0,    63,    64,    65,
  539.     66,    67,    68,    69,    70,    71,    72,     0,     0,    73,
  540.     74,    75,    76,     0,     0,     0,     0,     0,     0,     0,
  541.      0,     0,     0,     0,     0,     0,     0,    77,    78,    79,
  542.     80,    81,     0,     0,    44,    45,    46,     0,    28,     0,
  543.     47,    96,     0,     0,    48,     0,    83,    49,    50,     0,
  544.     84,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  545.      0,     0,     0,     0,     0,     0,     0,     0,     0,     7,
  546.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  547.      0,    51,    52,    53,    54,    55,    56,    57,    58,    59,
  548.     60,    61,    62,     0,     0,     0,     0,     0,    63,    64,
  549.     65,    66,    67,    68,    69,    70,    71,    72,     0,     0,
  550.     73,    74,    75,    76,     0,     0,     0,     0,     0,     0,
  551.      0,     0,     0,     0,     0,     0,     0,     0,    77,    78,
  552.     79,    80,    81,     0,     0,     0,     0,     0,     0,    44,
  553.     45,    46,    96,     0,     0,    47,     0,    83,   365,    48,
  554.      0,    84,    49,    50,   197,   198,   199,   200,   201,   202,
  555.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  556.      0,    28,     0,     0,     0,     0,   218,   205,   206,   207,
  557.    208,   209,   210,     0,   211,     0,    51,    52,    53,    54,
  558.     55,    56,    57,    58,    59,    60,    61,    62,     0,     0,
  559.      0,     0,     0,    63,    64,    65,    66,    67,    68,    69,
  560.     70,    71,    72,     0,     0,    73,    74,    75,    76,     0,
  561.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  562.      0,     0,     0,    77,    78,    79,    80,    81,     0,     0,
  563.     44,    45,    46,     0,     0,     0,    47,    96,     0,     0,
  564.     48,     0,    83,    49,    50,     0,    84,     0,     0,     0,
  565.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  566.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  567.      0,     0,     0,     0,     0,     0,     0,    51,    52,    53,
  568.     54,    55,    56,    57,    58,    59,    60,    61,    62,     0,
  569.      0,     0,     0,     0,    63,    64,    65,    66,    67,    68,
  570.     69,    70,    71,    72,     0,     0,    73,    74,    75,    76,
  571.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  572.      0,     0,     0,     0,    77,    78,    79,    80,    81,     0,
  573.      0,    44,    45,    46,     0,     0,     0,    47,    82,     0,
  574.      0,    48,     0,    83,    49,    50,     0,    84,     0,     0,
  575.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  576.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  577.      0,     0,     0,     0,     0,     0,     0,     0,    51,    52,
  578.     53,    54,    55,    56,    57,    58,    59,    60,    61,    62,
  579.      0,     0,     0,     0,     0,    63,    64,    65,    66,    67,
  580.     68,    69,    70,    71,    72,     0,     0,    73,    74,    75,
  581.     76,    44,    45,    46,     0,     0,     0,    47,     0,     0,
  582.      0,    48,     0,     0,     0,    77,    78,    79,    80,    81,
  583.      0,     0,     0,     0,     0,     0,     0,     0,     0,   247,
  584.      0,     0,     0,     0,    83,     0,     0,     0,    84,     0,
  585.      0,     0,     0,  -169,     0,     0,     0,     0,    51,    52,
  586.     53,    54,    55,    56,    57,    58,    59,    60,    61,    62,
  587.      0,     0,     0,     0,     0,    63,    64,    65,    66,    67,
  588.     68,    69,    70,    71,    72,     0,     0,    73,    74,    75,
  589.     76,    44,    45,    46,     0,     0,     0,    47,     0,     0,
  590.      0,    48,     0,     0,     0,    77,    78,    79,    80,    81,
  591.      0,     0,     0,     0,     0,     0,     0,     0,     0,    96,
  592.      0,     0,     0,     0,    83,     0,     0,     0,    84,     0,
  593.      0,     0,     0,  -170,     0,     0,     0,     0,    51,    52,
  594.     53,    54,    55,    56,    57,    58,    59,    60,    61,    62,
  595.      0,     0,     0,     0,     0,    63,    64,    65,    66,    67,
  596.     68,    69,    70,    71,    72,     0,     0,    73,    74,    75,
  597.     76,    44,    45,    46,     0,     0,     0,    47,     0,     0,
  598.      0,    48,     0,     0,     0,    77,    78,    79,    80,    81,
  599.      0,     0,     0,     0,     0,     0,     0,     0,     0,    96,
  600.      0,     0,     0,     0,    83,     0,     0,     0,    84,     0,
  601.      0,     0,     0,     0,     0,     0,     0,     0,    51,    52,
  602.     53,    54,    55,    56,    57,    58,    59,    60,    61,    62,
  603.      0,     0,     0,     0,     0,    63,    64,    65,    66,    67,
  604.     68,    69,    70,    71,    72,     0,     0,    73,    74,    75,
  605.     76,     0,     0,     0,    49,    50,     0,     0,     0,     0,
  606.      0,     0,     0,     0,     0,    77,    78,    79,    80,    81,
  607.      0,     0,     0,     0,     0,     0,     0,     0,     0,    96,
  608.      0,     0,     0,     0,    83,     0,     0,     0,    84,    52,
  609.     53,    54,    55,    56,    57,    58,    59,    60,    61,    62,
  610.    197,   198,   199,   200,   201,   202,    49,    50,   195,     0,
  611.      0,   196,     0,     0,     0,     0,     0,    73,    74,    75,
  612.     76,   324,   218,   205,   206,   207,   208,   209,   210,     0,
  613.    211,     0,     0,     0,     0,    77,    78,    79,    80,    81,
  614.      0,    52,    53,    54,    55,    56,    57,    58,    59,    60,
  615.     61,    62,     0,     0,   197,   198,   199,   200,   201,   202,
  616.    195,     0,     0,   196,     0,     0,     0,     0,   242,    73,
  617.     74,    75,    76,     0,     0,   203,   204,   205,   206,   207,
  618.    208,   209,   210,     0,   211,     0,     0,    77,    78,    79,
  619.     80,    81,   279,    52,    53,    54,    55,    56,    57,    58,
  620.     59,    60,    61,    62,     0,     0,   197,   198,   199,   200,
  621.    201,   202,     0,     0,     0,     0,     0,     0,     0,     0,
  622.    316,    73,    74,    75,    76,     0,     0,   203,   204,   205,
  623.    206,   207,   208,   209,   210,     0,   211,     0,     0,    77,
  624.     78,    79,    80,    81,     0,     0,     0,     0,     0,     0,
  625.      0,     0,   197,   198,   199,   200,   201,   202,     0,     0,
  626.      0,   197,   198,   199,   200,   201,   202,     0,     0,     0,
  627.      0,     0,   190,   203,   218,   205,   206,   207,   208,   209,
  628.    210,     0,   211,   218,   205,   206,   207,   208,   209,   210,
  629.    279,   211,   197,   198,   199,   200,   201,   202,     0,   279,
  630.      0,   197,   198,   199,   200,   201,   202,     0,     0,     0,
  631.      0,     0,     0,     0,   218,   205,   206,   207,   208,   209,
  632.    210,     0,   211,   218,   205,   206,   207,   208,   209,   210,
  633.    322,   211,   197,   198,   199,   200,   201,   202,     0,   323,
  634.      0,   197,   198,   199,   200,   201,   202,     0,     0,     0,
  635.      0,     0,     0,     0,   218,   205,   206,   207,   208,   209,
  636.    210,     0,   211,   218,   205,   206,   207,   208,   209,   210,
  637.    325,   211,   197,   198,   199,   200,   201,   202,     0,   326,
  638.      0,   197,   198,   199,   200,   201,   202,     0,     0,     0,
  639.      0,     0,     0,     0,   218,   205,   206,   207,   208,   209,
  640.    210,     0,   211,   218,   205,   206,   207,   208,   209,   210,
  641.    327,   211,   197,   198,   199,   200,   201,   202,     0,   330,
  642.      0,   197,   198,   199,   200,   201,   202,     0,     0,     0,
  643.      0,     0,     0,     0,   218,   205,   206,   207,   208,   209,
  644.    210,     0,   211,   218,   205,   206,   207,   208,   209,   210,
  645.    331,   211,   197,   198,   199,   200,   201,   202,     0,   359,
  646.      0,   197,   198,   199,   200,   201,   202,     0,     0,     0,
  647.      0,     0,     0,     0,   218,   205,   206,   207,   208,   209,
  648.    210,     0,   211,   218,   205,   206,   207,   208,   209,   210,
  649.    360,   211,   197,   198,   199,   200,   201,   202,     0,   361,
  650.      0,     0,   197,   198,   199,   200,   201,   202,     0,     0,
  651.      0,     0,     0,   328,   218,   205,   206,   207,   208,   209,
  652.    210,     0,   211,   329,   218,   205,   206,   207,   208,   209,
  653.    210,     0,   211,   197,   198,   199,   200,   201,   202,     0,
  654.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  655.      0,     0,     0,     0,     0,   218,   205,   206,   207,   208,
  656.    209,   210,     0,   211
  657. };
  658.  
  659. static const short yycheck[] = {    23,
  660.     91,    25,    82,    27,     4,     6,    23,     0,    25,    23,
  661.     49,    93,    36,   239,    90,     3,    40,    16,    17,    36,
  662.    122,     9,   122,    40,     3,    13,    82,   124,     6,     3,
  663.      9,   112,   107,   123,    13,     9,    16,    17,    31,    13,
  664.      4,     4,   122,   123,   124,   111,    39,    90,   129,   125,
  665.    112,   115,   116,   115,   116,   115,   116,    45,    82,    83,
  666.     84,   114,   115,   116,   144,   129,    45,     6,    82,   144,
  667.    126,    45,    96,    78,    13,     8,   115,   116,   111,    18,
  668.     19,    20,    21,    22,    23,   102,    25,   313,   314,   111,
  669.    114,   115,   116,   117,   118,   119,   120,   121,    97,    98,
  670.     78,   111,   126,   111,   128,   129,   130,   108,   122,   123,
  671.    124,   193,   112,     3,   340,   139,   140,    97,    98,     9,
  672.     93,    94,   112,    13,   204,   115,   116,   183,   184,   123,
  673.    144,    35,   212,   115,   116,   111,   160,   161,   162,   163,
  674.    164,   165,   166,   167,   168,   169,   104,   105,     6,   240,
  675.    241,   111,   111,     4,    45,     3,   111,    48,   111,   183,
  676.    184,     9,   111,   239,     8,    13,   128,   243,    16,    17,
  677.    121,    46,   129,   197,   198,   199,   200,   201,   202,   203,
  678.    204,   205,   206,   207,   208,   209,   210,   211,   127,   213,
  679.    204,   247,     3,   130,   218,   126,   128,   277,   212,   216,
  680.    217,     8,     3,    51,    52,    53,    54,    55,    56,    57,
  681.     58,    59,    60,    61,     8,    62,    63,    64,    65,    66,
  682.     47,   312,     8,   247,   115,   116,   117,   118,   119,     3,
  683.    121,    79,    80,    81,    82,   103,    48,   313,   314,   115,
  684.    116,   117,   118,   119,     6,   121,    88,     8,     0,    97,
  685.     98,    99,   100,   101,   334,   335,     0,   344,     6,    31,
  686.     40,   144,    -1,   277,   340,    13,    -1,    -1,   115,   116,
  687.     18,    19,    20,    21,    22,    23,    -1,    25,     3,     4,
  688.      5,    -1,   130,    -1,     9,   117,   118,   119,    13,   121,
  689.     -1,    16,    17,    62,    63,    64,    65,    66,    -1,    -1,
  690.    324,    -1,    -1,    -1,   328,   329,    -1,    -1,    -1,    -1,
  691.     -1,    -1,   336,    -1,   338,    -1,    -1,    -1,    -1,    -1,
  692.    334,   335,    -1,    -1,    -1,    50,    51,    52,    53,    54,
  693.     55,    56,    57,    58,    59,    60,    61,    -1,    -1,   363,
  694.     -1,   365,    67,    68,    69,    70,    71,    72,    73,    74,
  695.     75,    76,    -1,    -1,    79,    80,    81,    82,    -1,    -1,
  696.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     6,    -1,
  697.     -1,    -1,    97,    98,    99,   100,   101,    -1,    -1,   127,
  698.     18,    19,    20,    21,    22,    23,   111,    25,    -1,    -1,
  699.     -1,   116,    -1,    -1,    -1,   120,     3,     4,     5,     6,
  700.      7,    -1,     9,    -1,   129,    -1,    13,    14,    15,    16,
  701.     17,    18,    19,    20,    21,    22,    23,    24,    25,    -1,
  702.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  703.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  704.     -1,    -1,    -1,    50,    51,    52,    53,    54,    55,    56,
  705.     57,    58,    59,    60,    61,    -1,    -1,    -1,    -1,    -1,
  706.     67,    68,    69,    70,    71,    72,    73,    74,    75,    76,
  707.     77,    -1,    79,    80,    81,    82,    83,    84,    -1,    -1,
  708.     87,    -1,    89,    -1,    -1,    34,    -1,    -1,    -1,   127,
  709.     97,    98,    99,   100,   101,   102,    -1,   104,    -1,    -1,
  710.     -1,   108,    -1,    -1,   111,    -1,    -1,    -1,    -1,   116,
  711.     -1,     3,     4,   120,     6,     7,    31,    -1,   125,    -1,
  712.    127,    -1,    14,    15,    16,    17,    18,    19,    20,    21,
  713.     22,    23,    24,    25,    -1,    -1,    -1,     3,     4,    -1,
  714.      6,     7,    91,    92,    93,    94,    95,    96,    14,    15,
  715.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  716.     -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,   118,
  717.    119,    -1,   121,    -1,    -1,    -1,    91,    92,    93,    94,
  718.     95,    96,    -1,    -1,    -1,    77,    -1,    -1,    -1,    -1,
  719.     -1,    83,    84,    -1,    -1,    87,    -1,    89,   113,   114,
  720.    115,   116,   117,   118,   119,    -1,   121,    -1,    -1,    -1,
  721.    102,    77,   104,    -1,    -1,    -1,   108,    83,    84,    -1,
  722.     -1,    87,    -1,    89,    -1,    -1,    -1,    -1,    -1,    -1,
  723.    122,    -1,    -1,   125,    -1,   127,   102,    -1,   104,    -1,
  724.     -1,    -1,   108,     3,     4,     5,     6,    -1,    -1,     9,
  725.     10,    11,    12,    13,    14,    15,    16,    17,    -1,   125,
  726.     -1,   127,    -1,    -1,    -1,    -1,    26,    27,    28,    29,
  727.     30,    31,    32,    33,    34,    35,    36,    37,    38,    39,
  728.     40,    41,    42,    43,    44,    -1,    -1,    -1,    -1,    -1,
  729.     50,    51,    52,    53,    54,    55,    56,    57,    58,    59,
  730.     60,    61,    -1,    -1,    -1,    -1,    -1,    67,    68,    69,
  731.     70,    71,    72,    73,    74,    75,    76,    -1,    -1,    79,
  732.     80,    81,    82,    -1,    -1,    85,    86,    -1,    -1,    -1,
  733.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    97,    98,    99,
  734.    100,   101,    -1,    -1,    -1,   105,   106,   107,   108,    -1,
  735.     -1,   111,     3,     4,     5,     6,   116,    -1,     9,    -1,
  736.    120,    -1,    13,    -1,    -1,    16,    17,    91,    92,    93,
  737.     94,    95,    96,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  738.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   112,   113,
  739.    114,   115,   116,   117,   118,   119,    -1,   121,    -1,    50,
  740.     51,    52,    53,    54,    55,    56,    57,    58,    59,    60,
  741.     61,    -1,    93,    94,    95,    96,    67,    68,    69,    70,
  742.     71,    72,    73,    74,    75,    76,    -1,    -1,    79,    80,
  743.     81,    82,   113,   114,   115,   116,   117,   118,   119,    -1,
  744.    121,    -1,    -1,    -1,    -1,    -1,    97,    98,    99,   100,
  745.    101,    -1,    -1,     3,     4,     5,     6,   108,    -1,     9,
  746.    111,    95,    96,    13,    -1,   116,    16,    17,    91,   120,
  747.     93,    94,    95,    96,    -1,    -1,    -1,    -1,    -1,   113,
  748.    114,   115,   116,   117,   118,   119,    -1,   121,    -1,    -1,
  749.    113,   114,   115,   116,   117,   118,   119,    -1,   121,    -1,
  750.     50,    51,    52,    53,    54,    55,    56,    57,    58,    59,
  751.     60,    61,    -1,    -1,    -1,    -1,    -1,    67,    68,    69,
  752.     70,    71,    72,    73,    74,    75,    76,    -1,    -1,    79,
  753.     80,    81,    82,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  754.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    97,    98,    99,
  755.    100,   101,    -1,    -1,     3,     4,     5,    -1,   108,    -1,
  756.      9,   111,    -1,    -1,    13,    -1,   116,    16,    17,    -1,
  757.    120,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  758.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     6,
  759.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  760.     -1,    50,    51,    52,    53,    54,    55,    56,    57,    58,
  761.     59,    60,    61,    -1,    -1,    -1,    -1,    -1,    67,    68,
  762.     69,    70,    71,    72,    73,    74,    75,    76,    -1,    -1,
  763.     79,    80,    81,    82,    -1,    -1,    -1,    -1,    -1,    -1,
  764.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    97,    98,
  765.     99,   100,   101,    -1,    -1,    -1,    -1,    -1,    -1,     3,
  766.      4,     5,   111,    -1,    -1,     9,    -1,   116,   117,    13,
  767.     -1,   120,    16,    17,    91,    92,    93,    94,    95,    96,
  768.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  769.     -1,   108,    -1,    -1,    -1,    -1,   113,   114,   115,   116,
  770.    117,   118,   119,    -1,   121,    -1,    50,    51,    52,    53,
  771.     54,    55,    56,    57,    58,    59,    60,    61,    -1,    -1,
  772.     -1,    -1,    -1,    67,    68,    69,    70,    71,    72,    73,
  773.     74,    75,    76,    -1,    -1,    79,    80,    81,    82,    -1,
  774.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  775.     -1,    -1,    -1,    97,    98,    99,   100,   101,    -1,    -1,
  776.      3,     4,     5,    -1,    -1,    -1,     9,   111,    -1,    -1,
  777.     13,    -1,   116,    16,    17,    -1,   120,    -1,    -1,    -1,
  778.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  779.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  780.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    50,    51,    52,
  781.     53,    54,    55,    56,    57,    58,    59,    60,    61,    -1,
  782.     -1,    -1,    -1,    -1,    67,    68,    69,    70,    71,    72,
  783.     73,    74,    75,    76,    -1,    -1,    79,    80,    81,    82,
  784.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  785.     -1,    -1,    -1,    -1,    97,    98,    99,   100,   101,    -1,
  786.     -1,     3,     4,     5,    -1,    -1,    -1,     9,   111,    -1,
  787.     -1,    13,    -1,   116,    16,    17,    -1,   120,    -1,    -1,
  788.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  789.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  790.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    50,    51,
  791.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  792.     -1,    -1,    -1,    -1,    -1,    67,    68,    69,    70,    71,
  793.     72,    73,    74,    75,    76,    -1,    -1,    79,    80,    81,
  794.     82,     3,     4,     5,    -1,    -1,    -1,     9,    -1,    -1,
  795.     -1,    13,    -1,    -1,    -1,    97,    98,    99,   100,   101,
  796.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   111,
  797.     -1,    -1,    -1,    -1,   116,    -1,    -1,    -1,   120,    -1,
  798.     -1,    -1,    -1,    45,    -1,    -1,    -1,    -1,    50,    51,
  799.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  800.     -1,    -1,    -1,    -1,    -1,    67,    68,    69,    70,    71,
  801.     72,    73,    74,    75,    76,    -1,    -1,    79,    80,    81,
  802.     82,     3,     4,     5,    -1,    -1,    -1,     9,    -1,    -1,
  803.     -1,    13,    -1,    -1,    -1,    97,    98,    99,   100,   101,
  804.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   111,
  805.     -1,    -1,    -1,    -1,   116,    -1,    -1,    -1,   120,    -1,
  806.     -1,    -1,    -1,    45,    -1,    -1,    -1,    -1,    50,    51,
  807.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  808.     -1,    -1,    -1,    -1,    -1,    67,    68,    69,    70,    71,
  809.     72,    73,    74,    75,    76,    -1,    -1,    79,    80,    81,
  810.     82,     3,     4,     5,    -1,    -1,    -1,     9,    -1,    -1,
  811.     -1,    13,    -1,    -1,    -1,    97,    98,    99,   100,   101,
  812.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   111,
  813.     -1,    -1,    -1,    -1,   116,    -1,    -1,    -1,   120,    -1,
  814.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    50,    51,
  815.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  816.     -1,    -1,    -1,    -1,    -1,    67,    68,    69,    70,    71,
  817.     72,    73,    74,    75,    76,    -1,    -1,    79,    80,    81,
  818.     82,    -1,    -1,    -1,    16,    17,    -1,    -1,    -1,    -1,
  819.     -1,    -1,    -1,    -1,    -1,    97,    98,    99,   100,   101,
  820.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   111,
  821.     -1,    -1,    -1,    -1,   116,    -1,    -1,    -1,   120,    51,
  822.     52,    53,    54,    55,    56,    57,    58,    59,    60,    61,
  823.     91,    92,    93,    94,    95,    96,    16,    17,    45,    -1,
  824.     -1,    48,    -1,    -1,    -1,    -1,    -1,    79,    80,    81,
  825.     82,   112,   113,   114,   115,   116,   117,   118,   119,    -1,
  826.    121,    -1,    -1,    -1,    -1,    97,    98,    99,   100,   101,
  827.     -1,    51,    52,    53,    54,    55,    56,    57,    58,    59,
  828.     60,    61,    -1,    -1,    91,    92,    93,    94,    95,    96,
  829.     45,    -1,    -1,    48,    -1,    -1,    -1,    -1,   130,    79,
  830.     80,    81,    82,    -1,    -1,   112,   113,   114,   115,   116,
  831.    117,   118,   119,    -1,   121,    -1,    -1,    97,    98,    99,
  832.    100,   101,   129,    51,    52,    53,    54,    55,    56,    57,
  833.     58,    59,    60,    61,    -1,    -1,    91,    92,    93,    94,
  834.     95,    96,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  835.    130,    79,    80,    81,    82,    -1,    -1,   112,   113,   114,
  836.    115,   116,   117,   118,   119,    -1,   121,    -1,    -1,    97,
  837.     98,    99,   100,   101,    -1,    -1,    -1,    -1,    -1,    -1,
  838.     -1,    -1,    91,    92,    93,    94,    95,    96,    -1,    -1,
  839.     -1,    91,    92,    93,    94,    95,    96,    -1,    -1,    -1,
  840.     -1,    -1,   130,   112,   113,   114,   115,   116,   117,   118,
  841.    119,    -1,   121,   113,   114,   115,   116,   117,   118,   119,
  842.    129,   121,    91,    92,    93,    94,    95,    96,    -1,   129,
  843.     -1,    91,    92,    93,    94,    95,    96,    -1,    -1,    -1,
  844.     -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,   118,
  845.    119,    -1,   121,   113,   114,   115,   116,   117,   118,   119,
  846.    129,   121,    91,    92,    93,    94,    95,    96,    -1,   129,
  847.     -1,    91,    92,    93,    94,    95,    96,    -1,    -1,    -1,
  848.     -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,   118,
  849.    119,    -1,   121,   113,   114,   115,   116,   117,   118,   119,
  850.    129,   121,    91,    92,    93,    94,    95,    96,    -1,   129,
  851.     -1,    91,    92,    93,    94,    95,    96,    -1,    -1,    -1,
  852.     -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,   118,
  853.    119,    -1,   121,   113,   114,   115,   116,   117,   118,   119,
  854.    129,   121,    91,    92,    93,    94,    95,    96,    -1,   129,
  855.     -1,    91,    92,    93,    94,    95,    96,    -1,    -1,    -1,
  856.     -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,   118,
  857.    119,    -1,   121,   113,   114,   115,   116,   117,   118,   119,
  858.    129,   121,    91,    92,    93,    94,    95,    96,    -1,   129,
  859.     -1,    91,    92,    93,    94,    95,    96,    -1,    -1,    -1,
  860.     -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,   118,
  861.    119,    -1,   121,   113,   114,   115,   116,   117,   118,   119,
  862.    129,   121,    91,    92,    93,    94,    95,    96,    -1,   129,
  863.     -1,    -1,    91,    92,    93,    94,    95,    96,    -1,    -1,
  864.     -1,    -1,    -1,   112,   113,   114,   115,   116,   117,   118,
  865.    119,    -1,   121,   112,   113,   114,   115,   116,   117,   118,
  866.    119,    -1,   121,    91,    92,    93,    94,    95,    96,    -1,
  867.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  868.     -1,    -1,    -1,    -1,    -1,   113,   114,   115,   116,   117,
  869.    118,   119,    -1,   121
  870. };
  871. #define YYPURE 1
  872.  
  873. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  874. #line 3 "/usr/local/lib/bison.simple"
  875.  
  876. /* Skeleton output parser for bison,
  877.    Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  878.  
  879.    This program is free software; you can redistribute it and/or modify
  880.    it under the terms of the GNU General Public License as published by
  881.    the Free Software Foundation; either version 1, or (at your option)
  882.    any later version.
  883.  
  884.    This program is distributed in the hope that it will be useful,
  885.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  886.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  887.    GNU General Public License for more details.
  888.  
  889.    You should have received a copy of the GNU General Public License
  890.    along with this program; if not, write to the Free Software
  891.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  892.  
  893.  
  894. #ifdef __GNUC__
  895. #ifndef alloca
  896. #define alloca __builtin_alloca
  897. #endif /* Not alloca. */
  898. #else /* Not GNU C.  */
  899. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  900. #include <alloca.h>
  901. #endif /* Sparc.  */
  902. #endif /* Not GNU C.  */
  903.  
  904. /* This is the parser code that is written into each bison parser
  905.   when the %semantic_parser declaration is not specified in the grammar.
  906.   It was written by Richard Stallman by simplifying the hairy parser
  907.   used when %semantic_parser is specified.  */
  908.  
  909. /* Note: there must be only one dollar sign in this file.
  910.    It is replaced by the list of actions, each action
  911.    as one case of the switch.  */
  912.  
  913. #define yyerrok        (yyerrstatus = 0)
  914. #define yyclearin    (yychar = YYEMPTY)
  915. #define YYEMPTY        -2
  916. #define YYEOF        0
  917. #define YYACCEPT    return(0)
  918. #define YYABORT     return(1)
  919. #define YYERROR        goto yyerrlab1
  920. /* Like YYERROR except do call yyerror.
  921.    This remains here temporarily to ease the
  922.    transition to the new meaning of YYERROR, for GCC.
  923.    Once GCC version 2 has supplanted version 1, this can go.  */
  924. #define YYFAIL        goto yyerrlab
  925. #define YYRECOVERING()  (!!yyerrstatus)
  926. #define YYBACKUP(token, value) \
  927. do                                \
  928.   if (yychar == YYEMPTY && yylen == 1)                \
  929.     { yychar = (token), yylval = (value);            \
  930.       yychar1 = YYTRANSLATE (yychar);                \
  931.       YYPOPSTACK;                        \
  932.       goto yybackup;                        \
  933.     }                                \
  934.   else                                \
  935.     { yyerror ("syntax error: cannot back up"); YYERROR; }    \
  936. while (0)
  937.  
  938. #define YYTERROR    1
  939. #define YYERRCODE    256
  940.  
  941. #ifndef YYIMPURE
  942. #define YYLEX        yylex()
  943. #endif
  944.  
  945. #ifndef YYPURE
  946. #define YYLEX        yylex(&yylval, &yylloc)
  947. #endif
  948.  
  949. /* If nonreentrant, generate the variables here */
  950.  
  951. #ifndef YYIMPURE
  952.  
  953. int    yychar;            /*  the lookahead symbol        */
  954. YYSTYPE    yylval;            /*  the semantic value of the        */
  955.                 /*  lookahead symbol            */
  956.  
  957. #ifdef YYLSP_NEEDED
  958. YYLTYPE yylloc;            /*  location data for the lookahead    */
  959.                 /*  symbol                */
  960. #endif
  961.  
  962. int yynerrs;            /*  number of parse errors so far       */
  963. #endif  /* YYIMPURE */
  964.  
  965. #if YYDEBUG != 0
  966. int yydebug;            /*  nonzero means print parse trace    */
  967. /* Since this is uninitialized, it does not stop multiple parsers
  968.    from coexisting.  */
  969. #endif
  970.  
  971. /*  YYINITDEPTH indicates the initial size of the parser's stacks    */
  972.  
  973. #ifndef    YYINITDEPTH
  974. #define YYINITDEPTH 200
  975. #endif
  976.  
  977. /*  YYMAXDEPTH is the maximum size the stacks can grow to
  978.     (effective only if the built-in stack extension method is used).  */
  979.  
  980. #if YYMAXDEPTH == 0
  981. #undef YYMAXDEPTH
  982. #endif
  983.  
  984. #ifndef YYMAXDEPTH
  985. #define YYMAXDEPTH 10000
  986. #endif
  987.  
  988. /* This is the most reliable way to avoid incompatibilities
  989.    in available built-in functions on various systems.  */
  990. static void
  991. #ifdef __cplusplus
  992. __yy_bcopy (char *from, char *to, int count)
  993. #else
  994. __yy_bcopy (from, to, count)
  995.      char *from;
  996.      char *to;
  997.      int count;
  998. #endif
  999. {
  1000.   register char *f = from;
  1001.   register char *t = to;
  1002.   register int i = count;
  1003.  
  1004.   while (i-- > 0)
  1005.     *t++ = *f++;
  1006. }
  1007.  
  1008. #line 137 "/usr/local/lib/bison.simple"
  1009. int
  1010. yyparse()
  1011. {
  1012.   register int yystate;
  1013.   register int yyn;
  1014.   register short *yyssp;
  1015.   register YYSTYPE *yyvsp;
  1016.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  1017.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  1018.  
  1019.   short    yyssa[YYINITDEPTH];    /*  the state stack            */
  1020.   YYSTYPE yyvsa[YYINITDEPTH];    /*  the semantic value stack        */
  1021.  
  1022.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  1023.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  1024.  
  1025. #ifdef YYLSP_NEEDED
  1026.   YYLTYPE *yyls = yylsa;
  1027.   YYLTYPE *yylsp;
  1028.   YYLTYPE yylsa[YYINITDEPTH];    /*  the location stack            */
  1029.  
  1030. #define YYPOPSTACK   (yyvsp--, yysp--, yylsp--)
  1031. #else
  1032. #define YYPOPSTACK   (yyvsp--, yysp--)
  1033. #endif
  1034.  
  1035.   int yystacksize = YYINITDEPTH;
  1036.  
  1037. #ifndef YYPURE
  1038.   int yychar;
  1039.   YYSTYPE yylval;
  1040.   int yynerrs;
  1041. #ifdef YYLSP_NEEDED
  1042.   YYLTYPE yylloc;
  1043. #endif
  1044. #endif
  1045.  
  1046.   YYSTYPE yyval;        /*  the variable used to return        */
  1047.                 /*  semantic values from the action    */
  1048.                 /*  routines                */
  1049.  
  1050.   int yylen;
  1051.  
  1052. #if YYDEBUG != 0
  1053.   if (yydebug)
  1054.     fprintf(stderr, "Starting parse\n");
  1055. #endif
  1056.  
  1057.   yystate = 0;
  1058.   yyerrstatus = 0;
  1059.   yynerrs = 0;
  1060.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  1061.  
  1062.   /* Initialize stack pointers.
  1063.      Waste one element of value and location stack
  1064.      so that they stay on the same level as the state stack.  */
  1065.  
  1066.   yyssp = yyss - 1;
  1067.   yyvsp = yyvs;
  1068. #ifdef YYLSP_NEEDED
  1069.   yylsp = yyls;
  1070. #endif
  1071.  
  1072. /* Push a new state, which is found in  yystate  .  */
  1073. /* In all cases, when you get here, the value and location stacks
  1074.    have just been pushed. so pushing a state here evens the stacks.  */
  1075. yynewstate:
  1076.  
  1077.   *++yyssp = yystate;
  1078.  
  1079.   if (yyssp >= yyss + yystacksize - 1)
  1080.     {
  1081.       /* Give user a chance to reallocate the stack */
  1082.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  1083.       YYSTYPE *yyvs1 = yyvs;
  1084.       short *yyss1 = yyss;
  1085. #ifdef YYLSP_NEEDED
  1086.       YYLTYPE *yyls1 = yyls;
  1087. #endif
  1088.  
  1089.       /* Get the current used size of the three stacks, in elements.  */
  1090.       int size = yyssp - yyss + 1;
  1091.  
  1092. #ifdef yyoverflow
  1093.       /* Each stack pointer address is followed by the size of
  1094.      the data in use in that stack, in bytes.  */
  1095.       yyoverflow("parser stack overflow",
  1096.          &yyss1, size * sizeof (*yyssp),
  1097.          &yyvs1, size * sizeof (*yyvsp),
  1098. #ifdef YYLSP_NEEDED
  1099.          &yyls1, size * sizeof (*yylsp),
  1100. #endif
  1101.          &yystacksize);
  1102.  
  1103.       yyss = yyss1; yyvs = yyvs1;
  1104. #ifdef YYLSP_NEEDED
  1105.       yyls = yyls1;
  1106. #endif
  1107. #else /* no yyoverflow */
  1108.       /* Extend the stack our own way.  */
  1109.       if (yystacksize >= YYMAXDEPTH)
  1110.     {
  1111.       yyerror("parser stack overflow");
  1112.       return 2;
  1113.     }
  1114.       yystacksize *= 2;
  1115.       if (yystacksize > YYMAXDEPTH)
  1116.     yystacksize = YYMAXDEPTH;
  1117.       yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
  1118.       __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  1119.       yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
  1120.       __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  1121. #ifdef YYLSP_NEEDED
  1122.       yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
  1123.       __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  1124. #endif
  1125. #endif /* no yyoverflow */
  1126.  
  1127.       yyssp = yyss + size - 1;
  1128.       yyvsp = yyvs + size - 1;
  1129. #ifdef YYLSP_NEEDED
  1130.       yylsp = yyls + size - 1;
  1131. #endif
  1132.  
  1133. #if YYDEBUG != 0
  1134.       if (yydebug)
  1135.     fprintf(stderr, "Stack size increased to %d\n", yystacksize);
  1136. #endif
  1137.  
  1138.       if (yyssp >= yyss + yystacksize - 1)
  1139.     YYABORT;
  1140.     }
  1141.  
  1142. #if YYDEBUG != 0
  1143.   if (yydebug)
  1144.     fprintf(stderr, "Entering state %d\n", yystate);
  1145. #endif
  1146.  
  1147.  yybackup:
  1148.  
  1149. /* Do appropriate processing given the current state.  */
  1150. /* Read a lookahead token if we need one and don't already have one.  */
  1151. /* yyresume: */
  1152.  
  1153.   /* First try to decide what to do without reference to lookahead token.  */
  1154.  
  1155.   yyn = yypact[yystate];
  1156.   if (yyn == YYFLAG)
  1157.     goto yydefault;
  1158.  
  1159.   /* Not known => get a lookahead token if don't already have one.  */
  1160.  
  1161.   /* yychar is either YYEMPTY or YYEOF
  1162.      or a valid token in external form.  */
  1163.  
  1164.   if (yychar == YYEMPTY)
  1165.     {
  1166. #if YYDEBUG != 0
  1167.       if (yydebug)
  1168.     fprintf(stderr, "Reading a token: ");
  1169. #endif
  1170.       yychar = YYLEX;
  1171.     }
  1172.  
  1173.   /* Convert token to internal form (in yychar1) for indexing tables with */
  1174.  
  1175.   if (yychar <= 0)        /* This means end of input. */
  1176.     {
  1177.       yychar1 = 0;
  1178.       yychar = YYEOF;        /* Don't call YYLEX any more */
  1179.  
  1180. #if YYDEBUG != 0
  1181.       if (yydebug)
  1182.     fprintf(stderr, "Now at end of input.\n");
  1183. #endif
  1184.     }
  1185.   else
  1186.     {
  1187.       yychar1 = YYTRANSLATE(yychar);
  1188.  
  1189. #if YYDEBUG != 0
  1190.       if (yydebug)
  1191.     fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]);
  1192. #endif
  1193.     }
  1194.  
  1195.   yyn += yychar1;
  1196.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1197.     goto yydefault;
  1198.  
  1199.   yyn = yytable[yyn];
  1200.  
  1201.   /* yyn is what to do for this token type in this state.
  1202.      Negative => reduce, -yyn is rule number.
  1203.      Positive => shift, yyn is new state.
  1204.        New state is final state => don't bother to shift,
  1205.        just return success.
  1206.      0, or most negative number => error.  */
  1207.  
  1208.   if (yyn < 0)
  1209.     {
  1210.       if (yyn == YYFLAG)
  1211.     goto yyerrlab;
  1212.       yyn = -yyn;
  1213.       goto yyreduce;
  1214.     }
  1215.   else if (yyn == 0)
  1216.     goto yyerrlab;
  1217.  
  1218.   if (yyn == YYFINAL)
  1219.     YYACCEPT;
  1220.  
  1221.   /* Shift the lookahead token.  */
  1222.  
  1223. #if YYDEBUG != 0
  1224.   if (yydebug)
  1225.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1226. #endif
  1227.  
  1228.   /* Discard the token being shifted unless it is eof.  */
  1229.   if (yychar != YYEOF)
  1230.     yychar = YYEMPTY;
  1231.  
  1232.   *++yyvsp = yylval;
  1233. #ifdef YYLSP_NEEDED
  1234.   *++yylsp = yylloc;
  1235. #endif
  1236.  
  1237.   /* count tokens shifted since error; after three, turn off error status.  */
  1238.   if (yyerrstatus) yyerrstatus--;
  1239.  
  1240.   yystate = yyn;
  1241.   goto yynewstate;
  1242.  
  1243. /* Do the default action for the current state.  */
  1244. yydefault:
  1245.  
  1246.   yyn = yydefact[yystate];
  1247.   if (yyn == 0)
  1248.     goto yyerrlab;
  1249.  
  1250. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1251. yyreduce:
  1252.   yylen = yyr2[yyn];
  1253.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1254.  
  1255. #if YYDEBUG != 0
  1256.   if (yydebug)
  1257.     {
  1258.       if (yylen == 1)
  1259.     fprintf (stderr, "Reducing 1 value via rule %d (line %d), ",
  1260.          yyn, yyrline[yyn]);
  1261.       else
  1262.     fprintf (stderr, "Reducing %d values via rule %d (line %d), ",
  1263.          yylen, yyn, yyrline[yyn]);
  1264.     }
  1265. #endif
  1266.  
  1267.  
  1268.   switch (yyn) {
  1269.  
  1270. case 2:
  1271. #line 266 "pic.y"
  1272. {
  1273.           if (olist.head)
  1274.             print_picture(olist.head);
  1275.         ;
  1276.     break;}
  1277. case 3:
  1278. #line 275 "pic.y"
  1279. { yyval.pl = yyvsp[-1].pl; ;
  1280.     break;}
  1281. case 4:
  1282. #line 280 "pic.y"
  1283. { yyval.pl = yyvsp[0].pl; ;
  1284.     break;}
  1285. case 5:
  1286. #line 282 "pic.y"
  1287. { yyval.pl = yyvsp[-2].pl; ;
  1288.     break;}
  1289. case 10:
  1290. #line 297 "pic.y"
  1291. {
  1292.           define_variable(yyvsp[-2].str, yyvsp[0].x);
  1293.           delete yyvsp[-2].str;
  1294.         ;
  1295.     break;}
  1296. case 11:
  1297. #line 302 "pic.y"
  1298. { current_direction = UP_DIRECTION; ;
  1299.     break;}
  1300. case 12:
  1301. #line 304 "pic.y"
  1302. { current_direction = DOWN_DIRECTION; ;
  1303.     break;}
  1304. case 13:
  1305. #line 306 "pic.y"
  1306. { current_direction = LEFT_DIRECTION; ;
  1307.     break;}
  1308. case 14:
  1309. #line 308 "pic.y"
  1310. { current_direction = RIGHT_DIRECTION; ;
  1311.     break;}
  1312. case 15:
  1313. #line 310 "pic.y"
  1314. {
  1315.           olist.append(make_command_object(yyvsp[0].lstr.str,
  1316.                              yyvsp[0].lstr.filename,
  1317.                              yyvsp[0].lstr.lineno));
  1318.         ;
  1319.     break;}
  1320. case 16:
  1321. #line 316 "pic.y"
  1322. {
  1323.           fprintf(stderr, "%g\n", yyvsp[0].x);
  1324.           fflush(stderr);
  1325.         ;
  1326.     break;}
  1327. case 17:
  1328. #line 321 "pic.y"
  1329. {
  1330.           fprintf(stderr, "%s\n", yyvsp[0].lstr.str);
  1331.           delete yyvsp[0].lstr.str;
  1332.           fflush(stderr);
  1333.         ;
  1334.     break;}
  1335. case 18:
  1336. #line 327 "pic.y"
  1337. {
  1338.           fprintf(stderr, "%g, %g\n", yyvsp[0].pair.x, yyvsp[0].pair.y);
  1339.           fflush(stderr);
  1340.         ;
  1341.     break;}
  1342. case 19:
  1343. #line 332 "pic.y"
  1344. { delim_flag = 1; ;
  1345.     break;}
  1346. case 20:
  1347. #line 334 "pic.y"
  1348. {
  1349.           delim_flag = 0;
  1350.           system(yyvsp[0].str);
  1351.           delete yyvsp[0].str;
  1352.         ;
  1353.     break;}
  1354. case 21:
  1355. #line 340 "pic.y"
  1356. {
  1357.           if (yychar < 0)
  1358.             do_lookahead();
  1359.           do_copy(yyvsp[0].lstr.str);
  1360.           // do not delete the filename
  1361.         ;
  1362.     break;}
  1363. case 22:
  1364. #line 347 "pic.y"
  1365. { delim_flag = 2; ;
  1366.     break;}
  1367. case 23:
  1368. #line 349 "pic.y"
  1369. { delim_flag = 0; ;
  1370.     break;}
  1371. case 24:
  1372. #line 351 "pic.y"
  1373. {
  1374.           if (yychar < 0)
  1375.             do_lookahead();
  1376.           copy_file_thru(yyvsp[-5].lstr.str, yyvsp[-2].str, yyvsp[0].str);
  1377.           // do not delete the filename
  1378.           delete yyvsp[-2].str;
  1379.           delete yyvsp[0].str;
  1380.         ;
  1381.     break;}
  1382. case 25:
  1383. #line 360 "pic.y"
  1384. { delim_flag = 2; ;
  1385.     break;}
  1386. case 26:
  1387. #line 362 "pic.y"
  1388. { delim_flag = 0; ;
  1389.     break;}
  1390. case 27:
  1391. #line 364 "pic.y"
  1392. {
  1393.           if (yychar < 0)
  1394.             do_lookahead();
  1395.           copy_rest_thru(yyvsp[-2].str, yyvsp[0].str);
  1396.           delete yyvsp[-2].str;
  1397.           delete yyvsp[0].str;
  1398.         ;
  1399.     break;}
  1400. case 28:
  1401. #line 372 "pic.y"
  1402. { delim_flag = 1; ;
  1403.     break;}
  1404. case 29:
  1405. #line 374 "pic.y"
  1406. {
  1407.           delim_flag = 0;
  1408.           if (yychar < 0)
  1409.             do_lookahead();
  1410.           do_for(yyvsp[-8].str, yyvsp[-6].x, yyvsp[-4].x, yyvsp[-3].by.is_multiplicative, yyvsp[-3].by.val, yyvsp[0].str); 
  1411.         ;
  1412.     break;}
  1413. case 30:
  1414. #line 381 "pic.y"
  1415. {
  1416.           if (yychar < 0)
  1417.             do_lookahead();
  1418.           if (yyvsp[0].if_data.x != 0.0)
  1419.             push_body(yyvsp[0].if_data.body);
  1420.           delete yyvsp[0].if_data.body;
  1421.         ;
  1422.     break;}
  1423. case 31:
  1424. #line 389 "pic.y"
  1425. { delim_flag = 1; ;
  1426.     break;}
  1427. case 32:
  1428. #line 391 "pic.y"
  1429. {
  1430.           delim_flag = 0;
  1431.           if (yychar < 0)
  1432.             do_lookahead();
  1433.           if (yyvsp[-3].if_data.x != 0.0)
  1434.             push_body(yyvsp[-3].if_data.body);
  1435.           else
  1436.             push_body(yyvsp[0].str);
  1437.           delete yyvsp[-3].if_data.body;
  1438.           delete yyvsp[0].str;
  1439.         ;
  1440.     break;}
  1441. case 34:
  1442. #line 404 "pic.y"
  1443. { define_variable("scale", 1.0); ;
  1444.     break;}
  1445. case 35:
  1446. #line 409 "pic.y"
  1447. { reset(yyvsp[0].str); delete yyvsp[0].str; ;
  1448.     break;}
  1449. case 36:
  1450. #line 411 "pic.y"
  1451. { reset(yyvsp[0].str); delete yyvsp[0].str; ;
  1452.     break;}
  1453. case 37:
  1454. #line 413 "pic.y"
  1455. { reset(yyvsp[0].str); delete yyvsp[0].str; ;
  1456.     break;}
  1457. case 38:
  1458. #line 418 "pic.y"
  1459. { delim_flag = 1; ;
  1460.     break;}
  1461. case 39:
  1462. #line 420 "pic.y"
  1463. { delim_flag = 0; yyval.if_data.x = yyvsp[-3].x; yyval.if_data.body = yyvsp[0].str; ;
  1464.     break;}
  1465. case 40:
  1466. #line 425 "pic.y"
  1467. { yyval.str = 0; ;
  1468.     break;}
  1469. case 41:
  1470. #line 427 "pic.y"
  1471. { yyval.str = yyvsp[0].lstr.str; ;
  1472.     break;}
  1473. case 42:
  1474. #line 432 "pic.y"
  1475. { yyval.x = yyvsp[0].x; ;
  1476.     break;}
  1477. case 43:
  1478. #line 434 "pic.y"
  1479. {
  1480.           yyval.x = strcmp(yyvsp[-2].lstr.str, yyvsp[0].lstr.str) == 0;
  1481.           delete yyvsp[-2].lstr.str;
  1482.           delete yyvsp[0].lstr.str;
  1483.         ;
  1484.     break;}
  1485. case 44:
  1486. #line 440 "pic.y"
  1487. {
  1488.           yyval.x = strcmp(yyvsp[-2].lstr.str, yyvsp[0].lstr.str) != 0;
  1489.           delete yyvsp[-2].lstr.str;
  1490.           delete yyvsp[0].lstr.str;
  1491.         ;
  1492.     break;}
  1493. case 45:
  1494. #line 448 "pic.y"
  1495. { yyval.by.val = 1.0; yyval.by.is_multiplicative = 0; ;
  1496.     break;}
  1497. case 46:
  1498. #line 450 "pic.y"
  1499. { yyval.by.val = yyvsp[0].x; yyval.by.is_multiplicative = 0; ;
  1500.     break;}
  1501. case 47:
  1502. #line 452 "pic.y"
  1503. { yyval.by.val = yyvsp[0].x; yyval.by.is_multiplicative = 1; ;
  1504.     break;}
  1505. case 48:
  1506. #line 457 "pic.y"
  1507. {
  1508.           yyval.pl.obj = yyvsp[0].spec->make_object(¤t_position,
  1509.                        ¤t_direction);
  1510.           if (yyval.pl.obj == 0)
  1511.             YYABORT;
  1512.           delete yyvsp[0].spec;
  1513.           if (yyval.pl.obj)
  1514.             olist.append(yyval.pl.obj);
  1515.           else {
  1516.             yyval.pl.x = current_position.x;
  1517.             yyval.pl.y = current_position.y;
  1518.           }
  1519.         ;
  1520.     break;}
  1521. case 49:
  1522. #line 471 "pic.y"
  1523. { yyval.pl = yyvsp[0].pl; define_label(yyvsp[-3].str, & yyval.pl); delete yyvsp[-3].str; ;
  1524.     break;}
  1525. case 50:
  1526. #line 473 "pic.y"
  1527. {
  1528.           yyval.pl.obj = 0;
  1529.           yyval.pl.x = yyvsp[0].pair.x;
  1530.           yyval.pl.y = yyvsp[0].pair.y;
  1531.           define_label(yyvsp[-3].str, & yyval.pl);
  1532.           delete yyvsp[-3].str;
  1533.         ;
  1534.     break;}
  1535. case 51:
  1536. #line 481 "pic.y"
  1537. {
  1538.           yyval.pl = yyvsp[0].pl;
  1539.           define_label(yyvsp[-3].str, & yyval.pl);
  1540.           delete yyvsp[-3].str;
  1541.         ;
  1542.     break;}
  1543. case 52:
  1544. #line 487 "pic.y"
  1545. {
  1546.           yyval.state.x = current_position.x;
  1547.           yyval.state.y = current_position.y;
  1548.           yyval.state.dir = current_direction;
  1549.         ;
  1550.     break;}
  1551. case 53:
  1552. #line 493 "pic.y"
  1553. {
  1554.           current_position.x = yyvsp[-2].state.x;
  1555.           current_position.y = yyvsp[-2].state.y;
  1556.           current_direction = yyvsp[-2].state.dir;
  1557.           yyval.pl = yyvsp[-1].pl;
  1558.         ;
  1559.     break;}
  1560. case 54:
  1561. #line 500 "pic.y"
  1562. {
  1563.           yyval.pl.obj = 0;
  1564.           yyval.pl.x = current_position.x;
  1565.           yyval.pl.y = current_position.y;
  1566.         ;
  1567.     break;}
  1568. case 55:
  1569. #line 509 "pic.y"
  1570. {
  1571.           yyval.spec = new object_spec(BOX_OBJECT);
  1572.         ;
  1573.     break;}
  1574. case 56:
  1575. #line 513 "pic.y"
  1576. {
  1577.           yyval.spec = new object_spec(CIRCLE_OBJECT);
  1578.         ;
  1579.     break;}
  1580. case 57:
  1581. #line 517 "pic.y"
  1582. {
  1583.           yyval.spec = new object_spec(ELLIPSE_OBJECT);
  1584.         ;
  1585.     break;}
  1586. case 58:
  1587. #line 521 "pic.y"
  1588. {
  1589.           yyval.spec = new object_spec(ARC_OBJECT);
  1590.           yyval.spec->dir = current_direction;
  1591.         ;
  1592.     break;}
  1593. case 59:
  1594. #line 526 "pic.y"
  1595. {
  1596.           yyval.spec = new object_spec(LINE_OBJECT);
  1597.           lookup_variable("lineht", & yyval.spec->segment_height);
  1598.           lookup_variable("linewid", & yyval.spec->segment_width);
  1599.           yyval.spec->dir = current_direction;
  1600.         ;
  1601.     break;}
  1602. case 60:
  1603. #line 533 "pic.y"
  1604. {
  1605.           yyval.spec = new object_spec(ARROW_OBJECT);
  1606.           lookup_variable("lineht", & yyval.spec->segment_height);
  1607.           lookup_variable("linewid", & yyval.spec->segment_width);
  1608.           yyval.spec->dir = current_direction;
  1609.         ;
  1610.     break;}
  1611. case 61:
  1612. #line 540 "pic.y"
  1613. {
  1614.           yyval.spec = new object_spec(MOVE_OBJECT);
  1615.           lookup_variable("moveht", & yyval.spec->segment_height);
  1616.           lookup_variable("movewid", & yyval.spec->segment_width);
  1617.           yyval.spec->dir = current_direction;
  1618.         ;
  1619.     break;}
  1620. case 62:
  1621. #line 547 "pic.y"
  1622. {
  1623.           yyval.spec = new object_spec(SPLINE_OBJECT);
  1624.           lookup_variable("lineht", & yyval.spec->segment_height);
  1625.           lookup_variable("linewid", & yyval.spec->segment_width);
  1626.           yyval.spec->dir = current_direction;
  1627.         ;
  1628.     break;}
  1629. case 63:
  1630. #line 554 "pic.y"
  1631. {
  1632.           yyval.spec = new object_spec(TEXT_OBJECT);
  1633.           yyval.spec->text = new text_item(yyvsp[0].lstr.str, yyvsp[0].lstr.filename, yyvsp[0].lstr.lineno);
  1634.         ;
  1635.     break;}
  1636. case 64:
  1637. #line 559 "pic.y"
  1638. {
  1639.           yyval.spec = new object_spec(TEXT_OBJECT);
  1640.           yyval.spec->text = new text_item(format_number(0, yyvsp[0].x), 0, -1);
  1641.         ;
  1642.     break;}
  1643. case 65:
  1644. #line 564 "pic.y"
  1645. {
  1646.           yyval.spec = new object_spec(TEXT_OBJECT);
  1647.           yyval.spec->text = new text_item(format_number(yyvsp[0].lstr.str, yyvsp[-1].x),
  1648.                        yyvsp[0].lstr.filename, yyvsp[0].lstr.lineno);
  1649.           delete yyvsp[0].lstr.str;
  1650.         ;
  1651.     break;}
  1652. case 66:
  1653. #line 571 "pic.y"
  1654. {
  1655.           saved_state *p = new saved_state;
  1656.           yyval.pstate = p;
  1657.           p->x = current_position.x;
  1658.           p->y = current_position.y;
  1659.           p->dir = current_direction;
  1660.           p->tbl = current_table;
  1661.           p->prev = current_saved_state;
  1662.           current_position.x = 0.0;
  1663.           current_position.y = 0.0;
  1664.           current_table = new PTABLE(place);
  1665.           current_saved_state = p;
  1666.           olist.append(make_mark_object());
  1667.         ;
  1668.     break;}
  1669. case 67:
  1670. #line 586 "pic.y"
  1671. {
  1672.           current_position.x = yyvsp[-2].pstate->x;
  1673.           current_position.y = yyvsp[-2].pstate->y;
  1674.           current_direction = yyvsp[-2].pstate->dir;
  1675.           yyval.spec = new object_spec(BLOCK_OBJECT);
  1676.           olist.wrap_up_block(& yyval.spec->oblist);
  1677.           yyval.spec->tbl = current_table;
  1678.           current_table = yyvsp[-2].pstate->tbl;
  1679.           current_saved_state = yyvsp[-2].pstate->prev;
  1680.           delete yyvsp[-2].pstate;
  1681.         ;
  1682.     break;}
  1683. case 68:
  1684. #line 598 "pic.y"
  1685. {
  1686.           yyval.spec = yyvsp[-2].spec;
  1687.           yyval.spec->height = yyvsp[0].x;
  1688.           yyval.spec->flags |= HAS_HEIGHT;
  1689.         ;
  1690.     break;}
  1691. case 69:
  1692. #line 604 "pic.y"
  1693. {
  1694.           yyval.spec = yyvsp[-2].spec;
  1695.           yyval.spec->radius = yyvsp[0].x;
  1696.           yyval.spec->flags |= HAS_RADIUS;
  1697.         ;
  1698.     break;}
  1699. case 70:
  1700. #line 610 "pic.y"
  1701. {
  1702.           yyval.spec = yyvsp[-2].spec;
  1703.           yyval.spec->width = yyvsp[0].x;
  1704.           yyval.spec->flags |= HAS_WIDTH;
  1705.         ;
  1706.     break;}
  1707. case 71:
  1708. #line 616 "pic.y"
  1709. {
  1710.           yyval.spec = yyvsp[-2].spec;
  1711.           yyval.spec->radius = yyvsp[0].x/2.0;
  1712.           yyval.spec->flags |= HAS_RADIUS;
  1713.         ;
  1714.     break;}
  1715. case 72:
  1716. #line 622 "pic.y"
  1717. {
  1718.           yyval.spec = yyvsp[-1].spec;
  1719.           yyval.spec->flags |= HAS_SEGMENT;
  1720.           switch (yyval.spec->dir) {
  1721.           case UP_DIRECTION:
  1722.             yyval.spec->segment_pos.y += yyvsp[0].x;
  1723.             break;
  1724.           case DOWN_DIRECTION:
  1725.             yyval.spec->segment_pos.y -= yyvsp[0].x;
  1726.             break;
  1727.           case RIGHT_DIRECTION:
  1728.             yyval.spec->segment_pos.x += yyvsp[0].x;
  1729.             break;
  1730.           case LEFT_DIRECTION:
  1731.             yyval.spec->segment_pos.x -= yyvsp[0].x;
  1732.             break;
  1733.           }
  1734.         ;
  1735.     break;}
  1736. case 73:
  1737. #line 641 "pic.y"
  1738. {
  1739.           yyval.spec = yyvsp[-1].spec;
  1740.           yyval.spec->dir = UP_DIRECTION;
  1741.           yyval.spec->flags |= HAS_SEGMENT;
  1742.           yyval.spec->segment_pos.y += yyval.spec->segment_height;
  1743.         ;
  1744.     break;}
  1745. case 74:
  1746. #line 648 "pic.y"
  1747. {
  1748.           yyval.spec = yyvsp[-2].spec;
  1749.           yyval.spec->dir = UP_DIRECTION;
  1750.           yyval.spec->flags |= HAS_SEGMENT;
  1751.           yyval.spec->segment_pos.y += yyvsp[0].x;
  1752.         ;
  1753.     break;}
  1754. case 75:
  1755. #line 655 "pic.y"
  1756. {
  1757.           yyval.spec = yyvsp[-1].spec;
  1758.           yyval.spec->dir = DOWN_DIRECTION;
  1759.           yyval.spec->flags |= HAS_SEGMENT;
  1760.           yyval.spec->segment_pos.y -= yyval.spec->segment_height;
  1761.         ;
  1762.     break;}
  1763. case 76:
  1764. #line 662 "pic.y"
  1765. {
  1766.           yyval.spec = yyvsp[-2].spec;
  1767.           yyval.spec->dir = DOWN_DIRECTION;
  1768.           yyval.spec->flags |= HAS_SEGMENT;
  1769.           yyval.spec->segment_pos.y -= yyvsp[0].x;
  1770.         ;
  1771.     break;}
  1772. case 77:
  1773. #line 669 "pic.y"
  1774. {
  1775.           yyval.spec = yyvsp[-1].spec;
  1776.           yyval.spec->dir = RIGHT_DIRECTION;
  1777.           yyval.spec->flags |= HAS_SEGMENT;
  1778.           yyval.spec->segment_pos.x += yyval.spec->segment_width;
  1779.         ;
  1780.     break;}
  1781. case 78:
  1782. #line 676 "pic.y"
  1783. {
  1784.           yyval.spec = yyvsp[-2].spec;
  1785.           yyval.spec->dir = RIGHT_DIRECTION;
  1786.           yyval.spec->flags |= HAS_SEGMENT;
  1787.           yyval.spec->segment_pos.x += yyvsp[0].x;
  1788.         ;
  1789.     break;}
  1790. case 79:
  1791. #line 683 "pic.y"
  1792. {
  1793.           yyval.spec = yyvsp[-1].spec;
  1794.           yyval.spec->dir = LEFT_DIRECTION;
  1795.           yyval.spec->flags |= HAS_SEGMENT;
  1796.           yyval.spec->segment_pos.x -= yyval.spec->segment_width;
  1797.         ;
  1798.     break;}
  1799. case 80:
  1800. #line 690 "pic.y"
  1801. {
  1802.           yyval.spec = yyvsp[-2].spec;
  1803.           yyval.spec->dir = LEFT_DIRECTION;
  1804.           yyval.spec->flags |= HAS_SEGMENT;
  1805.           yyval.spec->segment_pos.x -= yyvsp[0].x;
  1806.         ;
  1807.     break;}
  1808. case 81:
  1809. #line 697 "pic.y"
  1810. {
  1811.           yyval.spec = yyvsp[-2].spec;
  1812.           yyval.spec->flags |= HAS_FROM;
  1813.           yyval.spec->from.x = yyvsp[0].pair.x;
  1814.           yyval.spec->from.y = yyvsp[0].pair.y;
  1815.         ;
  1816.     break;}
  1817. case 82:
  1818. #line 704 "pic.y"
  1819. {
  1820.           yyval.spec = yyvsp[-2].spec;
  1821.           if (yyval.spec->flags & HAS_SEGMENT)
  1822.             yyval.spec->segment_list = new segment(yyval.spec->segment_pos,
  1823.                            yyval.spec->segment_is_absolute,
  1824.                            yyval.spec->segment_list);
  1825.           yyval.spec->flags |= HAS_SEGMENT;
  1826.           yyval.spec->segment_pos.x = yyvsp[0].pair.x;
  1827.           yyval.spec->segment_pos.y = yyvsp[0].pair.y;
  1828.           yyval.spec->segment_is_absolute = 1;
  1829.           yyval.spec->flags |= HAS_TO;
  1830.           yyval.spec->to.x = yyvsp[0].pair.x;
  1831.           yyval.spec->to.y = yyvsp[0].pair.y;
  1832.         ;
  1833.     break;}
  1834. case 83:
  1835. #line 719 "pic.y"
  1836. {
  1837.           yyval.spec = yyvsp[-2].spec;
  1838.           yyval.spec->flags |= HAS_AT;
  1839.           yyval.spec->at.x = yyvsp[0].pair.x;
  1840.           yyval.spec->at.y = yyvsp[0].pair.y;
  1841.           if (yyval.spec->type != ARC_OBJECT) {
  1842.             yyval.spec->flags |= HAS_FROM;
  1843.             yyval.spec->from.x = yyvsp[0].pair.x;
  1844.             yyval.spec->from.y = yyvsp[0].pair.y;
  1845.           }
  1846.         ;
  1847.     break;}
  1848. case 84:
  1849. #line 731 "pic.y"
  1850. {
  1851.           yyval.spec = yyvsp[-2].spec;
  1852.           yyval.spec->flags |= HAS_WITH;
  1853.           yyval.spec->with = yyvsp[0].pth;
  1854.         ;
  1855.     break;}
  1856. case 85:
  1857. #line 737 "pic.y"
  1858. {
  1859.           yyval.spec = yyvsp[-2].spec;
  1860.           yyval.spec->flags |= HAS_SEGMENT;
  1861.           yyval.spec->segment_pos.x += yyvsp[0].pair.x;
  1862.           yyval.spec->segment_pos.y += yyvsp[0].pair.y;
  1863.         ;
  1864.     break;}
  1865. case 86:
  1866. #line 744 "pic.y"
  1867. {
  1868.           yyval.spec = yyvsp[-1].spec;
  1869.           if (yyval.spec->flags & HAS_SEGMENT) {
  1870.             yyval.spec->segment_list = new segment(yyval.spec->segment_pos,
  1871.                            yyval.spec->segment_is_absolute,
  1872.                            yyval.spec->segment_list);
  1873.             yyval.spec->flags &= ~HAS_SEGMENT;
  1874.             yyval.spec->segment_pos.x = yyval.spec->segment_pos.y = 0.0;
  1875.             yyval.spec->segment_is_absolute = 0;
  1876.           }
  1877.         ;
  1878.     break;}
  1879. case 87:
  1880. #line 756 "pic.y"
  1881. {
  1882.           yyval.spec = yyvsp[-1].spec;
  1883.           yyval.spec->flags |= IS_DOTTED;
  1884.           lookup_variable("dashwid", & yyval.spec->dash_width);
  1885.         ;
  1886.     break;}
  1887. case 88:
  1888. #line 762 "pic.y"
  1889. {
  1890.           yyval.spec = yyvsp[-2].spec;
  1891.           yyval.spec->flags |= IS_DOTTED;
  1892.           yyval.spec->dash_width = yyvsp[0].x;
  1893.         ;
  1894.     break;}
  1895. case 89:
  1896. #line 768 "pic.y"
  1897. {
  1898.           yyval.spec = yyvsp[-1].spec;
  1899.           yyval.spec->flags |= IS_DASHED;
  1900.           lookup_variable("dashwid", & yyval.spec->dash_width);
  1901.         ;
  1902.     break;}
  1903. case 90:
  1904. #line 774 "pic.y"
  1905. {
  1906.           yyval.spec = yyvsp[-2].spec;
  1907.           yyval.spec->flags |= IS_DASHED;
  1908.           yyval.spec->dash_width = yyvsp[0].x;
  1909.         ;
  1910.     break;}
  1911. case 91:
  1912. #line 780 "pic.y"
  1913. {
  1914.           yyval.spec = yyvsp[-1].spec;
  1915.           yyval.spec->flags |= IS_DEFAULT_FILLED;
  1916.         ;
  1917.     break;}
  1918. case 92:
  1919. #line 785 "pic.y"
  1920. {
  1921.           yyval.spec = yyvsp[-2].spec;
  1922.           yyval.spec->flags |= IS_FILLED;
  1923.           yyval.spec->fill = yyvsp[0].x;
  1924.         ;
  1925.     break;}
  1926. case 93:
  1927. #line 791 "pic.y"
  1928. {
  1929.           yyval.spec = yyvsp[-1].spec;
  1930.           // line chop chop means line chop 0 chop 0
  1931.           if (yyval.spec->flags & IS_DEFAULT_CHOPPED) {
  1932.             yyval.spec->flags |= IS_CHOPPED;
  1933.             yyval.spec->flags &= ~IS_DEFAULT_CHOPPED;
  1934.             yyval.spec->start_chop = yyval.spec->end_chop = 0.0;
  1935.           }
  1936.           else if (yyval.spec->flags & IS_CHOPPED) {
  1937.             yyval.spec->end_chop = 0.0;
  1938.           }
  1939.           else {
  1940.             yyval.spec->flags |= IS_DEFAULT_CHOPPED;
  1941.           }
  1942.         ;
  1943.     break;}
  1944. case 94:
  1945. #line 807 "pic.y"
  1946. {
  1947.           yyval.spec = yyvsp[-2].spec;
  1948.           if (yyval.spec->flags & IS_DEFAULT_CHOPPED) {
  1949.             yyval.spec->flags |= IS_CHOPPED;
  1950.             yyval.spec->flags &= ~IS_DEFAULT_CHOPPED;
  1951.             yyval.spec->start_chop = 0.0;
  1952.             yyval.spec->end_chop = yyvsp[0].x;
  1953.           }
  1954.           else if (yyval.spec->flags & IS_CHOPPED) {
  1955.             yyval.spec->end_chop = yyvsp[0].x;
  1956.           }
  1957.           else {
  1958.             yyval.spec->start_chop = yyval.spec->end_chop = yyvsp[0].x;
  1959.             yyval.spec->flags |= IS_CHOPPED;
  1960.           }
  1961.         ;
  1962.     break;}
  1963. case 95:
  1964. #line 824 "pic.y"
  1965. {
  1966.           yyval.spec = yyvsp[-1].spec;
  1967.           yyval.spec->flags |= IS_SAME;
  1968.         ;
  1969.     break;}
  1970. case 96:
  1971. #line 829 "pic.y"
  1972. {
  1973.           yyval.spec = yyvsp[-1].spec;
  1974.           yyval.spec->flags |= IS_INVISIBLE;
  1975.         ;
  1976.     break;}
  1977. case 97:
  1978. #line 834 "pic.y"
  1979. {
  1980.           yyval.spec = yyvsp[-1].spec;
  1981.           yyval.spec->flags |= HAS_LEFT_ARROW_HEAD;
  1982.         ;
  1983.     break;}
  1984. case 98:
  1985. #line 839 "pic.y"
  1986. {
  1987.           yyval.spec = yyvsp[-1].spec;
  1988.           yyval.spec->flags |= HAS_RIGHT_ARROW_HEAD;
  1989.         ;
  1990.     break;}
  1991. case 99:
  1992. #line 844 "pic.y"
  1993. {
  1994.           yyval.spec = yyvsp[-1].spec;
  1995.           yyval.spec->flags |= (HAS_LEFT_ARROW_HEAD|HAS_RIGHT_ARROW_HEAD);
  1996.         ;
  1997.     break;}
  1998. case 100:
  1999. #line 849 "pic.y"
  2000. {
  2001.           yyval.spec = yyvsp[-1].spec;
  2002.           yyval.spec->flags |= IS_CLOCKWISE;
  2003.         ;
  2004.     break;}
  2005. case 101:
  2006. #line 854 "pic.y"
  2007. {
  2008.           yyval.spec = yyvsp[-1].spec;
  2009.           yyval.spec->flags &= ~IS_CLOCKWISE;
  2010.         ;
  2011.     break;}
  2012. case 102:
  2013. #line 859 "pic.y"
  2014. {
  2015.           yyval.spec = yyvsp[-1].spec;
  2016.           for (text_item **p = & yyval.spec->text; *p; p = &(*p)->next)
  2017.             ;
  2018.           *p = new text_item(yyvsp[0].lstr.str, yyvsp[0].lstr.filename, yyvsp[0].lstr.lineno);
  2019.         ;
  2020.     break;}
  2021. case 103:
  2022. #line 866 "pic.y"
  2023. {
  2024.           yyval.spec = yyvsp[-1].spec;
  2025.           if (yyval.spec->text) {
  2026.             for (text_item *p = yyval.spec->text; p->next; p = p->next)
  2027.               ;
  2028.             p->adj.h = LEFT_ADJUST;
  2029.           }
  2030.         ;
  2031.     break;}
  2032. case 104:
  2033. #line 875 "pic.y"
  2034. {
  2035.           yyval.spec = yyvsp[-1].spec;
  2036.           if (yyval.spec->text) {
  2037.             for (text_item *p = yyval.spec->text; p->next; p = p->next)
  2038.               ;
  2039.             p->adj.h = RIGHT_ADJUST;
  2040.           }
  2041.         ;
  2042.     break;}
  2043. case 105:
  2044. #line 884 "pic.y"
  2045. {
  2046.           yyval.spec = yyvsp[-1].spec;
  2047.           if (yyval.spec->text) {
  2048.             for (text_item *p = yyval.spec->text; p->next; p = p->next)
  2049.               ;
  2050.             p->adj.v = ABOVE_ADJUST;
  2051.           }
  2052.         ;
  2053.     break;}
  2054. case 106:
  2055. #line 893 "pic.y"
  2056. {
  2057.           yyval.spec = yyvsp[-1].spec;
  2058.           if (yyval.spec->text) {
  2059.             for (text_item *p = yyval.spec->text; p->next; p = p->next)
  2060.               ;
  2061.             p->adj.v = BELOW_ADJUST;
  2062.           }
  2063.         ;
  2064.     break;}
  2065. case 107:
  2066. #line 902 "pic.y"
  2067. {
  2068.           yyval.spec = yyvsp[-2].spec;
  2069.           yyval.spec->flags |= HAS_THICKNESS;
  2070.           yyval.spec->thickness = yyvsp[0].x;
  2071.         ;
  2072.     break;}
  2073. case 108:
  2074. #line 908 "pic.y"
  2075. {
  2076.           yyval.spec = yyvsp[-1].spec;
  2077.           yyval.spec->flags |= IS_ALIGNED;
  2078.         ;
  2079.     break;}
  2080. case 109:
  2081. #line 916 "pic.y"
  2082. {
  2083.           yyval.lstr = yyvsp[0].lstr;
  2084.         ;
  2085.     break;}
  2086. case 110:
  2087. #line 920 "pic.y"
  2088. {
  2089.           yyval.lstr.filename = yyvsp[-2].lstr.filename;
  2090.           yyval.lstr.lineno = yyvsp[-2].lstr.lineno;
  2091.           yyval.lstr.str = do_sprintf(yyvsp[-2].lstr.str, yyvsp[-1].dv.v, yyvsp[-1].dv.nv);
  2092.           delete yyvsp[-1].dv.v;
  2093.           delete yyvsp[-2].lstr.str;
  2094.         ;
  2095.     break;}
  2096. case 111:
  2097. #line 931 "pic.y"
  2098. {
  2099.           yyval.dv.v = 0;
  2100.           yyval.dv.nv = 0;
  2101.           yyval.dv.maxv = 0;
  2102.         ;
  2103.     break;}
  2104. case 112:
  2105. #line 937 "pic.y"
  2106. {
  2107.           yyval.dv = yyvsp[-2].dv;
  2108.           if (yyval.dv.nv >= yyval.dv.maxv) {
  2109.             if (yyval.dv.nv == 0) {
  2110.               yyval.dv.v = new double[4];
  2111.               yyval.dv.maxv = 4;
  2112.             }
  2113.             else {
  2114.               double *oldv = yyval.dv.v;
  2115.               yyval.dv.maxv *= 2;
  2116.               yyval.dv.v = new double[yyval.dv.maxv];
  2117.               memcpy(yyval.dv.v, oldv, yyval.dv.nv*sizeof(double));
  2118.               delete oldv;
  2119.             }
  2120.           }
  2121.           yyval.dv.v[yyval.dv.nv] = yyvsp[0].x;
  2122.           yyval.dv.nv += 1;
  2123.         ;
  2124.     break;}
  2125. case 113:
  2126. #line 959 "pic.y"
  2127. { yyval.pair = yyvsp[0].pair; ;
  2128.     break;}
  2129. case 114:
  2130. #line 961 "pic.y"
  2131. {
  2132.           position pos = yyvsp[0].pl;
  2133.           yyval.pair.x = pos.x;
  2134.           yyval.pair.y = pos.y;
  2135.         ;
  2136.     break;}
  2137. case 115:
  2138. #line 970 "pic.y"
  2139. { yyval.pair = yyvsp[0].pair; ;
  2140.     break;}
  2141. case 116:
  2142. #line 972 "pic.y"
  2143. {
  2144.           yyval.pair.x = yyvsp[-2].pair.x + yyvsp[0].pair.x;
  2145.           yyval.pair.y = yyvsp[-2].pair.y + yyvsp[0].pair.y;
  2146.         ;
  2147.     break;}
  2148. case 117:
  2149. #line 977 "pic.y"
  2150. {
  2151.           yyval.pair.x = yyvsp[-2].pair.x - yyvsp[0].pair.x;
  2152.           yyval.pair.y = yyvsp[-2].pair.y - yyvsp[0].pair.y;
  2153.         ;
  2154.     break;}
  2155. case 118:
  2156. #line 982 "pic.y"
  2157. {
  2158.           yyval.pair.x = yyvsp[-3].pair.x;
  2159.           yyval.pair.y = yyvsp[-1].pair.y;
  2160.         ;
  2161.     break;}
  2162. case 119:
  2163. #line 987 "pic.y"
  2164. {
  2165.           yyval.pair.x = (1.0 - yyvsp[-4].x)*yyvsp[-2].pair.x + yyvsp[-4].x*yyvsp[0].pair.x;
  2166.           yyval.pair.y = (1.0 - yyvsp[-4].x)*yyvsp[-2].pair.y + yyvsp[-4].x*yyvsp[0].pair.y;
  2167.         ;
  2168.     break;}
  2169. case 120:
  2170. #line 992 "pic.y"
  2171. {
  2172.           yyval.pair.x = (1.0 - yyvsp[-5].x)*yyvsp[-3].pair.x + yyvsp[-5].x*yyvsp[-1].pair.x;
  2173.           yyval.pair.y = (1.0 - yyvsp[-5].x)*yyvsp[-3].pair.y + yyvsp[-5].x*yyvsp[-1].pair.y;
  2174.         ;
  2175.     break;}
  2176. case 123:
  2177. #line 1005 "pic.y"
  2178. { yyval.pair.x = yyvsp[-2].x; yyval.pair.y = yyvsp[0].x; ;
  2179.     break;}
  2180. case 124:
  2181. #line 1007 "pic.y"
  2182. { yyval.pair = yyvsp[-1].pair; ;
  2183.     break;}
  2184. case 125:
  2185. #line 1012 "pic.y"
  2186. { yyval.pl = yyvsp[0].pl; ;
  2187.     break;}
  2188. case 126:
  2189. #line 1014 "pic.y"
  2190. {
  2191.           path pth(yyvsp[0].crn);
  2192.           if (!pth.follow(yyvsp[-1].pl, & yyval.pl))
  2193.             YYABORT;
  2194.         ;
  2195.     break;}
  2196. case 127:
  2197. #line 1020 "pic.y"
  2198. {
  2199.           path pth(yyvsp[-1].crn);
  2200.           if (!pth.follow(yyvsp[0].pl, & yyval.pl))
  2201.             YYABORT;
  2202.         ;
  2203.     break;}
  2204. case 128:
  2205. #line 1026 "pic.y"
  2206. {
  2207.           path pth(yyvsp[-2].crn);
  2208.           if (!pth.follow(yyvsp[0].pl, & yyval.pl))
  2209.             YYABORT;
  2210.         ;
  2211.     break;}
  2212. case 129:
  2213. #line 1032 "pic.y"
  2214. {
  2215.           yyval.pl.x = current_position.x;
  2216.           yyval.pl.y = current_position.y;
  2217.           yyval.pl.obj = 0;
  2218.         ;
  2219.     break;}
  2220. case 130:
  2221. #line 1041 "pic.y"
  2222. {
  2223.           place *p = lookup_label(yyvsp[0].str);
  2224.           if (!p) {
  2225.             lex_error("there is no place `%1'", yyvsp[0].str);
  2226.             YYABORT;
  2227.           }
  2228.           yyval.pl = *p;
  2229.           delete yyvsp[0].str;
  2230.         ;
  2231.     break;}
  2232. case 131:
  2233. #line 1051 "pic.y"
  2234. {
  2235.           yyval.pl.obj = yyvsp[0].obj;
  2236.         ;
  2237.     break;}
  2238. case 132:
  2239. #line 1055 "pic.y"
  2240. {
  2241.           path pth(yyvsp[0].str);
  2242.           if (!pth.follow(yyvsp[-2].pl, & yyval.pl))
  2243.             YYABORT;
  2244.         ;
  2245.     break;}
  2246. case 133:
  2247. #line 1064 "pic.y"
  2248. { yyval.n = 1; ;
  2249.     break;}
  2250. case 134:
  2251. #line 1066 "pic.y"
  2252. { yyval.n = yyvsp[-1].n; ;
  2253.     break;}
  2254. case 135:
  2255. #line 1071 "pic.y"
  2256. {
  2257.           int count = 0;
  2258.           for (object *p = olist.head; p != 0; p = p->next)
  2259.             if (p->type() == yyvsp[0].obtype && ++count == yyvsp[-1].n) {
  2260.               yyval.obj = p;
  2261.               break;
  2262.             }
  2263.           if (p == 0) {
  2264.             lex_error("there is no %1%2 %3", yyvsp[-1].n, ordinal_postfix(yyvsp[-1].n),
  2265.                   object_type_name(yyvsp[0].obtype));
  2266.             YYABORT;
  2267.           }
  2268.         ;
  2269.     break;}
  2270. case 136:
  2271. #line 1085 "pic.y"
  2272. {
  2273.           int count = 0;
  2274.           for (object *p = olist.tail; p != 0; p = p->prev)
  2275.             if (p->type() == yyvsp[0].obtype && ++count == yyvsp[-1].n) {
  2276.               yyval.obj = p;
  2277.               break;
  2278.             }
  2279.           if (p == 0) {
  2280.             lex_error("there is no %1%2 last %3", yyvsp[-1].n,
  2281.                   ordinal_postfix(yyvsp[-1].n), object_type_name(yyvsp[0].obtype));
  2282.             YYABORT;
  2283.           }
  2284.         ;
  2285.     break;}
  2286. case 137:
  2287. #line 1102 "pic.y"
  2288. { yyval.obtype = BOX_OBJECT; ;
  2289.     break;}
  2290. case 138:
  2291. #line 1104 "pic.y"
  2292. { yyval.obtype = CIRCLE_OBJECT; ;
  2293.     break;}
  2294. case 139:
  2295. #line 1106 "pic.y"
  2296. { yyval.obtype = ELLIPSE_OBJECT; ;
  2297.     break;}
  2298. case 140:
  2299. #line 1108 "pic.y"
  2300. { yyval.obtype = ARC_OBJECT; ;
  2301.     break;}
  2302. case 141:
  2303. #line 1110 "pic.y"
  2304. { yyval.obtype = LINE_OBJECT; ;
  2305.     break;}
  2306. case 142:
  2307. #line 1112 "pic.y"
  2308. { yyval.obtype = ARROW_OBJECT; ;
  2309.     break;}
  2310. case 143:
  2311. #line 1114 "pic.y"
  2312. { yyval.obtype = SPLINE_OBJECT; ;
  2313.     break;}
  2314. case 144:
  2315. #line 1116 "pic.y"
  2316. { yyval.obtype = BLOCK_OBJECT; ;
  2317.     break;}
  2318. case 145:
  2319. #line 1118 "pic.y"
  2320. { yyval.obtype = TEXT_OBJECT; ;
  2321.     break;}
  2322. case 146:
  2323. #line 1123 "pic.y"
  2324. {
  2325.           yyval.pth = new path(yyvsp[0].str);
  2326.         ;
  2327.     break;}
  2328. case 147:
  2329. #line 1127 "pic.y"
  2330. {
  2331.           yyval.pth = yyvsp[-2].pth;
  2332.           yyval.pth->append(yyvsp[0].str);
  2333.         ;
  2334.     break;}
  2335. case 148:
  2336. #line 1135 "pic.y"
  2337. {
  2338.           yyval.pth = new path(yyvsp[0].crn);
  2339.         ;
  2340.     break;}
  2341. case 149:
  2342. #line 1142 "pic.y"
  2343. {
  2344.           yyval.pth = yyvsp[0].pth;
  2345.         ;
  2346.     break;}
  2347. case 150:
  2348. #line 1146 "pic.y"
  2349. {
  2350.           yyval.pth = yyvsp[-1].pth;
  2351.           yyval.pth->append(yyvsp[0].crn);
  2352.         ;
  2353.     break;}
  2354. case 151:
  2355. #line 1154 "pic.y"
  2356. {
  2357.           yyval.pth = yyvsp[0].pth;
  2358.         ;
  2359.     break;}
  2360. case 152:
  2361. #line 1159 "pic.y"
  2362. {
  2363.           lex_warning("`%1%2 last %3' in `with' argument ignored",
  2364.                   yyvsp[-3].n, ordinal_postfix(yyvsp[-3].n), object_type_name(yyvsp[-1].obtype));
  2365.           yyval.pth = yyvsp[0].pth;
  2366.         ;
  2367.     break;}
  2368. case 153:
  2369. #line 1165 "pic.y"
  2370. {
  2371.           lex_warning("`last %1' in `with' argument ignored",
  2372.                   object_type_name(yyvsp[-1].obtype));
  2373.           yyval.pth = yyvsp[0].pth;
  2374.         ;
  2375.     break;}
  2376. case 154:
  2377. #line 1171 "pic.y"
  2378. {
  2379.           lex_warning("`%1%2 %3' in `with' argument ignored",
  2380.                   yyvsp[-2].n, ordinal_postfix(yyvsp[-2].n), object_type_name(yyvsp[-1].obtype));
  2381.           yyval.pth = yyvsp[0].pth;
  2382.         ;
  2383.     break;}
  2384. case 155:
  2385. #line 1177 "pic.y"
  2386. {
  2387.           lex_warning("initial `%1' in `with' argument ignored", yyvsp[-1].str);
  2388.           delete yyvsp[-1].str;
  2389.           yyval.pth = yyvsp[0].pth;
  2390.         ;
  2391.     break;}
  2392. case 156:
  2393. #line 1186 "pic.y"
  2394. { yyval.crn = &object::north; ;
  2395.     break;}
  2396. case 157:
  2397. #line 1188 "pic.y"
  2398. { yyval.crn = &object::east; ;
  2399.     break;}
  2400. case 158:
  2401. #line 1190 "pic.y"
  2402. { yyval.crn = &object::west; ;
  2403.     break;}
  2404. case 159:
  2405. #line 1192 "pic.y"
  2406. { yyval.crn = &object::south; ;
  2407.     break;}
  2408. case 160:
  2409. #line 1194 "pic.y"
  2410. { yyval.crn = &object::north_east; ;
  2411.     break;}
  2412. case 161:
  2413. #line 1196 "pic.y"
  2414. { yyval.crn = &object:: south_east; ;
  2415.     break;}
  2416. case 162:
  2417. #line 1198 "pic.y"
  2418. { yyval.crn = &object::north_west; ;
  2419.     break;}
  2420. case 163:
  2421. #line 1200 "pic.y"
  2422. { yyval.crn = &object::south_west; ;
  2423.     break;}
  2424. case 164:
  2425. #line 1202 "pic.y"
  2426. { yyval.crn = &object::center; ;
  2427.     break;}
  2428. case 165:
  2429. #line 1204 "pic.y"
  2430. { yyval.crn = &object::start; ;
  2431.     break;}
  2432. case 166:
  2433. #line 1206 "pic.y"
  2434. { yyval.crn = &object::end; ;
  2435.     break;}
  2436. case 167:
  2437. #line 1208 "pic.y"
  2438. { yyval.crn = &object::north; ;
  2439.     break;}
  2440. case 168:
  2441. #line 1210 "pic.y"
  2442. { yyval.crn = &object::south; ;
  2443.     break;}
  2444. case 169:
  2445. #line 1212 "pic.y"
  2446. { yyval.crn = &object::west; ;
  2447.     break;}
  2448. case 170:
  2449. #line 1214 "pic.y"
  2450. { yyval.crn = &object::east; ;
  2451.     break;}
  2452. case 171:
  2453. #line 1216 "pic.y"
  2454. { yyval.crn = &object::north_west; ;
  2455.     break;}
  2456. case 172:
  2457. #line 1218 "pic.y"
  2458. { yyval.crn = &object::south_west; ;
  2459.     break;}
  2460. case 173:
  2461. #line 1220 "pic.y"
  2462. { yyval.crn = &object::north_east; ;
  2463.     break;}
  2464. case 174:
  2465. #line 1222 "pic.y"
  2466. { yyval.crn = &object::south_east; ;
  2467.     break;}
  2468. case 175:
  2469. #line 1224 "pic.y"
  2470. { yyval.crn = &object::west; ;
  2471.     break;}
  2472. case 176:
  2473. #line 1226 "pic.y"
  2474. { yyval.crn = &object::east; ;
  2475.     break;}
  2476. case 177:
  2477. #line 1228 "pic.y"
  2478. { yyval.crn = &object::north_west; ;
  2479.     break;}
  2480. case 178:
  2481. #line 1230 "pic.y"
  2482. { yyval.crn = &object::south_west; ;
  2483.     break;}
  2484. case 179:
  2485. #line 1232 "pic.y"
  2486. { yyval.crn = &object::north_east; ;
  2487.     break;}
  2488. case 180:
  2489. #line 1234 "pic.y"
  2490. { yyval.crn = &object::south_east; ;
  2491.     break;}
  2492. case 181:
  2493. #line 1236 "pic.y"
  2494. { yyval.crn = &object::center; ;
  2495.     break;}
  2496. case 182:
  2497. #line 1238 "pic.y"
  2498. { yyval.crn = &object::start; ;
  2499.     break;}
  2500. case 183:
  2501. #line 1240 "pic.y"
  2502. { yyval.crn = &object::end; ;
  2503.     break;}
  2504. case 184:
  2505. #line 1245 "pic.y"
  2506. {
  2507.           if (!lookup_variable(yyvsp[0].str, & yyval.x)) {
  2508.             lex_error("there is no variable `%1'", yyvsp[0].str);
  2509.             YYABORT;
  2510.           }
  2511.           delete yyvsp[0].str;
  2512.         ;
  2513.     break;}
  2514. case 185:
  2515. #line 1253 "pic.y"
  2516. { yyval.x = yyvsp[0].x; ;
  2517.     break;}
  2518. case 186:
  2519. #line 1255 "pic.y"
  2520. {
  2521.           if (yyvsp[-1].pl.obj != 0)
  2522.             yyval.x = yyvsp[-1].pl.obj->origin().x;
  2523.           else
  2524.             yyval.x = yyvsp[-1].pl.x;
  2525.         ;
  2526.     break;}
  2527. case 187:
  2528. #line 1262 "pic.y"
  2529. {
  2530.           if (yyvsp[-1].pl.obj != 0)
  2531.             yyval.x = yyvsp[-1].pl.obj->origin().y;
  2532.           else
  2533.             yyval.x = yyvsp[-1].pl.y;
  2534.         ;
  2535.     break;}
  2536. case 188:
  2537. #line 1269 "pic.y"
  2538. {
  2539.           if (yyvsp[-1].pl.obj != 0)
  2540.             yyval.x = yyvsp[-1].pl.obj->height();
  2541.           else
  2542.             yyval.x = 0.0;
  2543.         ;
  2544.     break;}
  2545. case 189:
  2546. #line 1276 "pic.y"
  2547. {
  2548.           if (yyvsp[-1].pl.obj != 0)
  2549.             yyval.x = yyvsp[-1].pl.obj->width();
  2550.           else
  2551.             yyval.x = 0.0;
  2552.         ;
  2553.     break;}
  2554. case 190:
  2555. #line 1283 "pic.y"
  2556. {
  2557.           if (yyvsp[-1].pl.obj != 0)
  2558.             yyval.x = yyvsp[-1].pl.obj->radius();
  2559.           else
  2560.             yyval.x = 0.0;
  2561.         ;
  2562.     break;}
  2563. case 191:
  2564. #line 1290 "pic.y"
  2565. { yyval.x = yyvsp[-2].x + yyvsp[0].x; ;
  2566.     break;}
  2567. case 192:
  2568. #line 1292 "pic.y"
  2569. { yyval.x = yyvsp[-2].x - yyvsp[0].x; ;
  2570.     break;}
  2571. case 193:
  2572. #line 1294 "pic.y"
  2573. { yyval.x = yyvsp[-2].x * yyvsp[0].x; ;
  2574.     break;}
  2575. case 194:
  2576. #line 1296 "pic.y"
  2577. {
  2578.           if (yyvsp[0].x == 0.0) {
  2579.             lex_error("division by zero");
  2580.             YYABORT;
  2581.           }
  2582.           yyval.x = yyvsp[-2].x/yyvsp[0].x;
  2583.         ;
  2584.     break;}
  2585. case 195:
  2586. #line 1304 "pic.y"
  2587. {
  2588.           if (yyvsp[0].x == 0.0) {
  2589.             lex_error("modulus by zero");
  2590.             YYABORT;
  2591.           }
  2592.           yyval.x = fmod(yyvsp[-2].x, yyvsp[0].x);
  2593.         ;
  2594.     break;}
  2595. case 196:
  2596. #line 1312 "pic.y"
  2597. {
  2598.           errno = 0;
  2599.           yyval.x = pow(yyvsp[-2].x, yyvsp[0].x);
  2600.           if (errno == EDOM) {
  2601.             lex_error("arguments to `^' operator out of domain");
  2602.             YYABORT;
  2603.           }
  2604.           if (errno == ERANGE) {
  2605.             lex_error("result of `^' operator out of range");
  2606.             YYABORT;
  2607.           }
  2608.         ;
  2609.     break;}
  2610. case 197:
  2611. #line 1325 "pic.y"
  2612. { yyval.x = -yyvsp[0].x; ;
  2613.     break;}
  2614. case 198:
  2615. #line 1327 "pic.y"
  2616. { yyval.x = yyvsp[-1].x; ;
  2617.     break;}
  2618. case 199:
  2619. #line 1329 "pic.y"
  2620. {
  2621.           errno = 0;
  2622.           yyval.x = sin(yyvsp[-1].x);
  2623.           if (errno == ERANGE) {
  2624.             lex_error("sin result out of range");
  2625.             YYABORT;
  2626.           }
  2627.         ;
  2628.     break;}
  2629. case 200:
  2630. #line 1338 "pic.y"
  2631. {
  2632.           errno = 0;
  2633.           yyval.x = cos(yyvsp[-1].x);
  2634.           if (errno == ERANGE) {
  2635.             lex_error("cos result out of range");
  2636.             YYABORT;
  2637.           }
  2638.         ;
  2639.     break;}
  2640. case 201:
  2641. #line 1347 "pic.y"
  2642. {
  2643.           errno = 0;
  2644.           yyval.x = atan2(yyvsp[-3].x, yyvsp[-1].x);
  2645.           if (errno == EDOM) {
  2646.             lex_error("atan2 argument out of domain");
  2647.             YYABORT;
  2648.           }
  2649.           if (errno == ERANGE) {
  2650.             lex_error("atan2 result out of range");
  2651.             YYABORT;
  2652.           }
  2653.         ;
  2654.     break;}
  2655. case 202:
  2656. #line 1360 "pic.y"
  2657. {
  2658.           errno = 0;
  2659.           yyval.x = log10(yyvsp[-1].x);
  2660.           if (errno == ERANGE) {
  2661.             lex_error("log result out of range");
  2662.             YYABORT;
  2663.           }
  2664.         ;
  2665.     break;}
  2666. case 203:
  2667. #line 1369 "pic.y"
  2668. {
  2669.           errno = 0;
  2670.           yyval.x = pow(10.0, yyvsp[-1].x);
  2671.           if (errno == ERANGE) {
  2672.             lex_error("exp result out of range");
  2673.             YYABORT;
  2674.           }
  2675.         ;
  2676.     break;}
  2677. case 204:
  2678. #line 1378 "pic.y"
  2679. {
  2680.           errno = 0;
  2681.           yyval.x = sqrt(yyvsp[-1].x);
  2682.           if (errno == EDOM) {
  2683.             lex_error("sqrt argument out of domain");
  2684.             YYABORT;
  2685.           }
  2686.         ;
  2687.     break;}
  2688. case 205:
  2689. #line 1387 "pic.y"
  2690. { yyval.x = yyvsp[-3].x > yyvsp[-1].x ? yyvsp[-3].x : yyvsp[-1].x; ;
  2691.     break;}
  2692. case 206:
  2693. #line 1389 "pic.y"
  2694. { yyval.x = yyvsp[-3].x > yyvsp[-1].x ? yyvsp[-3].x : yyvsp[-1].x; ;
  2695.     break;}
  2696. case 207:
  2697. #line 1391 "pic.y"
  2698. { yyval.x = floor(yyvsp[-1].x); ;
  2699.     break;}
  2700. case 208:
  2701. #line 1393 "pic.y"
  2702. { yyval.x = 1.0 + floor(((rand()&0x7fff)/double(0x7fff))*yyvsp[-1].x); ;
  2703.     break;}
  2704. case 209:
  2705. #line 1395 "pic.y"
  2706. {
  2707.           /* return a random number in the range [0,1) */
  2708.           /* portable, but not very random */
  2709.           yyval.x = (rand() & 0x7fff) / double(0x8000);
  2710.         ;
  2711.     break;}
  2712. case 210:
  2713. #line 1401 "pic.y"
  2714. { yyval.x = (yyvsp[-2].x < yyvsp[0].x); ;
  2715.     break;}
  2716. case 211:
  2717. #line 1403 "pic.y"
  2718. { yyval.x = (yyvsp[-2].x <= yyvsp[0].x); ;
  2719.     break;}
  2720. case 212:
  2721. #line 1405 "pic.y"
  2722. { yyval.x = (yyvsp[-2].x > yyvsp[0].x); ;
  2723.     break;}
  2724. case 213:
  2725. #line 1407 "pic.y"
  2726. { yyval.x = (yyvsp[-2].x >= yyvsp[0].x); ;
  2727.     break;}
  2728. case 214:
  2729. #line 1409 "pic.y"
  2730. { yyval.x = (yyvsp[-2].x == yyvsp[0].x); ;
  2731.     break;}
  2732. case 215:
  2733. #line 1411 "pic.y"
  2734. { yyval.x = (yyvsp[-2].x != yyvsp[0].x); ;
  2735.     break;}
  2736. case 216:
  2737. #line 1413 "pic.y"
  2738. { yyval.x = (yyvsp[-2].x != 0.0 && yyvsp[0].x != 0.0); ;
  2739.     break;}
  2740. case 217:
  2741. #line 1415 "pic.y"
  2742. { yyval.x = (yyvsp[-2].x != 0.0 || yyvsp[0].x != 0.0); ;
  2743.     break;}
  2744. case 218:
  2745. #line 1417 "pic.y"
  2746. { yyval.x = (yyvsp[0].x == 0.0); ;
  2747.     break;}
  2748. }
  2749.    /* the action file gets copied in in place of this dollarsign */
  2750. #line 362 "/usr/local/lib/bison.simple"
  2751.  
  2752.   yyvsp -= yylen;
  2753.   yyssp -= yylen;
  2754. #ifdef YYLSP_NEEDED
  2755.   yylsp -= yylen;
  2756. #endif
  2757.  
  2758. #if YYDEBUG != 0
  2759.   if (yydebug)
  2760.     {
  2761.       short *ssp1 = yyss - 1;
  2762.       fprintf (stderr, "state stack now");
  2763.       while (ssp1 != yyssp)
  2764.     fprintf (stderr, " %d", *++ssp1);
  2765.       fprintf (stderr, "\n");
  2766.     }
  2767. #endif
  2768.  
  2769.   *++yyvsp = yyval;
  2770.  
  2771. #ifdef YYLSP_NEEDED
  2772.   yylsp++;
  2773.   if (yylen == 0)
  2774.     {
  2775.       yylsp->first_line = yylloc.first_line;
  2776.       yylsp->first_column = yylloc.first_column;
  2777.       yylsp->last_line = (yylsp-1)->last_line;
  2778.       yylsp->last_column = (yylsp-1)->last_column;
  2779.       yylsp->text = 0;
  2780.     }
  2781.   else
  2782.     {
  2783.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  2784.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  2785.     }
  2786. #endif
  2787.  
  2788.   /* Now "shift" the result of the reduction.
  2789.      Determine what state that goes to,
  2790.      based on the state we popped back to
  2791.      and the rule number reduced by.  */
  2792.  
  2793.   yyn = yyr1[yyn];
  2794.  
  2795.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  2796.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  2797.     yystate = yytable[yystate];
  2798.   else
  2799.     yystate = yydefgoto[yyn - YYNTBASE];
  2800.  
  2801.   goto yynewstate;
  2802.  
  2803. yyerrlab:   /* here on detecting error */
  2804.  
  2805.   if (! yyerrstatus)
  2806.     /* If not already recovering from an error, report this error.  */
  2807.     {
  2808.       ++yynerrs;
  2809.  
  2810. #ifdef YYERROR_VERBOSE
  2811.       yyn = yypact[yystate];
  2812.  
  2813.       if (yyn > YYFLAG && yyn < YYLAST)
  2814.     {
  2815.       int size = 0;
  2816.       char *msg;
  2817.       int x, count;
  2818.  
  2819.       count = 0;
  2820.       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2821.         if (yycheck[x + yyn] == x)
  2822.           size += strlen(yytname[x]) + 15, count++;
  2823.       msg = (char *) xmalloc(size + 15);
  2824.       strcpy(msg, "parse error");
  2825.  
  2826.       if (count < 5)
  2827.         {
  2828.           count = 0;
  2829.           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2830.         if (yycheck[x + yyn] == x)
  2831.           {
  2832.             strcat(msg, count == 0 ? ", expecting `" : " or `");
  2833.             strcat(msg, yytname[x]);
  2834.             strcat(msg, "'");
  2835.             count++;
  2836.           }
  2837.         }
  2838.       yyerror(msg);
  2839.       free(msg);
  2840.     }
  2841.       else
  2842. #endif /* YYERROR_VERBOSE */
  2843.     yyerror("parse error");
  2844.     }
  2845.  
  2846. yyerrlab1:   /* here on error raised explicitly by an action */
  2847.  
  2848.   if (yyerrstatus == 3)
  2849.     {
  2850.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  2851.  
  2852.       /* return failure if at end of input */
  2853.       if (yychar == YYEOF)
  2854.     YYABORT;
  2855.  
  2856. #if YYDEBUG != 0
  2857.       if (yydebug)
  2858.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  2859. #endif
  2860.  
  2861.       yychar = YYEMPTY;
  2862.     }
  2863.  
  2864.   /* Else will try to reuse lookahead token
  2865.      after shifting the error token.  */
  2866.  
  2867.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  2868.  
  2869.   goto yyerrhandle;
  2870.  
  2871. yyerrdefault:  /* current state does not do anything special for the error token. */
  2872.  
  2873. #if 0
  2874.   /* This is wrong; only states that explicitly want error tokens
  2875.      should shift them.  */
  2876.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  2877.   if (yyn) goto yydefault;
  2878. #endif
  2879.  
  2880. yyerrpop:   /* pop the current state because it cannot handle the error token */
  2881.  
  2882.   if (yyssp == yyss) YYABORT;
  2883.   yyvsp--;
  2884.   yystate = *--yyssp;
  2885. #ifdef YYLSP_NEEDED
  2886.   yylsp--;
  2887. #endif
  2888.  
  2889. #if YYDEBUG != 0
  2890.   if (yydebug)
  2891.     {
  2892.       short *ssp1 = yyss - 1;
  2893.       fprintf (stderr, "Error: state stack now");
  2894.       while (ssp1 != yyssp)
  2895.     fprintf (stderr, " %d", *++ssp1);
  2896.       fprintf (stderr, "\n");
  2897.     }
  2898. #endif
  2899.  
  2900. yyerrhandle:
  2901.  
  2902.   yyn = yypact[yystate];
  2903.   if (yyn == YYFLAG)
  2904.     goto yyerrdefault;
  2905.  
  2906.   yyn += YYTERROR;
  2907.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  2908.     goto yyerrdefault;
  2909.  
  2910.   yyn = yytable[yyn];
  2911.   if (yyn < 0)
  2912.     {
  2913.       if (yyn == YYFLAG)
  2914.     goto yyerrpop;
  2915.       yyn = -yyn;
  2916.       goto yyreduce;
  2917.     }
  2918.   else if (yyn == 0)
  2919.     goto yyerrpop;
  2920.  
  2921.   if (yyn == YYFINAL)
  2922.     YYACCEPT;
  2923.  
  2924. #if YYDEBUG != 0
  2925.   if (yydebug)
  2926.     fprintf(stderr, "Shifting error token, ");
  2927. #endif
  2928.  
  2929.   *++yyvsp = yylval;
  2930. #ifdef YYLSP_NEEDED
  2931.   *++yylsp = yylloc;
  2932. #endif
  2933.  
  2934.   yystate = yyn;
  2935.   goto yynewstate;
  2936. }
  2937. #line 1421 "pic.y"
  2938.  
  2939.  
  2940. /* bison defines const to be empty unless __STDC__ is defined, which it
  2941. isn't under cfront */
  2942.  
  2943. #ifdef const
  2944. #undef const
  2945. #endif
  2946.  
  2947. static struct {
  2948.   const char *name;
  2949.   double val;
  2950.   int scaled;             // non-zero if val should be multiplied by scale
  2951. } defaults_table[] = {
  2952.   "arcrad", .25, 1,
  2953.   "arrowht", .1, 1,
  2954.   "arrowwid", .05, 1,
  2955.   "circlerad", .25, 1,
  2956.   "boxht", .5, 1,
  2957.   "boxwid", .75, 1,
  2958.   "boxrad", 0.0, 1,
  2959.   "dashwid", .05, 1,
  2960.   "ellipseht", .5, 1,
  2961.   "ellipsewid", .75, 1,
  2962.   "moveht", .5, 1,
  2963.   "movewid", .5, 1,
  2964.   "lineht", .5, 1,
  2965.   "linewid", .5, 1,
  2966.   "textht", 0.0, 1,
  2967.   "textwid", 0.0, 1,
  2968.   "scale", 1.0, 0,
  2969.   "linethick", -1.0, 0,        // in points
  2970.   "fillval", .5, 0,
  2971.   "arrowhead", 1.0, 0,
  2972.   "maxpswid", 8.5, 0,
  2973.   "maxpsht", 11.0, 0,
  2974. };
  2975.  
  2976. place *lookup_label(const char *label)
  2977. {
  2978.   saved_state *state = current_saved_state;
  2979.   PTABLE(place) *tbl = current_table;
  2980.   for (;;) {
  2981.     place *pl = tbl->lookup(label);
  2982.     if (pl)
  2983.       return pl;
  2984.     if (!state)
  2985.       return 0;
  2986.     tbl = state->tbl;
  2987.     state = state->prev;
  2988.   }
  2989. }
  2990.  
  2991. void define_label(const char *label, const place *pl)
  2992. {
  2993.   place *p = new place;
  2994.   *p = *pl;
  2995.   current_table->define(label, p);
  2996. }
  2997.  
  2998. int lookup_variable(const char *name, double *val)
  2999. {
  3000.   place *pl = lookup_label(name);
  3001.   if (pl) {
  3002.     *val = pl->x;
  3003.     return 1;
  3004.   }
  3005.   return 0;
  3006. }
  3007.  
  3008. void define_variable(const char *name, double val)
  3009. {
  3010.   place *p = new place;
  3011.   p->obj = 0;
  3012.   p->x = val;
  3013.   p->y = 0.0;
  3014.   current_table->define(name, p);
  3015.   if (strcmp(name, "scale") == 0) {
  3016.     // When the scale changes, reset all scaled pre-defined variables to
  3017.     // their default values.
  3018.     for (int i = 0; i < sizeof(defaults_table)/sizeof(defaults_table[0]); i++) 
  3019.       if (defaults_table[i].scaled)
  3020.     define_variable(defaults_table[i].name, val*defaults_table[i].val);
  3021.   }
  3022. }
  3023.  
  3024. // called once only (not once per parse)
  3025.  
  3026. void parse_init()
  3027. {
  3028.   current_direction = RIGHT_DIRECTION;
  3029.   current_position.x = 0.0;
  3030.   current_position.y = 0.0;
  3031.   // This resets everything to its default value.
  3032.   reset_all();
  3033. }
  3034.  
  3035. void reset(const char *nm)
  3036. {
  3037.   for (int i = 0; i < sizeof(defaults_table)/sizeof(defaults_table[0]); i++)
  3038.     if (strcmp(nm, defaults_table[i].name) == 0) {
  3039.       double val = defaults_table[i].val;
  3040.       if (defaults_table[i].scaled) {
  3041.     double scale;
  3042.     lookup_variable("scale", &scale);
  3043.     val *= scale;
  3044.       }
  3045.       define_variable(defaults_table[i].name, val);
  3046.       return;
  3047.     }
  3048.   lex_error("`%1' is not a predefined variable", nm);
  3049. }
  3050.  
  3051. void reset_all()
  3052. {
  3053.   // We only have to explicitly reset the pre-defined variables that
  3054.   // aren't scaled because `scale' is not scaled, and changing the
  3055.   // value of `scale' will reset all the pre-defined variables that
  3056.   // are scaled.
  3057.   for (int i = 0; i < sizeof(defaults_table)/sizeof(defaults_table[0]); i++)
  3058.     if (!defaults_table[i].scaled)
  3059.       define_variable(defaults_table[i].name, defaults_table[i].val);
  3060. }
  3061.  
  3062. // called after each parse
  3063.  
  3064. void parse_cleanup()
  3065. {
  3066.   while (current_saved_state != 0) {
  3067.     delete current_table;
  3068.     current_table = current_saved_state->tbl;
  3069.     saved_state *tem = current_saved_state;
  3070.     current_saved_state = current_saved_state->prev;
  3071.     delete tem;
  3072.   }
  3073.   assert(current_table == &top_table);
  3074.   PTABLE_ITERATOR(place) iter(current_table);
  3075.   const char *key;
  3076.   place *pl;
  3077.   while (iter.next(&key, &pl))
  3078.     if (pl->obj != 0) {
  3079.       position pos = pl->obj->origin();
  3080.       pl->obj = 0;
  3081.       pl->x = pos.x;
  3082.       pl->y = pos.y;
  3083.     }
  3084.   while (olist.head != 0) {
  3085.     object *tem = olist.head;
  3086.     olist.head = olist.head->next;
  3087.     delete tem;
  3088.   }
  3089.   olist.tail = 0;
  3090.   current_direction = RIGHT_DIRECTION;
  3091.   current_position.x = 0.0;
  3092.   current_position.y = 0.0;
  3093. }
  3094.  
  3095. const char *ordinal_postfix(int n)
  3096. {
  3097.   if (n < 10 || n > 20)
  3098.     switch (n % 10) {
  3099.     case 1:
  3100.       return "st";
  3101.     case 2:
  3102.       return "nd";
  3103.     case 3:
  3104.       return "rd";
  3105.     }
  3106.   return "th";
  3107. }
  3108.  
  3109. const char *object_type_name(object_type type)
  3110. {
  3111.   switch (type) {
  3112.   case BOX_OBJECT:
  3113.     return "box";
  3114.   case CIRCLE_OBJECT:
  3115.     return "circle";
  3116.   case ELLIPSE_OBJECT:
  3117.     return "ellipse";
  3118.   case ARC_OBJECT:
  3119.     return "arc";
  3120.   case SPLINE_OBJECT:
  3121.     return "spline";
  3122.   case LINE_OBJECT:
  3123.     return "line";
  3124.   case ARROW_OBJECT:
  3125.     return "arrow";
  3126.   case MOVE_OBJECT:
  3127.     return "move";
  3128.   case TEXT_OBJECT:
  3129.     return "\"\"";
  3130.   case BLOCK_OBJECT:
  3131.     return "[]";
  3132.   case OTHER_OBJECT:
  3133.   case MARK_OBJECT:
  3134.   default:
  3135.     break;
  3136.   }
  3137.   return "object";
  3138. }
  3139.  
  3140. static char sprintf_buf[1024];
  3141.  
  3142. char *format_number(const char *form, double n)
  3143. {
  3144.   if (form == 0)
  3145.     form = "%g";
  3146.   else {
  3147.     // this is a fairly feeble attempt at validation of the format
  3148.     int nspecs = 0;
  3149.     for (const char *p = form; *p != '\0'; p++)
  3150.       if (*p == '%') {
  3151.     if (p[1] == '%')
  3152.       p++;
  3153.     else
  3154.       nspecs++;
  3155.       }
  3156.     if (nspecs > 1) {
  3157.       lex_error("bad format `%1'", form);
  3158.       return strsave(form);
  3159.     }
  3160.   }
  3161.   sprintf(sprintf_buf, form, n);
  3162.   return strsave(sprintf_buf);
  3163. }
  3164.  
  3165. char *do_sprintf(const char *form, const double *v, int nv)
  3166. {
  3167.   string result;
  3168.   int i = 0;
  3169.   string one_format;
  3170.   while (*form) {
  3171.     if (*form == '%') {
  3172.       one_format += *form++;
  3173.       for (; *form != '\0' && strchr("#-+ 0123456789.", *form) != 0; form++)
  3174.     one_format += *form;
  3175.       if (*form == '\0' || strchr("eEfgG%", *form) == 0) {
  3176.     lex_error("bad sprintf format");
  3177.     result += one_format;
  3178.     result += form;
  3179.     break;
  3180.       }
  3181.       if (*form == '%') {
  3182.     one_format += *form++;
  3183.     one_format += '\0';
  3184.     sprintf(sprintf_buf, one_format.contents());
  3185.       }
  3186.       else {
  3187.     if (i >= nv) {
  3188.       lex_error("too few arguments to sprintf");
  3189.       result += one_format;
  3190.       result += form;
  3191.       break;
  3192.     }
  3193.     one_format += *form++;
  3194.     one_format += '\0';
  3195.     sprintf(sprintf_buf, one_format.contents(), v[i++]);
  3196.       }
  3197.       one_format.clear();
  3198.       result += sprintf_buf;
  3199.     }
  3200.     else
  3201.       result += *form++;
  3202.   }
  3203.   result += '\0';
  3204.   return strsave(result.contents());
  3205. }
  3206.