--- ray/src/common/otypes.c	1989/02/02 10:34:38	1.1
+++ ray/src/common/otypes.c	1991/11/12 16:54:51	2.1
@@ -5,9 +5,7 @@ static char SCCSid[] = "$SunId$ LBL";
 #endif
 
 /*
- *  otypes.c - object lookup functions.
- *
- *     7/29/85
+ * Object type lookup and error reporting
  */
 
 #include  "standard.h"
@@ -17,14 +15,6 @@ static char SCCSid[] = "$SunId$ LBL";
 #include  "otypes.h"
 
 
-FUN  ofun[NUMOTYPE] = INIT_OTYPE;	/* our object function table */
-
-static struct ohtab {
-	int  hsiz;			/* current table size */
-	OBJECT  *htab;			/* table, if allocated */
-}  modtab = {100, NULL}, objtab = {1000, NULL};	/* modifiers and objects */
-
-
 int
 otype(ofname)			/* get object function number from its name */
 register char  *ofname;
@@ -39,46 +29,6 @@ register char  *ofname;
 }
 
 
-#ifdef  GETOBJ
-int
-object(oname)			/* get an object number from its name */
-char  *oname;
-{
-	register int  ndx;
-
-	ndx = otndx(oname, &objtab);
-	return(objtab.htab[ndx]);
-}
-#endif
-
-
-int
-modifier(mname)			/* get a modifier number from its name */
-char  *mname;
-{
-	register int  ndx;
-
-	ndx = otndx(mname, &modtab);
-	return(modtab.htab[ndx]);
-}
-
-
-insertobject(obj)		/* insert new object into our list */
-register OBJECT  obj;
-{
-	register int  ndx;
-
-#ifdef  GETOBJ
-	ndx = otndx(objptr(obj)->oname, &objtab);
-	objtab.htab[ndx] = obj;
-#endif
-	if (ismodifier(objptr(obj)->otype)) {
-		ndx = otndx(objptr(obj)->oname, &modtab);
-		modtab.htab[ndx] = obj;
-	}
-}
-
-
 objerror(o, etyp, msg)		/* report error related to object */
 OBJREC  *o;
 int  etyp;
@@ -89,72 +39,4 @@ char  *msg;
 	sprintf(msgbuf, "%s for %s \"%s\"",
 			msg, ofun[o->otype].funame, o->oname);
 	error(etyp, msgbuf);
-}
-
-
-static int
-nexthsiz(oldsiz)		/* return next hash table size */
-int  oldsiz;
-{
-	static int  hsiztab[] = {
-		251, 509, 1021, 2039, 4093, 8191, 16381, 0
-	};
-	register int  *hsp;
-
-	for (hsp = hsiztab; *hsp; hsp++)
-		if (*hsp > oldsiz)
-			return(*hsp);
-	return(oldsiz*2 + 1);		/* not always prime */
-}
-
-
-static int
-shash(s)			/* hash a string */
-register char  *s;
-{
-	register int  h = 0;
-
-	while (*s)
-		h = (h<<1 & 0x7fff) ^ *s++;
-	return(h);
-}
-
-
-static int
-otndx(name, tab)		/* get object table index for name */
-char  *name;
-register struct ohtab  *tab;
-{
-	OBJECT  *oldhtab;
-	int  hval, i;
-	register int  ndx;
-
-	if (tab->htab == NULL) {		/* new table */
-		tab->hsiz = nexthsiz(tab->hsiz);
-		tab->htab = (OBJECT *)malloc(tab->hsiz*sizeof(OBJECT));
-		if (tab->htab == NULL)
-			error(SYSTEM, "out of memory in tputo");
-		ndx = tab->hsiz;
-		while (ndx--)			/* empty it */
-			tab->htab[ndx] = OVOID;
-	}
-					/* look up object */
-	hval = shash(name);
-	for (i = 0; i < tab->hsiz; i++) {
-		ndx = (hval + i*i) % tab->hsiz;
-		if (tab->htab[ndx] == OVOID ||
-				!strcmp(objptr(tab->htab[ndx])->oname, name))
-			return(ndx);
-	}
-					/* table is full, reallocate */
-	oldhtab = tab->htab;
-	ndx = tab->hsiz;
-	tab->htab = NULL;
-	while (ndx--)
-		if (oldhtab[ndx] != OVOID) {
-			i = otndx(objptr(oldhtab[ndx])->oname, tab);
-			tab->htab[i] = oldhtab[ndx];
-		}
-	free((char *)oldhtab);
-	return(otndx(name, tab));
 }