Return to hunt8.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / refer

Annotation of 41BSD/cmd/refer/hunt8.c, revision 1.1.1.1

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

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