BSD 4_4 release

[unix-history] / usr / src / old / refer / hunt / hunt8.c

/*-
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
*/

#ifndef lint
static char sccsid[] = "@(#)hunt8.c     4.5 (Berkeley) 4/18/91";
#endif /* not lint */

#include <stdio.h>
#include <assert.h>
#include "pathnames.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, "%s '%s' > '%s.ig'", _PATH_MKEY,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);
}