--- ray/src/common/readobj.c	1996/07/18 17:58:01	2.5
+++ ray/src/common/readobj.c	2003/02/25 02:47:21	2.9
@@ -1,15 +1,14 @@
-/* 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.9 2003/02/25 02:47:21 greg Exp $";
 #endif
-
 /*
  *  readobj.c - routines for reading in object descriptions.
  *
- *     7/28/85
+ *  External symbols declared in object.h
  */
 
+#include "copyright.h"
+
 #include  "standard.h"
 
 #include  "object.h"
@@ -18,17 +17,14 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include  <ctype.h>
 
-extern char  *fgetword(), *strcpy();
-
 OBJREC  *objblock[MAXOBJBLK];		/* our objects */
 OBJECT  nobjects = 0;			/* # of objects */
 
 
+void
 readobj(inpspec)		/* read in an object file or stream */
 char  *inpspec;
 {
-	FILE  *popen();
-	char  *fgetline();
 	OBJECT  lastobj;
 	FILE  *infp;
 	char  buf[1024];
@@ -72,6 +68,7 @@ char  *inpspec;
 }
 
 
+void
 getobject(name, fp)			/* read the next object */
 char  *name;
 FILE  *fp;
@@ -138,14 +135,48 @@ newobject()				/* get a new object */
 {
 	register 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(firstobj, nobjs)		/* free a range of objects */
+OBJECT  firstobj, nobjs;
+{
+	register 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; ) {
+		register OBJREC  *o = objptr(obj);
+		free_os(o);		/* free client memory */
+		freeqstr(o->oname);
+		freefargs(&o->oargs);
+		bzero(o, 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;
+		}
 }