root/usr/src/cmd/spell/hashcheck.c
/*
 * 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 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

#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 */
int
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);
                }
        }
        return (0);
}