Bericht_Nr.465_T ... - TUHH

BNF-PROGRAMMIERBARER PARSER f i 1e : BL. C 10-MAR-1986 16:22:23 Page 4
,"71""').
.!..: ...:.....
i .
.1. _.
174:
1;::;:
1 j _:
1 i i :
178:
HJ1:
182:
10.'::.:
184:
185:
.i. 87:
188:
1E:9:
19!!!:
1'::;::'1 :
I ,:::,". !..:.....
193:
194:
196:
197:
198:
19Q.
2~!H!j:
2i!Jl :
2f.2J3:
2!:!J4:
2U!!:
211:
212:
21-:
214:
215:
216:
217:
218:
219:
221:
222:
""~"':'!'.
...: :
'.
224:
225:
226:
227:
228:
-.,.
-
-
-
4
4
4
4
'-
-
- -
'-
-
'-
-
1
1
1
1
Qj
(J
1
1
1
.-,
..:..
2
.,
..:..
,..,
..:..
#endif
return;
,
~.
i f (j :> !!!) {
i f (tss.i ze >= r-1AXT) {
#ifdef DEBUG
error (" tDO man',' termi nal s'/mbol s" ) ;
#endif
e;.-;i t ():
}
for
(j
- ts.s.ize++: J .:. 1: j--) n-; copy C1.11 pointers onE
ts [j] = ts [j-l]:
ts [i]
strcpy
= alloc
(ts Ci],
(strlen
sym):
(::.vm)+1);
#ifdef DEBUG
fpr'intf \OutFile, "neltl S.1ze 1S \d'\n", t:::size);
#endif
}
return;
}
if (tssize 1'1AXT) {
errar ("too mC1.nytermi nal symbol s") ;
e~< i t
~ '.
();
ts [t55izeJ = al 1oc (strlen(sym)+l);
strcpv (ts [tssize++], sym);
#ifdef DEBUG
fPt-'intf \OutFile, "neftl size is i:d\n", ts.size);
#endif
} /* termlist *1
1* factar - analyse bnf 'factor' svntax structure
void f2.ctor (p, q, 1", s)
struct Node **p, **q, **1", **5;
{
auto
aL\to
auto
strLlct
struct
char
Node ta;
Header *h;
*ident;
if ('a' '. tolower (5ym) 8(~( tolm-Ier' (S1m) 'z')
ident = alloc (IDENT_SIZE+l);
makeident (ident);
f pr i nt f \OutFi I e, "nontet-mi nal symbol \ t '!.s' \n", i dent) ;
find (ident, ~,h);
a = alloc (sizeof (struct Node));
a-:>terminal = FALSE;
a-)usym.nsym = (int *) h;
a-:>al t = NIL;
a->suc = NIL:
*p = *q = *r = *s = a;
,
~.
1
2
.,
..:..
else if (sym --
GetSym ();
ident = alloc
' '" ) {
(IDENT_SIZE
/* terminal
+ 1);
symbol *1
maketerm (ident);
67
{
/* nonterminal symbol