~ubuntu-branches/ubuntu/feisty/mawk/feisty : contents of parse.c at revision 5

~ubuntu-branches/ubuntu/feisty/mawk/feisty : (revision 5)

1 by James Troup Import upstream version 1.3.3	1	#ifndef lint
	2	static char yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) modified 12/17/94";
	3	#endif
	4	#define YYBYACC_M 1
	5	#define YYMAJOR 1
	6	#define YYMINOR 9
	7	#define yyclearin (yychar=(-1))
	8	#define yyerrok (yyerrflag=0)
	9	#define YYRECOVERING (yyerrflag!=0)
	10	#define YYPREFIX "yy"
	11	#line 80 "parse.y"
	12	#include <stdio.h>
	13	#include "mawk.h"
	14	#include "symtype.h"
	15	#include "code.h"
	16	#include "memory.h"
	17	#include "bi_funct.h"
	18	#include "bi_vars.h"
	19	#include "jmp.h"
	20	#include "field.h"
	21	#include "files.h"
	22
	23
	24	#define YYMAXDEPTH 200
	25
	26
	27	extern void PROTO( eat_nl, (void) ) ;
	28	static void PROTO( resize_fblock, (FBLOCK *) ) ;
	29	static void PROTO( switch_code_to_main, (void)) ;
	30	static void PROTO( code_array, (SYMTAB *) ) ;
	31	static void PROTO( code_call_id, (CA_REC , SYMTAB ) ) ;
	32	static void PROTO( field_A2I, (void)) ;
	33	static void PROTO( check_var, (SYMTAB *) ) ;
	34	static void PROTO( check_array, (SYMTAB *) ) ;
	35	static void PROTO( RE_as_arg, (void)) ;
	36
	37	static int scope ;
	38	static FBLOCK *active_funct ;
	39	/* when scope is SCOPE_FUNCT */
	40
	41	#define code_address(x) if( is_local(x) ) \
	42	code2op(L_PUSHA, (x)->offset) ;\
	43	else code2(_PUSHA, (x)->stval.cp)
	44
	45	#define CDP(x) (code_base+(x))
	46	/* WARNING: These CDP() calculations become invalid after calls
	47	that might change code_base. Which are: code2(), code2op(),
	48	code_jmp() and code_pop().
	49	*/
	50
	51	/* this nonsense caters to MSDOS large model */
	52	#define CODE_FE_PUSHA() code_ptr->ptr = (PTR) 0 ; code1(FE_PUSHA)
	53
	54	#line 124 "parse.y"
	55	typedef union{
	56	CELL *cp ;
	57	SYMTAB *stp ;
	58	int start ; /* code starting address as offset from code_base */
	59	PF_CP fp ; /* ptr to a (print/printf) or (sub/gsub) function */
	60	BI_REC bip ; / ptr to info about a builtin */
	61	FBLOCK fbp ; / ptr to a function block */
	62	ARG2_REC *arg2p ;
	63	CA_REC *ca_p ;
	64	int ival ;
65	PTR ptr ;
66	} YYSTYPE;
67	#line 68 "y.tab.c"
68	#define UNEXPECTED 257
69	#define BAD_DECIMAL 258
70	#define NL 259
71	#define SEMI_COLON 260
72	#define LBRACE 261
73	#define RBRACE 262
74	#define LBOX 263
75	#define RBOX 264
76	#define COMMA 265
77	#define IO_OUT 266
78	#define ASSIGN 267
79	#define ADD_ASG 268
80	#define SUB_ASG 269
81	#define MUL_ASG 270
82	#define DIV_ASG 271
83	#define MOD_ASG 272
84	#define POW_ASG 273
85	#define QMARK 274
86	#define COLON 275
87	#define OR 276
88	#define AND 277
89	#define IN 278
90	#define MATCH 279
91	#define EQ 280
92	#define NEQ 281
93	#define LT 282
94	#define LTE 283
95	#define GT 284
96	#define GTE 285
97	#define CAT 286
98	#define GETLINE 287
99	#define PLUS 288
100	#define MINUS 289
101	#define MUL 290
102	#define DIV 291
103	#define MOD 292
104	#define NOT 293
105	#define UMINUS 294
106	#define IO_IN 295
107	#define PIPE 296
108	#define POW 297
109	#define INC_or_DEC 298
110	#define DOLLAR 299
111	#define FIELD 300
112	#define LPAREN 301
113	#define RPAREN 302
114	#define DOUBLE 303
115	#define STRING_ 304
116	#define RE 305
117	#define ID 306
118	#define D_ID 307
119	#define FUNCT_ID 308
120	#define BUILTIN 309
121	#define LENGTH 310
122	#define PRINT 311
123	#define PRINTF 312
124	#define SPLIT 313
125	#define MATCH_FUNC 314
126	#define SUB 315
127	#define GSUB 316
128	#define DO 317
129	#define WHILE 318
130	#define FOR 319
131	#define BREAK 320
132	#define CONTINUE 321
133	#define IF 322
134	#define ELSE 323
135	#define DELETE 324
136	#define BEGIN 325
137	#define END 326
138	#define EXIT 327
139	#define NEXT 328
140	#define RETURN 329
141	#define FUNCTION 330
142	#define YYERRCODE 256
143	short yylhs[] = { -1,
144	0, 0, 36, 36, 36, 37, 40, 37, 41, 37,
145	42, 37, 43, 44, 37, 1, 1, 2, 2, 3,
146	3, 4, 4, 4, 4, 4, 4, 4, 4, 45,
147	45, 13, 13, 13, 13, 13, 13, 13, 13, 13,
148	13, 13, 13, 13, 13, 13, 46, 13, 47, 13,
149	48, 49, 13, 14, 14, 15, 15, 15, 15, 15,
150	15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
151	15, 15, 15, 15, 10, 25, 25, 26, 26, 8,
152	8, 5, 4, 27, 27, 6, 6, 6, 7, 7,
153	50, 50, 17, 4, 51, 4, 52, 4, 16, 4,
154	4, 18, 18, 19, 19, 53, 53, 13, 13, 10,
155	15, 15, 4, 4, 20, 4, 11, 11, 11, 11,
156	11, 15, 13, 13, 13, 13, 13, 13, 13, 15,
157	22, 54, 54, 15, 23, 4, 4, 21, 21, 15,
158	15, 15, 15, 15, 55, 12, 12, 9, 9, 15,
159	28, 28, 24, 24, 38, 29, 30, 30, 34, 34,
160	35, 35, 39, 15, 31, 31, 32, 32, 32, 33,
161	33,
162	};
163	short yylen[] = { 2,
164	1, 2, 1, 1, 2, 1, 0, 3, 0, 3,
165	0, 3, 0, 0, 6, 3, 3, 1, 1, 1,
166	2, 1, 2, 1, 2, 2, 2, 1, 2, 1,
167	1, 1, 3, 3, 3, 3, 3, 3, 3, 3,
168	3, 3, 3, 3, 3, 3, 0, 4, 0, 4,
169	0, 0, 7, 1, 2, 1, 1, 1, 3, 1,
170	3, 3, 3, 3, 3, 3, 2, 2, 2, 1,
171	2, 2, 2, 2, 1, 0, 1, 1, 3, 5,
172	1, 0, 5, 1, 1, 1, 3, 2, 3, 3,
173	0, 2, 4, 2, 1, 4, 1, 7, 4, 2,
174	4, 3, 4, 1, 2, 1, 2, 3, 5, 5,
175	5, 6, 7, 3, 6, 2, 1, 2, 6, 2,
176	3, 1, 3, 3, 3, 3, 3, 3, 3, 2,
177	5, 1, 3, 6, 1, 2, 3, 2, 3, 1,
178	2, 2, 3, 4, 1, 1, 1, 2, 3, 6,
179	1, 1, 1, 3, 2, 4, 2, 2, 0, 1,
180	1, 3, 1, 3, 2, 2, 1, 3, 3, 2,
181	2,
182	};
183	short yydefred[] = { 0,
184	163, 0, 145, 0, 0, 0, 0, 0, 117, 0,
185	56, 57, 60, 0, 82, 82, 81, 0, 0, 151,
186	152, 7, 9, 0, 0, 6, 70, 0, 0, 0,
187	0, 0, 0, 0, 0, 0, 0, 1, 3, 4,
188	0, 0, 0, 30, 31, 84, 85, 97, 0, 0,
189	0, 0, 0, 0, 0, 0, 0, 22, 0, 20,
190	0, 0, 0, 0, 0, 28, 82, 24, 0, 0,
191	0, 0, 0, 0, 0, 0, 0, 72, 74, 0,
192	120, 0, 0, 0, 71, 0, 0, 0, 0, 0,
193	0, 0, 157, 158, 2, 0, 0, 0, 0, 0,
194	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
195	73, 13, 51, 47, 49, 0, 0, 0, 0, 0,
196	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
197	0, 0, 0, 132, 130, 0, 155, 0, 5, 148,
198	146, 147, 0, 17, 25, 0, 0, 26, 27, 0,
199	0, 0, 136, 29, 0, 138, 0, 16, 21, 23,
200	100, 0, 104, 0, 0, 116, 0, 0, 0, 0,
201	0, 0, 0, 0, 0, 121, 0, 59, 0, 0,
202	164, 0, 0, 0, 0, 8, 10, 0, 0, 0,
203	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
204	0, 0, 0, 0, 0, 108, 0, 40, 41, 42,
205	43, 44, 45, 18, 12, 19, 0, 0, 0, 0,
206	0, 0, 0, 0, 0, 0, 161, 0, 0, 149,
207	0, 102, 0, 0, 0, 0, 114, 137, 139, 95,
208	0, 105, 106, 0, 0, 0, 0, 0, 86, 0,
209	0, 0, 0, 0, 0, 0, 0, 0, 165, 0,
210	0, 166, 0, 0, 0, 0, 0, 0, 0, 144,
211	133, 0, 156, 0, 99, 0, 103, 93, 0, 96,
212	107, 101, 88, 0, 0, 0, 0, 0, 0, 0,
213	0, 109, 0, 169, 171, 168, 170, 80, 131, 0,
214	0, 52, 0, 162, 0, 0, 0, 0, 83, 0,
215	0, 0, 110, 119, 112, 134, 15, 0, 0, 153,
216	150, 115, 0, 0, 0, 0, 113, 98, 154,
217	};
218	short yydgoto[] = { 25,
219	58, 215, 59, 60, 86, 247, 82, 27, 28, 29,
220	30, 143, 61, 32, 33, 62, 63, 64, 165, 65,
221	66, 34, 226, 321, 249, 250, 67, 35, 36, 37,
222	181, 182, 262, 228, 229, 38, 39, 40, 41, 91,
223	92, 124, 202, 301, 68, 204, 205, 203, 318, 286,
224	241, 69, 245, 135, 42,
225	};
226	short yysindex[] = { 36,
227	0, 282, 0, 2247, 2247, 2247, -50, 2157, 0, 2277,
228	0, 0, 0, -296, 0, 0, 0, -286, -250, 0,
229	0, 0, 0, -245, 36, 0, 0, 2247, 2123, 2170,
230	2551, 2247, 267, -257, -237, -188, -219, 0, 0, 0,
231	-188, -31, -124, 0, 0, 0, 0, 0, -212, -204,
232	-226, -226, -162, -165, 71, -226, 71, 0, 134, 0,
233	2503, 356, 356, 1794, 356, 0, 0, 0, 356, 2277,
234	-296, -152, -229, -229, -229, -114, 0, 0, 0, 0,
235	0, -221, 2150, 2097, 0, -94, -122, -111, 2277, 2277,
236	-188, -188, 0, 0, 0, -106, 2277, 2277, 2277, 2277,
237	2277, 2277, 2277, 2277, 2277, 2277, 2277, 2277, 2277, 2277,
238	0, 0, 0, 0, 0, -96, 2277, 2277, 2277, 2277,
239	2277, 2277, 2277, -62, 267, 2247, 2247, 2247, 2247, 2247,
240	-76, 2247, 2277, 0, 0, 2277, 0, -90, 0, 0,
241	0, 0, -75, 0, 0, 2277, 1824, 0, 0, 2277,
242	-226, 2503, 0, 0, 2503, 0, -226, 0, 0, 0,
243	0, -79, 0, 2515, 2187, 0, 2307, -89, 2410, -51,
244	-74, -17, -15, 2277, -26, 0, 2277, 0, 2277, -43,
245	0, 2337, 2277, 2572, 2593, 0, 0, 2617, 2617, 2617,
246	2617, 2617, 2617, 2617, 2617, 2617, 2617, 2617, 2617, 2617,
247	2617, 2277, 2277, 2277, 2277, 0, 200, 0, 0, 0,
248	0, 0, 0, 0, 0, 0, -83, -83, -229, -229,
249	-229, -50, -106, 2422, 2617, -3, 0, -37, 2, 0,
250	2437, 0, -266, 2530, 2449, 8, 0, 0, 0, 0,
251	356, 0, 0, 2464, 356, 2217, 6, 2617, 0, 9,
252	-25, 2277, 2277, 2277, 2617, -21, 2617, -187, 0, -243,
253	2124, 0, -12, -19, 2277, 2617, 2605, 2626, 350, 0,
254	0, 2277, 0, -11, 0, -10, 0, 0, 2277, 0,
255	0, 0, 0, -218, 2277, -226, 2277, 2277, -179, -112,
256	-109, 0, -4, 0, 0, 0, 0, 0, 0, 7,
257	-62, 0, 2151, 0, 11, -105, -26, 2617, 0, 2617,
258	2476, -4, 0, 0, 0, 0, 0, 2277, -50, 0,
259	0, 0, -226, -226, 2617, 12, 0, 0, 0,
260	};
261	short yyrindex[] = { 0,
262	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
263	0, 0, 0, 601, 0, 0, 0, 0, 0, 0,
264	0, 0, 0, 0, 0, 0, 0, 0, 0, 1587,
265	-59, -42, 1645, 0, 0, 0, 0, 0, 0, 0,
266	0, 1413, 0, 0, 0, 0, 0, 0, 0, 0,
267	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
268	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
269	543, 659, 891, 949, 1007, 0, 427, 0, 0, 485,
270	0, 0, 1924, 0, 0, 0, 0, 0, 0, 0,
271	0, 0, 0, 0, 0, 1065, 0, 0, 0, 0,
272	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
273	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
274	0, 0, 0, 0, 1703, 0, 0, 0, 0, 0,
275	0, 0, 0, 0, 0, 0, 0, 13, 0, 0,
276	0, 0, 717, 0, 0, 0, 0, 0, 0, 0,
277	28, 0, 0, 0, 0, 0, 0, 0, 0, 0,
278	0, 208, 0, 0, 0, 0, -206, 0, 0, 0,
279	0, 0, 0, 0, 0, 0, 0, 0, 0, 2367,
280	0, 0, 15, 0, 0, 0, 0, 18, 41, 287,
281	361, 1982, 1990, 2002, 2010, 2022, 2030, 2042, 2050, 2062,
282	2070, 0, 0, 0, 0, 0, 139, 0, 0, 0,
283	0, 0, 0, 0, 0, 0, 1471, 1529, 1123, 1181,
284	1239, 1355, 775, 0, -170, 0, 0, 0, 19, 0,
285	0, 0, 1760, 0, 0, 0, 0, 0, 0, 0,
286	0, 0, 0, 0, 0, 0, -95, -172, 0, -223,
287	0, 0, 0, 0, -169, 0, -125, 0, 0, 1878,
288	0, 0, 0, 0, 0, -34, 0, -236, 213, 0,
289	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
290	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
291	0, 0, 1297, 0, 0, 0, 0, 0, 0, 0,
292	0, 0, 0, 0, 0, 0, -116, -78, 0, -71,
293	0, 833, 0, 0, 0, 0, 0, 0, 0, 0,
294	0, 0, 0, 0, 2082, 0, 0, 0, 0,
295	};
296	short yygindex[] = { 0,
297	21, -20, 0, -49, 3, 0, 52, 0, 0, -7,
298	-1, -205, 1, 0, 44, 0, 0, 0, 0, 0,
299	0, 0, 34, 0, 120, -137, 0, 0, 0, 0,
300	0, 0, 0, 0, 0, 279, 0, 0, 0, 0,
301	0, 0, 0, 0, 106, 0, 0, 0, 0, 0,
302	0, 0, 0, 0, 0,
303	};
304	#define YYTABLESIZE 2911
305	short yytable[] = { 78,
306	31, 85, 72, 72, 72, 79, 72, 133, 83, 159,
307	84, 276, 161, 162, 89, 166, 270, 87, 88, 168,
308	26, 294, 48, 48, 48, 31, 72, 48, 48, 48,
309	72, 85, 44, 45, 141, 77, 77, 48, 48, 48,
310	142, 258, 77, 174, 134, 26, 174, 73, 74, 75,
311	90, 81, 76, 76, 85, 152, 137, 155, 295, 76,
312	93, 139, 94, 136, 164, 48, 131, 132, 83, 167,
313	169, 96, 2, 170, 171, 125, 293, 287, 77, 172,
314	175, 138, 173, 307, 312, 287, 78, 78, 146, 184,
315	185, 78, 78, 78, 135, 90, 147, 188, 189, 190,
316	191, 192, 193, 194, 195, 196, 197, 198, 199, 200,
317	201, 186, 187, 326, 289, 290, 291, 207, 208, 209,
318	210, 211, 212, 213, 72, 72, 72, 72, 72, 78,
319	72, 135, 90, 224, 44, 45, 225, 144, 150, 89,
320	151, 306, 87, 87, 214, 111, 231, 234, 145, 87,
321	235, 313, 287, 236, 314, 287, 148, 149, 323, 287,
322	153, 154, 156, 91, 91, 244, 160, 248, 179, 217,
323	218, 219, 220, 221, 255, 223, 89, 257, 180, 248,
324	92, 92, 261, 248, 8, 9, 76, 79, 79, 183,
325	132, 280, 79, 79, 79, 282, 44, 45, 2, 11,
326	11, 11, 266, 267, 268, 269, 128, 129, 130, 206,
327	222, 252, 131, 132, 141, 227, 32, 32, 32, 230,
328	142, 32, 32, 32, 14, 14, 14, 176, 251, 216,
329	79, 32, 32, 32, 32, 32, 32, 32, 32, 32,
330	32, 32, 32, 240, 83, 253, 84, 254, 8, 9,
331	76, 256, 248, 248, 248, 77, 237, 238, 259, 32,
332	239, 272, 145, 140, 273, 225, 274, 8, 9, 76,
333	279, 285, 303, 287, 77, 288, 33, 33, 33, 248,
334	317, 33, 33, 33, 292, 308, 299, 310, 311, 298,
335	82, 1, 33, 315, 304, 305, 2, 284, 300, 34,
336	34, 34, 263, 95, 34, 34, 34, 0, 316, 0,
337	0, 141, 322, 329, 159, 34, 76, 142, 325, 33,
338	160, 214, 3, 4, 5, 0, 0, 0, 6, 44,
339	45, 0, 0, 7, 8, 9, 10, 0, 11, 12,
340	13, 14, 34, 15, 16, 17, 0, 0, 18, 19,
341	20, 21, 0, 0, 0, 0, 0, 3, 4, 5,
342	22, 23, 0, 6, 0, 24, 0, 0, 7, 8,
343	9, 10, 0, 11, 12, 13, 14, 0, 15, 16,
344	17, 0, 0, 18, 19, 20, 21, 0, 0, 157,
345	0, 309, 44, 45, 2, 158, 0, 46, 46, 46,
346	0, 0, 46, 46, 46, 0, 216, 0, 0, 0,
347	0, 0, 46, 46, 46, 46, 46, 46, 0, 0,
348	3, 4, 5, 0, 0, 0, 6, 0, 327, 328,
349	0, 7, 8, 9, 10, 0, 11, 12, 13, 14,
350	46, 15, 16, 17, 46, 47, 18, 19, 20, 21,
351	48, 49, 50, 51, 52, 53, 0, 54, 0, 0,
352	55, 56, 57, 94, 0, 0, 94, 94, 94, 94,
353	0, 50, 50, 50, 0, 0, 50, 50, 50, 118,
354	119, 120, 121, 122, 123, 0, 50, 50, 50, 50,
355	0, 0, 0, 0, 94, 94, 94, 0, 0, 0,
356	94, 0, 0, 0, 0, 94, 94, 94, 94, 0,
357	94, 94, 94, 94, 50, 94, 94, 94, 94, 94,
358	94, 94, 94, 94, 94, 94, 94, 94, 94, 94,
359	0, 94, 0, 0, 94, 94, 94, 43, 0, 0,
360	44, 45, 2, 0, 0, 35, 35, 35, 0, 0,
361	35, 35, 35, 0, 126, 127, 128, 129, 130, 0,
362	0, 35, 131, 132, 0, 0, 0, 0, 3, 4,
363	5, 0, 0, 0, 6, 0, 0, 0, 0, 7,
364	8, 9, 10, 0, 11, 12, 13, 14, 35, 15,
365	16, 17, 46, 47, 18, 19, 20, 21, 48, 49,
366	50, 51, 52, 53, 0, 54, 0, 0, 55, 56,
367	57, 157, 0, 0, 44, 45, 2, 0, 0, 36,
368	36, 36, 0, 0, 36, 36, 36, 116, 117, 118,
369	119, 120, 121, 122, 123, 36, 0, 0, 0, 0,
370	0, 0, 3, 4, 5, 0, 0, 0, 6, 0,
371	0, 0, 0, 7, 8, 9, 10, 0, 11, 12,
372	13, 14, 36, 15, 16, 17, 46, 47, 18, 19,
373	20, 21, 48, 49, 50, 51, 52, 53, 0, 54,
374	0, 0, 55, 56, 57, 75, 75, 75, 0, 82,
375	75, 75, 75, 75, 75, 75, 75, 75, 75, 75,
376	75, 75, 75, 75, 75, 75, 75, 75, 75, 75,
377	75, 75, 0, 75, 75, 75, 75, 75, 75, 75,
378	0, 75, 75, 75, 75, 75, 75, 75, 75, 75,
379	75, 75, 75, 0, 75, 75, 75, 0, 0, 75,
380	75, 75, 75, 118, 118, 118, 0, 82, 118, 118,
381	118, 118, 118, 118, 118, 118, 118, 118, 118, 118,
382	118, 118, 118, 118, 118, 118, 118, 118, 118, 118,
383	0, 118, 118, 118, 118, 118, 118, 118, 0, 118,
384	118, 118, 118, 118, 118, 118, 118, 118, 118, 118,
385	118, 0, 118, 118, 118, 0, 0, 118, 118, 118,
386	118, 58, 58, 58, 0, 82, 58, 58, 58, 58,
387	58, 58, 58, 58, 58, 58, 58, 58, 58, 58,
388	58, 58, 58, 58, 58, 58, 58, 58, 0, 58,
389	58, 58, 58, 58, 58, 58, 0, 58, 58, 58,
390	0, 58, 58, 58, 58, 58, 58, 58, 58, 0,
391	58, 58, 58, 0, 0, 58, 58, 58, 58, 58,
392	58, 58, 0, 82, 58, 58, 58, 75, 75, 75,
393	75, 75, 75, 75, 58, 58, 58, 58, 58, 58,
394	58, 58, 58, 58, 58, 58, 0, 58, 58, 58,
395	58, 58, 58, 58, 0, 0, 58, 58, 0, 58,
396	58, 58, 58, 58, 58, 58, 58, 0, 58, 58,
397	58, 0, 0, 58, 58, 58, 58, 122, 122, 122,
398	0, 0, 122, 122, 122, 122, 122, 122, 122, 122,
399	122, 122, 122, 122, 122, 122, 122, 122, 122, 122,
400	122, 122, 122, 122, 0, 122, 122, 122, 122, 122,
401	122, 122, 0, 122, 122, 122, 0, 122, 122, 122,
402	122, 122, 122, 122, 122, 0, 122, 122, 122, 0,
403	0, 122, 122, 122, 122, 141, 141, 141, 0, 0,
404	141, 141, 141, 141, 141, 141, 141, 141, 141, 141,
405	141, 141, 141, 141, 141, 141, 141, 141, 141, 141,
406	141, 141, 0, 141, 141, 141, 141, 141, 141, 141,
407	0, 0, 141, 141, 141, 141, 141, 141, 141, 141,
408	141, 141, 141, 0, 141, 141, 141, 0, 0, 141,
409	141, 141, 141, 66, 66, 66, 0, 0, 66, 66,
410	66, 66, 66, 66, 66, 66, 66, 66, 66, 66,
411	66, 66, 66, 66, 66, 66, 66, 66, 66, 66,
412	0, 66, 66, 66, 66, 66, 66, 66, 0, 66,
413	66, 0, 66, 66, 66, 66, 66, 66, 66, 66,
414	66, 0, 66, 66, 66, 0, 0, 66, 66, 66,
415	66, 111, 111, 111, 0, 0, 111, 111, 111, 111,
416	111, 111, 111, 111, 111, 111, 111, 111, 111, 111,
417	111, 111, 111, 111, 111, 111, 111, 111, 0, 111,
418	111, 111, 111, 111, 111, 111, 0, 111, 111, 111,
419	0, 111, 111, 111, 111, 111, 111, 111, 111, 0,
420	111, 111, 111, 0, 0, 111, 111, 111, 111, 68,
421	68, 68, 0, 0, 68, 68, 68, 68, 68, 68,
422	68, 68, 68, 68, 68, 68, 68, 68, 68, 68,
423	68, 68, 68, 68, 68, 68, 0, 68, 68, 68,
424	68, 68, 68, 68, 0, 68, 0, 0, 68, 68,
425	68, 68, 68, 68, 68, 68, 68, 0, 68, 68,
426	68, 0, 0, 68, 68, 68, 68, 69, 69, 69,
427	0, 0, 69, 69, 69, 69, 69, 69, 69, 69,
428	69, 69, 69, 69, 69, 69, 69, 69, 69, 69,
429	69, 69, 69, 69, 0, 69, 69, 69, 69, 69,
430	69, 69, 0, 69, 0, 0, 69, 69, 69, 69,
431	69, 69, 69, 69, 69, 0, 69, 69, 69, 0,
432	0, 69, 69, 69, 69, 67, 67, 67, 0, 0,
433	67, 67, 67, 67, 67, 67, 67, 67, 67, 67,
434	67, 67, 67, 67, 67, 67, 67, 67, 67, 67,
435	67, 67, 0, 67, 67, 67, 67, 67, 67, 67,
436	0, 67, 0, 0, 67, 67, 67, 67, 67, 67,
437	67, 67, 67, 0, 67, 67, 67, 0, 0, 67,
438	67, 67, 67, 142, 142, 142, 0, 0, 142, 142,
439	142, 142, 142, 142, 142, 142, 142, 142, 142, 142,
440	142, 142, 142, 142, 142, 142, 142, 142, 142, 142,
441	0, 142, 142, 142, 142, 142, 142, 142, 0, 142,
442	0, 0, 142, 142, 142, 142, 142, 142, 142, 142,
443	142, 0, 142, 142, 142, 0, 0, 142, 142, 142,
444	142, 63, 63, 63, 0, 0, 63, 63, 63, 63,
445	63, 63, 63, 63, 63, 63, 63, 63, 63, 63,
446	63, 63, 63, 63, 63, 63, 63, 63, 0, 63,
447	63, 63, 63, 63, 63, 63, 0, 63, 0, 0,
448	63, 63, 63, 63, 63, 63, 63, 63, 63, 0,
449	63, 63, 63, 0, 0, 63, 63, 63, 63, 64,
450	64, 64, 0, 0, 64, 64, 64, 64, 64, 64,
451	64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
452	64, 64, 64, 64, 64, 64, 0, 64, 64, 64,
453	64, 64, 64, 64, 0, 64, 0, 0, 64, 64,
454	64, 64, 64, 64, 64, 64, 64, 0, 64, 64,
455	64, 0, 0, 64, 64, 64, 64, 65, 65, 65,
456	0, 0, 65, 65, 65, 65, 65, 65, 65, 65,
457	65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
458	65, 65, 65, 65, 0, 65, 65, 65, 65, 65,
459	65, 65, 0, 65, 0, 0, 65, 65, 65, 65,
460	65, 65, 65, 65, 65, 0, 65, 65, 65, 0,
461	0, 65, 65, 65, 65, 111, 111, 111, 0, 0,
462	111, 111, 111, 110, 110, 110, 110, 110, 110, 110,
463	111, 111, 111, 111, 111, 111, 111, 111, 111, 111,
464	111, 111, 0, 111, 111, 111, 111, 111, 111, 111,
465	0, 0, 111, 111, 0, 111, 111, 111, 111, 111,
466	111, 111, 111, 0, 111, 111, 111, 0, 0, 111,
467	111, 111, 111, 143, 143, 143, 0, 0, 143, 143,
468	143, 143, 143, 143, 143, 143, 143, 143, 143, 143,
469	143, 143, 143, 143, 143, 143, 143, 143, 143, 143,
470	0, 143, 143, 143, 143, 143, 143, 143, 0, 143,
471	143, 143, 143, 0, 0, 0, 143, 143, 143, 143,
472	0, 0, 143, 143, 143, 0, 0, 143, 143, 143,
473	143, 140, 140, 140, 0, 0, 140, 140, 140, 140,
474	140, 140, 140, 140, 140, 140, 140, 140, 140, 140,
475	140, 140, 140, 140, 140, 140, 140, 140, 0, 140,
476	140, 140, 140, 140, 140, 140, 0, 0, 140, 140,
477	140, 0, 0, 0, 140, 140, 140, 140, 0, 0,
478	140, 140, 140, 0, 0, 140, 140, 140, 140, 61,
479	61, 61, 0, 0, 61, 61, 61, 61, 61, 61,
480	61, 61, 61, 61, 61, 61, 61, 61, 61, 61,
481	61, 61, 61, 61, 61, 61, 0, 61, 61, 61,
482	0, 0, 0, 61, 0, 61, 0, 0, 61, 61,
483	61, 61, 61, 61, 61, 61, 61, 0, 61, 61,
484	61, 0, 0, 61, 61, 61, 61, 62, 62, 62,
485	0, 0, 62, 62, 62, 62, 62, 62, 62, 62,
486	62, 62, 62, 62, 62, 62, 62, 62, 62, 62,
487	62, 62, 62, 62, 0, 62, 62, 62, 0, 0,
488	0, 62, 0, 62, 0, 0, 62, 62, 62, 62,
489	62, 62, 62, 62, 62, 0, 62, 62, 62, 0,
490	0, 62, 62, 62, 62, 122, 122, 122, 0, 0,
491	122, 122, 122, 0, 0, 0, 0, 0, 0, 0,
492	122, 122, 122, 122, 122, 122, 122, 122, 122, 122,
493	122, 122, 0, 122, 122, 122, 122, 122, 122, 122,
494	0, 0, 122, 122, 0, 122, 122, 122, 122, 122,
495	122, 122, 122, 0, 122, 122, 122, 0, 0, 122,
496	122, 122, 122, 54, 54, 54, 0, 0, 54, 54,
497	54, 0, 0, 0, 0, 0, 0, 0, 54, 54,
498	54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
499	0, 54, 0, 0, 0, 0, 0, 54, 0, 0,
500	0, 0, 54, 54, 54, 54, 54, 54, 54, 54,
501	54, 0, 54, 54, 54, 0, 0, 54, 54, 54,
502	54, 55, 55, 55, 0, 0, 55, 55, 55, 0,
503	0, 0, 0, 0, 0, 0, 55, 55, 55, 55,
504	55, 55, 55, 55, 55, 55, 55, 55, 0, 55,
505	0, 0, 0, 0, 0, 55, 0, 0, 0, 0,
506	55, 55, 55, 55, 55, 55, 55, 55, 55, 0,
507	55, 55, 55, 0, 0, 55, 55, 55, 55, 58,
508	0, 0, 82, 0, 0, 0, 75, 75, 75, 75,
509	75, 75, 75, 58, 0, 58, 58, 0, 58, 58,
510	58, 58, 58, 58, 58, 0, 58, 58, 58, 58,
511	58, 58, 58, 163, 0, 58, 58, 0, 58, 58,
512	58, 0, 58, 58, 58, 58, 0, 58, 58, 58,
513	0, 0, 58, 58, 58, 58, 0, 0, 0, 0,
514	3, 4, 5, 232, 0, 0, 6, 0, 0, 0,
515	0, 7, 8, 9, 10, 0, 11, 12, 13, 14,
516	0, 15, 16, 17, 0, 0, 18, 19, 20, 21,
517	3, 4, 5, 0, 0, 0, 6, 0, 0, 0,
518	0, 7, 8, 9, 10, 0, 11, 12, 13, 233,
519	0, 15, 16, 17, 0, 0, 18, 19, 20, 21,
520	82, 0, 0, 0, 75, 75, 75, 75, 75, 75,
521	75, 58, 0, 58, 58, 58, 58, 58, 58, 58,
522	58, 58, 58, 0, 58, 58, 58, 58, 58, 58,
523	58, 0, 0, 58, 58, 0, 58, 58, 58, 0,
524	58, 58, 58, 58, 0, 58, 58, 58, 122, 0,
525	58, 58, 58, 58, 0, 0, 0, 122, 0, 122,
526	122, 122, 122, 122, 122, 122, 122, 122, 122, 0,
527	122, 122, 122, 122, 122, 122, 122, 0, 0, 122,
528	122, 0, 122, 122, 122, 0, 122, 122, 122, 122,
529	0, 122, 122, 122, 0, 0, 122, 122, 122, 122,
530	37, 37, 37, 0, 0, 37, 37, 37, 38, 38,
531	38, 0, 0, 38, 38, 38, 37, 0, 0, 0,
532	39, 39, 39, 0, 38, 39, 39, 39, 123, 123,
533	123, 0, 0, 123, 123, 123, 39, 0, 0, 0,
534	124, 124, 124, 37, 123, 124, 124, 124, 125, 125,
535	125, 38, 0, 125, 125, 125, 124, 0, 0, 0,
536	126, 126, 126, 39, 125, 126, 126, 126, 127, 127,
537	127, 123, 0, 127, 127, 127, 126, 0, 0, 0,
538	128, 128, 128, 124, 127, 128, 128, 128, 129, 129,
539	129, 125, 0, 129, 129, 129, 128, 0, 0, 0,
540	53, 53, 53, 126, 129, 53, 53, 53, 0, 0,
541	0, 127, 0, 0, 0, 0, 53, 0, 0, 0,
542	0, 177, 0, 128, 0, 0, 0, 0, 0, 0,
543	113, 129, 114, 115, 116, 117, 118, 119, 120, 121,
544	122, 123, 0, 53, 0, 0, 0, 0, 296, 97,
545	98, 99, 100, 101, 102, 103, 0, 113, 178, 114,
546	115, 116, 117, 118, 119, 120, 121, 122, 123, 0,
547	0, 0, 0, 0, 0, 319, 104, 105, 106, 107,
548	108, 109, 110, 0, 113, 297, 114, 115, 116, 117,
549	118, 119, 120, 121, 122, 123, 104, 105, 106, 107,
550	108, 109, 110, 3, 4, 5, 0, 111, 0, 6,
551	0, 176, 320, 0, 7, 8, 9, 70, 0, 11,
552	12, 13, 71, 80, 15, 16, 17, 111, 0, 18,
553	19, 20, 21, 3, 4, 5, 0, 0, 0, 6,
554	0, 0, 0, 0, 7, 8, 9, 10, 243, 11,
555	12, 13, 14, 0, 15, 16, 17, 0, 0, 18,
556	19, 20, 21, 3, 4, 5, 0, 0, 0, 6,
557	0, 0, 0, 0, 7, 8, 9, 10, 283, 11,
558	12, 13, 14, 0, 15, 16, 17, 0, 0, 18,
559	19, 20, 21, 3, 4, 5, 0, 0, 0, 6,
560	0, 0, 0, 0, 7, 8, 9, 70, 0, 11,
561	12, 13, 71, 0, 15, 16, 17, 0, 0, 18,
562	19, 20, 21, 3, 4, 5, 0, 0, 0, 6,
563	0, 0, 0, 0, 7, 8, 9, 10, 0, 11,
564	12, 13, 14, 0, 15, 16, 17, 0, 0, 18,
565	19, 20, 21, 3, 4, 5, 0, 0, 0, 6,
566	0, 0, 0, 0, 7, 8, 9, 246, 0, 11,
567	12, 13, 14, 0, 15, 16, 17, 0, 0, 18,
568	19, 20, 21, 3, 4, 5, 0, 0, 0, 6,
569	0, 0, 0, 0, 7, 8, 9, 10, 0, 11,
570	12, 13, 260, 0, 15, 16, 17, 0, 0, 18,
571	19, 20, 21, 167, 167, 167, 0, 0, 0, 167,
572	0, 0, 0, 0, 167, 167, 167, 167, 0, 167,
573	167, 167, 167, 0, 167, 167, 167, 0, 0, 167,
574	167, 167, 167, 113, 0, 114, 115, 116, 117, 118,
575	119, 120, 121, 122, 123, 113, 0, 114, 115, 116,
576	117, 118, 119, 120, 121, 122, 123, 0, 0, 0,
577	113, 178, 114, 115, 116, 117, 118, 119, 120, 121,
578	122, 123, 113, 271, 114, 115, 116, 117, 118, 119,
579	120, 121, 122, 123, 0, 0, 0, 113, 275, 114,
580	115, 116, 117, 118, 119, 120, 121, 122, 123, 113,
581	278, 114, 115, 116, 117, 118, 119, 120, 121, 122,
582	123, 44, 45, 0, 0, 281, 0, 0, 0, 0,
583	0, 0, 0, 0, 242, 0, 113, 324, 114, 115,
584	116, 117, 118, 119, 120, 121, 122, 123, 113, 277,
585	114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
586	0, 0, 0, 113, 0, 114, 115, 116, 117, 118,
587	119, 120, 121, 122, 123, 112, 0, 0, 0, 0,
588	0, 0, 0, 0, 113, 0, 114, 115, 116, 117,
589	118, 119, 120, 121, 122, 123, 264, 0, 0, 0,
590	0, 0, 0, 0, 0, 113, 0, 114, 115, 116,
591	117, 118, 119, 120, 121, 122, 123, 265, 0, 0,
592	0, 0, 0, 0, 0, 0, 113, 0, 114, 115,
593	116, 117, 118, 119, 120, 121, 122, 123, 113, 302,
594	114, 115, 116, 117, 118, 119, 120, 121, 122, 123,
595	113, 0, 114, 115, 116, 117, 118, 119, 120, 121,
596	122, 123, 115, 116, 117, 118, 119, 120, 121, 122,
597	123,
598	};
599	short yycheck[] = { 7,
600	0, 298, 4, 5, 6, 7, 8, 265, 10, 59,
601	10, 278, 62, 63, 301, 65, 222, 15, 16, 69,
602	0, 265, 259, 260, 261, 25, 28, 264, 265, 266,
603	32, 298, 259, 260, 42, 259, 260, 274, 275, 276,
604	42, 179, 266, 265, 302, 25, 265, 4, 5, 6,
605	301, 8, 259, 260, 298, 55, 36, 57, 302, 266,
606	306, 41, 308, 301, 64, 302, 296, 297, 70, 67,
607	70, 28, 261, 71, 76, 32, 264, 265, 302, 77,
608	302, 301, 80, 302, 264, 265, 259, 260, 301, 89,
609	90, 264, 265, 266, 265, 265, 301, 97, 98, 99,
610	100, 101, 102, 103, 104, 105, 106, 107, 108, 109,
611	110, 91, 92, 319, 252, 253, 254, 117, 118, 119,
612	120, 121, 122, 123, 126, 127, 128, 129, 130, 302,
613	132, 302, 302, 133, 259, 260, 136, 262, 301, 265,
614	306, 279, 259, 260, 124, 298, 146, 147, 43, 266,
615	150, 264, 265, 151, 264, 265, 51, 52, 264, 265,
616	55, 56, 57, 259, 260, 165, 61, 167, 263, 126,
617	127, 128, 129, 130, 174, 132, 302, 177, 301, 179,
618	259, 260, 182, 183, 299, 300, 301, 259, 260, 301,
619	297, 241, 264, 265, 266, 245, 259, 260, 261, 259,
620	260, 261, 202, 203, 204, 205, 290, 291, 292, 306,
621	287, 263, 296, 297, 222, 306, 259, 260, 261, 295,
622	222, 264, 265, 266, 259, 260, 261, 302, 318, 124,
623	302, 274, 275, 276, 277, 278, 279, 280, 281, 282,
624	283, 284, 285, 323, 246, 263, 246, 263, 299, 300,
625	301, 278, 252, 253, 254, 306, 151, 152, 302, 302,
626	155, 265, 157, 295, 302, 265, 265, 299, 300, 301,
627	263, 266, 272, 265, 306, 301, 259, 260, 261, 279,
628	301, 264, 265, 266, 306, 285, 306, 287, 288, 302,
629	263, 256, 275, 298, 306, 306, 261, 246, 265, 259,
630	260, 261, 183, 25, 264, 265, 266, -1, 302, -1,
631	-1, 319, 302, 302, 302, 275, 302, 319, 318, 302,
632	302, 301, 287, 288, 289, -1, -1, -1, 293, 259,
633	260, -1, -1, 298, 299, 300, 301, -1, 303, 304,
634	305, 306, 302, 308, 309, 310, -1, -1, 313, 314,
635	315, 316, -1, -1, -1, -1, -1, 287, 288, 289,
636	325, 326, -1, 293, -1, 330, -1, -1, 298, 299,
637	300, 301, -1, 303, 304, 305, 306, -1, 308, 309,
638	310, -1, -1, 313, 314, 315, 316, -1, -1, 256,
639	-1, 286, 259, 260, 261, 262, -1, 259, 260, 261,
640	-1, -1, 264, 265, 266, -1, 301, -1, -1, -1,
641	-1, -1, 274, 275, 276, 277, 278, 279, -1, -1,
642	287, 288, 289, -1, -1, -1, 293, -1, 323, 324,
643	-1, 298, 299, 300, 301, -1, 303, 304, 305, 306,
644	302, 308, 309, 310, 311, 312, 313, 314, 315, 316,
645	317, 318, 319, 320, 321, 322, -1, 324, -1, -1,
646	327, 328, 329, 256, -1, -1, 259, 260, 261, 262,
647	-1, 259, 260, 261, -1, -1, 264, 265, 266, 280,
648	281, 282, 283, 284, 285, -1, 274, 275, 276, 277,
649	-1, -1, -1, -1, 287, 288, 289, -1, -1, -1,
650	293, -1, -1, -1, -1, 298, 299, 300, 301, -1,
651	303, 304, 305, 306, 302, 308, 309, 310, 311, 312,
652	313, 314, 315, 316, 317, 318, 319, 320, 321, 322,
653	-1, 324, -1, -1, 327, 328, 329, 256, -1, -1,
654	259, 260, 261, -1, -1, 259, 260, 261, -1, -1,
655	264, 265, 266, -1, 288, 289, 290, 291, 292, -1,
656	-1, 275, 296, 297, -1, -1, -1, -1, 287, 288,
657	289, -1, -1, -1, 293, -1, -1, -1, -1, 298,
658	299, 300, 301, -1, 303, 304, 305, 306, 302, 308,
659	309, 310, 311, 312, 313, 314, 315, 316, 317, 318,
660	319, 320, 321, 322, -1, 324, -1, -1, 327, 328,
661	329, 256, -1, -1, 259, 260, 261, -1, -1, 259,
662	260, 261, -1, -1, 264, 265, 266, 278, 279, 280,
663	281, 282, 283, 284, 285, 275, -1, -1, -1, -1,
664	-1, -1, 287, 288, 289, -1, -1, -1, 293, -1,
665	-1, -1, -1, 298, 299, 300, 301, -1, 303, 304,
666	305, 306, 302, 308, 309, 310, 311, 312, 313, 314,
667	315, 316, 317, 318, 319, 320, 321, 322, -1, 324,
668	-1, -1, 327, 328, 329, 259, 260, 261, -1, 263,
669	264, 265, 266, 267, 268, 269, 270, 271, 272, 273,
670	274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
671	284, 285, -1, 287, 288, 289, 290, 291, 292, 293,
672	-1, 295, 296, 297, 298, 299, 300, 301, 302, 303,
673	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
674	314, 315, 316, 259, 260, 261, -1, 263, 264, 265,
675	266, 267, 268, 269, 270, 271, 272, 273, 274, 275,
676	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
677	-1, 287, 288, 289, 290, 291, 292, 293, -1, 295,
678	296, 297, 298, 299, 300, 301, 302, 303, 304, 305,
679	306, -1, 308, 309, 310, -1, -1, 313, 314, 315,
680	316, 259, 260, 261, -1, 263, 264, 265, 266, 267,
681	268, 269, 270, 271, 272, 273, 274, 275, 276, 277,
682	278, 279, 280, 281, 282, 283, 284, 285, -1, 287,
683	288, 289, 290, 291, 292, 293, -1, 295, 296, 297,
684	-1, 299, 300, 301, 302, 303, 304, 305, 306, -1,
685	308, 309, 310, -1, -1, 313, 314, 315, 316, 259,
686	260, 261, -1, 263, 264, 265, 266, 267, 268, 269,
687	270, 271, 272, 273, 274, 275, 276, 277, 278, 279,
688	280, 281, 282, 283, 284, 285, -1, 287, 288, 289,
689	290, 291, 292, 293, -1, -1, 296, 297, -1, 299,
690	300, 301, 302, 303, 304, 305, 306, -1, 308, 309,
691	310, -1, -1, 313, 314, 315, 316, 259, 260, 261,
692	-1, -1, 264, 265, 266, 267, 268, 269, 270, 271,
693	272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
694	282, 283, 284, 285, -1, 287, 288, 289, 290, 291,
695	292, 293, -1, 295, 296, 297, -1, 299, 300, 301,
696	302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
697	-1, 313, 314, 315, 316, 259, 260, 261, -1, -1,
698	264, 265, 266, 267, 268, 269, 270, 271, 272, 273,
699	274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
700	284, 285, -1, 287, 288, 289, 290, 291, 292, 293,
701	-1, -1, 296, 297, 298, 299, 300, 301, 302, 303,
702	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
703	314, 315, 316, 259, 260, 261, -1, -1, 264, 265,
704	266, 267, 268, 269, 270, 271, 272, 273, 274, 275,
705	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
706	-1, 287, 288, 289, 290, 291, 292, 293, -1, 295,
707	296, -1, 298, 299, 300, 301, 302, 303, 304, 305,
708	306, -1, 308, 309, 310, -1, -1, 313, 314, 315,
709	316, 259, 260, 261, -1, -1, 264, 265, 266, 267,
710	268, 269, 270, 271, 272, 273, 274, 275, 276, 277,
711	278, 279, 280, 281, 282, 283, 284, 285, -1, 287,
712	288, 289, 290, 291, 292, 293, -1, 295, 296, 297,
713	-1, 299, 300, 301, 302, 303, 304, 305, 306, -1,
714	308, 309, 310, -1, -1, 313, 314, 315, 316, 259,
715	260, 261, -1, -1, 264, 265, 266, 267, 268, 269,
716	270, 271, 272, 273, 274, 275, 276, 277, 278, 279,
717	280, 281, 282, 283, 284, 285, -1, 287, 288, 289,
718	290, 291, 292, 293, -1, 295, -1, -1, 298, 299,
719	300, 301, 302, 303, 304, 305, 306, -1, 308, 309,
720	310, -1, -1, 313, 314, 315, 316, 259, 260, 261,
721	-1, -1, 264, 265, 266, 267, 268, 269, 270, 271,
722	272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
723	282, 283, 284, 285, -1, 287, 288, 289, 290, 291,
724	292, 293, -1, 295, -1, -1, 298, 299, 300, 301,
725	302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
726	-1, 313, 314, 315, 316, 259, 260, 261, -1, -1,
727	264, 265, 266, 267, 268, 269, 270, 271, 272, 273,
728	274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
729	284, 285, -1, 287, 288, 289, 290, 291, 292, 293,
730	-1, 295, -1, -1, 298, 299, 300, 301, 302, 303,
731	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
732	314, 315, 316, 259, 260, 261, -1, -1, 264, 265,
733	266, 267, 268, 269, 270, 271, 272, 273, 274, 275,
734	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
735	-1, 287, 288, 289, 290, 291, 292, 293, -1, 295,
736	-1, -1, 298, 299, 300, 301, 302, 303, 304, 305,
737	306, -1, 308, 309, 310, -1, -1, 313, 314, 315,
738	316, 259, 260, 261, -1, -1, 264, 265, 266, 267,
739	268, 269, 270, 271, 272, 273, 274, 275, 276, 277,
740	278, 279, 280, 281, 282, 283, 284, 285, -1, 287,
741	288, 289, 290, 291, 292, 293, -1, 295, -1, -1,
742	298, 299, 300, 301, 302, 303, 304, 305, 306, -1,
743	308, 309, 310, -1, -1, 313, 314, 315, 316, 259,
744	260, 261, -1, -1, 264, 265, 266, 267, 268, 269,
745	270, 271, 272, 273, 274, 275, 276, 277, 278, 279,
746	280, 281, 282, 283, 284, 285, -1, 287, 288, 289,
747	290, 291, 292, 293, -1, 295, -1, -1, 298, 299,
748	300, 301, 302, 303, 304, 305, 306, -1, 308, 309,
749	310, -1, -1, 313, 314, 315, 316, 259, 260, 261,
750	-1, -1, 264, 265, 266, 267, 268, 269, 270, 271,
751	272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
752	282, 283, 284, 285, -1, 287, 288, 289, 290, 291,
753	292, 293, -1, 295, -1, -1, 298, 299, 300, 301,
754	302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
755	-1, 313, 314, 315, 316, 259, 260, 261, -1, -1,
756	264, 265, 266, 267, 268, 269, 270, 271, 272, 273,
757	274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
758	284, 285, -1, 287, 288, 289, 290, 291, 292, 293,
759	-1, -1, 296, 297, -1, 299, 300, 301, 302, 303,
760	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
761	314, 315, 316, 259, 260, 261, -1, -1, 264, 265,
762	266, 267, 268, 269, 270, 271, 272, 273, 274, 275,
763	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
764	-1, 287, 288, 289, 290, 291, 292, 293, -1, 295,
765	296, 297, 298, -1, -1, -1, 302, 303, 304, 305,
766	-1, -1, 308, 309, 310, -1, -1, 313, 314, 315,
767	316, 259, 260, 261, -1, -1, 264, 265, 266, 267,
768	268, 269, 270, 271, 272, 273, 274, 275, 276, 277,
769	278, 279, 280, 281, 282, 283, 284, 285, -1, 287,
770	288, 289, 290, 291, 292, 293, -1, -1, 296, 297,
771	298, -1, -1, -1, 302, 303, 304, 305, -1, -1,
772	308, 309, 310, -1, -1, 313, 314, 315, 316, 259,
773	260, 261, -1, -1, 264, 265, 266, 267, 268, 269,
774	270, 271, 272, 273, 274, 275, 276, 277, 278, 279,
775	280, 281, 282, 283, 284, 285, -1, 287, 288, 289,
776	-1, -1, -1, 293, -1, 295, -1, -1, 298, 299,
777	300, 301, 302, 303, 304, 305, 306, -1, 308, 309,
778	310, -1, -1, 313, 314, 315, 316, 259, 260, 261,
779	-1, -1, 264, 265, 266, 267, 268, 269, 270, 271,
780	272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
781	282, 283, 284, 285, -1, 287, 288, 289, -1, -1,
782	-1, 293, -1, 295, -1, -1, 298, 299, 300, 301,
783	302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
784	-1, 313, 314, 315, 316, 259, 260, 261, -1, -1,
785	264, 265, 266, -1, -1, -1, -1, -1, -1, -1,
786	274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
787	284, 285, -1, 287, 288, 289, 290, 291, 292, 293,
788	-1, -1, 296, 297, -1, 299, 300, 301, 302, 303,
789	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
790	314, 315, 316, 259, 260, 261, -1, -1, 264, 265,
791	266, -1, -1, -1, -1, -1, -1, -1, 274, 275,
792	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
793	-1, 287, -1, -1, -1, -1, -1, 293, -1, -1,
794	-1, -1, 298, 299, 300, 301, 302, 303, 304, 305,
795	306, -1, 308, 309, 310, -1, -1, 313, 314, 315,
796	316, 259, 260, 261, -1, -1, 264, 265, 266, -1,
797	-1, -1, -1, -1, -1, -1, 274, 275, 276, 277,
798	278, 279, 280, 281, 282, 283, 284, 285, -1, 287,
799	-1, -1, -1, -1, -1, 293, -1, -1, -1, -1,
800	298, 299, 300, 301, 302, 303, 304, 305, 306, -1,
801	308, 309, 310, -1, -1, 313, 314, 315, 316, 260,
802	-1, -1, 263, -1, -1, -1, 267, 268, 269, 270,
803	271, 272, 273, 274, -1, 276, 277, -1, 279, 280,
804	281, 282, 283, 284, 285, -1, 287, 288, 289, 290,
805	291, 292, 293, 260, -1, 296, 297, -1, 299, 300,
806	301, -1, 303, 304, 305, 306, -1, 308, 309, 310,
807	-1, -1, 313, 314, 315, 316, -1, -1, -1, -1,
808	287, 288, 289, 260, -1, -1, 293, -1, -1, -1,
809	-1, 298, 299, 300, 301, -1, 303, 304, 305, 306,
810	-1, 308, 309, 310, -1, -1, 313, 314, 315, 316,
811	287, 288, 289, -1, -1, -1, 293, -1, -1, -1,
812	-1, 298, 299, 300, 301, -1, 303, 304, 305, 306,
813	-1, 308, 309, 310, -1, -1, 313, 314, 315, 316,
814	263, -1, -1, -1, 267, 268, 269, 270, 271, 272,
815	273, 274, -1, 276, 277, 278, 279, 280, 281, 282,
816	283, 284, 285, -1, 287, 288, 289, 290, 291, 292,
817	293, -1, -1, 296, 297, -1, 299, 300, 301, -1,
818	303, 304, 305, 306, -1, 308, 309, 310, 265, -1,
819	313, 314, 315, 316, -1, -1, -1, 274, -1, 276,
820	277, 278, 279, 280, 281, 282, 283, 284, 285, -1,
821	287, 288, 289, 290, 291, 292, 293, -1, -1, 296,
822	297, -1, 299, 300, 301, -1, 303, 304, 305, 306,
823	-1, 308, 309, 310, -1, -1, 313, 314, 315, 316,
824	259, 260, 261, -1, -1, 264, 265, 266, 259, 260,
825	261, -1, -1, 264, 265, 266, 275, -1, -1, -1,
826	259, 260, 261, -1, 275, 264, 265, 266, 259, 260,
827	261, -1, -1, 264, 265, 266, 275, -1, -1, -1,
828	259, 260, 261, 302, 275, 264, 265, 266, 259, 260,
829	261, 302, -1, 264, 265, 266, 275, -1, -1, -1,
830	259, 260, 261, 302, 275, 264, 265, 266, 259, 260,
831	261, 302, -1, 264, 265, 266, 275, -1, -1, -1,
832	259, 260, 261, 302, 275, 264, 265, 266, 259, 260,
833	261, 302, -1, 264, 265, 266, 275, -1, -1, -1,
834	259, 260, 261, 302, 275, 264, 265, 266, -1, -1,
835	-1, 302, -1, -1, -1, -1, 275, -1, -1, -1,
836	-1, 265, -1, 302, -1, -1, -1, -1, -1, -1,
837	274, 302, 276, 277, 278, 279, 280, 281, 282, 283,
838	284, 285, -1, 302, -1, -1, -1, -1, 265, 267,
839	268, 269, 270, 271, 272, 273, -1, 274, 302, 276,
840	277, 278, 279, 280, 281, 282, 283, 284, 285, -1,
841	-1, -1, -1, -1, -1, 265, 267, 268, 269, 270,
842	271, 272, 273, -1, 274, 302, 276, 277, 278, 279,
843	280, 281, 282, 283, 284, 285, 267, 268, 269, 270,
844	271, 272, 273, 287, 288, 289, -1, 298, -1, 293,
845	-1, 302, 302, -1, 298, 299, 300, 301, -1, 303,
846	304, 305, 306, 307, 308, 309, 310, 298, -1, 313,
847	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
848	-1, -1, -1, -1, 298, 299, 300, 301, 302, 303,
849	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
850	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
851	-1, -1, -1, -1, 298, 299, 300, 301, 302, 303,
852	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
853	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
854	-1, -1, -1, -1, 298, 299, 300, 301, -1, 303,
855	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
856	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
857	-1, -1, -1, -1, 298, 299, 300, 301, -1, 303,
858	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
859	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
860	-1, -1, -1, -1, 298, 299, 300, 301, -1, 303,
861	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
862	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
863	-1, -1, -1, -1, 298, 299, 300, 301, -1, 303,
864	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
865	314, 315, 316, 287, 288, 289, -1, -1, -1, 293,
866	-1, -1, -1, -1, 298, 299, 300, 301, -1, 303,
867	304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
868	314, 315, 316, 274, -1, 276, 277, 278, 279, 280,
869	281, 282, 283, 284, 285, 274, -1, 276, 277, 278,
870	279, 280, 281, 282, 283, 284, 285, -1, -1, -1,
871	274, 302, 276, 277, 278, 279, 280, 281, 282, 283,
872	284, 285, 274, 302, 276, 277, 278, 279, 280, 281,
873	282, 283, 284, 285, -1, -1, -1, 274, 302, 276,
874	277, 278, 279, 280, 281, 282, 283, 284, 285, 274,
875	302, 276, 277, 278, 279, 280, 281, 282, 283, 284,
876	285, 259, 260, -1, -1, 302, -1, -1, -1, -1,
877	-1, -1, -1, -1, 260, -1, 274, 302, 276, 277,
878	278, 279, 280, 281, 282, 283, 284, 285, 274, 260,
879	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
880	-1, -1, -1, 274, -1, 276, 277, 278, 279, 280,
881	281, 282, 283, 284, 285, 265, -1, -1, -1, -1,
882	-1, -1, -1, -1, 274, -1, 276, 277, 278, 279,
883	280, 281, 282, 283, 284, 285, 265, -1, -1, -1,
884	-1, -1, -1, -1, -1, 274, -1, 276, 277, 278,
885	279, 280, 281, 282, 283, 284, 285, 265, -1, -1,
886	-1, -1, -1, -1, -1, -1, 274, -1, 276, 277,
887	278, 279, 280, 281, 282, 283, 284, 285, 274, 275,
888	276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
889	274, -1, 276, 277, 278, 279, 280, 281, 282, 283,
890	284, 285, 277, 278, 279, 280, 281, 282, 283, 284,
891	285,
892	};
893	#define YYFINAL 25
894	#ifndef YYDEBUG
895	#define YYDEBUG 0
896	#endif
897	#define YYMAXTOKEN 330
898	#if YYDEBUG
899	char *yyname[] = {
900	"end-of-file",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,0,0,0,0,
901	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,0,0,0,0,0,0,0,0,0,0,0,
902	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,0,0,0,0,0,0,0,0,0,0,0,
903	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,0,0,0,0,0,0,0,0,0,0,0,
904	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,0,0,0,0,0,0,0,0,0,0,0,
905	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,0,0,0,0,0,0,0,0,0,0,0,
906	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"UNEXPECTED","BAD_DECIMAL","NL",
907	"SEMI_COLON","LBRACE","RBRACE","LBOX","RBOX","COMMA","IO_OUT","ASSIGN",
908	"ADD_ASG","SUB_ASG","MUL_ASG","DIV_ASG","MOD_ASG","POW_ASG","QMARK","COLON",
909	"OR","AND","IN","MATCH","EQ","NEQ","LT","LTE","GT","GTE","CAT","GETLINE","PLUS",
910	"MINUS","MUL","DIV","MOD","NOT","UMINUS","IO_IN","PIPE","POW","INC_or_DEC",
911	"DOLLAR","FIELD","LPAREN","RPAREN","DOUBLE","STRING_","RE","ID","D_ID",
912	"FUNCT_ID","BUILTIN","LENGTH","PRINT","PRINTF","SPLIT","MATCH_FUNC","SUB",
913	"GSUB","DO","WHILE","FOR","BREAK","CONTINUE","IF","ELSE","DELETE","BEGIN","END",
914	"EXIT","NEXT","RETURN","FUNCTION",
915	};
916	char *yyrule[] = {
917	"$accept : program",
918	"program : program_block",
919	"program : program program_block",
920	"program_block : PA_block",
921	"program_block : function_def",
922	"program_block : outside_error block",
923	"PA_block : block",
924	"$$1 :",
925	"PA_block : BEGIN $$1 block",
926	"$$2 :",
927	"PA_block : END $$2 block",
928	"$$3 :",
929	"PA_block : expr $$3 block_or_separator",
930	"$$4 :",
931	"$$5 :",
932	"PA_block : expr COMMA $$4 expr $$5 block_or_separator",
933	"block : LBRACE statement_list RBRACE",
934	"block : LBRACE error RBRACE",
935	"block_or_separator : block",
936	"block_or_separator : separator",
937	"statement_list : statement",
938	"statement_list : statement_list statement",
939	"statement : block",
940	"statement : expr separator",
941	"statement : separator",
942	"statement : error separator",
943	"statement : BREAK separator",
944	"statement : CONTINUE separator",
945	"statement : return_statement",
946	"statement : NEXT separator",
947	"separator : NL",
948	"separator : SEMI_COLON",
949	"expr : cat_expr",
950	"expr : lvalue ASSIGN expr",
951	"expr : lvalue ADD_ASG expr",
952	"expr : lvalue SUB_ASG expr",
953	"expr : lvalue MUL_ASG expr",
954	"expr : lvalue DIV_ASG expr",
955	"expr : lvalue MOD_ASG expr",
956	"expr : lvalue POW_ASG expr",
957	"expr : expr EQ expr",
958	"expr : expr NEQ expr",
959	"expr : expr LT expr",
960	"expr : expr LTE expr",
961	"expr : expr GT expr",
962	"expr : expr GTE expr",
963	"expr : expr MATCH expr",
964	"$$6 :",
965	"expr : expr OR $$6 expr",
966	"$$7 :",
967	"expr : expr AND $$7 expr",
968	"$$8 :",
969	"$$9 :",
970	"expr : expr QMARK $$8 expr COLON $$9 expr",
971	"cat_expr : p_expr",
972	"cat_expr : cat_expr p_expr",
973	"p_expr : DOUBLE",
974	"p_expr : STRING_",
975	"p_expr : ID",
976	"p_expr : LPAREN expr RPAREN",
977	"p_expr : RE",
978	"p_expr : p_expr PLUS p_expr",
979	"p_expr : p_expr MINUS p_expr",
980	"p_expr : p_expr MUL p_expr",
981	"p_expr : p_expr DIV p_expr",
982	"p_expr : p_expr MOD p_expr",
983	"p_expr : p_expr POW p_expr",
984	"p_expr : NOT p_expr",
985	"p_expr : PLUS p_expr",
986	"p_expr : MINUS p_expr",
987	"p_expr : builtin",
988	"p_expr : ID INC_or_DEC",
989	"p_expr : INC_or_DEC lvalue",
990	"p_expr : field INC_or_DEC",
991	"p_expr : INC_or_DEC field",
992	"lvalue : ID",
993	"arglist :",
994	"arglist : args",
995	"args : expr",
996	"args : args COMMA expr",
997	"builtin : BUILTIN mark LPAREN arglist RPAREN",
998	"builtin : LENGTH",
999	"mark :",
1000	"statement : print mark pr_args pr_direction separator",
1001	"print : PRINT",
1002	"print : PRINTF",
1003	"pr_args : arglist",
1004	"pr_args : LPAREN arg2 RPAREN",
1005	"pr_args : LPAREN RPAREN",
1006	"arg2 : expr COMMA expr",
1007	"arg2 : arg2 COMMA expr",
1008	"pr_direction :",
1009	"pr_direction : IO_OUT expr",
1010	"if_front : IF LPAREN expr RPAREN",
1011	"statement : if_front statement",
1012	"else : ELSE",
1013	"statement : if_front statement else statement",
1014	"do : DO",
1015	"statement : do statement WHILE LPAREN expr RPAREN separator",
1016	"while_front : WHILE LPAREN expr RPAREN",
1017	"statement : while_front statement",
1018	"statement : for1 for2 for3 statement",
1019	"for1 : FOR LPAREN SEMI_COLON",
1020	"for1 : FOR LPAREN expr SEMI_COLON",
1021	"for2 : SEMI_COLON",
1022	"for2 : expr SEMI_COLON",
1023	"for3 : RPAREN",
1024	"for3 : expr RPAREN",
1025	"expr : expr IN ID",
1026	"expr : LPAREN arg2 RPAREN IN ID",
1027	"lvalue : ID mark LBOX args RBOX",
1028	"p_expr : ID mark LBOX args RBOX",
1029	"p_expr : ID mark LBOX args RBOX INC_or_DEC",
1030	"statement : DELETE ID mark LBOX args RBOX separator",
1031	"statement : DELETE ID separator",
1032	"array_loop_front : FOR LPAREN ID IN ID RPAREN",
1033	"statement : array_loop_front statement",
1034	"field : FIELD",
1035	"field : DOLLAR D_ID",
1036	"field : DOLLAR D_ID mark LBOX args RBOX",
1037	"field : DOLLAR p_expr",
1038	"field : LPAREN field RPAREN",
1039	"p_expr : field",
1040	"expr : field ASSIGN expr",
1041	"expr : field ADD_ASG expr",
1042	"expr : field SUB_ASG expr",
1043	"expr : field MUL_ASG expr",
1044	"expr : field DIV_ASG expr",
1045	"expr : field MOD_ASG expr",
1046	"expr : field POW_ASG expr",
1047	"p_expr : split_front split_back",
1048	"split_front : SPLIT LPAREN expr COMMA ID",
1049	"split_back : RPAREN",
1050	"split_back : COMMA expr RPAREN",
1051	"p_expr : MATCH_FUNC LPAREN expr COMMA re_arg RPAREN",
1052	"re_arg : expr",
1053	"statement : EXIT separator",
1054	"statement : EXIT expr separator",
1055	"return_statement : RETURN separator",
1056	"return_statement : RETURN expr separator",
1057	"p_expr : getline",
1058	"p_expr : getline fvalue",
1059	"p_expr : getline_file p_expr",
1060	"p_expr : p_expr PIPE GETLINE",
1061	"p_expr : p_expr PIPE GETLINE fvalue",
1062	"getline : GETLINE",
1063	"fvalue : lvalue",
1064	"fvalue : field",
1065	"getline_file : getline IO_IN",
1066	"getline_file : getline fvalue IO_IN",
1067	"p_expr : sub_or_gsub LPAREN re_arg COMMA expr sub_back",
1068	"sub_or_gsub : SUB",
1069	"sub_or_gsub : GSUB",
1070	"sub_back : RPAREN",
1071	"sub_back : COMMA fvalue RPAREN",
1072	"function_def : funct_start block",
1073	"funct_start : funct_head LPAREN f_arglist RPAREN",
1074	"funct_head : FUNCTION ID",
1075	"funct_head : FUNCTION FUNCT_ID",
1076	"f_arglist :",
1077	"f_arglist : f_args",
1078	"f_args : ID",
1079	"f_args : f_args COMMA ID",
1080	"outside_error : error",
1081	"p_expr : FUNCT_ID mark call_args",
1082	"call_args : LPAREN RPAREN",
1083	"call_args : ca_front ca_back",
1084	"ca_front : LPAREN",
1085	"ca_front : ca_front expr COMMA",
1086	"ca_front : ca_front ID COMMA",
1087	"ca_back : expr RPAREN",
1088	"ca_back : ID RPAREN",
1089	};
1090	#endif
1091	#ifdef YYPURE
1092	#undef YYGLOBAL
1093	#define YYLEX() yylex(&yylval)
1094	#else
1095	#define YYLEX() yylex()
1096	#endif
1097
1098	#ifdef YYSTACKSIZE
1099	#undef YYMAXDEPTH
1100	#define YYMAXDEPTH YYSTACKSIZE
1101	#else
1102	#ifdef YYMAXDEPTH
1103	#define YYSTACKSIZE YYMAXDEPTH
1104	#else
1105	#define YYSTACKSIZE 500
1106	#define YYMAXDEPTH 500
1107	#endif
1108	#endif
1109
1110	#ifdef YYGLOBAL /* get the standard byacc */
1111	int yydebug;
1112	int yynerrs;
1113	int yyerrflag;
1114	int yychar;
1115	short *yyssp;
1116	YYSTYPE *yyvsp;
1117	YYSTYPE yyval;
1118	YYSTYPE yylval;
1119	short yyss[YYSTACKSIZE];
1120	YYSTYPE yyvs[YYSTACKSIZE];
1121	#else
1122	/* move everything but yydebug and yylval local to yyparse().
1123	YYPURE moves yylval too */
1124	int yydebug ;
1125	#ifndef YYPURE
1126	YYSTYPE yylval ;
1127	#endif
1128	#endif
1129	#define yystacksize YYSTACKSIZE
1130	#line 1144 "parse.y"
1131
1132	/* resize the code for a user function */
1133
1134	static void resize_fblock( fbp )
1135	FBLOCK *fbp ;
1136	{
1137	CODEBLOCK *p = ZMALLOC(CODEBLOCK) ;
1138	unsigned dummy ;
1139
1140	code2op(_RET0, _HALT) ;
1141	/* make sure there is always a return */
1142
1143	*p = active_code ;
1144	fbp->code = code_shrink(p, &dummy) ;
1145	/* code_shrink() zfrees p */
1146
1147	if ( dump_code_flag ) add_to_fdump_list(fbp) ;
1148	}
1149
1150
1151	/* convert FE_PUSHA to FE_PUSHI
1152	or F_PUSH to F_PUSHI
1153	*/
1154
1155	static void field_A2I()
1156	{ CELL *cp ;
1157
1158	if ( code_ptr[-1].op == FE_PUSHA &&
1159	code_ptr[-1].ptr == (PTR) 0)
1160	/* On most architectures, the two tests are the same; a good
1161	compiler might eliminate one. On LM_DOS, and possibly other
1162	segmented architectures, they are not */
1163	{ code_ptr[-1].op = FE_PUSHI ; }
1164	else
1165	{
1166	cp = (CELL *) code_ptr[-1].ptr ;
1167
1168	if ( cp == field \|\|
1169
1170	#ifdef MSDOS
1171	SAMESEG(cp,field) &&
1172	#endif
1173	cp > NF && cp <= LAST_PFIELD )
1174	{
1175	code_ptr[-2].op = _PUSHI ;
1176	}
1177	else if ( cp == NF )
1178	{ code_ptr[-2].op = NF_PUSHI ; code_ptr-- ; }
1179
1180	else
1181	{
1182	code_ptr[-2].op = F_PUSHI ;
1183	code_ptr -> op = field_addr_to_index( code_ptr[-1].ptr ) ;
1184	code_ptr++ ;
1185	}
1186	}
1187	}
1188
1189	/* we've seen an ID in a context where it should be a VAR,
1190	check that's consistent with previous usage */
1191
1192	static void check_var( p )
1193	register SYMTAB *p ;
1194	{
1195	switch(p->type)
1196	{
1197	case ST_NONE : /* new id */
1198	p->type = ST_VAR ;
1199	p->stval.cp = ZMALLOC(CELL) ;
1200	p->stval.cp->type = C_NOINIT ;
1201	break ;
1202
1203	case ST_LOCAL_NONE :
1204	p->type = ST_LOCAL_VAR ;
1205	active_funct->typev[p->offset] = ST_LOCAL_VAR ;
1206	break ;
1207
1208	case ST_VAR :
1209	case ST_LOCAL_VAR : break ;
1210
1211	default :
1212	type_error(p) ;
1213	break ;
1214	}
1215	}
1216
1217	/* we've seen an ID in a context where it should be an ARRAY,
1218	check that's consistent with previous usage */
1219	static void check_array(p)
1220	register SYMTAB *p ;
1221	{
1222	switch(p->type)
1223	{
1224	case ST_NONE : /* a new array */
1225	p->type = ST_ARRAY ;
1226	p->stval.array = new_ARRAY() ;
1227	break ;
1228
1229	case ST_ARRAY :
1230	case ST_LOCAL_ARRAY :
1231	break ;
1232
1233	case ST_LOCAL_NONE :
1234	p->type = ST_LOCAL_ARRAY ;
1235	active_funct->typev[p->offset] = ST_LOCAL_ARRAY ;
1236	break ;
1237
1238	default : type_error(p) ; break ;
1239	}
1240	}
1241
1242	static void code_array(p)
1243	register SYMTAB *p ;
1244	{
1245	if ( is_local(p) ) code2op(LA_PUSHA, p->offset) ;
1246	else code2(A_PUSHA, p->stval.array) ;
1247	}
1248
1249
1250	/* we've seen an ID as an argument to a user defined function */
1251
1252	static void code_call_id( p, ip )
1253	register CA_REC *p ;
1254	register SYMTAB *ip ;
1255	{ static CELL dummy ;
1256
1257	p->call_offset = code_offset ;
1258	/* This always get set now. So that fcall:relocate_arglist
1259	works. */
1260
1261	switch( ip->type )
1262	{
1263	case ST_VAR :
1264	p->type = CA_EXPR ;
1265	code2(_PUSHI, ip->stval.cp) ;
1266	break ;
1267
1268	case ST_LOCAL_VAR :
1269	p->type = CA_EXPR ;
1270	code2op(L_PUSHI, ip->offset) ;
1271	break ;
1272
1273	case ST_ARRAY :
1274	p->type = CA_ARRAY ;
1275	code2(A_PUSHA, ip->stval.array) ;
1276	break ;
1277
1278	case ST_LOCAL_ARRAY :
1279	p->type = CA_ARRAY ;
1280	code2op(LA_PUSHA, ip->offset) ;
1281	break ;
1282
1283	/* not enough info to code it now; it will have to
1284	be patched later */
1285
1286	case ST_NONE :
1287	p->type = ST_NONE ;
1288	p->sym_p = ip ;
1289	code2(_PUSHI, &dummy) ;
1290	break ;
1291
1292	case ST_LOCAL_NONE :
1293	p->type = ST_LOCAL_NONE ;
1294	p->type_p = & active_funct->typev[ip->offset] ;
1295	code2op(L_PUSHI, ip->offset) ;
1296	break ;
1297
1298
1299	#ifdef DEBUG
1300	default :
1301	bozo("code_call_id") ;
1302	#endif
1303
1304	}
1305	}
1306
1307	/* an RE by itself was coded as _MATCH0 , change to
1308	push as an expression */
1309
1310	static void RE_as_arg()
1311	{ CELL *cp = ZMALLOC(CELL) ;
1312
1313	code_ptr -= 2 ;
1314	cp->type = C_RE ;
1315	cp->ptr = code_ptr[1].ptr ;
1316	code2(_PUSHC, cp) ;
1317	}
1318
1319	/* reset the active_code back to the MAIN block */
1320	static void
1321	switch_code_to_main()
1322	{
1323	switch(scope)
1324	{
1325	case SCOPE_BEGIN :
1326	*begin_code_p = active_code ;
1327	active_code = *main_code_p ;
1328	break ;
1329
1330	case SCOPE_END :
1331	*end_code_p = active_code ;
1332	active_code = *main_code_p ;
1333	break ;
1334
1335	case SCOPE_FUNCT :
1336	active_code = *main_code_p ;
1337	break ;
1338
1339	case SCOPE_MAIN :
1340	break ;
1341	}
1342	active_funct = (FBLOCK*) 0 ;
1343	scope = SCOPE_MAIN ;
1344	}
1345
1346
1347	void
1348	parse()
1349	{
1350	if ( yyparse() \|\| compile_error_count != 0 ) mawk_exit(2) ;
1351
1352	scan_cleanup() ;
1353	set_code() ;
1354	/* code must be set before call to resolve_fcalls() */
1355	if ( resolve_list ) resolve_fcalls() ;
1356
1357	if ( compile_error_count != 0 ) mawk_exit(2) ;
1358	if ( dump_code_flag ) { dump_code() ; mawk_exit(0) ; }
1359	}
1360
1361	#line 1362 "y.tab.c"
1362	#define YYABORT goto yyabort
1363	#define YYREJECT goto yyabort
1364	#define YYACCEPT goto yyaccept
1365	#define YYERROR goto yyerrlab
1366	int
1367	yyparse()
1368	{
1369	register int yym, yyn, yystate;
1370	#ifdef YYPURE
1371	YYSTYPE yylval ;
1372	#endif
1373
1374	#ifndef YYGLOBAL
1375	int yynerrs;
1376	int yyerrflag;
1377	int yychar;
1378	short *yyssp;
1379	YYSTYPE *yyvsp;
1380	YYSTYPE yyval;
1381	short yyss[YYSTACKSIZE];
1382	YYSTYPE yyvs[YYSTACKSIZE];
1383	#endif
1384	#if YYDEBUG
1385	register char *yys;
1386	extern char *getenv();
1387
1388	if (yys = getenv("YYDEBUG"))
1389	{
1390	yyn = *yys;
1391	if (yyn >= '0' && yyn <= '9')
1392	yydebug = yyn - '0';
1393	}
1394	#endif
1395
1396	yynerrs = 0;
1397	yyerrflag = 0;
1398	yychar = (-1);
1399
1400	yyssp = yyss;
1401	yyvsp = yyvs;
1402	*yyssp = yystate = 0;
1403
1404	yyloop:
1405	if (yyn = yydefred[yystate]) goto yyreduce;
1406	if (yychar < 0)
1407	{
1408	if ((yychar = YYLEX()) < 0) yychar = 0;
1409	#if YYDEBUG
1410	if (yydebug)
1411	{
1412	yys = 0;
1413	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
1414	if (!yys) yys = "illegal-symbol";
1415	printf("%sdebug: state %d, reading %d (%s)\n",
1416	YYPREFIX, yystate, yychar, yys);
1417	}
1418	#endif
1419	}
1420	if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
1421	yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
1422	{
1423	#if YYDEBUG
1424	if (yydebug)
1425	printf("%sdebug: state %d, shifting to state %d\n",
1426	YYPREFIX, yystate, yytable[yyn]);
1427	#endif
1428	if (yyssp >= yyss + yystacksize - 1)
1429	{
1430	goto yyoverflow;
1431	}
1432	*++yyssp = yystate = yytable[yyn];
1433	*++yyvsp = yylval;
1434	yychar = (-1);
1435	if (yyerrflag > 0) --yyerrflag;
1436	goto yyloop;
1437	}
1438	if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
1439	yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
1440	{
1441	yyn = yytable[yyn];
1442	goto yyreduce;
1443	}
1444	if (yyerrflag) goto yyinrecovery;
1445	#ifdef lint
1446	goto yynewerror;
1447	#endif
1448	yynewerror:
1449	yyerror("syntax error");
1450	#ifdef lint
1451	goto yyerrlab;
1452	#endif
1453	yyerrlab:
1454	++yynerrs;
1455	yyinrecovery:
1456	if (yyerrflag < 3)
1457	{
1458	yyerrflag = 3;
1459	for (;;)
1460	{
1461	if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
1462	yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
1463	{
1464	#if YYDEBUG
1465	if (yydebug)
1466	printf("%sdebug: state %d, error recovery shifting\
1467	to state %d\n", YYPREFIX, *yyssp, yytable[yyn]);
1468	#endif
1469	if (yyssp >= yyss + yystacksize - 1)
1470	{
1471	goto yyoverflow;
1472	}
1473	*++yyssp = yystate = yytable[yyn];
1474	*++yyvsp = yylval;
1475	goto yyloop;
1476	}
1477	else
1478	{
1479	#if YYDEBUG
1480	if (yydebug)
1481	printf("%sdebug: error recovery discarding state %d\n",
1482	YYPREFIX, *yyssp);
1483	#endif
1484	if (yyssp <= yyss) goto yyabort;
1485	--yyssp;
1486	--yyvsp;
1487	}
1488	}
1489	}
1490	else
1491	{
1492	if (yychar == 0) goto yyabort;
1493	#if YYDEBUG
1494	if (yydebug)
1495	{
1496	yys = 0;
1497	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
1498	if (!yys) yys = "illegal-symbol";
1499	printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
1500	YYPREFIX, yystate, yychar, yys);
1501	}
1502	#endif
1503	yychar = (-1);
1504	goto yyloop;
1505	}
1506	yyreduce:
1507	#if YYDEBUG
1508	if (yydebug)
1509	printf("%sdebug: state %d, reducing by rule %d (%s)\n",
1510	YYPREFIX, yystate, yyn, yyrule[yyn]);
1511	#endif
1512	yym = yylen[yyn];
1513	yyval = yyvsp[1-yym];
1514	switch (yyn)
1515	{
1516	case 6:
1517	#line 210 "parse.y"
1518	{ /* this do nothing action removes a vacuous warning
1519	from Bison */
1520	}
1521	break;
1522	case 7:
1523	#line 215 "parse.y"
1524	{ be_setup(scope = SCOPE_BEGIN) ; }
1525	break;
1526	case 8:
1527	#line 218 "parse.y"
1528	{ switch_code_to_main() ; }
1529	break;
1530	case 9:
1531	#line 221 "parse.y"
1532	{ be_setup(scope = SCOPE_END) ; }
1533	break;
1534	case 10:
1535	#line 224 "parse.y"
1536	{ switch_code_to_main() ; }
1537	break;
1538	case 11:
1539	#line 227 "parse.y"
1540	{ code_jmp(_JZ, (INST*)0) ; }
1541	break;
1542	case 12:
1543	#line 230 "parse.y"
1544	{ patch_jmp( code_ptr ) ; }
1545	break;
1546	case 13:
1547	#line 234 "parse.y"
1548	{
1549	INST *p1 = CDP(yyvsp[-1].start) ;
1550	int len ;
1551
1552	code_push(p1, code_ptr - p1, scope, active_funct) ;
1553	code_ptr = p1 ;
1554
1555	code2op(_RANGE, 1) ;
1556	code_ptr += 3 ;
1557	len = code_pop(code_ptr) ;
1558	code_ptr += len ;
1559	code1(_STOP) ;
1560	p1 = CDP(yyvsp[-1].start) ;
1561	p1[2].op = code_ptr - (p1+1) ;
1562	}
1563	break;
1564	case 14:
1565	#line 250 "parse.y"
1566	{ code1(_STOP) ; }
1567	break;
1568	case 15:
1569	#line 253 "parse.y"
1570	{
1571	INST *p1 = CDP(yyvsp[-5].start) ;
1572
1573	p1[3].op = CDP(yyvsp[0].start) - (p1+1) ;
1574	p1[4].op = code_ptr - (p1+1) ;
1575	}
1576	break;
1577	case 16:
1578	#line 264 "parse.y"
1579	{ yyval.start = yyvsp[-1].start ; }
1580	break;
1581	case 17:
1582	#line 266 "parse.y"
1583	{ yyval.start = code_offset ; /* does nothing won't be executed */
1584	print_flag = getline_flag = paren_cnt = 0 ;
1585	yyerrok ; }
1586	break;
1587	case 19:
1588	#line 273 "parse.y"
1589	{ yyval.start = code_offset ;
1590	code1(_PUSHINT) ; code1(0) ;
1591	code2(_PRINT, bi_print) ;
1592	}
1593	break;
1594	case 23:
1595	#line 285 "parse.y"
1596	{ code1(_POP) ; }
1597	break;
1598	case 24:
1599	#line 287 "parse.y"
1600	{ yyval.start = code_offset ; }
1601	break;
1602	case 25:
1603	#line 289 "parse.y"
1604	{ yyval.start = code_offset ;
1605	print_flag = getline_flag = 0 ;
1606	paren_cnt = 0 ;
1607	yyerrok ;
1608	}
1609	break;
1610	case 26:
1611	#line 295 "parse.y"
1612	{ yyval.start = code_offset ; BC_insert('B', code_ptr+1) ;
1613	code2(_JMP, 0) /* don't use code_jmp ! */ ; }
1614	break;
1615	case 27:
1616	#line 298 "parse.y"
1617	{ yyval.start = code_offset ; BC_insert('C', code_ptr+1) ;
1618	code2(_JMP, 0) ; }
1619	break;
1620	case 28:
1621	#line 301 "parse.y"
1622	{ if ( scope != SCOPE_FUNCT )
1623	compile_error("return outside function body") ;
1624	}
1625	break;
1626	case 29:
1627	#line 305 "parse.y"
1628	{ if ( scope != SCOPE_MAIN )
1629	compile_error( "improper use of next" ) ;
1630	yyval.start = code_offset ;
1631	code1(_NEXT) ;
1632	}
1633	break;
1634	case 33:
1635	#line 316 "parse.y"
1636	{ code1(_ASSIGN) ; }
1637	break;
1638	case 34:
1639	#line 317 "parse.y"
1640	{ code1(_ADD_ASG) ; }
1641	break;
1642	case 35:
1643	#line 318 "parse.y"
1644	{ code1(_SUB_ASG) ; }
1645	break;
1646	case 36:
1647	#line 319 "parse.y"
1648	{ code1(_MUL_ASG) ; }
1649	break;
1650	case 37:
1651	#line 320 "parse.y"
1652	{ code1(_DIV_ASG) ; }
1653	break;
1654	case 38:
1655	#line 321 "parse.y"
1656	{ code1(_MOD_ASG) ; }
1657	break;
1658	case 39:
1659	#line 322 "parse.y"
1660	{ code1(_POW_ASG) ; }
1661	break;
1662	case 40:
1663	#line 323 "parse.y"
1664	{ code1(_EQ) ; }
1665	break;
1666	case 41:
1667	#line 324 "parse.y"
1668	{ code1(_NEQ) ; }
1669	break;
1670	case 42:
1671	#line 325 "parse.y"
1672	{ code1(_LT) ; }
1673	break;
1674	case 43:
1675	#line 326 "parse.y"
1676	{ code1(_LTE) ; }
1677	break;
1678	case 44:
1679	#line 327 "parse.y"
1680	{ code1(_GT) ; }
1681	break;
1682	case 45:
1683	#line 328 "parse.y"
1684	{ code1(_GTE) ; }
1685	break;
1686	case 46:
1687	#line 331 "parse.y"
1688	{
1689	INST *p3 = CDP(yyvsp[0].start) ;
1690
1691	if ( p3 == code_ptr - 2 )
1692	{
1693	if ( p3->op == _MATCH0 ) p3->op = _MATCH1 ;
1694
1695	else /* check for string */
1696	if ( p3->op == _PUSHS )
1697	{ CELL *cp = ZMALLOC(CELL) ;
1698
1699	cp->type = C_STRING ;
1700	cp->ptr = p3[1].ptr ;
1701	cast_to_RE(cp) ;
1702	code_ptr -= 2 ;
1703	code2(_MATCH1, cp->ptr) ;
1704	ZFREE(cp) ;
1705	}
1706	else code1(_MATCH2) ;
1707	}
1708	else code1(_MATCH2) ;
1709
1710	if ( !yyvsp[-1].ival ) code1(_NOT) ;
1711	}
1712	break;
1713	case 47:
1714	#line 358 "parse.y"
1715	{ code1(_TEST) ;
1716	code_jmp(_LJNZ, (INST*)0) ;
1717	}
1718	break;
1719	case 48:
1720	#line 362 "parse.y"
1721	{ code1(_TEST) ; patch_jmp(code_ptr) ; }
1722	break;
1723	case 49:
1724	#line 365 "parse.y"
1725	{ code1(_TEST) ;
1726	code_jmp(_LJZ, (INST*)0) ;
1727	}
1728	break;
1729	case 50:
1730	#line 369 "parse.y"
1731	{ code1(_TEST) ; patch_jmp(code_ptr) ; }
1732	break;
1733	case 51:
1734	#line 371 "parse.y"
1735	{ code_jmp(_JZ, (INST*)0) ; }
1736	break;
1737	case 52:
1738	#line 372 "parse.y"
1739	{ code_jmp(_JMP, (INST*)0) ; }
1740	break;
1741	case 53:
1742	#line 374 "parse.y"
1743	{ patch_jmp(code_ptr) ; patch_jmp(CDP(yyvsp[0].start)) ; }
1744	break;
1745	case 55:
1746	#line 379 "parse.y"
1747	{ code1(_CAT) ; }
1748	break;
1749	case 56:
1750	#line 383 "parse.y"
1751	{ yyval.start = code_offset ; code2(_PUSHD, yyvsp[0].ptr) ; }
1752	break;
1753	case 57:
1754	#line 385 "parse.y"
1755	{ yyval.start = code_offset ; code2(_PUSHS, yyvsp[0].ptr) ; }
1756	break;
1757	case 58:
1758	#line 387 "parse.y"
1759	{ check_var(yyvsp[0].stp) ;
1760	yyval.start = code_offset ;
1761	if ( is_local(yyvsp[0].stp) )
1762	{ code2op(L_PUSHI, yyvsp[0].stp->offset) ; }
1763	else code2(_PUSHI, yyvsp[0].stp->stval.cp) ;
1764	}
1765	break;
1766	case 59:
1767	#line 395 "parse.y"
1768	{ yyval.start = yyvsp[-1].start ; }
1769	break;
1770	case 60:
1771	#line 399 "parse.y"
1772	{ yyval.start = code_offset ; code2(_MATCH0, yyvsp[0].ptr) ; }
1773	break;
1774	case 61:
1775	#line 402 "parse.y"
1776	{ code1(_ADD) ; }
1777	break;
1778	case 62:
1779	#line 403 "parse.y"
1780	{ code1(_SUB) ; }
1781	break;
1782	case 63:
1783	#line 404 "parse.y"
1784	{ code1(_MUL) ; }
1785	break;
1786	case 64:
1787	#line 405 "parse.y"
1788	{ code1(_DIV) ; }
1789	break;
1790	case 65:
1791	#line 406 "parse.y"
1792	{ code1(_MOD) ; }
1793	break;
1794	case 66:
1795	#line 407 "parse.y"
1796	{ code1(_POW) ; }
1797	break;
1798	case 67:
1799	#line 409 "parse.y"
1800	{ yyval.start = yyvsp[0].start ; code1(_NOT) ; }
1801	break;
1802	case 68:
1803	#line 411 "parse.y"
1804	{ yyval.start = yyvsp[0].start ; code1(_UPLUS) ; }
1805	break;
1806	case 69:
1807	#line 413 "parse.y"
1808	{ yyval.start = yyvsp[0].start ; code1(_UMINUS) ; }
1809	break;
1810	case 71:
1811	#line 418 "parse.y"
1812	{ check_var(yyvsp[-1].stp) ;
1813	yyval.start = code_offset ;
1814	code_address(yyvsp[-1].stp) ;
1815
1816	if ( yyvsp[0].ival == '+' ) code1(_POST_INC) ;
1817	else code1(_POST_DEC) ;
1818	}
1819	break;
1820	case 72:
1821	#line 426 "parse.y"
1822	{ yyval.start = yyvsp[0].start ;
1823	if ( yyvsp[-1].ival == '+' ) code1(_PRE_INC) ;
1824	else code1(_PRE_DEC) ;
1825	}
1826	break;
1827	case 73:
1828	#line 433 "parse.y"
1829	{ if (yyvsp[0].ival == '+' ) code1(F_POST_INC ) ;
1830	else code1(F_POST_DEC) ;
1831	}
1832	break;
1833	case 74:
1834	#line 437 "parse.y"
1835	{ yyval.start = yyvsp[0].start ;
1836	if ( yyvsp[-1].ival == '+' ) code1(F_PRE_INC) ;
1837	else code1( F_PRE_DEC) ;
1838	}
1839	break;
1840	case 75:
1841	#line 444 "parse.y"
1842	{ yyval.start = code_offset ;
1843	check_var(yyvsp[0].stp) ;
1844	code_address(yyvsp[0].stp) ;
1845	}
1846	break;
1847	case 76:
1848	#line 452 "parse.y"
1849	{ yyval.ival = 0 ; }
1850	break;
1851	case 78:
1852	#line 457 "parse.y"
1853	{ yyval.ival = 1 ; }
1854	break;
1855	case 79:
1856	#line 459 "parse.y"
1857	{ yyval.ival = yyvsp[-2].ival + 1 ; }
1858	break;
1859	case 80:
1860	#line 464 "parse.y"
1861	{ BI_REC *p = yyvsp[-4].bip ;
1862	yyval.start = yyvsp[-3].start ;
1863	if ( (int)p->min_args > yyvsp[-1].ival \|\| (int)p->max_args < yyvsp[-1].ival )
1864	compile_error(
1865	"wrong number of arguments in call to %s" ,
1866	p->name ) ;
1867	if ( p->min_args != p->max_args ) /* variable args */
1868	{ code1(_PUSHINT) ; code1(yyvsp[-1].ival) ; }
1869	code2(_BUILTIN , p->fp) ;
1870	}
1871	break;
1872	case 81:
1873	#line 475 "parse.y"
1874	{
1875	yyval.start = code_offset ;
1876	code1(_PUSHINT) ; code1(0) ;
1877	code2(_BUILTIN, yyvsp[0].bip->fp) ;
1878	}
1879	break;
1880	case 82:
1881	#line 484 "parse.y"
1882	{ yyval.start = code_offset ; }
1883	break;
1884	case 83:
1885	#line 488 "parse.y"
1886	{ code2(_PRINT, yyvsp[-4].fp) ;
1887	if ( yyvsp[-4].fp == bi_printf && yyvsp[-2].ival == 0 )
1888	compile_error("no arguments in call to printf") ;
1889	print_flag = 0 ;
1890	yyval.start = yyvsp[-3].start ;
1891	}
1892	break;
1893	case 84:
1894	#line 496 "parse.y"
1895	{ yyval.fp = bi_print ; print_flag = 1 ;}
1896	break;
1897	case 85:
1898	#line 497 "parse.y"
1899	{ yyval.fp = bi_printf ; print_flag = 1 ; }
1900	break;
1901	case 86:
1902	#line 500 "parse.y"
1903	{ code2op(_PUSHINT, yyvsp[0].ival) ; }
1904	break;
1905	case 87:
1906	#line 502 "parse.y"
1907	{ yyval.ival = yyvsp[-1].arg2p->cnt ; zfree(yyvsp[-1].arg2p,sizeof(ARG2_REC)) ;
1908	code2op(_PUSHINT, yyval.ival) ;
1909	}
1910	break;
1911	case 88:
1912	#line 506 "parse.y"
1913	{ yyval.ival=0 ; code2op(_PUSHINT, 0) ; }
1914	break;
1915	case 89:
1916	#line 510 "parse.y"
1917	{ yyval.arg2p = (ARG2_REC*) zmalloc(sizeof(ARG2_REC)) ;
1918	yyval.arg2p->start = yyvsp[-2].start ;
1919	yyval.arg2p->cnt = 2 ;
1920	}
1921	break;
1922	case 90:
1923	#line 515 "parse.y"
1924	{ yyval.arg2p = yyvsp[-2].arg2p ; yyval.arg2p->cnt++ ; }
1925	break;
1926	case 92:
1927	#line 520 "parse.y"
1928	{ code2op(_PUSHINT, yyvsp[-1].ival) ; }
1929	break;
1930	case 93:
1931	#line 527 "parse.y"
1932	{ yyval.start = yyvsp[-1].start ; eat_nl() ; code_jmp(_JZ, (INST*)0) ; }
1933	break;
1934	case 94:
1935	#line 532 "parse.y"
1936	{ patch_jmp( code_ptr ) ; }
1937	break;
1938	case 95:
1939	#line 535 "parse.y"
1940	{ eat_nl() ; code_jmp(_JMP, (INST*)0) ; }
1941	break;
1942	case 96:
1943	#line 540 "parse.y"
1944	{ patch_jmp(code_ptr) ;
1945	patch_jmp(CDP(yyvsp[0].start)) ;
1946	}
1947	break;
1948	case 97:
1949	#line 548 "parse.y"
1950	{ eat_nl() ; BC_new() ; }
1951	break;
1952	case 98:
1953	#line 553 "parse.y"
1954	{ yyval.start = yyvsp[-5].start ;
1955	code_jmp(_JNZ, CDP(yyvsp[-5].start)) ;
1956	BC_clear(code_ptr, CDP(yyvsp[-2].start)) ; }
1957	break;
1958	case 99:
1959	#line 559 "parse.y"
1960	{ eat_nl() ; BC_new() ;
1961	yyval.start = yyvsp[-1].start ;
1962
1963	/* check if const expression */
1964	if ( code_ptr - 2 == CDP(yyvsp[-1].start) &&
1965	code_ptr[-2].op == _PUSHD &&
1966	(double)code_ptr[-1].ptr != 0.0
1967	)
1968	code_ptr -= 2 ;
1969	else
1970	{ INST *p3 = CDP(yyvsp[-1].start) ;
1971	code_push(p3, code_ptr-p3, scope, active_funct) ;
1972	code_ptr = p3 ;
1973	code2(_JMP, (INST)0) ; / code2() not code_jmp() */
1974	}
1975	}
1976	break;
1977	case 100:
1978	#line 579 "parse.y"
1979	{
1980	int saved_offset ;
1981	int len ;
1982	INST *p1 = CDP(yyvsp[-1].start) ;
1983	INST *p2 = CDP(yyvsp[0].start) ;
1984
1985	if ( p1 != p2 ) /* real test in loop */
1986	{
1987	p1[1].op = code_ptr-(p1+1) ;
1988	saved_offset = code_offset ;
1989	len = code_pop(code_ptr) ;
1990	code_ptr += len ;
1991	code_jmp(_JNZ, CDP(yyvsp[0].start)) ;
1992	BC_clear(code_ptr, CDP(saved_offset)) ;
1993	}
1994	else /* while(1) */
1995	{
1996	code_jmp(_JMP, p1) ;
1997	BC_clear(code_ptr, CDP(yyvsp[0].start)) ;
1998	}
1999	}
2000	break;
2001	case 101:
2002	#line 605 "parse.y"
2003	{
2004	int cont_offset = code_offset ;
2005	unsigned len = code_pop(code_ptr) ;
2006	INST *p2 = CDP(yyvsp[-2].start) ;
2007	INST *p4 = CDP(yyvsp[0].start) ;
2008
2009	code_ptr += len ;
2010
2011	if ( p2 != p4 ) /* real test in for2 */
2012	{
2013	p4[-1].op = code_ptr - p4 + 1 ;
2014	len = code_pop(code_ptr) ;
2015	code_ptr += len ;
2016	code_jmp(_JNZ, CDP(yyvsp[0].start)) ;
2017	}
2018	else /* for(;;) */
2019	code_jmp(_JMP, p4) ;
2020
2021	BC_clear(code_ptr, CDP(cont_offset)) ;
2022
2023	}
2024	break;
2025	case 102:
2026	#line 628 "parse.y"
2027	{ yyval.start = code_offset ; }
2028	break;
2029	case 103:
2030	#line 630 "parse.y"
2031	{ yyval.start = yyvsp[-1].start ; code1(_POP) ; }
2032	break;
2033	case 104:
2034	#line 633 "parse.y"
2035	{ yyval.start = code_offset ; }
2036	break;
2037	case 105:
2038	#line 635 "parse.y"
2039	{
2040	if ( code_ptr - 2 == CDP(yyvsp[-1].start) &&
2041	code_ptr[-2].op == _PUSHD &&
2042	* (double*) code_ptr[-1].ptr != 0.0
2043	)
2044	code_ptr -= 2 ;
2045	else
2046	{
2047	INST *p1 = CDP(yyvsp[-1].start) ;
2048	code_push(p1, code_ptr-p1, scope, active_funct) ;
2049	code_ptr = p1 ;
2050	code2(_JMP, (INST*)0) ;
2051	}
2052	}
2053	break;
2054	case 106:
2055	#line 652 "parse.y"
2056	{ eat_nl() ; BC_new() ;
2057	code_push((INST*)0,0, scope, active_funct) ;
2058	}
2059	break;
2060	case 107:
2061	#line 656 "parse.y"
2062	{ INST *p1 = CDP(yyvsp[-1].start) ;
2063
2064	eat_nl() ; BC_new() ;
2065	code1(_POP) ;
2066	code_push(p1, code_ptr - p1, scope, active_funct) ;
2067	code_ptr -= code_ptr - p1 ;
2068	}
2069	break;
2070	case 108:
2071	#line 669 "parse.y"
2072	{ check_array(yyvsp[0].stp) ;
2073	code_array(yyvsp[0].stp) ;
2074	code1(A_TEST) ;
2075	}
2076	break;
2077	case 109:
2078	#line 674 "parse.y"
2079	{ yyval.start = yyvsp[-3].arg2p->start ;
2080	code2op(A_CAT, yyvsp[-3].arg2p->cnt) ;
2081	zfree(yyvsp[-3].arg2p, sizeof(ARG2_REC)) ;
2082
2083	check_array(yyvsp[0].stp) ;
2084	code_array(yyvsp[0].stp) ;
2085	code1(A_TEST) ;
2086	}
2087	break;
2088	case 110:
2089	#line 685 "parse.y"
2090	{
2091	if ( yyvsp[-1].ival > 1 )
2092	{ code2op(A_CAT, yyvsp[-1].ival) ; }
2093
2094	check_array(yyvsp[-4].stp) ;
2095	if( is_local(yyvsp[-4].stp) )
2096	{ code2op(LAE_PUSHA, yyvsp[-4].stp->offset) ; }
2097	else code2(AE_PUSHA, yyvsp[-4].stp->stval.array) ;
2098	yyval.start = yyvsp[-3].start ;
2099	}
2100	break;
2101	case 111:
2102	#line 698 "parse.y"
2103	{
2104	if ( yyvsp[-1].ival > 1 )
2105	{ code2op(A_CAT, yyvsp[-1].ival) ; }
2106
2107	check_array(yyvsp[-4].stp) ;
2108	if( is_local(yyvsp[-4].stp) )
2109	{ code2op(LAE_PUSHI, yyvsp[-4].stp->offset) ; }
2110	else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ;
2111	yyval.start = yyvsp[-3].start ;
2112	}
2113	break;
2114	case 112:
2115	#line 710 "parse.y"
2116	{
2117	if ( yyvsp[-2].ival > 1 )
2118	{ code2op(A_CAT,yyvsp[-2].ival) ; }
2119
2120	check_array(yyvsp[-5].stp) ;
2121	if( is_local(yyvsp[-5].stp) )
2122	{ code2op(LAE_PUSHA, yyvsp[-5].stp->offset) ; }
2123	else code2(AE_PUSHA, yyvsp[-5].stp->stval.array) ;
2124	if ( yyvsp[0].ival == '+' ) code1(_POST_INC) ;
2125	else code1(_POST_DEC) ;
2126
2127	yyval.start = yyvsp[-4].start ;
2128	}
2129	break;
2130	case 113:
2131	#line 727 "parse.y"
2132	{
2133	yyval.start = yyvsp[-4].start ;
2134	if ( yyvsp[-2].ival > 1 ) { code2op(A_CAT, yyvsp[-2].ival) ; }
2135	check_array(yyvsp[-5].stp) ;
2136	code_array(yyvsp[-5].stp) ;
2137	code1(A_DEL) ;
2138	}
2139	break;
2140	case 114:
2141	#line 735 "parse.y"
2142	{
2143	yyval.start = code_offset ;
2144	check_array(yyvsp[-1].stp) ;
2145	code_array(yyvsp[-1].stp) ;
2146	code1(DEL_A) ;
2147	}
2148	break;
2149	case 115:
2150	#line 746 "parse.y"
2151	{ eat_nl() ; BC_new() ;
2152	yyval.start = code_offset ;
2153
2154	check_var(yyvsp[-3].stp) ;
2155	code_address(yyvsp[-3].stp) ;
2156	check_array(yyvsp[-1].stp) ;
2157	code_array(yyvsp[-1].stp) ;
2158
2159	code2(SET_ALOOP, (INST*)0) ;
2160	}
2161	break;
2162	case 116:
2163	#line 760 "parse.y"
2164	{
2165	INST *p2 = CDP(yyvsp[0].start) ;
2166
2167	p2[-1].op = code_ptr - p2 + 1 ;
2168	BC_clear( code_ptr+2 , code_ptr) ;
2169	code_jmp(ALOOP, p2) ;
2170	code1(POP_AL) ;
2171	}
2172	break;
2173	case 117:
2174	#line 777 "parse.y"
2175	{ yyval.start = code_offset ; code2(F_PUSHA, yyvsp[0].cp) ; }
2176	break;
2177	case 118:
2178	#line 779 "parse.y"
2179	{ check_var(yyvsp[0].stp) ;
2180	yyval.start = code_offset ;
2181	if ( is_local(yyvsp[0].stp) )
2182	{ code2op(L_PUSHI, yyvsp[0].stp->offset) ; }
2183	else code2(_PUSHI, yyvsp[0].stp->stval.cp) ;
2184
2185	CODE_FE_PUSHA() ;
2186	}
2187	break;
2188	case 119:
2189	#line 788 "parse.y"
2190	{
2191	if ( yyvsp[-1].ival > 1 )
2192	{ code2op(A_CAT, yyvsp[-1].ival) ; }
2193
2194	check_array(yyvsp[-4].stp) ;
2195	if( is_local(yyvsp[-4].stp) )
2196	{ code2op(LAE_PUSHI, yyvsp[-4].stp->offset) ; }
2197	else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ;
2198
2199	CODE_FE_PUSHA() ;
2200
2201	yyval.start = yyvsp[-3].start ;
2202	}
2203	break;
2204	case 120:
2205	#line 802 "parse.y"
2206	{ yyval.start = yyvsp[0].start ; CODE_FE_PUSHA() ; }
2207	break;
2208	case 121:
2209	#line 804 "parse.y"
2210	{ yyval.start = yyvsp[-1].start ; }
2211	break;
2212	case 122:
2213	#line 808 "parse.y"
2214	{ field_A2I() ; }
2215	break;
2216	case 123:
2217	#line 811 "parse.y"
2218	{ code1(F_ASSIGN) ; }
2219	break;
2220	case 124:
2221	#line 812 "parse.y"
2222	{ code1(F_ADD_ASG) ; }
2223	break;
2224	case 125:
2225	#line 813 "parse.y"
2226	{ code1(F_SUB_ASG) ; }
2227	break;
2228	case 126:
2229	#line 814 "parse.y"
2230	{ code1(F_MUL_ASG) ; }
2231	break;
2232	case 127:
2233	#line 815 "parse.y"
2234	{ code1(F_DIV_ASG) ; }
2235	break;
2236	case 128:
2237	#line 816 "parse.y"
2238	{ code1(F_MOD_ASG) ; }
2239	break;
2240	case 129:
2241	#line 817 "parse.y"
2242	{ code1(F_POW_ASG) ; }
2243	break;
2244	case 130:
2245	#line 824 "parse.y"
2246	{ code2(_BUILTIN, bi_split) ; }
2247	break;
2248	case 131:
2249	#line 828 "parse.y"
2250	{ yyval.start = yyvsp[-2].start ;
2251	check_array(yyvsp[0].stp) ;
2252	code_array(yyvsp[0].stp) ;
2253	}
2254	break;
2255	case 132:
2256	#line 835 "parse.y"
2257	{ code2(_PUSHI, &fs_shadow) ; }
2258	break;
2259	case 133:
2260	#line 837 "parse.y"
2261	{
2262	if ( CDP(yyvsp[-1].start) == code_ptr - 2 )
2263	{
2264	if ( code_ptr[-2].op == _MATCH0 )
2265	RE_as_arg() ;
2266	else
2267	if ( code_ptr[-2].op == _PUSHS )
2268	{ CELL *cp = ZMALLOC(CELL) ;
2269
2270	cp->type = C_STRING ;
2271	cp->ptr = code_ptr[-1].ptr ;
2272	cast_for_split(cp) ;
2273	code_ptr[-2].op = _PUSHC ;
2274	code_ptr[-1].ptr = (PTR) cp ;
2275	}
2276	}
2277	}
2278	break;
2279	case 134:
2280	#line 861 "parse.y"
2281	{ yyval.start = yyvsp[-3].start ;
2282	code2(_BUILTIN, bi_match) ;
2283	}
2284	break;
2285	case 135:
2286	#line 868 "parse.y"
2287	{
2288	INST *p1 = CDP(yyvsp[0].start) ;
2289
2290	if ( p1 == code_ptr - 2 )
2291	{
2292	if ( p1->op == _MATCH0 ) RE_as_arg() ;
2293	else
2294	if ( p1->op == _PUSHS )
2295	{ CELL *cp = ZMALLOC(CELL) ;
2296
2297	cp->type = C_STRING ;
2298	cp->ptr = p1[1].ptr ;
2299	cast_to_RE(cp) ;
2300	p1->op = _PUSHC ;
2301	p1[1].ptr = (PTR) cp ;
2302	}
2303	}
2304	}
2305	break;
2306	case 136:
2307	#line 891 "parse.y"
2308	{ yyval.start = code_offset ;
2309	code1(_EXIT0) ; }
2310	break;
2311	case 137:
2312	#line 894 "parse.y"
2313	{ yyval.start = yyvsp[-1].start ; code1(_EXIT) ; }
2314	break;
2315	case 138:
2316	#line 897 "parse.y"
2317	{ yyval.start = code_offset ;
2318	code1(_RET0) ; }
2319	break;
2320	case 139:
2321	#line 900 "parse.y"
2322	{ yyval.start = yyvsp[-1].start ; code1(_RET) ; }
2323	break;
2324	case 140:
2325	#line 905 "parse.y"
2326	{ yyval.start = code_offset ;
2327	code2(F_PUSHA, &field[0]) ;
2328	code1(_PUSHINT) ; code1(0) ;
2329	code2(_BUILTIN, bi_getline) ;
2330	getline_flag = 0 ;
2331	}
2332	break;
2333	case 141:
2334	#line 912 "parse.y"
2335	{ yyval.start = yyvsp[0].start ;
2336	code1(_PUSHINT) ; code1(0) ;
2337	code2(_BUILTIN, bi_getline) ;
2338	getline_flag = 0 ;
2339	}
2340	break;
2341	case 142:
2342	#line 918 "parse.y"
2343	{ code1(_PUSHINT) ; code1(F_IN) ;
2344	code2(_BUILTIN, bi_getline) ;
2345	/* getline_flag already off in yylex() */
2346	}
2347	break;
2348	case 143:
2349	#line 923 "parse.y"
2350	{ code2(F_PUSHA, &field[0]) ;
2351	code1(_PUSHINT) ; code1(PIPE_IN) ;
2352	code2(_BUILTIN, bi_getline) ;
2353	}
2354	break;
2355	case 144:
2356	#line 928 "parse.y"
2357	{
2358	code1(_PUSHINT) ; code1(PIPE_IN) ;
2359	code2(_BUILTIN, bi_getline) ;
2360	}
2361	break;
2362	case 145:
2363	#line 934 "parse.y"
2364	{ getline_flag = 1 ; }
2365	break;
2366	case 148:
2367	#line 939 "parse.y"
2368	{ yyval.start = code_offset ;
2369	code2(F_PUSHA, field+0) ;
2370	}
2371	break;
2372	case 149:
2373	#line 943 "parse.y"
2374	{ yyval.start = yyvsp[-1].start ; }
2375	break;
2376	case 150:
2377	#line 951 "parse.y"
2378	{
2379	INST *p5 = CDP(yyvsp[-1].start) ;
2380	INST *p6 = CDP(yyvsp[0].start) ;
2381
2382	if ( p6 - p5 == 2 && p5->op == _PUSHS )
2383	{ /* cast from STRING to REPL at compile time */
2384	CELL *cp = ZMALLOC(CELL) ;
2385	cp->type = C_STRING ;
2386	cp->ptr = p5[1].ptr ;
2387	cast_to_REPL(cp) ;
2388	p5->op = _PUSHC ;
2389	p5[1].ptr = (PTR) cp ;
2390	}
2391	code2(_BUILTIN, yyvsp[-5].fp) ;
2392	yyval.start = yyvsp[-3].start ;
2393	}
2394	break;
2395	case 151:
2396	#line 969 "parse.y"
2397	{ yyval.fp = bi_sub ; }
2398	break;
2399	case 152:
2400	#line 970 "parse.y"
2401	{ yyval.fp = bi_gsub ; }
2402	break;
2403	case 153:
2404	#line 975 "parse.y"
2405	{ yyval.start = code_offset ;
2406	code2(F_PUSHA, &field[0]) ;
2407	}
2408	break;
2409	case 154:
2410	#line 980 "parse.y"
2411	{ yyval.start = yyvsp[-1].start ; }
2412	break;
2413	case 155:
2414	#line 988 "parse.y"
2415	{
2416	resize_fblock(yyvsp[-1].fbp) ;
2417	restore_ids() ;
2418	switch_code_to_main() ;
2419	}
2420	break;
2421	case 156:
2422	#line 997 "parse.y"
2423	{ eat_nl() ;
2424	scope = SCOPE_FUNCT ;
2425	active_funct = yyvsp[-3].fbp ;
2426	*main_code_p = active_code ;
2427
2428	yyvsp[-3].fbp->nargs = yyvsp[-1].ival ;
2429	if ( yyvsp[-1].ival )
2430	yyvsp[-3].fbp->typev = (char *)
2431	memset( zmalloc(yyvsp[-1].ival), ST_LOCAL_NONE, yyvsp[-1].ival) ;
2432	else yyvsp[-3].fbp->typev = (char *) 0 ;
2433
2434	code_ptr = code_base =
2435	(INST *) zmalloc(INST_BYTES(PAGESZ));
2436	code_limit = code_base + PAGESZ ;
2437	code_warn = code_limit - CODEWARN ;
2438	}
2439	break;
2440	case 157:
2441	#line 1016 "parse.y"
2442	{ FBLOCK *fbp ;
2443
2444	if ( yyvsp[0].stp->type == ST_NONE )
2445	{
2446	yyvsp[0].stp->type = ST_FUNCT ;
2447	fbp = yyvsp[0].stp->stval.fbp =
2448	(FBLOCK *) zmalloc(sizeof(FBLOCK)) ;
2449	fbp->name = yyvsp[0].stp->name ;
2450	fbp->code = (INST*) 0 ;
2451	}
2452	else
2453	{
2454	type_error( yyvsp[0].stp ) ;
2455
2456	/* this FBLOCK will not be put in
2457	the symbol table */
2458	fbp = (FBLOCK*) zmalloc(sizeof(FBLOCK)) ;
2459	fbp->name = "" ;
2460	}
2461	yyval.fbp = fbp ;
2462	}
2463	break;
2464	case 158:
2465	#line 1039 "parse.y"
2466	{ yyval.fbp = yyvsp[0].fbp ;
2467	if ( yyvsp[0].fbp->code )
2468	compile_error("redefinition of %s" , yyvsp[0].fbp->name) ;
2469	}
2470	break;
2471	case 159:
2472	#line 1045 "parse.y"
2473	{ yyval.ival = 0 ; }
2474	break;
2475	case 161:
2476	#line 1050 "parse.y"
2477	{ yyvsp[0].stp = save_id(yyvsp[0].stp->name) ;
2478	yyvsp[0].stp->type = ST_LOCAL_NONE ;
2479	yyvsp[0].stp->offset = 0 ;
2480	yyval.ival = 1 ;
2481	}
2482	break;
2483	case 162:
2484	#line 1056 "parse.y"
2485	{ if ( is_local(yyvsp[0].stp) )
2486	compile_error("%s is duplicated in argument list",
2487	yyvsp[0].stp->name) ;
2488	else
2489	{ yyvsp[0].stp = save_id(yyvsp[0].stp->name) ;
2490	yyvsp[0].stp->type = ST_LOCAL_NONE ;
2491	yyvsp[0].stp->offset = yyvsp[-2].ival ;
2492	yyval.ival = yyvsp[-2].ival + 1 ;
2493	}
2494	}
2495	break;
2496	case 163:
2497	#line 1069 "parse.y"
2498	{ /* we may have to recover from a bungled function
2499	definition */
2500	/* can have local ids, before code scope
2501	changes */
2502	restore_ids() ;
2503
2504	switch_code_to_main() ;
2505	}
2506	break;
2507	case 164:
2508	#line 1082 "parse.y"
2509	{ yyval.start = yyvsp[-1].start ;
2510	code2(_CALL, yyvsp[-2].fbp) ;
2511
2512	if ( yyvsp[0].ca_p ) code1(yyvsp[0].ca_p->arg_num+1) ;
2513	else code1(0) ;
2514
2515	check_fcall(yyvsp[-2].fbp, scope, code_move_level, active_funct,
2516	yyvsp[0].ca_p, token_lineno) ;
2517	}
2518	break;
2519	case 165:
2520	#line 1094 "parse.y"
2521	{ yyval.ca_p = (CA_REC *) 0 ; }
2522	break;
2523	case 166:
2524	#line 1096 "parse.y"
2525	{ yyval.ca_p = yyvsp[0].ca_p ;
2526	yyval.ca_p->link = yyvsp[-1].ca_p ;
2527	yyval.ca_p->arg_num = yyvsp[-1].ca_p ? yyvsp[-1].ca_p->arg_num+1 : 0 ;
2528	}
2529	break;
2530	case 167:
2531	#line 1111 "parse.y"
2532	{ yyval.ca_p = (CA_REC *) 0 ; }
2533	break;
2534	case 168:
2535	#line 1113 "parse.y"
2536	{ yyval.ca_p = ZMALLOC(CA_REC) ;
2537	yyval.ca_p->link = yyvsp[-2].ca_p ;
2538	yyval.ca_p->type = CA_EXPR ;
2539	yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ;
2540	yyval.ca_p->call_offset = code_offset ;
2541	}
2542	break;
2543	case 169:
2544	#line 1120 "parse.y"
2545	{ yyval.ca_p = ZMALLOC(CA_REC) ;
2546	yyval.ca_p->link = yyvsp[-2].ca_p ;
2547	yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ;
2548
2549	code_call_id(yyval.ca_p, yyvsp[-1].stp) ;
2550	}
2551	break;
2552	case 170:
2553	#line 1129 "parse.y"
2554	{ yyval.ca_p = ZMALLOC(CA_REC) ;
2555	yyval.ca_p->type = CA_EXPR ;
2556	yyval.ca_p->call_offset = code_offset ;
2557	}
2558	break;
2559	case 171:
2560	#line 1135 "parse.y"
2561	{ yyval.ca_p = ZMALLOC(CA_REC) ;
2562	code_call_id(yyval.ca_p, yyvsp[-1].stp) ;
2563	}
2564	break;
2565	#line 2566 "y.tab.c"
2566	}
2567	yyssp -= yym;
2568	yystate = *yyssp;
2569	yyvsp -= yym;
2570	yym = yylhs[yyn];
2571	if (yystate == 0 && yym == 0)
2572	{
2573	#if YYDEBUG
2574	if (yydebug)
2575	printf("%sdebug: after reduction, shifting from state 0 to\
2576	state %d\n", YYPREFIX, YYFINAL);
2577	#endif
2578	yystate = YYFINAL;
2579	*++yyssp = YYFINAL;
2580	*++yyvsp = yyval;
2581	if (yychar < 0)
2582	{
2583	if ((yychar = YYLEX()) < 0) yychar = 0;
2584	#if YYDEBUG
2585	if (yydebug)
2586	{
2587	yys = 0;
2588	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
2589	if (!yys) yys = "illegal-symbol";
2590	printf("%sdebug: state %d, reading %d (%s)\n",
2591	YYPREFIX, YYFINAL, yychar, yys);
2592	}
2593	#endif
2594	}
2595	if (yychar == 0) goto yyaccept;
2596	goto yyloop;
2597	}
2598	if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
2599	yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
2600	yystate = yytable[yyn];
2601	else
2602	yystate = yydgoto[yym];
2603	#if YYDEBUG
2604	if (yydebug)
2605	printf("%sdebug: after reduction, shifting from state %d \
2606	to state %d\n", YYPREFIX, *yyssp, yystate);
2607	#endif
2608	if (yyssp >= yyss + yystacksize - 1)
2609	{
2610	goto yyoverflow;
2611	}
2612	*++yyssp = yystate;
2613	*++yyvsp = yyval;
2614	goto yyloop;
2615	yyoverflow:
2616	yyerror("yacc stack overflow");
2617	yyabort:
2618	return (1);
2619	yyaccept:
2620	return (0);
2621	}