/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	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.
 */

#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;

extern char *mindex();

long
findline(char *in, char **out, int outlen, long indexdate)
{
	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 (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);
}