sysdeps/powerpc/power6/wcschr.c

   1 /* wcschr.c - Wide Character Search for POWER6+.
   2    Copyright (C) 2012-2014 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library 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 GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; see the file COPYING.LIB.  If
  17    not, see <http://www.gnu.org/licenses/>.  */
  18
  19 #include <wchar.h>
  20
  21 #ifndef WCSCHR
  22 # define WCSCHR __wcschr
  23 # define DEFAULT_WCSCHR
  24 #endif
  25
  26 /* Find the first occurrence of WC in WCS.  */
  27 wchar_t *
  28 WCSCHR (const wchar_t *wcs, const wchar_t wc)
  29 {
  30   const wchar_t *wcs2 = wcs + 1;
  31
  32   if (*wcs == wc)
  33     return (wchar_t *) wcs;
  34   if (*wcs == L'\0')
  35     return NULL;
  36
  37   do
  38     {
  39       wcs += 2;
  40
  41       if (*wcs2 == wc)
  42         return (wchar_t *) wcs2;
  43       if (*wcs2 == L'\0')
  44         return NULL;
  45        wcs2 += 2;
  46
  47       if (*wcs == wc)
  48         return (wchar_t *) wcs;
  49       if (*wcs == L'\0')
  50         return NULL;
  51       wcs += 2;
  52
  53       if (*wcs2 == wc)
  54         return (wchar_t *) wcs2;
  55       if (*wcs2 == L'\0')
  56         return NULL;
  57       wcs2 += 2;
  58
  59       if (*wcs == wc)
  60         return (wchar_t *) wcs;
  61       if (*wcs == L'\0')
  62         return NULL;
  63       wcs += 2;
  64
  65       if (*wcs2 == wc)
  66         return (wchar_t *) wcs2;
  67       if (*wcs2 == L'\0')
  68         return NULL;
  69       wcs2 += 2;
  70
  71       if (*wcs == wc)
  72         return (wchar_t *) wcs;
  73       if (*wcs == L'\0')
  74         return NULL;
  75       wcs += 2;
  76
  77       if (*wcs2 == wc)
  78         return (wchar_t *) wcs2;
  79       if (*wcs2 == L'\0')
  80         return NULL;
  81       wcs2 += 2;
  82
  83       if (*wcs == wc)
  84         return (wchar_t *) wcs;
  85     }
  86   while (*wcs != L'\0');
  87
  88   return NULL;
  89 }
  90 #ifdef DEFAULT_WCSCHR
  91 libc_hidden_def (__wcschr)
  92 weak_alias (__wcschr, wcschr)
  93 libc_hidden_weak (wcschr)
  94 #else
  95 libc_hidden_def (wcschr)
  96 #endif