Use the new code_props interface in parse-gram.y.

* src/parse-gram.y (prologue_declaration, braceless, epilogue.opt):
Update all uses of translate_* functions to use the new code_props
interface and to use gram_scanner_last_string_free and
code_scanner_last_string_free where possible.
(grammar_declaration): symbol_list_destructor_set and
symbol_list_printer_set now perform the translation, so don't do it
here.  Use gram_scanner_last_string_free where possible.
* src/scan-code.h, src/scan-code.l (translate_symbol_action,
translate_code): Remove, no longer used.
* src/symlist.h, src/symlist.c (symbol_list_destructor_set,
symbol_list_printer_set): Perform code translation here rather than
depending on the caller to do so.

* src/symlist.h (struct symbol_list): Correct some documentation typos.
* src/scan-gram.h (gram_last_string): Remove declaration.
* src/scan-gram.l (last_string): Declare it static.

diff --git a/ChangeLog b/ChangeLog
index 8f269be5b48fd0790492b0096b3ed3f963770e66..71427307bd4b20f20ae74b2187806d31718c440f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,23 @@
+2007-01-02  Joel E. Denny  <jdenny@ces.clemson.edu>
+
+       Use the new code_props interface in parse-gram.y.
+       * src/parse-gram.y (prologue_declaration, braceless, epilogue.opt):
+       Update all uses of translate_* functions to use the new code_props
+       interface and to use gram_scanner_last_string_free and
+       code_scanner_last_string_free where possible.
+       (grammar_declaration): symbol_list_destructor_set and
+       symbol_list_printer_set now perform the translation, so don't do it
+       here.  Use gram_scanner_last_string_free where possible.
+       * src/scan-code.h, src/scan-code.l (translate_symbol_action,
+       translate_code): Remove, no longer used.
+       * src/symlist.h, src/symlist.c (symbol_list_destructor_set,
+       symbol_list_printer_set): Perform code translation here rather than
+       depending on the caller to do so.
+
+       * src/symlist.h (struct symbol_list): Correct some documentation typos.
+       * src/scan-gram.h (gram_last_string): Remove declaration.
+       * src/scan-gram.l (last_string): Declare it static.
+

 2007-01-02  Joel E. Denny  <jdenny@ces.clemson.edu>
 
        Encapsulate code properties and related functionality for the various
 2007-01-02  Joel E. Denny  <jdenny@ces.clemson.edu>
 
        Encapsulate code properties and related functionality for the various

diff --git a/src/parse-gram.c b/src/parse-gram.c
index 08ea208049e0499e5f2398db2154772c41c4ea41..7562beacbee0a8f0d45bf74e833e0f498c3f565f 100644 (file)
--- a/src/parse-gram.c
+++ b/src/parse-gram.c
@@ -58,6 +58,9 @@
 /* Push parsers.  */
 #define YYPUSH 0
 
 /* Push parsers.  */
 #define YYPUSH 0
 

+/* Pull parsers.  */
+#define YYPULL 1
+

 /* Using locations.  */
 #define YYLSP_NEEDED 1
 
 /* Using locations.  */
 #define YYLSP_NEEDED 1
 


@@ -73,11 +76,12 @@
 
 /* Copy the first part of user declarations.  */
 
 
 /* Copy the first part of user declarations.  */
 

-/* Line 164 of yacc.c  */
+/* Line 167 of yacc.c  */

 #line 1 "parse-gram.y"
 /* Bison Grammar Parser                             -*- C -*-
 
 #line 1 "parse-gram.y"
 /* Bison Grammar Parser                             -*- C -*-
 

-   Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+   Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation,
+   Inc.

 
    This file is part of Bison, the GNU Compiler Compiler.
 
 
    This file is part of Bison, the GNU Compiler Compiler.
 


@@ -152,8 +156,8 @@ static int current_prec = 0;
 #define YYTYPE_UINT8 uint_fast8_t
 
 
 #define YYTYPE_UINT8 uint_fast8_t
 
 

-/* Line 164 of yacc.c  */
-#line 157 "parse-gram.c"
+/* Line 167 of yacc.c  */
+#line 161 "parse-gram.c"

 
 /* Enabling traces.  */
 #ifndef YYDEBUG
 
 /* Enabling traces.  */
 #ifndef YYDEBUG


@@ -310,8 +314,8 @@ static int current_prec = 0;
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
 {
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
 {

-/* Line 198 of yacc.c  */
-#line 97 "parse-gram.y"
+/* Line 201 of yacc.c  */
+#line 98 "parse-gram.y"

 
   symbol *symbol;
   symbol_list *list;
 
   symbol *symbol;
   symbol_list *list;


@@ -323,8 +327,8 @@ typedef union YYSTYPE
   unsigned char character;
 }
 
   unsigned char character;
 }
 

-/* Line 198 of yacc.c  */
-#line 328 "parse-gram.c"
+/* Line 201 of yacc.c  */
+#line 332 "parse-gram.c"

        YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
        YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */


@@ -348,8 +352,8 @@ typedef struct YYLTYPE
 /* Copy the second part of user declarations.  */
 
 
 /* Copy the second part of user declarations.  */
 
 

-/* Line 221 of yacc.c  */
-#line 353 "parse-gram.c"
+/* Line 224 of yacc.c  */
+#line 357 "parse-gram.c"

 
 #ifdef short
 # undef short
 
 #ifdef short
 # undef short


@@ -674,17 +678,17 @@ static const yytype_int8 yyrhs[] =
 /* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
 static const yytype_uint16 yyrline[] =
 {
 /* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
 static const yytype_uint16 yyrline[] =
 {

-       0,   213,   213,   221,   223,   227,   228,   229,   230,   231,
-     232,   237,   238,   239,   240,   241,   242,   247,   251,   252,
-     253,   254,   255,   256,   257,   258,   259,   260,   261,   262,
-     263,   264,   265,   266,   267,   268,   269,   273,   274,   275,
-     279,   287,   295,   299,   303,   304,   305,   306,   317,   318,
-     322,   350,   350,   355,   355,   360,   371,   386,   387,   388,
-     392,   393,   398,   400,   405,   406,   410,   411,   412,   413,
-     418,   423,   428,   434,   440,   451,   452,   461,   462,   468,
-     469,   470,   477,   477,   481,   482,   483,   488,   489,   491,
-     493,   495,   497,   507,   508,   514,   518,   523,   539,   541,
-     550,   555,   556,   561,   568,   570
+       0,   214,   214,   222,   224,   228,   229,   238,   239,   240,
+     241,   246,   247,   248,   249,   250,   251,   256,   265,   266,
+     267,   268,   269,   270,   271,   272,   273,   274,   275,   276,
+     277,   278,   279,   280,   281,   282,   283,   287,   288,   289,
+     293,   300,   307,   311,   315,   316,   317,   318,   329,   330,
+     334,   363,   363,   368,   368,   373,   384,   399,   400,   401,
+     405,   406,   411,   413,   418,   419,   423,   424,   425,   426,
+     431,   436,   441,   447,   453,   464,   465,   474,   475,   481,
+     482,   483,   490,   490,   494,   495,   496,   501,   502,   504,
+     506,   508,   510,   520,   521,   527,   531,   536,   556,   558,
+     567,   572,   573,   578,   585,   587

 };
 #endif
 
 };
 #endif
 


@@ -1054,147 +1058,147 @@ yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp)
     {
       case 3: /* "\"string\"" */
 
     {
       case 3: /* "\"string\"" */
 

-/* Line 670 of yacc.c  */
-#line 191 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 192 "parse-gram.y"

        { fputs (quotearg_style (c_quoting_style, (yyvaluep->chars)), stderr); };
 
        { fputs (quotearg_style (c_quoting_style, (yyvaluep->chars)), stderr); };
 

-/* Line 670 of yacc.c  */
-#line 1063 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1067 "parse-gram.c"

        break;
       case 4: /* "\"integer\"" */
 
        break;
       case 4: /* "\"integer\"" */
 

-/* Line 670 of yacc.c  */
-#line 202 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 203 "parse-gram.y"

        { fprintf (stderr, "%d", (yyvaluep->integer)); };
 
        { fprintf (stderr, "%d", (yyvaluep->integer)); };
 

-/* Line 670 of yacc.c  */
-#line 1072 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1076 "parse-gram.c"

        break;
       case 48: /* "\"{...}\"" */
 
        break;
       case 48: /* "\"{...}\"" */
 

-/* Line 670 of yacc.c  */
-#line 193 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 194 "parse-gram.y"

        { fprintf (stderr, "{\n%s\n}", (yyvaluep->code)); };
 
        { fprintf (stderr, "{\n%s\n}", (yyvaluep->code)); };
 

-/* Line 670 of yacc.c  */
-#line 1081 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1085 "parse-gram.c"

        break;
       case 49: /* "\"char\"" */
 
        break;
       case 49: /* "\"char\"" */
 

-/* Line 670 of yacc.c  */
-#line 185 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 186 "parse-gram.y"

        { fputs (char_name ((yyvaluep->character)), stderr); };
 
        { fputs (char_name ((yyvaluep->character)), stderr); };
 

-/* Line 670 of yacc.c  */
-#line 1090 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1094 "parse-gram.c"

        break;
       case 50: /* "\"epilogue\"" */
 
        break;
       case 50: /* "\"epilogue\"" */
 

-/* Line 670 of yacc.c  */
-#line 193 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 194 "parse-gram.y"

        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 
        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 

-/* Line 670 of yacc.c  */
-#line 1099 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1103 "parse-gram.c"

        break;
       case 52: /* "\"identifier\"" */
 
        break;
       case 52: /* "\"identifier\"" */
 

-/* Line 670 of yacc.c  */
-#line 198 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 199 "parse-gram.y"

        { fputs ((yyvaluep->uniqstr), stderr); };
 
        { fputs ((yyvaluep->uniqstr), stderr); };
 

-/* Line 670 of yacc.c  */
-#line 1108 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1112 "parse-gram.c"

        break;
       case 53: /* "\"identifier:\"" */
 
        break;
       case 53: /* "\"identifier:\"" */
 

-/* Line 670 of yacc.c  */
-#line 199 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 200 "parse-gram.y"

        { fprintf (stderr, "%s:", (yyvaluep->uniqstr)); };
 
        { fprintf (stderr, "%s:", (yyvaluep->uniqstr)); };
 

-/* Line 670 of yacc.c  */
-#line 1117 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1121 "parse-gram.c"

        break;
       case 56: /* "\"%{...%}\"" */
 
        break;
       case 56: /* "\"%{...%}\"" */
 

-/* Line 670 of yacc.c  */
-#line 193 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 194 "parse-gram.y"

        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 
        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 

-/* Line 670 of yacc.c  */
-#line 1126 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1130 "parse-gram.c"

        break;
       case 58: /* "\"type\"" */
 
        break;
       case 58: /* "\"type\"" */
 

-/* Line 670 of yacc.c  */
-#line 197 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 198 "parse-gram.y"

        { fprintf (stderr, "<%s>", (yyvaluep->uniqstr)); };
 
        { fprintf (stderr, "<%s>", (yyvaluep->uniqstr)); };
 

-/* Line 670 of yacc.c  */
-#line 1135 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1139 "parse-gram.c"

        break;
       case 85: /* "content" */
 
        break;
       case 85: /* "content" */
 

-/* Line 670 of yacc.c  */
-#line 193 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 194 "parse-gram.y"

        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 
        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 

-/* Line 670 of yacc.c  */
-#line 1144 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1148 "parse-gram.c"

        break;
       case 86: /* "content.opt" */
 
        break;
       case 86: /* "content.opt" */
 

-/* Line 670 of yacc.c  */
-#line 193 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 194 "parse-gram.y"

        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 
        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 

-/* Line 670 of yacc.c  */
-#line 1153 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1157 "parse-gram.c"

        break;
       case 87: /* "braceless" */
 
        break;
       case 87: /* "braceless" */
 

-/* Line 670 of yacc.c  */
-#line 193 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 194 "parse-gram.y"

        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 
        { fprintf (stderr, "{\n%s\n}", (yyvaluep->chars)); };
 

-/* Line 670 of yacc.c  */
-#line 1162 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1166 "parse-gram.c"

        break;
       case 88: /* "id" */
 
        break;
       case 88: /* "id" */
 

-/* Line 670 of yacc.c  */
-#line 205 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 206 "parse-gram.y"

        { fprintf (stderr, "%s", (yyvaluep->symbol)->tag); };
 
        { fprintf (stderr, "%s", (yyvaluep->symbol)->tag); };
 

-/* Line 670 of yacc.c  */
-#line 1171 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1175 "parse-gram.c"

        break;
       case 89: /* "id_colon" */
 
        break;
       case 89: /* "id_colon" */
 

-/* Line 670 of yacc.c  */
-#line 206 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 207 "parse-gram.y"

        { fprintf (stderr, "%s:", (yyvaluep->symbol)->tag); };
 
        { fprintf (stderr, "%s:", (yyvaluep->symbol)->tag); };
 

-/* Line 670 of yacc.c  */
-#line 1180 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1184 "parse-gram.c"

        break;
       case 90: /* "symbol" */
 
        break;
       case 90: /* "symbol" */
 

-/* Line 670 of yacc.c  */
-#line 205 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 206 "parse-gram.y"

        { fprintf (stderr, "%s", (yyvaluep->symbol)->tag); };
 
        { fprintf (stderr, "%s", (yyvaluep->symbol)->tag); };
 

-/* Line 670 of yacc.c  */
-#line 1189 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1193 "parse-gram.c"

        break;
       case 91: /* "string_as_id" */
 
        break;
       case 91: /* "string_as_id" */
 

-/* Line 670 of yacc.c  */
-#line 205 "parse-gram.y"
+/* Line 673 of yacc.c  */
+#line 206 "parse-gram.y"

        { fprintf (stderr, "%s", (yyvaluep->symbol)->tag); };
 
        { fprintf (stderr, "%s", (yyvaluep->symbol)->tag); };
 

-/* Line 670 of yacc.c  */
-#line 1198 "parse-gram.c"
+/* Line 673 of yacc.c  */
+#line 1202 "parse-gram.c"

        break;
       default:
        break;
        break;
       default:
        break;


@@ -1708,8 +1712,8 @@ YYLTYPE yylloc;
 
   /* User initialization code.  */
   
 
   /* User initialization code.  */
   

-/* Line 1082 of yacc.c  */
-#line 89 "parse-gram.y"
+/* Line 1085 of yacc.c  */
+#line 90 "parse-gram.y"

 {
   /* Bison's grammar can initial empty locations, hence a default
      location is needed. */
 {
   /* Bison's grammar can initial empty locations, hence a default
      location is needed. */


@@ -1717,8 +1721,8 @@ YYLTYPE yylloc;
   boundary_set (&yylloc.end, current_file, 1, 1);
 }
 
   boundary_set (&yylloc.end, current_file, 1, 1);
 }
 

-/* Line 1082 of yacc.c  */
-#line 1722 "parse-gram.c"
+/* Line 1085 of yacc.c  */
+#line 1726 "parse-gram.c"

   yylsp[0] = yylloc;
   goto yysetstate;
 
   yylsp[0] = yylloc;
   goto yysetstate;
 


@@ -1903,36 +1907,43 @@ yyreduce:
     {
         case 6:
 
     {
         case 6:
 

-/* Line 1269 of yacc.c  */
-#line 228 "parse-gram.y"
-    { prologue_augment (translate_code ((yyvsp[(1) - (1)].chars), (yylsp[(1) - (1)])), (yylsp[(1) - (1)]), union_seen); }
+/* Line 1272 of yacc.c  */
+#line 230 "parse-gram.y"
+    {
+      code_props plain_code;
+      code_props_plain_init (&plain_code, (yyvsp[(1) - (1)].chars), (yylsp[(1) - (1)]));
+      code_props_translate_code (&plain_code);
+      gram_scanner_last_string_free ();
+      prologue_augment (plain_code.code, (yylsp[(1) - (1)]), union_seen);
+      code_scanner_last_string_free ();
+    }

     break;
 
   case 7:
 
     break;
 
   case 7:
 

-/* Line 1269 of yacc.c  */
-#line 229 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 238 "parse-gram.y"

     { debug_flag = true; }
     break;
 
   case 8:
 
     { debug_flag = true; }
     break;
 
   case 8:
 

-/* Line 1269 of yacc.c  */
-#line 230 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 239 "parse-gram.y"

     { muscle_insert ((yyvsp[(2) - (3)].chars), (yyvsp[(3) - (3)].chars)); }
     break;
 
   case 9:
 
     { muscle_insert ((yyvsp[(2) - (3)].chars), (yyvsp[(3) - (3)].chars)); }
     break;
 
   case 9:
 

-/* Line 1269 of yacc.c  */
-#line 231 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 240 "parse-gram.y"

     { defines_flag = true; }
     break;
 
   case 10:
 
     { defines_flag = true; }
     break;
 
   case 10:
 

-/* Line 1269 of yacc.c  */
-#line 233 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 242 "parse-gram.y"

     {
       defines_flag = true;
       spec_defines_file = xstrdup ((yyvsp[(2) - (2)].chars));
     {
       defines_flag = true;
       spec_defines_file = xstrdup ((yyvsp[(2) - (2)].chars));


@@ -1941,43 +1952,43 @@ yyreduce:
 
   case 11:
 
 
   case 11:
 

-/* Line 1269 of yacc.c  */
-#line 237 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 246 "parse-gram.y"

     { error_verbose = true; }
     break;
 
   case 12:
 
     { error_verbose = true; }
     break;
 
   case 12:
 

-/* Line 1269 of yacc.c  */
-#line 238 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 247 "parse-gram.y"

     { expected_sr_conflicts = (yyvsp[(2) - (2)].integer); }
     break;
 
   case 13:
 
     { expected_sr_conflicts = (yyvsp[(2) - (2)].integer); }
     break;
 
   case 13:
 

-/* Line 1269 of yacc.c  */
-#line 239 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 248 "parse-gram.y"

     { expected_rr_conflicts = (yyvsp[(2) - (2)].integer); }
     break;
 
   case 14:
 
     { expected_rr_conflicts = (yyvsp[(2) - (2)].integer); }
     break;
 
   case 14:
 

-/* Line 1269 of yacc.c  */
-#line 240 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 249 "parse-gram.y"

     { spec_file_prefix = (yyvsp[(2) - (2)].chars); }
     break;
 
   case 15:
 
     { spec_file_prefix = (yyvsp[(2) - (2)].chars); }
     break;
 
   case 15:
 

-/* Line 1269 of yacc.c  */
-#line 241 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 250 "parse-gram.y"

     { spec_file_prefix = (yyvsp[(3) - (3)].chars); }
     break;
 
   case 16:
 
     { spec_file_prefix = (yyvsp[(3) - (3)].chars); }
     break;
 
   case 16:
 

-/* Line 1269 of yacc.c  */
-#line 243 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 252 "parse-gram.y"

     {
       nondeterministic_parser = true;
       glr_parser = true;
     {
       nondeterministic_parser = true;
       glr_parser = true;


@@ -1986,143 +1997,148 @@ yyreduce:
 
   case 17:
 
 
   case 17:
 

-/* Line 1269 of yacc.c  */
-#line 248 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 257 "parse-gram.y"

     {
     {

-      muscle_code_grow ("initial_action", translate_symbol_action ((yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])), (yylsp[(2) - (2)]));
+      code_props action;
+      code_props_symbol_action_init (&action, (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)]));
+      code_props_translate_code (&action);
+      gram_scanner_last_string_free ();
+      muscle_code_grow ("initial_action", action.code, (yylsp[(2) - (2)]));
+      code_scanner_last_string_free ();

     }
     break;
 
   case 18:
 
     }
     break;
 
   case 18:
 

-/* Line 1269 of yacc.c  */
-#line 251 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 265 "parse-gram.y"

     { language_argmatch ((yyvsp[(2) - (2)].chars), 1, &(yylsp[(1) - (2)])); }
     break;
 
   case 19:
 
     { language_argmatch ((yyvsp[(2) - (2)].chars), 1, &(yylsp[(1) - (2)])); }
     break;
 
   case 19:
 

-/* Line 1269 of yacc.c  */
-#line 252 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 266 "parse-gram.y"

     { add_param ("lex_param", (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); }
     break;
 
   case 20:
 
     { add_param ("lex_param", (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); }
     break;
 
   case 20:
 

-/* Line 1269 of yacc.c  */
-#line 253 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 267 "parse-gram.y"

     { locations_flag = true; }
     break;
 
   case 21:
 
     { locations_flag = true; }
     break;
 
   case 21:
 

-/* Line 1269 of yacc.c  */
-#line 254 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 268 "parse-gram.y"

     { spec_name_prefix = (yyvsp[(2) - (2)].chars); }
     break;
 
   case 22:
 
     { spec_name_prefix = (yyvsp[(2) - (2)].chars); }
     break;
 
   case 22:
 

-/* Line 1269 of yacc.c  */
-#line 255 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 269 "parse-gram.y"

     { spec_name_prefix = (yyvsp[(3) - (3)].chars); }
     break;
 
   case 23:
 
     { spec_name_prefix = (yyvsp[(3) - (3)].chars); }
     break;
 
   case 23:
 

-/* Line 1269 of yacc.c  */
-#line 256 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 270 "parse-gram.y"

     { no_lines_flag = true; }
     break;
 
   case 24:
 
     { no_lines_flag = true; }
     break;
 
   case 24:
 

-/* Line 1269 of yacc.c  */
-#line 257 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 271 "parse-gram.y"

     { nondeterministic_parser = true; }
     break;
 
   case 25:
 
     { nondeterministic_parser = true; }
     break;
 
   case 25:
 

-/* Line 1269 of yacc.c  */
-#line 258 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 272 "parse-gram.y"

     { spec_outfile = (yyvsp[(2) - (2)].chars); }
     break;
 
   case 26:
 
     { spec_outfile = (yyvsp[(2) - (2)].chars); }
     break;
 
   case 26:
 

-/* Line 1269 of yacc.c  */
-#line 259 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 273 "parse-gram.y"

     { spec_outfile = (yyvsp[(3) - (3)].chars); }
     break;
 
   case 27:
 
     { spec_outfile = (yyvsp[(3) - (3)].chars); }
     break;
 
   case 27:
 

-/* Line 1269 of yacc.c  */
-#line 260 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 274 "parse-gram.y"

     { add_param ("parse_param", (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); }
     break;
 
   case 28:
 
     { add_param ("parse_param", (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); }
     break;
 
   case 28:
 

-/* Line 1269 of yacc.c  */
-#line 261 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 275 "parse-gram.y"

     { pure_parser = true; }
     break;
 
   case 29:
 
     { pure_parser = true; }
     break;
 
   case 29:
 

-/* Line 1269 of yacc.c  */
-#line 262 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 276 "parse-gram.y"

     { push_parser = true; pull_parser = false; }
     break;
 
   case 30:
 
     { push_parser = true; pull_parser = false; }
     break;
 
   case 30:
 

-/* Line 1269 of yacc.c  */
-#line 263 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 277 "parse-gram.y"

     { push_parser = true; pull_parser = true; }
     break;
 
   case 31:
 
     { push_parser = true; pull_parser = true; }
     break;
 
   case 31:
 

-/* Line 1269 of yacc.c  */
-#line 264 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 278 "parse-gram.y"

     { version_check (&(yylsp[(2) - (2)]), (yyvsp[(2) - (2)].chars)); }
     break;
 
   case 32:
 
     { version_check (&(yylsp[(2) - (2)]), (yyvsp[(2) - (2)].chars)); }
     break;
 
   case 32:
 

-/* Line 1269 of yacc.c  */
-#line 265 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 279 "parse-gram.y"

     { skeleton_arg ((yyvsp[(2) - (2)].chars), 1, &(yylsp[(1) - (2)])); }
     break;
 
   case 33:
 
     { skeleton_arg ((yyvsp[(2) - (2)].chars), 1, &(yylsp[(1) - (2)])); }
     break;
 
   case 33:
 

-/* Line 1269 of yacc.c  */
-#line 266 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 280 "parse-gram.y"

     { token_table_flag = true; }
     break;
 
   case 34:
 
     { token_table_flag = true; }
     break;
 
   case 34:
 

-/* Line 1269 of yacc.c  */
-#line 267 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 281 "parse-gram.y"

     { report_flag = report_states; }
     break;
 
   case 35:
 
     { report_flag = report_states; }
     break;
 
   case 35:
 

-/* Line 1269 of yacc.c  */
-#line 268 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 282 "parse-gram.y"

     { yacc_flag = true; }
     break;
 
   case 39:
 
     { yacc_flag = true; }
     break;
 
   case 39:
 

-/* Line 1269 of yacc.c  */
-#line 276 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 290 "parse-gram.y"

     {
       grammar_start_symbol_set ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)]));
     }
     {
       grammar_start_symbol_set ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)]));
     }


@@ -2130,34 +2146,32 @@ yyreduce:
 
   case 40:
 
 
   case 40:
 

-/* Line 1269 of yacc.c  */
-#line 280 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 294 "parse-gram.y"

     {
       symbol_list *list;
     {
       symbol_list *list;

-      const char *action = translate_symbol_action ((yyvsp[(2) - (3)].code), (yylsp[(2) - (3)]));

       for (list = (yyvsp[(3) - (3)].list); list; list = list->next)
       for (list = (yyvsp[(3) - (3)].list); list; list = list->next)

-       symbol_list_destructor_set (list, action, (yylsp[(2) - (3)]));
+       symbol_list_destructor_set (list, (yyvsp[(2) - (3)].code), (yylsp[(2) - (3)]));

       symbol_list_free ((yyvsp[(3) - (3)].list));
     }
     break;
 
   case 41:
 
       symbol_list_free ((yyvsp[(3) - (3)].list));
     }
     break;
 
   case 41:
 

-/* Line 1269 of yacc.c  */
-#line 288 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 301 "parse-gram.y"

     {
       symbol_list *list;
     {
       symbol_list *list;

-      const char *action = translate_symbol_action ((yyvsp[(2) - (3)].code), (yylsp[(2) - (3)]));

       for (list = (yyvsp[(3) - (3)].list); list; list = list->next)
       for (list = (yyvsp[(3) - (3)].list); list; list = list->next)

-       symbol_list_printer_set (list, action, (yylsp[(2) - (3)]));
+       symbol_list_printer_set (list, (yyvsp[(2) - (3)].code), (yylsp[(2) - (3)]));

       symbol_list_free ((yyvsp[(3) - (3)].list));
     }
     break;
 
   case 42:
 
       symbol_list_free ((yyvsp[(3) - (3)].list));
     }
     break;
 
   case 42:
 

-/* Line 1269 of yacc.c  */
-#line 296 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 308 "parse-gram.y"

     {
       default_prec = true;
     }
     {
       default_prec = true;
     }


@@ -2165,8 +2179,8 @@ yyreduce:
 
   case 43:
 
 
   case 43:
 

-/* Line 1269 of yacc.c  */
-#line 300 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 312 "parse-gram.y"

     {
       default_prec = false;
     }
     {
       default_prec = false;
     }


@@ -2174,50 +2188,50 @@ yyreduce:
 
   case 44:
 
 
   case 44:
 

-/* Line 1269 of yacc.c  */
-#line 303 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 315 "parse-gram.y"

     { prologue_augment ((yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)]), true); }
     break;
 
   case 45:
 
     { prologue_augment ((yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)]), true); }
     break;
 
   case 45:
 

-/* Line 1269 of yacc.c  */
-#line 304 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 316 "parse-gram.y"

     { prologue_augment ((yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)]), false); }
     break;
 
   case 46:
 
     { prologue_augment ((yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)]), false); }
     break;
 
   case 46:
 

-/* Line 1269 of yacc.c  */
-#line 305 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 317 "parse-gram.y"

     { muscle_code_grow ("provides", (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); }
     break;
 
   case 47:
 
     { muscle_code_grow ("provides", (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); }
     break;
 
   case 47:
 

-/* Line 1269 of yacc.c  */
-#line 306 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 318 "parse-gram.y"

     { muscle_code_grow ("requires", (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); }
     break;
 
   case 48:
 
     { muscle_code_grow ("requires", (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); }
     break;
 
   case 48:
 

-/* Line 1269 of yacc.c  */
-#line 317 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 329 "parse-gram.y"

     {}
     break;
 
   case 49:
 
     {}
     break;
 
   case 49:
 

-/* Line 1269 of yacc.c  */
-#line 318 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 330 "parse-gram.y"

     { muscle_code_grow ("union_name", (yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 50:
 
     { muscle_code_grow ("union_name", (yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 50:
 

-/* Line 1269 of yacc.c  */
-#line 323 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 335 "parse-gram.y"

     {
       char const *body = (yyvsp[(3) - (3)].code);
 
     {
       char const *body = (yyvsp[(3) - (3)].code);
 


@@ -2238,20 +2252,21 @@ yyreduce:
 
       union_seen = true;
       muscle_code_grow ("stype", body, (yylsp[(3) - (3)]));
 
       union_seen = true;
       muscle_code_grow ("stype", body, (yylsp[(3) - (3)]));

+      gram_scanner_last_string_free ();

     }
     break;
 
   case 51:
 
     }
     break;
 
   case 51:
 

-/* Line 1269 of yacc.c  */
-#line 350 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 363 "parse-gram.y"

     { current_class = nterm_sym; }
     break;
 
   case 52:
 
     { current_class = nterm_sym; }
     break;
 
   case 52:
 

-/* Line 1269 of yacc.c  */
-#line 351 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 364 "parse-gram.y"

     {
       current_class = unknown_sym;
       current_type = NULL;
     {
       current_class = unknown_sym;
       current_type = NULL;


@@ -2260,15 +2275,15 @@ yyreduce:
 
   case 53:
 
 
   case 53:
 

-/* Line 1269 of yacc.c  */
-#line 355 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 368 "parse-gram.y"

     { current_class = token_sym; }
     break;
 
   case 54:
 
     { current_class = token_sym; }
     break;
 
   case 54:
 

-/* Line 1269 of yacc.c  */
-#line 356 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 369 "parse-gram.y"

     {
       current_class = unknown_sym;
       current_type = NULL;
     {
       current_class = unknown_sym;
       current_type = NULL;


@@ -2277,8 +2292,8 @@ yyreduce:
 
   case 55:
 
 
   case 55:
 

-/* Line 1269 of yacc.c  */
-#line 361 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 374 "parse-gram.y"

     {
       symbol_list *list;
       tag_seen = true;
     {
       symbol_list *list;
       tag_seen = true;


@@ -2290,8 +2305,8 @@ yyreduce:
 
   case 56:
 
 
   case 56:
 

-/* Line 1269 of yacc.c  */
-#line 372 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 385 "parse-gram.y"

     {
       symbol_list *list;
       ++current_prec;
     {
       symbol_list *list;
       ++current_prec;


@@ -2307,99 +2322,99 @@ yyreduce:
 
   case 57:
 
 
   case 57:
 

-/* Line 1269 of yacc.c  */
-#line 386 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 399 "parse-gram.y"

     { (yyval.assoc) = left_assoc; }
     break;
 
   case 58:
 
     { (yyval.assoc) = left_assoc; }
     break;
 
   case 58:
 

-/* Line 1269 of yacc.c  */
-#line 387 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 400 "parse-gram.y"

     { (yyval.assoc) = right_assoc; }
     break;
 
   case 59:
 
     { (yyval.assoc) = right_assoc; }
     break;
 
   case 59:
 

-/* Line 1269 of yacc.c  */
-#line 388 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 401 "parse-gram.y"

     { (yyval.assoc) = non_assoc; }
     break;
 
   case 60:
 
     { (yyval.assoc) = non_assoc; }
     break;
 
   case 60:
 

-/* Line 1269 of yacc.c  */
-#line 392 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 405 "parse-gram.y"

     { current_type = NULL; }
     break;
 
   case 61:
 
     { current_type = NULL; }
     break;
 
   case 61:
 

-/* Line 1269 of yacc.c  */
-#line 393 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 406 "parse-gram.y"

     { current_type = (yyvsp[(1) - (1)].uniqstr); tag_seen = true; }
     break;
 
   case 62:
 
     { current_type = (yyvsp[(1) - (1)].uniqstr); tag_seen = true; }
     break;
 
   case 62:
 

-/* Line 1269 of yacc.c  */
-#line 399 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 412 "parse-gram.y"

     { (yyval.list) = symbol_list_sym_new ((yyvsp[(1) - (1)].symbol), (yylsp[(1) - (1)])); }
     break;
 
   case 63:
 
     { (yyval.list) = symbol_list_sym_new ((yyvsp[(1) - (1)].symbol), (yylsp[(1) - (1)])); }
     break;
 
   case 63:
 

-/* Line 1269 of yacc.c  */
-#line 401 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 414 "parse-gram.y"

     { (yyval.list) = symbol_list_prepend ((yyvsp[(1) - (2)].list), symbol_list_sym_new ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)]))); }
     break;
 
   case 64:
 
     { (yyval.list) = symbol_list_prepend ((yyvsp[(1) - (2)].list), symbol_list_sym_new ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)]))); }
     break;
 
   case 64:
 

-/* Line 1269 of yacc.c  */
-#line 405 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 418 "parse-gram.y"

     { (yyval.list) = (yyvsp[(1) - (1)].list); }
     break;
 
   case 65:
 
     { (yyval.list) = (yyvsp[(1) - (1)].list); }
     break;
 
   case 65:
 

-/* Line 1269 of yacc.c  */
-#line 406 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 419 "parse-gram.y"

     { (yyval.list) = symbol_list_prepend ((yyvsp[(1) - (2)].list), (yyvsp[(2) - (2)].list)); }
     break;
 
   case 66:
 
     { (yyval.list) = symbol_list_prepend ((yyvsp[(1) - (2)].list), (yyvsp[(2) - (2)].list)); }
     break;
 
   case 66:
 

-/* Line 1269 of yacc.c  */
-#line 410 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 423 "parse-gram.y"

     { (yyval.list) = symbol_list_sym_new ((yyvsp[(1) - (1)].symbol), (yylsp[(1) - (1)])); }
     break;
 
   case 67:
 
     { (yyval.list) = symbol_list_sym_new ((yyvsp[(1) - (1)].symbol), (yylsp[(1) - (1)])); }
     break;
 
   case 67:
 

-/* Line 1269 of yacc.c  */
-#line 411 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 424 "parse-gram.y"

     { (yyval.list) = symbol_list_type_new ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 68:
 
     { (yyval.list) = symbol_list_type_new ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 68:
 

-/* Line 1269 of yacc.c  */
-#line 412 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 425 "parse-gram.y"

     { (yyval.list) = symbol_list_default_tagged_new ((yylsp[(1) - (1)])); }
     break;
 
   case 69:
 
     { (yyval.list) = symbol_list_default_tagged_new ((yylsp[(1) - (1)])); }
     break;
 
   case 69:
 

-/* Line 1269 of yacc.c  */
-#line 413 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 426 "parse-gram.y"

     { (yyval.list) = symbol_list_default_tagless_new ((yylsp[(1) - (1)])); }
     break;
 
   case 70:
 
     { (yyval.list) = symbol_list_default_tagless_new ((yylsp[(1) - (1)])); }
     break;
 
   case 70:
 

-/* Line 1269 of yacc.c  */
-#line 419 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 432 "parse-gram.y"

     {
        current_type = (yyvsp[(1) - (1)].uniqstr);
        tag_seen = true;
     {
        current_type = (yyvsp[(1) - (1)].uniqstr);
        tag_seen = true;


@@ -2408,8 +2423,8 @@ yyreduce:
 
   case 71:
 
 
   case 71:
 

-/* Line 1269 of yacc.c  */
-#line 424 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 437 "parse-gram.y"

     {
        symbol_class_set ((yyvsp[(1) - (1)].symbol), current_class, (yylsp[(1) - (1)]), true);
        symbol_type_set ((yyvsp[(1) - (1)].symbol), current_type, (yylsp[(1) - (1)]));
     {
        symbol_class_set ((yyvsp[(1) - (1)].symbol), current_class, (yylsp[(1) - (1)]), true);
        symbol_type_set ((yyvsp[(1) - (1)].symbol), current_type, (yylsp[(1) - (1)]));


@@ -2418,8 +2433,8 @@ yyreduce:
 
   case 72:
 
 
   case 72:
 

-/* Line 1269 of yacc.c  */
-#line 429 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 442 "parse-gram.y"

     {
       symbol_class_set ((yyvsp[(1) - (2)].symbol), current_class, (yylsp[(1) - (2)]), true);
       symbol_type_set ((yyvsp[(1) - (2)].symbol), current_type, (yylsp[(1) - (2)]));
     {
       symbol_class_set ((yyvsp[(1) - (2)].symbol), current_class, (yylsp[(1) - (2)]), true);
       symbol_type_set ((yyvsp[(1) - (2)].symbol), current_type, (yylsp[(1) - (2)]));


@@ -2429,8 +2444,8 @@ yyreduce:
 
   case 73:
 
 
   case 73:
 

-/* Line 1269 of yacc.c  */
-#line 435 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 448 "parse-gram.y"

     {
       symbol_class_set ((yyvsp[(1) - (2)].symbol), current_class, (yylsp[(1) - (2)]), true);
       symbol_type_set ((yyvsp[(1) - (2)].symbol), current_type, (yylsp[(1) - (2)]));
     {
       symbol_class_set ((yyvsp[(1) - (2)].symbol), current_class, (yylsp[(1) - (2)]), true);
       symbol_type_set ((yyvsp[(1) - (2)].symbol), current_type, (yylsp[(1) - (2)]));


@@ -2440,8 +2455,8 @@ yyreduce:
 
   case 74:
 
 
   case 74:
 

-/* Line 1269 of yacc.c  */
-#line 441 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 454 "parse-gram.y"

     {
       symbol_class_set ((yyvsp[(1) - (3)].symbol), current_class, (yylsp[(1) - (3)]), true);
       symbol_type_set ((yyvsp[(1) - (3)].symbol), current_type, (yylsp[(1) - (3)]));
     {
       symbol_class_set ((yyvsp[(1) - (3)].symbol), current_class, (yylsp[(1) - (3)]), true);
       symbol_type_set ((yyvsp[(1) - (3)].symbol), current_type, (yylsp[(1) - (3)]));


@@ -2452,8 +2467,8 @@ yyreduce:
 
   case 81:
 
 
   case 81:
 

-/* Line 1269 of yacc.c  */
-#line 471 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 484 "parse-gram.y"

     {
       yyerrok;
     }
     {
       yyerrok;
     }


@@ -2461,71 +2476,71 @@ yyreduce:
 
   case 82:
 
 
   case 82:
 

-/* Line 1269 of yacc.c  */
-#line 477 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 490 "parse-gram.y"

     { current_lhs = (yyvsp[(1) - (1)].symbol); current_lhs_location = (yylsp[(1) - (1)]); }
     break;
 
   case 84:
 
     { current_lhs = (yyvsp[(1) - (1)].symbol); current_lhs_location = (yylsp[(1) - (1)]); }
     break;
 
   case 84:
 

-/* Line 1269 of yacc.c  */
-#line 481 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 494 "parse-gram.y"

     { grammar_current_rule_end ((yylsp[(1) - (1)])); }
     break;
 
   case 85:
 
     { grammar_current_rule_end ((yylsp[(1) - (1)])); }
     break;
 
   case 85:
 

-/* Line 1269 of yacc.c  */
-#line 482 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 495 "parse-gram.y"

     { grammar_current_rule_end ((yylsp[(3) - (3)])); }
     break;
 
   case 87:
 
     { grammar_current_rule_end ((yylsp[(3) - (3)])); }
     break;
 
   case 87:
 

-/* Line 1269 of yacc.c  */
-#line 488 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 501 "parse-gram.y"

     { grammar_current_rule_begin (current_lhs, current_lhs_location); }
     break;
 
   case 88:
 
     { grammar_current_rule_begin (current_lhs, current_lhs_location); }
     break;
 
   case 88:
 

-/* Line 1269 of yacc.c  */
-#line 490 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 503 "parse-gram.y"

     { grammar_current_rule_symbol_append ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)])); }
     break;
 
   case 89:
 
     { grammar_current_rule_symbol_append ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)])); }
     break;
 
   case 89:
 

-/* Line 1269 of yacc.c  */
-#line 492 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 505 "parse-gram.y"

     { grammar_current_rule_action_append ((yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); }
     break;
 
   case 90:
 
     { grammar_current_rule_action_append ((yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); }
     break;
 
   case 90:
 

-/* Line 1269 of yacc.c  */
-#line 494 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 507 "parse-gram.y"

     { grammar_current_rule_prec_set ((yyvsp[(3) - (3)].symbol), (yylsp[(3) - (3)])); }
     break;
 
   case 91:
 
     { grammar_current_rule_prec_set ((yyvsp[(3) - (3)].symbol), (yylsp[(3) - (3)])); }
     break;
 
   case 91:
 

-/* Line 1269 of yacc.c  */
-#line 496 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 509 "parse-gram.y"

     { grammar_current_rule_dprec_set ((yyvsp[(3) - (3)].integer), (yylsp[(3) - (3)])); }
     break;
 
   case 92:
 
     { grammar_current_rule_dprec_set ((yyvsp[(3) - (3)].integer), (yylsp[(3) - (3)])); }
     break;
 
   case 92:
 

-/* Line 1269 of yacc.c  */
-#line 498 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 511 "parse-gram.y"

     { grammar_current_rule_merge_set ((yyvsp[(3) - (3)].uniqstr), (yylsp[(3) - (3)])); }
     break;
 
   case 95:
 
     { grammar_current_rule_merge_set ((yyvsp[(3) - (3)].uniqstr), (yylsp[(3) - (3)])); }
     break;
 
   case 95:
 

-/* Line 1269 of yacc.c  */
-#line 514 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 527 "parse-gram.y"

     {
       static char one[] = "1";
       (yyval.chars) = one;
     {
       static char one[] = "1";
       (yyval.chars) = one;


@@ -2534,25 +2549,29 @@ yyreduce:
 
   case 97:
 
 
   case 97:
 

-/* Line 1269 of yacc.c  */
-#line 524 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 537 "parse-gram.y"

     {
     {

+      code_props plain_code;

       (yyvsp[(1) - (1)].code)[strlen ((yyvsp[(1) - (1)].code)) - 1] = '\n';
       (yyvsp[(1) - (1)].code)[strlen ((yyvsp[(1) - (1)].code)) - 1] = '\n';

-      (yyval.chars) = translate_code ((yyvsp[(1) - (1)].code) + 1, (yylsp[(1) - (1)]));
+      code_props_plain_init (&plain_code, (yyvsp[(1) - (1)].code)+1, (yylsp[(1) - (1)]));
+      code_props_translate_code (&plain_code);
+      gram_scanner_last_string_free ();
+      (yyval.chars) = plain_code.code;

     }
     break;
 
   case 98:
 
     }
     break;
 
   case 98:
 

-/* Line 1269 of yacc.c  */
-#line 540 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 557 "parse-gram.y"

     { (yyval.symbol) = symbol_from_uniqstr ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 99:
 
     { (yyval.symbol) = symbol_from_uniqstr ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 99:
 

-/* Line 1269 of yacc.c  */
-#line 542 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 559 "parse-gram.y"

     {
       (yyval.symbol) = symbol_get (char_name ((yyvsp[(1) - (1)].character)), (yylsp[(1) - (1)]));
       symbol_class_set ((yyval.symbol), token_sym, (yylsp[(1) - (1)]), false);
     {
       (yyval.symbol) = symbol_get (char_name ((yyvsp[(1) - (1)].character)), (yylsp[(1) - (1)]));
       symbol_class_set ((yyval.symbol), token_sym, (yylsp[(1) - (1)]), false);


@@ -2562,15 +2581,15 @@ yyreduce:
 
   case 100:
 
 
   case 100:
 

-/* Line 1269 of yacc.c  */
-#line 550 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 567 "parse-gram.y"

     { (yyval.symbol) = symbol_from_uniqstr ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 103:
 
     { (yyval.symbol) = symbol_from_uniqstr ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); }
     break;
 
   case 103:
 

-/* Line 1269 of yacc.c  */
-#line 562 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 579 "parse-gram.y"

     {
       (yyval.symbol) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[(1) - (1)].chars)), (yylsp[(1) - (1)]));
       symbol_class_set ((yyval.symbol), token_sym, (yylsp[(1) - (1)]), false);
     {
       (yyval.symbol) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[(1) - (1)].chars)), (yylsp[(1) - (1)]));
       symbol_class_set ((yyval.symbol), token_sym, (yylsp[(1) - (1)]), false);


@@ -2579,18 +2598,22 @@ yyreduce:
 
   case 105:
 
 
   case 105:
 

-/* Line 1269 of yacc.c  */
-#line 571 "parse-gram.y"
+/* Line 1272 of yacc.c  */
+#line 588 "parse-gram.y"

     {
     {

-      muscle_code_grow ("epilogue", translate_code ((yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])), (yylsp[(2) - (2)]));
+      code_props plain_code;
+      code_props_plain_init (&plain_code, (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)]));
+      code_props_translate_code (&plain_code);

       gram_scanner_last_string_free ();
       gram_scanner_last_string_free ();

+      muscle_code_grow ("epilogue", plain_code.code, (yylsp[(2) - (2)]));
+      code_scanner_last_string_free ();

     }
     break;
 
 
 
     }
     break;
 
 
 

-/* Line 1269 of yacc.c  */
-#line 2594 "parse-gram.c"
+/* Line 1272 of yacc.c  */
+#line 2617 "parse-gram.c"

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


@@ -2808,8 +2831,8 @@ yyreturn:
 
 
 
 
 
 

-/* Line 1486 of yacc.c  */
-#line 577 "parse-gram.y"
+/* Line 1489 of yacc.c  */
+#line 598 "parse-gram.y"

 
 
 
 
 
 

diff --git a/src/parse-gram.h b/src/parse-gram.h
index 1752064076c8ce21d992e39d582ca037ce5ea17c..6cd12c657511648e2bb5eb12693fb74a1b64f6c8 100644 (file)
--- a/src/parse-gram.h
+++ b/src/parse-gram.h
@@ -170,8 +170,8 @@
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
 {
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
 {

-/* Line 1535 of yacc.c  */
-#line 97 "parse-gram.y"
+/* Line 1538 of yacc.c  */
+#line 98 "parse-gram.y"

 
   symbol *symbol;
   symbol_list *list;
 
   symbol *symbol;
   symbol_list *list;


@@ -183,7 +183,7 @@ typedef union YYSTYPE
   unsigned char character;
 }
 
   unsigned char character;
 }
 

-/* Line 1535 of yacc.c  */
+/* Line 1538 of yacc.c  */

 #line 188 "parse-gram.h"
        YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1
 #line 188 "parse-gram.h"
        YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1

diff --git a/src/parse-gram.y b/src/parse-gram.y
index 358fcd14506acbf49618b442c9cb8ec1e955bdf3..dcef7c2d114031dd428133b09778f49244abede9 100644 (file)
--- a/src/parse-gram.y
+++ b/src/parse-gram.y
@@ -1,6 +1,7 @@
 %{/* Bison Grammar Parser                             -*- C -*-
 
 %{/* Bison Grammar Parser                             -*- C -*-
 

-   Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+   Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation,
+   Inc.

 
    This file is part of Bison, the GNU Compiler Compiler.
 
 
    This file is part of Bison, the GNU Compiler Compiler.
 


@@ -185,7 +186,7 @@ static int current_prec = 0;
 %printer { fputs (char_name ($$), stderr); } CHAR
 
 /* braceless is not to be used for rule or symbol actions, as it
 %printer { fputs (char_name ($$), stderr); } CHAR
 
 /* braceless is not to be used for rule or symbol actions, as it

-   calls translate_code. */
+   calls code_props_plain_init.  */

 %type <chars> STRING "%{...%}" EPILOGUE braceless content content.opt
 %type <code> "{...}"
 %printer { fputs (quotearg_style (c_quoting_style, $$), stderr); }
 %type <chars> STRING "%{...%}" EPILOGUE braceless content content.opt
 %type <code> "{...}"
 %printer { fputs (quotearg_style (c_quoting_style, $$), stderr); }


@@ -225,7 +226,15 @@ prologue_declarations:
 
 prologue_declaration:
   grammar_declaration
 
 prologue_declaration:
   grammar_declaration

-| "%{...%}"     { prologue_augment (translate_code ($1, @1), @1, union_seen); }
+| "%{...%}"
+    {
+      code_props plain_code;
+      code_props_plain_init (&plain_code, $1, @1);
+      code_props_translate_code (&plain_code);
+      gram_scanner_last_string_free ();
+      prologue_augment (plain_code.code, @1, union_seen);
+      code_scanner_last_string_free ();
+    }

 | "%debug"                         { debug_flag = true; }
 | "%define" STRING content.opt     { muscle_insert ($2, $3); }
 | "%defines"                       { defines_flag = true; }
 | "%debug"                         { debug_flag = true; }
 | "%define" STRING content.opt     { muscle_insert ($2, $3); }
 | "%defines"                       { defines_flag = true; }


@@ -246,7 +255,12 @@ prologue_declaration:
     }
 | "%initial-action" "{...}"
     {
     }
 | "%initial-action" "{...}"
     {

-      muscle_code_grow ("initial_action", translate_symbol_action ($2, @2), @2);
+      code_props action;
+      code_props_symbol_action_init (&action, $2, @2);
+      code_props_translate_code (&action);
+      gram_scanner_last_string_free ();
+      muscle_code_grow ("initial_action", action.code, @2);
+      code_scanner_last_string_free ();

     }
 | "%language" STRING           { language_argmatch ($2, 1, &@1); }
 | "%lex-param" "{...}"         { add_param ("lex_param", $2, @2); }
     }
 | "%language" STRING           { language_argmatch ($2, 1, &@1); }
 | "%lex-param" "{...}"         { add_param ("lex_param", $2, @2); }


@@ -279,17 +293,15 @@ grammar_declaration:
 | "%destructor" "{...}" generic_symlist
     {
       symbol_list *list;
 | "%destructor" "{...}" generic_symlist
     {
       symbol_list *list;

-      const char *action = translate_symbol_action ($2, @2);

       for (list = $3; list; list = list->next)
       for (list = $3; list; list = list->next)

-       symbol_list_destructor_set (list, action, @2);
+       symbol_list_destructor_set (list, $2, @2);

       symbol_list_free ($3);
     }
 | "%printer" "{...}" generic_symlist
     {
       symbol_list *list;
       symbol_list_free ($3);
     }
 | "%printer" "{...}" generic_symlist
     {
       symbol_list *list;

-      const char *action = translate_symbol_action ($2, @2);

       for (list = $3; list; list = list->next)
       for (list = $3; list; list = list->next)

-       symbol_list_printer_set (list, action, @2);
+       symbol_list_printer_set (list, $2, @2);

       symbol_list_free ($3);
     }
 | "%default-prec"
       symbol_list_free ($3);
     }
 | "%default-prec"


@@ -340,6 +352,7 @@ grammar_declaration:
 
       union_seen = true;
       muscle_code_grow ("stype", body, @3);
 
       union_seen = true;
       muscle_code_grow ("stype", body, @3);

+      gram_scanner_last_string_free ();

     }
 ;
 
     }
 ;
 


@@ -522,8 +535,12 @@ content.opt:
 braceless:
   "{...}"
     {
 braceless:
   "{...}"
     {

+      code_props plain_code;

       $1[strlen ($1) - 1] = '\n';
       $1[strlen ($1) - 1] = '\n';

-      $$ = translate_code ($1 + 1, @1);
+      code_props_plain_init (&plain_code, $1+1, @1);
+      code_props_translate_code (&plain_code);
+      gram_scanner_last_string_free ();
+      $$ = plain_code.code;

     }
 ;
 
     }
 ;
 


@@ -569,8 +586,12 @@ epilogue.opt:
   /* Nothing.  */
 | "%%" EPILOGUE
     {
   /* Nothing.  */
 | "%%" EPILOGUE
     {

-      muscle_code_grow ("epilogue", translate_code ($2, @2), @2);
+      code_props plain_code;
+      code_props_plain_init (&plain_code, $2, @2);
+      code_props_translate_code (&plain_code);

       gram_scanner_last_string_free ();
       gram_scanner_last_string_free ();

+      muscle_code_grow ("epilogue", plain_code.code, @2);
+      code_scanner_last_string_free ();

     }
 ;
 
     }
 ;
 

diff --git a/src/scan-code.h b/src/scan-code.h
index a6e1fc130ac0f5209e9327b7af0bf83783ca798d..c5f14fd5c0bdab25d86188af4a023234400e4c1f 100644 (file)
--- a/src/scan-code.h
+++ b/src/scan-code.h
@@ -162,22 +162,14 @@ void code_scanner_last_string_free (void);
  * \pre
  *   - None.
  * \post
  * \pre
  *   - None.
  * \post

- *   - All dynamic memory allocated during any previous invocations of
- *     \c code_props_translate_code, \c translate_rule_action,
- *     \c translate_symbol_action, and \c translate_code has been freed.  All
- *     \c code_props instances may now be invalid.
+ *   - All dynamic memory allocated during invocations of
+ *     \c code_props_translate_code or \c translate_rule_action (if any) has
+ *     been freed.  All \c code_props instances may now be invalid.

  */
 void code_scanner_free (void);
 
 /* The action of the rule R contains $$, $1 etc. referring to the values
    of the rule R. */
  */
 void code_scanner_free (void);
 
 /* The action of the rule R contains $$, $1 etc. referring to the values
    of the rule R. */

-char const *translate_rule_action (symbol_list *r);
-
-/* The action A refers to $$ and @$ only, referring to a symbol. */
-char const *translate_symbol_action (char const *a, location l);
-
-/* The action contains no special escapes, just protect M4 special
-   symbols.  */
-char const *translate_code (char const *a, location l);
+char const *translate_rule_action (struct symbol_list *r);

 
 #endif /* !SCAN_CODE_H_ */
 
 #endif /* !SCAN_CODE_H_ */

diff --git a/src/scan-code.l b/src/scan-code.l
index 2a718f2c8406dfaac2a5abdaeaf21fba34370c2b..bf46e2da3e456dda22d9c8181094a60037496a1e 100644 (file)
--- a/src/scan-code.l
+++ b/src/scan-code.l
@@ -488,21 +488,3 @@ translate_rule_action (symbol_list *rule)
   code_props_translate_code (&cp);
   return cp.code;
 }
   code_props_translate_code (&cp);
   return cp.code;
 }

-
-char const *
-translate_symbol_action (char const *a, location l)
-{
-  code_props cp;
-  code_props_symbol_action_init (&cp, a, l);
-  code_props_translate_code (&cp);
-  return cp.code;
-}
-
-char const *
-translate_code (char const *a, location l)
-{
-  code_props cp;
-  code_props_plain_init (&cp, a, l);
-  code_props_translate_code (&cp);
-  return cp.code;
-}

diff --git a/src/scan-gram.h b/src/scan-gram.h
index bae792dc6f2db95486dbe1901ecad63f92ec73a1..d9224c0cc375b8ebe9d0b5fdd7f39d231217f3a2 100644 (file)
--- a/src/scan-gram.h
+++ b/src/scan-gram.h
@@ -1,6 +1,6 @@
 /* Bison Grammar Scanner
 
 /* Bison Grammar Scanner
 

-   Copyright (C) 2006 Free Software Foundation, Inc.
+   Copyright (C) 2006, 2007 Free Software Foundation, Inc.

 
    This file is part of Bison, the GNU Compiler Compiler.
 
 
    This file is part of Bison, the GNU Compiler Compiler.
 


@@ -26,7 +26,6 @@
 /* From the scanner.  */
 extern FILE *gram_in;
 extern int gram__flex_debug;
 /* From the scanner.  */
 extern FILE *gram_in;
 extern int gram__flex_debug;

-extern char *gram_last_string;

 void gram_scanner_initialize (void);
 void gram_scanner_free (void);
 void gram_scanner_last_string_free (void);
 void gram_scanner_initialize (void);
 void gram_scanner_free (void);
 void gram_scanner_last_string_free (void);

diff --git a/src/scan-gram.l b/src/scan-gram.l
index 2459f200dba7faa7bd18ba0bfdb8a2ec399c37c2..34d9e4abc220bafeaff1c61f2d4e49439774a335 100644 (file)
--- a/src/scan-gram.l
+++ b/src/scan-gram.l
@@ -1,6 +1,7 @@
 /* Bison Grammar Scanner                             -*- C -*-
 
 /* Bison Grammar Scanner                             -*- C -*-
 

-   Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+   Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation,
+   Inc.

 
    This file is part of Bison, the GNU Compiler Compiler.
 
 
    This file is part of Bison, the GNU Compiler Compiler.
 


@@ -58,7 +59,7 @@ static size_t no_cr_read (FILE *, char *, size_t);
 #define YY_INPUT(buf, result, size) ((result) = no_cr_read (yyin, buf, size))
 
 /* A string representing the most recently saved token.  */
 #define YY_INPUT(buf, result, size) ((result) = no_cr_read (yyin, buf, size))
 
 /* A string representing the most recently saved token.  */

-char *last_string;
+static char *last_string;

 
 void
 gram_scanner_last_string_free (void)
 
 void
 gram_scanner_last_string_free (void)

diff --git a/src/symlist.c b/src/symlist.c
index 43ed86c8b14e7ede1f16f87b5ee36e84bcf42313..71a8642d6ec3f46b165f3d51e6414c5bbd210bec 100644 (file)
--- a/src/symlist.c
+++ b/src/symlist.c
@@ -208,44 +208,52 @@ symbol_list_n_type_name_get (symbol_list *l, location loc, int n)
 
 
 void
 
 
 void

-symbol_list_destructor_set (symbol_list *node, const char *destructor,
+symbol_list_destructor_set (symbol_list *node, char const *code,

                             location loc)
 {
                             location loc)
 {

+  code_props destructor;
+  code_props_symbol_action_init (&destructor, code, loc);
+  code_props_translate_code (&destructor);
+  code = destructor.code;

   switch (node->content_type)
     {
       case SYMLIST_SYMBOL:
   switch (node->content_type)
     {
       case SYMLIST_SYMBOL:

-        symbol_destructor_set (node->content.sym, destructor, loc);
+        symbol_destructor_set (node->content.sym, code, loc);

         break;
       case SYMLIST_TYPE:
         semantic_type_destructor_set (
         break;
       case SYMLIST_TYPE:
         semantic_type_destructor_set (

-          semantic_type_get (node->content.type_name), destructor, loc);
+          semantic_type_get (node->content.type_name), code, loc);

         break;
       case SYMLIST_DEFAULT_TAGGED:
         break;
       case SYMLIST_DEFAULT_TAGGED:

-        default_tagged_destructor_set (destructor, loc);
+        default_tagged_destructor_set (code, loc);

         break;
       case SYMLIST_DEFAULT_TAGLESS:
         break;
       case SYMLIST_DEFAULT_TAGLESS:

-        default_tagless_destructor_set (destructor, loc);
+        default_tagless_destructor_set (code, loc);

         break;
     }
 }
 
 void
         break;
     }
 }
 
 void

-symbol_list_printer_set (symbol_list *node, const char *printer, location loc)
+symbol_list_printer_set (symbol_list *node, char const *code, location loc)

 {
 {

+  code_props printer;
+  code_props_symbol_action_init (&printer, code, loc);
+  code_props_translate_code (&printer);
+  code = printer.code;

   switch (node->content_type)
     {
       case SYMLIST_SYMBOL:
   switch (node->content_type)
     {
       case SYMLIST_SYMBOL:

-        symbol_printer_set (node->content.sym, printer, loc);
+        symbol_printer_set (node->content.sym, code, loc);

         break;
       case SYMLIST_TYPE:
         semantic_type_printer_set (
         break;
       case SYMLIST_TYPE:
         semantic_type_printer_set (

-          semantic_type_get (node->content.type_name), printer, loc);
+          semantic_type_get (node->content.type_name), code, loc);

         break;
       case SYMLIST_DEFAULT_TAGGED:
         break;
       case SYMLIST_DEFAULT_TAGGED:

-        default_tagged_printer_set (printer, loc);
+        default_tagged_printer_set (code, loc);

         break;
       case SYMLIST_DEFAULT_TAGLESS:
         break;
       case SYMLIST_DEFAULT_TAGLESS:

-        default_tagless_printer_set (printer, loc);
+        default_tagless_printer_set (code, loc);

         break;
     }
 }
         break;
     }
 }

diff --git a/src/symlist.h b/src/symlist.h
index 796edee0e4390e6f791507eb89c1c250e756bccc..6c2fd6138de082269c25d58d522c4c954c42277b 100644 (file)
--- a/src/symlist.h
+++ b/src/symlist.h
@@ -23,6 +23,7 @@
 # define SYMLIST_H_
 
 # include "location.h"
 # define SYMLIST_H_
 
 # include "location.h"

+# include "scan-code.h"

 # include "symtab.h"
 
 /* A list of symbols, used during the parsing to store the rules.  */
 # include "symtab.h"
 
 /* A list of symbols, used during the parsing to store the rules.  */


@@ -37,9 +38,14 @@ typedef struct symbol_list
     SYMLIST_DEFAULT_TAGGED, SYMLIST_DEFAULT_TAGLESS
   } content_type;
   union {
     SYMLIST_DEFAULT_TAGGED, SYMLIST_DEFAULT_TAGLESS
   } content_type;
   union {

-    /** The symbol or \c NULL iff <tt>node_type = SYMLIST_SYMBOL</tt>.  */
+    /**
+     * The symbol or \c NULL iff
+     * <tt>symbol_list::content_type = SYMLIST_SYMBOL</tt>.
+     */

     symbol *sym;
     symbol *sym;

-    /** The semantic type iff <tt>node_type = SYMLIST_TYPE</tt>.  */
+    /**
+     * The semantic type iff <tt>symbol_list::content_type = SYMLIST_TYPE</tt>.
+     */

     uniqstr type_name;
   } content;
   location location;
     uniqstr type_name;
   } content;
   location location;


@@ -106,12 +112,12 @@ symbol_list *symbol_list_n_get (symbol_list *l, int n);
    symbol N in rule RULE.  */
 uniqstr symbol_list_n_type_name_get (symbol_list *l, location loc, int n);
 
    symbol N in rule RULE.  */
 uniqstr symbol_list_n_type_name_get (symbol_list *l, location loc, int n);
 

-/** Set the \c \%destructor for \c node as \c destructor at \c loc.  */
-void symbol_list_destructor_set (symbol_list *node, const char *destructor,
+/** Set the \c \%destructor for \c node as \c code at \c loc.  */
+void symbol_list_destructor_set (symbol_list *node, char const *code,

                                  location loc);
 
                                  location loc);
 

-/** Set the \c \%printer for \c node as \c printer at \c loc.  */
-void symbol_list_printer_set (symbol_list *node, const char *printer,
+/** Set the \c \%printer for \c node as \c code at \c loc.  */
+void symbol_list_printer_set (symbol_list *node, char const *code,

                               location loc);
 
 #endif /* !SYMLIST_H_ */
                               location loc);
 
 #endif /* !SYMLIST_H_ */