244 |
if (trace_flag) |
if (trace_flag) |
245 |
print_closure ("input", core, n); |
print_closure ("input", core, n); |
246 |
|
|
247 |
if (n == 0) |
bitset_zero (ruleset); |
|
{ |
|
|
bitset_copy (ruleset, FDERIVES (start_symbol)); |
|
|
} |
|
|
else |
|
|
{ |
|
|
bitset_zero (ruleset); |
|
248 |
|
|
249 |
for (c = 0; c < n; ++c) |
for (c = 0; c < n; ++c) |
250 |
if (ISVAR (ritem[core[c]])) |
if (ISVAR (ritem[core[c]])) |
251 |
bitset_or (ruleset, ruleset, FDERIVES (ritem[core[c]])); |
bitset_or (ruleset, ruleset, FDERIVES (ritem[core[c]])); |
|
} |
|
252 |
|
|
253 |
nitemset = 0; |
nitemset = 0; |
254 |
c = 0; |
c = 0; |