- for (hash=0,s=word,i=0; i<5 &&*s; i++) /* some kind of hash */
- hash += *s++; /* add all chars in the word */
- hash = (hash*3719)&077777; /* pulled that one out of a hat */
- hash %= HTSIZE; /* put it into range of table */
-
- for(adr=hash;; adr++) /* look for entry in table */
- { if (adr==HTSIZE) adr=0; /* wrap around */
- h = &voc[adr]; /* point at the entry */
- switch(type)
- { case -2: /* fill in entry */
- if (h->val) /* already got an entry? */
+ for (hash = 0, s = word, i = 0; i < 5 && *s; i++) /* some kind of hash*/
+ hash += *s++; /* add all chars in the word */
+ hash = (hash * 3719) & 077777; /* pulled that one out of a hat */
+ hash %= HTSIZE; /* put it into range of table */
+
+ for (adr = hash;; adr++) { /* look for entry in table */
+ if (adr == HTSIZE)
+ adr = 0;/* wrap around */
+ h = &voc[adr]; /* point at the entry */
+ switch (type) {
+ case -2: /* fill in entry */
+ if (h->val) /* already got an entry? */