modules/src/string/strindex.c

   1 /* $Id: strindex.c,v 1.5 1994/06/24 11:22:59 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 /* strindex() -- (86/03/18 EHB)
   7 */
   8
   9 #include "ack_string.h"
  10
  11 char *
  12 strindex(s, c)
  13         register char *s;
  14         int c;
  15 {
  16         while (*s)
  17                 if (*s++ == c)
  18                         return --s;
  19         return (char *)0;
  20 }