| 210 |
|
if (_setmaxstdio(i) == i) |
| 211 |
|
break; |
| 212 |
|
#endif |
| 213 |
< |
/* initialize calcomp routines early */ |
| 214 |
< |
initfunc(); |
| 213 |
> |
initfunc(); /* initialize calcomp routines */ |
| 214 |
|
calcontext(RCCONTEXT); |
| 215 |
|
/* option city */ |
| 216 |
|
for (i = 1; i < argc; i++) { |
| 262 |
|
if (rval) erract[WARNING].pf = wputs; |
| 263 |
|
else erract[WARNING].pf = NULL; |
| 264 |
|
break; |
| 266 |
– |
case 'e': /* expression */ |
| 267 |
– |
check(2,"s"); |
| 268 |
– |
scompile(argv[++i], NULL, 0); |
| 269 |
– |
break; |
| 265 |
|
case 'l': /* limit distance */ |
| 266 |
|
if (argv[i][2] != 'd') |
| 267 |
|
goto badopt; |
| 270 |
|
case 'I': /* immed. irradiance */ |
| 271 |
|
check_bool(2,imm_irrad); |
| 272 |
|
break; |
| 273 |
< |
case 'f': /* file or force or format */ |
| 279 |
< |
if (!argv[i][2]) { |
| 280 |
< |
check(2,"s"); |
| 281 |
< |
loadfunc(argv[++i]); |
| 282 |
< |
break; |
| 283 |
< |
} |
| 273 |
> |
case 'f': /* force or format */ |
| 274 |
|
if (argv[i][2] == 'o') { |
| 275 |
|
check_bool(3,force_open); |
| 276 |
|
break; |