23 |
|
|
24 |
|
int report_intvl = 0; /* reporting interval (seconds) */ |
25 |
|
|
26 |
– |
extern char * progname; // global argv[0] |
27 |
– |
|
26 |
|
RcontribSimulManager myRCmanager; // global rcontrib simulation manager |
27 |
|
|
28 |
|
#define RCONTRIB_FEATURES "Multiprocessing\n" \ |
240 |
|
if (rval) erract[WARNING].pf = wputs; |
241 |
|
else erract[WARNING].pf = NULL; |
242 |
|
break; |
245 |
– |
case 'e': /* .cal expression */ |
246 |
– |
check(2,"s"); |
247 |
– |
scompile(argv[++i], NULL, 0); |
248 |
– |
break; |
243 |
|
case 'l': /* limit distance */ |
244 |
|
if (argv[i][2] != 'd') |
245 |
|
goto badopt; |
252 |
|
check_bool(2,rval); |
253 |
|
myRCmanager.SetFlag(RTimmIrrad, rval); |
254 |
|
break; |
255 |
< |
case 'f': /* .cal file or force or format */ |
262 |
< |
if (!argv[i][2]) { |
263 |
< |
check(2,"s"); |
264 |
< |
loadfunc(argv[++i]); |
265 |
< |
break; |
266 |
< |
} |
255 |
> |
case 'f': /* force or format */ |
256 |
|
if (argv[i][2] == 'o') { |
257 |
|
check_bool(3,force_open); |
258 |
|
break; |