xref: /csrg-svn/lib/libc/string/index.c (revision 1969)
1*1969Swnj /* @(#)index.c	4.1 (Berkeley) 12/21/80 */
2*1969Swnj /*
3*1969Swnj  * Return the ptr in sp at which the character c appears;
4*1969Swnj  * NULL if not found
5*1969Swnj  */
6*1969Swnj 
7*1969Swnj #define	NULL	0
8*1969Swnj 
9*1969Swnj char *
10*1969Swnj index(sp, c)
11*1969Swnj register char *sp, c;
12*1969Swnj {
13*1969Swnj 	do {
14*1969Swnj 		if (*sp == c)
15*1969Swnj 			return(sp);
16*1969Swnj 	} while (*sp++);
17*1969Swnj 	return(NULL);
18*1969Swnj }
19