print_core (FILE *out, int state)
{
int i;
- int k;
- int rule;
- core *statep;
- short *sp;
- short *sp1;
-
- statep = state_table[state].state;
- k = statep->nitems;
+ core *statep = state_table[state].state;
- if (k == 0)
+ if (!statep->nitems)
return;
- for (i = 0; i < k; i++)
+ for (i = 0; i < statep->nitems; i++)
{
+ short *sp;
+ short *sp1;
+ int rule;
+
sp1 = sp = ritem + statep->items[i];
while (*sp > 0)
sp++;
rule = -(*sp);
- fprintf (out, " %s -> ", tags[rlhs[rule]]);
+ fprintf (out, " %s -> ", tags[rule_table[rule].lhs]);
- for (sp = ritem + rrhs[rule]; sp < sp1; sp++)
- {
- fprintf (out, "%s ", tags[*sp]);
- }
+ for (sp = ritem + rule_table[rule].rhs; sp < sp1; sp++)
+ fprintf (out, "%s ", tags[*sp]);
fputc ('.', out);
- while (*sp > 0)
- {
- fprintf (out, " %s", tags[*sp]);
- sp++;
- }
+ for (/* Nothing */; *sp > 0; ++sp)
+ fprintf (out, " %s", tags[*sp]);
fprintf (out, _(" (rule %d)"), rule);
fputc ('\n', out);
{
int i;
int k;
- int state1;
- int symbol;
- shifts *shiftp;
- errs *errp;
- reductions *redp;
- int rule;
- shiftp = state_table[state].shift_table;
- redp = state_table[state].reduction_table;
- errp = err_table[state];
+ shifts *shiftp = state_table[state].shift_table;
+ reductions *redp = state_table[state].reduction_table;
+ errs *errp = err_table[state];
if (!shiftp && !redp)
{
for (i = 0; i < k; i++)
{
- if (!shiftp->shifts[i])
+ int symbol;
+ int state1 = shiftp->shifts[i];
+ if (!state1)
continue;
- state1 = shiftp->shifts[i];
symbol = state_table[state1].accessing_symbol;
/* The following line used to be turned off. */
if (ISVAR (symbol))
if (errp)
{
- int j, nerrs;
-
- nerrs = errp->nerrs;
-
- for (j = 0; j < nerrs; j++)
+ int j;
+ for (j = 0; j < errp->nerrs; j++)
{
- if (!errp->errs[j])
+ int symbol = errp->errs[j];
+ if (!symbol)
continue;
- symbol = errp->errs[j];
fprintf (out, _(" %-4s\terror (nonassociative)\n"),
tags[symbol]);
}
if (state_table[state].consistent && redp)
{
- rule = redp->rules[0];
- symbol = rlhs[rule];
+ int rule = redp->rules[0];
+ int symbol = rule_table[rule].lhs;
fprintf (out, _(" $default\treduce using rule %d (%s)\n\n"),
rule, tags[symbol]);
}
{
for (; i < k; i++)
{
- if (!shiftp->shifts[i])
+ int symbol;
+ int state1 = shiftp->shifts[i];
+ if (!state1)
continue;
- state1 = shiftp->shifts[i];
symbol = state_table[state1].accessing_symbol;
fprintf (out, _(" %-4s\tgo to state %d\n"),
tags[symbol], state1);
/* rule # : LHS -> RHS */
fprintf (out, "\n%s\n\n", _("Grammar"));
+ fprintf (out, " %s\n", _("Number, Line, Rule"));
for (i = 1; i <= nrules; i++)
/* Don't print rules disabled in reduce_grammar_tables. */
- if (rlhs[i] >= 0)
+ if (rule_table[i].lhs >= 0)
{
- fprintf (out, _("rule %-4d %s ->"), i, tags[rlhs[i]]);
- rule = &ritem[rrhs[i]];
+ fprintf (out, _(" %3d %3d %s ->"),
+ i, rule_table[i].line, tags[rule_table[i].lhs]);
+ rule = &ritem[rule_table[i].rhs];
if (*rule > 0)
while (*rule > 0)
fprintf (out, " %s", tags[*rule++]);
else
- fprintf (out, " /* %s */", _("empty"));
+ fprintf (out, " /* %s */", _("empty"));
fputc ('\n', out);
}
sprintf (buffer, " (%d)", i);
for (j = 1; j <= nrules; j++)
- for (rule = &ritem[rrhs[j]]; *rule > 0; rule++)
+ for (rule = &ritem[rule_table[j].rhs]; *rule > 0; rule++)
if (*rule == token_translations[i])
{
END_TEST (65);
for (j = 1; j <= nrules; j++)
{
- if (rlhs[j] == i)
+ if (rule_table[j].lhs == i)
left_count++;
- for (rule = &ritem[rrhs[j]]; *rule > 0; rule++)
+ for (rule = &ritem[rule_table[j].rhs]; *rule > 0; rule++)
if (*rule == i)
{
right_count++;
for (j = 1; j <= nrules; j++)
{
END_TEST (65);
- if (rlhs[j] == i)
+ if (rule_table[j].lhs == i)
sprintf (buffer + strlen (buffer), " %d", j);
}
}
sprintf (buffer + strlen (buffer), _(" on right:"));
for (j = 1; j <= nrules; j++)
{
- for (rule = &ritem[rrhs[j]]; *rule > 0; rule++)
+ for (rule = &ritem[rule_table[j].rhs]; *rule > 0; rule++)
if (*rule == i)
{
END_TEST (65);