1169695Skan/* Stub implementation of (obsolete) index(). */
2169695Skan
3169695Skan/*
4169695Skan
5169695Skan@deftypefn Supplemental char* index (char *@var{s}, int @var{c})
6169695Skan
7169695SkanReturns a pointer to the first occurrence of the character @var{c} in
8169695Skanthe string @var{s}, or @code{NULL} if not found.  The use of @code{index} is
9169695Skandeprecated in new programs in favor of @code{strchr}.
10169695Skan
11169695Skan@end deftypefn
12169695Skan
13169695Skan*/
14169695Skan
15169695Skanextern char * strchr(const char *, int);
16169695Skan
17169695Skanchar *
18169695Skanindex (const char *s, int c)
19169695Skan{
20169695Skan  return strchr (s, c);
21169695Skan}
22