18 |
|
#include "object.h" |
19 |
|
#include "otypes.h" |
20 |
|
|
21 |
– |
#ifdef getc_unlocked /* avoid horrendous overhead of flockfile */ |
22 |
– |
#undef getc |
23 |
– |
#define getc getc_unlocked |
24 |
– |
#endif |
25 |
– |
|
21 |
|
int xac; /* global xform argument count */ |
22 |
|
char **xav; /* global xform argument pointer */ |
23 |
|
int xfa; /* start of xf arguments */ |
209 |
|
} |
210 |
|
n = 0; /* count number of lines in file */ |
211 |
|
while (fgetline(argbuf,sizeof(argbuf),argfp) != NULL) |
212 |
< |
n += argbuf[0] && argbuf[0] != '#'; |
212 |
> |
n += (argbuf[0] != '\0') & (argbuf[0] != '#'); |
213 |
|
if (!n) { |
214 |
|
fprintf(stderr, "%s: empty argument file \"%s\"\n", |
215 |
|
av[0], av[fi+1]); |
216 |
|
exit(1); |
217 |
|
} |
223 |
– |
nrept *= n; |
218 |
|
rewind(argfp); |
219 |
|
} |
220 |
+ |
nrept *= n; |
221 |
|
err = 0; k = 0; /* read each arg list and call main */ |
222 |
|
while (fgetline(argbuf,sizeof(argbuf),argfp) != NULL) { |
223 |
< |
if (!argbuf[0] || argbuf[0] == '#') |
223 |
> |
if (!argbuf[0] | (argbuf[0] == '#')) { |
224 |
> |
printf("%s\n", argbuf); |
225 |
|
continue; |
226 |
+ |
} |
227 |
|
avp = newav+2; |
228 |
|
avp[0] = av[0]; |
229 |
|
for (i = 1; i < fi; i++) |
394 |
|
exit(1); |
395 |
|
} |
396 |
|
xform(buf, pin); |
397 |
< |
pclose(pin); |
397 |
> |
if (pclose(pin) != 0) { |
398 |
> |
fprintf(stderr, "%s: (%s): bad status from \"%s\"\n", |
399 |
> |
progname, fname, buf); |
400 |
> |
exit(1); |
401 |
> |
} |
402 |
|
} else { |
403 |
|
printf("\n%s", buf); |
404 |
|
if (xac > 1) { |
558 |
|
|
559 |
|
if (readfargs(&fa, fin) != 1) |
560 |
|
return(-1); |
561 |
< |
if (fa.nsargs != 0 || fa.nfargs != 4) |
561 |
> |
if ((fa.nsargs != 0) | (fa.nfargs != 4)) |
562 |
|
return(-1); |
563 |
|
printf("0\n0\n4"); |
564 |
|
printf(" %18.12g %18.12g %18.12g", |
579 |
|
|
580 |
|
if (readfargs(&fa, fin) != 1) |
581 |
|
return(-1); |
582 |
< |
if (fa.nsargs != 0 || fa.nfargs != 7) |
582 |
> |
if ((fa.nsargs != 0) | ( fa.nfargs != 7)) |
583 |
|
return(-1); |
584 |
|
printf("0\n0\n7"); |
585 |
|
printf(" %18.12g %18.12g %18.12g %18.12g\n", |