![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to parser.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / cmd / cifplot|
Return to parser.c CVS log | Up to [CSRG BSD Unix] / 41BSD / cmd / cifplot |
1.1 root 1:
2: # line 3 "parser.y"
3: /*******************************************************************
4: * *
5: * File: CIFPLOT/parser.y *
6: * Written by Dan Fitzpatrick *
7: * copyright 1980 -- Regents of the University of California *
8: * *
9: ********************************************************************/
10:
11: /* This is a YACC description for the parser */
12:
13: /* In the offical CIF language description SEMI = BLANKLIST ';' BLANKLIST
14: * but this causes ambiguities for the LALR(1) parser so the scanner
15: * returns ';' when it spots the pattern BLANKLIST ';'
16: */
17:
18: #include <stdio.h>
19: #include "defs.h"
20: #include "globals.h"
21: #include "structs.h"
22: #include "alloc.h"
23:
24: #define yyparse parser
25: #define yylex scanner
26:
27: #define null Concat("",0);
28: int Definning=0;
29: int SendAll=0; /* If set causes the lexical analyzer to return
30: * BLANKLIST and ';' seperately */
31: int A = 1;
32: int B = 1;
33:
34: #define SCALE(x) ( (((real) A) * ((real) x)) / ((real) B ))
35:
36: # define BLANK 257
37: # define OTHERCHAR 258
38: # define COMMENT_COMMAND 259
39: #define yyclearin yychar = -1
40: #define yyerrok yyerrflag = 0
41: extern int yychar;
42: extern short yyerrflag;
43: #ifndef YYMAXDEPTH
44: #define YYMAXDEPTH 150
45: #endif
46: #ifndef YYSTYPE
47: #define YYSTYPE int
48: #endif
49: YYSTYPE yylval, yyval;
50: # define YYERRCODE 256
51:
52: # line 527 "parser.y"
53:
54:
55: #include "scanner.c"
56:
57: short yyexca[] ={
58: -1, 1,
59: 0, -1,
60: -2, 0,
61: -1, 2,
62: 0, 4,
63: -2, 167,
64: -1, 23,
65: 59, 35,
66: -2, 16,
67: -1, 49,
68: 59, 35,
69: -2, 26,
70: -1, 155,
71: 59, 81,
72: -2, 160,
73: };
74: # define YYNPROD 168
75: # define YYLAST 1046
76: short yyact[]={
77:
78: 242, 158, 132, 183, 226, 227, 192, 193, 184, 157,
79: 182, 194, 162, 164, 89, 90, 91, 92, 93, 94,
80: 95, 96, 97, 98, 36, 159, 160, 167, 166, 165,
81: 70, 99, 100, 101, 102, 103, 104, 105, 106, 107,
82: 108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
83: 118, 119, 120, 121, 122, 123, 124, 188, 68, 66,
84: 64, 61, 11, 192, 193, 55, 52, 133, 194, 132,
85: 150, 89, 90, 91, 92, 93, 94, 95, 96, 97,
86: 98, 11, 131, 57, 44, 149, 220, 218, 99, 100,
87: 101, 102, 103, 104, 105, 106, 107, 108, 109, 110,
88: 111, 112, 113, 114, 115, 116, 117, 118, 119, 120,
89: 121, 122, 123, 124, 230, 54, 200, 214, 231, 76,
90: 192, 193, 10, 26, 75, 194, 198, 34, 89, 90,
91: 91, 92, 93, 94, 95, 96, 97, 98, 43, 22,
92: 21, 20, 19, 18, 17, 99, 100, 101, 102, 103,
93: 104, 105, 106, 107, 108, 109, 110, 111, 112, 113,
94: 114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
95: 124, 16, 129, 36, 126, 25, 27, 50, 15, 14,
96: 13, 41, 6, 36, 83, 5, 2, 1, 0, 36,
97: 0, 0, 0, 159, 217, 0, 0, 0, 0, 0,
98: 192, 193, 159, 0, 0, 194, 0, 0, 89, 90,
99: 91, 92, 93, 94, 95, 96, 97, 98, 159, 0,
100: 0, 181, 174, 232, 191, 99, 100, 101, 102, 103,
101: 104, 105, 106, 107, 108, 109, 110, 111, 112, 113,
102: 114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
103: 124, 188, 207, 170, 204, 0, 36, 192, 193, 38,
104: 12, 0, 194, 0, 180, 89, 90, 91, 92, 93,
105: 94, 95, 96, 97, 98, 48, 0, 0, 224, 0,
106: 235, 191, 99, 100, 101, 102, 103, 104, 105, 106,
107: 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
108: 117, 118, 119, 120, 121, 122, 123, 124, 234, 89,
109: 90, 91, 92, 93, 94, 95, 96, 97, 98, 146,
110: 0, 0, 89, 90, 91, 92, 93, 94, 95, 96,
111: 97, 98, 0, 251, 250, 0, 253, 232, 191, 99,
112: 100, 101, 102, 103, 104, 105, 106, 107, 108, 109,
113: 110, 111, 112, 113, 114, 115, 116, 117, 118, 119,
114: 120, 121, 122, 123, 124, 141, 0, 0, 89, 90,
115: 91, 92, 93, 94, 95, 96, 97, 98, 0, 0,
116: 0, 0, 0, 0, 0, 99, 100, 101, 102, 103,
117: 104, 105, 106, 107, 108, 109, 110, 111, 112, 113,
118: 114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
119: 124, 87, 88, 186, 0, 0, 86, 215, 191, 89,
120: 90, 91, 92, 93, 94, 95, 96, 97, 98, 0,
121: 48, 0, 0, 187, 185, 0, 99, 100, 101, 102,
122: 103, 104, 105, 106, 107, 108, 109, 110, 111, 112,
123: 113, 114, 115, 116, 117, 118, 119, 120, 121, 122,
124: 123, 124, 89, 90, 91, 92, 93, 94, 95, 96,
125: 97, 98, 0, 0, 0, 191, 0, 0, 0, 99,
126: 100, 101, 102, 103, 104, 105, 106, 107, 108, 109,
127: 110, 111, 112, 113, 114, 115, 116, 117, 118, 119,
128: 120, 121, 122, 123, 124, 99, 100, 101, 102, 103,
129: 104, 105, 106, 107, 108, 109, 110, 111, 112, 113,
130: 114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
131: 124, 136, 137, 99, 100, 101, 102, 103, 104, 105,
132: 106, 107, 108, 109, 110, 111, 112, 113, 114, 115,
133: 116, 117, 118, 119, 120, 121, 122, 123, 124, 59,
134: 4, 0, 35, 0, 0, 4, 0, 0, 0, 0,
135: 0, 4, 11, 0, 35, 0, 0, 136, 137, 29,
136: 33, 24, 9, 0, 4, 0, 156, 134, 0, 32,
137: 0, 140, 4, 28, 11, 30, 0, 0, 202, 211,
138: 31, 29, 33, 47, 29, 33, 24, 4, 0, 0,
139: 4, 32, 0, 0, 32, 28, 211, 30, 28, 0,
140: 30, 0, 31, 29, 33, 31, 211, 0, 36, 155,
141: 212, 0, 216, 32, 0, 211, 0, 28, 221, 30,
142: 0, 135, 153, 0, 31, 138, 142, 0, 144, 0,
143: 142, 147, 233, 148, 145, 0, 0, 0, 7, 0,
144: 161, 163, 0, 0, 39, 40, 154, 3, 233, 0,
145: 0, 36, 37, 45, 58, 0, 0, 0, 42, 85,
146: 0, 0, 0, 0, 53, 0, 0, 0, 0, 4,
147: 35, 51, 0, 0, 56, 0, 139, 136, 137, 67,
148: 125, 0, 0, 0, 62, 62, 62, 128, 62, 152,
149: 0, 0, 0, 0, 127, 189, 0, 130, 0, 4,
150: 199, 0, 0, 0, 0, 136, 137, 0, 0, 35,
151: 0, 0, 0, 176, 0, 0, 0, 0, 178, 0,
152: 0, 0, 0, 4, 195, 0, 0, 0, 0, 201,
153: 0, 203, 0, 84, 0, 0, 0, 0, 0, 205,
154: 219, 0, 0, 0, 0, 206, 0, 0, 155, 8,
155: 155, 0, 23, 0, 143, 0, 0, 0, 143, 0,
156: 219, 0, 0, 151, 213, 168, 155, 155, 0, 0,
157: 155, 46, 152, 0, 49, 36, 169, 23, 190, 0,
158: 0, 0, 155, 0, 60, 190, 62, 0, 62, 0,
159: 236, 237, 0, 4, 36, 0, 49, 240, 0, 62,
160: 0, 0, 0, 152, 0, 0, 197, 190, 0, 173,
161: 248, 0, 0, 62, 249, 63, 65, 190, 69, 252,
162: 190, 0, 179, 0, 190, 190, 0, 0, 0, 152,
163: 209, 225, 0, 228, 190, 0, 175, 143, 0, 0,
164: 190, 175, 143, 190, 0, 0, 151, 0, 0, 238,
165: 239, 0, 0, 241, 0, 0, 190, 208, 0, 210,
166: 62, 0, 0, 0, 0, 247, 0, 0, 62, 0,
167: 152, 0, 175, 0, 175, 0, 0, 151, 0, 0,
168: 0, 223, 0, 0, 0, 0, 0, 0, 0, 0,
169: 0, 62, 0, 0, 0, 62, 0, 0, 0, 0,
170: 254, 0, 0, 151, 0, 0, 0, 0, 0, 0,
171: 243, 0, 245, 0, 0, 0, 171, 0, 172, 71,
172: 72, 73, 77, 78, 79, 80, 81, 82, 74, 177,
173: 89, 90, 91, 92, 93, 94, 95, 96, 97, 98,
174: 0, 0, 0, 196, 151, 0, 0, 99, 100, 101,
175: 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
176: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
177: 122, 123, 124, 0, 0, 0, 0, 0, 0, 0,
178: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
179: 222, 0, 0, 0, 0, 0, 0, 0, 229, 0,
180: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
181: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
182: 0, 244, 0, 0, 0, 246 };
183: short yypact[]={
184:
185: -1000,-1000, 513,-233,-1000, 3, 22,-1000,-1000,-1000,
186: -1000,-1000,-1000,-1000, 535,-1000,-1000,-1000,-1000,-1000,
187: -1000,-1000,-1000,-1000,-190, 22,-1000,-1000,-191,-195,
188: -196,-197,-198,-226, 891,-1000,-1000, 371,-1000,-1000,
189: -1000, 22,-233,-1000,-1000,-1000,-1000,-1000, 22,-1000,
190: -1000, -1,-1000,-1000, 468,-1000,-1000, 440, 320,-1000,
191: 468,-1000, 274, 468,-1000, 468,-1000, 414,-1000,-1000,
192: -1000, -64,-231, -55, -39,-227,-228,-1000,-1000,-1000,
193: -1000,-1000,-1000,-229,-1000,-1000,-1000,-1000,-1000,-1000,
194: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
195: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
196: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
197: -1000,-1000,-1000,-1000,-1000,-1000, 22, -68,-1000,-1000,
198: 538,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
199: 261, 261,-1000,-1000,-1000, 261, 261,-1000,-1000,-1000,
200: 902,-1000,-1000,-1000, -74,-1000, 217,-232,-1000,-1000,
201: -1000, 82,-232, 217,-232,-1000,-1000,-1000,-1000, 557,
202: -1000, 468,-1000,-1000,-1000,-1000, 261, 468, 261,-1000,
203: 468, 902,-1000,-1000,-1000, 217,-1000,-1000,-1000,-1000,
204: -1000,-1000,-1000,-1000,-1000, 217, 468,-233, 160,-1000,
205: -1000, 52, 217, 217,-1000,-1000,-1000, 902,-1000, -84,
206: -1000,-1000, 217,-1000,-1000,-1000,-1000,-1000, 80,-1000,
207: -1000, 23, 468, 468,-1000,-1000,-1000,-1000,-1000, 468,
208: -1000,-1000,-1000,-1000, -34,-1000,-1000,-1000,-1000,-1000,
209: -1000,-1000,-1000,-232,-1000,-1000, 468,-1000, 902,-1000,
210: -1000, 468,-1000,-1000,-233 };
211: short yypgo[]={
212:
213: 0, 187, 186, 185, 666, 658, 184, 182, 181, 122,
214: 260, 180, 179, 123, 178, 177, 176, 84, 175, 174,
215: 172, 171, 144, 143, 142, 141, 140, 139, 115, 804,
216: 587, 694, 85, 642, 127, 586, 434, 83, 126, 87,
217: 124, 119, 559, 674, 591, 715, 70, 641, 413, 433,
218: 118, 117 };
219: short yyr1[]={
220:
221: 0, 1, 1, 1, 1, 1, 2, 2, 2, 8,
222: 2, 7, 9, 9, 9, 9, 15, 14, 14, 14,
223: 12, 12, 12, 19, 12, 17, 20, 17, 10, 10,
224: 10, 10, 10, 10, 10, 10, 21, 21, 22, 22,
225: 22, 23, 23, 24, 24, 25, 25, 18, 18, 13,
226: 11, 16, 26, 26, 27, 27, 27, 27, 27, 27,
227: 27, 27, 27, 27, 27, 40, 40, 40, 40, 41,
228: 41, 41, 41, 41, 41, 34, 3, 33, 33, 33,
229: 33, 33, 28, 28, 31, 31, 37, 37, 29, 29,
230: 44, 44, 32, 32, 32, 32, 46, 46, 43, 43,
231: 30, 30, 30, 47, 47, 47, 47, 47, 47, 47,
232: 47, 47, 47, 47, 47, 47, 47, 47, 47, 47,
233: 47, 47, 47, 47, 47, 47, 47, 47, 47, 45,
234: 45, 45, 45, 45, 45, 45, 45, 45, 45, 36,
235: 36, 48, 48, 39, 39, 50, 50, 38, 38, 51,
236: 51, 51, 49, 49, 49, 49, 49, 49, 35, 4,
237: 4, 6, 6, 6, 6, 6, 5, 42 };
238: short yyr2[]={
239:
240: 0, 3, 3, 3, 1, 5, 3, 2, 1, 0,
241: 4, 1, 1, 1, 2, 1, 0, 4, 1, 1,
242: 2, 2, 2, 0, 4, 2, 0, 4, 1, 1,
243: 1, 1, 1, 1, 1, 1, 2, 2, 6, 8,
244: 2, 4, 2, 4, 2, 3, 2, 4, 8, 3,
245: 4, 2, 3, 2, 4, 5, 13, 4, 7, 8,
246: 4, 7, 9, 3, 3, 1, 1, 1, 1, 1,
247: 1, 1, 1, 1, 1, 1, 1, 4, 5, 5,
248: 4, 1, 3, 1, 3, 2, 2, 3, 2, 3,
249: 2, 1, 1, 2, 3, 4, 1, 1, 2, 1,
250: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
251: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
252: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
253: 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
254: 1, 1, 1, 2, 1, 1, 1, 2, 1, 1,
255: 1, 1, 1, 1, 1, 1, 1, 1, 2, 2,
256: 1, 1, 1, 1, 1, 1, 2, 0 };
257: short yychk[]={
258:
259: -1000, -1, -2, -4, -42, -3, -7, -5, 256, 69,
260: -9, 59, -10, -11, -12, -14, -21, -22, -23, -24,
261: -25, -26, -27, 259, 68, -18, -13, -16, 80, 66,
262: 82, 87, 76, 67, -34, -42, 257, -4, 256, -5,
263: -5, -8, -4, -13, -17, -5, 256, 68, -10, 259,
264: -15, -4, 256, -5, -28, 256, -31, -37, -43, -42,
265: -29, 256, -43, -29, 256, -29, 256, -4, 256, -29,
266: 256, 48, 49, 50, 57, -40, -41, 51, 52, 53,
267: 54, 55, 56, -6, -45, -47, 45, 40, 41, 48,
268: 49, 50, 51, 52, 53, 54, 55, 56, 57, 65,
269: 66, 67, 68, 69, 70, 71, 72, 73, 74, 75,
270: 76, 77, 78, 79, 80, 81, 82, 83, 84, 85,
271: 86, 87, 88, 89, 90, -5, -19, -4, -5, -20,
272: -4, 83, 70, 68, -30, -47, 257, 258, -30, 256,
273: -44, 45, -30, -45, -30, -44, 45, -30, -30, -32,
274: -46, -45, -47, -33, -4, -42, -35, 73, 65, 257,
275: 257, -35, 67, -35, 52, 256, 256, 256, -5, -4,
276: -9, -29, -29, -31, -37, -45, -44, -29, -44, -31,
277: -28, -46, 84, 77, 82, -36, -48, -49, 34, -45,
278: -47, 258, 40, 41, 45, -35, -29, -4, -38, -42,
279: 34, -35, -36, -35, -17, -30, -30, -46, -31, -4,
280: -31, -48, -36, -30, -51, 257, -49, 34, -39, -42,
281: 34, -36, -29, -31, -46, -33, 88, 89, -33, -29,
282: 34, -50, 257, -49, -39, 257, -30, -30, -33, -33,
283: -30, -33, 34, -31, -29, -31, -29, -33, -35, -30,
284: -32, -37, -30, -37, -4 };
285: short yydef[]={
286:
287: 167, -2, -2, 8, 160, 167, 0, 7, 9, 76,
288: 11, 167, 12, 13, 167, 15, 28, 29, 30, 31,
289: 32, 33, 34, -2, 167, 0, 18, 19, 167, 167,
290: 167, 167, 167, 167, 0, 75, 159, 1, 2, 3,
291: 6, 0, 166, 14, 20, 21, 23, 167, 0, -2,
292: 167, 0, 51, 22, 36, 37, 83, 0, 0, 99,
293: 0, 40, 0, 0, 42, 0, 44, 0, 46, 167,
294: 53, 65, 66, 67, 68, 0, 0, 69, 70, 71,
295: 72, 73, 74, 0, 161, 162, 163, 164, 165, 129,
296: 130, 131, 132, 133, 134, 135, 136, 137, 138, 103,
297: 104, 105, 106, 107, 108, 109, 110, 111, 112, 113,
298: 114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
299: 124, 125, 126, 127, 128, 10, 0, 0, 25, 167,
300: 167, 167, 49, 167, 167, 100, 101, 102, 167, 85,
301: 86, 0, 98, 91, 167, 88, 0, 167, 167, 45,
302: 92, 96, 97, 52, 0, -2, 0, 0, 167, 167,
303: 167, 0, 0, 0, 0, 63, 64, 5, 24, 167,
304: 17, 47, 50, 82, 84, 90, 87, 0, 89, 41,
305: 43, 93, 167, 167, 167, 54, 140, 141, 142, 152,
306: 153, 154, 155, 156, 157, 0, 0, 158, 57, 148,
307: 167, 0, 60, 0, 27, 167, 167, 94, 167, 0,
308: 167, 139, 55, 167, 147, 149, 150, 151, 0, 144,
309: 167, 0, 0, 38, 95, 77, 167, 167, 80, 0,
310: 167, 143, 145, 146, 0, 167, 167, 167, 78, 79,
311: 167, 58, 167, 61, 48, 39, 0, 59, 0, 167,
312: 62, 0, 167, 167, 56 };
313: #
314: # define YYFLAG -1000
315: # define YYERROR goto yyerrlab
316: # define YYACCEPT return(0)
317: # define YYABORT return(1)
318:
319: /* parser for yacc output */
320:
321: #ifdef YYDEBUG
322: int yydebug = 0; /* 1 for debugging */
323: #endif
324: YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */
325: int yychar = -1; /* current input token number */
326: int yynerrs = 0; /* number of errors */
327: short yyerrflag = 0; /* error recovery flag */
328:
329: yyparse() {
330:
331: short yys[YYMAXDEPTH];
332: short yyj, yym;
333: register YYSTYPE *yypvt;
334: register short yystate, *yyps, yyn;
335: register YYSTYPE *yypv;
336: register short *yyxi;
337:
338: yystate = 0;
339: yychar = -1;
340: yynerrs = 0;
341: yyerrflag = 0;
342: yyps= &yys[-1];
343: yypv= &yyv[-1];
344:
345: yystack: /* put a state and value onto the stack */
346:
347: #ifdef YYDEBUG
348: if( yydebug ) printf( "state %d, char 0%o\n", yystate, yychar );
349: #endif
350: if( ++yyps> &yys[YYMAXDEPTH] ) { yyerror( "yacc stack overflow" ); return(1); }
351: *yyps = yystate;
352: ++yypv;
353: *yypv = yyval;
354:
355: yynewstate:
356:
357: yyn = yypact[yystate];
358:
359: if( yyn<= YYFLAG ) goto yydefault; /* simple state */
360:
361: if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0;
362: if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault;
363:
364: if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */
365: yychar = -1;
366: yyval = yylval;
367: yystate = yyn;
368: if( yyerrflag > 0 ) --yyerrflag;
369: goto yystack;
370: }
371:
372: yydefault:
373: /* default state action */
374:
375: if( (yyn=yydef[yystate]) == -2 ) {
376: if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0;
377: /* look through exception table */
378:
379: for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */
380:
381: while( *(yyxi+=2) >= 0 ){
382: if( *yyxi == yychar ) break;
383: }
384: if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */
385: }
386:
387: if( yyn == 0 ){ /* error */
388: /* error ... attempt to resume parsing */
389:
390: switch( yyerrflag ){
391:
392: case 0: /* brand new error */
393:
394: yyerror( "syntax error" );
395: yyerrlab:
396: ++yynerrs;
397:
398: case 1:
399: case 2: /* incompletely recovered error ... try again */
400:
401: yyerrflag = 3;
402:
403: /* find a state where "error" is a legal shift action */
404:
405: while ( yyps >= yys ) {
406: yyn = yypact[*yyps] + YYERRCODE;
407: if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){
408: yystate = yyact[yyn]; /* simulate a shift of "error" */
409: goto yystack;
410: }
411: yyn = yypact[*yyps];
412:
413: /* the current yyps has no shift onn "error", pop stack */
414:
415: #ifdef YYDEBUG
416: if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] );
417: #endif
418: --yyps;
419: --yypv;
420: }
421:
422: /* there is no state on the stack with an error shift ... abort */
423:
424: yyabort:
425: return(1);
426:
427:
428: case 3: /* no shift yet; clobber input char */
429:
430: #ifdef YYDEBUG
431: if( yydebug ) printf( "error recovery discards char %d\n", yychar );
432: #endif
433:
434: if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */
435: yychar = -1;
436: goto yynewstate; /* try again in the same state */
437:
438: }
439:
440: }
441:
442: /* reduction by production yyn */
443:
444: #ifdef YYDEBUG
445: if( yydebug ) printf("reduce %d\n",yyn);
446: #endif
447: yyps -= yyr2[yyn];
448: yypvt = yypv;
449: yypv -= yyr2[yyn];
450: yyval = yypv[1];
451: yym=yyn;
452: /* consult goto table to find next state */
453: yyn = yyr1[yyn];
454: yyj = yypgo[yyn] + *yyps + 1;
455: if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]];
456: switch(yym){
457:
458: case 2:
459: # line 47 "parser.y"
460: { Error("Improper Ending",FATAL); } break;
461: case 3:
462: # line 49 "parser.y"
463: { Error("Semi-Colon found after End",
464: RECOVERABLE); } break;
465: case 4:
466: # line 52 "parser.y"
467: { Error("No End Statement",RECOVERABLE); } break;
468: case 5:
469: # line 54 "parser.y"
470: { Error("Garbage after End Statement",
471: RECOVERABLE); } break;
472: case 9:
473: # line 63 "parser.y"
474: { Error("Unrecognizable Command",FATAL); } break;
475: case 12:
476: # line 73 "parser.y"
477: { Execute(yypvt[-0]); } break;
478: case 14:
479: # line 76 "parser.y"
480: { Execute(yypvt[-1]);
481: Definning = 0;
482: A=1; B=1; } break;
483: case 16:
484: # line 84 "parser.y"
485: { Error("Comments must end with a semi-colon",
486: RECOVERABLE); } break;
487: case 17:
488: # line 87 "parser.y"
489: { yyval = yypvt[-3]; } break;
490: case 18:
491: # line 89 "parser.y"
492: { Error("Define Finnished found outside of Definition",
493: FATAL);
494: yyval = yypvt[-0]; } break;
495: case 19:
496: # line 93 "parser.y"
497: { Error("Unrecognized Definition Command",
498: FATAL); } break;
499: case 20:
500: # line 99 "parser.y"
501: { yyval = AddCmd(yypvt[-1],yypvt[-0]); } break;
502: case 21:
503: # line 101 "parser.y"
504: { yyval = yypvt[-1]; } break;
505: case 22:
506: # line 103 "parser.y"
507: { Definning = 1;
508: A=(int) ((Command *) yypvt[-1])->Ctype.Symbl.a;
509: B=(int) ((Command *) yypvt[-1])->Ctype.Symbl.b;
510: yyval = yypvt[-1]; } break;
511: case 23:
512: # line 108 "parser.y"
513: { yyval = yypvt[-1];
514: Error("Unrecognized or Illegal Command in Definition",
515: FATAL); } break;
516: case 25:
517: # line 116 "parser.y"
518: { yyval = yypvt[-1]; } break;
519: case 26:
520: # line 118 "parser.y"
521: { Error("Comments must end with a semi-colon",RECOVERABLE); } break;
522: case 27:
523: # line 120 "parser.y"
524: { yyval = yypvt[-0]; } break;
525: case 36:
526: # line 136 "parser.y"
527: { /* Polygons must have more than two
528: * vertices to be well defined */
529: if( ((struct PathHeader *) yypvt[-0])->PNo < 3)
530: Error("Degenerate Polygon",WARNING);
531: /* Polygons with less than two vertices are
532: * useless */
533: if( ((struct PathHeader *) yypvt[-0])->PNo < 2) {
534: Error("Command Ignored",WARNING);
535: yyval = MakeComment();
536: }
537: else
538: yyval = MakePoly(yypvt[-0]); } break;
539: case 37:
540: # line 149 "parser.y"
541: { Error("Bad Path Descriptor in Polygon",FATAL);
542: yyval = MakeComment(); } break;
543: case 38:
544: # line 155 "parser.y"
545: { yyval = MakeBox(SCALE(yypvt[-4]),SCALE(yypvt[-2]),yypvt[-0],
546: MakePoint(1.0,0.0));
547: Free(yypvt[-0]); } break;
548: case 39:
549: # line 159 "parser.y"
550: { if(!CheckPoint(yypvt[-0]))
551: Error("Bad Direction Vector in Box Command",FATAL);
552: yyval = MakeBox(SCALE(yypvt[-6]),SCALE(yypvt[-4]),yypvt[-2],yypvt[-0]);
553: Free(yypvt[-2]); Free(yypvt[-0]); } break;
554: case 40:
555: # line 164 "parser.y"
556: { Error("Illegal Box Description",FATAL);
557: yyval = MakeComment(); } break;
558: case 41:
559: # line 170 "parser.y"
560: { yyval = MakeFlash(SCALE(yypvt[-2]),yypvt[-0]);} break;
561: case 42:
562: # line 172 "parser.y"
563: { Error("Illegal Round Flash Description",FATAL);
564: yyval = MakeComment(); } break;
565: case 43:
566: # line 178 "parser.y"
567: { if( ((struct PathHeader *) yypvt[-0])->PNo < 2)
568: Error("Degenerate Wire",WARNING);
569: yyval = MakeWire(SCALE(yypvt[-2]),yypvt[-0]); } break;
570: case 44:
571: # line 182 "parser.y"
572: { Error("Illegal Wire Description",FATAL);
573: yyval = MakeComment(); } break;
574: case 45:
575: # line 188 "parser.y"
576: { yyval = MakeLayer(yypvt[-0]); } break;
577: case 46:
578: # line 190 "parser.y"
579: { Error("Illegal Layer Command",FATAL);
580: yyval = MakeComment(); } break;
581: case 47:
582: # line 196 "parser.y"
583: { yyval = MakeSymbol(yypvt[-0],1,1);} break;
584: case 48:
585: # line 198 "parser.y"
586: { yyval = MakeSymbol(yypvt[-4],yypvt[-2],yypvt[-0]);} break;
587: case 49:
588: # line 203 "parser.y"
589: { yyval = 0; } break;
590: case 50:
591: # line 208 "parser.y"
592: { DeleteDefintion(yypvt[-0]);
593: yyval = MakeComment(); } break;
594: case 52:
595: # line 219 "parser.y"
596: { yyval = MakeCall(yypvt[-1],yypvt[-0]); } break;
597: case 53:
598: # line 221 "parser.y"
599: { Error("Illegal Call Command",FATAL);
600: yyval = MakeComment(); } break;
601: case 54:
602: # line 227 "parser.y"
603: { yyval = MakeComment();
604: if(!standard)
605: Include(yypvt[-0]);
606: else
607: Error("User Extention Ignored\n",WARNING);
608: SendAll = 0;
609: Free(yypvt[-0]); } break;
610: case 55:
611: # line 235 "parser.y"
612: { yyval = MakeComment();
613: if(!standard)
614: Include(yypvt[-1]);
615: else
616: Error("User Extention Ignored\n",WARNING);
617: SendAll = 0;
618: Free(yypvt[-1]); } break;
619: case 56:
620: # line 243 "parser.y"
621: { if(!standard)
622: yyval = MakeArray(yypvt[-9],yypvt[-7],yypvt[-5],SCALE(yypvt[-3]),SCALE(yypvt[-1]));
623: else {
624: Error("User Extention Ignored\n",WARNING);
625: yyval = MakeComment();
626: }
627: SendAll = 0; } break;
628: case 57:
629: # line 251 "parser.y"
630: { yyval = MakeComment();
631: if(!standard)
632: fprintf(stderr,"%s\n",yypvt[-0]);
633: else
634: Error("User Extention Ignored\n",WARNING);
635: SendAll = 0;
636: Free(yypvt[-0]); } break;
637: case 58:
638: # line 259 "parser.y"
639: { if(!standard)
640: yyval = MakeText(yypvt[-2],yypvt[-0],'l');
641: else {
642: Error("User Extention Ignored\n",WARNING);
643: yyval = MakeComment();
644: }
645: SendAll = 0; } break;
646: case 59:
647: # line 267 "parser.y"
648: { if(!standard)
649: yyval = MakeText(yypvt[-2],yypvt[-0],'c');
650: else {
651: Error("User Extention Ignored\n",WARNING);
652: yyval = MakeComment();
653: }
654: SendAll = 0; } break;
655: case 60:
656: # line 275 "parser.y"
657: { if(!standard)
658: yyval = MakeName(yypvt[-0]);
659: else {
660: Error("User Extention Ignored\n",WARNING);
661: yyval = MakeComment();
662: }
663: SendAll = 0; } break;
664: case 61:
665: # line 283 "parser.y"
666: { if(!standard) {
667: yyval = MakePointName(yypvt[-2],yypvt[-0],"all");
668: Free(yypvt[-0]);
669: }
670: else {
671: Error("User Extention Ignored\n",WARNING);
672: yyval = MakeComment();
673: }
674: SendAll = 0; } break;
675: case 62:
676: # line 293 "parser.y"
677: { if(!standard) {
678: yyval = MakePointName(yypvt[-4],yypvt[-2],yypvt[-0]);
679: Free(yypvt[-2]);
680: }
681: else {
682: Error("User Extention Ignored\n",WARNING);
683: yyval = MakeComment();
684: }
685: SendAll = 0; } break;
686: case 63:
687: # line 303 "parser.y"
688: { yyval = MakeComment();
689: Error("Bad Syntax in Extension Command --- Command Ignored",
690: WARNING);
691: SendAll = 0; } break;
692: case 64:
693: # line 308 "parser.y"
694: { yyval = MakeComment();
695: Error("Unimplemented User Extension",
696: WARNING);
697: SendAll = 0; } break;
698: case 75:
699: # line 323 "parser.y"
700: {SendAll = 1; } break;
701: case 77:
702: # line 332 "parser.y"
703: { yyval = Translate(yypvt[-1],yypvt[-0]);
704: if(output == NOPLOT)
705: Free(((transform *) yypvt[-0])->TransString);
706: Free(yypvt[-1]); FreeTransform(yypvt[-0]); } break;
707: case 78:
708: # line 337 "parser.y"
709: { yyval = Mirror('x',yypvt[-0]);
710: if(output == NOPLOT)
711: Free(((transform *) yypvt[-0])->TransString);
712: FreeTransform(yypvt[-0]); } break;
713: case 79:
714: # line 342 "parser.y"
715: { yyval = Mirror('y',yypvt[-0]);
716: if(output == NOPLOT)
717: Free(((transform *) yypvt[-0])->TransString);
718: FreeTransform(yypvt[-0]); } break;
719: case 80:
720: # line 347 "parser.y"
721: { if(!CheckPoint(yypvt[-1]))
722: Error("Bad Rotation Vector",FATAL);
723: yyval = Rotate(yypvt[-1],yypvt[-0]);
724: if(output == NOPLOT)
725: Free(((transform *) yypvt[-0])->TransString);
726: Free(yypvt[-1]); FreeTransform(yypvt[-0]); } break;
727: case 81:
728: # line 354 "parser.y"
729: { yyval = MakeTransform(); } break;
730: case 82:
731: # line 359 "parser.y"
732: { yyval = AddPath(yypvt[-2],yypvt[-0]);
733: Free(yypvt[-0]); } break;
734: case 83:
735: # line 362 "parser.y"
736: { yyval = MakePath(yypvt[-0]); } break;
737: case 84:
738: # line 367 "parser.y"
739: { yyval = MakePoint(SCALE(yypvt[-2]),SCALE(yypvt[-0])); } break;
740: case 85:
741: # line 369 "parser.y"
742: { Error("Odd number of values encountered",
743: FATAL);
744: yyval = MakePoint(SCALE(yypvt[-1]),0.0);} break;
745: case 86:
746: # line 376 "parser.y"
747: { yyval = yypvt[-0]; } break;
748: case 87:
749: # line 378 "parser.y"
750: { yyval = - yypvt[-0]; } break;
751: case 88:
752: # line 383 "parser.y"
753: { yyval = yypvt[-0]; } break;
754: case 89:
755: # line 385 "parser.y"
756: { Error("Expected Positive Integer",FATAL);
757: yyval = yypvt[-0]; } break;
758: case 90:
759: # line 391 "parser.y"
760: { if (yypvt[-1] > (0x800000 / 10)) {
761: Error("Integers may not exceed 2**24",
762: FATAL);
763: yyval = 0;
764: }
765: else
766: yyval = (yypvt[-1]*10)+yypvt[-0]-'0'; } break;
767: case 91:
768: # line 399 "parser.y"
769: { yyval = yypvt[-0] - '0'; } break;
770: case 93:
771: # line 405 "parser.y"
772: { yyval = Concat(yypvt[-1],yypvt[-0],0);
773: Free(yypvt[-1]); Free(yypvt[-0]); } break;
774: case 94:
775: # line 408 "parser.y"
776: { yyval = Concat(yypvt[-2],yypvt[-1],yypvt[-0],0);
777: Free(yypvt[-2]); Free(yypvt[-1]); Free(yypvt[-0]); } break;
778: case 95:
779: # line 411 "parser.y"
780: { yyval = Concat(yypvt[-3],yypvt[-2],yypvt[-1],yypvt[-0],0);
781: Free(yypvt[-3]); Free(yypvt[-2]);
782: Free(yypvt[-1]); Free(yypvt[-0]); } break;
783: case 96:
784: # line 418 "parser.y"
785: { yyval = MakeString(yypvt[-0]); } break;
786: case 97:
787: # line 420 "parser.y"
788: { yyval = MakeString(yypvt[-0]); } break;
789: case 139:
790: # line 448 "parser.y"
791: { yyval = Concat(yypvt[-1],yypvt[-0],0);
792: Free(yypvt[-1]); Free(yypvt[-0]); } break;
793: case 142:
794: # line 456 "parser.y"
795: { yyval = MakeString('"'); } break;
796: case 143:
797: # line 461 "parser.y"
798: { yyval = Concat(yypvt[-1],yypvt[-0],0);
799: Free(yypvt[-1]); Free(yypvt[-0]); } break;
800: case 144:
801: # line 464 "parser.y"
802: { yyval = null; } break;
803: case 145:
804: # line 469 "parser.y"
805: { yyval = MakeString(yypvt[-0]); } break;
806: case 147:
807: # line 475 "parser.y"
808: { yyval = Concat(yypvt[-1],yypvt[-0],0);
809: Free(yypvt[-1]); Free(yypvt[-0]); } break;
810: case 148:
811: # line 478 "parser.y"
812: { yyval = null; } break;
813: case 149:
814: # line 483 "parser.y"
815: { yyval = MakeString(yypvt[-0]); } break;
816: case 151:
817: # line 486 "parser.y"
818: { yyval = MakeString('"'); } break;
819: case 152:
820: # line 491 "parser.y"
821: { yyval = MakeString(yypvt[-0]); } break;
822: case 153:
823: # line 493 "parser.y"
824: { yyval = MakeString(yypvt[-0]); } break;
825: case 154:
826: # line 495 "parser.y"
827: { yyval = MakeString(yypvt[-0]); } break;
828: case 155:
829: # line 497 "parser.y"
830: { yyval = MakeString('('); } break;
831: case 156:
832: # line 499 "parser.y"
833: { yyval = MakeString(')'); } break;
834: case 157:
835: # line 501 "parser.y"
836: { yyval = MakeString('-'); } break;
837: }
838: goto yystack; /* stack new state and value */
839:
840: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.