-/*
- * stuff for token compression
- */
-
-#define N 4
-#define NTOKEN 128
-#define NCTOKEN (NTOKEN * 4)
-#define H 11
-#define HSIZE (1 << H)
-struct ctoken {
- short index;
- short hash;
- unsigned long time;
- unsigned long count;
- char string[N];
- struct ctoken *forw;
- struct ctoken *back;
-};
-
-static struct ctoken q1, q2;
-static struct ctoken *htab[HSIZE];
-static struct ctoken *line[NCOL];
-static struct ctoken tokens[NTOKEN * 4];
-static unsigned long tick;
-
-#define zc_eval(t) ((int) ((t)->count * 400 + (t)->time - tick))
-#define zc_hash(h, c) ((((h) << 1 | (h) >> H - 1) ^ (c)) & HSIZE - 1)
-#define zc_unhash(h, c) (((h) ^ (c) << N - 1 ^ (c) >> H - N + 1) & (HSIZE - 1))
-#define zc_copy(f, t) bcopy(f, t, N)
-#define zc_equal(f, t) (bcmp(f, t, N) == 0)
-/*
-#define zc_copy(f, t) ((t)[0] = (f)[0], (t)[1] = (f)[1], \
- (t)[2] = (f)[2], (t)[3] = (f)[3])
-#define zc_equal(f, t) ((t)[0] == (f)[0] && (t)[1] == (f)[1] && \
- (t)[2] == (f)[2] && (t)[3] == (f)[3])
-*/
-