| 78 |
|
eputs(": cannot open\n"); |
| 79 |
|
quit(1); |
| 80 |
|
} |
| 81 |
< |
initfile(fp, fname, 0); |
| 81 |
> |
#ifdef getc_unlocked /* avoid stupid semaphores */ |
| 82 |
> |
flockfile(fp); |
| 83 |
> |
#endif |
| 84 |
> |
initfile(fp, fname, 0); |
| 85 |
|
while (nextc != EOF) |
| 86 |
|
getstatement(); |
| 87 |
|
if (fname != NULL) |
| 88 |
|
fclose(fp); |
| 89 |
+ |
#ifdef getc_unlocked |
| 90 |
+ |
else |
| 91 |
+ |
funlockfile(fp); |
| 92 |
+ |
#endif |
| 93 |
|
} |
| 94 |
|
|
| 95 |
|
|
| 217 |
|
|
| 218 |
|
|
| 219 |
|
char * |
| 220 |
< |
setcontext( /* set a new context path */ |
| 220 |
> |
calcontext( /* set a new context path */ |
| 221 |
|
char *ctx |
| 222 |
|
) |
| 223 |
|
{ |
| 258 |
|
int n; |
| 259 |
|
|
| 260 |
|
strcpy(oldcontext, context); /* save old context */ |
| 261 |
< |
setcontext(ctx); /* set new context */ |
| 261 |
> |
calcontext(ctx); /* set new context */ |
| 262 |
|
n = strlen(context); /* tack on old */ |
| 263 |
|
if (n+strlen(oldcontext) > MAXCNTX) { |
| 264 |
|
strncpy(context+n, oldcontext, MAXCNTX-n); |
| 450 |
|
/* if fn is NULL then relink all */ |
| 451 |
|
for (i = 0; i < NHASH; i++) |
| 452 |
|
for (vp = hashtbl[i]; vp != NULL; vp = vp->next) |
| 453 |
< |
if (vp->lib != NULL || fn == NULL || !strcmp(fn, vp->name)) |
| 453 |
> |
if ((vp->lib != NULL) | (fn == NULL) || !strcmp(fn, vp->name)) |
| 454 |
|
vp->lib = liblookup(vp->name); |
| 455 |
|
} |
| 456 |
|
|
| 628 |
|
{ |
| 629 |
|
EPNODE *ep1, *ep2; |
| 630 |
|
|
| 631 |
< |
if (!isalpha(nextc) && nextc != CNTXMARK) |
| 631 |
> |
if (!isalpha(nextc) & (nextc != CNTXMARK)) |
| 632 |
|
syntax("illegal variable name"); |
| 633 |
|
|
| 634 |
|
ep1 = newnode(); |
| 657 |
|
curfunc = ep1; |
| 658 |
|
} |
| 659 |
|
|
| 660 |
< |
if (nextc != '=' && nextc != ':') |
| 660 |
> |
if ((nextc != '=') & (nextc != ':')) |
| 661 |
|
syntax("'=' or ':' expected"); |
| 662 |
|
|
| 663 |
|
ep2 = newnode(); |
