Return to hunt7.c CVS log

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

Annotation of 40BSD/cmd/refer/hunt7.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: # define SAME 0
        !             3: # include "assert.h"
        !             4: # define FGCT 10
        !             5: # define FGSIZE 150
        !             6: int keepold = 1; /* keep old things for fgrep search */
        !             7: char fgspace[FGSIZE];
        !             8: char *fgp = fgspace;
        !             9: char *fgnames[FGCT];
        !            10: char **fgnamp = fgnames;
        !            11: findline(in, out, outlen, indexdate)
        !            12:        long indexdate;
        !            13:        char *in, *out;
        !            14: {
        !            15: static char name[100] = "";
        !            16: char *p, **ftp;
        !            17: extern long gdate();
        !            18: static FILE *fa = NULL;
        !            19: long lp, llen;
        !            20: int len, k, nofil;
        !            21: 
        !            22: # if D1
        !            23:        fprintf(stderr, "findline: %s\n", in);
        !            24: # endif
        !            25:        if (mindex(in, '!'))
        !            26:                return(remote(in, out));
        !            27:        nofil = in[0]==0;
        !            28:        for(p=in; *p && *p != ':' && *p != ';'; p++)
        !            29:                ;
        !            30:        if (*p) *p++=0;
        !            31:        else p=in;
        !            32:        k = sscanf(p, "%ld,%ld", &lp, &llen);
        !            33: # ifdef D1
        !            34:        fprintf(stderr, "p %s k %d lp %ld llen %ld\n",p,k,lp,llen);
        !            35: # endif
        !            36:        if (k<2)
        !            37:                {
        !            38:                lp = 0;
        !            39:                llen=outlen;
        !            40:                }
        !            41: # ifdef D1
        !            42:        fprintf(stderr, "lp %ld llen %ld\n",lp, llen);
        !            43: # endif
        !            44: # ifdef D1
        !            45: fprintf(stderr, "fa now %o, p %o in %o %s\n",fa, p,in,in);
        !            46: # endif
        !            47:        if (nofil)
        !            48: {
        !            49: # if D1
        !            50: fprintf(stderr, "set fa to stdin\n");
        !            51: # endif
        !            52:                fa = stdin;
        !            53: }
        !            54:        else
        !            55:        if (strcmp (name, in) != 0 || 1)
        !            56:                {
        !            57: # if D1
        !            58: fprintf(stderr, "old: %s new %s not equal\n",name,in);
        !            59: # endif
        !            60:                if (fa != NULL)
        !            61:                        fa = freopen(in, "r", fa);
        !            62:                else
        !            63:                        fa = fopen(in, "r");
        !            64: # if D1
        !            65:                if (fa==NULL) fprintf(stderr, "failed to (re)open *%s*\n",in);
        !            66: # endif
        !            67:                if (fa == NULL)
        !            68:                        return(0);
        !            69:                        /* err("Can't open %s", in); */
        !            70:                strcpy(name, in);
        !            71:                if (gdate(fa) > indexdate && indexdate != 0)
        !            72:                        {
        !            73:                        if (keepold)
        !            74:                                {
        !            75:                                for(ftp=fgnames; ftp<fgnamp; ftp++)
        !            76:                                        if (strcmp(*ftp, name)==SAME)
        !            77:                                                return(0);
        !            78:                                strcpy (*fgnamp++ = fgp, name);
        !            79:                                assert(fgnamp<fgnames+FGCT);
        !            80:                                while (*fgp && *fgp!=':')
        !            81:                                        fgp++;
        !            82:                                *fgp++ = 0;
        !            83:                                assert (fgp<fgspace+FGSIZE);
        !            84:                                return(0);
        !            85:                                }
        !            86:                        fprintf(stderr, "Warning: index predates file '%s'\n", name);
        !            87:                        }
        !            88:                }
        !            89: # if D1
        !            90:        else
        !            91:                fprintf(stderr, "old %s new %s same fa %o\n", name,in,fa);
        !            92: # endif
        !            93:        if (fa != NULL)
        !            94:                {
        !            95:                fseek (fa, lp, 0);
        !            96:                len = (llen >= outlen) ? outlen-1 : llen;
        !            97:                len = fread (out, 1, len, fa);
        !            98:                out[len] = 0;
        !            99: # ifdef D1
        !           100:        fprintf(stderr, "length as read is %d\n",len);
        !           101: # endif
        !           102:                }
        !           103:        return(len);
        !           104: }

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