calc.tab.c revision 1.7 1 1.5 christos /* $NetBSD: calc.tab.c,v 1.7 2026/01/18 16:41:29 christos Exp $ */
2 1.1 christos
3 1.1 christos /* original parser id follows */
4 1.1 christos /* yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93" */
5 1.2 christos /* (use YYMAJOR/YYMINOR for ifdefs dependent on parser version) */
6 1.1 christos
7 1.1 christos #define YYBYACC 1
8 1.5 christos #define YYMAJOR 2
9 1.5 christos #define YYMINOR 0
10 1.1 christos #define YYCHECK "yyyymmdd"
11 1.1 christos
12 1.1 christos #define YYEMPTY (-1)
13 1.1 christos #define yyclearin (yychar = YYEMPTY)
14 1.1 christos #define yyerrok (yyerrflag = 0)
15 1.1 christos #define YYRECOVERING() (yyerrflag != 0)
16 1.1 christos #define YYENOMEM (-2)
17 1.1 christos #define YYEOF 0
18 1.1 christos #undef YYBTYACC
19 1.1 christos #define YYBTYACC 0
20 1.1 christos #define YYDEBUGSTR YYPREFIX "debug"
21 1.1 christos
22 1.1 christos #ifndef yyparse
23 1.1 christos #define yyparse calc_parse
24 1.1 christos #endif /* yyparse */
25 1.1 christos
26 1.1 christos #ifndef yylex
27 1.1 christos #define yylex calc_lex
28 1.1 christos #endif /* yylex */
29 1.1 christos
30 1.1 christos #ifndef yyerror
31 1.1 christos #define yyerror calc_error
32 1.1 christos #endif /* yyerror */
33 1.1 christos
34 1.1 christos #ifndef yychar
35 1.1 christos #define yychar calc_char
36 1.1 christos #endif /* yychar */
37 1.1 christos
38 1.1 christos #ifndef yyval
39 1.1 christos #define yyval calc_val
40 1.1 christos #endif /* yyval */
41 1.1 christos
42 1.1 christos #ifndef yylval
43 1.1 christos #define yylval calc_lval
44 1.1 christos #endif /* yylval */
45 1.1 christos
46 1.1 christos #ifndef yydebug
47 1.1 christos #define yydebug calc_debug
48 1.1 christos #endif /* yydebug */
49 1.1 christos
50 1.1 christos #ifndef yynerrs
51 1.1 christos #define yynerrs calc_nerrs
52 1.1 christos #endif /* yynerrs */
53 1.1 christos
54 1.1 christos #ifndef yyerrflag
55 1.1 christos #define yyerrflag calc_errflag
56 1.1 christos #endif /* yyerrflag */
57 1.1 christos
58 1.1 christos #ifndef yylhs
59 1.1 christos #define yylhs calc_lhs
60 1.1 christos #endif /* yylhs */
61 1.1 christos
62 1.1 christos #ifndef yylen
63 1.1 christos #define yylen calc_len
64 1.1 christos #endif /* yylen */
65 1.1 christos
66 1.1 christos #ifndef yydefred
67 1.1 christos #define yydefred calc_defred
68 1.1 christos #endif /* yydefred */
69 1.1 christos
70 1.1 christos #ifndef yystos
71 1.1 christos #define yystos calc_stos
72 1.1 christos #endif /* yystos */
73 1.1 christos
74 1.1 christos #ifndef yydgoto
75 1.1 christos #define yydgoto calc_dgoto
76 1.1 christos #endif /* yydgoto */
77 1.1 christos
78 1.1 christos #ifndef yysindex
79 1.1 christos #define yysindex calc_sindex
80 1.1 christos #endif /* yysindex */
81 1.1 christos
82 1.1 christos #ifndef yyrindex
83 1.1 christos #define yyrindex calc_rindex
84 1.1 christos #endif /* yyrindex */
85 1.1 christos
86 1.1 christos #ifndef yygindex
87 1.1 christos #define yygindex calc_gindex
88 1.1 christos #endif /* yygindex */
89 1.1 christos
90 1.1 christos #ifndef yytable
91 1.1 christos #define yytable calc_table
92 1.1 christos #endif /* yytable */
93 1.1 christos
94 1.1 christos #ifndef yycheck
95 1.1 christos #define yycheck calc_check
96 1.1 christos #endif /* yycheck */
97 1.1 christos
98 1.1 christos #ifndef yyname
99 1.1 christos #define yyname calc_name
100 1.1 christos #endif /* yyname */
101 1.1 christos
102 1.1 christos #ifndef yyrule
103 1.1 christos #define yyrule calc_rule
104 1.1 christos #endif /* yyrule */
105 1.1 christos
106 1.1 christos #if YYBTYACC
107 1.1 christos
108 1.1 christos #ifndef yycindex
109 1.1 christos #define yycindex calc_cindex
110 1.1 christos #endif /* yycindex */
111 1.1 christos
112 1.1 christos #ifndef yyctable
113 1.1 christos #define yyctable calc_ctable
114 1.1 christos #endif /* yyctable */
115 1.1 christos
116 1.1 christos #endif /* YYBTYACC */
117 1.1 christos
118 1.1 christos #define YYPREFIX "calc_"
119 1.1 christos
120 1.1 christos #define YYPURE 0
121 1.1 christos
122 1.1 christos #line 2 "calc.y"
123 1.1 christos # include <stdio.h>
124 1.1 christos # include <ctype.h>
125 1.1 christos
126 1.1 christos int regs[26];
127 1.1 christos int base;
128 1.1 christos
129 1.1 christos extern int yylex(void);
130 1.1 christos static void yyerror(const char *s);
131 1.1 christos
132 1.1 christos #line 131 "calc.tab.c"
133 1.1 christos
134 1.1 christos #if ! defined(YYSTYPE) && ! defined(YYSTYPE_IS_DECLARED)
135 1.1 christos /* Default: YYSTYPE is the semantic value type. */
136 1.1 christos typedef int YYSTYPE;
137 1.1 christos # define YYSTYPE_IS_DECLARED 1
138 1.1 christos #endif
139 1.1 christos
140 1.1 christos /* compatibility with bison */
141 1.1 christos #ifdef YYPARSE_PARAM
142 1.1 christos /* compatibility with FreeBSD */
143 1.1 christos # ifdef YYPARSE_PARAM_TYPE
144 1.1 christos # define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM)
145 1.1 christos # else
146 1.1 christos # define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM)
147 1.1 christos # endif
148 1.1 christos #else
149 1.1 christos # define YYPARSE_DECL() yyparse(void)
150 1.1 christos #endif
151 1.1 christos
152 1.1 christos /* Parameters sent to lex. */
153 1.1 christos #ifdef YYLEX_PARAM
154 1.1 christos # define YYLEX_DECL() yylex(void *YYLEX_PARAM)
155 1.1 christos # define YYLEX yylex(YYLEX_PARAM)
156 1.1 christos #else
157 1.1 christos # define YYLEX_DECL() yylex(void)
158 1.1 christos # define YYLEX yylex()
159 1.1 christos #endif
160 1.1 christos
161 1.1 christos /* Parameters sent to yyerror. */
162 1.1 christos #ifndef YYERROR_DECL
163 1.1 christos #define YYERROR_DECL() yyerror(const char *s)
164 1.1 christos #endif
165 1.1 christos #ifndef YYERROR_CALL
166 1.1 christos #define YYERROR_CALL(msg) yyerror(msg)
167 1.1 christos #endif
168 1.1 christos
169 1.1 christos extern int YYPARSE_DECL();
170 1.1 christos
171 1.1 christos #define DIGIT 257
172 1.1 christos #define LETTER 258
173 1.1 christos #define UMINUS 259
174 1.1 christos #define YYERRCODE 256
175 1.6 christos typedef int YYINT;
176 1.1 christos static const YYINT calc_lhs[] = { -1,
177 1.1 christos 0, 0, 0, 1, 1, 2, 2, 2, 2, 2,
178 1.1 christos 2, 2, 2, 2, 2, 2, 3, 3,
179 1.1 christos };
180 1.1 christos static const YYINT calc_len[] = { 2,
181 1.1 christos 0, 3, 3, 1, 3, 3, 3, 3, 3, 3,
182 1.1 christos 3, 3, 3, 2, 1, 1, 1, 2,
183 1.1 christos };
184 1.1 christos static const YYINT calc_defred[] = { 1,
185 1.1 christos 0, 0, 17, 0, 0, 0, 0, 0, 0, 3,
186 1.1 christos 0, 15, 14, 0, 2, 0, 0, 0, 0, 0,
187 1.1 christos 0, 0, 18, 0, 6, 0, 0, 0, 0, 9,
188 1.1 christos 10, 11,
189 1.1 christos };
190 1.2 christos #if defined(YYDESTRUCT_CALL) || defined(YYSTYPE_TOSTRING)
191 1.1 christos static const YYINT calc_stos[] = { 0,
192 1.1 christos 261, 256, 257, 258, 45, 40, 262, 263, 264, 10,
193 1.1 christos 61, 258, 263, 263, 10, 124, 38, 43, 45, 42,
194 1.1 christos 47, 37, 257, 263, 41, 263, 263, 263, 263, 263,
195 1.1 christos 263, 263,
196 1.1 christos };
197 1.2 christos #endif /* YYDESTRUCT_CALL || YYSTYPE_TOSTRING */
198 1.1 christos static const YYINT calc_dgoto[] = { 1,
199 1.1 christos 7, 8, 9,
200 1.1 christos };
201 1.1 christos static const YYINT calc_sindex[] = { 0,
202 1.1 christos -40, -7, 0, -55, -38, -38, 1, -29, -247, 0,
203 1.1 christos -38, 0, 0, 22, 0, -38, -38, -38, -38, -38,
204 1.1 christos -38, -38, 0, -29, 0, 51, 60, -20, -20, 0,
205 1.1 christos 0, 0,
206 1.1 christos };
207 1.1 christos static const YYINT calc_rindex[] = { 0,
208 1.1 christos 0, 0, 0, 2, 0, 0, 0, 9, -9, 0,
209 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
210 1.1 christos 0, 0, 0, 10, 0, -6, 14, 5, 13, 0,
211 1.1 christos 0, 0,
212 1.1 christos };
213 1.1 christos #if YYBTYACC
214 1.1 christos static const YYINT calc_cindex[] = { 0,
215 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
216 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
217 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
218 1.1 christos 0, 0,
219 1.1 christos };
220 1.1 christos #endif
221 1.1 christos static const YYINT calc_gindex[] = { 0,
222 1.1 christos 0, 65, 0,
223 1.1 christos };
224 1.1 christos #define YYTABLESIZE 220
225 1.1 christos static const YYINT calc_table[] = { 6,
226 1.1 christos 16, 6, 10, 13, 5, 11, 5, 22, 17, 23,
227 1.1 christos 15, 15, 20, 18, 7, 19, 22, 21, 4, 5,
228 1.1 christos 0, 20, 8, 12, 0, 0, 21, 16, 16, 0,
229 1.1 christos 0, 16, 16, 16, 13, 16, 0, 16, 15, 15,
230 1.1 christos 0, 0, 7, 15, 15, 7, 15, 7, 15, 7,
231 1.1 christos 8, 12, 0, 8, 12, 8, 0, 8, 22, 17,
232 1.1 christos 0, 0, 25, 20, 18, 0, 19, 0, 21, 13,
233 1.1 christos 14, 0, 0, 0, 0, 24, 0, 0, 0, 0,
234 1.1 christos 26, 27, 28, 29, 30, 31, 32, 22, 17, 0,
235 1.1 christos 0, 0, 20, 18, 16, 19, 22, 21, 0, 0,
236 1.1 christos 0, 20, 18, 0, 19, 0, 21, 0, 0, 0,
237 1.1 christos 0, 0, 0, 0, 16, 0, 0, 13, 0, 0,
238 1.1 christos 0, 0, 0, 0, 0, 15, 0, 0, 7, 0,
239 1.1 christos 0, 0, 0, 0, 0, 0, 8, 12, 0, 0,
240 1.1 christos 0, 0, 0, 0, 0, 16, 0, 0, 0, 0,
241 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
242 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
243 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
244 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
245 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
246 1.1 christos 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
247 1.1 christos 0, 0, 0, 0, 0, 2, 3, 4, 3, 12,
248 1.1 christos };
249 1.1 christos static const YYINT calc_check[] = { 40,
250 1.1 christos 10, 40, 10, 10, 45, 61, 45, 37, 38, 257,
251 1.1 christos 10, 10, 42, 43, 10, 45, 37, 47, 10, 10,
252 1.1 christos -1, 42, 10, 10, -1, -1, 47, 37, 38, -1,
253 1.1 christos -1, 41, 42, 43, 41, 45, -1, 47, 37, 38,
254 1.1 christos -1, -1, 38, 42, 43, 41, 45, 43, 47, 45,
255 1.1 christos 38, 38, -1, 41, 41, 43, -1, 45, 37, 38,
256 1.1 christos -1, -1, 41, 42, 43, -1, 45, -1, 47, 5,
257 1.1 christos 6, -1, -1, -1, -1, 11, -1, -1, -1, -1,
258 1.1 christos 16, 17, 18, 19, 20, 21, 22, 37, 38, -1,
259 1.1 christos -1, -1, 42, 43, 124, 45, 37, 47, -1, -1,
260 1.1 christos -1, 42, 43, -1, 45, -1, 47, -1, -1, -1,
261 1.1 christos -1, -1, -1, -1, 124, -1, -1, 124, -1, -1,
262 1.1 christos -1, -1, -1, -1, -1, 124, -1, -1, 124, -1,
263 1.1 christos -1, -1, -1, -1, -1, -1, 124, 124, -1, -1,
264 1.1 christos -1, -1, -1, -1, -1, 124, -1, -1, -1, -1,
265 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
266 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
267 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
268 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
269 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
270 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
271 1.1 christos -1, -1, -1, -1, -1, 256, 257, 258, 257, 258,
272 1.1 christos };
273 1.1 christos #if YYBTYACC
274 1.1 christos static const YYINT calc_ctable[] = { -1,
275 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
276 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
277 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
278 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
279 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
280 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
281 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
282 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
283 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
284 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
285 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
286 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
287 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
288 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
289 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
290 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
291 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
292 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
293 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
294 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
295 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
296 1.1 christos -1, -1, -1, -1, -1, -1, -1, -1, -1,
297 1.1 christos };
298 1.1 christos #endif
299 1.1 christos #define YYFINAL 1
300 1.1 christos #ifndef YYDEBUG
301 1.1 christos #define YYDEBUG 0
302 1.1 christos #endif
303 1.1 christos #define YYMAXTOKEN 259
304 1.1 christos #define YYUNDFTOKEN 265
305 1.1 christos #define YYTRANSLATE(a) ((a) > YYMAXTOKEN ? YYUNDFTOKEN : (a))
306 1.1 christos #if YYDEBUG
307 1.7 christos #ifndef NULL
308 1.7 christos #define NULL (void*)0
309 1.7 christos #endif
310 1.1 christos static const char *const calc_name[] = {
311 1.1 christos
312 1.7 christos "$end",NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,"'\\n'",NULL,NULL,NULL,NULL,
313 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
314 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,"'%'","'&'",NULL,"'('","')'","'*'","'+'",NULL,
315 1.7 christos "'-'",NULL,"'/'",NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
316 1.7 christos NULL,"'='",NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
317 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
318 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
319 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
320 1.7 christos NULL,"'|'",NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
321 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
322 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
323 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
324 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
325 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
326 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
327 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
328 1.7 christos NULL,NULL,NULL,NULL,NULL,NULL,"error","DIGIT","LETTER","UMINUS","$accept",
329 1.7 christos "list","stat","expr","number","illegal-symbol",
330 1.1 christos };
331 1.1 christos static const char *const calc_rule[] = {
332 1.1 christos "$accept : list",
333 1.1 christos "list :",
334 1.1 christos "list : list stat '\\n'",
335 1.1 christos "list : list error '\\n'",
336 1.1 christos "stat : expr",
337 1.1 christos "stat : LETTER '=' expr",
338 1.1 christos "expr : '(' expr ')'",
339 1.1 christos "expr : expr '+' expr",
340 1.1 christos "expr : expr '-' expr",
341 1.1 christos "expr : expr '*' expr",
342 1.1 christos "expr : expr '/' expr",
343 1.1 christos "expr : expr '%' expr",
344 1.1 christos "expr : expr '&' expr",
345 1.1 christos "expr : expr '|' expr",
346 1.1 christos "expr : '-' expr",
347 1.1 christos "expr : LETTER",
348 1.1 christos "expr : number",
349 1.1 christos "number : DIGIT",
350 1.1 christos "number : number DIGIT",
351 1.1 christos
352 1.1 christos };
353 1.1 christos #endif
354 1.1 christos
355 1.4 christos #if YYDEBUG
356 1.1 christos int yydebug;
357 1.4 christos #endif
358 1.1 christos
359 1.1 christos int yyerrflag;
360 1.1 christos int yychar;
361 1.1 christos YYSTYPE yyval;
362 1.1 christos YYSTYPE yylval;
363 1.4 christos int yynerrs;
364 1.4 christos
365 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
366 1.1 christos YYLTYPE yyloc; /* position returned by actions */
367 1.1 christos YYLTYPE yylloc; /* position from the lexer */
368 1.1 christos #endif
369 1.1 christos
370 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
371 1.1 christos #ifndef YYLLOC_DEFAULT
372 1.1 christos #define YYLLOC_DEFAULT(loc, rhs, n) \
373 1.1 christos do \
374 1.1 christos { \
375 1.1 christos if (n == 0) \
376 1.1 christos { \
377 1.4 christos (loc).first_line = YYRHSLOC(rhs, 0).last_line; \
378 1.4 christos (loc).first_column = YYRHSLOC(rhs, 0).last_column; \
379 1.4 christos (loc).last_line = YYRHSLOC(rhs, 0).last_line; \
380 1.4 christos (loc).last_column = YYRHSLOC(rhs, 0).last_column; \
381 1.1 christos } \
382 1.1 christos else \
383 1.1 christos { \
384 1.4 christos (loc).first_line = YYRHSLOC(rhs, 1).first_line; \
385 1.4 christos (loc).first_column = YYRHSLOC(rhs, 1).first_column; \
386 1.4 christos (loc).last_line = YYRHSLOC(rhs, n).last_line; \
387 1.4 christos (loc).last_column = YYRHSLOC(rhs, n).last_column; \
388 1.1 christos } \
389 1.1 christos } while (0)
390 1.1 christos #endif /* YYLLOC_DEFAULT */
391 1.1 christos #endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */
392 1.1 christos #if YYBTYACC
393 1.1 christos
394 1.1 christos #ifndef YYLVQUEUEGROWTH
395 1.1 christos #define YYLVQUEUEGROWTH 32
396 1.1 christos #endif
397 1.1 christos #endif /* YYBTYACC */
398 1.1 christos
399 1.1 christos /* define the initial stack-sizes */
400 1.1 christos #ifdef YYSTACKSIZE
401 1.1 christos #undef YYMAXDEPTH
402 1.1 christos #define YYMAXDEPTH YYSTACKSIZE
403 1.1 christos #else
404 1.1 christos #ifdef YYMAXDEPTH
405 1.1 christos #define YYSTACKSIZE YYMAXDEPTH
406 1.1 christos #else
407 1.1 christos #define YYSTACKSIZE 10000
408 1.1 christos #define YYMAXDEPTH 10000
409 1.1 christos #endif
410 1.1 christos #endif
411 1.1 christos
412 1.1 christos #ifndef YYINITSTACKSIZE
413 1.1 christos #define YYINITSTACKSIZE 200
414 1.1 christos #endif
415 1.1 christos
416 1.1 christos typedef struct {
417 1.1 christos unsigned stacksize;
418 1.2 christos YYINT *s_base;
419 1.2 christos YYINT *s_mark;
420 1.2 christos YYINT *s_last;
421 1.1 christos YYSTYPE *l_base;
422 1.1 christos YYSTYPE *l_mark;
423 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
424 1.1 christos YYLTYPE *p_base;
425 1.1 christos YYLTYPE *p_mark;
426 1.1 christos #endif
427 1.1 christos } YYSTACKDATA;
428 1.1 christos #if YYBTYACC
429 1.1 christos
430 1.1 christos struct YYParseState_s
431 1.1 christos {
432 1.1 christos struct YYParseState_s *save; /* Previously saved parser state */
433 1.1 christos YYSTACKDATA yystack; /* saved parser stack */
434 1.1 christos int state; /* saved parser state */
435 1.1 christos int errflag; /* saved error recovery status */
436 1.1 christos int lexeme; /* saved index of the conflict lexeme in the lexical queue */
437 1.1 christos YYINT ctry; /* saved index in yyctable[] for this conflict */
438 1.1 christos };
439 1.1 christos typedef struct YYParseState_s YYParseState;
440 1.1 christos #endif /* YYBTYACC */
441 1.1 christos /* variables for the parser stack */
442 1.1 christos static YYSTACKDATA yystack;
443 1.1 christos #if YYBTYACC
444 1.1 christos
445 1.1 christos /* Current parser state */
446 1.7 christos static YYParseState *yyps = NULL;
447 1.1 christos
448 1.1 christos /* yypath != NULL: do the full parse, starting at *yypath parser state. */
449 1.7 christos static YYParseState *yypath = NULL;
450 1.1 christos
451 1.1 christos /* Base of the lexical value queue */
452 1.7 christos static YYSTYPE *yylvals = NULL;
453 1.1 christos
454 1.1 christos /* Current position at lexical value queue */
455 1.7 christos static YYSTYPE *yylvp = NULL;
456 1.1 christos
457 1.1 christos /* End position of lexical value queue */
458 1.7 christos static YYSTYPE *yylve = NULL;
459 1.1 christos
460 1.1 christos /* The last allocated position at the lexical value queue */
461 1.7 christos static YYSTYPE *yylvlim = NULL;
462 1.1 christos
463 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
464 1.1 christos /* Base of the lexical position queue */
465 1.7 christos static YYLTYPE *yylpsns = NULL;
466 1.1 christos
467 1.1 christos /* Current position at lexical position queue */
468 1.7 christos static YYLTYPE *yylpp = NULL;
469 1.1 christos
470 1.1 christos /* End position of lexical position queue */
471 1.7 christos static YYLTYPE *yylpe = NULL;
472 1.1 christos
473 1.1 christos /* The last allocated position at the lexical position queue */
474 1.7 christos static YYLTYPE *yylplim = NULL;
475 1.1 christos #endif
476 1.1 christos
477 1.1 christos /* Current position at lexical token queue */
478 1.7 christos static YYINT *yylexp = NULL;
479 1.1 christos
480 1.7 christos static YYINT *yylexemes = NULL;
481 1.1 christos #endif /* YYBTYACC */
482 1.1 christos #line 66 "calc.y"
483 1.1 christos /* start of programs */
484 1.1 christos
485 1.1 christos int
486 1.1 christos main (void)
487 1.1 christos {
488 1.1 christos while(!feof(stdin)) {
489 1.1 christos yyparse();
490 1.1 christos }
491 1.1 christos return 0;
492 1.1 christos }
493 1.1 christos
494 1.1 christos static void
495 1.1 christos yyerror(const char *s)
496 1.1 christos {
497 1.1 christos fprintf(stderr, "%s\n", s);
498 1.1 christos }
499 1.1 christos
500 1.1 christos int
501 1.1 christos yylex(void)
502 1.1 christos {
503 1.1 christos /* lexical analysis routine */
504 1.1 christos /* returns LETTER for a lower case letter, yylval = 0 through 25 */
505 1.1 christos /* return DIGIT for a digit, yylval = 0 through 9 */
506 1.1 christos /* all other characters are returned immediately */
507 1.1 christos
508 1.1 christos int c;
509 1.1 christos
510 1.1 christos while( (c=getchar()) == ' ' ) { /* skip blanks */ }
511 1.1 christos
512 1.1 christos /* c is now nonblank */
513 1.1 christos
514 1.1 christos if( islower( c )) {
515 1.1 christos yylval = c - 'a';
516 1.1 christos return ( LETTER );
517 1.1 christos }
518 1.1 christos if( isdigit( c )) {
519 1.1 christos yylval = c - '0';
520 1.1 christos return ( DIGIT );
521 1.1 christos }
522 1.1 christos return( c );
523 1.1 christos }
524 1.7 christos #line 523 "calc.tab.c"
525 1.1 christos
526 1.1 christos /* For use in generated program */
527 1.1 christos #define yydepth (int)(yystack.s_mark - yystack.s_base)
528 1.1 christos #if YYBTYACC
529 1.1 christos #define yytrial (yyps->save)
530 1.1 christos #endif /* YYBTYACC */
531 1.1 christos
532 1.1 christos #if YYDEBUG
533 1.2 christos #include <stdio.h> /* needed for printf */
534 1.1 christos #endif
535 1.1 christos
536 1.2 christos #include <stdlib.h> /* needed for malloc, etc */
537 1.2 christos #include <string.h> /* needed for memset */
538 1.1 christos
539 1.1 christos /* allocate initial stack or double stack size, up to YYMAXDEPTH */
540 1.1 christos static int yygrowstack(YYSTACKDATA *data)
541 1.1 christos {
542 1.1 christos int i;
543 1.1 christos unsigned newsize;
544 1.2 christos YYINT *newss;
545 1.1 christos YYSTYPE *newvs;
546 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
547 1.1 christos YYLTYPE *newps;
548 1.1 christos #endif
549 1.1 christos
550 1.1 christos if ((newsize = data->stacksize) == 0)
551 1.1 christos newsize = YYINITSTACKSIZE;
552 1.1 christos else if (newsize >= YYMAXDEPTH)
553 1.1 christos return YYENOMEM;
554 1.1 christos else if ((newsize *= 2) > YYMAXDEPTH)
555 1.1 christos newsize = YYMAXDEPTH;
556 1.1 christos
557 1.1 christos i = (int) (data->s_mark - data->s_base);
558 1.2 christos newss = (YYINT *)realloc(data->s_base, newsize * sizeof(*newss));
559 1.7 christos if (newss == NULL)
560 1.1 christos return YYENOMEM;
561 1.1 christos
562 1.1 christos data->s_base = newss;
563 1.1 christos data->s_mark = newss + i;
564 1.1 christos
565 1.1 christos newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs));
566 1.7 christos if (newvs == NULL)
567 1.1 christos return YYENOMEM;
568 1.1 christos
569 1.1 christos data->l_base = newvs;
570 1.1 christos data->l_mark = newvs + i;
571 1.1 christos
572 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
573 1.1 christos newps = (YYLTYPE *)realloc(data->p_base, newsize * sizeof(*newps));
574 1.7 christos if (newps == NULL)
575 1.1 christos return YYENOMEM;
576 1.1 christos
577 1.1 christos data->p_base = newps;
578 1.1 christos data->p_mark = newps + i;
579 1.1 christos #endif
580 1.1 christos
581 1.1 christos data->stacksize = newsize;
582 1.1 christos data->s_last = data->s_base + newsize - 1;
583 1.1 christos
584 1.1 christos #if YYDEBUG
585 1.1 christos if (yydebug)
586 1.1 christos fprintf(stderr, "%sdebug: stack size increased to %d\n", YYPREFIX, newsize);
587 1.1 christos #endif
588 1.1 christos return 0;
589 1.1 christos }
590 1.1 christos
591 1.1 christos #if YYPURE || defined(YY_NO_LEAKS)
592 1.1 christos static void yyfreestack(YYSTACKDATA *data)
593 1.1 christos {
594 1.1 christos free(data->s_base);
595 1.1 christos free(data->l_base);
596 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
597 1.1 christos free(data->p_base);
598 1.1 christos #endif
599 1.1 christos memset(data, 0, sizeof(*data));
600 1.1 christos }
601 1.1 christos #else
602 1.1 christos #define yyfreestack(data) /* nothing */
603 1.1 christos #endif /* YYPURE || defined(YY_NO_LEAKS) */
604 1.1 christos #if YYBTYACC
605 1.1 christos
606 1.1 christos static YYParseState *
607 1.1 christos yyNewState(unsigned size)
608 1.1 christos {
609 1.1 christos YYParseState *p = (YYParseState *) malloc(sizeof(YYParseState));
610 1.1 christos if (p == NULL) return NULL;
611 1.1 christos
612 1.1 christos p->yystack.stacksize = size;
613 1.1 christos if (size == 0)
614 1.1 christos {
615 1.1 christos p->yystack.s_base = NULL;
616 1.1 christos p->yystack.l_base = NULL;
617 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
618 1.1 christos p->yystack.p_base = NULL;
619 1.1 christos #endif
620 1.1 christos return p;
621 1.1 christos }
622 1.2 christos p->yystack.s_base = (YYINT *) malloc(size * sizeof(YYINT));
623 1.1 christos if (p->yystack.s_base == NULL) return NULL;
624 1.1 christos p->yystack.l_base = (YYSTYPE *) malloc(size * sizeof(YYSTYPE));
625 1.1 christos if (p->yystack.l_base == NULL) return NULL;
626 1.1 christos memset(p->yystack.l_base, 0, size * sizeof(YYSTYPE));
627 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
628 1.1 christos p->yystack.p_base = (YYLTYPE *) malloc(size * sizeof(YYLTYPE));
629 1.1 christos if (p->yystack.p_base == NULL) return NULL;
630 1.1 christos memset(p->yystack.p_base, 0, size * sizeof(YYLTYPE));
631 1.1 christos #endif
632 1.1 christos
633 1.1 christos return p;
634 1.1 christos }
635 1.1 christos
636 1.1 christos static void
637 1.1 christos yyFreeState(YYParseState *p)
638 1.1 christos {
639 1.1 christos yyfreestack(&p->yystack);
640 1.1 christos free(p);
641 1.1 christos }
642 1.1 christos #endif /* YYBTYACC */
643 1.1 christos
644 1.1 christos #define YYABORT goto yyabort
645 1.1 christos #define YYREJECT goto yyabort
646 1.1 christos #define YYACCEPT goto yyaccept
647 1.1 christos #define YYERROR goto yyerrlab
648 1.1 christos #if YYBTYACC
649 1.1 christos #define YYVALID do { if (yyps->save) goto yyvalid; } while(0)
650 1.1 christos #define YYVALID_NESTED do { if (yyps->save && \
651 1.1 christos yyps->save->save == 0) goto yyvalid; } while(0)
652 1.1 christos #endif /* YYBTYACC */
653 1.1 christos
654 1.1 christos int
655 1.1 christos YYPARSE_DECL()
656 1.1 christos {
657 1.1 christos int yym, yyn, yystate, yyresult;
658 1.1 christos #if YYBTYACC
659 1.1 christos int yynewerrflag;
660 1.1 christos YYParseState *yyerrctx = NULL;
661 1.1 christos #endif /* YYBTYACC */
662 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
663 1.4 christos YYLTYPE yyerror_loc_range[3]; /* position of error start/end (0 unused) */
664 1.1 christos #endif
665 1.1 christos #if YYDEBUG
666 1.1 christos const char *yys;
667 1.1 christos
668 1.7 christos if ((yys = getenv("YYDEBUG")) != NULL)
669 1.1 christos {
670 1.1 christos yyn = *yys;
671 1.1 christos if (yyn >= '0' && yyn <= '9')
672 1.1 christos yydebug = yyn - '0';
673 1.1 christos }
674 1.1 christos if (yydebug)
675 1.1 christos fprintf(stderr, "%sdebug[<# of symbols on state stack>]\n", YYPREFIX);
676 1.1 christos #endif
677 1.3 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
678 1.3 christos memset(yyerror_loc_range, 0, sizeof(yyerror_loc_range));
679 1.3 christos #endif
680 1.1 christos
681 1.1 christos #if YYBTYACC
682 1.7 christos yyps = yyNewState(0); if (yyps == NULL) goto yyenomem;
683 1.7 christos yyps->save = NULL;
684 1.1 christos #endif /* YYBTYACC */
685 1.2 christos yym = 0;
686 1.6 christos /* yyn is set below */
687 1.1 christos yynerrs = 0;
688 1.1 christos yyerrflag = 0;
689 1.1 christos yychar = YYEMPTY;
690 1.1 christos yystate = 0;
691 1.1 christos
692 1.1 christos #if YYPURE
693 1.1 christos memset(&yystack, 0, sizeof(yystack));
694 1.1 christos #endif
695 1.1 christos
696 1.1 christos if (yystack.s_base == NULL && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
697 1.1 christos yystack.s_mark = yystack.s_base;
698 1.1 christos yystack.l_mark = yystack.l_base;
699 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
700 1.1 christos yystack.p_mark = yystack.p_base;
701 1.1 christos #endif
702 1.1 christos yystate = 0;
703 1.1 christos *yystack.s_mark = 0;
704 1.1 christos
705 1.1 christos yyloop:
706 1.1 christos if ((yyn = yydefred[yystate]) != 0) goto yyreduce;
707 1.1 christos if (yychar < 0)
708 1.1 christos {
709 1.1 christos #if YYBTYACC
710 1.1 christos do {
711 1.1 christos if (yylvp < yylve)
712 1.1 christos {
713 1.1 christos /* we're currently re-reading tokens */
714 1.1 christos yylval = *yylvp++;
715 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
716 1.1 christos yylloc = *yylpp++;
717 1.1 christos #endif
718 1.1 christos yychar = *yylexp++;
719 1.1 christos break;
720 1.1 christos }
721 1.1 christos if (yyps->save)
722 1.1 christos {
723 1.1 christos /* in trial mode; save scanner results for future parse attempts */
724 1.1 christos if (yylvp == yylvlim)
725 1.1 christos { /* Enlarge lexical value queue */
726 1.1 christos size_t p = (size_t) (yylvp - yylvals);
727 1.1 christos size_t s = (size_t) (yylvlim - yylvals);
728 1.1 christos
729 1.1 christos s += YYLVQUEUEGROWTH;
730 1.4 christos if ((yylexemes = (YYINT *)realloc(yylexemes, s * sizeof(YYINT))) == NULL) goto yyenomem;
731 1.4 christos if ((yylvals = (YYSTYPE *)realloc(yylvals, s * sizeof(YYSTYPE))) == NULL) goto yyenomem;
732 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
733 1.4 christos if ((yylpsns = (YYLTYPE *)realloc(yylpsns, s * sizeof(YYLTYPE))) == NULL) goto yyenomem;
734 1.1 christos #endif
735 1.1 christos yylvp = yylve = yylvals + p;
736 1.1 christos yylvlim = yylvals + s;
737 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
738 1.1 christos yylpp = yylpe = yylpsns + p;
739 1.1 christos yylplim = yylpsns + s;
740 1.1 christos #endif
741 1.1 christos yylexp = yylexemes + p;
742 1.1 christos }
743 1.2 christos *yylexp = (YYINT) YYLEX;
744 1.1 christos *yylvp++ = yylval;
745 1.1 christos yylve++;
746 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
747 1.1 christos *yylpp++ = yylloc;
748 1.1 christos yylpe++;
749 1.1 christos #endif
750 1.1 christos yychar = *yylexp++;
751 1.1 christos break;
752 1.1 christos }
753 1.1 christos /* normal operation, no conflict encountered */
754 1.1 christos #endif /* YYBTYACC */
755 1.1 christos yychar = YYLEX;
756 1.1 christos #if YYBTYACC
757 1.1 christos } while (0);
758 1.1 christos #endif /* YYBTYACC */
759 1.1 christos if (yychar < 0) yychar = YYEOF;
760 1.1 christos #if YYDEBUG
761 1.1 christos if (yydebug)
762 1.1 christos {
763 1.2 christos if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
764 1.1 christos fprintf(stderr, "%s[%d]: state %d, reading token %d (%s)",
765 1.1 christos YYDEBUGSTR, yydepth, yystate, yychar, yys);
766 1.1 christos #ifdef YYSTYPE_TOSTRING
767 1.1 christos #if YYBTYACC
768 1.1 christos if (!yytrial)
769 1.1 christos #endif /* YYBTYACC */
770 1.1 christos fprintf(stderr, " <%s>", YYSTYPE_TOSTRING(yychar, yylval));
771 1.1 christos #endif
772 1.1 christos fputc('\n', stderr);
773 1.1 christos }
774 1.1 christos #endif
775 1.1 christos }
776 1.1 christos #if YYBTYACC
777 1.1 christos
778 1.1 christos /* Do we have a conflict? */
779 1.1 christos if (((yyn = yycindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
780 1.1 christos yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
781 1.1 christos {
782 1.1 christos YYINT ctry;
783 1.1 christos
784 1.1 christos if (yypath)
785 1.1 christos {
786 1.1 christos YYParseState *save;
787 1.1 christos #if YYDEBUG
788 1.1 christos if (yydebug)
789 1.1 christos fprintf(stderr, "%s[%d]: CONFLICT in state %d: following successful trial parse\n",
790 1.1 christos YYDEBUGSTR, yydepth, yystate);
791 1.1 christos #endif
792 1.1 christos /* Switch to the next conflict context */
793 1.1 christos save = yypath;
794 1.1 christos yypath = save->save;
795 1.1 christos save->save = NULL;
796 1.1 christos ctry = save->ctry;
797 1.1 christos if (save->state != yystate) YYABORT;
798 1.1 christos yyFreeState(save);
799 1.1 christos
800 1.1 christos }
801 1.1 christos else
802 1.1 christos {
803 1.1 christos
804 1.1 christos /* Unresolved conflict - start/continue trial parse */
805 1.1 christos YYParseState *save;
806 1.1 christos #if YYDEBUG
807 1.1 christos if (yydebug)
808 1.1 christos {
809 1.1 christos fprintf(stderr, "%s[%d]: CONFLICT in state %d. ", YYDEBUGSTR, yydepth, yystate);
810 1.1 christos if (yyps->save)
811 1.1 christos fputs("ALREADY in conflict, continuing trial parse.\n", stderr);
812 1.1 christos else
813 1.1 christos fputs("Starting trial parse.\n", stderr);
814 1.1 christos }
815 1.1 christos #endif
816 1.1 christos save = yyNewState((unsigned)(yystack.s_mark - yystack.s_base + 1));
817 1.1 christos if (save == NULL) goto yyenomem;
818 1.1 christos save->save = yyps->save;
819 1.1 christos save->state = yystate;
820 1.1 christos save->errflag = yyerrflag;
821 1.1 christos save->yystack.s_mark = save->yystack.s_base + (yystack.s_mark - yystack.s_base);
822 1.2 christos memcpy (save->yystack.s_base, yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT));
823 1.1 christos save->yystack.l_mark = save->yystack.l_base + (yystack.l_mark - yystack.l_base);
824 1.1 christos memcpy (save->yystack.l_base, yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE));
825 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
826 1.1 christos save->yystack.p_mark = save->yystack.p_base + (yystack.p_mark - yystack.p_base);
827 1.1 christos memcpy (save->yystack.p_base, yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE));
828 1.1 christos #endif
829 1.1 christos ctry = yytable[yyn];
830 1.1 christos if (yyctable[ctry] == -1)
831 1.1 christos {
832 1.1 christos #if YYDEBUG
833 1.1 christos if (yydebug && yychar >= YYEOF)
834 1.1 christos fprintf(stderr, "%s[%d]: backtracking 1 token\n", YYDEBUGSTR, yydepth);
835 1.1 christos #endif
836 1.1 christos ctry++;
837 1.1 christos }
838 1.1 christos save->ctry = ctry;
839 1.1 christos if (yyps->save == NULL)
840 1.1 christos {
841 1.1 christos /* If this is a first conflict in the stack, start saving lexemes */
842 1.1 christos if (!yylexemes)
843 1.1 christos {
844 1.4 christos yylexemes = (YYINT *) malloc((YYLVQUEUEGROWTH) * sizeof(YYINT));
845 1.1 christos if (yylexemes == NULL) goto yyenomem;
846 1.1 christos yylvals = (YYSTYPE *) malloc((YYLVQUEUEGROWTH) * sizeof(YYSTYPE));
847 1.1 christos if (yylvals == NULL) goto yyenomem;
848 1.1 christos yylvlim = yylvals + YYLVQUEUEGROWTH;
849 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
850 1.1 christos yylpsns = (YYLTYPE *) malloc((YYLVQUEUEGROWTH) * sizeof(YYLTYPE));
851 1.1 christos if (yylpsns == NULL) goto yyenomem;
852 1.1 christos yylplim = yylpsns + YYLVQUEUEGROWTH;
853 1.1 christos #endif
854 1.1 christos }
855 1.1 christos if (yylvp == yylve)
856 1.1 christos {
857 1.1 christos yylvp = yylve = yylvals;
858 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
859 1.1 christos yylpp = yylpe = yylpsns;
860 1.1 christos #endif
861 1.1 christos yylexp = yylexemes;
862 1.1 christos if (yychar >= YYEOF)
863 1.1 christos {
864 1.1 christos *yylve++ = yylval;
865 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
866 1.1 christos *yylpe++ = yylloc;
867 1.1 christos #endif
868 1.2 christos *yylexp = (YYINT) yychar;
869 1.1 christos yychar = YYEMPTY;
870 1.1 christos }
871 1.1 christos }
872 1.1 christos }
873 1.1 christos if (yychar >= YYEOF)
874 1.1 christos {
875 1.1 christos yylvp--;
876 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
877 1.1 christos yylpp--;
878 1.1 christos #endif
879 1.1 christos yylexp--;
880 1.1 christos yychar = YYEMPTY;
881 1.1 christos }
882 1.1 christos save->lexeme = (int) (yylvp - yylvals);
883 1.1 christos yyps->save = save;
884 1.1 christos }
885 1.1 christos if (yytable[yyn] == ctry)
886 1.1 christos {
887 1.1 christos #if YYDEBUG
888 1.1 christos if (yydebug)
889 1.1 christos fprintf(stderr, "%s[%d]: state %d, shifting to state %d\n",
890 1.1 christos YYDEBUGSTR, yydepth, yystate, yyctable[ctry]);
891 1.1 christos #endif
892 1.1 christos if (yychar < 0)
893 1.1 christos {
894 1.1 christos yylvp++;
895 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
896 1.1 christos yylpp++;
897 1.1 christos #endif
898 1.1 christos yylexp++;
899 1.1 christos }
900 1.1 christos if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM)
901 1.1 christos goto yyoverflow;
902 1.1 christos yystate = yyctable[ctry];
903 1.2 christos *++yystack.s_mark = (YYINT) yystate;
904 1.1 christos *++yystack.l_mark = yylval;
905 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
906 1.1 christos *++yystack.p_mark = yylloc;
907 1.1 christos #endif
908 1.1 christos yychar = YYEMPTY;
909 1.1 christos if (yyerrflag > 0) --yyerrflag;
910 1.1 christos goto yyloop;
911 1.1 christos }
912 1.1 christos else
913 1.1 christos {
914 1.1 christos yyn = yyctable[ctry];
915 1.1 christos goto yyreduce;
916 1.1 christos }
917 1.1 christos } /* End of code dealing with conflicts */
918 1.1 christos #endif /* YYBTYACC */
919 1.1 christos if (((yyn = yysindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
920 1.1 christos yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
921 1.1 christos {
922 1.1 christos #if YYDEBUG
923 1.1 christos if (yydebug)
924 1.1 christos fprintf(stderr, "%s[%d]: state %d, shifting to state %d\n",
925 1.1 christos YYDEBUGSTR, yydepth, yystate, yytable[yyn]);
926 1.1 christos #endif
927 1.1 christos if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
928 1.1 christos yystate = yytable[yyn];
929 1.1 christos *++yystack.s_mark = yytable[yyn];
930 1.1 christos *++yystack.l_mark = yylval;
931 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
932 1.1 christos *++yystack.p_mark = yylloc;
933 1.1 christos #endif
934 1.1 christos yychar = YYEMPTY;
935 1.1 christos if (yyerrflag > 0) --yyerrflag;
936 1.1 christos goto yyloop;
937 1.1 christos }
938 1.1 christos if (((yyn = yyrindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
939 1.1 christos yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
940 1.1 christos {
941 1.1 christos yyn = yytable[yyn];
942 1.1 christos goto yyreduce;
943 1.1 christos }
944 1.1 christos if (yyerrflag != 0) goto yyinrecovery;
945 1.1 christos #if YYBTYACC
946 1.1 christos
947 1.1 christos yynewerrflag = 1;
948 1.1 christos goto yyerrhandler;
949 1.2 christos goto yyerrlab; /* redundant goto avoids 'unused label' warning */
950 1.1 christos
951 1.1 christos yyerrlab:
952 1.2 christos /* explicit YYERROR from an action -- pop the rhs of the rule reduced
953 1.2 christos * before looking for error recovery */
954 1.2 christos yystack.s_mark -= yym;
955 1.2 christos yystate = *yystack.s_mark;
956 1.2 christos yystack.l_mark -= yym;
957 1.2 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
958 1.2 christos yystack.p_mark -= yym;
959 1.2 christos #endif
960 1.2 christos
961 1.1 christos yynewerrflag = 0;
962 1.1 christos yyerrhandler:
963 1.1 christos while (yyps->save)
964 1.1 christos {
965 1.1 christos int ctry;
966 1.1 christos YYParseState *save = yyps->save;
967 1.1 christos #if YYDEBUG
968 1.1 christos if (yydebug)
969 1.1 christos fprintf(stderr, "%s[%d]: ERROR in state %d, CONFLICT BACKTRACKING to state %d, %d tokens\n",
970 1.1 christos YYDEBUGSTR, yydepth, yystate, yyps->save->state,
971 1.1 christos (int)(yylvp - yylvals - yyps->save->lexeme));
972 1.1 christos #endif
973 1.1 christos /* Memorize most forward-looking error state in case it's really an error. */
974 1.1 christos if (yyerrctx == NULL || yyerrctx->lexeme < yylvp - yylvals)
975 1.1 christos {
976 1.1 christos /* Free old saved error context state */
977 1.1 christos if (yyerrctx) yyFreeState(yyerrctx);
978 1.1 christos /* Create and fill out new saved error context state */
979 1.1 christos yyerrctx = yyNewState((unsigned)(yystack.s_mark - yystack.s_base + 1));
980 1.1 christos if (yyerrctx == NULL) goto yyenomem;
981 1.1 christos yyerrctx->save = yyps->save;
982 1.1 christos yyerrctx->state = yystate;
983 1.1 christos yyerrctx->errflag = yyerrflag;
984 1.1 christos yyerrctx->yystack.s_mark = yyerrctx->yystack.s_base + (yystack.s_mark - yystack.s_base);
985 1.2 christos memcpy (yyerrctx->yystack.s_base, yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT));
986 1.1 christos yyerrctx->yystack.l_mark = yyerrctx->yystack.l_base + (yystack.l_mark - yystack.l_base);
987 1.1 christos memcpy (yyerrctx->yystack.l_base, yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE));
988 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
989 1.1 christos yyerrctx->yystack.p_mark = yyerrctx->yystack.p_base + (yystack.p_mark - yystack.p_base);
990 1.1 christos memcpy (yyerrctx->yystack.p_base, yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE));
991 1.1 christos #endif
992 1.1 christos yyerrctx->lexeme = (int) (yylvp - yylvals);
993 1.1 christos }
994 1.1 christos yylvp = yylvals + save->lexeme;
995 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
996 1.1 christos yylpp = yylpsns + save->lexeme;
997 1.1 christos #endif
998 1.1 christos yylexp = yylexemes + save->lexeme;
999 1.1 christos yychar = YYEMPTY;
1000 1.1 christos yystack.s_mark = yystack.s_base + (save->yystack.s_mark - save->yystack.s_base);
1001 1.2 christos memcpy (yystack.s_base, save->yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT));
1002 1.1 christos yystack.l_mark = yystack.l_base + (save->yystack.l_mark - save->yystack.l_base);
1003 1.1 christos memcpy (yystack.l_base, save->yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE));
1004 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1005 1.1 christos yystack.p_mark = yystack.p_base + (save->yystack.p_mark - save->yystack.p_base);
1006 1.1 christos memcpy (yystack.p_base, save->yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE));
1007 1.1 christos #endif
1008 1.1 christos ctry = ++save->ctry;
1009 1.1 christos yystate = save->state;
1010 1.1 christos /* We tried shift, try reduce now */
1011 1.1 christos if ((yyn = yyctable[ctry]) >= 0) goto yyreduce;
1012 1.1 christos yyps->save = save->save;
1013 1.1 christos save->save = NULL;
1014 1.1 christos yyFreeState(save);
1015 1.1 christos
1016 1.1 christos /* Nothing left on the stack -- error */
1017 1.1 christos if (!yyps->save)
1018 1.1 christos {
1019 1.1 christos #if YYDEBUG
1020 1.1 christos if (yydebug)
1021 1.1 christos fprintf(stderr, "%sdebug[%d,trial]: trial parse FAILED, entering ERROR mode\n",
1022 1.1 christos YYPREFIX, yydepth);
1023 1.1 christos #endif
1024 1.1 christos /* Restore state as it was in the most forward-advanced error */
1025 1.1 christos yylvp = yylvals + yyerrctx->lexeme;
1026 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1027 1.1 christos yylpp = yylpsns + yyerrctx->lexeme;
1028 1.1 christos #endif
1029 1.1 christos yylexp = yylexemes + yyerrctx->lexeme;
1030 1.1 christos yychar = yylexp[-1];
1031 1.1 christos yylval = yylvp[-1];
1032 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1033 1.1 christos yylloc = yylpp[-1];
1034 1.1 christos #endif
1035 1.1 christos yystack.s_mark = yystack.s_base + (yyerrctx->yystack.s_mark - yyerrctx->yystack.s_base);
1036 1.2 christos memcpy (yystack.s_base, yyerrctx->yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT));
1037 1.1 christos yystack.l_mark = yystack.l_base + (yyerrctx->yystack.l_mark - yyerrctx->yystack.l_base);
1038 1.1 christos memcpy (yystack.l_base, yyerrctx->yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE));
1039 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1040 1.1 christos yystack.p_mark = yystack.p_base + (yyerrctx->yystack.p_mark - yyerrctx->yystack.p_base);
1041 1.1 christos memcpy (yystack.p_base, yyerrctx->yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE));
1042 1.1 christos #endif
1043 1.1 christos yystate = yyerrctx->state;
1044 1.1 christos yyFreeState(yyerrctx);
1045 1.1 christos yyerrctx = NULL;
1046 1.1 christos }
1047 1.1 christos yynewerrflag = 1;
1048 1.1 christos }
1049 1.1 christos if (yynewerrflag == 0) goto yyinrecovery;
1050 1.1 christos #endif /* YYBTYACC */
1051 1.1 christos
1052 1.1 christos YYERROR_CALL("syntax error");
1053 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1054 1.4 christos yyerror_loc_range[1] = yylloc; /* lookahead position is error start position */
1055 1.1 christos #endif
1056 1.1 christos
1057 1.1 christos #if !YYBTYACC
1058 1.2 christos goto yyerrlab; /* redundant goto avoids 'unused label' warning */
1059 1.1 christos yyerrlab:
1060 1.1 christos #endif
1061 1.1 christos ++yynerrs;
1062 1.1 christos
1063 1.1 christos yyinrecovery:
1064 1.1 christos if (yyerrflag < 3)
1065 1.1 christos {
1066 1.1 christos yyerrflag = 3;
1067 1.1 christos for (;;)
1068 1.1 christos {
1069 1.1 christos if (((yyn = yysindex[*yystack.s_mark]) != 0) && (yyn += YYERRCODE) >= 0 &&
1070 1.1 christos yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) YYERRCODE)
1071 1.1 christos {
1072 1.1 christos #if YYDEBUG
1073 1.1 christos if (yydebug)
1074 1.1 christos fprintf(stderr, "%s[%d]: state %d, error recovery shifting to state %d\n",
1075 1.1 christos YYDEBUGSTR, yydepth, *yystack.s_mark, yytable[yyn]);
1076 1.1 christos #endif
1077 1.1 christos if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
1078 1.1 christos yystate = yytable[yyn];
1079 1.1 christos *++yystack.s_mark = yytable[yyn];
1080 1.1 christos *++yystack.l_mark = yylval;
1081 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1082 1.1 christos /* lookahead position is error end position */
1083 1.4 christos yyerror_loc_range[2] = yylloc;
1084 1.1 christos YYLLOC_DEFAULT(yyloc, yyerror_loc_range, 2); /* position of error span */
1085 1.1 christos *++yystack.p_mark = yyloc;
1086 1.1 christos #endif
1087 1.1 christos goto yyloop;
1088 1.1 christos }
1089 1.1 christos else
1090 1.1 christos {
1091 1.1 christos #if YYDEBUG
1092 1.1 christos if (yydebug)
1093 1.1 christos fprintf(stderr, "%s[%d]: error recovery discarding state %d\n",
1094 1.1 christos YYDEBUGSTR, yydepth, *yystack.s_mark);
1095 1.1 christos #endif
1096 1.1 christos if (yystack.s_mark <= yystack.s_base) goto yyabort;
1097 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1098 1.1 christos /* the current TOS position is the error start position */
1099 1.4 christos yyerror_loc_range[1] = *yystack.p_mark;
1100 1.1 christos #endif
1101 1.1 christos #if defined(YYDESTRUCT_CALL)
1102 1.1 christos #if YYBTYACC
1103 1.1 christos if (!yytrial)
1104 1.1 christos #endif /* YYBTYACC */
1105 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1106 1.1 christos YYDESTRUCT_CALL("error: discarding state",
1107 1.1 christos yystos[*yystack.s_mark], yystack.l_mark, yystack.p_mark);
1108 1.1 christos #else
1109 1.1 christos YYDESTRUCT_CALL("error: discarding state",
1110 1.1 christos yystos[*yystack.s_mark], yystack.l_mark);
1111 1.1 christos #endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */
1112 1.1 christos #endif /* defined(YYDESTRUCT_CALL) */
1113 1.1 christos --yystack.s_mark;
1114 1.1 christos --yystack.l_mark;
1115 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1116 1.1 christos --yystack.p_mark;
1117 1.1 christos #endif
1118 1.1 christos }
1119 1.1 christos }
1120 1.1 christos }
1121 1.1 christos else
1122 1.1 christos {
1123 1.1 christos if (yychar == YYEOF) goto yyabort;
1124 1.1 christos #if YYDEBUG
1125 1.1 christos if (yydebug)
1126 1.1 christos {
1127 1.2 christos if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
1128 1.1 christos fprintf(stderr, "%s[%d]: state %d, error recovery discarding token %d (%s)\n",
1129 1.1 christos YYDEBUGSTR, yydepth, yystate, yychar, yys);
1130 1.1 christos }
1131 1.1 christos #endif
1132 1.1 christos #if defined(YYDESTRUCT_CALL)
1133 1.1 christos #if YYBTYACC
1134 1.1 christos if (!yytrial)
1135 1.1 christos #endif /* YYBTYACC */
1136 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1137 1.1 christos YYDESTRUCT_CALL("error: discarding token", yychar, &yylval, &yylloc);
1138 1.1 christos #else
1139 1.1 christos YYDESTRUCT_CALL("error: discarding token", yychar, &yylval);
1140 1.1 christos #endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */
1141 1.1 christos #endif /* defined(YYDESTRUCT_CALL) */
1142 1.1 christos yychar = YYEMPTY;
1143 1.1 christos goto yyloop;
1144 1.1 christos }
1145 1.1 christos
1146 1.1 christos yyreduce:
1147 1.1 christos yym = yylen[yyn];
1148 1.1 christos #if YYDEBUG
1149 1.1 christos if (yydebug)
1150 1.1 christos {
1151 1.1 christos fprintf(stderr, "%s[%d]: state %d, reducing by rule %d (%s)",
1152 1.1 christos YYDEBUGSTR, yydepth, yystate, yyn, yyrule[yyn]);
1153 1.1 christos #ifdef YYSTYPE_TOSTRING
1154 1.1 christos #if YYBTYACC
1155 1.1 christos if (!yytrial)
1156 1.1 christos #endif /* YYBTYACC */
1157 1.1 christos if (yym > 0)
1158 1.1 christos {
1159 1.1 christos int i;
1160 1.1 christos fputc('<', stderr);
1161 1.1 christos for (i = yym; i > 0; i--)
1162 1.1 christos {
1163 1.1 christos if (i != yym) fputs(", ", stderr);
1164 1.1 christos fputs(YYSTYPE_TOSTRING(yystos[yystack.s_mark[1-i]],
1165 1.1 christos yystack.l_mark[1-i]), stderr);
1166 1.1 christos }
1167 1.1 christos fputc('>', stderr);
1168 1.1 christos }
1169 1.1 christos #endif
1170 1.1 christos fputc('\n', stderr);
1171 1.1 christos }
1172 1.1 christos #endif
1173 1.1 christos if (yym > 0)
1174 1.1 christos yyval = yystack.l_mark[1-yym];
1175 1.1 christos else
1176 1.1 christos memset(&yyval, 0, sizeof yyval);
1177 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1178 1.1 christos
1179 1.1 christos /* Perform position reduction */
1180 1.1 christos memset(&yyloc, 0, sizeof(yyloc));
1181 1.1 christos #if YYBTYACC
1182 1.1 christos if (!yytrial)
1183 1.1 christos #endif /* YYBTYACC */
1184 1.1 christos {
1185 1.4 christos YYLLOC_DEFAULT(yyloc, &yystack.p_mark[-yym], yym);
1186 1.1 christos /* just in case YYERROR is invoked within the action, save
1187 1.1 christos the start of the rhs as the error start position */
1188 1.4 christos yyerror_loc_range[1] = yystack.p_mark[1-yym];
1189 1.1 christos }
1190 1.1 christos #endif
1191 1.1 christos
1192 1.1 christos switch (yyn)
1193 1.1 christos {
1194 1.1 christos case 3:
1195 1.1 christos #line 28 "calc.y"
1196 1.1 christos { yyerrok ; }
1197 1.7 christos #line 1196 "calc.tab.c"
1198 1.1 christos break;
1199 1.1 christos case 4:
1200 1.1 christos #line 32 "calc.y"
1201 1.1 christos { printf("%d\n",yystack.l_mark[0]);}
1202 1.7 christos #line 1201 "calc.tab.c"
1203 1.1 christos break;
1204 1.1 christos case 5:
1205 1.1 christos #line 34 "calc.y"
1206 1.1 christos { regs[yystack.l_mark[-2]] = yystack.l_mark[0]; }
1207 1.7 christos #line 1206 "calc.tab.c"
1208 1.1 christos break;
1209 1.1 christos case 6:
1210 1.1 christos #line 38 "calc.y"
1211 1.1 christos { yyval = yystack.l_mark[-1]; }
1212 1.7 christos #line 1211 "calc.tab.c"
1213 1.1 christos break;
1214 1.1 christos case 7:
1215 1.1 christos #line 40 "calc.y"
1216 1.1 christos { yyval = yystack.l_mark[-2] + yystack.l_mark[0]; }
1217 1.7 christos #line 1216 "calc.tab.c"
1218 1.1 christos break;
1219 1.1 christos case 8:
1220 1.1 christos #line 42 "calc.y"
1221 1.1 christos { yyval = yystack.l_mark[-2] - yystack.l_mark[0]; }
1222 1.7 christos #line 1221 "calc.tab.c"
1223 1.1 christos break;
1224 1.1 christos case 9:
1225 1.1 christos #line 44 "calc.y"
1226 1.1 christos { yyval = yystack.l_mark[-2] * yystack.l_mark[0]; }
1227 1.7 christos #line 1226 "calc.tab.c"
1228 1.1 christos break;
1229 1.1 christos case 10:
1230 1.1 christos #line 46 "calc.y"
1231 1.1 christos { yyval = yystack.l_mark[-2] / yystack.l_mark[0]; }
1232 1.7 christos #line 1231 "calc.tab.c"
1233 1.1 christos break;
1234 1.1 christos case 11:
1235 1.1 christos #line 48 "calc.y"
1236 1.1 christos { yyval = yystack.l_mark[-2] % yystack.l_mark[0]; }
1237 1.7 christos #line 1236 "calc.tab.c"
1238 1.1 christos break;
1239 1.1 christos case 12:
1240 1.1 christos #line 50 "calc.y"
1241 1.1 christos { yyval = yystack.l_mark[-2] & yystack.l_mark[0]; }
1242 1.7 christos #line 1241 "calc.tab.c"
1243 1.1 christos break;
1244 1.1 christos case 13:
1245 1.1 christos #line 52 "calc.y"
1246 1.1 christos { yyval = yystack.l_mark[-2] | yystack.l_mark[0]; }
1247 1.7 christos #line 1246 "calc.tab.c"
1248 1.1 christos break;
1249 1.1 christos case 14:
1250 1.1 christos #line 54 "calc.y"
1251 1.1 christos { yyval = - yystack.l_mark[0]; }
1252 1.7 christos #line 1251 "calc.tab.c"
1253 1.1 christos break;
1254 1.1 christos case 15:
1255 1.1 christos #line 56 "calc.y"
1256 1.1 christos { yyval = regs[yystack.l_mark[0]]; }
1257 1.7 christos #line 1256 "calc.tab.c"
1258 1.1 christos break;
1259 1.1 christos case 17:
1260 1.1 christos #line 61 "calc.y"
1261 1.1 christos { yyval = yystack.l_mark[0]; base = (yystack.l_mark[0]==0) ? 8 : 10; }
1262 1.7 christos #line 1261 "calc.tab.c"
1263 1.1 christos break;
1264 1.1 christos case 18:
1265 1.1 christos #line 63 "calc.y"
1266 1.1 christos { yyval = base * yystack.l_mark[-1] + yystack.l_mark[0]; }
1267 1.7 christos #line 1266 "calc.tab.c"
1268 1.1 christos break;
1269 1.7 christos #line 1268 "calc.tab.c"
1270 1.1 christos default:
1271 1.1 christos break;
1272 1.1 christos }
1273 1.1 christos yystack.s_mark -= yym;
1274 1.1 christos yystate = *yystack.s_mark;
1275 1.1 christos yystack.l_mark -= yym;
1276 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1277 1.1 christos yystack.p_mark -= yym;
1278 1.1 christos #endif
1279 1.1 christos yym = yylhs[yyn];
1280 1.1 christos if (yystate == 0 && yym == 0)
1281 1.1 christos {
1282 1.1 christos #if YYDEBUG
1283 1.1 christos if (yydebug)
1284 1.1 christos {
1285 1.1 christos fprintf(stderr, "%s[%d]: after reduction, ", YYDEBUGSTR, yydepth);
1286 1.1 christos #ifdef YYSTYPE_TOSTRING
1287 1.1 christos #if YYBTYACC
1288 1.1 christos if (!yytrial)
1289 1.1 christos #endif /* YYBTYACC */
1290 1.1 christos fprintf(stderr, "result is <%s>, ", YYSTYPE_TOSTRING(yystos[YYFINAL], yyval));
1291 1.1 christos #endif
1292 1.1 christos fprintf(stderr, "shifting from state 0 to final state %d\n", YYFINAL);
1293 1.1 christos }
1294 1.1 christos #endif
1295 1.1 christos yystate = YYFINAL;
1296 1.1 christos *++yystack.s_mark = YYFINAL;
1297 1.1 christos *++yystack.l_mark = yyval;
1298 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1299 1.1 christos *++yystack.p_mark = yyloc;
1300 1.1 christos #endif
1301 1.1 christos if (yychar < 0)
1302 1.1 christos {
1303 1.1 christos #if YYBTYACC
1304 1.1 christos do {
1305 1.1 christos if (yylvp < yylve)
1306 1.1 christos {
1307 1.1 christos /* we're currently re-reading tokens */
1308 1.1 christos yylval = *yylvp++;
1309 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1310 1.1 christos yylloc = *yylpp++;
1311 1.1 christos #endif
1312 1.1 christos yychar = *yylexp++;
1313 1.1 christos break;
1314 1.1 christos }
1315 1.1 christos if (yyps->save)
1316 1.1 christos {
1317 1.1 christos /* in trial mode; save scanner results for future parse attempts */
1318 1.1 christos if (yylvp == yylvlim)
1319 1.1 christos { /* Enlarge lexical value queue */
1320 1.1 christos size_t p = (size_t) (yylvp - yylvals);
1321 1.1 christos size_t s = (size_t) (yylvlim - yylvals);
1322 1.1 christos
1323 1.1 christos s += YYLVQUEUEGROWTH;
1324 1.4 christos if ((yylexemes = (YYINT *)realloc(yylexemes, s * sizeof(YYINT))) == NULL)
1325 1.1 christos goto yyenomem;
1326 1.4 christos if ((yylvals = (YYSTYPE *)realloc(yylvals, s * sizeof(YYSTYPE))) == NULL)
1327 1.1 christos goto yyenomem;
1328 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1329 1.4 christos if ((yylpsns = (YYLTYPE *)realloc(yylpsns, s * sizeof(YYLTYPE))) == NULL)
1330 1.1 christos goto yyenomem;
1331 1.1 christos #endif
1332 1.1 christos yylvp = yylve = yylvals + p;
1333 1.1 christos yylvlim = yylvals + s;
1334 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1335 1.1 christos yylpp = yylpe = yylpsns + p;
1336 1.1 christos yylplim = yylpsns + s;
1337 1.1 christos #endif
1338 1.1 christos yylexp = yylexemes + p;
1339 1.1 christos }
1340 1.2 christos *yylexp = (YYINT) YYLEX;
1341 1.1 christos *yylvp++ = yylval;
1342 1.1 christos yylve++;
1343 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1344 1.1 christos *yylpp++ = yylloc;
1345 1.1 christos yylpe++;
1346 1.1 christos #endif
1347 1.1 christos yychar = *yylexp++;
1348 1.1 christos break;
1349 1.1 christos }
1350 1.1 christos /* normal operation, no conflict encountered */
1351 1.1 christos #endif /* YYBTYACC */
1352 1.1 christos yychar = YYLEX;
1353 1.1 christos #if YYBTYACC
1354 1.1 christos } while (0);
1355 1.1 christos #endif /* YYBTYACC */
1356 1.1 christos if (yychar < 0) yychar = YYEOF;
1357 1.1 christos #if YYDEBUG
1358 1.1 christos if (yydebug)
1359 1.1 christos {
1360 1.2 christos if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
1361 1.2 christos fprintf(stderr, "%s[%d]: state %d, reading token %d (%s)\n",
1362 1.1 christos YYDEBUGSTR, yydepth, YYFINAL, yychar, yys);
1363 1.1 christos }
1364 1.1 christos #endif
1365 1.1 christos }
1366 1.1 christos if (yychar == YYEOF) goto yyaccept;
1367 1.1 christos goto yyloop;
1368 1.1 christos }
1369 1.1 christos if (((yyn = yygindex[yym]) != 0) && (yyn += yystate) >= 0 &&
1370 1.1 christos yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yystate)
1371 1.1 christos yystate = yytable[yyn];
1372 1.1 christos else
1373 1.1 christos yystate = yydgoto[yym];
1374 1.1 christos #if YYDEBUG
1375 1.1 christos if (yydebug)
1376 1.1 christos {
1377 1.1 christos fprintf(stderr, "%s[%d]: after reduction, ", YYDEBUGSTR, yydepth);
1378 1.1 christos #ifdef YYSTYPE_TOSTRING
1379 1.1 christos #if YYBTYACC
1380 1.1 christos if (!yytrial)
1381 1.1 christos #endif /* YYBTYACC */
1382 1.1 christos fprintf(stderr, "result is <%s>, ", YYSTYPE_TOSTRING(yystos[yystate], yyval));
1383 1.1 christos #endif
1384 1.1 christos fprintf(stderr, "shifting from state %d to state %d\n", *yystack.s_mark, yystate);
1385 1.1 christos }
1386 1.1 christos #endif
1387 1.1 christos if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
1388 1.2 christos *++yystack.s_mark = (YYINT) yystate;
1389 1.1 christos *++yystack.l_mark = yyval;
1390 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1391 1.1 christos *++yystack.p_mark = yyloc;
1392 1.1 christos #endif
1393 1.1 christos goto yyloop;
1394 1.1 christos #if YYBTYACC
1395 1.1 christos
1396 1.1 christos /* Reduction declares that this path is valid. Set yypath and do a full parse */
1397 1.1 christos yyvalid:
1398 1.1 christos if (yypath) YYABORT;
1399 1.1 christos while (yyps->save)
1400 1.1 christos {
1401 1.1 christos YYParseState *save = yyps->save;
1402 1.1 christos yyps->save = save->save;
1403 1.1 christos save->save = yypath;
1404 1.1 christos yypath = save;
1405 1.1 christos }
1406 1.1 christos #if YYDEBUG
1407 1.1 christos if (yydebug)
1408 1.1 christos fprintf(stderr, "%s[%d]: state %d, CONFLICT trial successful, backtracking to state %d, %d tokens\n",
1409 1.1 christos YYDEBUGSTR, yydepth, yystate, yypath->state, (int)(yylvp - yylvals - yypath->lexeme));
1410 1.1 christos #endif
1411 1.1 christos if (yyerrctx)
1412 1.1 christos {
1413 1.1 christos yyFreeState(yyerrctx);
1414 1.1 christos yyerrctx = NULL;
1415 1.1 christos }
1416 1.1 christos yylvp = yylvals + yypath->lexeme;
1417 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1418 1.1 christos yylpp = yylpsns + yypath->lexeme;
1419 1.1 christos #endif
1420 1.1 christos yylexp = yylexemes + yypath->lexeme;
1421 1.1 christos yychar = YYEMPTY;
1422 1.1 christos yystack.s_mark = yystack.s_base + (yypath->yystack.s_mark - yypath->yystack.s_base);
1423 1.2 christos memcpy (yystack.s_base, yypath->yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT));
1424 1.1 christos yystack.l_mark = yystack.l_base + (yypath->yystack.l_mark - yypath->yystack.l_base);
1425 1.1 christos memcpy (yystack.l_base, yypath->yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE));
1426 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1427 1.1 christos yystack.p_mark = yystack.p_base + (yypath->yystack.p_mark - yypath->yystack.p_base);
1428 1.1 christos memcpy (yystack.p_base, yypath->yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE));
1429 1.1 christos #endif
1430 1.1 christos yystate = yypath->state;
1431 1.1 christos goto yyloop;
1432 1.1 christos #endif /* YYBTYACC */
1433 1.1 christos
1434 1.1 christos yyoverflow:
1435 1.1 christos YYERROR_CALL("yacc stack overflow");
1436 1.1 christos #if YYBTYACC
1437 1.1 christos goto yyabort_nomem;
1438 1.1 christos yyenomem:
1439 1.1 christos YYERROR_CALL("memory exhausted");
1440 1.1 christos yyabort_nomem:
1441 1.1 christos #endif /* YYBTYACC */
1442 1.1 christos yyresult = 2;
1443 1.1 christos goto yyreturn;
1444 1.1 christos
1445 1.1 christos yyabort:
1446 1.1 christos yyresult = 1;
1447 1.1 christos goto yyreturn;
1448 1.1 christos
1449 1.1 christos yyaccept:
1450 1.1 christos #if YYBTYACC
1451 1.1 christos if (yyps->save) goto yyvalid;
1452 1.1 christos #endif /* YYBTYACC */
1453 1.1 christos yyresult = 0;
1454 1.1 christos
1455 1.1 christos yyreturn:
1456 1.1 christos #if defined(YYDESTRUCT_CALL)
1457 1.1 christos if (yychar != YYEOF && yychar != YYEMPTY)
1458 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1459 1.1 christos YYDESTRUCT_CALL("cleanup: discarding token", yychar, &yylval, &yylloc);
1460 1.1 christos #else
1461 1.1 christos YYDESTRUCT_CALL("cleanup: discarding token", yychar, &yylval);
1462 1.1 christos #endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */
1463 1.1 christos
1464 1.1 christos {
1465 1.1 christos YYSTYPE *pv;
1466 1.1 christos #if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED)
1467 1.1 christos YYLTYPE *pp;
1468 1.1 christos
1469 1.1 christos for (pv = yystack.l_base, pp = yystack.p_base; pv <= yystack.l_mark; ++pv, ++pp)
1470 1.1 christos YYDESTRUCT_CALL("cleanup: discarding state",
1471 1.1 christos yystos[*(yystack.s_base + (pv - yystack.l_base))], pv, pp);
1472 1.1 christos #else
1473 1.1 christos for (pv = yystack.l_base; pv <= yystack.l_mark; ++pv)
1474 1.1 christos YYDESTRUCT_CALL("cleanup: discarding state",
1475 1.1 christos yystos[*(yystack.s_base + (pv - yystack.l_base))], pv);
1476 1.1 christos #endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */
1477 1.1 christos }
1478 1.1 christos #endif /* defined(YYDESTRUCT_CALL) */
1479 1.1 christos
1480 1.1 christos #if YYBTYACC
1481 1.1 christos if (yyerrctx)
1482 1.1 christos {
1483 1.1 christos yyFreeState(yyerrctx);
1484 1.1 christos yyerrctx = NULL;
1485 1.1 christos }
1486 1.1 christos while (yyps)
1487 1.1 christos {
1488 1.1 christos YYParseState *save = yyps;
1489 1.1 christos yyps = save->save;
1490 1.1 christos save->save = NULL;
1491 1.1 christos yyFreeState(save);
1492 1.1 christos }
1493 1.1 christos while (yypath)
1494 1.1 christos {
1495 1.1 christos YYParseState *save = yypath;
1496 1.1 christos yypath = save->save;
1497 1.1 christos save->save = NULL;
1498 1.1 christos yyFreeState(save);
1499 1.1 christos }
1500 1.1 christos #endif /* YYBTYACC */
1501 1.1 christos yyfreestack(&yystack);
1502 1.1 christos return (yyresult);
1503 1.1 christos }
1504