X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/8adfa272f72683102c45cc6eaba00aaa5db2497a..616429b50868bf9225d55143526442a024e32969:/src/print.c diff --git a/src/print.c b/src/print.c index 648e3e6c..72b4cd0a 100644 --- a/src/print.c +++ b/src/print.c @@ -22,6 +22,7 @@ #include "system.h" #include "quotearg.h" #include "files.h" +#include "symtab.h" #include "gram.h" #include "LR0.h" #include "lalr.h" @@ -88,21 +89,21 @@ print_core (FILE *out, state_t *state) sp1 = sp = ritem + sitems[i]; - while (*sp > 0) + while (*sp >= 0) sp++; rule = -(*sp); - fprintf (out, " %s -> ", escape (tags[rule_table[rule].lhs])); + fprintf (out, " %s -> ", escape (symbols[rules[rule].lhs]->tag)); - for (sp = ritem + rule_table[rule].rhs; sp < sp1; sp++) - fprintf (out, "%s ", escape (tags[*sp])); + for (sp = ritem + rules[rule].rhs; sp < sp1; sp++) + fprintf (out, "%s ", escape (symbols[*sp]->tag)); fputc ('.', out); - for (/* Nothing */; *sp > 0; ++sp) - fprintf (out, " %s", escape (tags[*sp])); + for (/* Nothing */; *sp >= 0; ++sp) + fprintf (out, " %s", escape (symbols[*sp]->tag)); - fprintf (out, _(" (rule %d)"), rule); + fprintf (out, _(" (rule %d)"), rule - 1); fputc ('\n', out); } @@ -121,10 +122,10 @@ print_shifts (FILE *out, state_t *state) if (!SHIFT_IS_DISABLED (shiftp, i)) { int state1 = shiftp->shifts[i]; - int symbol = state_table[state1]->accessing_symbol; + int symbol = states[state1]->accessing_symbol; fprintf (out, _(" %-4s\tshift, and go to state %d\n"), - escape (tags[symbol]), state1); + escape (symbols[symbol]->tag), state1); } if (i > 0) @@ -141,7 +142,7 @@ print_errs (FILE *out, state_t *state) for (i = 0; i < errp->nerrs; ++i) if (errp->errs[i]) fprintf (out, _(" %-4s\terror (nonassociative)\n"), - escape (tags[errp->errs[i]])); + escape (symbols[errp->errs[i]]->tag)); if (i > 0) fputc ('\n', out); @@ -163,9 +164,9 @@ print_gotos (FILE *out, state_t *state) if (!SHIFT_IS_DISABLED (shiftp, i)) { int state1 = shiftp->shifts[i]; - int symbol = state_table[state1]->accessing_symbol; + int symbol = states[state1]->accessing_symbol; fprintf (out, _(" %-4s\tgo to state %d\n"), - escape (tags[symbol]), state1); + escape (symbols[symbol]->tag), state1); } fputc ('\n', out); @@ -187,9 +188,9 @@ print_reductions (FILE *out, state_t *state) if (state->consistent) { int rule = redp->rules[0]; - int symbol = rule_table[rule].lhs; + int symbol = rules[rule].lhs; fprintf (out, _(" $default\treduce using rule %d (%s)\n\n"), - rule, escape (tags[symbol])); + rule - 1, escape (symbols[symbol]->tag)); return; } @@ -221,11 +222,11 @@ print_reductions (FILE *out, state_t *state) for (i = 0; i < ntokens; i++) if (BITISSET (lookaheadset, i)) fprintf (out, _(" %-4s\t[reduce using rule %d (%s)]\n"), - escape (tags[i]), default_rule, - escape2 (tags[rule_table[default_rule].lhs])); + escape (symbols[i]->tag), default_rule - 1, + escape2 (symbols[rules[default_rule].lhs]->tag)); fprintf (out, _(" $default\treduce using rule %d (%s)\n\n"), - default_rule, escape (tags[rule_table[default_rule].lhs])); + default_rule - 1, escape (symbols[rules[default_rule].lhs]->tag)); } else if (state->nlookaheads >= 1) { @@ -279,9 +280,9 @@ print_reductions (FILE *out, state_t *state) if (state->lookaheadsp + j != default_LA) fprintf (out, _(" %-4s\treduce using rule %d (%s)\n"), - escape (tags[i]), - LAruleno[state->lookaheadsp + j], - escape2 (tags[rule_table[LAruleno[state->lookaheadsp + j]].lhs])); + escape (symbols[i]->tag), + LAruleno[state->lookaheadsp + j] - 1, + escape2 (symbols[rules[LAruleno[state->lookaheadsp + j]].lhs]->tag)); else defaulted = 1; @@ -292,15 +293,15 @@ print_reductions (FILE *out, state_t *state) if (defaulted) fprintf (out, _(" %-4s\treduce using rule %d (%s)\n"), - escape (tags[i]), - LAruleno[default_LA], - escape2 (tags[rule_table[LAruleno[default_LA]].lhs])); + escape (symbols[i]->tag), + LAruleno[default_LA] - 1, + escape2 (symbols[rules[LAruleno[default_LA]].lhs]->tag)); defaulted = 0; fprintf (out, _(" %-4s\t[reduce using rule %d (%s)]\n"), - escape (tags[i]), - LAruleno[state->lookaheadsp + j], - escape2 (tags[rule_table[LAruleno[state->lookaheadsp + j]].lhs])); + escape (symbols[i]->tag), + LAruleno[state->lookaheadsp + j] - 1, + escape2 (symbols[rules[LAruleno[state->lookaheadsp + j]].lhs]->tag)); } } } @@ -308,7 +309,8 @@ print_reductions (FILE *out, state_t *state) if (default_LA >= 0) fprintf (out, _(" $default\treduce using rule %d (%s)\n"), - default_rule, escape (tags[rule_table[default_rule].lhs])); + default_rule - 1, + escape (symbols[rules[default_rule].lhs]->tag)); } } @@ -322,9 +324,9 @@ print_actions (FILE *out, state_t *state) if (shiftp->nshifts == 0 && redp->nreds == 0) { if (final_state == state->number) - fprintf (out, _(" $default\taccept\n")); + fprintf (out, _(" $default\taccept\n")); else - fprintf (out, _(" NO ACTIONS\n")); + fprintf (out, _(" NO ACTIONS\n")); return; } @@ -372,14 +374,14 @@ print_grammar (FILE *out) fprintf (out, " %s\n", _("Number, Line, Rule")); for (i = 1; i <= nrules; i++) /* Don't print rules disabled in reduce_grammar_tables. */ - if (rule_table[i].useful) + if (rules[i].useful) { fprintf (out, _(" %3d %3d %s ->"), - i, rule_table[i].line, escape (tags[rule_table[i].lhs])); - rule = &ritem[rule_table[i].rhs]; - if (*rule > 0) - while (*rule > 0) - fprintf (out, " %s", escape (tags[*rule++])); + i - 1, rules[i].line, escape (symbols[rules[i].lhs]->tag)); + rule = &ritem[rules[i].rhs]; + if (*rule >= 0) + while (*rule >= 0) + fprintf (out, " %s", escape (symbols[*rule++]->tag)); else fprintf (out, " /* %s */", _("empty")); fputc ('\n', out); @@ -389,23 +391,21 @@ print_grammar (FILE *out) /* TERMINAL (type #) : rule #s terminal is on RHS */ fprintf (out, "%s\n\n", _("Terminals, with rules where they appear")); - fprintf (out, "%s (-1)\n", escape (tags[0])); - for (i = 0; i <= max_user_token_number; i++) if (token_translations[i] != 2) { buffer[0] = 0; - column = strlen (escape (tags[token_translations[i]])); - fputs (escape (tags[token_translations[i]]), out); + column = strlen (escape (symbols[token_translations[i]]->tag)); + fputs (escape (symbols[token_translations[i]]->tag), out); END_TEST (50); sprintf (buffer, " (%d)", i); for (j = 1; j <= nrules; j++) - for (rule = &ritem[rule_table[j].rhs]; *rule > 0; rule++) + for (rule = &ritem[rules[j].rhs]; *rule >= 0; rule++) if (*rule == token_translations[i]) { END_TEST (65); - sprintf (buffer + strlen (buffer), " %d", j); + sprintf (buffer + strlen (buffer), " %d", j - 1); break; } fprintf (out, "%s\n", buffer); @@ -420,9 +420,9 @@ print_grammar (FILE *out) for (j = 1; j <= nrules; j++) { - if (rule_table[j].lhs == i) + if (rules[j].lhs == i) left_count++; - for (rule = &ritem[rule_table[j].rhs]; *rule > 0; rule++) + for (rule = &ritem[rules[j].rhs]; *rule >= 0; rule++) if (*rule == i) { right_count++; @@ -431,8 +431,8 @@ print_grammar (FILE *out) } buffer[0] = 0; - fputs (escape (tags[i]), out); - column = strlen (escape (tags[i])); + fputs (escape (symbols[i]->tag), out); + column = strlen (escape (symbols[i]->tag)); sprintf (buffer, " (%d)", i); END_TEST (0); @@ -444,8 +444,8 @@ print_grammar (FILE *out) for (j = 1; j <= nrules; j++) { END_TEST (65); - if (rule_table[j].lhs == i) - sprintf (buffer + strlen (buffer), " %d", j); + if (rules[j].lhs == i) + sprintf (buffer + strlen (buffer), " %d", j - 1); } } @@ -457,11 +457,11 @@ print_grammar (FILE *out) sprintf (buffer + strlen (buffer), _(" on right:")); for (j = 1; j <= nrules; j++) { - for (rule = &ritem[rule_table[j].rhs]; *rule > 0; rule++) + for (rule = &ritem[rules[j].rhs]; *rule >= 0; rule++) if (*rule == i) { END_TEST (65); - sprintf (buffer + strlen (buffer), " %d", j); + sprintf (buffer + strlen (buffer), " %d", j - 1); break; } } @@ -496,12 +496,12 @@ print_results (void) only its kernel. Requires to run closure, which need memory allocation/deallocation. */ if (trace_flag) - new_closure (nitems); + new_closure (nritems); /* Storage for print_reductions. */ shiftset = XCALLOC (unsigned, tokensetsize); lookaheadset = XCALLOC (unsigned, tokensetsize); for (i = 0; i < nstates; i++) - print_state (out, state_table[i]); + print_state (out, states[i]); free (shiftset); free (lookaheadset); if (trace_flag)