From: ceriel <none@none>
Date: Thu, 26 Mar 1987 15:28:08 +0000 (+0000)
Subject: added index
X-Git-Tag: release-5-5~4330
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=044587ec5761e9d959d9420c1445f9a2c4376ea9;p=ack.git

added index
---

diff --git a/lang/basic/src.old/basic.lex b/lang/basic/src.old/basic.lex
index b901ca63f..bb72e467a 100644
--- a/lang/basic/src.old/basic.lex
+++ b/lang/basic/src.old/basic.lex
@@ -141,6 +141,8 @@ Key keywords [] ={
 0,	0,	0,	0
 };
 
+char *index();
+
 /* Keyword index table */
 
 int	kex[27];
@@ -470,3 +472,13 @@ yylex()
 	}
 	return(*cptr++);
 }
+
+char *
+index(s, c)
+	register char *s, c;
+{
+	while (*s)
+		if (*s++ == c)
+			return --s;
+	return (char *)0;
+}