src/rt/rvmain.c

#ifndef lint
static const char       RCSid[] = "$Id: rvmain.c,v 2.25 2025/06/07 05:09:46 greg Exp $";
#endif
/*
 *  rvmain.c - main for rview interactive viewer
 */

#include "copyright.h"

#include  <signal.h>
#include  <time.h>

#include  "platform.h"
#include  "ray.h"
#include  "source.h"
#include  "ambient.h"
#include  "rpaint.h"
#include  "random.h"
#include  "view.h"
#include  "pmapray.h"

VIEW  ourview = STDVIEW;                /* viewing parameters */
int  hresolu, vresolu;                  /* image resolution */

int  psample = 8;                       /* pixel sample size */
double  maxdiff = .15;                  /* max. sample difference */

int  greyscale = 0;                     /* map colors to brightness? */
char  *dvcname = dev_default;           /* output device name */

double  exposure = 1.0;                 /* exposure for scene */

int  newparam = 1;                      /* parameter setting changed */
 
struct driver  *dev = NULL;             /* driver functions */

char  rifname[128];                     /* rad input file name */

VIEW  oldview;                          /* previous view parameters */

PNODE  ptrunk;                          /* the base of our image */
RECT  pframe;                           /* current frame boundaries */
int  pdepth;                            /* image depth in current frame */

char  *errfile = NULL;                  /* error output file */

int  nproc = 1;                         /* number of processes */

char  *sigerr[NSIG];                    /* signal error messages */

static void onsig(int  signo);
static void sigdie(int  signo, char  *msg);
static void printdefaults(void);

static void
set_defaults(void)
{
        shadthresh = .1;
        shadcert = .25;
        directrelay = 0;
        vspretest = 128;
        srcsizerat = 0.;
        specthresh = .3;
        specjitter = 1.;
        maxdepth = 6;
        minweight = 1e-3;
        ambacc = 0.3;
        ambres = 32;
        ambdiv = 256;
        ambssamp = 64;
}

int
main(int argc, char *argv[])
{
#define  check(ol,al)           if (argv[i][ol] || \
                                badarg(argc-i-1,argv+i+1,al)) \
                                goto badopt
#define  check_bool(olen,var)           switch (argv[i][olen]) { \
                                case '\0': var = !var; break; \
                                case 'y': case 'Y': case 't': case 'T': \
                                case '+': case '1': var = 1; break; \
                                case 'n': case 'N': case 'f': case 'F': \
                                case '-': case '0': var = 0; break; \
                                default: goto badopt; }
        char  *octnm = NULL;
        char  *err;
        int  rval;
        int  i;
                                        /* global program name */
        progname = argv[0] = fixargv0(argv[0]);
                                        /* set our defaults */
        set_defaults();
                                        /* option city */
        for (i = 1; i < argc; i++) {
                                                /* expand arguments */
                while ((rval = expandarg(&argc, &argv, i)) > 0)
                        ;
                if (rval < 0) {
                        sprintf(errmsg, "cannot expand '%s'", argv[i]);
                        error(SYSTEM, errmsg);
                }
                if (argv[i] == NULL || argv[i][0] != '-')
                        break;                  /* break from options */
                if (!strcmp(argv[i], "-version")) {
                        puts(VersionID);
                        quit(0);
                }
                if (!strcmp(argv[i], "-defaults") ||
                                !strcmp(argv[i], "-help")) {
                        printdefaults();
                        quit(0);
                }
                if (!strcmp(argv[i], "-devices")) {
                        printdevices();
                        quit(0);
                }
                rval = getrenderopt(argc-i, argv+i);
                if (rval >= 0) {
                        i += rval;
                        continue;
                }
                rval = getviewopt(&ourview, argc-i, argv+i);
                if (rval >= 0) {
                        i += rval;
                        continue;
                }
                switch (argv[i][1]) {
                case 'n':                               /* # processes */
                        check(2,"i");
                        nproc = atoi(argv[++i]);
                        if (nproc <= 0)
                                error(USER, "bad number of processes");
                        break;
                case 'v':                               /* view file */
                        if (argv[i][2] != 'f')
                                goto badopt;
                        check(3,"s");
                        rval = viewfile(argv[++i], &ourview, NULL);
                        if (rval < 0) {
                                sprintf(errmsg,
                                "cannot open view file \"%s\"",
                                                argv[i]);
                                error(SYSTEM, errmsg);
                        } else if (rval == 0) {
                                sprintf(errmsg,
                                        "bad view file \"%s\"",
                                                argv[i]);
                                error(USER, errmsg);
                        }
                        break;
                case 'b':                               /* grayscale */
                        check_bool(2,greyscale);
                        break;
                case 'p':                               /* pixel */
                        switch (argv[i][2]) {
                        case 's':                               /* sample */
                                check(3,"i");
                                psample = atoi(argv[++i]);
                                break;
                        case 't':                               /* threshold */
                                check(3,"f");
                                maxdiff = atof(argv[++i]);
                                break;
                        case 'e':                               /* exposure */
                                check(3,"f");
                                exposure = atof(argv[++i]);
                                if (argv[i][0] == '+' || argv[i][0] == '-')
                                        exposure = pow(2.0, exposure);
                                break;
                        default:
                                goto badopt;
                        }
                        break;
                case 'w':                               /* warnings */
                        rval = erract[WARNING].pf != NULL;
                        check_bool(2,rval);
                        if (rval) erract[WARNING].pf = wputs;
                        else erract[WARNING].pf = NULL;
                        break;
                case 'e':                               /* error file */
                        check(2,"s");
                        errfile = argv[++i];
                        break;
                case 'o':                               /* output device */
                        check(2,"s");
                        dvcname = argv[++i];
                        break;
                case 'R':                               /* render input file */
                        check(2,"s");
                        strcpy(rifname, argv[++i]);
                        break;
                default:
                        goto badopt;
                }
        }
                                        /* set/check spectral sampling */
        if (setspectrsamp(CNDX, WLPART) <= 0)
                error(USER, "unsupported spectral sampling");

        err = setview(&ourview);        /* set viewing parameters */
        if (err != NULL)
                error(USER, err);
                                                /* set up signal handling */
        sigdie(SIGINT, "Interrupt");
        sigdie(SIGTERM, "Terminate");
#if !defined(_WIN32) && !defined(_WIN64)
        sigdie(SIGHUP, "Hangup");
        sigdie(SIGPIPE, "Broken pipe");
        sigdie(SIGALRM, "Alarm clock");
#endif
                                        /* open error file */
        if (errfile != NULL) {
                if (freopen(errfile, "a", stderr) == NULL)
                        quit(2);
                fprintf(stderr, "**************\n*** PID %5d: ",
                                getpid());
                printargs(argc, argv, stderr);
                putc('\n', stderr);
                fflush(stderr);
        }
#ifdef  NICE
        nice(NICE);                     /* lower priority */
#endif
                                        /* get octree */
        if (i == argc)
                octnm = NULL;
        else if (i == argc-1)
                octnm = argv[i];
        else
                goto badopt;
        if (octnm == NULL)
                error(USER, "missing octree argument");
                                        /* set up output & start process(es) */
        SET_FILE_BINARY(stdout);
        
        ray_init(octnm);                /* also calls ray_init_pmap() */
        
/* temporary shortcut, until winrview is refactored into a "device" */
#ifndef WIN_RVIEW
        rview();                        /* run interactive viewer */


        devclose();                     /* close output device */
#endif

        /* PMAP: free photon maps */
        ray_done_pmap();
        
#ifdef WIN_RVIEW
        return 1;
#endif
        quit(0);

badopt:
        sprintf(errmsg, "command line error at '%s'", argv[i]);
        error(USER, errmsg);
        return 1; /* pro forma return */

#undef  check
#undef  check_bool
}


void
wputs(                          /* warning output function */
        const char      *s
)
{
        int  lasterrno = errno;
        if (erract[WARNING].pf == NULL)
                return;         /* called by calcomp or someone */
        eputs(s);
        errno = lasterrno;
}


void
eputs(                          /* put string to stderr */
        const char  *s
)
{
        static int  midline = 0;

        if (!*s)
                return;
        if (!midline++) {
                fputs(progname, stderr);
                fputs(": ", stderr);
        }
        fputs(s, stderr);
        if (s[strlen(s)-1] == '\n') {
                fflush(stderr);
                midline = 0;
        }
}


static void
onsig(                          /* fatal signal */
        int  signo
)
{
        static int  gotsig = 0;

        if (gotsig++)                   /* two signals and we're gone! */
                _exit(signo);

#if !defined(_WIN32) && !defined(_WIN64)
        alarm(15);                      /* allow 15 seconds to clean up */
        signal(SIGALRM, SIG_DFL);       /* make certain we do die */
#endif
        eputs("signal - ");
        eputs(sigerr[signo]);
        eputs("\n");
        devclose();
        quit(3);
}


static void
sigdie(                 /* set fatal signal */
        int  signo,
        char  *msg
)
{
        if (signal(signo, onsig) == SIG_IGN)
                signal(signo, SIG_IGN);
        sigerr[signo] = msg;
}


static void
printdefaults(void)                     /* print default values to stdout */
{
        printf("-n %-2d\t\t\t\t# number of rendering processes\n", nproc);
        printf(greyscale ? "-b+\t\t\t\t# greyscale on\n" :
                        "-b-\t\t\t\t# greyscale off\n");
        printf("-vt%c\t\t\t\t# view type %s\n", ourview.type,
                        ourview.type==VT_PER ? "perspective" :
                        ourview.type==VT_PAR ? "parallel" :
                        ourview.type==VT_HEM ? "hemispherical" :
                        ourview.type==VT_ANG ? "angular" :
                        ourview.type==VT_CYL ? "cylindrical" :
                        ourview.type==VT_PLS ? "planisphere" :
                        "unknown");
        printf("-vp %f %f %f\t# view point\n",
                        ourview.vp[0], ourview.vp[1], ourview.vp[2]);
        printf("-vd %f %f %f\t# view direction\n",
                        ourview.vdir[0], ourview.vdir[1], ourview.vdir[2]);
        printf("-vu %f %f %f\t# view up\n",
                        ourview.vup[0], ourview.vup[1], ourview.vup[2]);
        printf("-vh %f\t\t\t# view horizontal size\n", ourview.horiz);
        printf("-vv %f\t\t\t# view vertical size\n", ourview.vert);
        printf("-vo %f\t\t\t# view fore clipping plane\n", ourview.vfore);
        printf("-va %f\t\t\t# view aft clipping plane\n", ourview.vaft);
        printf("-vs %f\t\t\t# view shift\n", ourview.hoff);
        printf("-vl %f\t\t\t# view lift\n", ourview.voff);
        printf("-pe %f\t\t\t# pixel exposure\n", exposure);
        printf("-ps %-9d\t\t\t# pixel sample\n", psample);
        printf("-pt %f\t\t\t# pixel threshold\n", maxdiff);
        printf("-o %s\t\t\t\t# output device\n", dvcname);
        printf(erract[WARNING].pf != NULL ?
                        "-w+\t\t\t\t# warning messages on\n" :
                        "-w-\t\t\t\t# warning messages off\n");
        print_rdefaults();
}
Revision:	2.26
Committed:	Fri Jun 20 16:34:23 2025 UTC (4 months, 2 weeks ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad6R0, HEAD
Changes since 2.25:	+1 -3 lines
Log Message:	fix: Avoid array bounds errors in dimlist[] in deep ray trees
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	greg	2.26	static const char RCSid[] = "$Id: rvmain.c,v 2.25 2025/06/07 05:09:46 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* rvmain.c - main for rview interactive viewer
6			*/
7
8	greg	2.2	#include "copyright.h"
9	greg	2.1
10	schorsch	2.3	#include <signal.h>
11	greg	2.5	#include <time.h>
12	schorsch	2.3
13			#include "platform.h"
14	greg	2.1	#include "ray.h"
15			#include "source.h"
16			#include "ambient.h"
17	schorsch	2.4	#include "rpaint.h"
18	greg	2.1	#include "random.h"
19			#include "view.h"
20	greg	2.12	#include "pmapray.h"
21	greg	2.1
22	greg	2.9	VIEW ourview = STDVIEW; /* viewing parameters */
23			int hresolu, vresolu; /* image resolution */
24	greg	2.1
25	greg	2.9	int psample = 8; /* pixel sample size */
26			double maxdiff = .15; /* max. sample difference */
27
28			int greyscale = 0; /* map colors to brightness? */
29			char dvcname = dev_default; / output device name */
30
31			double exposure = 1.0; /* exposure for scene */
32	greg	2.1
33	greg	2.9	int newparam = 1; /* parameter setting changed */
34
35			struct driver dev = NULL; / driver functions */
36	greg	2.1
37	greg	2.9	char rifname[128]; /* rad input file name */
38	greg	2.1
39	greg	2.9	VIEW oldview; /* previous view parameters */
40	greg	2.1
41	greg	2.9	PNODE ptrunk; /* the base of our image */
42			RECT pframe; /* current frame boundaries */
43			int pdepth; /* image depth in current frame */
44	greg	2.1
45	greg	2.9	char errfile = NULL; / error output file */
46	greg	2.1
47	greg	2.9	int nproc = 1; /* number of processes */
48	greg	2.1
49	greg	2.9	char sigerr[NSIG]; / signal error messages */
50	greg	2.1
51	schorsch	2.4	static void onsig(int signo);
52			static void sigdie(int signo, char *msg);
53			static void printdefaults(void);
54	greg	2.1
55	greg	2.23	static void
56			set_defaults(void)
57			{
58			shadthresh = .1;
59			shadcert = .25;
60			directrelay = 0;
61			vspretest = 128;
62			srcsizerat = 0.;
63			specthresh = .3;
64			specjitter = 1.;
65			maxdepth = 6;
66			minweight = 1e-3;
67			ambacc = 0.3;
68			ambres = 32;
69			ambdiv = 256;
70			ambssamp = 64;
71			}
72
73	greg	2.17	int
74	greg	2.9	main(int argc, char *argv[])
75	greg	2.1	{
76			#define check(ol,al) if (argv[i][ol] \|\| \
77			badarg(argc-i-1,argv+i+1,al)) \
78			goto badopt
79	schorsch	2.15	#define check_bool(olen,var) switch (argv[i][olen]) { \
80	greg	2.1	case '\0': var = !var; break; \
81			case 'y': case 'Y': case 't': case 'T': \
82			case '+': case '1': var = 1; break; \
83			case 'n': case 'N': case 'f': case 'F': \
84			case '-': case '0': var = 0; break; \
85			default: goto badopt; }
86	greg	2.9	char *octnm = NULL;
87	greg	2.1	char *err;
88			int rval;
89			int i;
90			/* global program name */
91			progname = argv[0] = fixargv0(argv[0]);
92	greg	2.9	/* set our defaults */
93	greg	2.23	set_defaults();
94	greg	2.1	/* option city */
95			for (i = 1; i < argc; i++) {
96			/* expand arguments */
97			while ((rval = expandarg(&argc, &argv, i)) > 0)
98			;
99			if (rval < 0) {
100			sprintf(errmsg, "cannot expand '%s'", argv[i]);
101			error(SYSTEM, errmsg);
102			}
103			if (argv[i] == NULL \|\| argv[i][0] != '-')
104			break; /* break from options */
105			if (!strcmp(argv[i], "-version")) {
106			puts(VersionID);
107			quit(0);
108			}
109			if (!strcmp(argv[i], "-defaults") \|\|
110			!strcmp(argv[i], "-help")) {
111			printdefaults();
112			quit(0);
113			}
114			if (!strcmp(argv[i], "-devices")) {
115			printdevices();
116			quit(0);
117			}
118			rval = getrenderopt(argc-i, argv+i);
119			if (rval >= 0) {
120			i += rval;
121			continue;
122			}
123			rval = getviewopt(&ourview, argc-i, argv+i);
124			if (rval >= 0) {
125			i += rval;
126			continue;
127			}
128			switch (argv[i][1]) {
129	greg	2.9	case 'n': /* # processes */
130			check(2,"i");
131			nproc = atoi(argv[++i]);
132			if (nproc <= 0)
133			error(USER, "bad number of processes");
134			break;
135	greg	2.1	case 'v': /* view file */
136			if (argv[i][2] != 'f')
137			goto badopt;
138			check(3,"s");
139			rval = viewfile(argv[++i], &ourview, NULL);
140			if (rval < 0) {
141			sprintf(errmsg,
142			"cannot open view file \"%s\"",
143			argv[i]);
144			error(SYSTEM, errmsg);
145			} else if (rval == 0) {
146			sprintf(errmsg,
147			"bad view file \"%s\"",
148			argv[i]);
149			error(USER, errmsg);
150			}
151			break;
152			case 'b': /* grayscale */
153	schorsch	2.15	check_bool(2,greyscale);
154	greg	2.1	break;
155			case 'p': /* pixel */
156			switch (argv[i][2]) {
157			case 's': /* sample */
158			check(3,"i");
159			psample = atoi(argv[++i]);
160			break;
161			case 't': /* threshold */
162			check(3,"f");
163			maxdiff = atof(argv[++i]);
164			break;
165			case 'e': /* exposure */
166			check(3,"f");
167			exposure = atof(argv[++i]);
168			if (argv[i][0] == '+' \|\| argv[i][0] == '-')
169			exposure = pow(2.0, exposure);
170			break;
171			default:
172			goto badopt;
173			}
174			break;
175			case 'w': /* warnings */
176			rval = erract[WARNING].pf != NULL;
177	schorsch	2.15	check_bool(2,rval);
178	greg	2.1	if (rval) erract[WARNING].pf = wputs;
179			else erract[WARNING].pf = NULL;
180			break;
181			case 'e': /* error file */
182			check(2,"s");
183			errfile = argv[++i];
184			break;
185			case 'o': /* output device */
186			check(2,"s");
187			dvcname = argv[++i];
188			break;
189			case 'R': /* render input file */
190			check(2,"s");
191			strcpy(rifname, argv[++i]);
192			break;
193			default:
194			goto badopt;
195			}
196			}
197	greg	2.20	/* set/check spectral sampling */
198	greg	2.21	if (setspectrsamp(CNDX, WLPART) <= 0)
199	greg	2.20	error(USER, "unsupported spectral sampling");
200
201	greg	2.1	err = setview(&ourview); /* set viewing parameters */
202			if (err != NULL)
203			error(USER, err);
204	greg	2.9	/* set up signal handling */
205	greg	2.1	sigdie(SIGINT, "Interrupt");
206	greg	2.11	sigdie(SIGTERM, "Terminate");
207	schorsch	2.14	#if !defined(_WIN32) && !defined(_WIN64)
208	greg	2.1	sigdie(SIGHUP, "Hangup");
209			sigdie(SIGPIPE, "Broken pipe");
210			sigdie(SIGALRM, "Alarm clock");
211	greg	2.11	#endif
212	greg	2.1	/* open error file */
213			if (errfile != NULL) {
214			if (freopen(errfile, "a", stderr) == NULL)
215			quit(2);
216			fprintf(stderr, "************\n* PID %5d: ",
217			getpid());
218			printargs(argc, argv, stderr);
219			putc('\n', stderr);
220			fflush(stderr);
221			}
222			#ifdef NICE
223			nice(NICE); /* lower priority */
224			#endif
225			/* get octree */
226			if (i == argc)
227	greg	2.9	octnm = NULL;
228	greg	2.1	else if (i == argc-1)
229	greg	2.9	octnm = argv[i];
230	greg	2.1	else
231			goto badopt;
232	greg	2.9	if (octnm == NULL)
233	greg	2.1	error(USER, "missing octree argument");
234	greg	2.9	/* set up output & start process(es) */
235	schorsch	2.3	SET_FILE_BINARY(stdout);
236	greg	2.9
237	greg	2.13	ray_init(octnm); /* also calls ray_init_pmap() */
238	greg	2.12
239	schorsch	2.16	/* temporary shortcut, until winrview is refactored into a "device" */
240			#ifndef WIN_RVIEW
241	greg	2.1	rview(); /* run interactive viewer */
242
243	schorsch	2.16
244	greg	2.9	devclose(); /* close output device */
245	schorsch	2.16	#endif
246	greg	2.1
247	greg	2.12	/* PMAP: free photon maps */
248			ray_done_pmap();
249
250	schorsch	2.16	#ifdef WIN_RVIEW
251			return 1;
252			#endif
253	greg	2.1	quit(0);
254
255			badopt:
256			sprintf(errmsg, "command line error at '%s'", argv[i]);
257			error(USER, errmsg);
258	schorsch	2.4	return 1; /* pro forma return */
259	greg	2.1
260			#undef check
261	schorsch	2.15	#undef check_bool
262	greg	2.1	}
263
264
265			void
266	schorsch	2.4	wputs( /* warning output function */
267	greg	2.19	const char *s
268	schorsch	2.4	)
269	greg	2.1	{
270			int lasterrno = errno;
271	greg	2.22	if (erract[WARNING].pf == NULL)
272			return; /* called by calcomp or someone */
273	greg	2.1	eputs(s);
274			errno = lasterrno;
275			}
276
277
278			void
279	schorsch	2.4	eputs( /* put string to stderr */
280	greg	2.19	const char *s
281	schorsch	2.4	)
282	greg	2.1	{
283			static int midline = 0;
284
285			if (!*s)
286			return;
287			if (!midline++) {
288			fputs(progname, stderr);
289			fputs(": ", stderr);
290			}
291			fputs(s, stderr);
292			if (s[strlen(s)-1] == '\n') {
293			fflush(stderr);
294			midline = 0;
295			}
296			}
297
298
299	schorsch	2.4	static void
300			onsig( /* fatal signal */
301			int signo
302			)
303	greg	2.1	{
304			static int gotsig = 0;
305
306			if (gotsig++) /* two signals and we're gone! */
307			_exit(signo);
308
309	schorsch	2.14	#if !defined(_WIN32) && !defined(_WIN64)
310	greg	2.1	alarm(15); /* allow 15 seconds to clean up */
311			signal(SIGALRM, SIG_DFL); /* make certain we do die */
312	greg	2.11	#endif
313	greg	2.1	eputs("signal - ");
314			eputs(sigerr[signo]);
315			eputs("\n");
316	greg	2.9	devclose();
317	greg	2.1	quit(3);
318			}
319
320
321	schorsch	2.4	static void
322			sigdie( /* set fatal signal */
323			int signo,
324			char *msg
325			)
326	greg	2.1	{
327			if (signal(signo, onsig) == SIG_IGN)
328			signal(signo, SIG_IGN);
329			sigerr[signo] = msg;
330			}
331
332
333	schorsch	2.4	static void
334			printdefaults(void) /* print default values to stdout */
335	greg	2.1	{
336	greg	2.9	printf("-n %-2d\t\t\t\t# number of rendering processes\n", nproc);
337	greg	2.1	printf(greyscale ? "-b+\t\t\t\t# greyscale on\n" :
338			"-b-\t\t\t\t# greyscale off\n");
339			printf("-vt%c\t\t\t\t# view type %s\n", ourview.type,
340			ourview.type==VT_PER ? "perspective" :
341			ourview.type==VT_PAR ? "parallel" :
342			ourview.type==VT_HEM ? "hemispherical" :
343			ourview.type==VT_ANG ? "angular" :
344			ourview.type==VT_CYL ? "cylindrical" :
345	greg	2.8	ourview.type==VT_PLS ? "planisphere" :
346	greg	2.1	"unknown");
347			printf("-vp %f %f %f\t# view point\n",
348			ourview.vp[0], ourview.vp[1], ourview.vp[2]);
349			printf("-vd %f %f %f\t# view direction\n",
350			ourview.vdir[0], ourview.vdir[1], ourview.vdir[2]);
351			printf("-vu %f %f %f\t# view up\n",
352			ourview.vup[0], ourview.vup[1], ourview.vup[2]);
353			printf("-vh %f\t\t\t# view horizontal size\n", ourview.horiz);
354			printf("-vv %f\t\t\t# view vertical size\n", ourview.vert);
355			printf("-vo %f\t\t\t# view fore clipping plane\n", ourview.vfore);
356			printf("-va %f\t\t\t# view aft clipping plane\n", ourview.vaft);
357			printf("-vs %f\t\t\t# view shift\n", ourview.hoff);
358			printf("-vl %f\t\t\t# view lift\n", ourview.voff);
359			printf("-pe %f\t\t\t# pixel exposure\n", exposure);
360			printf("-ps %-9d\t\t\t# pixel sample\n", psample);
361			printf("-pt %f\t\t\t# pixel threshold\n", maxdiff);
362			printf("-o %s\t\t\t\t# output device\n", dvcname);
363			printf(erract[WARNING].pf != NULL ?
364			"-w+\t\t\t\t# warning messages on\n" :
365			"-w-\t\t\t\t# warning messages off\n");
366			print_rdefaults();
367			}