Initial revision

hash.c

@@ -0,0 +1,26 @@
+#include <string.h>
+#include "hash.h"
+#include "gc.h"
+
+static unsigned int
+hashfunc(char *s)
+{
+    unsigned int h = 0;
+    while (*s) {
+	if (h & 0x80000000) {
+	    h <<= 1;
+	    h |= 1;
+	}
+	else
+	    h <<= 1;
+	h += *s;
+	s++;
+    }
+    return h;
+}
+
+#define keycomp(x,y) !strcmp(x,y)
+
+defhashfunc(char *, int, si)
+defhashfunc(char *, char *, ss)
+defhashfunc(char *, void *, hist)