commit - b6d98463b416e9d95bc88f948b4abdff6b24aede
commit + 90a99688be7fd813273e1f1f28ba8fa34cb9dc44
blob - 817488c87867a0ca2bc68f709b7802a6b41a5c5c
blob + 78b6cfb342a82956886ccf2f0de8130e6438cf59
--- src/cmd/tpic/input.c
+++ src/cmd/tpic/input.c
#include <stdio.h>
+#include <math.h>
#include <ctype.h>
#include <errno.h>
#include "pic.h"
copythru(char *s) /* collect the macro name or body for thru */
{
struct symtab *p;
- char *q, *addnewline();
+ char *q;
p = lookup(s);
if (p != NULL) {
blob - a5394232d54b06816181342e9196f3c96369c285
blob + 8a7e08be5dc576de1cd14b2473bdac77a21c3ed9
--- src/cmd/tpic/linegen.c
+++ src/cmd/tpic/linegen.c
+#include <math.h>
#include <stdio.h>
#include "pic.h"
#include "y.tab.h"
static double prevh = HT5;
int i, j, some, head, ddtype, invis, chop;
double ddval, chop1, chop2, x0, y0, x1, y1;
- double sin(), cos(), atan2(), theta;
+ double theta;
double defx, defy;
obj *p, *ppos;
static int xtab[] = { 1, 0, -1, 0 }; /* R=0, U=1, L=2, D=3 */
blob - 72e83303af55c3eaccd61034ee7f9f5fea4a78d2
blob + 1dbdffcc6d8ba3328f38f013d15af67c1505c651
--- src/cmd/tpic/misc.c
+++ src/cmd/tpic/misc.c
double
getblkvar(obj *p, char *s) /* find variable s2 in block p */
{
- YYSTYPE y, getblk();
+ YYSTYPE y;
y = getblk(p, s);
return y.f;
obj*
getblock(obj *p, char *s) /* find variable s in block p */
{
- YYSTYPE y, getblk();
+ YYSTYPE y;
y = getblk(p, s);
return y.o;
blob - 25ffd4f941e16afa409e55727f9923c358e1fab7 (mode 644)
blob + /dev/null
--- src/cmd/tpic/picy.c
+++ /dev/null
-
-#line 2 "/usr/local/plan9/src/cmd/tpic/picy.y"
-#include <stdio.h>
-#include "pic.h"
-#include <math.h>
-YYSTYPE y;
-int yylex(void);
-extern int yyerrflag;
-#ifndef YYMAXDEPTH
-#define YYMAXDEPTH 150
-#endif
-YYSTYPE yylval;
-YYSTYPE yyval;
-#define BOX 1
-#define LINE 2
-#define ARROW 3
-#define CIRCLE 4
-#define ELLIPSE 5
-#define ARC 6
-#define SPLINE 7
-#define BLOCK 8
-#define TEXT 9
-#define TROFF 10
-#define MOVE 11
-#define BLOCKEND 12
-#define PLACE 13
-#define PRINT 57359
-#define RESET 57360
-#define THRU 57361
-#define UNTIL 57362
-#define FOR 57363
-#define IF 57364
-#define COPY 57365
-#define THENSTR 57366
-#define ELSESTR 57367
-#define DOSTR 57368
-#define PLACENAME 57369
-#define VARNAME 57370
-#define SPRINTF 57371
-#define DEFNAME 57372
-#define ATTR 57373
-#define TEXTATTR 57374
-#define LEFT 57375
-#define RIGHT 57376
-#define UP 57377
-#define DOWN 57378
-#define FROM 57379
-#define TO 57380
-#define AT 57381
-#define BY 57382
-#define WITH 57383
-#define HEAD 57384
-#define CW 57385
-#define CCW 57386
-#define THEN 57387
-#define HEIGHT 57388
-#define WIDTH 57389
-#define RADIUS 57390
-#define DIAMETER 57391
-#define LENGTH 57392
-#define SIZE 57393
-#define CORNER 57394
-#define HERE 57395
-#define LAST 57396
-#define NTH 57397
-#define SAME 57398
-#define BETWEEN 57399
-#define AND 57400
-#define EAST 57401
-#define WEST 57402
-#define NORTH 57403
-#define SOUTH 57404
-#define NE 57405
-#define NW 57406
-#define SE 57407
-#define SW 57408
-#define START 57409
-#define END 57410
-#define DOTX 57411
-#define DOTY 57412
-#define DOTHT 57413
-#define DOTWID 57414
-#define DOTRAD 57415
-#define NUMBER 57416
-#define LOG 57417
-#define EXP 57418
-#define SIN 57419
-#define COS 57420
-#define ATAN2 57421
-#define SQRT 57422
-#define RAND 57423
-#define MIN 57424
-#define MAX 57425
-#define INT 57426
-#define DIR 57427
-#define DOT 57428
-#define DASH 57429
-#define CHOP 57430
-#define FILL 57431
-#define ST 57432
-#define OROR 57433
-#define ANDAND 57434
-#define GT 57435
-#define LT 57436
-#define LE 57437
-#define GE 57438
-#define EQ 57439
-#define NEQ 57440
-#define UMINUS 57441
-#define NOT 57442
-#define YYEOFCODE 1
-#define YYERRCODE 2
-static const short yyexca[] =
-{-1, 0,
- 1, 2,
- -2, 0,
--1, 1,
- 1, -1,
- -2, 0,
--1, 203,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 156,
--1, 210,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 155,
--1, 211,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 157,
--1, 212,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 158,
--1, 213,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 159,
--1, 214,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 160,
--1, 266,
- 94, 0,
- 95, 0,
- 96, 0,
- 97, 0,
- 98, 0,
- 99, 0,
- -2, 156,
-};
-#define YYNPROD 175
-#define YYPRIVATE 57344
-#define YYLAST 1551
-static const short yyact[] =
-{
- 171, 330, 137, 52, 316, 67, 270, 123, 124, 308,
- 315, 42, 269, 239, 108, 32, 135, 160, 135, 159,
- 158, 157, 94, 224, 130, 131, 132, 133, 134, 43,
- 156, 155, 91, 50, 154, 153, 152, 151, 135, 97,
- 80, 104, 295, 294, 243, 232, 230, 40, 121, 126,
- 129, 82, 123, 124, 312, 150, 147, 109, 110, 111,
- 112, 113, 271, 50, 121, 225, 71, 106, 41, 162,
- 101, 164, 128, 40, 331, 332, 333, 334, 136, 127,
- 243, 167, 191, 187, 72, 73, 74, 75, 76, 77,
- 78, 79, 272, 200, 197, 109, 110, 111, 112, 113,
- 136, 125, 121, 123, 124, 123, 124, 201, 203, 104,
- 205, 206, 207, 208, 209, 210, 211, 212, 213, 214,
- 215, 216, 217, 38, 218, 221, 231, 111, 112, 113,
- 50, 50, 121, 317, 123, 124, 192, 202, 204, 123,
- 124, 195, 196, 166, 84, 229, 220, 223, 165, 95,
- 96, 35, 233, 234, 235, 236, 237, 238, 34, 240,
- 241, 242, 189, 168, 283, 244, 246, 281, 36, 44,
- 122, 249, 248, 250, 104, 104, 104, 104, 104, 89,
- 123, 124, 258, 259, 260, 261, 4, 70, 85, 37,
- 92, 296, 263, 264, 227, 266, 50, 50, 50, 50,
- 50, 80, 265, 251, 252, 253, 254, 257, 119, 114,
- 194, 115, 116, 117, 118, 109, 110, 111, 112, 113,
- 274, 169, 121, 276, 283, 284, 37, 99, 188, 279,
- 114, 194, 115, 116, 117, 118, 109, 110, 111, 112,
- 113, 262, 85, 121, 281, 282, 190, 35, 277, 130,
- 131, 132, 133, 134, 86, 87, 198, 227, 228, 162,
- 193, 164, 2, 83, 36, 69, 1, 5, 37, 39,
- 161, 301, 104, 104, 304, 26, 306, 6, 185, 24,
- 12, 24, 13, 147, 14, 24, 300, 199, 88, 81,
- 309, 90, 310, 311, 50, 50, 278, 68, 163, 313,
- 314, 302, 303, 0, 0, 24, 318, 0, 319, 140,
- 144, 145, 141, 142, 143, 146, 247, 327, 24, 24,
- 0, 65, 66, 68, 280, 0, 0, 335, 0, 297,
- 0, 336, 0, 0, 0, 0, 337, 0, 0, 16,
- 20, 21, 17, 18, 19, 22, 0, 35, 25, 23,
- 51, 46, 10, 11, 267, 268, 30, 31, 29, 149,
- 24, 0, 102, 46, 36, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 65, 66, 68, 53, 24,
- 0, 0, 0, 0, 0, 0, 0, 65, 66, 68,
- 53, 0, 0, 0, 0, 0, 0, 45, 55, 56,
- 57, 58, 59, 60, 61, 63, 62, 64, 0, 45,
- 55, 56, 57, 58, 59, 60, 61, 63, 62, 64,
- 9, 0, 0, 0, 48, 100, 0, 0, 299, 54,
- 0, 0, 0, 0, 0, 0, 48, 35, 93, 0,
- 0, 54, 0, 0, 0, 0, 27, 0, 33, 0,
- 49, 0, 51, 46, 36, 0, 170, 179, 0, 0,
- 0, 0, 173, 174, 175, 176, 177, 180, 140, 144,
- 145, 141, 142, 143, 146, 245, 0, 65, 66, 68,
- 53, 178, 120, 119, 114, 194, 115, 116, 117, 118,
- 109, 110, 111, 112, 113, 0, 0, 121, 0, 45,
- 55, 56, 57, 58, 59, 60, 61, 63, 62, 64,
- 172, 181, 182, 183, 184, 0, 0, 35, 139, 0,
- 0, 0, 47, 8, 0, 8, 48, 0, 35, 8,
- 0, 54, 51, 46, 36, 0, 0, 0, 0, 0,
- 93, 0, 0, 51, 46, 36, 0, 0, 0, 8,
- 0, 0, 0, 0, 0, 0, 0, 65, 66, 68,
- 53, 0, 8, 103, 0, 0, 339, 0, 65, 66,
- 68, 53, 0, 0, 0, 0, 0, 0, 0, 45,
- 55, 56, 57, 58, 59, 60, 61, 63, 62, 64,
- 45, 55, 56, 57, 58, 59, 60, 61, 63, 62,
- 64, 51, 46, 0, 8, 0, 48, 0, 0, 0,
- 0, 54, 0, 0, 0, 0, 0, 48, 0, 0,
- 93, 0, 54, 8, 0, 0, 255, 66, 68, 53,
- 0, 49, 120, 119, 114, 194, 115, 116, 117, 118,
- 109, 110, 111, 112, 113, 0, 0, 121, 45, 55,
- 56, 57, 58, 59, 60, 61, 63, 62, 64, 16,
- 20, 21, 17, 18, 19, 22, 0, 35, 25, 23,
- 0, 0, 10, 11, 0, 48, 30, 31, 29, 0,
- 54, 0, 7, 28, 36, 0, 0, 0, 256, 49,
- 16, 20, 21, 17, 18, 19, 22, 0, 35, 25,
- 23, 0, 0, 10, 11, 0, 0, 30, 31, 29,
- 0, 0, 0, 7, 28, 36, 0, 3, 0, 16,
- 20, 21, 17, 18, 19, 22, 0, 35, 25, 23,
- 51, 46, 10, 11, 0, 0, 30, 31, 29, 0,
- 9, 0, 7, 28, 36, 15, 140, 144, 145, 141,
- 142, 143, 146, 148, 0, 65, 66, 68, 53, 0,
- 0, 0, 0, 0, 0, 0, 27, 186, 33, 0,
- 0, 9, 0, 0, 0, 0, 15, 45, 55, 56,
- 57, 58, 59, 60, 61, 63, 62, 64, 51, 46,
- 0, 0, 0, 0, 98, 0, 149, 27, 0, 33,
- 9, 0, 0, 0, 48, 15, 0, 0, 0, 54,
- 0, 0, 0, 65, 66, 68, 53, 0, 49, 0,
- 0, 0, 0, 0, 0, 0, 27, 0, 33, 0,
- 51, 46, 0, 0, 0, 45, 55, 56, 57, 58,
- 59, 60, 61, 63, 62, 64, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 65, 66, 68, 53, 0,
- 0, 0, 48, 0, 0, 0, 0, 54, 0, 0,
- 0, 0, 0, 0, 0, 0, 222, 45, 55, 56,
- 57, 58, 59, 60, 61, 63, 62, 64, 16, 20,
- 21, 17, 18, 19, 22, 108, 35, 25, 23, 0,
- 0, 10, 11, 0, 48, 30, 31, 29, 0, 54,
- 0, 7, 28, 36, 0, 0, 0, 0, 219, 0,
- 0, 140, 144, 145, 141, 142, 143, 146, 138, 0,
- 120, 119, 114, 107, 115, 116, 117, 118, 109, 110,
- 111, 112, 113, 0, 0, 121, 0, 0, 106, 0,
- 0, 0, 0, 0, 226, 120, 119, 114, 194, 115,
- 116, 117, 118, 109, 110, 111, 112, 113, 0, 9,
- 121, 139, 0, 307, 15, 0, 0, 0, 0, 226,
- 0, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 0, 27, 121, 33, 0, 305,
- 0, 0, 0, 0, 0, 226, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 0, 0, 0, 0, 0, 0, 0, 0,
- 329, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 0, 0, 121, 0, 0, 0,
- 0, 0, 0, 0, 0, 328, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 0, 0, 0, 0, 0, 0, 0, 0,
- 322, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 0, 0, 121, 0, 0, 0,
- 0, 0, 0, 0, 0, 321, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 0, 0, 0, 0, 0, 0, 0, 0,
- 320, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 0, 0, 121, 0, 0, 0,
- 0, 0, 0, 0, 0, 293, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 0, 0, 0, 0, 0, 0, 0, 0,
- 290, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 0, 0, 121, 0, 0, 0,
- 0, 0, 0, 0, 0, 288, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 0, 0, 0, 0, 0, 0, 0, 0,
- 287, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 0, 0, 121, 0, 0, 0,
- 0, 0, 0, 0, 0, 286, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 0, 108, 0, 0, 0, 0, 0, 0,
- 285, 120, 119, 114, 194, 115, 116, 117, 118, 109,
- 110, 111, 112, 113, 108, 0, 121, 0, 0, 0,
- 0, 0, 0, 0, 0, 226, 105, 0, 120, 119,
- 114, 107, 115, 116, 117, 118, 109, 110, 111, 112,
- 113, 0, 0, 121, 0, 0, 106, 0, 0, 120,
- 119, 114, 107, 115, 116, 117, 118, 109, 110, 111,
- 112, 113, 0, 0, 121, 0, 0, 106, 120, 119,
- 114, 194, 115, 116, 117, 118, 109, 110, 111, 112,
- 113, 0, 0, 121, 0, 0, 292, 120, 119, 114,
- 194, 115, 116, 117, 118, 109, 110, 111, 112, 113,
- 0, 0, 121, 0, 0, 291, 120, 119, 114, 194,
- 115, 116, 117, 118, 109, 110, 111, 112, 113, 0,
- 0, 121, 338, 0, 289, 120, 119, 114, 194, 115,
- 116, 117, 118, 109, 110, 111, 112, 113, 0, 0,
- 121, 0, 0, 275, 120, 119, 114, 194, 115, 116,
- 117, 118, 109, 110, 111, 112, 113, 326, 0, 121,
- 0, 0, 273, 0, 0, 0, 0, 0, 0, 0,
- 0, 325, 0, 324, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 323, 120, 119,
- 114, 194, 115, 116, 117, 118, 109, 110, 111, 112,
- 113, 298, 0, 121, 120, 119, 114, 194, 115, 116,
- 117, 118, 109, 110, 111, 112, 113, 0, 0, 121,
- 0, 0, 0, 120, 119, 114, 194, 115, 116, 117,
- 118, 109, 110, 111, 112, 113, 0, 0, 121, 120,
- 119, 114, 194, 115, 116, 117, 118, 109, 110, 111,
- 112, 113, 0, 0, 121, 120, 119, 114, 194, 115,
- 116, 117, 118, 109, 110, 111, 112, 113, 0, 0,
- 121
-};
-static const short yypact[] =
-{
- 715,-1000, 884,-1000,-1000, 33, 884, -62, -22,-1000,
- 516, 159,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
--1000,-1000,-1000,-1000, 139,-1000, 884,-1000, -40, 235,
- 151, 505, 117,-1000, 118,-1000, -76,-1000,-1000, 686,
- 335,-1000,1216, 80, 11,-1000, -40,-1000, 323, 703,
- 180, -14, 917, 742, 323, -78, -79, -80, -81, -84,
- -85, -94, -95, -96, -98, 243,-1000, 96,-1000, 53,
--1000, 425, 425, 425, 425, 425, 425, 425, 425, 425,
- 117, 655, 323, 235,-1000,-1000, 132, 139, 45,-1000,
- 236,1392, 43, 323, 180,-1000,-1000, 139,-1000,-1000,
- 884, 3, -36, -22,1237,-1000, 323, 703, 703, 323,
- 323, 323, 323, 323, 323, 323, 323, 323, 323, 323,
- 323, 323,-1000, 803, 761,-1000, -59, -93, -45, 838,
--1000,-1000,-1000,-1000,-1000,-1000, 230, 93, -68,-1000,
--1000,-1000,-1000,-1000,-1000,-1000,-1000, 74, -69,-1000,
- -59, 323, 323, 323, 323, 323, 323,-103, 323, 323,
- 323, -70, 464, 305,-1000,-1000,-1000,-1000, 144,-1000,
- 323,1392, 323, 703, 703, 703, 703, 574,-1000,-1000,
--1000, 323, 323, 323, 323, 139,-1000,1392,-1000,-1000,
--1000, 323, 323, 177, 323, 139, 139,1189,-104,-1000,
--1000,1392, -48, -43, 34, 25, 25, -59, -59, -59,
- -5, -5, -5, -5, -5, 136, 115, -59,1332, 323,
- 180,1313, 323, 180,-1000, 269,-1000,-1000,-1000,-1000,
- 217,-1000, 197,1164,1139,1114,1089,1294,1064,-1000,
-1275,1256,1039, 167,-1000, -71,-1000, -72,-1000,1392,
-1392, 5, 5, 5, 5, 243, 164, 5,1392,1392,
-1392,1392,-1000,1443, 390,-1000, -5,-1000,-1000,-1000,
- 323, 703, 703, 323, 889, 323, 863,-107, -34, 464,
- 305,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, 323,
--1000, 323, 323,-1000, 140, 137, 2, 425, 323, 323,
--106,1392, 39, 5,1392, 323,1392, 323,-1000,1014,
- 989, 964,-1000,1427,1411,-1000, 323,-1000, 939, 914,
--1000,-1000,-1000, -26,-1000, -26,-1000,1392,-1000,-1000,
- 323,-1000,-1000,-1000,-1000, 323,1376, 540,-1000,-1000
-};
-static const short yypgo[] =
-{
- 0, 0, 291, 522, 288, 158, 1, 286, 284, 282,
- 280, 277, 186, 262, 29, 275, 267, 22, 5, 278,
- 15, 3, 2, 266, 265, 263, 144, 66, 241, 221
-};
-static const short yyr1[] =
-{
- 0, 23, 23, 23, 13, 13, 12, 12, 12, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 24, 24, 24, 24, 3, 10, 25, 25, 26,
- 26, 26, 9, 9, 9, 9, 8, 8, 2, 2,
- 2, 4, 6, 6, 6, 6, 6, 11, 16, 16,
- 16, 16, 16, 16, 16, 16, 16, 16, 28, 16,
- 15, 27, 27, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 19, 19,
- 20, 20, 20, 5, 5, 5, 7, 7, 14, 14,
- 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,
- 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
- 17, 17, 17, 18, 18, 18, 21, 21, 21, 22,
- 22, 22, 22, 22, 22, 22, 22, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1
-};
-static const short yyr2[] =
-{
- 0, 1, 0, 1, 1, 2, 2, 3, 3, 4,
- 4, 2, 1, 3, 3, 3, 3, 1, 1, 1,
- 1, 0, 1, 2, 3, 3, 2, 1, 2, 1,
- 2, 2, 10, 7, 10, 7, 4, 3, 1, 3,
- 3, 1, 1, 1, 1, 1, 0, 1, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 1, 0, 5,
- 1, 2, 0, 2, 1, 1, 2, 1, 2, 2,
- 2, 2, 2, 3, 4, 2, 1, 1, 1, 2,
- 1, 2, 1, 2, 1, 2, 1, 1, 1, 2,
- 1, 2, 2, 1, 4, 6, 1, 3, 1, 3,
- 3, 5, 5, 7, 7, 3, 3, 5, 6, 5,
- 1, 2, 2, 1, 2, 3, 3, 2, 3, 3,
- 1, 2, 2, 4, 4, 3, 2, 2, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 3, 3, 3, 3, 3, 2, 3, 2, 2, 2,
- 2, 2, 3, 4, 4, 3, 3, 3, 3, 3,
- 3, 3, 3, 2, 4, 4, 3, 4, 4, 6,
- 4, 3, 6, 6, 4
-};
-static const short yychk[] =
-{
--1000, -23, -13, 2, -12, -16, -11, 27, -3, 85,
- 17, 18, -10, -9, -8, 90, 4, 7, 8, 9,
- 5, 6, 10, 14, -19, 13, -15, 111, 28, 23,
- 21, 22, -20, 113, -5, 12, 29, -12, 90, -13,
- 109, 90, -1, -14, -5, 74, 28, -3, 101, 115,
- -17, 27, -21, 55, 106, 75, 76, 77, 78, 79,
- 80, 81, 83, 82, 84, 52, 53, -18, 54, -24,
- 28, -27, -27, -27, -27, -27, -27, -27, -27, -27,
- -20, -13, 91, -25, -26, -5, 19, 20, -4, 28,
- -2, -1, -5, 115, -17, 32, 32, 115, 108, -12,
- 90, -14, 27, -3, -1, 90, 110, 95, 57, 100,
- 101, 102, 103, 104, 94, 96, 97, 98, 99, 93,
- 92, 107, 90, 100, 101, 90, -1, -14, -17, -1,
- 69, 70, 71, 72, 73, 52, 114, -22, 11, 54,
- 4, 7, 8, 9, 5, 6, 10, -22, 11, 54,
- -1, 115, 115, 115, 115, 115, 115, 115, 115, 115,
- 115, 27, -21, 55, -18, 52, 90, 28, 110, -29,
- 31, -1, 85, 37, 38, 39, 40, 41, 56, 32,
- 42, 86, 87, 88, 89, -19, 112, -1, -26, 30,
- -5, 37, 91, 24, 95, 98, 99, -1, -5, -12,
- 90, -1, -14, -1, -14, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 115,
- -17, -1, 115, -17, 116, 110, 116, 27, 28, 52,
- 114, 52, 114, -1, -1, -1, -1, -1, -1, 116,
- -1, -1, -1, 114, -22, 11, -22, 11, 28, -1,
- -1, -14, -14, -14, -14, 52, 114, -14, -1, -1,
- -1, -1, -28, -1, -1, 25, -1, -5, -5, 116,
- 110, 110, 58, 110, -1, 110, -1, -17, 27, -21,
- 55, 27, 28, 27, 28, 116, 116, 116, 116, 110,
- 116, 110, 110, 116, 114, 114, 27, -27, 38, 38,
- -7, -1, -14, -14, -1, 110, -1, 110, 116, -1,
- -1, -1, 52, -1, -1, 116, 110, 94, -1, -1,
- 116, 116, 116, 40, 26, 40, 26, -1, 116, 116,
- -6, 100, 101, 102, 103, -6, -1, -1, 26, 26
-};
-static const short yydef[] =
-{
- -2, -2, 1, 3, 4, 0, 0, 0, 0, 12,
- 0, 21, 17, 18, 19, 20, 62, 62, 62, 62,
- 62, 62, 62, 62, 62, 57, 0, 47, 0, 0,
- 0, 0, 88, 60, 90, 93, 0, 5, 6, 0,
- 0, 11, 0, 0, 0, 137, 138, 139, 0, 0,
- 98, 110, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 113, 120, 128, 0,
- 22, 48, 49, 50, 51, 52, 53, 54, 55, 56,
- 89, 0, 0, 26, 27, 29, 0, 0, 0, 41,
- 0, 38, 0, 0, 0, 92, 91, 0, 7, 8,
- 20, 0, 110, 139, 0, 13, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 14, 0, 0, 15, 145, 0, 98, 0,
- 147, 148, 149, 150, 151, 111, 0, 114, 136, 126,
- 129, 130, 131, 132, 133, 134, 135, 117, 136, 127,
- 163, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 112, 0, 0, 122, 121, 16, 23, 0, 61,
- 64, 65, 67, 0, 0, 0, 0, 0, 76, 77,
- 78, 80, 82, 84, 86, 87, 58, 25, 28, 30,
- 31, 0, 0, 37, 0, 0, 0, 0, 0, 9,
- 10, 100, 0, -2, 0, 140, 141, 142, 143, 144,
- -2, -2, -2, -2, -2, 161, 162, 166, 0, 0,
- 105, 0, 0, 106, 99, 0, 146, 125, 152, 115,
- 0, 118, 0, 0, 0, 0, 0, 0, 0, 171,
- 0, 0, 0, 0, 116, 136, 119, 136, 24, 63,
- 66, 68, 69, 70, 71, 72, 0, 75, 79, 81,
- 83, 85, 62, 0, 0, 36, -2, 39, 40, 94,
- 0, 0, 0, 0, 0, 0, 0, 0, 110, 0,
- 0, 123, 153, 124, 154, 164, 165, 167, 168, 0,
- 170, 0, 0, 174, 0, 0, 73, 59, 0, 0,
- 0, 96, 0, 109, 101, 0, 102, 0, 107, 0,
- 0, 0, 74, 0, 0, 95, 0, 108, 0, 0,
- 169, 172, 173, 46, 33, 46, 35, 97, 103, 104,
- 0, 42, 43, 44, 45, 0, 0, 0, 32, 34
-};
-static const short yytok1[] =
-{
- 1, 4, 5, 6, 7, 8, 9, 10, 11, 12,
- 13, 14, 15, 16, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 104, 0, 0,
- 115, 116, 102, 100, 110, 101, 114, 103, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 109, 0,
- 0, 91, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 113, 0, 112, 107, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 111, 0, 108
-};
-static const short yytok2[] =
-{
- 2, 3, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 17, 18, 19, 20, 21,
- 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41,
- 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
- 52, 53, 54, 55, 56, 57, 58, 59, 60, 61,
- 62, 63, 64, 65, 66, 67, 68, 69, 70, 71,
- 72, 73, 74, 75, 76, 77, 78, 79, 80, 81,
- 82, 83, 84, 85, 86, 87, 88, 89, 90, 92,
- 93, 94, 95, 96, 97, 98, 99, 105, 106
-};
-static const long yytok3[] =
-{
- 0
-};
-#define YYFLAG -1000
-#define YYERROR goto yyerrlab
-#define YYACCEPT return(0)
-#define YYABORT return(1)
-#define yyclearin yychar = -1
-#define yyerrok yyerrflag = 0
-
-#ifdef yydebug
-#include "y.debug"
-#else
-#define yydebug 0
-static const char* yytoknames[1]; /* for debugging */
-static const char* yystates[1]; /* for debugging */
-#endif
-
-/* parser for yacc output */
-#ifdef YYARG
-#define yynerrs yyarg->yynerrs
-#define yyerrflag yyarg->yyerrflag
-#define yyval yyarg->yyval
-#define yylval yyarg->yylval
-#else
-int yynerrs = 0; /* number of errors */
-int yyerrflag = 0; /* error recovery flag */
-#endif
-
-static const char*
-yytokname(int yyc)
-{
- static char x[10];
-
- if(yyc > 0 && yyc <= sizeof(yytoknames)/sizeof(yytoknames[0]))
- if(yytoknames[yyc-1])
- return yytoknames[yyc-1];
- sprintf(x, "<%d>", yyc);
- return x;
-}
-
-static const char*
-yystatname(int yys)
-{
- static char x[10];
-
- if(yys >= 0 && yys < sizeof(yystates)/sizeof(yystates[0]))
- if(yystates[yys])
- return yystates[yys];
- sprintf(x, "<%d>\n", yys);
- return x;
-}
-
-static long
-#ifdef YYARG
-yylex1(struct Yyarg *yyarg)
-#else
-yylex1(void)
-#endif
-{
- long yychar;
- const long *t3p;
- int c;
-
-#ifdef YYARG
- yychar = yylex(yyarg);
-#else
- yychar = yylex();
-#endif
- if(yychar <= 0) {
- c = yytok1[0];
- goto out;
- }
- if(yychar < sizeof(yytok1)/sizeof(yytok1[0])) {
- c = yytok1[yychar];
- goto out;
- }
- if(yychar >= YYPRIVATE)
- if(yychar < YYPRIVATE+sizeof(yytok2)/sizeof(yytok2[0])) {
- c = yytok2[yychar-YYPRIVATE];
- goto out;
- }
- for(t3p=yytok3;; t3p+=2) {
- c = t3p[0];
- if(c == yychar) {
- c = t3p[1];
- goto out;
- }
- if(c == 0)
- break;
- }
- c = 0;
-
-out:
- if(c == 0)
- c = yytok2[1]; /* unknown char */
- if(yydebug >= 3)
- printf("lex %.4lX %s\n", yychar, yytokname(c));
- return c;
-}
-
-int
-#ifdef YYARG
-yyparse(struct Yyarg *yyarg)
-#else
-yyparse(void)
-#endif
-{
- struct
- {
- YYSTYPE yyv;
- int yys;
- } yys[YYMAXDEPTH], *yyp, *yypt;
- const short *yyxi;
- int yyj, yym, yystate, yyn, yyg;
- long yychar;
-#ifndef YYARG
- YYSTYPE save1, save2;
- int save3, save4;
-
- save1 = yylval;
- save2 = yyval;
- save3 = yynerrs;
- save4 = yyerrflag;
-#endif
-
- yystate = 0;
- yychar = -1;
- yynerrs = 0;
- yyerrflag = 0;
- yyp = &yys[-1];
- goto yystack;
-
-ret0:
- yyn = 0;
- goto ret;
-
-ret1:
- yyn = 1;
- goto ret;
-
-ret:
-#ifndef YYARG
- yylval = save1;
- yyval = save2;
- yynerrs = save3;
- yyerrflag = save4;
-#endif
- return yyn;
-
-yystack:
- /* put a state and value onto the stack */
- if(yydebug >= 4)
- printf("char %s in %s", yytokname(yychar), yystatname(yystate));
-
- yyp++;
- if(yyp >= &yys[YYMAXDEPTH]) {
- yyerror("yacc stack overflow");
- goto ret1;
- }
- yyp->yys = yystate;
- yyp->yyv = yyval;
-
-yynewstate:
- yyn = yypact[yystate];
- if(yyn <= YYFLAG)
- goto yydefault; /* simple state */
- if(yychar < 0)
-#ifdef YYARG
- yychar = yylex1(yyarg);
-#else
- yychar = yylex1();
-#endif
- yyn += yychar;
- if(yyn < 0 || yyn >= YYLAST)
- goto yydefault;
- yyn = yyact[yyn];
- if(yychk[yyn] == yychar) { /* valid shift */
- yychar = -1;
- yyval = yylval;
- yystate = yyn;
- if(yyerrflag > 0)
- yyerrflag--;
- goto yystack;
- }
-
-yydefault:
- /* default state action */
- yyn = yydef[yystate];
- if(yyn == -2) {
- if(yychar < 0)
-#ifdef YYARG
- yychar = yylex1(yyarg);
-#else
- yychar = yylex1();
-#endif
-
- /* look through exception table */
- for(yyxi=yyexca;; yyxi+=2)
- if(yyxi[0] == -1 && yyxi[1] == yystate)
- break;
- for(yyxi += 2;; yyxi += 2) {
- yyn = yyxi[0];
- if(yyn < 0 || yyn == yychar)
- break;
- }
- yyn = yyxi[1];
- if(yyn < 0)
- goto ret0;
- }
- if(yyn == 0) {
- /* error ... attempt to resume parsing */
- switch(yyerrflag) {
- case 0: /* brand new error */
- yyerror("syntax error");
- if(yydebug >= 1) {
- printf("%s", yystatname(yystate));
- printf("saw %s\n", yytokname(yychar));
- }
- goto yyerrlab;
- yyerrlab:
- yynerrs++;
-
- case 1:
- case 2: /* incompletely recovered error ... try again */
- yyerrflag = 3;
-
- /* find a state where "error" is a legal shift action */
- while(yyp >= yys) {
- yyn = yypact[yyp->yys] + YYERRCODE;
- if(yyn >= 0 && yyn < YYLAST) {
- yystate = yyact[yyn]; /* simulate a shift of "error" */
- if(yychk[yystate] == YYERRCODE)
- goto yystack;
- }
-
- /* the current yyp has no shift onn "error", pop stack */
- if(yydebug >= 2)
- printf("error recovery pops state %d, uncovers %d\n",
- yyp->yys, (yyp-1)->yys );
- yyp--;
- }
- /* there is no state on the stack with an error shift ... abort */
- goto ret1;
-
- case 3: /* no shift yet; clobber input char */
- if(yydebug >= YYEOFCODE)
- printf("error recovery discards %s\n", yytokname(yychar));
- if(yychar == YYEOFCODE)
- goto ret1;
- yychar = -1;
- goto yynewstate; /* try again in the same state */
- }
- }
-
- /* reduction by production yyn */
- if(yydebug >= 2)
- printf("reduce %d in:\n\t%s", yyn, yystatname(yystate));
-
- yypt = yyp;
- yyp -= yyr2[yyn];
- yyval = (yyp+1)->yyv;
- yym = yyn;
-
- /* consult goto table to find next state */
- yyn = yyr1[yyn];
- yyg = yypgo[yyn];
- yyj = yyg + yyp->yys + 1;
-
- if(yyj >= YYLAST || yychk[yystate=yyact[yyj]] != -yyn)
- yystate = yyact[yyg];
- switch(yym) {
-
-case 3:
-#line 63 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ ERROR "syntax error" WARNING; } break;
-case 6:
-#line 72 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ codegen = 1; makeiattr(0, 0); } break;
-case 7:
-#line 73 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ rightthing(yypt[-2].yyv.o, '}'); yyval.o = yypt[-1].yyv.o; } break;
-case 8:
-#line 74 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y.o=yypt[-0].yyv.o; makevar(yypt[-2].yyv.p,PLACENAME,y); yyval.o = yypt[-0].yyv.o; } break;
-case 9:
-#line 75 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y.o=yypt[-0].yyv.o; makevar(yypt[-3].yyv.p,PLACENAME,y); yyval.o = yypt[-0].yyv.o; } break;
-case 10:
-#line 76 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y.o=yypt[-1].yyv.o; makevar(yypt[-3].yyv.p,PLACENAME,y); yyval.o = yypt[-1].yyv.o; } break;
-case 11:
-#line 77 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y.f = yypt[-1].yyv.f; yyval.o = y.o; yyval.o = makenode(PLACE, 0); } break;
-case 12:
-#line 78 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ setdir(yypt[-0].yyv.i); yyval.o = makenode(PLACE, 0); } break;
-case 13:
-#line 79 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ printexpr(yypt[-1].yyv.f); yyval.o = makenode(PLACE, 0); } break;
-case 14:
-#line 80 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ printpos(yypt[-1].yyv.o); yyval.o = makenode(PLACE, 0); } break;
-case 15:
-#line 81 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ printf("%s\n", yypt[-1].yyv.p); free(yypt[-1].yyv.p); yyval.o = makenode(PLACE, 0); } break;
-case 16:
-#line 82 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ resetvar(); makeiattr(0, 0); yyval.o = makenode(PLACE, 0); } break;
-case 22:
-#line 91 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makevattr(yypt[-0].yyv.p); } break;
-case 23:
-#line 92 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makevattr(yypt[-0].yyv.p); } break;
-case 24:
-#line 93 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makevattr(yypt[-0].yyv.p); } break;
-case 25:
-#line 97 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f=y.f=yypt[-0].yyv.f; makevar(yypt[-2].yyv.p,VARNAME,y); checkscale(yypt[-2].yyv.p); } break;
-case 26:
-#line 101 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ copy(); } break;
-case 29:
-#line 108 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ copyfile(yypt[-0].yyv.p); } break;
-case 30:
-#line 109 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ copydef(yypt[-0].yyv.st); } break;
-case 31:
-#line 110 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ copyuntil(yypt[-0].yyv.p); } break;
-case 32:
-#line 115 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ forloop(yypt[-8].yyv.p, yypt[-6].yyv.f, yypt[-4].yyv.f, yypt[-2].yyv.i, yypt[-1].yyv.f, yypt[-0].yyv.p); } break;
-case 33:
-#line 117 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ forloop(yypt[-5].yyv.p, yypt[-3].yyv.f, yypt[-1].yyv.f, '+', 1.0, yypt[-0].yyv.p); } break;
-case 34:
-#line 119 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ forloop(yypt[-8].yyv.p, yypt[-6].yyv.f, yypt[-4].yyv.f, yypt[-2].yyv.i, yypt[-1].yyv.f, yypt[-0].yyv.p); } break;
-case 35:
-#line 121 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ forloop(yypt[-5].yyv.p, yypt[-3].yyv.f, yypt[-1].yyv.f, '+', 1.0, yypt[-0].yyv.p); } break;
-case 36:
-#line 125 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ ifstat(yypt[-2].yyv.f, yypt[-1].yyv.p, yypt[-0].yyv.p); } break;
-case 37:
-#line 126 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ ifstat(yypt[-1].yyv.f, yypt[-0].yyv.p, (char *) 0); } break;
-case 39:
-#line 130 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = strcmp(yypt[-2].yyv.p,yypt[-0].yyv.p) == 0; free(yypt[-2].yyv.p); free(yypt[-0].yyv.p); } break;
-case 40:
-#line 131 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = strcmp(yypt[-2].yyv.p,yypt[-0].yyv.p) != 0; free(yypt[-2].yyv.p); free(yypt[-0].yyv.p); } break;
-case 41:
-#line 135 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y.f = 0; makevar(yypt[-0].yyv.p, VARNAME, y); } break;
-case 42:
-#line 138 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = '+'; } break;
-case 43:
-#line 139 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = '-'; } break;
-case 44:
-#line 140 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = '*'; } break;
-case 45:
-#line 141 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = '/'; } break;
-case 46:
-#line 142 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = ' '; } break;
-case 47:
-#line 147 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = leftthing('{'); } break;
-case 48:
-#line 151 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = boxgen(); } break;
-case 49:
-#line 152 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = circgen(yypt[-1].yyv.i); } break;
-case 50:
-#line 153 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = circgen(yypt[-1].yyv.i); } break;
-case 51:
-#line 154 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = arcgen(yypt[-1].yyv.i); } break;
-case 52:
-#line 155 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = linegen(yypt[-1].yyv.i); } break;
-case 53:
-#line 156 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = linegen(yypt[-1].yyv.i); } break;
-case 54:
-#line 157 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = linegen(yypt[-1].yyv.i); } break;
-case 55:
-#line 158 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = movegen(); } break;
-case 56:
-#line 159 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = textgen(); } break;
-case 57:
-#line 160 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = troffgen(yypt[-0].yyv.p); } break;
-case 58:
-#line 161 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o=rightthing(yypt[-2].yyv.o,']'); } break;
-case 59:
-#line 162 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = blockgen(yypt[-4].yyv.o, yypt[-1].yyv.o); } break;
-case 60:
-#line 166 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = leftthing('['); } break;
-case 63:
-#line 175 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(yypt[-1].yyv.i, !DEFAULT, yypt[-0].yyv.f); } break;
-case 64:
-#line 176 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(yypt[-0].yyv.i, DEFAULT, 0.0); } break;
-case 65:
-#line 177 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(curdir(), !DEFAULT, yypt[-0].yyv.f); } break;
-case 66:
-#line 178 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(yypt[-1].yyv.i, !DEFAULT, yypt[-0].yyv.f); } break;
-case 67:
-#line 179 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(yypt[-0].yyv.i, DEFAULT, 0.0); } break;
-case 68:
-#line 180 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(yypt[-1].yyv.i, yypt[-0].yyv.o); } break;
-case 69:
-#line 181 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(yypt[-1].yyv.i, yypt[-0].yyv.o); } break;
-case 70:
-#line 182 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(yypt[-1].yyv.i, yypt[-0].yyv.o); } break;
-case 71:
-#line 183 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(yypt[-1].yyv.i, yypt[-0].yyv.o); } break;
-case 72:
-#line 184 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeiattr(WITH, yypt[-0].yyv.i); } break;
-case 73:
-#line 185 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(PLACE, getblock(getlast(1,BLOCK), yypt[-0].yyv.p)); } break;
-case 74:
-#line 187 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(PLACE, getpos(getblock(getlast(1,BLOCK), yypt[-1].yyv.p), yypt[-0].yyv.i)); } break;
-case 75:
-#line 188 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeoattr(PLACE, yypt[-0].yyv.o); } break;
-case 76:
-#line 189 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeiattr(SAME, yypt[-0].yyv.i); } break;
-case 77:
-#line 190 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ maketattr(yypt[-0].yyv.i, (char *) 0); } break;
-case 78:
-#line 191 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makeiattr(HEAD, yypt[-0].yyv.i); } break;
-case 79:
-#line 192 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(DOT, !DEFAULT, yypt[-0].yyv.f); } break;
-case 80:
-#line 193 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(DOT, DEFAULT, 0.0); } break;
-case 81:
-#line 194 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(DASH, !DEFAULT, yypt[-0].yyv.f); } break;
-case 82:
-#line 195 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(DASH, DEFAULT, 0.0); } break;
-case 83:
-#line 196 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(CHOP, !DEFAULT, yypt[-0].yyv.f); } break;
-case 84:
-#line 197 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(CHOP, DEFAULT, 0.0); } break;
-case 85:
-#line 198 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(FILL, !DEFAULT, yypt[-0].yyv.f); } break;
-case 86:
-#line 199 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ makefattr(FILL, DEFAULT, 0.0); } break;
-case 90:
-#line 208 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ maketattr(CENTER, yypt[-0].yyv.p); } break;
-case 91:
-#line 209 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ maketattr(yypt[-0].yyv.i, yypt[-1].yyv.p); } break;
-case 92:
-#line 210 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ addtattr(yypt[-0].yyv.i); } break;
-case 94:
-#line 214 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.p = sprintgen(yypt[-1].yyv.p); } break;
-case 95:
-#line 215 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.p = sprintgen(yypt[-3].yyv.p); } break;
-case 96:
-#line 219 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ exprsave(yypt[-0].yyv.f); yyval.i = 0; } break;
-case 97:
-#line 220 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ exprsave(yypt[-0].yyv.f); } break;
-case 99:
-#line 225 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = yypt[-1].yyv.o; } break;
-case 100:
-#line 226 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = makepos(yypt[-2].yyv.f, yypt[-0].yyv.f); } break;
-case 101:
-#line 227 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = fixpos(yypt[-4].yyv.o, yypt[-2].yyv.f, yypt[-0].yyv.f); } break;
-case 102:
-#line 228 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = fixpos(yypt[-4].yyv.o, -yypt[-2].yyv.f, -yypt[-0].yyv.f); } break;
-case 103:
-#line 229 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = fixpos(yypt[-6].yyv.o, yypt[-3].yyv.f, yypt[-1].yyv.f); } break;
-case 104:
-#line 230 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = fixpos(yypt[-6].yyv.o, -yypt[-3].yyv.f, -yypt[-1].yyv.f); } break;
-case 105:
-#line 231 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = addpos(yypt[-2].yyv.o, yypt[-0].yyv.o); } break;
-case 106:
-#line 232 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = subpos(yypt[-2].yyv.o, yypt[-0].yyv.o); } break;
-case 107:
-#line 233 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = makepos(getcomp(yypt[-3].yyv.o,DOTX), getcomp(yypt[-1].yyv.o,DOTY)); } break;
-case 108:
-#line 234 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = makebetween(yypt[-5].yyv.f, yypt[-3].yyv.o, yypt[-1].yyv.o); } break;
-case 109:
-#line 235 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = makebetween(yypt[-4].yyv.f, yypt[-2].yyv.o, yypt[-0].yyv.o); } break;
-case 110:
-#line 239 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y = getvar(yypt[-0].yyv.p); yyval.o = y.o; } break;
-case 111:
-#line 240 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y = getvar(yypt[-1].yyv.p); yyval.o = getpos(y.o, yypt[-0].yyv.i); } break;
-case 112:
-#line 241 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y = getvar(yypt[-0].yyv.p); yyval.o = getpos(y.o, yypt[-1].yyv.i); } break;
-case 113:
-#line 242 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = gethere(); } break;
-case 114:
-#line 243 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getlast(yypt[-1].yyv.i, yypt[-0].yyv.i); } break;
-case 115:
-#line 244 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getpos(getlast(yypt[-2].yyv.i, yypt[-1].yyv.i), yypt[-0].yyv.i); } break;
-case 116:
-#line 245 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getpos(getlast(yypt[-1].yyv.i, yypt[-0].yyv.i), yypt[-2].yyv.i); } break;
-case 117:
-#line 246 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getfirst(yypt[-1].yyv.i, yypt[-0].yyv.i); } break;
-case 118:
-#line 247 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getpos(getfirst(yypt[-2].yyv.i, yypt[-1].yyv.i), yypt[-0].yyv.i); } break;
-case 119:
-#line 248 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getpos(getfirst(yypt[-1].yyv.i, yypt[-0].yyv.i), yypt[-2].yyv.i); } break;
-case 121:
-#line 250 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getpos(yypt[-1].yyv.o, yypt[-0].yyv.i); } break;
-case 122:
-#line 251 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getpos(yypt[-0].yyv.o, yypt[-1].yyv.i); } break;
-case 123:
-#line 255 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getblock(getlast(yypt[-3].yyv.i,yypt[-2].yyv.i), yypt[-0].yyv.p); } break;
-case 124:
-#line 256 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.o = getblock(getfirst(yypt[-3].yyv.i,yypt[-2].yyv.i), yypt[-0].yyv.p); } break;
-case 125:
-#line 257 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y = getvar(yypt[-2].yyv.p); yyval.o = getblock(y.o, yypt[-0].yyv.p); } break;
-case 126:
-#line 261 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = yypt[-1].yyv.i + 1; } break;
-case 127:
-#line 262 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = yypt[-1].yyv.i; } break;
-case 128:
-#line 263 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.i = 1; } break;
-case 138:
-#line 279 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getfval(yypt[-0].yyv.p); } break;
-case 140:
-#line 281 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f + yypt[-0].yyv.f; } break;
-case 141:
-#line 282 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f - yypt[-0].yyv.f; } break;
-case 142:
-#line 283 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f * yypt[-0].yyv.f; } break;
-case 143:
-#line 284 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ if (yypt[-0].yyv.f == 0.0) {
- ERROR "division by 0" WARNING; yypt[-0].yyv.f = 1; }
- yyval.f = yypt[-2].yyv.f / yypt[-0].yyv.f; } break;
-case 144:
-#line 287 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ if ((long)yypt[-0].yyv.f == 0) {
- ERROR "mod division by 0" WARNING; yypt[-0].yyv.f = 1; }
- yyval.f = (long)yypt[-2].yyv.f % (long)yypt[-0].yyv.f; } break;
-case 145:
-#line 290 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = -yypt[-0].yyv.f; } break;
-case 146:
-#line 291 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-1].yyv.f; } break;
-case 147:
-#line 292 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getcomp(yypt[-1].yyv.o, yypt[-0].yyv.i); } break;
-case 148:
-#line 293 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getcomp(yypt[-1].yyv.o, yypt[-0].yyv.i); } break;
-case 149:
-#line 294 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getcomp(yypt[-1].yyv.o, yypt[-0].yyv.i); } break;
-case 150:
-#line 295 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getcomp(yypt[-1].yyv.o, yypt[-0].yyv.i); } break;
-case 151:
-#line 296 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getcomp(yypt[-1].yyv.o, yypt[-0].yyv.i); } break;
-case 152:
-#line 297 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ y = getvar(yypt[-2].yyv.p); yyval.f = getblkvar(y.o, yypt[-0].yyv.p); } break;
-case 153:
-#line 298 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getblkvar(getlast(yypt[-3].yyv.i,yypt[-2].yyv.i), yypt[-0].yyv.p); } break;
-case 154:
-#line 299 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = getblkvar(getfirst(yypt[-3].yyv.i,yypt[-2].yyv.i), yypt[-0].yyv.p); } break;
-case 155:
-#line 300 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f > yypt[-0].yyv.f; } break;
-case 156:
-#line 301 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f < yypt[-0].yyv.f; } break;
-case 157:
-#line 302 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f <= yypt[-0].yyv.f; } break;
-case 158:
-#line 303 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f >= yypt[-0].yyv.f; } break;
-case 159:
-#line 304 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f == yypt[-0].yyv.f; } break;
-case 160:
-#line 305 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f != yypt[-0].yyv.f; } break;
-case 161:
-#line 306 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f && yypt[-0].yyv.f; } break;
-case 162:
-#line 307 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-2].yyv.f || yypt[-0].yyv.f; } break;
-case 163:
-#line 308 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = !(yypt[-0].yyv.f); } break;
-case 164:
-#line 309 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = Log10(yypt[-1].yyv.f); } break;
-case 165:
-#line 310 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = Exp(yypt[-1].yyv.f * log(10.0)); } break;
-case 166:
-#line 311 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = pow(yypt[-2].yyv.f, yypt[-0].yyv.f); } break;
-case 167:
-#line 312 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = sin(yypt[-1].yyv.f); } break;
-case 168:
-#line 313 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = cos(yypt[-1].yyv.f); } break;
-case 169:
-#line 314 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = atan2(yypt[-3].yyv.f, yypt[-1].yyv.f); } break;
-case 170:
-#line 315 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = Sqrt(yypt[-1].yyv.f); } break;
-case 171:
-#line 316 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = (float)rand() / 32767.0; /* might be 2^31-1 */ } break;
-case 172:
-#line 317 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-3].yyv.f >= yypt[-1].yyv.f ? yypt[-3].yyv.f : yypt[-1].yyv.f; } break;
-case 173:
-#line 318 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = yypt[-3].yyv.f <= yypt[-1].yyv.f ? yypt[-3].yyv.f : yypt[-1].yyv.f; } break;
-case 174:
-#line 319 "/usr/local/plan9/src/cmd/tpic/picy.y"
-{ yyval.f = (long) yypt[-1].yyv.f; } break;
- }
- goto yystack; /* stack new state and value */
-}
