| 210 |
|
|
| 211 |
|
|
| 212 |
|
char * |
| 213 |
< |
setcontext( /* set a new context path */ |
| 213 |
> |
calcontext( /* set a new context path */ |
| 214 |
|
char *ctx |
| 215 |
|
) |
| 216 |
|
{ |
| 251 |
|
int n; |
| 252 |
|
|
| 253 |
|
strcpy(oldcontext, context); /* save old context */ |
| 254 |
< |
setcontext(ctx); /* set new context */ |
| 254 |
> |
calcontext(ctx); /* set new context */ |
| 255 |
|
n = strlen(context); /* tack on old */ |
| 256 |
|
if (n+strlen(oldcontext) > MAXCNTX) { |
| 257 |
|
strncpy(context+n, oldcontext, MAXCNTX-n); |
| 443 |
|
/* if fn is NULL then relink all */ |
| 444 |
|
for (i = 0; i < NHASH; i++) |
| 445 |
|
for (vp = hashtbl[i]; vp != NULL; vp = vp->next) |
| 446 |
< |
if (vp->lib != NULL || fn == NULL || !strcmp(fn, vp->name)) |
| 446 |
> |
if ((vp->lib != NULL) | (fn == NULL) || !strcmp(fn, vp->name)) |
| 447 |
|
vp->lib = liblookup(vp->name); |
| 448 |
|
} |
| 449 |
|
|
| 621 |
|
{ |
| 622 |
|
EPNODE *ep1, *ep2; |
| 623 |
|
|
| 624 |
< |
if (!isalpha(nextc) && nextc != CNTXMARK) |
| 624 |
> |
if (!isalpha(nextc) & (nextc != CNTXMARK)) |
| 625 |
|
syntax("illegal variable name"); |
| 626 |
|
|
| 627 |
|
ep1 = newnode(); |
| 650 |
|
curfunc = ep1; |
| 651 |
|
} |
| 652 |
|
|
| 653 |
< |
if (nextc != '=' && nextc != ':') |
| 653 |
> |
if ((nextc != '=') & (nextc != ':')) |
| 654 |
|
syntax("'=' or ':' expected"); |
| 655 |
|
|
| 656 |
|
ep2 = newnode(); |
