cmd/refer/hunt7.c

	hunt7.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*  Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*    All Rights Reserved   */


/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved. The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

/*
 * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
 * All Rights Reserved.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <stdio.h>
#include <locale.h>
#include <assert.h>
#define SAME 0
#define FGCT 10
#define FGSIZE 150

int keepold = 1;    /* keep old things for fgrep search */
char fgspace[FGSIZE];
char *fgp = fgspace;
char *fgnames[FGCT];
char **fgnamp = fgnames;

findline(in, out, outlen, indexdate)
long indexdate;
char *in, **out;
{
    static char name[100] = "";
    char *p, **ftp;
    extern long gdate();
    static FILE *fa = NULL;
    long lp, llen;
    int len, k, nofil;

# if D1
    fprintf(stderr, "findline: %s\n", in);
# endif
    if (mindex(in, '!'))
        /* return(remote(in, *out)); /* Does NOTHING */
        return(0);

    nofil = in[0]==0;
    for(p=in; *p && *p != ':' && *p != ';'; p++)
        ;
    if (*p) *p++=0;
    else p=in;
    k = sscanf(p, "%ld,%ld", &lp, &llen);
# ifdef D1
    fprintf(stderr, "p %s k %d lp %ld llen %ld\n",p,k,lp,llen);
# endif
    if (k<2)
    {
        lp = 0;
        llen=outlen;
    }
# ifdef D1
    fprintf(stderr, "lp %ld llen %ld\n",lp, llen);
# endif
# ifdef D1
    fprintf(stderr, "fa now %o, p %o in %o %s\n",fa, p,in,in);
# endif
    if (nofil)
    {
# if D1
        fprintf(stderr, "set fa to stdin\n");
# endif
        fa = stdin;
    }
    else
        if (strcmp (name, in) != 0 || 1)
        {
# if D1
            fprintf(stderr, "old: %s new %s not equal\n",name,in);
# endif
            if (fa != NULL)
                fa = freopen(in, "r", fa);
            else
                fa = fopen(in, "r");
# if D1
            if (fa==NULL)
                fprintf(stderr, "failed to (re)open *%s*\n",in);
# endif
            if (fa == NULL)
                return(0);
            /* err("Can't open %s", in); */
            strcpy(name, in);
            if (gdate(fa) > indexdate && indexdate != 0)
            {
                if (keepold)
                {
                    for(ftp=fgnames; ftp<fgnamp; ftp++)
                        if (strcmp(*ftp, name)==SAME)
                            return(0);
                    strcpy (*fgnamp++ = fgp, name);
                    assert(fgnamp<fgnames+FGCT);
                    while (*fgp && *fgp!=':')
                        fgp++;
                    *fgp++ = 0;
                    assert (fgp<fgspace+FGSIZE);
                    return(0);
                }
                fprintf(stderr, gettext("Warning: index predates file '%s'\n"), name);
            }
        }
# if D1
        else
            fprintf(stderr, "old %s new %s same fa %o\n", name,in,fa);
# endif
    if (fa != NULL)
    {
        fseek(fa, lp, 0);
                *out = (char *) malloc(llen + 1);
                if (*out == NULL) {
                    return(0);
                }
        len = fread(*out, 1, llen, fa);
        *(*out + llen) = 0;
# ifdef D1
        fprintf(stderr, "length as read is %d\n",len);
# endif
    }
    return(llen);
}