extern int soutlen
, iflong
;
baddrop(master
, nf
, fc
, nitem
, qitem
, rprog
, full
)
union ptr
{unsigned *a
; long *b
; } master
;
/* checks list of drops for real bad drops;
uses "deliv" to find items. */
int i
, g
, j
, need
, got
, na
, len
;
char res
[100], *ar
[50], output
[TXTLEN
];
extern int colevel
, reached
;
fprintf(stderr
,"in baddrop, nf %d master %ld %ld %ld\n", nf
, master
.b
[0], master
.b
[1], master
.b
[2]);
fprintf(stderr
,"in baddrop, nf %d master %d %d %d\n", nf
, master
.a
[0], master
.a
[1], master
.a
[2]);
lp
= iflong
? master
.b
[i
] : master
.a
[i
];
fprintf(stderr
, "i %d master %lo lp %lo\n", i
, master
.b
[i
], lp
);
fprintf(stderr
, "i %d master %o lp %lo\n", i
, master
.a
[i
], lp
);
fprintf(stderr
, "tag %s", res
);
fprintf(stderr
, "not auxil try rprog %c\n", rprog
? 'y': 'n');
if (c
== ';' || c
== '\n')
corout (res
, output
, rprog
, 0, TXTLEN
) :
findline (res
, output
, TXTLEN
, indexdate
);
fprintf(stderr
,"item %d of %d, tag %s len %d output\n%s\n..\n",i
,nf
,res
, len
,output
);
need
= colevel
? reached
: nitem
;
ar
[na
++] = (char *) need
;
fprintf(stderr
, "calling fgrep len %d ar[4] %s %o %d \n",len
,ar
[4],ar
[5],ar
[6]);
fprintf(stderr
, "fgrep found it\n");
master
.b
[g
++] = master
.b
[i
];
master
.a
[g
++] = master
.a
[i
];
strcpy (soutput
, output
);
fprintf(stderr
, "after fgrep\n");
sscanf(res
, "%ld,%d", &lp
, &len
);