print_core (int state, struct obstack *node_obstack)
{
int i;
- int k;
- int rule;
- core *statep;
- short *sp;
- short *sp1;
+ core *statep = state_table[state].state;
- statep = state_table[state].state;
- k = statep->nitems;
-
- if (k == 0)
+ if (!statep->nitems)
return;
- for (i = 0; i < k; i++)
+ for (i = 0; i < statep->nitems; i++)
{
- if (i)
- obstack_1grow (node_obstack, '\n');
+ short *sp;
+ short *sp1;
+ int rule;
sp1 = sp = ritem + statep->items[i];
rule = -(*sp);
+ if (i)
+ obstack_1grow (node_obstack, '\n');
obstack_fgrow1 (node_obstack, "%d: ", rule);
obstack_fgrow1 (node_obstack, " %s -> ",
tags[rule_table[rule].lhs]);
obstack_1grow (node_obstack, '.');
- while (*sp > 0)
- obstack_fgrow1 (node_obstack, " %s", tags[*sp++]);
+ for (/* Nothing */; *sp > 0; ++sp)
+ obstack_fgrow1 (node_obstack, " %s", tags[*sp]);
}
}
print_actions (int state, const char *node_name)
{
int i;
- int k;
- int state1;
- int symbol;
- shifts *shiftp;
- errs *errp;
- reductions *redp;
- int rule;
+
+ shifts *shiftp = state_table[state].shifts;
+ reductions *redp = state_table[state].reductions;
+#if 0
+ errs *errp = err_table[state];
+#endif
+
static char buff[10];
edge_t edge;
- shiftp = state_table[state].shift_table;
- redp = state_table[state].reduction_table;
- errp = err_table[state];
-
- if (!shiftp && !redp)
+ if (!shiftp->nshifts && !redp)
{
#if 0
if (final_state == state)
return;
}
- if (shiftp)
- {
- k = shiftp->nshifts;
-
- for (i = 0; i < k; i++)
- {
- if (!shiftp->shifts[i])
- continue;
- state1 = shiftp->shifts[i];
- symbol = state_table[state1].accessing_symbol;
-
- if (ISVAR (symbol))
- break;
-
- {
- new_edge (&edge);
-
- if (state > state1)
- edge.type = back_edge;
- open_edge (&edge, fgraph);
- /* The edge source is the current node. */
- edge.sourcename = node_name;
- sprintf (buff, "%d", state1);
- edge.targetname = buff;
- edge.color = (symbol == 0) ? red : blue;
- edge.label = tags[symbol];
- output_edge (&edge, fgraph);
- close_edge (fgraph);
- }
- }
- }
- else
- {
- i = 0;
- k = 0;
- }
+ for (i = 0; i < shiftp->nshifts; i++)
+ if (!SHIFT_IS_DISABLED (shiftp, i))
+ {
+ int state1 = shiftp->shifts[i];
+ int symbol = state_table[state1].accessing_symbol;
+
+ new_edge (&edge);
+
+ if (state > state1)
+ edge.type = back_edge;
+ open_edge (&edge, fgraph);
+ /* The edge source is the current node. */
+ edge.sourcename = node_name;
+ sprintf (buff, "%d", state1);
+ edge.targetname = buff;
+ edge.color = (symbol == 0) ? red : blue;
+ edge.label = tags[symbol];
+ output_edge (&edge, fgraph);
+ close_edge (fgraph);
+ }
#if 0
if (errp)
}
#endif
- if (i < k)
- {
- for (; i < k; i++)
+ if (i < shiftp->nshifts)
+ for (; i < shiftp->nshifts; i++)
+ if (!SHIFT_IS_DISABLED (shiftp, i))
{
- if (!shiftp->shifts[i])
- continue;
- state1 = shiftp->shifts[i];
- symbol = state_table[state1].accessing_symbol;
+ int state1 = shiftp->shifts[i];
+ int symbol = state_table[state1].accessing_symbol;
new_edge (&edge);
open_edge (&edge, fgraph);
output_edge (&edge, fgraph);
close_edge (fgraph);
}
- }
}