lib/wcsstr-impl.h

   1 /* Locate a substring in a wide string.
   2    Copyright (C) 1999, 2011-2019 Free Software Foundation, Inc.
   3    Written by Bruno Haible <bruno@clisp.org>, 1999.
   4
   5    This program is free software: you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  17
  18 wchar_t *
  19 wcsstr (const wchar_t *haystack, const wchar_t *needle)
  20 {
  21   wchar_t n = needle[0];
  22
  23   /* Is needle empty?  */
  24   if (n == (wchar_t)'\0')
  25     return (wchar_t *) haystack;
  26
  27   /* Is needle nearly empty?  */
  28   if (needle[1] == (wchar_t)'\0')
  29     return wcschr (haystack, n);
  30
  31   /* Search for needle's first character.  */
  32   for (; *haystack != (wchar_t)'\0'; haystack++)
  33     {
  34       if (*haystack == n)
  35         {
  36           /* Compare with needle's remaining characters.  */
  37           const wchar_t *hptr = haystack + 1;
  38           const wchar_t *nptr = needle + 1;
  39           for (;;)
  40             {
  41               if (*hptr != *nptr)
  42                 break;
  43               hptr++; nptr++;
  44               if (*nptr == (wchar_t)'\0')
  45                 return (wchar_t *) haystack;
  46             }
  47         }
  48     }
  49
  50   return NULL;
  51 }