Update
[bison.git] / src / bison.simple
index 700a9edbda4b3a4fda410deb4155c7b37444a783..7f17cd153c2f7fe30dc89d03ab1c9b4e17863650 100644 (file)
 
 #include <stdio.h>
 
 
 #include <stdio.h>
 
+/* If name_prefix is specify substitute the variables and functions
+   names.  */
+#define yyparse %%prefix##parse
+#define yylex %%prefix##lex
+#define yyerror %%prefix##error
+#define yylval %%prefix##lval
+#define yychar %%prefix##char
+#define yydebug %%prefix##debug
+#define yynerrs %%prefix##nerrs
+
 /* Copy the user declarations.  */
 /* Copy the user declarations.  */
-%%definitions
+%%prologue
 
 #ifndef __cplusplus
 # ifndef __STDC__
 
 #ifndef __cplusplus
 # ifndef __STDC__
@@ -118,7 +128,7 @@ typedef struct yyltype
 # define YYERROR_VERBOSE %%verbose
 #endif
 
 # define YYERROR_VERBOSE %%verbose
 #endif
 
-/* Tokens. */
+/* Tokens.  */
 %%tokendef
 
 #define YYFINAL                %%final
 %%tokendef
 
 #define YYFINAL                %%final
@@ -160,8 +170,8 @@ static const short yyrline[] =
 #endif
 
 #if YYDEBUG || YYERROR_VERBOSE
 #endif
 
 #if YYDEBUG || YYERROR_VERBOSE
-/* YYTNAME[TOKEN_NUM] -- String name of the token TOKEN_NUM. */
-static const charconst yytname[] =
+/* YYTNME[TOKEN_NUM] -- String name of the token TOKEN_NUM.  */
+static const char *const yytname[] =
 {
   %%tname
 };
 {
   %%tname
 };
@@ -219,7 +229,7 @@ static const short yycheck[] =
 };
 
 #define yyerrok                (yyerrstatus = 0)
 };
 
 #define yyerrok                (yyerrstatus = 0)
-#define yyclearin      (%%yychar = YYEMPTY)
+#define yyclearin      (yychar = YYEMPTY)
 #define YYEMPTY                -2
 #define YYEOF          0
 
 #define YYEMPTY                -2
 #define YYEOF          0
 
@@ -237,17 +247,17 @@ static const short yycheck[] =
 
 #define YYBACKUP(Token, Value)                                 \
 do                                                             \
 
 #define YYBACKUP(Token, Value)                                 \
 do                                                             \
-  if (%%yychar == YYEMPTY && yylen == 1)                       \
+  if (yychar == YYEMPTY && yylen == 1)                         \
     {                                                          \
     {                                                          \
-      %%yychar = (Token);                                      \
-      %%yylval = (Value);                                      \
-      yychar1 = YYTRANSLATE (%%yychar);                                \
+      yychar = (Token);                                                \
+      yylval = (Value);                                        \
+      yychar1 = YYTRANSLATE (yychar);                          \
       YYPOPSTACK;                                              \
       goto yybackup;                                           \
     }                                                          \
   else                                                         \
     {                                                          \
       YYPOPSTACK;                                              \
       goto yybackup;                                           \
     }                                                          \
   else                                                         \
     {                                                          \
-      %%yyerror ("syntax error: cannot back up");              \
+      yyerror ("syntax error: cannot back up");                \
       YYERROR;                                                 \
     }                                                          \
 while (0)
       YYERROR;                                                 \
     }                                                          \
 while (0)
@@ -268,38 +278,41 @@ while (0)
    Current.last_column = Rhs[N].last_column;
 #endif
 
    Current.last_column = Rhs[N].last_column;
 #endif
 
+/* Definition of YYLSP_NEEDED.  */
+#define YYLSP_NEEDED %%locations_flag
+
 /* YYLEX -- calling `yylex' with the right arguments.  */
 
 #if YYPURE
 # if YYLSP_NEEDED
 #  ifdef YYLEX_PARAM
 /* YYLEX -- calling `yylex' with the right arguments.  */
 
 #if YYPURE
 # if YYLSP_NEEDED
 #  ifdef YYLEX_PARAM
-#   define YYLEX               %%yylex (&%%yylval, &yylloc, YYLEX_PARAM)
+#   define YYLEX               yylex (&yylval, &yylloc, YYLEX_PARAM)
 #  else
 #  else
-#   define YYLEX               %%yylex (&%%yylval, &yylloc)
+#   define YYLEX               yylex (&yylval, &yylloc)
 #  endif
 # else /* !YYLSP_NEEDED */
 #  ifdef YYLEX_PARAM
 #  endif
 # else /* !YYLSP_NEEDED */
 #  ifdef YYLEX_PARAM
-#   define YYLEX               %%yylex (&%%yylval, YYLEX_PARAM)
+#   define YYLEX               yylex (&yylval, YYLEX_PARAM)
 #  else
 #  else
-#   define YYLEX               %%yylex (&%%yylval)
+#   define YYLEX               yylex (&yylval)
 #  endif
 # endif /* !YYLSP_NEEDED */
 #else /* !YYPURE */
 #  endif
 # endif /* !YYLSP_NEEDED */
 #else /* !YYPURE */
-# define YYLEX                 %%yylex ()
+# define YYLEX                 yylex ()
 #endif /* !YYPURE */
 
 /* Enable debugging if requested.  */
 #if YYDEBUG
 # define YYDPRINTF(Args)                       \
 do {                                           \
 #endif /* !YYPURE */
 
 /* Enable debugging if requested.  */
 #if YYDEBUG
 # define YYDPRINTF(Args)                       \
 do {                                           \
-  if (%%yydebug)                               \
+  if (yydebug)                                 \
     fprintf Args;                              \
 } while (0)
 /* Nonzero means print parse trace. [The following comment makes no
    sense to me.  Could someone clarify it?  --akim] Since this is
    uninitialized, it does not stop multiple parsers from coexisting.
    */
     fprintf Args;                              \
 } while (0)
 /* Nonzero means print parse trace. [The following comment makes no
    sense to me.  Could someone clarify it?  --akim] Since this is
    uninitialized, it does not stop multiple parsers from coexisting.
    */
-int %%yydebug;
+int yydebug;
 #else /* !YYDEBUG */
 # define YYDPRINTF(Args)
 #endif /* !YYDEBUG */
 #else /* !YYDEBUG */
 # define YYDPRINTF(Args)
 #endif /* !YYDEBUG */
@@ -377,9 +390,9 @@ __yy_memcpy (char *to, const char *from, unsigned int count)
 /* Prevent warning if -Wstrict-prototypes.  */
 #ifdef __GNUC__
 # ifdef YYPARSE_PARAM
 /* Prevent warning if -Wstrict-prototypes.  */
 #ifdef __GNUC__
 # ifdef YYPARSE_PARAM
-int %%yyparse (void *);
+int yyparse (void *);
 # else
 # else
-int %%yyparse (void);
+int yyparse (void);
 # endif
 #endif
 
 # endif
 #endif
 
@@ -388,13 +401,13 @@ int %%yyparse (void);
 
 #define _YY_DECL_VARIABLES                             \
 /* The lookahead symbol.  */                           \
 
 #define _YY_DECL_VARIABLES                             \
 /* The lookahead symbol.  */                           \
-int %%yychar;                                          \
+int yychar;                                            \
                                                        \
                                                        \
-/* The semantic value of the lookahead symbol. */      \
-YYSTYPE %%yylval;                                      \
+/* The semantic value of the lookahead symbol.  */     \
+YYSTYPE yylval;                                                \
                                                        \
 /* Number of parse errors so far.  */                  \
                                                        \
 /* Number of parse errors so far.  */                  \
-int %%yynerrs;
+int yynerrs;
 
 #if YYLSP_NEEDED
 # define YY_DECL_VARIABLES                     \
 
 #if YYLSP_NEEDED
 # define YY_DECL_VARIABLES                     \
@@ -407,17 +420,17 @@ YYLTYPE yylloc;
 _YY_DECL_VARIABLES
 #endif
 
 _YY_DECL_VARIABLES
 #endif
 
-/* If nonreentrant, generate the variables here. */
+/* If nonreentrant, generate the variables here.  */
 
 #if !YYPURE
 YY_DECL_VARIABLES
 #endif  /* !YYPURE */
 
 int
 
 #if !YYPURE
 YY_DECL_VARIABLES
 #endif  /* !YYPURE */
 
 int
-%%yyparse (YYPARSE_PARAM_ARG)
+yyparse (YYPARSE_PARAM_ARG)
      YYPARSE_PARAM_DECL
 {
      YYPARSE_PARAM_DECL
 {
-  /* If reentrant, generate the variables here. */
+  /* If reentrant, generate the variables here.  */
 #if YYPURE
   YY_DECL_VARIABLES
 #endif  /* !YYPURE */
 #if YYPURE
   YY_DECL_VARIABLES
 #endif  /* !YYPURE */
@@ -437,7 +450,7 @@ int
      Refer to the stacks thru separate pointers, to allow yyoverflow
      to reallocate them elsewhere.  */
 
      Refer to the stacks thru separate pointers, to allow yyoverflow
      to reallocate them elsewhere.  */
 
-  /* The state stack. */
+  /* The state stack.  */
   short        yyssa[YYINITDEPTH];
   short *yyss = yyssa;
   register short *yyssp;
   short        yyssa[YYINITDEPTH];
   short *yyss = yyssa;
   register short *yyssp;
@@ -471,15 +484,15 @@ int
 # endif
 
   /* When reducing, the number of symbols on the RHS of the reduced
 # endif
 
   /* When reducing, the number of symbols on the RHS of the reduced
-     rule. */
+     rule.  */
   int yylen;
 
   YYDPRINTF ((stderr, "Starting parse\n"));
 
   yystate = 0;
   yyerrstatus = 0;
   int yylen;
 
   YYDPRINTF ((stderr, "Starting parse\n"));
 
   yystate = 0;
   yyerrstatus = 0;
-  %%yynerrs = 0;
-  %%yychar = YYEMPTY;          /* Cause a token to be read.  */
+  yynerrs = 0;
+  yychar = YYEMPTY;            /* Cause a token to be read.  */
 
   /* Initialize stack pointers.
      Waste one element of value and location stack
 
   /* Initialize stack pointers.
      Waste one element of value and location stack
@@ -545,7 +558,7 @@ yysetstate:
       /* Extend the stack our own way.  */
       if (yystacksize >= YYMAXDEPTH)
        {
       /* Extend the stack our own way.  */
       if (yystacksize >= YYMAXDEPTH)
        {
-         %%yyerror ("parser stack overflow");
+         yyerror ("parser stack overflow");
          if (yyfree_stacks)
            {
              free (yyss);
          if (yyfree_stacks)
            {
              free (yyss);
@@ -611,35 +624,35 @@ yybackup:
   /* yychar is either YYEMPTY or YYEOF
      or a valid token in external form.  */
 
   /* yychar is either YYEMPTY or YYEOF
      or a valid token in external form.  */
 
-  if (%%yychar == YYEMPTY)
+  if (yychar == YYEMPTY)
     {
       YYDPRINTF ((stderr, "Reading a token: "));
     {
       YYDPRINTF ((stderr, "Reading a token: "));
-      %%yychar = YYLEX;
+      yychar = YYLEX;
     }
 
     }
 
-  /* Convert token to internal form (in yychar1) for indexing tables with */
+  /* Convert token to internal form (in yychar1) for indexing tables with */
 
 
-  if (%%yychar <= 0)           /* This means end of input. */
+  if (yychar <= 0)             /* This means end of input.  */
     {
       yychar1 = 0;
     {
       yychar1 = 0;
-      %%yychar = YYEOF;                /* Don't call YYLEX any more */
+      yychar = YYEOF;          /* Don't call YYLEX any more.  */
 
       YYDPRINTF ((stderr, "Now at end of input.\n"));
     }
   else
     {
 
       YYDPRINTF ((stderr, "Now at end of input.\n"));
     }
   else
     {
-      yychar1 = YYTRANSLATE (%%yychar);
+      yychar1 = YYTRANSLATE (yychar);
 
 #if YYDEBUG
      /* We have to keep this `#if YYDEBUG', since we use variables
        which are defined only if `YYDEBUG' is set.  */
 
 #if YYDEBUG
      /* We have to keep this `#if YYDEBUG', since we use variables
        which are defined only if `YYDEBUG' is set.  */
-      if (%%yydebug)
+      if (yydebug)
        {
        {
-         fprintf (stderr, "Next token is %d (%s", %%yychar, yytname[yychar1]);
+         fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
          /* Give the individual parser a way to print the precise
             meaning of a token, for further debugging info.  */
 # ifdef YYPRINT
          /* Give the individual parser a way to print the precise
             meaning of a token, for further debugging info.  */
 # ifdef YYPRINT
-         YYPRINT (stderr, %%yychar, %%yylval);
+         YYPRINT (stderr, yychar, yylval);
 # endif
          fprintf (stderr, ")\n");
        }
 # endif
          fprintf (stderr, ")\n");
        }
@@ -673,13 +686,13 @@ yybackup:
     YYACCEPT;
 
   /* Shift the lookahead token.  */
     YYACCEPT;
 
   /* Shift the lookahead token.  */
-  YYDPRINTF ((stderr, "Shifting token %d (%s), ", %%yychar, yytname[yychar1]));
+  YYDPRINTF ((stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]));
 
   /* Discard the token being shifted unless it is eof.  */
 
   /* Discard the token being shifted unless it is eof.  */
-  if (%%yychar != YYEOF)
-    %%yychar = YYEMPTY;
+  if (yychar != YYEOF)
+    yychar = YYEMPTY;
 
 
-  *++yyvsp = %%yylval;
+  *++yyvsp = yylval;
 #if YYLSP_NEEDED
   *++yylsp = yylloc;
 #endif
 #if YYLSP_NEEDED
   *++yylsp = yylloc;
 #endif
@@ -730,7 +743,7 @@ yyreduce:
 #if YYDEBUG
   /* We have to keep this `#if YYDEBUG', since we use variables which
      are defined only if `YYDEBUG' is set.  */
 #if YYDEBUG
   /* We have to keep this `#if YYDEBUG', since we use variables which
      are defined only if `YYDEBUG' is set.  */
-  if (%%yydebug)
+  if (yydebug)
     {
       int i;
 
     {
       int i;
 
@@ -745,7 +758,7 @@ yyreduce:
 #endif
   switch (yyn)
     {
 #endif
   switch (yyn)
     {
-      %%action /* The action file replaces this line. */
+      %%action /* The action file replaces this line.  */
     }
 #line %%line "%%filename"
 \f
     }
 #line %%line "%%filename"
 \f
@@ -756,7 +769,7 @@ yyreduce:
 #endif
 
 #if YYDEBUG
 #endif
 
 #if YYDEBUG
-  if (%%yydebug)
+  if (yydebug)
     {
       short *ssp1 = yyss - 1;
       fprintf (stderr, "state stack now");
     {
       short *ssp1 = yyss - 1;
       fprintf (stderr, "state stack now");
@@ -793,7 +806,7 @@ yyerrlab:
   /* If not already recovering from an error, report this error.  */
   if (!yyerrstatus)
     {
   /* If not already recovering from an error, report this error.  */
   if (!yyerrstatus)
     {
-      ++%%yynerrs;
+      ++yynerrs;
 
 #if YYERROR_VERBOSE
       yyn = yypact[yystate];
 
 #if YYERROR_VERBOSE
       yyn = yypact[yystate];
@@ -811,12 +824,12 @@ yyerrlab:
            if (yycheck[x + yyn] == x)
              size += strlen (yytname[x]) + 15, count++;
          size += strlen ("parse error, unexpected `") + 1;
            if (yycheck[x + yyn] == x)
              size += strlen (yytname[x]) + 15, count++;
          size += strlen ("parse error, unexpected `") + 1;
-         size += strlen (yytname[YYTRANSLATE (%%yychar)]);
+         size += strlen (yytname[YYTRANSLATE (yychar)]);
          msg = (char *) malloc (size);
          if (msg != 0)
            {
              strcpy (msg, "parse error, unexpected `");
          msg = (char *) malloc (size);
          if (msg != 0)
            {
              strcpy (msg, "parse error, unexpected `");
-             strcat (msg, yytname[YYTRANSLATE (%%yychar)]);
+             strcat (msg, yytname[YYTRANSLATE (yychar)]);
              strcat (msg, "'");
 
              if (count < 5)
              strcat (msg, "'");
 
              if (count < 5)
@@ -832,40 +845,40 @@ yyerrlab:
                        count++;
                      }
                }
                        count++;
                      }
                }
-             %%yyerror (msg);
+             yyerror (msg);
              free (msg);
            }
           else
              free (msg);
            }
           else
-           %%yyerror ("parse error; also virtual memory exceeded");
+           yyerror ("parse error; also virtual memory exceeded");
         }
       else
 #endif /* YYERROR_VERBOSE */
         }
       else
 #endif /* YYERROR_VERBOSE */
-        %%yyerror ("parse error");
+        yyerror ("parse error");
     }
   goto yyerrlab1;
 
 
     }
   goto yyerrlab1;
 
 
-/*--------------------------------------------------.
-| yyerrlab1 -- error raised explicitly by an action |
-`--------------------------------------------------*/
+/*----------------------------------------------------.
+| yyerrlab1 -- error raised explicitly by an action |
+`----------------------------------------------------*/
 yyerrlab1:
   if (yyerrstatus == 3)
     {
       /* If just tried and failed to reuse lookahead token after an
         error, discard it.  */
 
 yyerrlab1:
   if (yyerrstatus == 3)
     {
       /* If just tried and failed to reuse lookahead token after an
         error, discard it.  */
 
-      /* return failure if at end of input */
-      if (%%yychar == YYEOF)
+      /* Return failure if at end of input.  */
+      if (yychar == YYEOF)
        YYABORT;
       YYDPRINTF ((stderr, "Discarding token %d (%s).\n",
        YYABORT;
       YYDPRINTF ((stderr, "Discarding token %d (%s).\n",
-                 %%yychar, yytname[yychar1]));
-      %%yychar = YYEMPTY;
+                 yychar, yytname[yychar1]));
+      yychar = YYEMPTY;
     }
 
   /* Else will try to reuse lookahead token after shifting the error
      token.  */
 
     }
 
   /* Else will try to reuse lookahead token after shifting the error
      token.  */
 
-  yyerrstatus = 3;             /* Each real token shifted decrements this */
+  yyerrstatus = 3;             /* Each real token shifted decrements this */
 
   goto yyerrhandle;
 
 
   goto yyerrhandle;
 
@@ -888,7 +901,7 @@ yyerrdefault:
 
 /*---------------------------------------------------------------.
 | yyerrpop -- pop the current state because it cannot handle the |
 
 /*---------------------------------------------------------------.
 | yyerrpop -- pop the current state because it cannot handle the |
-| error token                                                    |
+| error token.                                                   |
 `---------------------------------------------------------------*/
 yyerrpop:
   if (yyssp == yyss)
 `---------------------------------------------------------------*/
 yyerrpop:
   if (yyssp == yyss)
@@ -900,7 +913,7 @@ yyerrpop:
 #endif
 
 #if YYDEBUG
 #endif
 
 #if YYDEBUG
-  if (%%yydebug)
+  if (yydebug)
     {
       short *ssp1 = yyss - 1;
       fprintf (stderr, "Error: state stack now");
     {
       short *ssp1 = yyss - 1;
       fprintf (stderr, "Error: state stack now");
@@ -938,7 +951,7 @@ yyerrhandle:
 
   YYDPRINTF ((stderr, "Shifting error token, "));
 
 
   YYDPRINTF ((stderr, "Shifting error token, "));
 
-  *++yyvsp = %%yylval;
+  *++yyvsp = yylval;
 #if YYLSP_NEEDED
   *++yylsp = yylloc;
 #endif
 #if YYLSP_NEEDED
   *++yylsp = yylloc;
 #endif
@@ -976,3 +989,6 @@ yyabortlab:
     }
   return 1;
 }
     }
   return 1;
 }
+
+%%epilogue
+