Bell 32V development

[unix-history] / usr / src / cmd / refer / inv5.c

# 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);
}