* data/c.m4 (b4_dirname): New.

[bison.git] / data / lalr1.cc

diff --git a/data/lalr1.cc b/data/lalr1.cc
index 8f0ebe8f52de10e5df0f68b15a2a742ccd6df79c..87b64fa17a2ed9f2aeae36806bff1ef7a95881d9 100644 (file)
--- a/data/lalr1.cc
+++ b/data/lalr1.cc
@@ -20,6 +20,11 @@ m4_divert(-1)
 # 02110-1301  USA
 
 m4_include(b4_pkgdatadir/[c++.m4])
 # 02110-1301  USA
 
 m4_include(b4_pkgdatadir/[c++.m4])

+
+# The header is mandatory.
+b4_defines_if([],
+              [m4_fatal(b4_skeleton[: using %defines is mandatory])])
+

 # Backward compatibility.
 m4_define([b4_location_constructors])
 m4_include(b4_pkgdatadir/[location.cc])
 # Backward compatibility.
 m4_define([b4_location_constructors])
 m4_include(b4_pkgdatadir/[location.cc])


@@ -27,10 +32,10 @@ m4_include(b4_pkgdatadir/[location.cc])
 # We do want M4 expansion after # for CPP macros.
 m4_changecom()
 m4_divert(0)dnl
 # We do want M4 expansion after # for CPP macros.
 m4_changecom()
 m4_divert(0)dnl

-m4_if(b4_defines_flag, 0, [],
+b4_defines_if(

 [@output @output_header_name@
 [@output @output_header_name@

-b4_copyright([C++ Skeleton parser for LALR(1) parsing with Bison],
-            [2002, 2003, 2004, 2005, 2006])
+b4_copyright([Skeleton interface for Bison LALR(1) parsers in C++],
+  [2002, 2003, 2004, 2005, 2006])

 dnl FIXME: This is wrong, we want computed header guards.
 [
 /* C++ LALR(1) parser skeleton written by Akim Demaille.  */
 dnl FIXME: This is wrong, we want computed header guards.
 [
 /* C++ LALR(1) parser skeleton written by Akim Demaille.  */


@@ -42,24 +47,22 @@ dnl FIXME: This is wrong, we want computed header guards.
 #include <iostream>
 #include "stack.hh"
 
 #include <iostream>
 #include "stack.hh"
 

-namespace yy
+namespace ]b4_namespace[

 {
   class position;
   class location;
 }
 
 {
   class position;
   class location;
 }
 

-/* First part of user declarations.  */
-]b4_pre_prologue[
-
-]/* Line __line__ of lalr1.cc.  */
-b4_syncline([@oline@], [@ofile@])[
+]m4_ifdef([b4_start_header],
+[[/* Copy the %start-header blocks.  */
+]b4_user_start_header])[

 
 ]dnl Include location.hh here: it might depend on headers included above.
 [#include "location.hh"
 
 /* Enabling traces.  */
 #ifndef YYDEBUG
 
 ]dnl Include location.hh here: it might depend on headers included above.
 [#include "location.hh"
 
 /* Enabling traces.  */
 #ifndef YYDEBUG

-# define YYDEBUG ]b4_debug[
+# define YYDEBUG ]b4_debug_flag[

 #endif
 
 /* Enabling verbose error messages.  */
 #endif
 
 /* Enabling verbose error messages.  */


@@ -67,7 +70,7 @@ b4_syncline([@oline@], [@ofile@])[
 # undef YYERROR_VERBOSE
 # define YYERROR_VERBOSE 1
 #else
 # undef YYERROR_VERBOSE
 # define YYERROR_VERBOSE 1
 #else

-# define YYERROR_VERBOSE ]b4_error_verbose[
+# define YYERROR_VERBOSE ]b4_error_verbose_flag[

 #endif
 
 /* Enabling the token table.  */
 #endif
 
 /* Enabling the token table.  */


@@ -94,7 +97,7 @@ do {                                                  \
 } while (false)
 #endif
 
 } while (false)
 #endif
 

-namespace yy
+namespace ]b4_namespace[

 {
 
   /// A Bison parser.
 {
 
   /// A Bison parser.


@@ -105,9 +108,7 @@ namespace yy
 #ifndef YYSTYPE
 ]m4_ifdef([b4_stype],
 [    union semantic_type
 #ifndef YYSTYPE
 ]m4_ifdef([b4_stype],
 [    union semantic_type

-b4_stype
-/* Line __line__ of lalr1.cc.  */
-b4_syncline([@oline@], [@ofile@])
+b4_user_stype

        ;],
 [    typedef int semantic_type;])[
 #else
        ;],
 [    typedef int semantic_type;])[
 #else


@@ -151,7 +152,7 @@ b4_syncline([@oline@], [@ofile@])
 
     /// Generate an error message.
     /// \param state   the state where the error occurred.
 
     /// Generate an error message.
     /// \param state   the state where the error occurred.

-    /// \param tok     the look-ahead token.
+    /// \param tok     the lookahead token.

     virtual std::string yysyntax_error_ (int yystate]dnl
 b4_error_verbose_if([, int tok])[);
 
     virtual std::string yysyntax_error_ (int yystate]dnl
 b4_error_verbose_if([, int tok])[);
 


@@ -249,8 +250,8 @@ b4_error_verbose_if([, int tok])[);
     virtual void yystack_print_ ();
 #endif
 
     virtual void yystack_print_ ();
 #endif
 

-    /// Convert a scanner token number to a symbol number.
-    token_number_type yytranslate_ (int token);
+    /// Convert a scanner token number \a t to a symbol number.
+    token_number_type yytranslate_ (int t);

 
     /// \brief Reclaim the memory associated to a symbol.
     /// \param yymsg        Why this token is reclaimed.
 
     /// \brief Reclaim the memory associated to a symbol.
     /// \param yymsg        Why this token is reclaimed.


@@ -291,27 +292,31 @@ b4_error_verbose_if([, int tok])[);
 
 #ifndef YYSTYPE
  /* Redirection for backward compatibility.  */
 
 #ifndef YYSTYPE
  /* Redirection for backward compatibility.  */

-# define YYSTYPE yy::b4_parser_class_name::semantic_type
+# define YYSTYPE b4_namespace::b4_parser_class_name::semantic_type

 #endif
 #endif

-])[
-#endif /* ! defined PARSER_HEADER_H */]
+])
+m4_ifdef([b4_end_header],
+[[/* Copy the %end-header blocks.  */
+]b4_end_header])[]dnl
+
+[#endif /* ! defined PARSER_HEADER_H */]

 ])dnl
 @output @output_parser_name@
 ])dnl
 @output @output_parser_name@

-b4_copyright([C++ Skeleton parser for LALR(1) parsing with Bison],
-            [2002, 2003, 2004, 2005, 2006])
-m4_if(b4_prefix[], [yy], [],
+b4_copyright([Skeleton implementation for Bison LALR(1) parsers in C++],
+  [2002, 2003, 2004, 2005, 2006])
+m4_if(b4_prefix, [yy], [],

 [
 // Take the name prefix into account.
 [
 // Take the name prefix into account.

-#define yylex   b4_prefix[]lex])
-m4_if(b4_defines_flag, 0, [],
-[
+#define yylex   b4_prefix[]lex])[
+
+/* First part of user declarations.  */
+]b4_pre_prologue
+
+b4_defines_if([

 #include @output_header_name@])[
 
 /* User implementation prologue.  */
 #include @output_header_name@])[
 
 /* User implementation prologue.  */

-]b4_post_prologue[
-
-]/* Line __line__ of lalr1.cc.  */
-b4_syncline([@oline@], [@ofile@])[
+]b4_user_post_prologue[

 
 #ifndef YY_
 # if YYENABLE_NLS
 
 #ifndef YY_
 # if YYENABLE_NLS


@@ -370,49 +375,49 @@ do {                                      \
 #define YYABORT                goto yyabortlab
 #define YYERROR                goto yyerrorlab
 
 #define YYABORT                goto yyabortlab
 #define YYERROR                goto yyerrorlab
 

-#if YYERROR_VERBOSE
-
-/* Return YYSTR after stripping away unnecessary quotes and
-   backslashes, so that it's suitable for yyerror.  The heuristic is
-   that double-quoting is unnecessary unless the string contains an
-   apostrophe, a comma, or backslash (other than backslash-backslash).
-   YYSTR is taken from yytname.  */
-std::string
-yy::]b4_parser_class_name[::yytnamerr_ (const char *yystr)
+namespace ]b4_namespace[

 {
 {

-  if (*yystr == '"')
-    {
-      std::string yyr = "";
-      char const *yyp = yystr;
+#if YYERROR_VERBOSE

 
 

-      for (;;)
-       switch (*++yyp)
-         {
-         case '\'':
-         case ',':
-           goto do_not_strip_quotes;
-
-         case '\\':
-           if (*++yyp != '\\')
-             goto do_not_strip_quotes;
-           /* Fall through.  */
-         default:
-           yyr += *yyp;
-           break;
-
-         case '"':
-           return yyr;
-         }
-    do_not_strip_quotes: ;
-    }
+  /* Return YYSTR after stripping away unnecessary quotes and
+     backslashes, so that it's suitable for yyerror.  The heuristic is
+     that double-quoting is unnecessary unless the string contains an
+     apostrophe, a comma, or backslash (other than backslash-backslash).
+     YYSTR is taken from yytname.  */
+  std::string
+  ]b4_parser_class_name[::yytnamerr_ (const char *yystr)
+  {
+    if (*yystr == '"')
+      {
+        std::string yyr = "";
+        char const *yyp = yystr;
+
+        for (;;)
+          switch (*++yyp)
+            {
+            case '\'':
+            case ',':
+              goto do_not_strip_quotes;
+
+            case '\\':
+              if (*++yyp != '\\')
+                goto do_not_strip_quotes;
+              /* Fall through.  */
+            default:
+              yyr += *yyp;
+              break;
+
+            case '"':
+              return yyr;
+            }
+      do_not_strip_quotes: ;
+      }

 
 

-  return yystr;
-}
+    return yystr;
+  }

 
 #endif
 
 
 #endif
 

-namespace yy
-{

   /// Build a parser object.
   ]b4_parser_class_name::b4_parser_class_name[ (]b4_parse_param_decl[)
     : yydebug_ (false),
   /// Build a parser object.
   ]b4_parser_class_name::b4_parser_class_name[ (]b4_parse_param_decl[)
     : yydebug_ (false),


@@ -511,7 +516,7 @@ namespace yy
   int
   ]b4_parser_class_name[::parse ()
   {
   int
   ]b4_parser_class_name[::parse ()
   {

-    /// Look-ahead and look-ahead in internal form.
+    /// Lookahead and lookahead in internal form.

     int yychar = yyempty_;
     int yytoken = 0;
 
     int yychar = yyempty_;
     int yytoken = 0;
 


@@ -524,9 +529,9 @@ namespace yy
     int yynerrs_ = 0;
     int yyerrstatus_ = 0;
 
     int yynerrs_ = 0;
     int yyerrstatus_ = 0;
 

-    /// Semantic value of the look-ahead.
+    /// Semantic value of the lookahead.

     semantic_type yylval;
     semantic_type yylval;

-    /// Location of the look-ahead.
+    /// Location of the lookahead.

     location_type yylloc;
     /// The locations where the error started and ended.
     location yyerror_range[2];
     location_type yylloc;
     /// The locations where the error started and ended.
     location yyerror_range[2];


@@ -544,11 +549,9 @@ namespace yy
 m4_pushdef([b4_at_dollar],     [yylloc])dnl
 m4_pushdef([b4_dollar_dollar], [yylval])dnl
     /* User initialization code.  */
 m4_pushdef([b4_at_dollar],     [yylloc])dnl
 m4_pushdef([b4_dollar_dollar], [yylval])dnl
     /* User initialization code.  */

-    b4_initial_action
+    b4_user_initial_action

 m4_popdef([b4_dollar_dollar])dnl
 m4_popdef([b4_dollar_dollar])dnl

-m4_popdef([b4_at_dollar])dnl
-  /* Line __line__ of yacc.c.  */
-b4_syncline([@oline@], [@ofile@])])dnl
+m4_popdef([b4_at_dollar])])dnl

 
   [  /* Initialize the stacks.  The initial state will be pushed in
        yynewstate, since the latter expects the semantical and the
 
   [  /* Initialize the stacks.  The initial state will be pushed in
        yynewstate, since the latter expects the semantical and the


@@ -569,18 +572,18 @@ b4_syncline([@oline@], [@ofile@])])dnl
     /* Backup.  */
   yybackup:
 
     /* Backup.  */
   yybackup:
 

-    /* Try to take a decision without look-ahead.  */
+    /* Try to take a decision without lookahead.  */

     yyn = yypact_[yystate];
     if (yyn == yypact_ninf_)
       goto yydefault;
 
     yyn = yypact_[yystate];
     if (yyn == yypact_ninf_)
       goto yydefault;
 

-    /* Read a look-ahead token.  */
+    /* Read a lookahead token.  */

     if (yychar == yyempty_)
       {
        YYCDEBUG << "Reading a token: ";
        yychar = ]b4_c_function_call([yylex], [int],
                                     [[YYSTYPE*], [&yylval]][]dnl
     if (yychar == yyempty_)
       {
        YYCDEBUG << "Reading a token: ";
        yychar = ]b4_c_function_call([yylex], [int],
                                     [[YYSTYPE*], [&yylval]][]dnl

-b4_location_if([, [[location*], [&yylloc]]])dnl
+b4_locations_if([, [[location*], [&yylloc]]])dnl

 m4_ifdef([b4_lex_param], [, ]b4_lex_param))[;
       }
 
 m4_ifdef([b4_lex_param], [, ]b4_lex_param))[;
       }
 


@@ -617,7 +620,7 @@ m4_ifdef([b4_lex_param], [, ]b4_lex_param))[;
     if (yyn == yyfinal_)
       goto yyacceptlab;
 
     if (yyn == yyfinal_)
       goto yyacceptlab;
 

-    /* Shift the look-ahead token.  */
+    /* Shift the lookahead token.  */

     YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
 
     /* Discard the token being shifted unless it is eof.  */
     YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
 
     /* Discard the token being shifted unless it is eof.  */


@@ -667,9 +670,7 @@ m4_ifdef([b4_lex_param], [, ]b4_lex_param))[;
     YY_REDUCE_PRINT (yyn);
     switch (yyn)
       {
     YY_REDUCE_PRINT (yyn);
     switch (yyn)
       {

-       ]b4_actions
-    /* Line __line__ of lalr1.cc.  */
-b4_syncline([@oline@], [@ofile@])[
+       ]b4_user_actions[

        default: break;
       }
     YY_SYMBOL_PRINT ("-> $$ =", yyr1_[yyn], &yyval, &yyloc);
        default: break;
       }
     YY_SYMBOL_PRINT ("-> $$ =", yyr1_[yyn], &yyval, &yyloc);


@@ -706,7 +707,7 @@ b4_error_verbose_if([, yytoken])[));
     yyerror_range[0] = yylloc;
     if (yyerrstatus_ == 3)
       {
     yyerror_range[0] = yylloc;
     if (yyerrstatus_ == 3)
       {

-       /* If just tried and failed to reuse look-ahead token after an
+       /* If just tried and failed to reuse lookahead token after an

         error, discard it.  */
 
        if (yychar <= yyeof_)
         error, discard it.  */
 
        if (yychar <= yyeof_)


@@ -722,7 +723,7 @@ b4_error_verbose_if([, yytoken])[));
          }
       }
 
          }
       }
 

-    /* Else will try to reuse look-ahead token after shifting the error
+    /* Else will try to reuse lookahead token after shifting the error

        token.  */
     goto yyerrlab1;
 
        token.  */
     goto yyerrlab1;
 


@@ -784,7 +785,7 @@ b4_error_verbose_if([, yytoken])[));
 
     yyerror_range[1] = yylloc;
     // Using YYLLOC is tempting, but would change the location of
 
     yyerror_range[1] = yylloc;
     // Using YYLLOC is tempting, but would change the location of

-    // the look-ahead.  YYLOC is available though.
+    // the lookahead.  YYLOC is available though.

     YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2);
     yysemantic_stack_.push (yylval);
     yylocation_stack_.push (yyloc);
     YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2);
     yysemantic_stack_.push (yylval);
     yylocation_stack_.push (yyloc);


@@ -834,14 +835,14 @@ b4_error_verbose_if([, int tok])[)
     YYUSE (yystate);
 #if YYERROR_VERBOSE
     int yyn = yypact_[yystate];
     YYUSE (yystate);
 #if YYERROR_VERBOSE
     int yyn = yypact_[yystate];

-    if (yypact_ninf_ < yyn && yyn < yylast_)
+    if (yypact_ninf_ < yyn && yyn <= yylast_)

       {
        /* Start YYX at -YYN if negative to avoid negative indexes in
           YYCHECK.  */
        int yyxbegin = yyn < 0 ? -yyn : 0;
 
        /* Stay within bounds of both yycheck and yytname.  */
       {
        /* Start YYX at -YYN if negative to avoid negative indexes in
           YYCHECK.  */
        int yyxbegin = yyn < 0 ? -yyn : 0;
 
        /* Stay within bounds of both yycheck and yytname.  */

-       int yychecklim = yylast_ - yyn;
+       int yychecklim = yylast_ - yyn + 1;

        int yyxend = yychecklim < yyntokens_ ? yychecklim : yyntokens_;
        int count = 0;
        for (int x = yyxbegin; x < yyxend; ++x)
        int yyxend = yychecklim < yyntokens_ ? yychecklim : yyntokens_;
        int count = 0;
        for (int x = yyxbegin; x < yyxend; ++x)


@@ -1021,7 +1022,7 @@ b4_error_verbose_if([, int tok])[)
 
   /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
   ]b4_parser_class_name[::token_number_type
 
   /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
   ]b4_parser_class_name[::token_number_type

-  ]b4_parser_class_name[::yytranslate_ (int token)
+  ]b4_parser_class_name[::yytranslate_ (int t)

   {
     static
     const token_number_type
   {
     static
     const token_number_type


@@ -1029,8 +1030,8 @@ b4_error_verbose_if([, int tok])[)
     {
       ]b4_translate[
     };
     {
       ]b4_translate[
     };

-    if ((unsigned int) token <= yyuser_token_number_max_)
-      return translate_table[token];
+    if ((unsigned int) t <= yyuser_token_number_max_)
+      return translate_table[t];

     else
       return yyundef_token_;
   }
     else
       return yyundef_token_;
   }


@@ -1047,12 +1048,12 @@ b4_error_verbose_if([, int tok])[)
   const unsigned int ]b4_parser_class_name[::yyuser_token_number_max_ = ]b4_user_token_number_max[;
   const ]b4_parser_class_name[::token_number_type ]b4_parser_class_name[::yyundef_token_ = ]b4_undef_token_number[;
 
   const unsigned int ]b4_parser_class_name[::yyuser_token_number_max_ = ]b4_user_token_number_max[;
   const ]b4_parser_class_name[::token_number_type ]b4_parser_class_name[::yyundef_token_ = ]b4_undef_token_number[;
 

-} // namespace yy
+} // namespace ]b4_namespace[

 
 ]b4_epilogue
 dnl
 @output b4_dir_prefix[]stack.hh
 
 ]b4_epilogue
 dnl
 @output b4_dir_prefix[]stack.hh

-b4_copyright([stack handling for Bison C++ parsers],
+b4_copyright([Stack handling for Bison parsers in C++],

   [2002, 2003, 2004, 2005, 2006])[
 
 #ifndef BISON_STACK_HH
   [2002, 2003, 2004, 2005, 2006])[
 
 #ifndef BISON_STACK_HH


@@ -1060,7 +1061,7 @@ b4_copyright([stack handling for Bison C++ parsers],
 
 #include <deque>
 
 
 #include <deque>
 

-namespace yy
+namespace ]b4_namespace[

 {
   template <class T, class S = std::deque<T> >
   class stack
 {
   template <class T, class S = std::deque<T> >
   class stack