From 044587ec5761e9d959d9420c1445f9a2c4376ea9 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 26 Mar 1987 15:28:08 +0000
Subject: [PATCH] added index

---
 lang/basic/src.old/basic.lex | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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;
+}
-- 
2.34.1