daily update
[binutils.git] / libiberty / strstr.c
blob470e04b1a7613c0e848aa39d6775a2a34912cf44
1 /* Simple implementation of strstr for systems without it.
2 This function is in the public domain. */
4 /*
6 @deftypefn Supplemental char* strstr (const char *@var{string}, const char *@var{sub})
8 This function searches for the substring @var{sub} in the string
9 @var{string}, not including the terminating null characters. A pointer
10 to the first occurrence of @var{sub} is returned, or @code{NULL} if the
11 substring is absent. If @var{sub} points to a string with zero
12 length, the function returns @var{string}.
14 @end deftypefn
20 /* FIXME: The above description is ANSI compiliant. This routine has not
21 been validated to comply with it. -fnf */
23 char *
24 strstr (s1, s2)
25 char *s1, *s2;
27 register char *p = s1;
28 extern char *strchr ();
29 extern int strncmp ();
30 #if __GNUC__==2
31 extern __SIZE_TYPE__ strlen ();
32 #endif
33 register int len = strlen (s2);
35 for (; (p = strchr (p, *s2)) != 0; p++)
37 if (strncmp (p, s2, len) == 0)
39 return (p);
42 return (0);