--- ray/src/common/readobj.c	1996/07/18 17:58:01	2.5
+++ ray/src/common/readobj.c	2019/05/04 00:36:58	2.23
@@ -1,38 +1,38 @@
-/* Copyright (c) 1994 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char RCSid[] = "$Id: readobj.c,v 2.23 2019/05/04 00:36:58 greg Exp $";
 #endif
-
 /*
  *  readobj.c - routines for reading in object descriptions.
  *
- *     7/28/85
+ *  External symbols declared in object.h
  */
 
-#include  "standard.h"
+#include "copyright.h"
 
-#include  "object.h"
+#include  <ctype.h>
+#include  <string.h>
+#include  <stdio.h>
 
+#include  "platform.h"
+#include  "paths.h"
+#include  "standard.h"
+#include  "object.h"
 #include  "otypes.h"
 
-#include  <ctype.h>
 
-extern char  *fgetword(), *strcpy();
-
 OBJREC  *objblock[MAXOBJBLK];		/* our objects */
 OBJECT  nobjects = 0;			/* # of objects */
 
 
-readobj(inpspec)		/* read in an object file or stream */
-char  *inpspec;
+void
+readobj(				/* read in an object file or stream */
+	char  *inpspec
+)
 {
-	FILE  *popen();
-	char  *fgetline();
 	OBJECT  lastobj;
 	FILE  *infp;
-	char  buf[1024];
-	register int  c;
+	char  buf[2048];
+	int  c;
 
 	lastobj = nobjects;
 	if (inpspec == NULL) {
@@ -63,7 +63,7 @@ char  *inpspec;
 	}
 	if (inpspec[0] == '!')
 		pclose(infp);
-	else
+	else if (infp != stdin)
 		fclose(infp);
 	if (nobjects == lastobj) {
 		sprintf(errmsg, "(%s): empty file", inpspec);
@@ -72,14 +72,17 @@ char  *inpspec;
 }
 
 
-getobject(name, fp)			/* read the next object */
-char  *name;
-FILE  *fp;
+void
+getobject(				/* read the next object */
+	char  *name,
+	FILE  *fp
+)
 {
+#define	OALIAS	-2
 	OBJECT  obj;
 	char  sbuf[MAXSTR];
 	int  rval;
-	register OBJREC  *objp;
+	OBJREC  *objp;
 
 	if ((obj = newobject()) == OVOID)
 		error(SYSTEM, "out of object space");
@@ -87,8 +90,15 @@ FILE  *fp;
 					/* get modifier */
 	strcpy(sbuf, "EOF");
 	fgetword(sbuf, MAXSTR, fp);
+	if (strchr(sbuf, '\t')) {
+		sprintf(errmsg, "(%s): illegal tab in modifier \"%s\"",
+					name, sbuf);
+		error(USER, errmsg);
+	}
 	if (!strcmp(sbuf, VOIDID))
 		objp->omod = OVOID;
+	else if (!strcmp(sbuf, ALIASMOD))
+		objp->omod = OALIAS;
 	else if ((objp->omod = modifier(sbuf)) == OVOID) {
 		sprintf(errmsg, "(%s): undefined modifier \"%s\"", name, sbuf);
 		error(USER, errmsg);
@@ -96,29 +106,39 @@ FILE  *fp;
 					/* get type */
 	strcpy(sbuf, "EOF");
 	fgetword(sbuf, MAXSTR, fp);
-	if (!strcmp(sbuf, ALIASID))
-		objp->otype = -1;
-	else if ((objp->otype = otype(sbuf)) < 0) {
+	if ((objp->otype = otype(sbuf)) < 0) {
 		sprintf(errmsg, "(%s): unknown type \"%s\"", name, sbuf);
 		error(USER, errmsg);
 	}
 					/* get identifier */
 	sbuf[0] = '\0';
 	fgetword(sbuf, MAXSTR, fp);
+	if (strchr(sbuf, '\t')) {
+		sprintf(errmsg, "(%s): illegal tab in identifier \"%s\"",
+					name, sbuf);
+		error(USER, errmsg);
+	}
 	objp->oname = savqstr(sbuf);
 					/* get arguments */
-	if (objp->otype == -1) {
-		register OBJECT  alias;
+	if (objp->otype == MOD_ALIAS) {
+		OBJECT  alias;
 		strcpy(sbuf, "EOF");
 		fgetword(sbuf, MAXSTR, fp);
 		if ((alias = modifier(sbuf)) == OVOID) {
-			sprintf(errmsg,
-			"(%s): bad reference \"%s\" for %s \"%s\"",
-					name, sbuf, ALIASID, objp->oname);
-			error(USER, errmsg);
+			sprintf(errmsg, "(%s): bad reference \"%s\"",
+					name, sbuf);
+			objerror(objp, USER, errmsg);
 		}
-		objp->otype = objptr(alias)->otype;
-		copystruct(&objp->oargs, &objptr(alias)->oargs);
+		if (objp->omod == OALIAS || 
+				objp->omod == objptr(alias)->omod) {
+			objp->omod = alias;
+		} else {
+			objp->oargs.sarg = (char **)malloc(sizeof(char *));
+			if (objp->oargs.sarg == NULL)
+				error(SYSTEM, "out of memory in getobject");
+			objp->oargs.nsargs = 1;
+			objp->oargs.sarg[0] = savestr(sbuf);
+		}
 	} else if ((rval = readfargs(&objp->oargs, fp)) == 0) {
 		sprintf(errmsg, "(%s): bad arguments", name);
 		objerror(objp, USER, errmsg);
@@ -126,26 +146,68 @@ FILE  *fp;
 		sprintf(errmsg, "(%s): error reading scene", name);
 		error(SYSTEM, errmsg);
 	}
+	if (objp->omod == OALIAS) {
+		sprintf(errmsg, "(%s): inappropriate use of '%s' modifier",
+				name, ALIASMOD);
+		objerror(objp, USER, errmsg);
+	}
 					/* initialize */
 	objp->os = NULL;
 
 	insertobject(obj);		/* add to global structure */
+#undef OALIAS
 }
 
 
-int
-newobject()				/* get a new object */
+OBJECT
+newobject(void)				/* get a new object */
 {
-	register int  i;
+	int  i;
 
-	if ((nobjects & 077) == 0) {		/* new block */
+	if ((nobjects & (OBJBLKSIZ-1)) == 0) {	/* new block */
 		errno = 0;
-		i = nobjects >> 6;
+		i = nobjects >> OBJBLKSHFT;
 		if (i >= MAXOBJBLK)
 			return(OVOID);
-		objblock[i] = (OBJREC *)bmalloc(0100*sizeof(OBJREC));
+		objblock[i] = (OBJREC *)calloc(OBJBLKSIZ, sizeof(OBJREC));
 		if (objblock[i] == NULL)
 			return(OVOID);
 	}
 	return(nobjects++);
+}
+
+void
+freeobjects(				/* free a range of objects */
+	int firstobj,
+	int nobjs
+)
+{
+	int  obj;
+					/* check bounds */
+	if (firstobj < 0)
+		return;
+	if (nobjs <= 0)
+		return;
+	if (firstobj + nobjs > nobjects)
+		return;
+					/* clear objects */
+	for (obj = firstobj+nobjs; obj-- > firstobj; ) {
+		OBJREC  *o = objptr(obj);
+		free_os(o);		/* free client memory */
+		freeqstr(o->oname);
+		freefargs(&o->oargs);
+		memset((void *)o, '\0', sizeof(OBJREC));
+	}
+	clearobjndx();
+					/* free objects off end */
+	for (obj = nobjects; obj-- > 0; )
+		if (objptr(obj)->oname != NULL)
+			break;
+	++obj;
+	while (nobjects > obj)		/* free empty end blocks */
+		if ((--nobjects & (OBJBLKSIZ-1)) == 0) {
+			int	i = nobjects >> OBJBLKSHFT;
+			free((void *)objblock[i]);
+			objblock[i] = NULL;
+		}
 }