libiberty/strstr.c

   1 /* Simple implementation of strstr for systems without it.
   2    This function is in the public domain.  */
   3
   4 /*
   5
   6 @deftypefn Supplemental char* strstr (const char *@var{string}, const char *@var{sub})
   7
   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}.
  13
  14 @end deftypefn
  15
  16
  17 */
  18
  19
  20 /* FIXME:  The above description is ANSI compiliant.  This routine has not
  21    been validated to comply with it.  -fnf */
  22
  23 char *
  24 strstr (char *s1, char *s2)
  25 {
  26   register char *p = s1;
  27   extern char *strchr ();
  28   extern int strncmp ();
  29 #if __GNUC__ >= 2
  30   extern __SIZE_TYPE__ strlen (const char *);
  31 #endif
  32   register int len = strlen (s2);
  33
  34   for (; (p = strchr (p, *s2)) != 0; p++)
  35     {
  36       if (strncmp (p, s2, len) == 0)
  37         {
  38           return (p);
  39         }
  40     }
  41   return (0);
  42 }