fixes

4 files changed, 6 insertions, 1243 deletions

diff --git a/src/cmd/tpic/input.c b/src/cmd/tpic/input.c
index 817488c8..78b6cfb3 100644
--- a/src/cmd/tpic/input.c
+++ b/src/cmd/tpic/input.c
@@ -1,4 +1,5 @@
 #include <stdio.h>
+#include <math.h>
 #include <ctype.h>
 #include <errno.h>
 #include "pic.h"
@@ -511,7 +512,7 @@ struct symtab*
 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) {
diff --git a/src/cmd/tpic/linegen.c b/src/cmd/tpic/linegen.c
index a5394232..8a7e08be 100644
--- a/src/cmd/tpic/linegen.c
+++ b/src/cmd/tpic/linegen.c
@@ -1,3 +1,4 @@
+#include	<math.h>
 #include	<stdio.h>
 #include	"pic.h"
 #include	"y.tab.h"
@@ -11,7 +12,7 @@ linegen(int type)
 	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 */
diff --git a/src/cmd/tpic/misc.c b/src/cmd/tpic/misc.c
index 72e83303..1dbdffcc 100644
--- a/src/cmd/tpic/misc.c
+++ b/src/cmd/tpic/misc.c
@@ -369,7 +369,7 @@ getfirst(int n, int t)	/* find n-th occurrence of type t */
 double
 getblkvar(obj *p, char *s)	/* find variable s2 in block p */
 {
-	YYSTYPE y, getblk();
+	YYSTYPE y;
 
 	y = getblk(p, s);
 	return y.f;
@@ -378,7 +378,7 @@ getblkvar(obj *p, char *s)	/* find variable s2 in block p */
 obj*
 getblock(obj *p, char *s)	/* find variable s in block p */
 {
-	YYSTYPE y, getblk();
+	YYSTYPE y;
 
 	y = getblk(p, s);
 	return y.o;
diff --git a/src/cmd/tpic/picy.c b/src/cmd/tpic/picy.c
deleted file mode 100644
index 25ffd4f9..00000000
--- a/src/cmd/tpic/picy.c
+++ /dev/null
@@ -1,1239 +0,0 @@
-
-#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 */
-}