Return to hunt8.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / refer / hunt

Annotation of 43BSDReno/usr.bin/refer/hunt/hunt8.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char *sccsid = "@(#)hunt8.c     4.4 (Berkeley) 5/11/89";
                      3: #endif
                      4: 
                      5: #include <stdio.h>
                      6: #include <assert.h>
                      7: #include "pathnames.h"
                      8: #define unopen(fil) {if (fil!=NULL) {fclose(fil); fil=NULL;}}
                      9: 
                     10: extern long indexdate, gdate();
                     11: extern FILE *iopen();
                     12: runbib (s)
                     13: char *s;
                     14: {
                     15:        /* make a file suitable for fgrep */
                     16:        char tmp[200];
                     17:        sprintf(tmp, "%s '%s' > '%s.ig'", _PATH_MKEY,s,s);
                     18:        system(tmp);
                     19: }
                     20: 
                     21: makefgrep(indexname)
                     22: char *indexname;
                     23: {
                     24:        FILE *fa, *fb;
                     25:        if (ckexist(indexname, ".ig"))
                     26:        {
                     27:                /* existing gfrep -type index */
                     28: # if D1
                     29:                fprintf(stderr, "found fgrep\n");
                     30: # endif
                     31:                fa = iopen(indexname, ".ig");
                     32:                fb = iopen(indexname, "");
                     33:                if (gdate(fb)>gdate(fa))
                     34:                {
                     35:                        if (fa!=NULL)
                     36:                                fclose(fa);
                     37:                        runbib(indexname);
                     38:                        fa= iopen(indexname, ".ig");
                     39:                }
                     40:                indexdate = gdate(fa);
                     41:                unopen(fa); 
                     42:                unopen(fb);
                     43:        }
                     44:        else
                     45:                if (ckexist(indexname, ""))
                     46:                {
                     47:                        /* make fgrep */
                     48: # if D1
                     49:                        fprintf(stderr, "make fgrep\n");
                     50: # endif
                     51:                        runbib(indexname);
                     52:                        time(&indexdate);
                     53:                }
                     54:                else /* failure */
                     55:                return(0);
                     56:        return(1); /* success */
                     57: }
                     58: 
                     59: ckexist(s, t)
                     60: char *s, *t;
                     61: {
                     62:        char fnam[100];
                     63:        strcpy (fnam, s);
                     64:        strcat (fnam, t);
                     65:        return (access(fnam, 04) != -1);
                     66: }
                     67: 
                     68: FILE *
                     69: iopen(s, t)
                     70: char *s, *t;
                     71: {
                     72:        char fnam[100];
                     73:        FILE *f;
                     74:        strcpy (fnam, s);
                     75:        strcat (fnam, t);
                     76:        f = fopen (fnam, "r");
                     77:        if (f == NULL)
                     78:        {
                     79:                err("Missing expected file %s", fnam);
                     80:                exit(1);
                     81:        }
                     82:        return(f);
                     83: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.