Bericht_Nr.465_T ... - TUHH

BNF-PROGRAMMIERBAREP PARSER
457:
458:
45'?:
~+w1 :
.,:.+,:.._,.~
: --+
-:"'_'L'..
c1-68:
-+
~:
472:
4 _:
474:
475:
4 6:
/i :
478:
"70. 4' 1/"
4:3!ij:
481:
482:
483:
484:
485:
486:
487:
488:
489:
491: ::i
492:
493:
494:
495:
496:
497:
498:
499:
SQj2:
5~!J3:
504:
5!ij6:
5:2J7:
5~ij8:
5~!J9:
51!:Z':
511:
1::"1
"_'.1.'_'.
1
,;l
-,'
-t
t:mateh = TRUE;
l::ietTaf'get ();
,
J'
.. else {
4
.y.
5
4
.. J'.
..:..
..
4
4
10-MAR-1986 16:23:42
f i 1 e: BL. C Page 9
fphntf \OutFile~ "E,t le'/el i.3d mc!tched:\t'j;s"'~ plevel~ pident
if (s,tl'''cmp (pident, IDENTi == :J)
fpt-intf \OutFile, "\tidenti'fier ':J;'::;'"~ idna,me);
else if (stremp (pident. NUMBER) == 0)
'fpr'intf WutFile~ "'\t.vc,lue P/;d"', numbval);
pute ('\n'~ OutFile);
*mateh = (s-)usvm.tsym
if (!mat.eh)
first
{
= NO;
fpr'i ntf WutFi 1 e~
}
}
else {
if (f i rst) {
fori
first
ntf Wut.Fi
= NO;
1e, 11
}
.. parse (s-)usym.nsym, match);
..
}
,-;
..:..
_ *mateh? s-)sue : s-)alt;
} while (5 i= NIL);
1 plevel --:
#ifdef ÜEBUG
fj:.rintf (OutFile~ 11 parse e>:it\n");
1
1
1
1
1
1
1
1
1
1
1
'"
..
#endif
}
1* parse */
11
-- empt.y)
;I
-/~.
=' 11
l.
=- ~
=
goal->~.ym) ;
CjQ"Ü- )sym) :
..
"
maln
int
c:har
(argc~ argv)
::wgc:;
/* ebnf parser t/
{
int
c:har
ehar
struc:t
ehar
*an;lv[J;
1 ;
*ident;
*table~ *tblend;
Header *hdp;
fn [15J ~ fnp [15J;
= all oe (1);
if (arge