all: show the rules in comments before the user actions

For instance, in the case of Bison's own parser:

    -  case 40:
    +  case 40:  /* grammar_declaration: "%code" "identifier" "{...}"  */
         {
           muscle_percent_code_grow ((yyvsp[-1].ID), (yylsp[-1]),
                                     translate_code_braceless ((yyvsp[0].BRACED_CODE), (yylsp[0])),
                                     (yylsp[0]));
           code_scanner_last_string_free ();
         }
         break;

* data/skeletons/c.m4: Modified.
* data/skeletons/d.m4: Modified.
* data/skeletons/java.m4: Modified.
* src/output.c (output_escaped): New.
(quoted_output): Use it, and rename as...
(output_quoted): this.
Adjust dependencies.
(rule_output): New.
(user_actions_output): Use it.
* data/skeletons/c.m4, data/skeletons/d.m4, data/skeletons/java.m4
(b4_case): Add support for $3, an optional comment.
This commit is contained in:
Akim Demaille
2020-06-05 16:51:59 +02:00
parent 2101b0e210
commit 39be113b1f
6 changed files with 140 additions and 119 deletions

View File

@@ -666,10 +666,10 @@ m4_define([b4_sync_start], [[#]line $1 $2])
## User actions. ## ## User actions. ##
## -------------- ## ## -------------- ##
# b4_case(LABEL, STATEMENTS) # b4_case(LABEL, STATEMENTS, [COMMENTS])
# -------------------------- # --------------------------------------
m4_define([b4_case], m4_define([b4_case],
[ case $1: [ case $1:m4_ifval([$3], [ b4_comment([$3])])
$2 $2
b4_syncline([@oline@], [@ofile@])dnl b4_syncline([@oline@], [@ofile@])dnl
break;]) break;])

View File

@@ -213,9 +213,9 @@ m4_define([b4_declare_symbol_enum],
# b4-case(ID, CODE) # b4-case(ID, CODE, [COMMENTS])
# ----------------- # -----------------------------
m4_define([b4_case], [ case $1: m4_define([b4_case], [ case $1:m4_ifval([$3], [ b4_comment([$3])])
$2 $2
break;]) break;])

View File

@@ -262,11 +262,11 @@ m4_define([b4_declare_symbol_enum],
# b4_case(ID, CODE) # b4_case(ID, CODE, [COMMENTS])
# ----------------- # -----------------------------
# We need to fool Java's stupid unreachable code detection. # We need to fool Java's stupid unreachable code detection.
m4_define([b4_case], m4_define([b4_case],
[ case $1: [ case $1:m4_ifval([$3], [ b4_comment([$3])])
if (yyn == $1) if (yyn == $1)
$2; $2;
break; break;

View File

@@ -107,10 +107,8 @@ GENERATE_MUSCLE_INSERT_TABLE (muscle_insert_state_number_table, state_number)
`----------------------------------------------------------------*/ `----------------------------------------------------------------*/
static void static void
quoted_output (FILE *out, char const *cp) output_escaped (FILE *out, const char *cp)
{ {
fprintf (out, "[[");
for (; *cp; cp++) for (; *cp; cp++)
switch (*cp) switch (*cp)
{ {
@@ -120,7 +118,13 @@ quoted_output (FILE *out, char const *cp)
case ']': fputs ("@}", out); break; case ']': fputs ("@}", out); break;
default: fputc (*cp, out); break; default: fputc (*cp, out); break;
} }
}
static void
output_quoted (FILE *out, char const *cp)
{
fprintf (out, "[[");
output_escaped (out, cp);
fprintf (out, "]]"); fprintf (out, "]]");
} }
@@ -132,7 +136,7 @@ quoted_output (FILE *out, char const *cp)
static void static void
string_output (FILE *out, char const *string) string_output (FILE *out, char const *string)
{ {
quoted_output (out, quotearg_style (c_quoting_style, string)); output_quoted (out, quotearg_style (c_quoting_style, string));
} }
@@ -474,6 +478,21 @@ symbol_numbers_output (FILE *out)
| Output the user reduction actions to OUT. | | Output the user reduction actions to OUT. |
`-------------------------------------------*/ `-------------------------------------------*/
static void
rule_output (const rule *r, FILE *out)
{
output_escaped (out, r->lhs->symbol->tag);
fputc (':', out);
if (0 <= *r->rhs)
for (item_number *rhsp = r->rhs; 0 <= *rhsp; ++rhsp)
{
fputc (' ', out);
output_escaped (out, symbols[*rhsp]->tag);
}
else
fputs (" %empty", out);
}
static void static void
user_actions_output (FILE *out) user_actions_output (FILE *out)
{ {
@@ -492,9 +511,11 @@ user_actions_output (FILE *out)
string_output (out, rules[r].action_loc.start.file); string_output (out, rules[r].action_loc.start.file);
fprintf (out, ")dnl\n"); fprintf (out, ")dnl\n");
} }
fprintf (out, "[%*s%s]])\n\n", fprintf (out, "[%*s%s]],\n[[",
rules[r].action_loc.start.column - 1, "", rules[r].action_loc.start.column - 1, "",
rules[r].action); rules[r].action);
rule_output (&rules[r], out);
fprintf (out, "]])\n\n");
} }
fputs ("])\n\n", out); fputs ("])\n\n", out);
} }

View File

@@ -1,4 +1,4 @@
/* A Bison parser, made by GNU Bison 3.6.2.71-273f. */ /* A Bison parser, made by GNU Bison 3.6.3.74-5ca2. */
/* Bison implementation for Yacc-like parsers in C /* Bison implementation for Yacc-like parsers in C
@@ -49,7 +49,7 @@
#define YYBISON 1 #define YYBISON 1
/* Bison version. */ /* Bison version. */
#define YYBISON_VERSION "3.6.2.71-273f" #define YYBISON_VERSION "3.6.3.74-5ca2"
/* Skeleton name. */ /* Skeleton name. */
#define YYSKELETON_NAME "yacc.c" #define YYSKELETON_NAME "yacc.c"
@@ -2055,7 +2055,7 @@ yyreduce:
int yychar_backup = yychar; int yychar_backup = yychar;
switch (yyn) switch (yyn)
{ {
case 6: case 6: /* prologue_declaration: "%{...%}" */
{ {
muscle_code_grow (union_seen ? "post_prologue" : "pre_prologue", muscle_code_grow (union_seen ? "post_prologue" : "pre_prologue",
translate_code ((yyvsp[0].PROLOGUE), (yylsp[0]), true), (yylsp[0])); translate_code ((yyvsp[0].PROLOGUE), (yylsp[0]), true), (yylsp[0]));
@@ -2063,131 +2063,131 @@ yyreduce:
} }
break; break;
case 7: case 7: /* prologue_declaration: "%<flag>" */
{ {
muscle_percent_define_ensure ((yyvsp[0].PERCENT_FLAG), (yylsp[0]), true); muscle_percent_define_ensure ((yyvsp[0].PERCENT_FLAG), (yylsp[0]), true);
} }
break; break;
case 8: case 8: /* prologue_declaration: "%define" variable value */
{ {
muscle_percent_define_insert ((yyvsp[-1].variable), (yyloc), (yyvsp[0].value).kind, (yyvsp[0].value).chars, muscle_percent_define_insert ((yyvsp[-1].variable), (yyloc), (yyvsp[0].value).kind, (yyvsp[0].value).chars,
MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE); MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE);
} }
break; break;
case 9: case 9: /* prologue_declaration: "%defines" */
{ defines_flag = true; } { defines_flag = true; }
break; break;
case 10: case 10: /* prologue_declaration: "%defines" "string" */
{ {
defines_flag = true; defines_flag = true;
spec_header_file = xstrdup ((yyvsp[0].STRING)); spec_header_file = xstrdup ((yyvsp[0].STRING));
} }
break; break;
case 11: case 11: /* prologue_declaration: "%error-verbose" */
{ handle_error_verbose (&(yyloc), (yyvsp[0].PERCENT_ERROR_VERBOSE)); } { handle_error_verbose (&(yyloc), (yyvsp[0].PERCENT_ERROR_VERBOSE)); }
break; break;
case 12: case 12: /* prologue_declaration: "%expect" "integer literal" */
{ expected_sr_conflicts = (yyvsp[0].INT); } { expected_sr_conflicts = (yyvsp[0].INT); }
break; break;
case 13: case 13: /* prologue_declaration: "%expect-rr" "integer literal" */
{ expected_rr_conflicts = (yyvsp[0].INT); } { expected_rr_conflicts = (yyvsp[0].INT); }
break; break;
case 14: case 14: /* prologue_declaration: "%file-prefix" "string" */
{ handle_file_prefix (&(yyloc), &(yylsp[-1]), (yyvsp[-1].PERCENT_FILE_PREFIX), (yyvsp[0].STRING)); } { handle_file_prefix (&(yyloc), &(yylsp[-1]), (yyvsp[-1].PERCENT_FILE_PREFIX), (yyvsp[0].STRING)); }
break; break;
case 15: case 15: /* prologue_declaration: "%glr-parser" */
{ {
nondeterministic_parser = true; nondeterministic_parser = true;
glr_parser = true; glr_parser = true;
} }
break; break;
case 16: case 16: /* prologue_declaration: "%initial-action" "{...}" */
{ {
muscle_code_grow ("initial_action", translate_code ((yyvsp[0].BRACED_CODE), (yylsp[0]), false), (yylsp[0])); muscle_code_grow ("initial_action", translate_code ((yyvsp[0].BRACED_CODE), (yylsp[0]), false), (yylsp[0]));
code_scanner_last_string_free (); code_scanner_last_string_free ();
} }
break; break;
case 17: case 17: /* prologue_declaration: "%language" "string" */
{ language_argmatch ((yyvsp[0].STRING), grammar_prio, (yylsp[-1])); } { language_argmatch ((yyvsp[0].STRING), grammar_prio, (yylsp[-1])); }
break; break;
case 18: case 18: /* prologue_declaration: "%name-prefix" "string" */
{ handle_name_prefix (&(yyloc), (yyvsp[-1].PERCENT_NAME_PREFIX), (yyvsp[0].STRING)); } { handle_name_prefix (&(yyloc), (yyvsp[-1].PERCENT_NAME_PREFIX), (yyvsp[0].STRING)); }
break; break;
case 19: case 19: /* prologue_declaration: "%no-lines" */
{ no_lines_flag = true; } { no_lines_flag = true; }
break; break;
case 20: case 20: /* prologue_declaration: "%nondeterministic-parser" */
{ nondeterministic_parser = true; } { nondeterministic_parser = true; }
break; break;
case 21: case 21: /* prologue_declaration: "%output" "string" */
{ spec_outfile = (yyvsp[0].STRING); } { spec_outfile = (yyvsp[0].STRING); }
break; break;
case 22: case 22: /* $@1: %empty */
{ current_param = (yyvsp[0].PERCENT_PARAM); } { current_param = (yyvsp[0].PERCENT_PARAM); }
break; break;
case 23: case 23: /* prologue_declaration: "%param" $@1 params */
{ current_param = param_none; } { current_param = param_none; }
break; break;
case 24: case 24: /* prologue_declaration: "%pure-parser" */
{ handle_pure_parser (&(yyloc), (yyvsp[0].PERCENT_PURE_PARSER)); } { handle_pure_parser (&(yyloc), (yyvsp[0].PERCENT_PURE_PARSER)); }
break; break;
case 25: case 25: /* prologue_declaration: "%require" "string" */
{ handle_require (&(yylsp[0]), (yyvsp[0].STRING)); } { handle_require (&(yylsp[0]), (yyvsp[0].STRING)); }
break; break;
case 26: case 26: /* prologue_declaration: "%skeleton" "string" */
{ handle_skeleton (&(yylsp[0]), (yyvsp[0].STRING)); } { handle_skeleton (&(yylsp[0]), (yyvsp[0].STRING)); }
break; break;
case 27: case 27: /* prologue_declaration: "%token-table" */
{ token_table_flag = true; } { token_table_flag = true; }
break; break;
case 28: case 28: /* prologue_declaration: "%verbose" */
{ report_flag |= report_states; } { report_flag |= report_states; }
break; break;
case 29: case 29: /* prologue_declaration: "%yacc" */
{ handle_yacc (&(yyloc)); } { handle_yacc (&(yyloc)); }
break; break;
case 30: case 30: /* prologue_declaration: error ";" */
{ current_class = unknown_sym; yyerrok; } { current_class = unknown_sym; yyerrok; }
break; break;
case 32: case 32: /* params: params "{...}" */
{ add_param (current_param, (yyvsp[0].BRACED_CODE), (yylsp[0])); } { add_param (current_param, (yyvsp[0].BRACED_CODE), (yylsp[0])); }
break; break;
case 33: case 33: /* params: "{...}" */
{ add_param (current_param, (yyvsp[0].BRACED_CODE), (yylsp[0])); } { add_param (current_param, (yyvsp[0].BRACED_CODE), (yylsp[0])); }
break; break;
case 35: case 35: /* grammar_declaration: "%start" symbol */
{ {
grammar_start_symbol_set ((yyvsp[0].symbol), (yylsp[0])); grammar_start_symbol_set ((yyvsp[0].symbol), (yylsp[0]));
} }
break; break;
case 36: case 36: /* grammar_declaration: code_props_type "{...}" generic_symlist */
{ {
code_props code; code_props code;
code_props_symbol_action_init (&code, (yyvsp[-1].BRACED_CODE), (yylsp[-1])); code_props_symbol_action_init (&code, (yyvsp[-1].BRACED_CODE), (yylsp[-1]));
@@ -2200,19 +2200,19 @@ yyreduce:
} }
break; break;
case 37: case 37: /* grammar_declaration: "%default-prec" */
{ {
default_prec = true; default_prec = true;
} }
break; break;
case 38: case 38: /* grammar_declaration: "%no-default-prec" */
{ {
default_prec = false; default_prec = false;
} }
break; break;
case 39: case 39: /* grammar_declaration: "%code" "{...}" */
{ {
/* Do not invoke muscle_percent_code_grow here since it invokes /* Do not invoke muscle_percent_code_grow here since it invokes
muscle_user_name_list_grow. */ muscle_user_name_list_grow. */
@@ -2222,32 +2222,32 @@ yyreduce:
} }
break; break;
case 40: case 40: /* grammar_declaration: "%code" "identifier" "{...}" */
{ {
muscle_percent_code_grow ((yyvsp[-1].ID), (yylsp[-1]), translate_code_braceless ((yyvsp[0].BRACED_CODE), (yylsp[0])), (yylsp[0])); muscle_percent_code_grow ((yyvsp[-1].ID), (yylsp[-1]), translate_code_braceless ((yyvsp[0].BRACED_CODE), (yylsp[0])), (yylsp[0]));
code_scanner_last_string_free (); code_scanner_last_string_free ();
} }
break; break;
case 41: case 41: /* code_props_type: "%destructor" */
{ (yyval.code_props_type) = destructor; } { (yyval.code_props_type) = destructor; }
break; break;
case 42: case 42: /* code_props_type: "%printer" */
{ (yyval.code_props_type) = printer; } { (yyval.code_props_type) = printer; }
break; break;
case 43: case 43: /* union_name: %empty */
{} {}
break; break;
case 44: case 44: /* union_name: "identifier" */
{ muscle_percent_define_insert ("api.value.union.name", { muscle_percent_define_insert ("api.value.union.name",
(yylsp[0]), muscle_keyword, (yyvsp[0].ID), (yylsp[0]), muscle_keyword, (yyvsp[0].ID),
MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE); } MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE); }
break; break;
case 45: case 45: /* grammar_declaration: "%union" union_name "{...}" */
{ {
union_seen = true; union_seen = true;
muscle_code_grow ("union_members", translate_code_braceless ((yyvsp[0].BRACED_CODE), (yylsp[0])), (yylsp[0])); muscle_code_grow ("union_members", translate_code_braceless ((yyvsp[0].BRACED_CODE), (yylsp[0])), (yylsp[0]));
@@ -2255,35 +2255,35 @@ yyreduce:
} }
break; break;
case 46: case 46: /* $@2: %empty */
{ current_class = nterm_sym; } { current_class = nterm_sym; }
break; break;
case 47: case 47: /* symbol_declaration: "%nterm" $@2 nterm_decls */
{ {
current_class = unknown_sym; current_class = unknown_sym;
symbol_list_free ((yyvsp[0].nterm_decls)); symbol_list_free ((yyvsp[0].nterm_decls));
} }
break; break;
case 48: case 48: /* $@3: %empty */
{ current_class = token_sym; } { current_class = token_sym; }
break; break;
case 49: case 49: /* symbol_declaration: "%token" $@3 token_decls */
{ {
current_class = unknown_sym; current_class = unknown_sym;
symbol_list_free ((yyvsp[0].token_decls)); symbol_list_free ((yyvsp[0].token_decls));
} }
break; break;
case 50: case 50: /* symbol_declaration: "%type" symbol_decls */
{ {
symbol_list_free ((yyvsp[0].symbol_decls)); symbol_list_free ((yyvsp[0].symbol_decls));
} }
break; break;
case 51: case 51: /* symbol_declaration: precedence_declarator token_decls_for_prec */
{ {
++current_prec; ++current_prec;
for (symbol_list *list = (yyvsp[0].token_decls_for_prec); list; list = list->next) for (symbol_list *list = (yyvsp[0].token_decls_for_prec); list; list = list->next)
@@ -2292,77 +2292,77 @@ yyreduce:
} }
break; break;
case 52: case 52: /* precedence_declarator: "%left" */
{ (yyval.precedence_declarator) = left_assoc; } { (yyval.precedence_declarator) = left_assoc; }
break; break;
case 53: case 53: /* precedence_declarator: "%right" */
{ (yyval.precedence_declarator) = right_assoc; } { (yyval.precedence_declarator) = right_assoc; }
break; break;
case 54: case 54: /* precedence_declarator: "%nonassoc" */
{ (yyval.precedence_declarator) = non_assoc; } { (yyval.precedence_declarator) = non_assoc; }
break; break;
case 55: case 55: /* precedence_declarator: "%precedence" */
{ (yyval.precedence_declarator) = precedence_assoc; } { (yyval.precedence_declarator) = precedence_assoc; }
break; break;
case 56: case 56: /* tag.opt: %empty */
{ (yyval.yykind_74) = NULL; } { (yyval.yykind_74) = NULL; }
break; break;
case 57: case 57: /* tag.opt: "<tag>" */
{ (yyval.yykind_74) = (yyvsp[0].TAG); } { (yyval.yykind_74) = (yyvsp[0].TAG); }
break; break;
case 59: case 59: /* generic_symlist: generic_symlist generic_symlist_item */
{ (yyval.generic_symlist) = symbol_list_append ((yyvsp[-1].generic_symlist), (yyvsp[0].generic_symlist_item)); } { (yyval.generic_symlist) = symbol_list_append ((yyvsp[-1].generic_symlist), (yyvsp[0].generic_symlist_item)); }
break; break;
case 60: case 60: /* generic_symlist_item: symbol */
{ (yyval.generic_symlist_item) = symbol_list_sym_new ((yyvsp[0].symbol), (yylsp[0])); } { (yyval.generic_symlist_item) = symbol_list_sym_new ((yyvsp[0].symbol), (yylsp[0])); }
break; break;
case 61: case 61: /* generic_symlist_item: tag */
{ (yyval.generic_symlist_item) = symbol_list_type_new ((yyvsp[0].tag), (yylsp[0])); } { (yyval.generic_symlist_item) = symbol_list_type_new ((yyvsp[0].tag), (yylsp[0])); }
break; break;
case 63: case 63: /* tag: "<*>" */
{ (yyval.tag) = uniqstr_new ("*"); } { (yyval.tag) = uniqstr_new ("*"); }
break; break;
case 64: case 64: /* tag: "<>" */
{ (yyval.tag) = uniqstr_new (""); } { (yyval.tag) = uniqstr_new (""); }
break; break;
case 66: case 66: /* token_decls: token_decl.1 */
{ {
(yyval.token_decls) = (yyvsp[0].yykind_80); (yyval.token_decls) = (yyvsp[0].yykind_80);
} }
break; break;
case 67: case 67: /* token_decls: "<tag>" token_decl.1 */
{ {
(yyval.token_decls) = symbol_list_type_set ((yyvsp[0].yykind_80), (yyvsp[-1].TAG), (yylsp[-1])); (yyval.token_decls) = symbol_list_type_set ((yyvsp[0].yykind_80), (yyvsp[-1].TAG), (yylsp[-1]));
} }
break; break;
case 68: case 68: /* token_decls: token_decls "<tag>" token_decl.1 */
{ {
(yyval.token_decls) = symbol_list_append ((yyvsp[-2].token_decls), symbol_list_type_set ((yyvsp[0].yykind_80), (yyvsp[-1].TAG), (yylsp[-1]))); (yyval.token_decls) = symbol_list_append ((yyvsp[-2].token_decls), symbol_list_type_set ((yyvsp[0].yykind_80), (yyvsp[-1].TAG), (yylsp[-1])));
} }
break; break;
case 69: case 69: /* token_decl.1: token_decl */
{ (yyval.yykind_80) = symbol_list_sym_new ((yyvsp[0].token_decl), (yylsp[0])); } { (yyval.yykind_80) = symbol_list_sym_new ((yyvsp[0].token_decl), (yylsp[0])); }
break; break;
case 70: case 70: /* token_decl.1: token_decl.1 token_decl */
{ (yyval.yykind_80) = symbol_list_append ((yyvsp[-1].yykind_80), symbol_list_sym_new ((yyvsp[0].token_decl), (yylsp[0]))); } { (yyval.yykind_80) = symbol_list_append ((yyvsp[-1].yykind_80), symbol_list_sym_new ((yyvsp[0].token_decl), (yylsp[0]))); }
break; break;
case 71: case 71: /* token_decl: id int.opt alias */
{ {
(yyval.token_decl) = (yyvsp[-2].id); (yyval.token_decl) = (yyvsp[-2].id);
symbol_class_set ((yyvsp[-2].id), current_class, (yylsp[-2]), true); symbol_class_set ((yyvsp[-2].id), current_class, (yylsp[-2]), true);
@@ -2373,19 +2373,19 @@ yyreduce:
} }
break; break;
case 72: case 72: /* int.opt: %empty */
{ (yyval.yykind_82) = -1; } { (yyval.yykind_82) = -1; }
break; break;
case 74: case 74: /* alias: %empty */
{ (yyval.alias) = NULL; } { (yyval.alias) = NULL; }
break; break;
case 75: case 75: /* alias: string_as_id */
{ (yyval.alias) = (yyvsp[0].string_as_id); } { (yyval.alias) = (yyvsp[0].string_as_id); }
break; break;
case 76: case 76: /* alias: "translatable string" */
{ {
(yyval.alias) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[0].TSTRING)), (yylsp[0])); (yyval.alias) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[0].TSTRING)), (yylsp[0]));
symbol_class_set ((yyval.alias), token_sym, (yylsp[0]), false); symbol_class_set ((yyval.alias), token_sym, (yylsp[0]), false);
@@ -2393,33 +2393,33 @@ yyreduce:
} }
break; break;
case 77: case 77: /* token_decls_for_prec: token_decl_for_prec.1 */
{ {
(yyval.token_decls_for_prec) = (yyvsp[0].yykind_85); (yyval.token_decls_for_prec) = (yyvsp[0].yykind_85);
} }
break; break;
case 78: case 78: /* token_decls_for_prec: "<tag>" token_decl_for_prec.1 */
{ {
(yyval.token_decls_for_prec) = symbol_list_type_set ((yyvsp[0].yykind_85), (yyvsp[-1].TAG), (yylsp[-1])); (yyval.token_decls_for_prec) = symbol_list_type_set ((yyvsp[0].yykind_85), (yyvsp[-1].TAG), (yylsp[-1]));
} }
break; break;
case 79: case 79: /* token_decls_for_prec: token_decls_for_prec "<tag>" token_decl_for_prec.1 */
{ {
(yyval.token_decls_for_prec) = symbol_list_append ((yyvsp[-2].token_decls_for_prec), symbol_list_type_set ((yyvsp[0].yykind_85), (yyvsp[-1].TAG), (yylsp[-1]))); (yyval.token_decls_for_prec) = symbol_list_append ((yyvsp[-2].token_decls_for_prec), symbol_list_type_set ((yyvsp[0].yykind_85), (yyvsp[-1].TAG), (yylsp[-1])));
} }
break; break;
case 80: case 80: /* token_decl_for_prec.1: token_decl_for_prec */
{ (yyval.yykind_85) = symbol_list_sym_new ((yyvsp[0].token_decl_for_prec), (yylsp[0])); } { (yyval.yykind_85) = symbol_list_sym_new ((yyvsp[0].token_decl_for_prec), (yylsp[0])); }
break; break;
case 81: case 81: /* token_decl_for_prec.1: token_decl_for_prec.1 token_decl_for_prec */
{ (yyval.yykind_85) = symbol_list_append ((yyvsp[-1].yykind_85), symbol_list_sym_new ((yyvsp[0].token_decl_for_prec), (yylsp[0]))); } { (yyval.yykind_85) = symbol_list_append ((yyvsp[-1].yykind_85), symbol_list_sym_new ((yyvsp[0].token_decl_for_prec), (yylsp[0]))); }
break; break;
case 82: case 82: /* token_decl_for_prec: id int.opt */
{ {
(yyval.token_decl_for_prec) = (yyvsp[-1].id); (yyval.token_decl_for_prec) = (yyvsp[-1].id);
symbol_class_set ((yyvsp[-1].id), token_sym, (yylsp[-1]), false); symbol_class_set ((yyvsp[-1].id), token_sym, (yylsp[-1]), false);
@@ -2428,133 +2428,133 @@ yyreduce:
} }
break; break;
case 84: case 84: /* symbol_decls: symbol_decl.1 */
{ {
(yyval.symbol_decls) = (yyvsp[0].yykind_88); (yyval.symbol_decls) = (yyvsp[0].yykind_88);
} }
break; break;
case 85: case 85: /* symbol_decls: "<tag>" symbol_decl.1 */
{ {
(yyval.symbol_decls) = symbol_list_type_set ((yyvsp[0].yykind_88), (yyvsp[-1].TAG), (yylsp[-1])); (yyval.symbol_decls) = symbol_list_type_set ((yyvsp[0].yykind_88), (yyvsp[-1].TAG), (yylsp[-1]));
} }
break; break;
case 86: case 86: /* symbol_decls: symbol_decls "<tag>" symbol_decl.1 */
{ {
(yyval.symbol_decls) = symbol_list_append ((yyvsp[-2].symbol_decls), symbol_list_type_set ((yyvsp[0].yykind_88), (yyvsp[-1].TAG), (yylsp[-1]))); (yyval.symbol_decls) = symbol_list_append ((yyvsp[-2].symbol_decls), symbol_list_type_set ((yyvsp[0].yykind_88), (yyvsp[-1].TAG), (yylsp[-1])));
} }
break; break;
case 87: case 87: /* symbol_decl.1: symbol */
{ {
symbol_class_set ((yyvsp[0].symbol), pct_type_sym, (yylsp[0]), false); symbol_class_set ((yyvsp[0].symbol), pct_type_sym, (yylsp[0]), false);
(yyval.yykind_88) = symbol_list_sym_new ((yyvsp[0].symbol), (yylsp[0])); (yyval.yykind_88) = symbol_list_sym_new ((yyvsp[0].symbol), (yylsp[0]));
} }
break; break;
case 88: case 88: /* symbol_decl.1: symbol_decl.1 symbol */
{ {
symbol_class_set ((yyvsp[0].symbol), pct_type_sym, (yylsp[0]), false); symbol_class_set ((yyvsp[0].symbol), pct_type_sym, (yylsp[0]), false);
(yyval.yykind_88) = symbol_list_append ((yyvsp[-1].yykind_88), symbol_list_sym_new ((yyvsp[0].symbol), (yylsp[0]))); (yyval.yykind_88) = symbol_list_append ((yyvsp[-1].yykind_88), symbol_list_sym_new ((yyvsp[0].symbol), (yylsp[0])));
} }
break; break;
case 93: case 93: /* rules_or_grammar_declaration: error ";" */
{ {
yyerrok; yyerrok;
} }
break; break;
case 94: case 94: /* $@4: %empty */
{ current_lhs ((yyvsp[-1].id_colon), (yylsp[-1]), (yyvsp[0].yykind_95)); } { current_lhs ((yyvsp[-1].id_colon), (yylsp[-1]), (yyvsp[0].yykind_95)); }
break; break;
case 95: case 95: /* rules: id_colon named_ref.opt $@4 ":" rhses.1 */
{ {
/* Free the current lhs. */ /* Free the current lhs. */
current_lhs (0, (yylsp[-4]), 0); current_lhs (0, (yylsp[-4]), 0);
} }
break; break;
case 96: case 96: /* rhses.1: rhs */
{ grammar_current_rule_end ((yylsp[0])); } { grammar_current_rule_end ((yylsp[0])); }
break; break;
case 97: case 97: /* rhses.1: rhses.1 "|" rhs */
{ grammar_current_rule_end ((yylsp[0])); } { grammar_current_rule_end ((yylsp[0])); }
break; break;
case 99: case 99: /* rhs: %empty */
{ grammar_current_rule_begin (current_lhs_symbol, current_lhs_loc, { grammar_current_rule_begin (current_lhs_symbol, current_lhs_loc,
current_lhs_named_ref); } current_lhs_named_ref); }
break; break;
case 100: case 100: /* rhs: rhs symbol named_ref.opt */
{ grammar_current_rule_symbol_append ((yyvsp[-1].symbol), (yylsp[-1]), (yyvsp[0].yykind_95)); } { grammar_current_rule_symbol_append ((yyvsp[-1].symbol), (yylsp[-1]), (yyvsp[0].yykind_95)); }
break; break;
case 101: case 101: /* rhs: rhs tag.opt "{...}" named_ref.opt */
{ grammar_current_rule_action_append ((yyvsp[-1].BRACED_CODE), (yylsp[-1]), (yyvsp[0].yykind_95), (yyvsp[-2].yykind_74)); } { grammar_current_rule_action_append ((yyvsp[-1].BRACED_CODE), (yylsp[-1]), (yyvsp[0].yykind_95), (yyvsp[-2].yykind_74)); }
break; break;
case 102: case 102: /* rhs: rhs "%?{...}" */
{ grammar_current_rule_predicate_append ((yyvsp[0].BRACED_PREDICATE), (yylsp[0])); } { grammar_current_rule_predicate_append ((yyvsp[0].BRACED_PREDICATE), (yylsp[0])); }
break; break;
case 103: case 103: /* rhs: rhs "%empty" */
{ grammar_current_rule_empty_set ((yylsp[0])); } { grammar_current_rule_empty_set ((yylsp[0])); }
break; break;
case 104: case 104: /* rhs: rhs "%prec" symbol */
{ grammar_current_rule_prec_set ((yyvsp[0].symbol), (yylsp[0])); } { grammar_current_rule_prec_set ((yyvsp[0].symbol), (yylsp[0])); }
break; break;
case 105: case 105: /* rhs: rhs "%dprec" "integer literal" */
{ grammar_current_rule_dprec_set ((yyvsp[0].INT), (yylsp[0])); } { grammar_current_rule_dprec_set ((yyvsp[0].INT), (yylsp[0])); }
break; break;
case 106: case 106: /* rhs: rhs "%merge" "<tag>" */
{ grammar_current_rule_merge_set ((yyvsp[0].TAG), (yylsp[0])); } { grammar_current_rule_merge_set ((yyvsp[0].TAG), (yylsp[0])); }
break; break;
case 107: case 107: /* rhs: rhs "%expect" "integer literal" */
{ grammar_current_rule_expect_sr ((yyvsp[0].INT), (yylsp[0])); } { grammar_current_rule_expect_sr ((yyvsp[0].INT), (yylsp[0])); }
break; break;
case 108: case 108: /* rhs: rhs "%expect-rr" "integer literal" */
{ grammar_current_rule_expect_rr ((yyvsp[0].INT), (yylsp[0])); } { grammar_current_rule_expect_rr ((yyvsp[0].INT), (yylsp[0])); }
break; break;
case 109: case 109: /* named_ref.opt: %empty */
{ (yyval.yykind_95) = NULL; } { (yyval.yykind_95) = NULL; }
break; break;
case 110: case 110: /* named_ref.opt: "[identifier]" */
{ (yyval.yykind_95) = named_ref_new ((yyvsp[0].BRACKETED_ID), (yylsp[0])); } { (yyval.yykind_95) = named_ref_new ((yyvsp[0].BRACKETED_ID), (yylsp[0])); }
break; break;
case 112: case 112: /* value: %empty */
{ (yyval.value).kind = muscle_keyword; (yyval.value).chars = ""; } { (yyval.value).kind = muscle_keyword; (yyval.value).chars = ""; }
break; break;
case 113: case 113: /* value: "identifier" */
{ (yyval.value).kind = muscle_keyword; (yyval.value).chars = (yyvsp[0].ID); } { (yyval.value).kind = muscle_keyword; (yyval.value).chars = (yyvsp[0].ID); }
break; break;
case 114: case 114: /* value: "string" */
{ (yyval.value).kind = muscle_string; (yyval.value).chars = (yyvsp[0].STRING); } { (yyval.value).kind = muscle_string; (yyval.value).chars = (yyvsp[0].STRING); }
break; break;
case 115: case 115: /* value: "{...}" */
{ (yyval.value).kind = muscle_code; (yyval.value).chars = strip_braces ((yyvsp[0].BRACED_CODE)); } { (yyval.value).kind = muscle_code; (yyval.value).chars = strip_braces ((yyvsp[0].BRACED_CODE)); }
break; break;
case 116: case 116: /* id: "identifier" */
{ (yyval.id) = symbol_from_uniqstr ((yyvsp[0].ID), (yylsp[0])); } { (yyval.id) = symbol_from_uniqstr ((yyvsp[0].ID), (yylsp[0])); }
break; break;
case 117: case 117: /* id: "character literal" */
{ {
const char *var = "api.token.raw"; const char *var = "api.token.raw";
if (current_class == nterm_sym) if (current_class == nterm_sym)
@@ -2577,18 +2577,18 @@ yyreduce:
} }
break; break;
case 118: case 118: /* id_colon: "identifier:" */
{ (yyval.id_colon) = symbol_from_uniqstr ((yyvsp[0].ID_COLON), (yylsp[0])); } { (yyval.id_colon) = symbol_from_uniqstr ((yyvsp[0].ID_COLON), (yylsp[0])); }
break; break;
case 121: case 121: /* string_as_id: "string" */
{ {
(yyval.string_as_id) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[0].STRING)), (yylsp[0])); (yyval.string_as_id) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[0].STRING)), (yylsp[0]));
symbol_class_set ((yyval.string_as_id), token_sym, (yylsp[0]), false); symbol_class_set ((yyval.string_as_id), token_sym, (yylsp[0]), false);
} }
break; break;
case 123: case 123: /* epilogue.opt: "%%" "epilogue" */
{ {
muscle_code_grow ("epilogue", translate_code ((yyvsp[0].EPILOGUE), (yylsp[0]), true), (yylsp[0])); muscle_code_grow ("epilogue", translate_code ((yyvsp[0].EPILOGUE), (yylsp[0]), true), (yylsp[0]));
code_scanner_last_string_free (); code_scanner_last_string_free ();

View File

@@ -1,4 +1,4 @@
/* A Bison parser, made by GNU Bison 3.6.2.71-273f. */ /* A Bison parser, made by GNU Bison 3.6.3.74-5ca2. */
/* Bison interface for Yacc-like parsers in C /* Bison interface for Yacc-like parsers in C