wctype/wcfuncs.c

   1 /* Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Library General Public License as
   6    published by the Free Software Foundation; either version 2 of the
   7    License, or (at your option) any later version.
   8
   9    The GNU C Library is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Library General Public License for more details.
  13
  14    You should have received a copy of the GNU Library General Public
  15    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17    Boston, MA 02111-1307, USA.  */
  18
  19 #define __NO_WCTYPE
  20 #include <wctype.h>
  21 #include <ctype.h>      /* For __ctype_tolower and __ctype_toupper.  */
  22
  23 #include "cname-lookup.h"
  24
  25 /* If the program is compiled without optimization the following declaration
  26    is not visible in the header.   */
  27 extern unsigned int *__ctype32_b;
  28 extern const uint32_t *__ctype32_toupper;
  29 extern const uint32_t *__ctype32_tolower;
  30
  31 /* Provide real-function versions of all the wctype macros.  */
  32
  33 #define func(name, type) \
  34   int                                                                         \
  35   __##name (wint_t wc)                                                        \
  36   {                                                                           \
  37     size_t idx;                                                               \
  38                                                                               \
  39     idx = cname_lookup (wc);                                                  \
  40     if (idx == ~((size_t) 0))                                                 \
  41       return 0;                                                               \
  42                                                                               \
  43     return __ctype32_b[idx] & type;                                           \
  44   }                                                                           \
  45   weak_alias (__##name, name)
  46
  47 #undef iswalnum
  48 func (iswalnum, _ISwalnum)
  49 #undef iswalpha
  50 func (iswalpha, _ISwalpha)
  51 #undef iswcntrl
  52 func (iswcntrl, _ISwcntrl)
  53 #undef iswdigit
  54 func (iswdigit, _ISwdigit)
  55 #undef iswlower
  56 func (iswlower, _ISwlower)
  57 #undef iswgraph
  58 func (iswgraph, _ISwgraph)
  59 #undef iswprint
  60 func (iswprint, _ISwprint)
  61 #undef iswpunct
  62 func (iswpunct, _ISwpunct)
  63 #undef iswspace
  64 func (iswspace, _ISwspace)
  65 #undef iswupper
  66 func (iswupper, _ISwupper)
  67 #undef iswxdigit
  68 func (iswxdigit, _ISwxdigit)
  69
  70 wint_t
  71 (towlower) (wc)
  72      wint_t wc;
  73 {
  74   size_t idx;
  75
  76   idx = cname_lookup (wc);
  77   if (idx == ~((size_t) 0))
  78     /* Character is not known.  Default action is to simply return it.  */
  79     return wc;
  80
  81   return (wint_t) __ctype32_tolower[idx];
  82 }
  83
  84 wint_t
  85 (towupper) (wc)
  86      wint_t wc;
  87 {
  88   size_t idx;
  89
  90   idx = cname_lookup (wc);
  91   if (idx == ~((size_t) 0))
  92     /* Character is not known.  Default action is to simply return it.  */
  93     return wc;
  94
  95   return (wint_t) __ctype32_toupper[idx];
  96 }