210 |
|
if (_setmaxstdio(i) == i) |
211 |
|
break; |
212 |
|
#endif |
213 |
< |
/* initialize calcomp routines early */ |
214 |
< |
initfunc(); |
213 |
> |
initfunc(); /* initialize calcomp routines */ |
214 |
|
calcontext(RCCONTEXT); |
216 |
– |
esupport &= ~E_REDEFW; /* temporary */ |
215 |
|
/* option city */ |
216 |
|
for (i = 1; i < argc; i++) { |
217 |
|
/* expand arguments */ |
262 |
|
if (rval) erract[WARNING].pf = wputs; |
263 |
|
else erract[WARNING].pf = NULL; |
264 |
|
break; |
267 |
– |
case 'e': /* expression */ |
268 |
– |
check(2,"s"); |
269 |
– |
scompile(argv[++i], NULL, 0); |
270 |
– |
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 */ |
280 |
< |
if (!argv[i][2]) { |
281 |
< |
check(2,"s"); |
282 |
< |
loadfunc(argv[++i]); |
283 |
< |
break; |
284 |
< |
} |
273 |
> |
case 'f': /* force or format */ |
274 |
|
if (argv[i][2] == 'o') { |
275 |
|
check_bool(3,force_open); |
276 |
|
break; |
322 |
|
} |
323 |
|
if (nmods <= 0) |
324 |
|
error(USER, "missing required modifier argument"); |
336 |
– |
esupport |= E_REDEFW; |
325 |
|
/* override some option settings */ |
326 |
|
override_options(); |
327 |
|
/* set/check spectral sampling */ |