Bericht_Nr.465_T ... - TUHH

BNF-PROGRAMMIERBARER PARSER file: BL.C 10-MAR-1986 1~:22:19 P.sge
1
59: 0
6Q,: ;.'i
!:.1 : .-
i ""').
'_'~II
G.,):
64:
65:
.'::;./ :
68:
69:
7i21:
71 :
7"".
l.i-.
i .~':
74:
I '...Ja
! /.
78:
79:
8i21:
81 :
8'")'
O~.
W__I"
84:
85:
86:
87:
88:
89:
99:
91 :
92: )2J
94:
95:
'=t6:
97:
98:
9q.
1!2@:
1!211:
1!2!2:
1!2!3:
1!214:
1!2!5:
U2J6:
11217:
1!218:
1!2!9:
lU2!:
111:
11'") .
lL:
114:
1
1
1
1
1
1
1
1
.-,
..::.
.,
.....
.,
.....
1
1
1
1
1
1
1
1
1
1
1
} if GetSvm t!
1* find - lookup nonterminal svmbol and ~~sert new one *1
find (s~ h)
char
struct
{
struct
*s.;
Header Uh;
#ifdef DEBUG
fpl"intf (OutFile~
#endif
hl = list;
Header *h 1;
sentinel->svm = 5;
while (strcmp (hl->sym~ SI)
hl = hl->'succ;
if (h1 == sentinel> { .. JiSert */
#ifdef DEBUG
fprintf (OutFile~ "hnsert*\nil);
#endif
'sentinel = alloc (sizeof (struct He=,cet-»;
hl->succ = sentinei;
hl->entry = NIL;
*h = h 1 ;
return
)
(NO>;
"find symbol
#ifdef DEBUG
else
i:)utc(>\n>~ OutFile);
#endif
*h = h 1 ;
return (YE~3);
}
/* find t!
/* error - report errors */
void 2rror (msg)
char *msg;
{
~ ".'._:C I!
=:.
'"
~ -
/* alreadv cefined and found ~:/
fprintf (OutFile~ "\nincorrect synti:i.;.;: \s\n"~msg);
fprintf (ERROUT~ "\nincorrect synt2.::-:: i:s\n"~msl::J);
noerr = FALSE;
} /* error */
/* link - insert parse control tree links */
void link (p~ q) /* (p~ q: NodePtr);
*/
struct Node *p~ *q;
{ /* insert q in piaces indicated by linked chain p */
struct Node *t;
wh i I e
(p
~= NI U
2 J'.
}
/* link */
{
t = p; P = t->suc; t->suc = q;
65