#include "derives.h"
#include "warshall.h"
-/* ITEMSETSIZE is the size of the array ITEMSET. */
+/* NITEMSET is the size of the array ITEMSET. */
short *itemset;
-int itemsetsize;
+int nitemset;
static unsigned *ruleset;
`-----------------*/
static void
-print_closure (int n)
+print_closure (const char *title, short *array, size_t size)
{
- int i;
- fprintf (stderr, "n = %d\n", n);
- for (i = 0; i < itemsetsize; ++i)
- fprintf (stderr, " %d\n", itemset[i]);
- fprintf (stderr, "\n\n");
+ size_t i;
+ fprintf (stderr, "Closure: %s\n", title);
+ for (i = 0; i < size; ++i)
+ {
+ short *rp;
+ fprintf (stderr, " %2d: .", array[i]);
+ for (rp = &ritem[array[i]]; *rp > 0; ++rp)
+ fprintf (stderr, " %s", tags[*rp]);
+ fprintf (stderr, " (rule %d)\n", -*rp);
+ }
+ fputs ("\n\n", stderr);
}
int ruleno;
if (trace_flag)
- {
- fprintf (stderr, "Entering closure (items = {");
- for (c = 0; c < n; ++c)
- fprintf (stderr, " %d ", core[c]);
- fprintf (stderr, "})\n");
- }
+ print_closure ("input", core, n);
if (n == 0)
{
ruleset[r] |= FDERIVES (ritem[core[c]])[r];
}
- itemsetsize = 0;
+ nitemset = 0;
c = 0;
- for (ruleno = 0; ruleno < rulesetsize * BITS_PER_WORD; ++ruleno)
+ for (ruleno = 0; ruleno < nrules + 1; ++ruleno)
if (BITISSET (ruleset, ruleno))
{
int itemno = rule_table[ruleno].rhs;
while (c < n && core[c] < itemno)
{
- itemset[itemsetsize] = core[c];
- itemsetsize++;
+ itemset[nitemset] = core[c];
+ nitemset++;
c++;
}
- itemset[itemsetsize] = itemno;
- itemsetsize++;
+ itemset[nitemset] = itemno;
+ nitemset++;
}
while (c < n)
{
- itemset[itemsetsize] = core[c];
- itemsetsize++;
+ itemset[nitemset] = core[c];
+ nitemset++;
c++;
}
if (trace_flag)
- print_closure (n);
+ print_closure ("output", itemset, nitemset);
}