# define unopen(fil) {if (fil!=NULL) {fclose(fil); fil=NULL;}}
extern long indexdate
, gdate();
/* make a file suitable for fgrep */
sprintf(tmp
, "/usr/lib/refer/mkey %s >%s.ig", s
,s
);
if (ckexist(indexname
, ".ig"))
/* existing gfrep -type index */
fprintf(stderr
, "found fgrep\n");
fa
= iopen(indexname
, ".ig");
fb
= iopen(indexname
, "");
fa
= iopen(indexname
, ".ig");
if (ckexist(indexname
, ""))
fprintf(stderr
, "make fgrep\n");
return (access(fnam
, 04) != -1);
err("Missing expected file %s", fnam
);