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