78 	struct wlist *wp;  in lookup()  local
80 	for (wp = hashtab[hash(s)]; wp != NULL; wp = wp->next)  in lookup()
81 		if (*s == *wp->string && strcmp(s, wp->string) == 0)  in lookup()
82 			return wp;  in lookup()
87 install(struct wlist *wp)  in install()  argument
91 	if (lookup(wp->string) == NULL) {  in install()
92 		hashval = hash(wp->string);  in install()
93 		wp->next = hashtab[hashval];  in install()
94 		hashtab[hashval] = wp;  in install()
96 		printf("Multiply defined %s.\n", wp->string);  in install()
102 	struct wlist *wp;  in parse()  local
108 		if ((wp = lookup(words[n])) == NULL) {  in parse()
112 			wordvalue[n] = wp->value;  in parse()
113 			wordtype[n] = wp->article;  in parse()