V10/cmd/refer/refer7.c

# include "refer..c"
# define NRS 500
int newr[NRS];
chkdup ( tag )
	char *tag;
{
int i;
for(i=1; i<=refnum; i++)
	{
	if (strcmp(reftable[i], tag)==0)
		return(i);
	}
reftable[refnum+1] = rtp;
if (refnum>=NRFTBL)
	err("too many references (%d) for table", refnum);
strcpy (rtp, tag);
while (*rtp++);
if (rtp > reftext + NRFTXT)
	err("reftext too big (%d)", rtp-reftext);
return(0);
}
dumpold()
{
FILE *fi;
int c, oc, g1 = 0, nr = 1;
if (!endpush) return;
fclose(fo);
# ifdef D1
fprintf(stderr, "closing %o\n",fo);
# endif
fo=NULL;
# if D1
fprintf(stderr, "dumpold for %s ftemp is %o stdout %o\n", tfile, ftemp, stdout);
# endif
if (sort)
	{
	char comm[100];
	lim512(tfile);
	sprintf(comm, "sort -fd %s -o %s", tfile, tfile);
	system(comm);
	}
fi = fopen(tfile, "r");
# if D1
fprintf(stderr, "reopened %s as %o\n",tfile,fi);
# endif
if (fi==NULL) return;
flout();
fprintf(ftemp,".]<\n");
while ( (c = getc(fi)) >=0)
	{
	if (c=='\n')
		{
		if (oc==sep) continue;
		nr++;
		g1 = 0;
		}
	oc=c;
	if (c==sep)
		c = '\n';
	if (c== FLAG)
		{
		/* make old-new ref number table */
		char tb[20];
		int irr;
		char *s = tb;
		while ( (c=getc(fi)) != FLAG)
			*s++ = c;
		*s=0;
		if (g1++ == 0)
			{
			irr = atoi(tb);
			if (irr>=NRS)
				err("too many references to renumber",0);
			newr[irr]=nr;
			}
# if D1
		fprintf(stderr, "nr %d assigned to atoi(tb) %d\n",nr,irr);
# endif
		if (!labels)
			fprintf(ftemp,"%d", nr);
		else
			expkey (irr, nr, ftemp);
		continue;
		}
	putc(c, ftemp);
	}
fclose(fi);
# ifndef D1
unlink(tfile);
# endif
widelab();
fprintf(ftemp, ".]>\n");
}

recopy (fnam)
	char *fnam;
{
int c;
fclose(ftemp);
# if D1
fprintf(stderr, "recopy, fnam %s\n",fnam);
# endif

ftemp = fopen(fnam, "r");
if (ftemp==NULL)
	{
	fprintf(stderr, "Can't reopen %s\n", fnam);
	exit(1);
	}
# if D1
fprintf(stderr, "open ok ftemp %o\n",ftemp);
# endif
while ( 1)
	{
	c = fgetc(ftemp);
# if D1
fprintf(stderr, "read char %o /%c/\n",c,c);
# endif
	if (c == FLAG)
		{
		char tb[10];
		char *s = tb;
		int tbx;
		while ( (c = getc(ftemp)) != FLAG && c != EOF)
			*s++ = c;
		*s=0;
		tbx = atoi(tb);
# if D1
		fprintf(stderr, "prelim number is %d\n",tbx);
# endif
		if (!labels)
			printf("%d", newr[tbx]);
		else
			expkey (tbx, newr[tbx], stdout);
		continue;
		}
	if (c==EOF) break;
	putchar(c);
	}
# if D1
fprintf(stderr, "finished reading file \n");
# endif
fclose(ftemp);
unlink(fnam);
# if D1
fprintf(stderr, "leaving recopy\n");
# endif
}
lim512(tfile)
	char *tfile;
{
/* this stupid program merely breaks up very long citations
into lines of 512 bytes */
FILE *f1, *f2;
char *zline, *p, *q;
extern char one[];
int ln, no;
zline=one;
f1 = fopen(tfile, "r");
f2 = fopen(tdfile, "w");
# ifdef D1
fprintf(stderr,"in lim512 %s is %o, %s is %o\n", tfile, f1, tdfile, f2);
# endif
while (fgets(zline, ANSLEN, f1))
	{
	if (strlen(zline)<512)
		{
		fputs(zline, f2);
		continue;
		}
	no='a';
	for(p=zline; *p!=sep; p++)
		;
	*p++ = 0;
	ln = 500 - strlen(zline);
	while (strlen(p)>ln)
		{
		for(q=p+ln; q>p && *q!=sep; q--)
			;
		*q++ = 0;
		fprintf(f2, "%s%c%c%s%c\n",zline,no++,sep,p,sep);
		p=q;
		}
	fprintf(f2, "%s%c%c%s", zline, no, sep, p);
	}
fclose(f1); fclose(f2);
# ifdef D1
fprintf(stderr, "unlinking in lim512\n");
# endif
unlink(tfile); link(tdfile, tfile); unlink(tdfile);
}