| 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'; |