22 |
|
#define MAXRCARG 10000 |
23 |
|
#endif |
24 |
|
|
25 |
< |
int verbose = 0; /* verbose mode (< 0 no warnings) */ |
25 |
> |
#define NOWARN 1 |
26 |
> |
#define VERBO 2 |
27 |
|
|
28 |
+ |
int verbose = 0; /* verbose/warning mode */ |
29 |
+ |
|
30 |
|
char *rcarg[MAXRCARG+1] = {"rcontrib", "-fo+"}; |
31 |
|
int nrcargs = 2; |
32 |
|
|
45 |
|
char *ciefn = "cieskyscan.cal"; |
46 |
|
|
47 |
|
/* string indicating parameters */ |
48 |
< |
const char PARAMSTART[] = "@rfluxmtx"; |
48 |
> |
#define PARAMSTART "@rfluxmtx" |
49 |
|
|
50 |
|
/* surface type IDs */ |
51 |
|
#define ST_NONE 0 |
142 |
|
|
143 |
|
if (ac-- <= 0) |
144 |
|
return(NULL); |
145 |
< |
if (verbose < 0) { /* turn off warnings */ |
145 |
> |
if (verbose & NOWARN) { /* warnings off? */ |
146 |
|
strcpy(cp, "-w "); |
147 |
|
cp += 3; |
148 |
|
} |
193 |
|
fputs(": command line too long in popen_arglist()\n", stderr); |
194 |
|
return(NULL); |
195 |
|
} |
196 |
< |
if (verbose > 0) |
196 |
> |
if (verbose & VERBO) |
197 |
|
fprintf(stderr, "%s: opening pipe %s: %s\n", |
198 |
|
progname, (*mode=='w') ? "to" : "from", cmd); |
199 |
|
return(popen(cmd, mode)); |
212 |
|
fputs(": command line too long in my_exec()\n", stderr); |
213 |
|
return(1); |
214 |
|
} |
215 |
< |
if (verbose > 0) |
215 |
> |
if (verbose & VERBO) |
216 |
|
fprintf(stderr, "%s: running: %s\n", progname, cmd); |
217 |
|
return(system(cmd)); |
218 |
|
} |
231 |
|
fprintf(stderr, "%s: only one i/o pipe at a time!\n", progname); |
232 |
|
return(NULL); |
233 |
|
} |
234 |
< |
if (verbose > 0) { |
234 |
> |
if (verbose & VERBO) { |
235 |
|
char cmd[4096]; |
236 |
|
if (!convert_commandline(cmd, sizeof(cmd), av)) |
237 |
|
strcpy(cmd, "COMMAND TOO LONG TO SHOW"); |
276 |
|
fprintf(stderr, "%s: cannot locate %s\n", progname, av[0]); |
277 |
|
return(1); |
278 |
|
} |
279 |
< |
if (verbose > 0) { |
279 |
> |
if (verbose & VERBO) { |
280 |
|
char cmd[4096]; |
281 |
|
if (!convert_commandline(cmd, sizeof(cmd), av)) |
282 |
|
strcpy(cmd, "COMMAND TOO LONG TO SHOW"); |
912 |
|
return(-1); |
913 |
|
} |
914 |
|
/* misplaced output file spec. */ |
915 |
< |
if ((curparams.outfn != NULL) & (verbose >= 0)) |
915 |
> |
if ((curparams.outfn != NULL) & !(verbose & NOWARN)) |
916 |
|
fprintf(stderr, "%s: warning - ignoring output file in sender ('%s')\n", |
917 |
|
progname, curparams.outfn); |
918 |
|
/* check/set basis hemisphere */ |
1068 |
|
snew->area *= PI*snew->area; |
1069 |
|
break; |
1070 |
|
} |
1071 |
< |
if ((snew->area <= FTINY*FTINY) & (verbose >= 0)) { |
1071 |
> |
if ((snew->area <= FTINY*FTINY) & !(verbose & NOWARN)) { |
1072 |
|
fprintf(stderr, "%s: warning - zero area for surface '%s'\n", |
1073 |
|
progname, oname); |
1074 |
|
free(snew); |
1258 |
|
na = 1; |
1259 |
|
switch (argv[a][1]) { /* !! Keep consistent !! */ |
1260 |
|
case 'v': /* verbose mode */ |
1261 |
< |
verbose = 1; |
1261 |
> |
verbose ^= VERBO; |
1262 |
|
na = 0; |
1263 |
|
continue; |
1264 |
|
case 'f': /* special case for -fo, -ff, etc. */ |
1310 |
|
na = 0; |
1311 |
|
continue; |
1312 |
|
case 'w': /* options without arguments */ |
1313 |
< |
if (!argv[a][2] || strchr("+1tTyY", argv[a][2]) == NULL) |
1314 |
< |
verbose = -1; |
1313 |
> |
if (!argv[a][2]) |
1314 |
> |
verbose ^= NOWARN; |
1315 |
> |
else if (strchr("+1tTyY", argv[a][2]) != NULL) |
1316 |
> |
verbose &= ~NOWARN; |
1317 |
> |
else |
1318 |
> |
verbose |= NOWARN; |
1319 |
|
break; |
1320 |
|
case 'V': |
1321 |
|
case 'u': |
1435 |
|
#ifdef getc_unlocked |
1436 |
|
flockfile(rcfp); |
1437 |
|
#endif |
1438 |
< |
if (verbose > 0) { |
1438 |
> |
if (verbose & VERBO) { |
1439 |
|
fprintf(stderr, "%s: sampling %d directions", progname, nsbins); |
1440 |
|
if (curparams.nsurfs > 1) |
1441 |
|
fprintf(stderr, " (%d elements)\n", curparams.nsurfs); |