#include <osbind.h>
#include <stdio.h>
#include <string.h>

#include "elib.h"



/*
 * hashpjw
 *
 * hash function.  Used in P. J. Weinberger's portable C compiler and
 * gotten from page 436 of the Dragon book on compilers (Compilers: Principles,
 * Techniques and Tools, by Aho, Sethi and Ullman.  Copyright (c) 1986 by
 * Bell Telephone Laboratories).
 */
int hashpjw(char *s)

{
	char *p;
	unsigned long h = 0, g;

	for (p = s; *p != EOS; p++) {
		h = (h << 4) + (*p);
		if (g = h&0xf0000000) {
			h ^= (g >> 24);
			h ^= g;
		}
	}

	return h % HASH_TAB_SIZE;
}