* Copyright (c) 1989 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)closure.c 5.2 (Berkeley) %G%";
static unsigned *first_derives
;
rowsize
= WORDSIZE(nvars
);
EFF
= NEW2(nvars
* rowsize
, unsigned);
for (i
= start_symbol
; i
< nsyms
; i
++)
for (rule
= *sp
; rule
> 0; rule
= *++sp
)
symbol
= ritem
[rrhs
[rule
]];
reflexive_transitive_closure(EFF
, nvars
);
rulesetsize
= WORDSIZE(nrules
);
varsetsize
= WORDSIZE(nvars
);
first_derives
= NEW2(nvars
* rulesetsize
, unsigned) - ntokens
* rulesetsize
;
rrow
= first_derives
+ ntokens
* rulesetsize
;
for (i
= start_symbol
; i
< nsyms
; i
++)
vrow
= EFF
+ ((i
- ntokens
) * varsetsize
);
for (j
= start_symbol
; j
< nsyms
; j
++)
while ((rule
= *rp
++) >= 0)
register int rulesetsize
;
rulesetsize
= WORDSIZE(nrules
);
rsend
= ruleset
+ rulesetsize
;
for (rsp
= ruleset
; rsp
< rsend
; rsp
++)
for (csp
= nucleus
; csp
< csend
; ++csp
)
dsp
= first_derives
+ symbol
* rulesetsize
;
for (rsp
= ruleset
; rsp
< rsend
; ++rsp
)
while (csp
< csend
&& *csp
< itemno
)
while (csp
< csend
&& *csp
== itemno
)
FREE(first_derives
+ ntokens
* WORDSIZE(nrules
));
printf("\n\nn = %d\n\n", n
);
for (isp
= itemset
; isp
< itemsetend
; isp
++)
printf("\n\nEpsilon Free Firsts\n");
for (i
= start_symbol
; i
< nsyms
; i
++)
printf("\n%s", symbol_name
[i
]);
rowp
= EFF
+ ((i
- start_symbol
) * WORDSIZE(nvars
));
for (j
= 0; j
< nvars
; j
++)
printf(" %s", symbol_name
[start_symbol
+ j
]);
printf("\n\n\nFirst Derives\n");
for (i
= start_symbol
; i
< nsyms
; i
++)
printf("\n%s derives\n", symbol_name
[i
]);
rp
= first_derives
+ i
* WORDSIZE(nrules
);
for (j
= 0; j
<= nrules
; j
++)