1 files changed, 143 insertions, 0 deletions
diff --git a/refer/hunt7.c b/refer/hunt7.c
new file mode 100644
index 0000000000000..dcb98f58256df
--- /dev/null
+++ b/refer/hunt7.c
@@ -0,0 +1,143 @@
+/*	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.
+ */
+
+/*	from OpenSolaris "hunt7.c	1.5	05/06/02 SMI" 	*/
+
+/*
+ * Portions Copyright (c) 2005 Gunnar Ritter, Freiburg i. Br., Germany
+ *
+ * Sccsid @(#)hunt7.c	1.3 (gritter) 10/22/05
+ */
+
+#include <stdio.h>
+#include <locale.h>
+#include <assert.h>
+#include <string.h>
+#include <stdlib.h>
+#include "refer..c"
+#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;
+
+int
+findline(char *in, char **out, int outlen, long indexdate)
+{
+	static char name[100] = "";
+	char *p, **ftp;
+	static FILE *fa = NULL;
+	long lp, llen;
+# ifdef D1
+	int len;
+# endif
+	int 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, "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, SEEK_SET);
+                *out = malloc(llen + 1);
+                if (*out == NULL) {
+                	return(0);
+                }
+# ifdef D1
+		len =
+# endif
+		fread(*out, 1, llen, fa);
+		*(*out + llen) = 0;
+# ifdef D1
+		fprintf(stderr, "length as read is %d\n",len);
+# endif
+	}
+	return(llen);
+}