--- ray/src/rt/rv2.c	1991/07/18 16:37:59	1.24
+++ ray/src/rt/rv2.c	1991/10/11 12:12:40	1.29
@@ -1,4 +1,4 @@
-/* Copyright (c) 1987 Regents of the University of California */
+/* Copyright (c) 1991 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ LBL";
@@ -22,7 +22,9 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #define  CTRL(c)	('c'-'@')
 
+extern char  VersionID[];
 extern char  *progname;
+extern char  *octname;
 
 
 getframe(s)				/* get a new frame */
@@ -306,6 +308,7 @@ char  *str, *dsc;
 int  typ;
 register union {int i; double d; COLOR C;}  *ptr;
 {
+	extern char  *index();
 	int  i0;
 	double  d0, d1, d2;
 	char  buf[48];
@@ -339,8 +342,11 @@ register union {int i; double d; COLOR C;}  *ptr;
 			sprintf(buf, " (%c): ", ptr->i ? 'y' : 'n');
 			(*dev->comout)(buf);
 			(*dev->comin)(buf, NULL);
+			if (buf[0] == '\0' ||
+					index("yY+1tTnN-0fF", buf[0]) == NULL)
+				break;
 		}
-		ptr->i = tolower(buf[0]) == 'y';
+		ptr->i = index("yY+1tT", buf[0]) != NULL;
 		break;
 	case 'C':			/* color */
 		if (sscanf(str, "%lf %lf %lf", &d0, &d1, &d2) != 3) {
@@ -468,6 +474,7 @@ register char  *s;
 		break;
 	default:;
 badparam:
+		*sskip(s) = '\0';
 		sprintf(errmsg, "%s: unknown variable", s);
 		error(COMMAND, errmsg);
 		break;
@@ -559,7 +566,11 @@ char  *s;
 						/* write header */
 	fputs(progname, fp);
 	fprintview(&ourview, fp);
-	putc('\n', fp);
+	if (octname != NULL)
+		fprintf(fp, " %s\n", octname);
+	else
+		putc('\n', fp);
+	fprintf(fp, "SOFTWARE= %s\n", VersionID);
 	if (exposure != 1.0)
 		fputexpos(exposure, fp);
 	if (dev->pixaspect != 1.0)
@@ -569,14 +580,18 @@ char  *s;
 	fputresolu(YMAJOR|YDECR, hresolu, vresolu, fp);
 
 	scanline = (COLR *)malloc(hresolu*sizeof(COLR));
-	if (scanline == NULL)
-		error(SYSTEM, "out of memory in writepict");
+	if (scanline == NULL) {
+		error(COMMAND, "not enough memory!");
+		fclose(fp);
+		unlink(fname);
+		return;
+	}
 	for (y = vresolu-1; y >= 0; y--) {
 		getpictcolrs(y, scanline, &ptrunk, hresolu, vresolu);
 		if (fwritecolrs(scanline, hresolu, fp) < 0)
 			break;
 	}
+	free((char *)scanline);
 	if (fclose(fp) < 0)
 		error(COMMAND, "write error");
-	free((char *)scanline);
 }