--- ray/src/common/readobj.c	1990/01/18 23:58:57	1.3
+++ ray/src/common/readobj.c	1993/01/25 12:41:24	2.2
@@ -18,8 +18,10 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include  <ctype.h>
 
+extern char  *fgetword(), *strcpy();
+
 OBJREC  *objblock[MAXOBJBLK];		/* our objects */
-int  nobjects = 0;			/* # of objects */
+OBJECT  nobjects = 0;			/* # of objects */
 
 
 readobj(input)			/* read in an object file or stream */
@@ -70,13 +72,15 @@ FILE  *fp;
 {
 	OBJECT  obj;
 	char  sbuf[MAXSTR];
+	int  rval;
 	register OBJREC  *objp;
 
 	if ((obj = newobject()) == OVOID)
 		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) {
@@ -84,7 +88,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) {
@@ -92,12 +97,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\"",
@@ -106,72 +113,20 @@ FILE  *fp;
 		}
 		objp->otype = objptr(alias)->otype;
 		copystruct(&objp->oargs, &objptr(alias)->oargs);
-	} else if (readfargs(&objp->oargs, fp) < 0) {
+	} else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
 		sprintf(errmsg, "(%s): bad arguments", name);
 		objerror(objp, USER, errmsg);
+	} else if (rval < 0) {
+		sprintf(errmsg, "(%s): error reading scene", name);
+		error(SYSTEM, errmsg);
 	}
 					/* initialize */
 	objp->os = NULL;
-	objp->lastrno = -1;
 
 	insertobject(obj);		/* add to global structure */
 }
 
 
-readfargs(fa, fp)		/* read function arguments from stream */
-register FUNARGS  *fa;
-FILE  *fp;
-{
-	char  sbuf[MAXSTR];
-	int  n;
-	register int  i;
-
-	if (fscanf(fp, "%d", &n) != 1 || n < 0)
-		return(-1);
-	if (fa->nsargs = n) {
-		fa->sarg = (char **)bmalloc(n*sizeof(char *));
-		if (fa->sarg == NULL)
-			goto memerr;
-		for (i = 0; i < fa->nsargs; i++) {
-			if (fscanf(fp, "%s", sbuf) != 1)
-				return(-1);
-			fa->sarg[i] = savestr(sbuf);
-		}
-	} else
-		fa->sarg = NULL;
-	if (fscanf(fp, "%d", &n) != 1 || n < 0)
-		return(-1);
-#ifdef  IARGS
-	if (fa->niargs = n) {
-		fa->iarg = (long *)bmalloc(n*sizeof(int));
-		if (fa->iarg == NULL)
-			goto memerr;
-		for (i = 0; i < n; i++)
-			if (fscanf(fp, "%ld", &fa->iarg[i]) != 1)
-				return(-1);
-	} else
-		fa->iarg = NULL;
-#else
-	if (n != 0)
-		return(-1);
-#endif
-	if (fscanf(fp, "%d", &n) != 1 || n < 0)
-		return(-1);
-	if (fa->nfargs = n) {
-		fa->farg = (double *)bmalloc(n*sizeof(double));
-		if (fa->farg == NULL)
-			goto memerr;
-		for (i = 0; i < n; i++)
-			if (fscanf(fp, "%lf", &fa->farg[i]) != 1)
-				return(-1);
-	} else
-		fa->farg = NULL;
-	return(0);
-memerr:
-	error(SYSTEM, "out of memory in readfargs");
-}
-
-
 int
 newobject()				/* get a new object */
 {
@@ -182,7 +137,7 @@ newobject()				/* get a new object */
 		i = nobjects >> 6;
 		if (i >= MAXOBJBLK)
 			return(OVOID);
-		objblock[i] = (OBJREC *)malloc(0100*sizeof(OBJREC));
+		objblock[i] = (OBJREC *)bmalloc(0100*sizeof(OBJREC));
 		if (objblock[i] == NULL)
 			return(OVOID);
 	}