| 1 |
< |
/* Copyright (c) 1986 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1992 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 22 |
|
OBJECT *htab; /* table, if allocated */ |
| 23 |
|
} modtab = {100, NULL}, objtab = {1000, NULL}; /* modifiers and objects */ |
| 24 |
|
|
| 25 |
+ |
static int otndx(); |
| 26 |
|
|
| 27 |
+ |
|
| 28 |
|
#ifdef GETOBJ |
| 29 |
|
int |
| 30 |
|
object(oname) /* get an object number from its name */ |
| 80 |
|
if (*hsp > oldsiz) |
| 81 |
|
return(*hsp); |
| 82 |
|
return(oldsiz*2 + 1); /* not always prime */ |
| 81 |
– |
} |
| 82 |
– |
|
| 83 |
– |
|
| 84 |
– |
static int |
| 85 |
– |
shash(s) /* hash a string */ |
| 86 |
– |
register char *s; |
| 87 |
– |
{ |
| 88 |
– |
register int h = 0; |
| 89 |
– |
|
| 90 |
– |
while (*s) |
| 91 |
– |
h = (h<<1 & 0x7fff) ^ *s++; |
| 92 |
– |
return(h); |
| 83 |
|
} |
| 84 |
|
|
| 85 |
|
|
