1174 |
|
{ |
1175 |
|
char fmtopt[6] = "-faa"; /* default output is ASCII */ |
1176 |
|
char *xrs=NULL, *yrs=NULL, *ldopt=NULL; |
1177 |
< |
int wantIrradiance = 0; |
1177 |
> |
char *iropt = NULL; |
1178 |
|
char *sendfn; |
1179 |
|
char sampcntbuf[32], nsbinbuf[32]; |
1180 |
|
FILE *rcfp; |
1223 |
|
na = 0; /* we re-add this later */ |
1224 |
|
continue; |
1225 |
|
case 'I': /* only for pass-through mode */ |
1226 |
< |
wantIrradiance = 1; |
1226 |
> |
case 'i': |
1227 |
> |
iropt = argv[a]; |
1228 |
|
na = 0; |
1229 |
|
continue; |
1230 |
|
case 'V': /* options without arguments */ |
1231 |
|
case 'w': |
1232 |
|
case 'u': |
1232 |
– |
case 'i': |
1233 |
|
case 'h': |
1234 |
|
case 'r': |
1235 |
|
break; |
1277 |
|
if (sendfn[0] == '-') { /* user wants pass-through mode? */ |
1278 |
|
if (sendfn[1]) goto userr; |
1279 |
|
sendfn = NULL; |
1280 |
< |
if (wantIrradiance) { |
1280 |
> |
if (iropt) { |
1281 |
|
CHECKARGC(1); |
1282 |
< |
rcarg[nrcargs++] = "-I"; |
1282 |
> |
rcarg[nrcargs++] = iropt; |
1283 |
|
} |
1284 |
|
if (xrs) { |
1285 |
|
CHECKARGC(2); |
1297 |
|
} |
1298 |
|
if (sampcnt <= 0) sampcnt = 1; |
1299 |
|
} else { /* else in sampling mode */ |
1300 |
< |
if (wantIrradiance) { |
1300 |
> |
if (iropt) { |
1301 |
|
fputs(progname, stderr); |
1302 |
< |
fputs(": -I supported for pass-through only\n", stderr); |
1302 |
> |
fputs(": -i, -I supported for pass-through only\n", stderr); |
1303 |
|
return(1); |
1304 |
|
} |
1305 |
|
fmtopt[2] = (sizeof(RREAL)==sizeof(double)) ? 'd' : 'f'; |