Bericht_Nr.465_T ... - TUHH

BNF-PROGRAMMIERBARER PARSER file: BL.C 10-MAR-1986 16:22:25 Page 5
--:-'.-.='::: .
...: :...
'.
230:
"'-'_ 1:
:232:
.
~'-"-
234:
235:
237:
,~o.
~'-' /.
24!~):
241 :
242:
243:
244:
245:
246:
247:
248:
249:
25i~j:
251 :
252:
253:
254:
255:
256:
257:
258:
259:
26~!j:
261:
262:
2':J3:
264:
265:
266:
267:
268:
269:
27Qi:
271 :
272:
273:
274:
275:
276:
277:
278:
279:
28~!j:
281 :
282:
283:
284:
285:
.-,
-"-
.-,
-"-
-
'-
.,
-"-
.-;-.
"'-
. ,
2
2
'-
-
2
2
2
2
-
...:'
2
2
2
1
1
fpr-intf (OutFile, "ter-minaJ. .=/mIJol\t\t'\s'\n", ident);
cer-fI'il ist (i dent) ;
2 = alloe (sizeof (struct Node»:
a-)ter-minal = TRUE:
a-)usym.tsym = ident;
a-)alt = NIL;
a-.:'3UC = NIL:
#p = *q = *1" = *s = a;
'. J
el se i f .;s.ym
GetSvm ():
e;.~pr-essl on
if Isvm ==
GetSym
}
-- ' (') {
I;P, q, i, 5);
, )') {
();
else
}
en-or- ("uncl osedparenth(2si'::;") ;
else if 15ym == '[') {
Get~3ym ();
e;.:pr-ession (p, q, 1", 5);
a = alloe (sizeof (struct
a-)ter-minal = TRUE;
a-}usvm.tsym = empty;
a-)alt = NIL;
Node»);
i:\- .>suc
(*q)-)alt
in L;
= (ts)-)suc = a;
*1:::= *s = .:=\~
i f 15ym == ' ] ') {
GetSvm
}
();
else
en-or- ("uncl osed brackets");
else if 15ym == 'C) {
!:;jetSym ();
e>:pre5s.ion (p, q, r, s);
link (k, tp);
a = alloe (sizeof (struct Node));
a-)terminal = TRUE;
a-)usym.tsym = empty;
a-).::\lt = NIL;
a-)suc = NIL;
(tq)-)alt = a;
*q = *1" = *5 = a;
i f I sym == '}') {
GetSym ();
}
else
}
error (llunelosed brace'::;");
else
}
err-or ("une:-:pected
/t fa.ctor tI
symbol");
1* term - analyse bnf term syntax structure
68