Original BTL Ratfor System
for 4.2
static char sccsid
[] = "@(#)rlook.c 1.2 (Berkeley) %G%";
struct nlist
*hshtab
[HSHSIZ
];
struct nlist
*lookup(str
)
register struct nlist
*np
;
static struct nlist nodef
;
for (np
= hshtab
[hshval
]; np
!=NULL
; np
= np
->next
) {
char *install(nam
, val
, tran
)
register struct nlist
*np
;
if ((np
= lookup(nam
))->name
== NULL
) {
np
= (struct nlist
*)malloc(sizeof(*np
));
np
->next
= hshtab
[hshval
];
p
= s1
= (char *) malloc((unsigned)strlen(s
)+1);