fixed for newer perl
[tridge/junkcode.git] / rpcalc.tab.c
1
2 /*  A Bison parser, made from rpcalc.y
3  by  GNU Bison version 1.27
4   */
5
6 #define YYBISON 1  /* Identify Bison output.  */
7
8 #define NUM     257
9
10 #line 3 "rpcalc.y"
11
12      #define YYSTYPE double
13      #include <math.h>
14      #ifndef YYSTYPE
15 #define YYSTYPE int
16 #endif
17 #include <stdio.h>
18
19 #ifndef __cplusplus
20 #ifndef __STDC__
21 #define const
22 #endif
23 #endif
24
25
26
27 #define YYFINAL         15
28 #define YYFLAG          -32768
29 #define YYNTBASE        11
30
31 #define YYTRANSLATE(x) ((unsigned)(x) <= 257 ? yytranslate[x] : 14)
32
33 static const char yytranslate[] = {     0,
34      2,     2,     2,     2,     2,     2,     2,     2,     2,     4,
35      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
36      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
37      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
38      2,     7,     5,     2,     6,     2,     8,     2,     2,     2,
39      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
40      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
41      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
42      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
43      2,     2,     2,     9,     2,     2,     2,     2,     2,     2,
44      2,     2,     2,     2,     2,     2,     2,     2,     2,    10,
45      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
46      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
47      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
48      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
49      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
50      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
51      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
52      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
53      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
54      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
55      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
56      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
57      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
58      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
59      2,     2,     2,     2,     2,     1,     3
60 };
61
62 #if YYDEBUG != 0
63 static const short yyprhs[] = {     0,
64      0,     1,     4,     6,     9,    11,    15,    19,    23,    27,
65     31
66 };
67
68 static const short yyrhs[] = {    -1,
69     11,    12,     0,     4,     0,    13,     4,     0,     3,     0,
70     13,    13,     5,     0,    13,    13,     6,     0,    13,    13,
71      7,     0,    13,    13,     8,     0,    13,    13,     9,     0,
72     13,    10,     0
73 };
74
75 #endif
76
77 #if YYDEBUG != 0
78 static const short yyrline[] = { 0,
79     11,    12,    15,    16,    19,    20,    21,    22,    23,    25,
80     27
81 };
82 #endif
83
84
85 #if YYDEBUG != 0 || defined (YYERROR_VERBOSE)
86
87 static const char * const yytname[] = {   "$","error","$undefined.","NUM","'\\n'",
88 "'+'","'-'","'*'","'/'","'^'","'n'","input","line","exp", NULL
89 };
90 #endif
91
92 static const short yyr1[] = {     0,
93     11,    11,    12,    12,    13,    13,    13,    13,    13,    13,
94     13
95 };
96
97 static const short yyr2[] = {     0,
98      0,     2,     1,     2,     1,     3,     3,     3,     3,     3,
99      2
100 };
101
102 static const short yydefact[] = {     1,
103      0,     5,     3,     2,     0,     4,    11,     0,     6,     7,
104      8,     9,    10,     0,     0
105 };
106
107 static const short yydefgoto[] = {     1,
108      4,     8
109 };
110
111 static const short yypact[] = {-32768,
112     10,-32768,-32768,-32768,     5,-32768,-32768,    -3,-32768,-32768,
113 -32768,-32768,-32768,     1,-32768
114 };
115
116 static const short yypgoto[] = {-32768,
117 -32768,    11
118 };
119
120
121 #define YYLAST          15
122
123
124 static const short yytable[] = {     2,
125     15,     9,    10,    11,    12,    13,     7,     2,     6,    14,
126      0,     5,     2,     3,     7
127 };
128
129 static const short yycheck[] = {     3,
130      0,     5,     6,     7,     8,     9,    10,     3,     4,     0,
131     -1,     1,     3,     4,    10
132 };
133 /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
134 #line 3 "/usr/lib/bison.simple"
135 /* This file comes from bison-1.27.  */
136
137 /* Skeleton output parser for bison,
138    Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
139
140    This program is free software; you can redistribute it and/or modify
141    it under the terms of the GNU General Public License as published by
142    the Free Software Foundation; either version 2, or (at your option)
143    any later version.
144
145    This program is distributed in the hope that it will be useful,
146    but WITHOUT ANY WARRANTY; without even the implied warranty of
147    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
148    GNU General Public License for more details.
149
150    You should have received a copy of the GNU General Public License
151    along with this program; if not, write to the Free Software
152    Foundation, Inc., 59 Temple Place - Suite 330,
153    Boston, MA 02111-1307, USA.  */
154
155 /* As a special exception, when this file is copied by Bison into a
156    Bison output file, you may use that output file without restriction.
157    This special exception was added by the Free Software Foundation
158    in version 1.24 of Bison.  */
159
160 /* This is the parser code that is written into each bison parser
161   when the %semantic_parser declaration is not specified in the grammar.
162   It was written by Richard Stallman by simplifying the hairy parser
163   used when %semantic_parser is specified.  */
164
165 #ifndef YYSTACK_USE_ALLOCA
166 #ifdef alloca
167 #define YYSTACK_USE_ALLOCA
168 #else /* alloca not defined */
169 #ifdef __GNUC__
170 #define YYSTACK_USE_ALLOCA
171 #define alloca __builtin_alloca
172 #else /* not GNU C.  */
173 #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
174 #define YYSTACK_USE_ALLOCA
175 #include <alloca.h>
176 #else /* not sparc */
177 /* We think this test detects Watcom and Microsoft C.  */
178 /* This used to test MSDOS, but that is a bad idea
179    since that symbol is in the user namespace.  */
180 #if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
181 #if 0 /* No need for malloc.h, which pollutes the namespace;
182          instead, just don't use alloca.  */
183 #include <malloc.h>
184 #endif
185 #else /* not MSDOS, or __TURBOC__ */
186 #if defined(_AIX)
187 /* I don't know what this was needed for, but it pollutes the namespace.
188    So I turned it off.   rms, 2 May 1997.  */
189 /* #include <malloc.h>  */
190  #pragma alloca
191 #define YYSTACK_USE_ALLOCA
192 #else /* not MSDOS, or __TURBOC__, or _AIX */
193 #if 0
194 #ifdef __hpux /* haible@ilog.fr says this works for HPUX 9.05 and up,
195                  and on HPUX 10.  Eventually we can turn this on.  */
196 #define YYSTACK_USE_ALLOCA
197 #define alloca __builtin_alloca
198 #endif /* __hpux */
199 #endif
200 #endif /* not _AIX */
201 #endif /* not MSDOS, or __TURBOC__ */
202 #endif /* not sparc */
203 #endif /* not GNU C */
204 #endif /* alloca not defined */
205 #endif /* YYSTACK_USE_ALLOCA not defined */
206
207 #ifdef YYSTACK_USE_ALLOCA
208 #define YYSTACK_ALLOC alloca
209 #else
210 #define YYSTACK_ALLOC malloc
211 #endif
212
213 /* Note: there must be only one dollar sign in this file.
214    It is replaced by the list of actions, each action
215    as one case of the switch.  */
216
217 #define yyerrok         (yyerrstatus = 0)
218 #define yyclearin       (yychar = YYEMPTY)
219 #define YYEMPTY         -2
220 #define YYEOF           0
221 #define YYACCEPT        goto yyacceptlab
222 #define YYABORT         goto yyabortlab
223 #define YYERROR         goto yyerrlab1
224 /* Like YYERROR except do call yyerror.
225    This remains here temporarily to ease the
226    transition to the new meaning of YYERROR, for GCC.
227    Once GCC version 2 has supplanted version 1, this can go.  */
228 #define YYFAIL          goto yyerrlab
229 #define YYRECOVERING()  (!!yyerrstatus)
230 #define YYBACKUP(token, value) \
231 do                                                              \
232   if (yychar == YYEMPTY && yylen == 1)                          \
233     { yychar = (token), yylval = (value);                       \
234       yychar1 = YYTRANSLATE (yychar);                           \
235       YYPOPSTACK;                                               \
236       goto yybackup;                                            \
237     }                                                           \
238   else                                                          \
239     { yyerror ("syntax error: cannot back up"); YYERROR; }      \
240 while (0)
241
242 #define YYTERROR        1
243 #define YYERRCODE       256
244
245 #ifndef YYPURE
246 #define YYLEX           yylex()
247 #endif
248
249 #ifdef YYPURE
250 #ifdef YYLSP_NEEDED
251 #ifdef YYLEX_PARAM
252 #define YYLEX           yylex(&yylval, &yylloc, YYLEX_PARAM)
253 #else
254 #define YYLEX           yylex(&yylval, &yylloc)
255 #endif
256 #else /* not YYLSP_NEEDED */
257 #ifdef YYLEX_PARAM
258 #define YYLEX           yylex(&yylval, YYLEX_PARAM)
259 #else
260 #define YYLEX           yylex(&yylval)
261 #endif
262 #endif /* not YYLSP_NEEDED */
263 #endif
264
265 /* If nonreentrant, generate the variables here */
266
267 #ifndef YYPURE
268
269 int     yychar;                 /*  the lookahead symbol                */
270 YYSTYPE yylval;                 /*  the semantic value of the           */
271                                 /*  lookahead symbol                    */
272
273 #ifdef YYLSP_NEEDED
274 YYLTYPE yylloc;                 /*  location data for the lookahead     */
275                                 /*  symbol                              */
276 #endif
277
278 int yynerrs;                    /*  number of parse errors so far       */
279 #endif  /* not YYPURE */
280
281 #if YYDEBUG != 0
282 int yydebug;                    /*  nonzero means print parse trace     */
283 /* Since this is uninitialized, it does not stop multiple parsers
284    from coexisting.  */
285 #endif
286
287 /*  YYINITDEPTH indicates the initial size of the parser's stacks       */
288
289 #ifndef YYINITDEPTH
290 #define YYINITDEPTH 200
291 #endif
292
293 /*  YYMAXDEPTH is the maximum size the stacks can grow to
294     (effective only if the built-in stack extension method is used).  */
295
296 #if YYMAXDEPTH == 0
297 #undef YYMAXDEPTH
298 #endif
299
300 #ifndef YYMAXDEPTH
301 #define YYMAXDEPTH 10000
302 #endif
303 \f
304 /* Define __yy_memcpy.  Note that the size argument
305    should be passed with type unsigned int, because that is what the non-GCC
306    definitions require.  With GCC, __builtin_memcpy takes an arg
307    of type size_t, but it can handle unsigned int.  */
308
309 #if __GNUC__ > 1                /* GNU C and GNU C++ define this.  */
310 #define __yy_memcpy(TO,FROM,COUNT)      __builtin_memcpy(TO,FROM,COUNT)
311 #else                           /* not GNU C or C++ */
312 #ifndef __cplusplus
313
314 /* This is the most reliable way to avoid incompatibilities
315    in available built-in functions on various systems.  */
316 static void
317 __yy_memcpy (to, from, count)
318      char *to;
319      char *from;
320      unsigned int count;
321 {
322   register char *f = from;
323   register char *t = to;
324   register int i = count;
325
326   while (i-- > 0)
327     *t++ = *f++;
328 }
329
330 #else /* __cplusplus */
331
332 /* This is the most reliable way to avoid incompatibilities
333    in available built-in functions on various systems.  */
334 static void
335 __yy_memcpy (char *to, char *from, unsigned int count)
336 {
337   register char *t = to;
338   register char *f = from;
339   register int i = count;
340
341   while (i-- > 0)
342     *t++ = *f++;
343 }
344
345 #endif
346 #endif
347 \f
348 #line 216 "/usr/lib/bison.simple"
349
350 /* The user can define YYPARSE_PARAM as the name of an argument to be passed
351    into yyparse.  The argument should have type void *.
352    It should actually point to an object.
353    Grammar actions can access the variable by casting it
354    to the proper pointer type.  */
355
356 #ifdef YYPARSE_PARAM
357 #ifdef __cplusplus
358 #define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
359 #define YYPARSE_PARAM_DECL
360 #else /* not __cplusplus */
361 #define YYPARSE_PARAM_ARG YYPARSE_PARAM
362 #define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
363 #endif /* not __cplusplus */
364 #else /* not YYPARSE_PARAM */
365 #define YYPARSE_PARAM_ARG
366 #define YYPARSE_PARAM_DECL
367 #endif /* not YYPARSE_PARAM */
368
369 /* Prevent warning if -Wstrict-prototypes.  */
370 #ifdef __GNUC__
371 #ifdef YYPARSE_PARAM
372 int yyparse (void *);
373 #else
374 int yyparse (void);
375 #endif
376 #endif
377
378 int
379 yyparse(YYPARSE_PARAM_ARG)
380      YYPARSE_PARAM_DECL
381 {
382   register int yystate;
383   register int yyn;
384   register short *yyssp;
385   register YYSTYPE *yyvsp;
386   int yyerrstatus;      /*  number of tokens to shift before error messages enabled */
387   int yychar1 = 0;              /*  lookahead token as an internal (translated) token number */
388
389   short yyssa[YYINITDEPTH];     /*  the state stack                     */
390   YYSTYPE yyvsa[YYINITDEPTH];   /*  the semantic value stack            */
391
392   short *yyss = yyssa;          /*  refer to the stacks thru separate pointers */
393   YYSTYPE *yyvs = yyvsa;        /*  to allow yyoverflow to reallocate them elsewhere */
394
395 #ifdef YYLSP_NEEDED
396   YYLTYPE yylsa[YYINITDEPTH];   /*  the location stack                  */
397   YYLTYPE *yyls = yylsa;
398   YYLTYPE *yylsp;
399
400 #define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
401 #else
402 #define YYPOPSTACK   (yyvsp--, yyssp--)
403 #endif
404
405   int yystacksize = YYINITDEPTH;
406   int yyfree_stacks = 0;
407
408 #ifdef YYPURE
409   int yychar;
410   YYSTYPE yylval;
411   int yynerrs;
412 #ifdef YYLSP_NEEDED
413   YYLTYPE yylloc;
414 #endif
415 #endif
416
417   YYSTYPE yyval;                /*  the variable used to return         */
418                                 /*  semantic values from the action     */
419                                 /*  routines                            */
420
421   int yylen;
422
423 #if YYDEBUG != 0
424   if (yydebug)
425     fprintf(stderr, "Starting parse\n");
426 #endif
427
428   yystate = 0;
429   yyerrstatus = 0;
430   yynerrs = 0;
431   yychar = YYEMPTY;             /* Cause a token to be read.  */
432
433   /* Initialize stack pointers.
434      Waste one element of value and location stack
435      so that they stay on the same level as the state stack.
436      The wasted elements are never initialized.  */
437
438   yyssp = yyss - 1;
439   yyvsp = yyvs;
440 #ifdef YYLSP_NEEDED
441   yylsp = yyls;
442 #endif
443
444 /* Push a new state, which is found in  yystate  .  */
445 /* In all cases, when you get here, the value and location stacks
446    have just been pushed. so pushing a state here evens the stacks.  */
447 yynewstate:
448
449   *++yyssp = yystate;
450
451   if (yyssp >= yyss + yystacksize - 1)
452     {
453       /* Give user a chance to reallocate the stack */
454       /* Use copies of these so that the &'s don't force the real ones into memory. */
455       YYSTYPE *yyvs1 = yyvs;
456       short *yyss1 = yyss;
457 #ifdef YYLSP_NEEDED
458       YYLTYPE *yyls1 = yyls;
459 #endif
460
461       /* Get the current used size of the three stacks, in elements.  */
462       int size = yyssp - yyss + 1;
463
464 #ifdef yyoverflow
465       /* Each stack pointer address is followed by the size of
466          the data in use in that stack, in bytes.  */
467 #ifdef YYLSP_NEEDED
468       /* This used to be a conditional around just the two extra args,
469          but that might be undefined if yyoverflow is a macro.  */
470       yyoverflow("parser stack overflow",
471                  &yyss1, size * sizeof (*yyssp),
472                  &yyvs1, size * sizeof (*yyvsp),
473                  &yyls1, size * sizeof (*yylsp),
474                  &yystacksize);
475 #else
476       yyoverflow("parser stack overflow",
477                  &yyss1, size * sizeof (*yyssp),
478                  &yyvs1, size * sizeof (*yyvsp),
479                  &yystacksize);
480 #endif
481
482       yyss = yyss1; yyvs = yyvs1;
483 #ifdef YYLSP_NEEDED
484       yyls = yyls1;
485 #endif
486 #else /* no yyoverflow */
487       /* Extend the stack our own way.  */
488       if (yystacksize >= YYMAXDEPTH)
489         {
490           yyerror("parser stack overflow");
491           if (yyfree_stacks)
492             {
493               free (yyss);
494               free (yyvs);
495 #ifdef YYLSP_NEEDED
496               free (yyls);
497 #endif
498             }
499           return 2;
500         }
501       yystacksize *= 2;
502       if (yystacksize > YYMAXDEPTH)
503         yystacksize = YYMAXDEPTH;
504 #ifndef YYSTACK_USE_ALLOCA
505       yyfree_stacks = 1;
506 #endif
507       yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
508       __yy_memcpy ((char *)yyss, (char *)yyss1,
509                    size * (unsigned int) sizeof (*yyssp));
510       yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
511       __yy_memcpy ((char *)yyvs, (char *)yyvs1,
512                    size * (unsigned int) sizeof (*yyvsp));
513 #ifdef YYLSP_NEEDED
514       yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
515       __yy_memcpy ((char *)yyls, (char *)yyls1,
516                    size * (unsigned int) sizeof (*yylsp));
517 #endif
518 #endif /* no yyoverflow */
519
520       yyssp = yyss + size - 1;
521       yyvsp = yyvs + size - 1;
522 #ifdef YYLSP_NEEDED
523       yylsp = yyls + size - 1;
524 #endif
525
526 #if YYDEBUG != 0
527       if (yydebug)
528         fprintf(stderr, "Stack size increased to %d\n", yystacksize);
529 #endif
530
531       if (yyssp >= yyss + yystacksize - 1)
532         YYABORT;
533     }
534
535 #if YYDEBUG != 0
536   if (yydebug)
537     fprintf(stderr, "Entering state %d\n", yystate);
538 #endif
539
540   goto yybackup;
541  yybackup:
542
543 /* Do appropriate processing given the current state.  */
544 /* Read a lookahead token if we need one and don't already have one.  */
545 /* yyresume: */
546
547   /* First try to decide what to do without reference to lookahead token.  */
548
549   yyn = yypact[yystate];
550   if (yyn == YYFLAG)
551     goto yydefault;
552
553   /* Not known => get a lookahead token if don't already have one.  */
554
555   /* yychar is either YYEMPTY or YYEOF
556      or a valid token in external form.  */
557
558   if (yychar == YYEMPTY)
559     {
560 #if YYDEBUG != 0
561       if (yydebug)
562         fprintf(stderr, "Reading a token: ");
563 #endif
564       yychar = YYLEX;
565     }
566
567   /* Convert token to internal form (in yychar1) for indexing tables with */
568
569   if (yychar <= 0)              /* This means end of input. */
570     {
571       yychar1 = 0;
572       yychar = YYEOF;           /* Don't call YYLEX any more */
573
574 #if YYDEBUG != 0
575       if (yydebug)
576         fprintf(stderr, "Now at end of input.\n");
577 #endif
578     }
579   else
580     {
581       yychar1 = YYTRANSLATE(yychar);
582
583 #if YYDEBUG != 0
584       if (yydebug)
585         {
586           fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
587           /* Give the individual parser a way to print the precise meaning
588              of a token, for further debugging info.  */
589 #ifdef YYPRINT
590           YYPRINT (stderr, yychar, yylval);
591 #endif
592           fprintf (stderr, ")\n");
593         }
594 #endif
595     }
596
597   yyn += yychar1;
598   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
599     goto yydefault;
600
601   yyn = yytable[yyn];
602
603   /* yyn is what to do for this token type in this state.
604      Negative => reduce, -yyn is rule number.
605      Positive => shift, yyn is new state.
606        New state is final state => don't bother to shift,
607        just return success.
608      0, or most negative number => error.  */
609
610   if (yyn < 0)
611     {
612       if (yyn == YYFLAG)
613         goto yyerrlab;
614       yyn = -yyn;
615       goto yyreduce;
616     }
617   else if (yyn == 0)
618     goto yyerrlab;
619
620   if (yyn == YYFINAL)
621     YYACCEPT;
622
623   /* Shift the lookahead token.  */
624
625 #if YYDEBUG != 0
626   if (yydebug)
627     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
628 #endif
629
630   /* Discard the token being shifted unless it is eof.  */
631   if (yychar != YYEOF)
632     yychar = YYEMPTY;
633
634   *++yyvsp = yylval;
635 #ifdef YYLSP_NEEDED
636   *++yylsp = yylloc;
637 #endif
638
639   /* count tokens shifted since error; after three, turn off error status.  */
640   if (yyerrstatus) yyerrstatus--;
641
642   yystate = yyn;
643   goto yynewstate;
644
645 /* Do the default action for the current state.  */
646 yydefault:
647
648   yyn = yydefact[yystate];
649   if (yyn == 0)
650     goto yyerrlab;
651
652 /* Do a reduction.  yyn is the number of a rule to reduce with.  */
653 yyreduce:
654   yylen = yyr2[yyn];
655   if (yylen > 0)
656     yyval = yyvsp[1-yylen]; /* implement default value of the action */
657
658 #if YYDEBUG != 0
659   if (yydebug)
660     {
661       int i;
662
663       fprintf (stderr, "Reducing via rule %d (line %d), ",
664                yyn, yyrline[yyn]);
665
666       /* Print the symbols being reduced, and their result.  */
667       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
668         fprintf (stderr, "%s ", yytname[yyrhs[i]]);
669       fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
670     }
671 #endif
672
673
674   switch (yyn) {
675
676 case 4:
677 #line 16 "rpcalc.y"
678 { printf ("\t%.10g\n", yyvsp[-1]); ;
679     break;}
680 case 5:
681 #line 19 "rpcalc.y"
682 { yyval = yyvsp[0];         ;
683     break;}
684 case 6:
685 #line 20 "rpcalc.y"
686 { yyval = yyvsp[-2] + yyvsp[-1];    ;
687     break;}
688 case 7:
689 #line 21 "rpcalc.y"
690 { yyval = yyvsp[-2] - yyvsp[-1];    ;
691     break;}
692 case 8:
693 #line 22 "rpcalc.y"
694 { yyval = yyvsp[-2] * yyvsp[-1];    ;
695     break;}
696 case 9:
697 #line 23 "rpcalc.y"
698 { yyval = yyvsp[-2] / yyvsp[-1];    ;
699     break;}
700 case 10:
701 #line 25 "rpcalc.y"
702 { yyval = pow (yyvsp[-2], yyvsp[-1]); ;
703     break;}
704 case 11:
705 #line 27 "rpcalc.y"
706 { yyval = -yyvsp[-1];        ;
707     break;}
708 }
709    /* the action file gets copied in in place of this dollarsign */
710 #line 542 "/usr/lib/bison.simple"
711 \f
712   yyvsp -= yylen;
713   yyssp -= yylen;
714 #ifdef YYLSP_NEEDED
715   yylsp -= yylen;
716 #endif
717
718 #if YYDEBUG != 0
719   if (yydebug)
720     {
721       short *ssp1 = yyss - 1;
722       fprintf (stderr, "state stack now");
723       while (ssp1 != yyssp)
724         fprintf (stderr, " %d", *++ssp1);
725       fprintf (stderr, "\n");
726     }
727 #endif
728
729   *++yyvsp = yyval;
730
731 #ifdef YYLSP_NEEDED
732   yylsp++;
733   if (yylen == 0)
734     {
735       yylsp->first_line = yylloc.first_line;
736       yylsp->first_column = yylloc.first_column;
737       yylsp->last_line = (yylsp-1)->last_line;
738       yylsp->last_column = (yylsp-1)->last_column;
739       yylsp->text = 0;
740     }
741   else
742     {
743       yylsp->last_line = (yylsp+yylen-1)->last_line;
744       yylsp->last_column = (yylsp+yylen-1)->last_column;
745     }
746 #endif
747
748   /* Now "shift" the result of the reduction.
749      Determine what state that goes to,
750      based on the state we popped back to
751      and the rule number reduced by.  */
752
753   yyn = yyr1[yyn];
754
755   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
756   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
757     yystate = yytable[yystate];
758   else
759     yystate = yydefgoto[yyn - YYNTBASE];
760
761   goto yynewstate;
762
763 yyerrlab:   /* here on detecting error */
764
765   if (! yyerrstatus)
766     /* If not already recovering from an error, report this error.  */
767     {
768       ++yynerrs;
769
770 #ifdef YYERROR_VERBOSE
771       yyn = yypact[yystate];
772
773       if (yyn > YYFLAG && yyn < YYLAST)
774         {
775           int size = 0;
776           char *msg;
777           int x, count;
778
779           count = 0;
780           /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
781           for (x = (yyn < 0 ? -yyn : 0);
782                x < (sizeof(yytname) / sizeof(char *)); x++)
783             if (yycheck[x + yyn] == x)
784               size += strlen(yytname[x]) + 15, count++;
785           msg = (char *) malloc(size + 15);
786           if (msg != 0)
787             {
788               strcpy(msg, "parse error");
789
790               if (count < 5)
791                 {
792                   count = 0;
793                   for (x = (yyn < 0 ? -yyn : 0);
794                        x < (sizeof(yytname) / sizeof(char *)); x++)
795                     if (yycheck[x + yyn] == x)
796                       {
797                         strcat(msg, count == 0 ? ", expecting `" : " or `");
798                         strcat(msg, yytname[x]);
799                         strcat(msg, "'");
800                         count++;
801                       }
802                 }
803               yyerror(msg);
804               free(msg);
805             }
806           else
807             yyerror ("parse error; also virtual memory exceeded");
808         }
809       else
810 #endif /* YYERROR_VERBOSE */
811         yyerror("parse error");
812     }
813
814   goto yyerrlab1;
815 yyerrlab1:   /* here on error raised explicitly by an action */
816
817   if (yyerrstatus == 3)
818     {
819       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
820
821       /* return failure if at end of input */
822       if (yychar == YYEOF)
823         YYABORT;
824
825 #if YYDEBUG != 0
826       if (yydebug)
827         fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
828 #endif
829
830       yychar = YYEMPTY;
831     }
832
833   /* Else will try to reuse lookahead token
834      after shifting the error token.  */
835
836   yyerrstatus = 3;              /* Each real token shifted decrements this */
837
838   goto yyerrhandle;
839
840 yyerrdefault:  /* current state does not do anything special for the error token. */
841
842 #if 0
843   /* This is wrong; only states that explicitly want error tokens
844      should shift them.  */
845   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
846   if (yyn) goto yydefault;
847 #endif
848
849 yyerrpop:   /* pop the current state because it cannot handle the error token */
850
851   if (yyssp == yyss) YYABORT;
852   yyvsp--;
853   yystate = *--yyssp;
854 #ifdef YYLSP_NEEDED
855   yylsp--;
856 #endif
857
858 #if YYDEBUG != 0
859   if (yydebug)
860     {
861       short *ssp1 = yyss - 1;
862       fprintf (stderr, "Error: state stack now");
863       while (ssp1 != yyssp)
864         fprintf (stderr, " %d", *++ssp1);
865       fprintf (stderr, "\n");
866     }
867 #endif
868
869 yyerrhandle:
870
871   yyn = yypact[yystate];
872   if (yyn == YYFLAG)
873     goto yyerrdefault;
874
875   yyn += YYTERROR;
876   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
877     goto yyerrdefault;
878
879   yyn = yytable[yyn];
880   if (yyn < 0)
881     {
882       if (yyn == YYFLAG)
883         goto yyerrpop;
884       yyn = -yyn;
885       goto yyreduce;
886     }
887   else if (yyn == 0)
888     goto yyerrpop;
889
890   if (yyn == YYFINAL)
891     YYACCEPT;
892
893 #if YYDEBUG != 0
894   if (yydebug)
895     fprintf(stderr, "Shifting error token, ");
896 #endif
897
898   *++yyvsp = yylval;
899 #ifdef YYLSP_NEEDED
900   *++yylsp = yylloc;
901 #endif
902
903   yystate = yyn;
904   goto yynewstate;
905
906  yyacceptlab:
907   /* YYACCEPT comes here.  */
908   if (yyfree_stacks)
909     {
910       free (yyss);
911       free (yyvs);
912 #ifdef YYLSP_NEEDED
913       free (yyls);
914 #endif
915     }
916   return 0;
917
918  yyabortlab:
919   /* YYABORT comes here.  */
920   if (yyfree_stacks)
921     {
922       free (yyss);
923       free (yyvs);
924 #ifdef YYLSP_NEEDED
925       free (yyls);
926 #endif
927     }
928   return 1;
929 }
930 #line 29 "rpcalc.y"
931
932
933
934      /* Lexical analyzer returns a double floating point
935         number on the stack and the token NUM, or the ASCII
936         character read if not a number.  Skips all blanks
937         and tabs, returns 0 for EOF. */
938      
939      #include <ctype.h>
940      
941      yylex ()
942      {
943        int c;
944      
945        /* skip white space  */
946        while ((c = getchar ()) == ' ' || c == '\t')
947          ;
948        /* process numbers   */
949        if (c == '.' || isdigit (c))
950          {
951            ungetc (c, stdin);
952            scanf ("%lf", &yylval);
953            return NUM;
954          }
955        /* return end-of-file  */
956        if (c == EOF)
957          return 0;
958        /* return single chars */
959        return c;
960      }
961
962
963
964      main ()
965      {
966        yyparse ();
967      }
968
969
970      #include <stdio.h>
971      
972      yyerror (s)  /* Called by yyparse on error */
973           char *s;
974      {
975        printf ("%s\n", s);
976      }