OpenSolaris_b135/cmd/refer/inv6.c

/*
 * 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  	*/

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved. The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include <stdio.h>
#include <assert.h>

static void putl(long, FILE *);

void
whash(FILE *ft, FILE *fa, FILE *fb, int nhash, int iflong,
	    long *ptotct, int *phused)
{
	char line[100];
	int hash = 0, hused = 0;
	long totct = 0L;
	int ct = 0;
	long point;
	long opoint = -1;
	int m;
	int k;
	long lp;
	long *hpt;
	int *hfreq = NULL;

	hpt = (long *)calloc(nhash+1, sizeof (*hpt));
	assert(hpt != NULL);
	hfreq = (int *)calloc(nhash, sizeof (*hfreq));
	assert(hfreq != NULL);
	hpt[0] = 0;
	lp = 0;
	while (fgets(line, 100, ft)) {
		totct++;
		sscanf(line, "%d %ld", &k, &point);
		if (hash < k) {
			hused++;
			if (iflong) putl(-1L, fb);
			else putw(-1, fb);
			hfreq[hash] = ct;
			while (hash < k) {
				hpt[++hash] = lp;
				hfreq[hash] = 0;
			}
			hpt[hash] = lp += iflong ? sizeof (long) : sizeof (int);
			opoint = -1;
			ct = 0;
		}
		if (point != opoint) {
			if (iflong)
				putl(opoint = point, fb);
			else
				putw((int)(opoint = point), fb);
			lp += iflong ? sizeof (long) : sizeof (int);
			ct++;
		}
	}
	if (iflong) putl(-1L, fb);
	else putw(-1, fb);
	while (hash < nhash)
		hpt[++hash] = lp;
	fwrite(&nhash, sizeof (nhash), 1, fa);
	fwrite(&iflong, sizeof (iflong), 1, fa);
	fwrite(hpt, sizeof (*hpt), nhash, fa);
	fwrite(hfreq, sizeof (*hfreq), nhash, fa);
	*ptotct = totct;
	*phused = hused;
}

static void
putl(long ll, FILE *f)
{
	putw(ll, f);
}

long
getl(FILE *f)
{
	return (getw(f));
}