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