Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/clib/index.c

@@ -0,0 +1,21 @@
+/*********************************************************************
+*   INDEX  -  returns a pointer to first occurrence of char in string.
+*
+*	BYTE *index(s,c)
+*	BYTE *s, c;
+*
+*	Returns pointer to first c in s, or zero if c not in s.
+**********************************************************************/
+
+#include <portab.h>
+
+BYTE *index(s,c)
+	BYTE *s, c;
+{
+	for( ; c != *s ; s++ )		/* look for c in s.		*/
+		if( *s == NULL )	/* if we get to eos, we've gone */
+			return(0);	/*   too far.			*/
+	return(s);			/* found c. note that 'index'	*/
+					/*   works to find NULL, (ie.	*/
+					/*   eos), if c==NULL.		*/
+}