ack/lang/cem/libcc/gen/index.c
1994-06-24 14:02:31 +00:00

11 lines
124 B
C

/* $Id$ */
char *index(s, c)
register char *s, c;
{
do {
if (*s == c)
return(s);
} while (*s++ != 0);
return(0);
}