X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/6b98e4b5636203b60c2a43ddaa988562616b4c69..dd0e0635ece1b9945f23423f048d407831604c56:/src/print.c diff --git a/src/print.c b/src/print.c index 280ac8d8..4f855244 100644 --- a/src/print.c +++ b/src/print.c @@ -1,5 +1,6 @@ /* Print information on generated parser, for bison, - Copyright (C) 1984, 1986, 1989, 2000, 2001, 2002 + + Copyright (C) 1984, 1986, 1989, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. This file is part of Bison, the GNU Compiler Compiler. @@ -21,20 +22,22 @@ #include "system.h" -#include "quotearg.h" -#include "files.h" -#include "symtab.h" -#include "gram.h" + +#include +#include + #include "LR0.h" -#include "lalr.h" +#include "closure.h" #include "conflicts.h" +#include "files.h" #include "getargs.h" -#include "state.h" -#include "reader.h" +#include "gram.h" +#include "lalr.h" #include "print.h" +#include "reader.h" #include "reduce.h" -#include "closure.h" -#include "bitset.h" +#include "state.h" +#include "symtab.h" static bitset shiftset; static bitset lookaheadset; @@ -48,16 +51,30 @@ print_token (int extnum, int token) #endif + +/*---------------------------------------. +| *WIDTH := max (*WIDTH, strlen (STR)). | +`---------------------------------------*/ + +static void +max_length (size_t *width, const char *str) +{ + size_t len = strlen (str); + if (len > *width) + *width = len; +} + /*--------------------------------. | Report information on a state. | `--------------------------------*/ static void -print_core (FILE *out, state_t *state) +print_core (FILE *out, state *s) { int i; - item_number_t *sitems = state->items; - int snritems = state->nitems; + item_number *sitems = s->items; + int snritems = s->nitems; + symbol *previous_lhs = NULL; /* Output all the items of a state, not only its kernel. */ if (report_flag & report_itemsets) @@ -67,293 +84,348 @@ print_core (FILE *out, state_t *state) snritems = nritemset; } - if (snritems) - { - for (i = 0; i < snritems; i++) - { - item_number_t *sp; - item_number_t *sp1; - int rule; + if (!snritems) + return; - sp1 = sp = ritem + sitems[i]; + fputc ('\n', out); - while (*sp >= 0) - sp++; + for (i = 0; i < snritems; i++) + { + item_number *sp; + item_number *sp1; + rule_number r; - rule = -(*sp); - fprintf (out, " %s -> ", symbol_tag_get (rules[rule].lhs)); + sp1 = sp = ritem + sitems[i]; - for (sp = rules[rule].rhs; sp < sp1; sp++) - fprintf (out, "%s ", symbol_tag_get (symbols[*sp])); + while (*sp >= 0) + sp++; - fputc ('.', out); + r = item_number_as_rule_number (*sp); - for (/* Nothing */; *sp >= 0; ++sp) - fprintf (out, " %s", symbol_tag_get (symbols[*sp])); + rule_lhs_print (&rules[r], previous_lhs, out); + previous_lhs = rules[r].lhs; - /* Display the lookaheads? */ - if (report_flag & report_lookaheads) - { - int j, k; - int nlookaheads = 0; - /* Look for lookaheads corresponding to this rule. */ - for (j = 0; j < state->nlookaheads; ++j) - for (k = 0; k < ntokens; ++k) - if (bitset_test (LA[state->lookaheadsp + j], k) - && LArule[state->lookaheadsp + j]->number == rule) - nlookaheads++; - if (nlookaheads) - { - fprintf (out, " ["); - for (j = 0; j < state->nlookaheads; ++j) - for (k = 0; k < ntokens; ++k) - if (bitset_test (LA[state->lookaheadsp + j], k) - && LArule[state->lookaheadsp + j]->number == rule) - fprintf (out, "%s%s", - symbol_tag_get (symbols[k]), - --nlookaheads ? ", " : ""); - fprintf (out, "]"); - } - } + for (sp = rules[r].rhs; sp < sp1; sp++) + fprintf (out, " %s", symbols[*sp]->tag); + fputs (" .", out); + for (/* Nothing */; *sp >= 0; ++sp) + fprintf (out, " %s", symbols[*sp]->tag); - fprintf (out, _(" (rule %d)"), rule - 1); - fputc ('\n', out); - } + /* Display the lookaheads? */ + if (report_flag & report_lookaheads) + state_rule_lookaheads_print (s, &rules[r], out); fputc ('\n', out); } } +/*------------------------------------------------------------. +| Report the shifts iff DISPLAY_SHIFTS_P or the gotos of S on | +| OUT. | +`------------------------------------------------------------*/ + static void -print_shifts (FILE *out, state_t *state) +print_transitions (state *s, FILE *out, bool display_transitions_p) { + transitions *trans = s->transitions; + size_t width = 0; int i; - shifts *shiftp = state->shifts; - for (i = 0; i < shiftp->nshifts && SHIFT_IS_SHIFT (shiftp, i); i++) - if (!SHIFT_IS_DISABLED (shiftp, i)) + /* Compute the width of the lookaheads column. */ + for (i = 0; i < trans->num; i++) + if (!TRANSITION_IS_DISABLED (trans, i) + && TRANSITION_IS_SHIFT (trans, i) == display_transitions_p) { - int state1 = shiftp->shifts[i]; - symbol_number_t symbol = states[state1]->accessing_symbol; - fprintf (out, - _(" %-4s\tshift, and go to state %d\n"), - symbol_tag_get (symbols[symbol]), state1); + symbol *sym = symbols[TRANSITION_SYMBOL (trans, i)]; + max_length (&width, sym->tag); } - if (i > 0) - fputc ('\n', out); + /* Nothing to report. */ + if (!width) + return; + + fputc ('\n', out); + width += 2; + + /* Report lookaheads and shifts. */ + for (i = 0; i < trans->num; i++) + if (!TRANSITION_IS_DISABLED (trans, i) + && TRANSITION_IS_SHIFT (trans, i) == display_transitions_p) + { + symbol *sym = symbols[TRANSITION_SYMBOL (trans, i)]; + const char *tag = sym->tag; + state *s1 = trans->states[i]; + int j; + + fprintf (out, " %s", tag); + for (j = width - strlen (tag); j > 0; --j) + fputc (' ', out); + if (display_transitions_p) + fprintf (out, _("shift, and go to state %d\n"), s1->number); + else + fprintf (out, _("go to state %d\n"), s1->number); + } } +/*--------------------------------------------------------. +| Report the explicit errors of S raised from %nonassoc. | +`--------------------------------------------------------*/ + static void -print_errs (FILE *out, state_t *state) +print_errs (FILE *out, state *s) { - errs *errp = state->errs; + errs *errp = s->errs; + size_t width = 0; int i; - for (i = 0; i < errp->nerrs; ++i) - if (errp->errs[i]) - fprintf (out, _(" %-4s\terror (nonassociative)\n"), - symbol_tag_get (symbols[errp->errs[i]])); + /* Compute the width of the lookaheads column. */ + for (i = 0; i < errp->num; ++i) + if (errp->symbols[i]) + max_length (&width, errp->symbols[i]->tag); - if (i > 0) - fputc ('\n', out); + /* Nothing to report. */ + if (!width) + return; + + fputc ('\n', out); + width += 2; + + /* Report lookaheads and errors. */ + for (i = 0; i < errp->num; ++i) + if (errp->symbols[i]) + { + const char *tag = errp->symbols[i]->tag; + int j; + fprintf (out, " %s", tag); + for (j = width - strlen (tag); j > 0; --j) + fputc (' ', out); + fputs (_("error (nonassociative)\n"), out); + } } -static void -print_gotos (FILE *out, state_t *state) +/*-------------------------------------------------------------. +| Return the default rule of S if it has one, NULL otherwise. | +`-------------------------------------------------------------*/ + +static rule * +state_default_rule (state *s) { + reductions *reds = s->reductions; + rule *default_rule = NULL; + int cmax = 0; int i; - shifts *shiftp = state->shifts; - for (i = 0; i < shiftp->nshifts && SHIFT_IS_SHIFT (shiftp, i); i++) - /* Skip token shifts. */; + /* No need for a lookahead. */ + if (s->consistent) + return reds->rules[0]; - if (i < shiftp->nshifts) + /* 1. Each reduction is possibly masked by the lookaheads on which + we shift (S/R conflicts)... */ + bitset_zero (shiftset); + { + transitions *trans = s->transitions; + FOR_EACH_SHIFT (trans, i) + { + /* If this state has a shift for the error token, don't use a + default rule. */ + if (TRANSITION_IS_ERROR (trans, i)) + return NULL; + bitset_set (shiftset, TRANSITION_SYMBOL (trans, i)); + } + } + + /* 2. Each reduction is possibly masked by the lookaheads on which + we raise an error (due to %nonassoc). */ + { + errs *errp = s->errs; + for (i = 0; i < errp->num; i++) + if (errp->symbols[i]) + bitset_set (shiftset, errp->symbols[i]->number); + } + + for (i = 0; i < reds->num; ++i) { - for (; i < shiftp->nshifts; i++) - if (!SHIFT_IS_DISABLED (shiftp, i)) - { - int state1 = shiftp->shifts[i]; - symbol_number_t symbol = states[state1]->accessing_symbol; - fprintf (out, _(" %-4s\tgo to state %d\n"), - symbol_tag_get (symbols[symbol]), state1); - } - - fputc ('\n', out); - } -} + int count = 0; -static void -print_reductions (FILE *out, state_t *state) -{ - int i; - shifts *shiftp = state->shifts; - reductions *redp = state->reductions; - errs *errp = state->errs; - int nodefault = 0; + /* How many non-masked lookaheads are there for this reduction? + */ + bitset_andn (lookaheadset, reds->lookaheads[i], shiftset); + count = bitset_count (lookaheadset); - if (redp->nreds == 0) - return; + if (count > cmax) + { + cmax = count; + default_rule = reds->rules[i]; + } - if (state->consistent) - { - int rule = redp->rules[0]; - symbol_number_t symbol = rules[rule].lhs->number; - fprintf (out, _(" $default\treduce using rule %d (%s)\n\n"), - rule - 1, symbol_tag_get (symbols[symbol])); - return; + /* 3. And finally, each reduction is possibly masked by previous + reductions (in R/R conflicts, we keep the first reductions). + */ + bitset_or (shiftset, shiftset, reds->lookaheads[i]); } - bitset_zero (shiftset); + return default_rule; +} - for (i = 0; i < shiftp->nshifts && SHIFT_IS_SHIFT (shiftp, i); i++) - if (!SHIFT_IS_DISABLED (shiftp, i)) - { - /* if this state has a shift for the error token, don't use a - default rule. */ - if (SHIFT_IS_ERROR (shiftp, i)) - nodefault = 1; - bitset_set (shiftset, SHIFT_SYMBOL (shiftp, i)); - } - for (i = 0; i < errp->nerrs; i++) - if (errp->errs[i]) - bitset_set (shiftset, errp->errs[i]); +/*--------------------------------------------------------------------. +| Report a reduction of RULE on LOOKAHEADS (which can be `default'). | +| If not ENABLED, the rule is masked by a shift or a reduce (S/R and | +| R/R conflicts). | +`--------------------------------------------------------------------*/ - if (state->nlookaheads == 1 && !nodefault) - { - rule_t *default_rule = LArule[state->lookaheadsp]; +static void +print_reduction (FILE *out, size_t width, + const char *lookahead, + rule *r, bool enabled) +{ + int j; + fprintf (out, " %s", lookahead); + for (j = width - strlen (lookahead); j > 0; --j) + fputc (' ', out); + if (!enabled) + fputc ('[', out); + if (r->number) + fprintf (out, _("reduce using rule %d (%s)"), r->number, r->lhs->tag); + else + fprintf (out, _("accept")); + if (!enabled) + fputc (']', out); + fputc ('\n', out); +} - bitset_and (lookaheadset, LA[state->lookaheadsp], shiftset); - for (i = 0; i < ntokens; i++) - if (bitset_test (lookaheadset, i)) - fprintf (out, _(" %-4s\t[reduce using rule %d (%s)]\n"), - symbol_tag_get (symbols[i]), - default_rule->number - 1, - symbol_tag_get_n (default_rule->lhs, 1)); +/*-------------------------------------------. +| Report on OUT the reduction actions of S. | +`-------------------------------------------*/ - fprintf (out, _(" $default\treduce using rule %d (%s)\n\n"), - default_rule->number - 1, - symbol_tag_get (default_rule->lhs)); - } - else if (state->nlookaheads >= 1) - { - int cmax = 0; - int default_LA = -1; - rule_t *default_rule = NULL; +static void +print_reductions (FILE *out, state *s) +{ + transitions *trans = s->transitions; + reductions *reds = s->reductions; + rule *default_rule = NULL; + size_t width = 0; + int i, j; - if (!nodefault) - for (i = 0; i < state->nlookaheads; ++i) - { - int count = 0; - int j; + if (reds->num == 0) + return; - bitset_andn (lookaheadset, LA[state->lookaheadsp + i], shiftset); + default_rule = state_default_rule (s); - for (j = 0; j < ntokens; j++) - if (bitset_test (lookaheadset, j)) - count++; + bitset_zero (shiftset); + FOR_EACH_SHIFT (trans, i) + bitset_set (shiftset, TRANSITION_SYMBOL (trans, i)); - if (count > cmax) - { - cmax = count; - default_LA = state->lookaheadsp + i; - default_rule = LArule[state->lookaheadsp + i]; - } + /* Compute the width of the lookaheads column. */ + if (default_rule) + width = strlen (_("$default")); - bitset_or (shiftset, shiftset, lookaheadset); - } + if (reds->lookaheads) + for (i = 0; i < ntokens; i++) + { + bool count = bitset_test (shiftset, i); - bitset_zero (shiftset); + for (j = 0; j < reds->num; ++j) + if (bitset_test (reds->lookaheads[j], i)) + { + if (! count) + { + if (reds->rules[j] != default_rule) + max_length (&width, symbols[i]->tag); + count = true; + } + else + { + max_length (&width, symbols[i]->tag); + } + } + } - for (i = 0; i < shiftp->nshifts && SHIFT_IS_SHIFT (shiftp, i); i++) - if (!SHIFT_IS_DISABLED (shiftp, i)) - bitset_set (shiftset, SHIFT_SYMBOL (shiftp, i)); + /* Nothing to report. */ + if (!width) + return; - for (i = 0; i < ntokens; i++) - { - int j; - int defaulted = 0; - int count = bitset_test (shiftset, i); + fputc ('\n', out); + width += 2; - for (j = 0; j < state->nlookaheads; ++j) - if (bitset_test (LA[state->lookaheadsp + j], i)) - { - if (count == 0) - { - if (state->lookaheadsp + j != default_LA) - fprintf (out, - _(" %-4s\treduce using rule %d (%s)\n"), - symbol_tag_get (symbols[i]), - LArule[state->lookaheadsp + j]->number - 1, - symbol_tag_get_n (LArule[state->lookaheadsp + j]->lhs, 1)); - else - defaulted = 1; - - count++; - } - else - { - if (defaulted) - fprintf (out, - _(" %-4s\treduce using rule %d (%s)\n"), - symbol_tag_get (symbols[i]), - LArule[default_LA]->number - 1, - symbol_tag_get_n (LArule[default_LA]->lhs, 1)); - defaulted = 0; - fprintf (out, - _(" %-4s\t[reduce using rule %d (%s)]\n"), - symbol_tag_get (symbols[i]), - LArule[state->lookaheadsp + j]->number - 1, - symbol_tag_get_n (LArule[state->lookaheadsp + j]->lhs, 1)); - } - } - } + /* Report lookaheads (or $default) and reductions. */ + if (reds->lookaheads) + for (i = 0; i < ntokens; i++) + { + bool defaulted = false; + bool count = bitset_test (shiftset, i); - if (default_LA >= 0) - fprintf (out, _(" $default\treduce using rule %d (%s)\n"), - default_rule->number - 1, - symbol_tag_get (default_rule->lhs)); - } + for (j = 0; j < reds->num; ++j) + if (bitset_test (reds->lookaheads[j], i)) + { + if (! count) + { + if (reds->rules[j] != default_rule) + print_reduction (out, width, + symbols[i]->tag, + reds->rules[j], true); + else + defaulted = true; + count = true; + } + else + { + if (defaulted) + print_reduction (out, width, + symbols[i]->tag, + default_rule, true); + defaulted = false; + print_reduction (out, width, + symbols[i]->tag, + reds->rules[j], false); + } + } + } + + if (default_rule) + print_reduction (out, width, + _("$default"), default_rule, true); } +/*--------------------------------------------------------------. +| Report on OUT all the actions (shifts, gotos, reductions, and | +| explicit erros from %nonassoc) of S. | +`--------------------------------------------------------------*/ + static void -print_actions (FILE *out, state_t *state) +print_actions (FILE *out, state *s) { - reductions *redp = state->reductions; - shifts *shiftp = state->shifts; + /* Print shifts. */ + print_transitions (s, out, true); + print_errs (out, s); + print_reductions (out, s); + /* Print gotos. */ + print_transitions (s, out, false); +} - if (shiftp->nshifts == 0 && redp->nreds == 0) - { - if (final_state == state->number) - fprintf (out, _(" $default\taccept\n")); - else - fprintf (out, _(" NO ACTIONS\n")); - return; - } - print_shifts (out, state); - print_errs (out, state); - print_reductions (out, state); - print_gotos (out, state); -} +/*----------------------------------. +| Report all the data on S on OUT. | +`----------------------------------*/ static void -print_state (FILE *out, state_t *state) +print_state (FILE *out, state *s) { - fprintf (out, _("state %d"), state->number); - fputs ("\n\n", out); - print_core (out, state); - print_actions (out, state); - if ((report_flag & report_solved_conflicts) - && state->solved_conflicts) - fputs (state->solved_conflicts, out); fputs ("\n\n", out); + fprintf (out, _("state %d"), s->number); + fputc ('\n', out); + print_core (out, s); + print_actions (out, s); + if ((report_flag & report_solved_conflicts) && s->solved_conflicts) + { + fputc ('\n', out); + fputs (s->solved_conflicts, out); + } } /*-----------------------------------------. @@ -374,8 +446,7 @@ do { \ static void print_grammar (FILE *out) { - symbol_number_t i; - item_number_t *rule; + symbol_number i; char buffer[90]; int column = 0; @@ -386,20 +457,22 @@ print_grammar (FILE *out) for (i = 0; i < max_user_token_number + 1; i++) if (token_translations[i] != undeftoken->number) { - const char *tag = symbol_tag_get (symbols[token_translations[i]]); - int r; + const char *tag = symbols[token_translations[i]]->tag; + rule_number r; + item_number *rhsp; + buffer[0] = 0; column = strlen (tag); fputs (tag, out); END_TEST (50); sprintf (buffer, " (%d)", i); - for (r = 1; r < nrules + 1; r++) - for (rule = rules[r].rhs; *rule >= 0; rule++) - if (item_number_as_symbol_number (*rule) == token_translations[i]) + for (r = 0; r < nrules; r++) + for (rhsp = rules[r].rhs; *rhsp >= 0; rhsp++) + if (item_number_as_symbol_number (*rhsp) == token_translations[i]) { END_TEST (65); - sprintf (buffer + strlen (buffer), " %d", r - 1); + sprintf (buffer + strlen (buffer), " %d", r); break; } fprintf (out, "%s\n", buffer); @@ -411,15 +484,16 @@ print_grammar (FILE *out) for (i = ntokens; i < nsyms; i++) { int left_count = 0, right_count = 0; - int r; - const char *tag = symbol_tag_get (symbols[i]); + rule_number r; + const char *tag = symbols[i]->tag; - for (r = 1; r < nrules + 1; r++) + for (r = 0; r < nrules; r++) { + item_number *rhsp; if (rules[r].lhs->number == i) left_count++; - for (rule = rules[r].rhs; *rule >= 0; rule++) - if (item_number_as_symbol_number (*rule) == i) + for (rhsp = rules[r].rhs; *rhsp >= 0; rhsp++) + if (item_number_as_symbol_number (*rhsp) == i) { right_count++; break; @@ -437,11 +511,11 @@ print_grammar (FILE *out) END_TEST (50); sprintf (buffer + strlen (buffer), _(" on left:")); - for (r = 1; r < nrules + 1; r++) + for (r = 0; r < nrules; r++) { END_TEST (65); if (rules[r].lhs->number == i) - sprintf (buffer + strlen (buffer), " %d", r - 1); + sprintf (buffer + strlen (buffer), " %d", r); } } @@ -451,32 +525,34 @@ print_grammar (FILE *out) sprintf (buffer + strlen (buffer), ","); END_TEST (50); sprintf (buffer + strlen (buffer), _(" on right:")); - for (r = 1; r < nrules + 1; r++) + for (r = 0; r < nrules; r++) { - for (rule = rules[r].rhs; *rule >= 0; rule++) - if (item_number_as_symbol_number (*rule) == i) + item_number *rhsp; + for (rhsp = rules[r].rhs; *rhsp >= 0; rhsp++) + if (item_number_as_symbol_number (*rhsp) == i) { END_TEST (65); - sprintf (buffer + strlen (buffer), " %d", r - 1); + sprintf (buffer + strlen (buffer), " %d", r); break; } } } fprintf (out, "%s\n", buffer); } - fputs ("\n\n", out); } void print_results (void) { - size_t i; + state_number i; /* We used to use just .out if SPEC_NAME_PREFIX (-p) was used, but that conflicts with Posix. */ FILE *out = xfopen (spec_verbose_file, "w"); reduce_output (out); + grammar_rules_partial_print (out, + _("Rules never reduced"), rule_never_reduced_p); conflicts_output (out); print_grammar (out);