# include "stdio.h"
# include "assert.h"
# define TXTLEN 1000
char *outbuf 0;
extern char *soutput;
extern int soutlen, iflong;
extern long indexdate;
baddrop(master, nf, fc, nitem, qitem, rprog, full)
	union ptr {unsigned *a; long *b; } master;
	FILE *fc;
	char *qitem[], *rprog;
{
/* checks list of drops for real bad drops;
   uses "deliv" to find items. */
int i, g, j, need, got, na, len;
long lp;
char res[100], *ar[50], output[TXTLEN];
extern int colevel, reached;
# if D1
if (iflong)
fprintf(stderr,"in baddrop, nf %d master %ld %ld %ld\n", nf, master.b[0], master.b[1], master.b[2]);
else
fprintf(stderr,"in baddrop, nf %d master %d %d %d\n", nf, master.a[0], master.a[1], master.a[2]);
# endif
for (i=g=0; i<nf; i++)
	{
	lp = iflong ? master.b[i] : master.a[i];
# if D1
	if (iflong)
	fprintf(stderr, "i %d master %lo lp %lo\n", i, master.b[i], lp);
	else
	fprintf(stderr, "i %d master %o lp %lo\n", i, master.a[i], lp);
# endif
	fseek (fc, lp, 0);
	fgets( res, 100, fc);
# if D1
	fprintf(stderr, "tag %s", res);
# endif
	if (!auxil(res,output))
		{
		char *s; int c;
# if D1
		fprintf(stderr, "not auxil try rprog %c\n", rprog? 'y': 'n');
# endif
		for(s=res; c= *s; s++)
			if (c == ';' || c == '\n')
				{*s=0; break;}
		len = rprog ?
			corout (res, output, rprog, 0, TXTLEN) :
			findline (res, output, TXTLEN, indexdate);
		}
# if D1
	_assert (len <TXTLEN);
	fprintf(stderr,"item %d of %d, tag %s len %d output\n%s\n..\n",i,nf,res, len,output);
# endif
	if (len==0)
		continue;
	need = colevel ? reached : nitem;
	na=0;
	ar[na++] = "fgrep";
	ar[na++] = "-r";
	ar[na++] = "-n";
	ar[na++] = need;
	ar[na++] = "-i";
	ar[na++] = output;
	ar[na++] = len;
	for(j=0; j<nitem; j++)
		ar[na++] = qitem[j];
# ifdef D1
	fprintf(stderr, "calling fgrep len %d ar[4] %s %o %d \n",len,ar[4],ar[5],ar[6]);
# endif
	if (fgrep(na, ar)==0)
		{
# ifdef D1
	fprintf(stderr, "fgrep found it\n");
# endif
		if (iflong)
			master.b[g++] = master.b[i];
		else
			master.a[g++] = master.a[i];
		if (full >= g)
			if (soutput==0)
				fputs(output, stdout);
			else
				strcpy (soutput, output);
		}
# ifdef D1
	fprintf(stderr, "after fgrep\n");
# endif
	}
return(g);
}
auxil( res, output)
	char *res, *output;
{
extern FILE *fd;
long lp, c; int len;
if (fd==0)return(0);
while (c = *res++) 
	{
	if (c == ';')
		{
		sscanf(res, "%ld,%d", &lp, &len);
		fseek (fd, lp, 0);
		fgets(output, len, fd);
		return(1);
		}
	}
return(0);
}