commit 90a99688be7fd813273e1f1f28ba8fa34cb9dc44 from: rsc date: Fri Apr 14 00:15:16 2006 UTC fixes commit - b6d98463b416e9d95bc88f948b4abdff6b24aede commit + 90a99688be7fd813273e1f1f28ba8fa34cb9dc44 blob - 817488c87867a0ca2bc68f709b7802a6b41a5c5c blob + 78b6cfb342a82956886ccf2f0de8130e6438cf59 --- src/cmd/tpic/input.c +++ src/cmd/tpic/input.c @@ -1,4 +1,5 @@ #include +#include #include #include #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) { blob - a5394232d54b06816181342e9196f3c96369c285 blob + 8a7e08be5dc576de1cd14b2473bdac77a21c3ed9 --- src/cmd/tpic/linegen.c +++ src/cmd/tpic/linegen.c @@ -1,3 +1,4 @@ +#include #include #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 */ blob - 72e83303af55c3eaccd61034ee7f9f5fea4a78d2 blob + 1dbdffcc6d8ba3328f38f013d15af67c1505c651 --- src/cmd/tpic/misc.c +++ src/cmd/tpic/misc.c @@ -369,7 +369,7 @@ getfirst(int n, int t) /* find n-th occurrence of type 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 bloc 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 @@ -1,1239 +0,0 @@ - -#line 2 "/usr/local/plan9/src/cmd/tpic/picy.y" -#include -#include "pic.h" -#include -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 */ -}