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
  29 /* Provide real-function versions of all the wctype macros.  */
  30
  31 #define func(name, type) \
  32   int                                                                         \
  33   __##name (wint_t wc)                                                        \
  34   {                                                                           \
  35     size_t idx;                                                               \
  36                                                                               \
  37     idx = cname_lookup (wc);                                                  \
  38     if (idx == ~((size_t) 0))                                                 \
  39       return 0;                                                               \
  40                                                                               \
  41     return __ctype32_b[idx] & type;                                           \
  42   }                                                                           \
  43   weak_alias (__##name, name)
  44
  45 #undef iswalnum
  46 func (iswalnum, _ISwalnum)
  47 #undef iswalpha
  48 func (iswalpha, _ISwalpha)
  49 #undef iswcntrl
  50 func (iswcntrl, _ISwcntrl)
  51 #undef iswdigit
  52 func (iswdigit, _ISwdigit)
  53 #undef iswlower
  54 func (iswlower, _ISwlower)
  55 #undef iswgraph
  56 func (iswgraph, _ISwgraph)
  57 #undef iswprint
  58 func (iswprint, _ISwprint)
  59 #undef iswpunct
  60 func (iswpunct, _ISwpunct)
  61 #undef iswspace
  62 func (iswspace, _ISwspace)
  63 #undef iswupper
  64 func (iswupper, _ISwupper)
  65 #undef iswxdigit
  66 func (iswxdigit, _ISwxdigit)
  67
  68 wint_t
  69 (towlower) (wc)
  70      wint_t wc;
  71 {
  72   size_t idx;
  73
  74   idx = cname_lookup (wc);
  75   if (idx == ~((size_t) 0))
  76     /* Character is not known.  Default action is to simply return it.  */
  77     return wc;
  78
  79   return (wint_t) __ctype_tolower[idx];
  80 }
  81
  82 wint_t
  83 (towupper) (wc)
  84      wint_t wc;
  85 {
  86   size_t idx;
  87
  88   idx = cname_lookup (wc);
  89   if (idx == ~((size_t) 0))
  90     /* Character is not known.  Default action is to simply return it.  */
  91     return wc;
  92
  93   return (wint_t) __ctype_toupper[idx];
  94 }