| 85 |
|
{ |
| 86 |
|
int xflag = xlist[comndx(p->com)]; |
| 87 |
|
/* 1==expand, 0==pass, -1==discard */ |
| 88 |
< |
if (xflag != -1) |
| 88 |
> |
if (xflag != -1) { |
| 89 |
|
if (xflag == 1) |
| 90 |
|
switch (p->com) { |
| 91 |
|
|
| 126 |
|
segprim(p); |
| 127 |
|
else |
| 128 |
|
writep(p, stdout); |
| 129 |
< |
|
| 129 |
> |
} |
| 130 |
|
} |
| 131 |
|
|
| 132 |
|
|
| 247 |
|
if (fname == NULL) |
| 248 |
|
error(USER, "missing include file name in include"); |
| 249 |
|
|
| 250 |
< |
if (code == 2 || (fp = fopen(fname, "r")) == NULL) |
| 250 |
> |
if (code == 2 || (fp = fopen(fname, "r")) == NULL) { |
| 251 |
|
if (code != 0) |
| 252 |
|
fp = mfopen(fname, "r"); |
| 253 |
|
else { |
| 254 |
|
sprintf(errmsg, "cannot open user include file \"%s\"", fname); |
| 255 |
|
error(USER, errmsg); |
| 256 |
|
} |
| 257 |
+ |
} |
| 258 |
|
|
| 259 |
|
exfile(fp); |
| 260 |
|
fclose(fp); |