From 23b9bb45fa6310a646f9ca224400a491a79074b8 Mon Sep 17 00:00:00 2001
From: Bill Tuthill <tut@ucbvax.Berkeley.EDU>
Date: Sat, 7 May 1983 06:50:08 -0800
Subject: [PATCH] date and time created 83/05/06 23:50:08 by tut

SCCS-vsn: old/refer/NOTUSED/thash.c 4.1
---
 usr/src/old/refer/NOTUSED/thash.c | 150 ++++++++++++++++++++++++++++++
 1 file changed, 150 insertions(+)
 create mode 100644 usr/src/old/refer/NOTUSED/thash.c

diff --git a/usr/src/old/refer/NOTUSED/thash.c b/usr/src/old/refer/NOTUSED/thash.c
new file mode 100644
index 0000000000..888703ad49
--- /dev/null
+++ b/usr/src/old/refer/NOTUSED/thash.c
@@ -0,0 +1,150 @@
+#ifndef lint
+static char *sccsid = "@(#)thash.c	4.1 (Berkeley) %G%";
+#endif
+
+#include <stdio.h>
+#define MAXLINE 750
+
+int nh 500;
+int saw[6000];
+char *comname "/usr/lib/eign";
+
+main (argc,argv)
+char *argv[];
+{
+
+	int i, z;
+	char *name;
+
+	FILE *f;
+
+	while (argc>1 && argv[1][0] == '-')
+	{
+		switch(argv[1][1])
+		{
+		case 'h':
+			nh = atoi(argv[1]+2); 
+			break;
+		}
+		argc--; 
+		argv++;
+	}
+	if (argc<=1)
+		dofile(stdin, "");
+	else
+		for(i=1; i<argc; i++)
+		{
+			f = fopen(name=argv[i], "r");
+			if (f==NULL)
+				err("No file %s",name);
+			else
+				dofile(f, name);
+		}
+	for(z=i=0; i<nh; i++)
+	{
+		if (saw[i]) z++;
+	}
+	printf("hashes %d used %d\n",nh,z);
+}
+
+dofile(f, name)
+FILE *f;
+char *name;
+{
+	/* read file f & spit out keys & ptrs */
+	char line[MAXLINE], *s;
+	char key[20], *p;
+	int k 0;
+	int c, lim;
+	int alph 0;
+	int used 0;
+	long lp 0;
+
+	while (fgets(line, MAXLINE, f))
+	{
+		k++;
+		used=alph=0;
+		lim = strlen(line);
+		p = key;
+		for(s=line; c= *s; s++)
+		{
+			if (isalpha(c) || isdigit(c))
+			{
+				if (alph++ < 6)
+					*p++ = c;
+			}
+			else
+			{
+				*p = 0;
+				if (outkey(p=key))
+				{
+					tkey(key,k);
+					used=1;
+				}
+				alph=0;
+			}
+		}
+		lp += lim;
+	}
+}
+
+outkey( ky)
+char *ky;
+{
+	int n;
+	n = strlen(ky);
+	if (n<3) return(0);
+	if (isdigit(ky[0]))
+		if (ky[0] != '1' || ky[1] != '9' || n!= 4) return(0);
+	return(1);
+}
+
+hash (s)
+char *s;
+{
+	int c, n, q;
+	for(q=n=0; c= *s; s++)
+		n += (c*n + c << (n%4));
+	return(n);
+}
+
+err (s, a)
+char *s;
+{
+	fprintf(stderr, "Error: ");
+	fprintf(stderr, s, a);
+	putc('\n', stderr);
+}
+
+prefix(t, s)
+char *t, *s;
+{
+	int c, d;
+	while ( (c= *t++) == *s++)
+		if (c==0) return(1);
+	return(c==0 ? 1: 0);
+}
+
+mindex(s, c)
+char *s;
+{
+	register char *p;
+	for( p=s; *p; p++)
+		if (*p ==c)
+			return(p);
+	return(0);
+}
+
+tkey(s,nw)
+char *s;
+{
+	int x;
+	x = abs(hash(s)) % nh;
+	/* if (saw[x]) printf("%d %d\n", x, nw); */
+	saw[x]= nw;
+}
+
+abs(n)
+{
+	return(n>0 ? n : -n);
+}
-- 
2.20.1