Ultrix-3.1/src/cmd/refer/inv5.c

/**********************************************************************
 *   Copyright (c) Digital Equipment Corporation 1984, 1985, 1986.    *
 *   All Rights Reserved. 					      *
 *   Reference "/usr/src/COPYRIGHT" for applicable restrictions.      *
 **********************************************************************/

static char Sccsid[] = "@(#)inv5.c	3.0	4/22/86";
# include "stdio.h"

recopy (ft, fb, fa, nhash)
	FILE *ft, *fb, *fa;
{
/* copy fb (old hash items/pointers) to ft (new ones) */
int n, i, iflong;
long getl();
int getw();
int *hpt_s;
int (*getfun)();
long *hpt_l;
long k, lp;
if (fa==NULL)
	{
	err("No old pointers",0);
	return;
	}
fread(&n, sizeof(n), 1, fa);
fread(&iflong, sizeof(iflong), 1, fa);
if (iflong)
	{
	hpt_l =  calloc(sizeof(*hpt_l), n+1);
	n =fread(hpt_l, sizeof(*hpt_l), n, fa);
	}
else
	{
	hpt_s =  calloc(sizeof(*hpt_s), n+1);
	n =fread(hpt_s, sizeof(*hpt_s), n, fa);
	}
if (n!= nhash)
	fprintf(stderr, "Changing hash value to old %d\n",n);
fclose(fa);
if (iflong)
	getfun = &getl;
else
	getfun = &getw;
for(i=0; i<n; i++)
	{
	if (iflong)
		lp = hpt_l[i];
	else
		lp = hpt_s[i];
	fseek(fb, lp, 0);
	while ( (k= (*getfun)(fb) ) != -1)
		fprintf(ft, "%04d %06ld\n",i,k);
	}
fclose(fb);
return(n);
}