--- ray/src/common/readobj.c	1991/07/19 09:25:43	1.6
+++ ray/src/common/readobj.c	1994/01/01 09:18:47	2.4
@@ -1,4 +1,4 @@
-/* Copyright (c) 1986 Regents of the University of California */
+/* Copyright (c) 1994 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ LBL";
@@ -18,29 +18,33 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include  <ctype.h>
 
+extern char  *fgetword(), *strcpy();
+
 OBJREC  *objblock[MAXOBJBLK];		/* our objects */
 OBJECT  nobjects = 0;			/* # of objects */
 
 
-readobj(input)			/* read in an object file or stream */
-char  *input;
+readobj(inpspec)		/* read in an object file or stream */
+char  *inpspec;
 {
 	FILE  *popen();
-	char  *fgets(), *fgetline();
+	char  *fgetline();
+	OBJECT  lastobj;
 	FILE  *infp;
 	char  buf[512];
 	register int  c;
 
-	if (input == NULL) {
+	lastobj = nobjects;
+	if (inpspec == NULL) {
 		infp = stdin;
-		input = "standard input";
-	} else if (input[0] == '!') {
-		if ((infp = popen(input+1, "r")) == NULL) {
-			sprintf(errmsg, "cannot execute \"%s\"", input);
+		inpspec = "standard input";
+	} else if (inpspec[0] == '!') {
+		if ((infp = popen(inpspec+1, "r")) == NULL) {
+			sprintf(errmsg, "cannot execute \"%s\"", inpspec);
 			error(SYSTEM, errmsg);
 		}
-	} else if ((infp = fopen(input, "r")) == NULL) {
-		sprintf(errmsg, "cannot open scene file \"%s\"", input);
+	} else if ((infp = fopen(inpspec, "r")) == NULL) {
+		sprintf(errmsg, "cannot open scene file \"%s\"", inpspec);
 		error(SYSTEM, errmsg);
 	}
 	while ((c = getc(infp)) != EOF) {
@@ -54,13 +58,17 @@ char  *input;
 			readobj(buf);
 		} else {				/* object */
 			ungetc(c, infp);
-			getobject(input, infp);
+			getobject(inpspec, infp);
 		}
 	}
-	if (input[0] == '!')
+	if (inpspec[0] == '!')
 		pclose(infp);
 	else
 		fclose(infp);
+	if (nobjects == lastobj) {
+		sprintf(errmsg, "(%s): empty file", inpspec);
+		error(WARNING, errmsg);
+	}
 }
 
 
@@ -77,7 +85,8 @@ FILE  *fp;
 		error(SYSTEM, "out of object space");
 	objp = objptr(obj);
 					/* get modifier */
-	fscanf(fp, "%s", sbuf);
+	strcpy(sbuf, "EOF");
+	fgetword(sbuf, MAXSTR, fp);
 	if (!strcmp(sbuf, VOIDID))
 		objp->omod = OVOID;
 	else if ((objp->omod = modifier(sbuf)) == OVOID) {
@@ -85,7 +94,8 @@ FILE  *fp;
 		error(USER, errmsg);
 	}
 					/* get type */
-	fscanf(fp, "%s", sbuf);
+	strcpy(sbuf, "EOF");
+	fgetword(sbuf, MAXSTR, fp);
 	if (!strcmp(sbuf, ALIASID))
 		objp->otype = -1;
 	else if ((objp->otype = otype(sbuf)) < 0) {
@@ -93,12 +103,14 @@ FILE  *fp;
 		error(USER, errmsg);
 	}
 					/* get identifier */
-	fscanf(fp, "%s", sbuf);
+	sbuf[0] = '\0';
+	fgetword(sbuf, MAXSTR, fp);
 	objp->oname = savqstr(sbuf);
 					/* get arguments */
 	if (objp->otype == -1) {
 		register OBJECT  alias;
-		fscanf(fp, "%s", sbuf);
+		strcpy(sbuf, "EOF");
+		fgetword(sbuf, MAXSTR, fp);
 		if ((alias = modifier(sbuf)) == OVOID) {
 			sprintf(errmsg,
 			"(%s): bad reference \"%s\" for %s \"%s\"",
@@ -116,7 +128,6 @@ FILE  *fp;
 	}
 					/* initialize */
 	objp->os = NULL;
-	objp->lastrno = -1;
 
 	insertobject(obj);		/* add to global structure */
 }