xref: /titanic_52/usr/src/cmd/spell/hashcheck.c (revision 7c478bd95313f5f23a4c958a745db2134aa03244)

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/


#ident	"%Z%%M%	%I%	%E% SMI"	/* SVr4.0 1.2	*/
#include <stdlib.h>
#include <unistd.h>
#include <stdio.h>
#include <locale.h>
#include "hash.h"
#include "huff.h"

int	decode(long, long *);

int hindex[NI];
unsigned *table;
unsigned wp;
int bp;
#define	U (BYTE*sizeof (unsigned))
#define	L (BYTE*sizeof (long))

static long
fetch(void)
{
	long w1;
	long y = 0;
	int empty = L;
	int i = bp;
	int tp = wp;
	while (empty >= i) {
		empty -= i;
		i = U;
		y |= (long)table[tp++] << empty;
	}
	if (empty > 0)
		y |= table[tp]>>i-empty;
	i = decode((y >> 1) &
	    (((unsigned long)1 << (BYTE * sizeof (y) - 1)) - 1), &w1);
	bp -= i;
	while (bp <= 0) {
		bp += U;
		wp++;
	}
	return (w1);
}


/* ARGSUSED */
void
main(int argc, char **argv)
{
	int i;
	long v;
	long a;

	/* Set locale environment variables local definitions */
	(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)	/* Should be defined by cc -D */
#define	TEXT_DOMAIN "SYS_TEST"	/* Use this only if it wasn't */
#endif
	(void) textdomain(TEXT_DOMAIN);

	(void) rhuff(stdin);
	(void) fread((char *)hindex, sizeof (*hindex), NI, stdin);
	table = (unsigned *)malloc(hindex[NI-1]*sizeof (*table));
	(void) fread((char *)table, sizeof (*table), hindex[NI-1], stdin);
	for (i = 0; i < NI-1; i++) {
		bp = U;
		v = (long)i<<(HASHWIDTH-INDEXWIDTH);
		for (wp = hindex[i]; wp < hindex[i+1]; ) {
			if (wp == hindex[i] && bp == U)
				a = fetch();
			else {
				a = fetch();
				if (a == 0)
					break;
			}
			if (wp > hindex[i+1] ||
				wp == hindex[i+1] && bp < U)
				break;
			v += a;
			(void) printf("%.9lo\n", v);
		}
	}
	exit(0);
}