--- ray/src/hd/rholo.c	1999/01/20 13:28:49	3.47
+++ ray/src/hd/rholo.c	1999/08/05 19:20:10	3.51
@@ -1,4 +1,4 @@
-/* Copyright (c) 1999 Silicon Graphics, Inc. */
+/* Copyright (c) 1999 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ SGI";
@@ -11,18 +11,22 @@ static char SCCSid[] = "$SunId$ SGI";
 #include "rholo.h"
 #include "random.h"
 #include <signal.h>
-#include <sys/types.h>
 #include <sys/stat.h>
 
-#ifndef RTFLUSH
-#define RTFLUSH		0		/* flush one at a time in batch */
-#endif
 #ifndef FRAGWARN
 #define FRAGWARN	20		/* fragmentation for warning (%) */
 #endif
 #ifndef MAXQTIME
 #define MAXQTIME	5		/* target maximum seconds in queue */
 #endif
+					/* manual cache flushing frequency */
+#ifndef RTFLUSH
+#if MAXQTIME
+#define RTFLUSH		(300/MAXQTIME*totqlen)	/* <= 5 minutes */
+#else
+#define RTFLUSH		(50*totqlen)		/* just guess */
+#endif
+#endif
 			/* the following must be consistent with rholo.h */
 int	NVARS = NRHVARS;		/* total number of variables */
 
@@ -38,7 +42,7 @@ char	*outdev = NULL;		/* output device name */
 
 int	readinp = 0;		/* read commands from stdin */
 
-int	force = 0;		/* allow overwrite of holodeck */
+int	force = 0;		/* allow overwrite of holodeck (-1 == read-only) */
 
 time_t	starttime;		/* time we got started */
 time_t	endtime;		/* time we should end by */
@@ -55,7 +59,7 @@ long	nraysdone = 0L;		/* number of rays done */
 long	npacksdone = 0L;	/* number of packets done */
 
 PACKET	*freepacks;		/* available packets */
-int	totqlen;		/* maximum queue length when full */
+int	totqlen;		/* maximum queue length (number of packets) */
 
 char  *sigerr[NSIG];		/* signal error messages */
 
@@ -78,8 +82,11 @@ char	*argv[];
 			nowarn++;
 			break;
 		case 'f':			/* force overwrite */
-			force++;
+			force = 1;
 			break;
+		case 'r':			/* read-only mode */
+			force = -1;
+			break;
 		case 'i':			/* read input from stdin */
 			readinp++;
 			break;
@@ -122,6 +129,9 @@ char	*argv[];
 		HDGRID	hdg[HDMAX];
 							/* set defaults */
 		setdefaults(hdg);
+							/* check read-only */
+		if (force < 0)
+			error(USER, "cannot create read-only holodeck");
 							/* holodeck exists? */
 		if (!force && access(hdkfile, R_OK|W_OK) == 0)
 			error(USER,
@@ -139,7 +149,7 @@ char	*argv[];
 	quit(0);
 userr:
 	fprintf(stderr,
-"Usage: %s [-n nprocs][-o disp][-w][-f] output.hdk [control.hif|+|- [VAR=val ..]]\n",
+"Usage: %s [-n nprocs][-o disp][-w][-r|-f] output.hdk [control.hif|+|- [VAR=val ..]]\n",
 			progname);
 	quit(1);
 }
@@ -212,7 +222,7 @@ initrholo()			/* get our holodeck running */
 		maxdisk = 1024.*1024.*vflt(DISKSPACE);
 						/* set up memory cache */
 	if (outdev == NULL)
-		hdcachesize = 0;	/* manual flushing */
+		hdcachesize = 0;		/* manual flushing */
 	else if (vdef(CACHE))
 		hdcachesize = 1024.*1024.*vflt(CACHE);
 						/* open report file */
@@ -267,7 +277,7 @@ initrholo()			/* get our holodeck running */
 	sigdie(SIGXCPU, "CPU limit exceeded");
 	sigdie(SIGXFSZ, "File size exceeded");
 #endif
-						/* protect holodeck file */
+					/* protect holodeck file */
 	orig_mode = resfmode(hdlist[0]->fd, ncprocs>0 ? 0 : 0444);
 	return;
 memerr:
@@ -318,13 +328,14 @@ rholo()				/* holodeck main loop */
 	if (reporttime > 0 && t >= reporttime)
 		report(t);
 					/* figure out good packet size */
+	pksiz = RPACKSIZ;
 #if MAXQTIME
-	pksiz = nraysdone*MAXQTIME/(totqlen*(t - starttime + 1L));
-	if (pksiz < 1)
-		pksiz = 1;
-	else if (pksiz > RPACKSIZ)
+	if (!chunkycmp) {
+		pksiz = nraysdone*MAXQTIME/(totqlen*(t - starttime + 1L));
+		if (pksiz < 1) pksiz = 1;
+		else if (pksiz > RPACKSIZ) pksiz = RPACKSIZ;
+	}
 #endif
-		pksiz = RPACKSIZ;
 	idle = 0;			/* get packets to process */
 	while (freepacks != NULL) {
 		p = freepacks; freepacks = p->next; p->next = NULL;
@@ -472,11 +483,23 @@ loadholo()			/* start loading a holodeck from fname */
 	int	fd;
 	int	n;
 	int4	nextloc;
-					/* open holodeck file */
-	if ((fp = fopen(hdkfile, ncprocs>0 ? "r+" : "r")) == NULL) {
-		sprintf(errmsg, "cannot %s \"%s\"",
-				ncprocs>0 ? "append" : "read", hdkfile);
-		error(SYSTEM, errmsg);
+	
+	if (ncprocs > 0 & force >= 0)
+		fp = fopen(hdkfile, "r+");
+	else
+		fp = NULL;
+	if (fp == NULL) {
+		if ((fp = fopen(hdkfile, "r")) == NULL) {
+			sprintf(errmsg, "cannot open \"%s\"", hdkfile);
+			error(SYSTEM, errmsg);
+		}
+		if (ncprocs > 0) {
+			sprintf(errmsg,
+			"\"%s\" opened read-only; new rays will be discarded",
+					hdkfile);
+			error(WARNING, errmsg);
+			force = -1;
+		}
 	}
 					/* load variables from header */
 	getheader(fp, headline, NULL);
@@ -516,13 +539,8 @@ PACKET	*pl;
 				p->nr*sizeof(RAYVAL));
 			if (outdev != NULL)	/* display it */
 				disp_packet((PACKHEAD *)p);
-			if (hdcachesize <= 0) {
-#if RTFLUSH
-				if (outdev == NULL)
-					hdfreebeam(hdlist[p->hd], p->bi);
-#endif
+			if (hdcachesize <= 0)
 				n2flush++;
-			}
 			nraysdone += p->nr;
 			npacksdone++;
 			p->nr = 0;
@@ -530,19 +548,11 @@ PACKET	*pl;
 		p->next = freepacks;		/* push onto free list */
 		freepacks = p;
 	}
-#if MAXQTIME
-	if (n2flush > 300/MAXQTIME*totqlen) {
-#else
-	if (n2flush > 50*totqlen) {
-#endif
-#if RTFLUSH
-		hdsync(NULL, outdev!=NULL);	/* sync beams & directories */
-#else
+	if (n2flush >= RTFLUSH) {
 		if (outdev != NULL)
 			hdsync(NULL, 1);
 		else
 			hdflush(NULL);
-#endif
 		n2flush = 0;
 	}
 }
@@ -598,7 +608,7 @@ int	ec;
 	if (hdlist[0] != NULL) {	/* close holodeck */
 		if (nprocs > 0)
 			status = done_rtrace();		/* calls hdsync() */
-		if (ncprocs > 0 && vdef(REPORT)) {
+		if (ncprocs > 0 & force >= 0 && vdef(REPORT)) {
 			long	fsiz, fuse;
 			fsiz = hdfilen(hdlist[0]->fd);
 			fuse = hdfiluse(hdlist[0]->fd, 1);