| 43 | 
  | 
int     imm_irrad = 0;                  /* compute immediate irradiance? */ | 
| 44 | 
  | 
int     lim_dist = 0;                   /* limit distance? */ | 
| 45 | 
  | 
 | 
| 46 | 
< | 
const char      *modname[MAXMODLIST];   /* ordered modifier name list */ | 
| 47 | 
< | 
int             nmods = 0;              /* number of modifiers */ | 
| 46 | 
> | 
int     report_intvl = 0;               /* reporting interval (seconds) */ | 
| 47 | 
  | 
 | 
| 48 | 
+ | 
char    **modname = NULL;               /* ordered modifier name list */ | 
| 49 | 
+ | 
int     nmods = 0;                      /* number of modifiers */ | 
| 50 | 
+ | 
int     modasiz = 0;                    /* allocated modifier array size */ | 
| 51 | 
+ | 
 | 
| 52 | 
  | 
void    (*addobjnotify[8])() = {ambnotify, NULL}; | 
| 53 | 
  | 
 | 
| 54 | 
< | 
char    RCCONTEXT[] = "RC";             /* our special evaluation context */ | 
| 54 | 
> | 
char    RCCONTEXT[] = "RC.";            /* our special evaluation context */ | 
| 55 | 
  | 
 | 
| 56 | 
+ | 
#if defined(_WIN32) || defined(_WIN64) | 
| 57 | 
+ | 
#define RCONTRIB_FEATURES       "Accumulation\nSummation\nRecovery\n" \ | 
| 58 | 
+ | 
                                "ValueContribution\nImmediateIrradiance\n" \ | 
| 59 | 
+ | 
                                "ProgressReporting\nDistanceLimiting\n" \ | 
| 60 | 
+ | 
                                "Outputs=V,W\n" | 
| 61 | 
+ | 
#else | 
| 62 | 
+ | 
#define RCONTRIB_FEATURES       "Multiprocessing\n" \ | 
| 63 | 
+ | 
                                "Accumulation\nSummation\nRecovery\n" \ | 
| 64 | 
+ | 
                                "ValueContribution\nImmediateIrradiance\n" \ | 
| 65 | 
+ | 
                                "ProgressReporting\nDistanceLimiting\n" \ | 
| 66 | 
+ | 
                                "Outputs=V,W\n" | 
| 67 | 
+ | 
#endif | 
| 68 | 
  | 
 | 
| 69 | 
  | 
static void | 
| 70 | 
  | 
printdefaults(void)                     /* print default values to stdout */ | 
| 178 | 
  | 
#define  check(ol,al)           if (argv[i][ol] || \ | 
| 179 | 
  | 
                                badarg(argc-i-1,argv+i+1,al)) \ | 
| 180 | 
  | 
                                goto badopt | 
| 181 | 
< | 
#define  bool(olen,var)         switch (argv[i][olen]) { \ | 
| 181 | 
> | 
#define  check_bool(olen,var)           switch (argv[i][olen]) { \ | 
| 182 | 
  | 
                                case '\0': var = !var; break; \ | 
| 183 | 
  | 
                                case 'y': case 'Y': case 't': case 'T': \ | 
| 184 | 
  | 
                                case '+': case '1': var = 1; break; \ | 
| 195 | 
  | 
        progname = argv[0] = fixargv0(argv[0]); | 
| 196 | 
  | 
        gargv = argv; | 
| 197 | 
  | 
        gargc = argc; | 
| 198 | 
+ | 
                                        /* feature check only? */ | 
| 199 | 
+ | 
        strcat(RFeatureList, RCONTRIB_FEATURES); | 
| 200 | 
+ | 
        if (argc > 1 && !strcmp(argv[1], "-features")) | 
| 201 | 
+ | 
                return feature_status(argc-2, argv+2); | 
| 202 | 
+ | 
#if defined(_WIN32) || defined(_WIN64) | 
| 203 | 
+ | 
 | 
| 204 | 
+ | 
#if defined(_WIN32) || defined(_WIN64)  /* increase file limit to maximum */ | 
| 205 | 
+ | 
        for (i = 8192; i > _IOB_ENTRIES; i >>= 1) | 
| 206 | 
+ | 
                if (_setmaxstdio(i) == 0) | 
| 207 | 
+ | 
                        break; | 
| 208 | 
+ | 
#endif | 
| 209 | 
  | 
                                        /* initialize calcomp routines early */ | 
| 210 | 
  | 
        initfunc(); | 
| 211 | 
< | 
        setcontext(RCCONTEXT); | 
| 211 | 
> | 
        calcontext(RCCONTEXT); | 
| 212 | 
  | 
                                        /* option city */ | 
| 213 | 
  | 
        for (i = 1; i < argc; i++) { | 
| 214 | 
  | 
                                                /* expand arguments */ | 
| 243 | 
  | 
                                error(USER, "bad number of processes"); | 
| 244 | 
  | 
                        break; | 
| 245 | 
  | 
                case 'V':                       /* output contributions */ | 
| 246 | 
< | 
                        bool(2,contrib); | 
| 246 | 
> | 
                        check_bool(2,contrib); | 
| 247 | 
  | 
                        break; | 
| 248 | 
  | 
                case 'x':                       /* x resolution */ | 
| 249 | 
  | 
                        check(2,"i"); | 
| 255 | 
  | 
                        break; | 
| 256 | 
  | 
                case 'w':                       /* warnings */ | 
| 257 | 
  | 
                        rval = (erract[WARNING].pf != NULL); | 
| 258 | 
< | 
                        bool(2,rval); | 
| 258 | 
> | 
                        check_bool(2,rval); | 
| 259 | 
  | 
                        if (rval) erract[WARNING].pf = wputs; | 
| 260 | 
  | 
                        else erract[WARNING].pf = NULL; | 
| 261 | 
  | 
                        break; | 
| 266 | 
  | 
                case 'l':                       /* limit distance */ | 
| 267 | 
  | 
                        if (argv[i][2] != 'd') | 
| 268 | 
  | 
                                goto badopt; | 
| 269 | 
< | 
                        bool(3,lim_dist); | 
| 269 | 
> | 
                        check_bool(3,lim_dist); | 
| 270 | 
  | 
                        break; | 
| 271 | 
  | 
                case 'I':                       /* immed. irradiance */ | 
| 272 | 
< | 
                        bool(2,imm_irrad); | 
| 272 | 
> | 
                        check_bool(2,imm_irrad); | 
| 273 | 
  | 
                        break; | 
| 274 | 
  | 
                case 'f':                       /* file or force or format */ | 
| 275 | 
  | 
                        if (!argv[i][2]) { | 
| 278 | 
  | 
                                break; | 
| 279 | 
  | 
                        } | 
| 280 | 
  | 
                        if (argv[i][2] == 'o') { | 
| 281 | 
< | 
                                bool(3,force_open); | 
| 281 | 
> | 
                                check_bool(3,force_open); | 
| 282 | 
  | 
                                break; | 
| 283 | 
  | 
                        } | 
| 284 | 
  | 
                        setformat(argv[i]+2); | 
| 292 | 
  | 
                        accumulate = atoi(argv[++i]); | 
| 293 | 
  | 
                        break; | 
| 294 | 
  | 
                case 'r':                       /* recover output */ | 
| 295 | 
< | 
                        bool(2,recover); | 
| 295 | 
> | 
                        check_bool(2,recover); | 
| 296 | 
  | 
                        break; | 
| 297 | 
  | 
                case 'h':                       /* header output */ | 
| 298 | 
< | 
                        bool(2,header); | 
| 298 | 
> | 
                        check_bool(2,header); | 
| 299 | 
  | 
                        break; | 
| 300 | 
  | 
                case 'p':                       /* parameter setting(s) */ | 
| 301 | 
  | 
                        check(2,"s"); | 
| 318 | 
  | 
                        check(2,"s"); | 
| 319 | 
  | 
                        addmodfile(argv[++i], curout, prms, binval, bincnt); | 
| 320 | 
  | 
                        break; | 
| 321 | 
+ | 
                case 't':                       /* reporting interval */ | 
| 322 | 
+ | 
                        check(2,"i"); | 
| 323 | 
+ | 
                        report_intvl = atoi(argv[++i]); | 
| 324 | 
+ | 
                        break; | 
| 325 | 
  | 
                default: | 
| 326 | 
  | 
                        goto badopt; | 
| 327 | 
  | 
                } | 
| 393 | 
  | 
 | 
| 394 | 
  | 
badopt: | 
| 395 | 
  | 
        fprintf(stderr, | 
| 396 | 
< | 
"Usage: %s [-n nprocs][-V][-r][-e expr][-f source][-o ospec][-p p1=V1,p2=V2][-b binv][-bn N] {-m mod | -M file} [rtrace options] octree\n", | 
| 396 | 
> | 
"Usage: %s [-n nprocs][-V][-c count][-r][-e expr][-f source][-o ospec][-p p1=V1,p2=V2][-b binv][-bn N] {-m mod | -M file} [rtrace options] octree\n", | 
| 397 | 
  | 
                        progname); | 
| 398 | 
  | 
        sprintf(errmsg, "command line error at '%s'", argv[i]); | 
| 399 | 
  | 
        error(USER, errmsg); | 
| 400 | 
  | 
        return(1);      /* pro forma return */ | 
| 401 | 
  | 
 | 
| 402 | 
  | 
#undef  check | 
| 403 | 
< | 
#undef  bool | 
| 403 | 
> | 
#undef  check_bool | 
| 404 | 
  | 
} | 
| 405 | 
  | 
 | 
| 406 | 
  | 
 | 
| 407 | 
  | 
void | 
| 408 | 
  | 
wputs(                          /* warning output function */ | 
| 409 | 
< | 
        char    *s | 
| 409 | 
> | 
        const char      *s | 
| 410 | 
  | 
) | 
| 411 | 
  | 
{ | 
| 412 | 
  | 
        int  lasterrno = errno; | 
| 417 | 
  | 
 | 
| 418 | 
  | 
void | 
| 419 | 
  | 
eputs(                          /* put string to stderr */ | 
| 420 | 
< | 
        char  *s | 
| 420 | 
> | 
        const char  *s | 
| 421 | 
  | 
) | 
| 422 | 
  | 
{ | 
| 423 | 
  | 
        static int  midline = 0; |