83 lines
1.3 KiB
C
83 lines
1.3 KiB
C
#ifndef lint
|
|
static char sccsid[] = "@(#)hunt8.c 1.1 94/10/31 SMI"; /* from UCB 4.2 6/23/83 */
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <assert.h>
|
|
#define unopen(fil) {if (fil!=NULL) {fclose(fil); fil=NULL;}}
|
|
|
|
extern long indexdate, gdate();
|
|
extern FILE *iopen();
|
|
runbib (s)
|
|
char *s;
|
|
{
|
|
/* make a file suitable for fgrep */
|
|
char tmp[200];
|
|
sprintf(tmp, "/usr/lib/refer/mkey %s >%s.ig", s,s);
|
|
system(tmp);
|
|
}
|
|
|
|
makefgrep(indexname)
|
|
char *indexname;
|
|
{
|
|
FILE *fa, *fb;
|
|
if (ckexist(indexname, ".ig"))
|
|
{
|
|
/* existing gfrep -type index */
|
|
# if D1
|
|
fprintf(stderr, "found fgrep\n");
|
|
# endif
|
|
fa = iopen(indexname, ".ig");
|
|
fb = iopen(indexname, "");
|
|
if (gdate(fb)>gdate(fa))
|
|
{
|
|
if (fa!=NULL)
|
|
fclose(fa);
|
|
runbib(indexname);
|
|
fa= iopen(indexname, ".ig");
|
|
}
|
|
indexdate = gdate(fa);
|
|
unopen(fa);
|
|
unopen(fb);
|
|
}
|
|
else
|
|
if (ckexist(indexname, ""))
|
|
{
|
|
/* make fgrep */
|
|
# if D1
|
|
fprintf(stderr, "make fgrep\n");
|
|
# endif
|
|
runbib(indexname);
|
|
time(&indexdate);
|
|
}
|
|
else /* failure */
|
|
return(0);
|
|
return(1); /* success */
|
|
}
|
|
|
|
ckexist(s, t)
|
|
char *s, *t;
|
|
{
|
|
char fnam[100];
|
|
strcpy (fnam, s);
|
|
strcat (fnam, t);
|
|
return (access(fnam, 04) != -1);
|
|
}
|
|
|
|
FILE *
|
|
iopen(s, t)
|
|
char *s, *t;
|
|
{
|
|
char fnam[100];
|
|
FILE *f;
|
|
strcpy (fnam, s);
|
|
strcat (fnam, t);
|
|
f = fopen (fnam, "r");
|
|
if (f == NULL)
|
|
{
|
|
err("Missing expected file %s", fnam);
|
|
exit(1);
|
|
}
|
|
return(f);
|
|
}
|