hunt8.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
/*
* Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
* All Rights Reserved.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <locale.h>
#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(gettext("Missing expected file %s"), fnam);
exit(1);
}
return(f);
}