56 |
|
#if defined(_WIN32) || defined(_WIN64) |
57 |
|
#define RCONTRIB_FEATURES "Accumulation\nSummation\nRecovery\n" \ |
58 |
|
"ValueContribution\nImmediateIrradiance\n" \ |
59 |
< |
"ProgressReporting\nDistanceLimiting\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" |
65 |
> |
"ProgressReporting\nDistanceLimiting\n" \ |
66 |
> |
"Outputs=V,W\n" |
67 |
|
#endif |
68 |
|
|
69 |
|
static void |
197 |
|
gargc = argc; |
198 |
|
/* feature check only? */ |
199 |
|
strcat(RFeatureList, RCONTRIB_FEATURES); |
200 |
< |
if (!strcmp(argv[1], "-features")) |
200 |
> |
if (argc > 1 && !strcmp(argv[1], "-features")) |
201 |
|
return feature_status(argc-2, argv+2); |
202 |
< |
#if defined(_WIN32) || defined(_WIN64) |
203 |
< |
_setmaxstdio(2048); /* increase file limit to maximum */ |
202 |
> |
#if defined(_WIN32) || defined(_WIN64) /* increase file limit to maximum */ |
203 |
> |
for (i = 8192; i > _IOB_ENTRIES; i >>= 1) |
204 |
> |
if (_setmaxstdio(i) == 0) |
205 |
> |
break; |
206 |
|
#endif |
207 |
|
/* initialize calcomp routines early */ |
208 |
|
initfunc(); |
404 |
|
|
405 |
|
void |
406 |
|
wputs( /* warning output function */ |
407 |
< |
char *s |
407 |
> |
const char *s |
408 |
|
) |
409 |
|
{ |
410 |
|
int lasterrno = errno; |
415 |
|
|
416 |
|
void |
417 |
|
eputs( /* put string to stderr */ |
418 |
< |
char *s |
418 |
> |
const char *s |
419 |
|
) |
420 |
|
{ |
421 |
|
static int midline = 0; |