wctype/wcfuncs.c

   1 /* Copyright (C) 1996, 1997, 1998, 1999, 2000 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 #include "wchar-lookup.h"
  25
  26 /* If the program is compiled without optimization the following declaration
  27    is not visible in the header.   */
  28 extern unsigned int *__ctype32_b;
  29
  30 /* These are not exported.  */
  31 extern const uint32_t *__ctype32_toupper;
  32 extern const uint32_t *__ctype32_tolower;
  33 extern const char *__ctype32_wctype[12];
  34 extern const char *__ctype32_wctrans[2];
  35
  36 /* Provide real-function versions of all the wctype macros.  */
  37
  38 #define func(name, type) \
  39   int                                                                         \
  40   __##name (wint_t wc)                                                        \
  41   {                                                                           \
  42     if (_NL_CURRENT_WORD (LC_CTYPE, _NL_CTYPE_HASH_SIZE) != 0)                \
  43       {                                                                       \
  44         /* Old locale format.  */                                             \
  45         size_t idx;                                                           \
  46                                                                               \
  47         idx = cname_lookup (wc);                                              \
  48         if (idx == ~((size_t) 0))                                             \
  49           return 0;                                                           \
  50                                                                               \
  51         return __ctype32_b[idx] & _ISwbit (type);                             \
  52       }                                                                       \
  53     else                                                                      \
  54       {                                                                       \
  55         /* New locale format.  */                                             \
  56         return wctype_table_lookup (__ctype32_wctype[type], wc);              \
  57       }                                                                       \
  58   }                                                                           \
  59   weak_alias (__##name, name)
  60
  61 #undef iswalnum
  62 func (iswalnum, __ISwalnum)
  63 #undef iswalpha
  64 func (iswalpha, __ISwalpha)
  65 #undef iswcntrl
  66 func (iswcntrl, __ISwcntrl)
  67 #undef iswdigit
  68 func (iswdigit, __ISwdigit)
  69 #undef iswlower
  70 func (iswlower, __ISwlower)
  71 #undef iswgraph
  72 func (iswgraph, __ISwgraph)
  73 #undef iswprint
  74 func (iswprint, __ISwprint)
  75 #undef iswpunct
  76 func (iswpunct, __ISwpunct)
  77 #undef iswspace
  78 func (iswspace, __ISwspace)
  79 #undef iswupper
  80 func (iswupper, __ISwupper)
  81 #undef iswxdigit
  82 func (iswxdigit, __ISwxdigit)
  83
  84 wint_t
  85 (towlower) (wc)
  86      wint_t wc;
  87 {
  88   if (_NL_CURRENT_WORD (LC_CTYPE, _NL_CTYPE_HASH_SIZE) != 0)
  89     {
  90       /* Old locale format.  */
  91       size_t idx;
  92
  93       idx = cname_lookup (wc);
  94       if (idx == ~((size_t) 0))
  95         /* Character is not known.  Default action is to simply return it.  */
  96         return wc;
  97
  98       return (wint_t) __ctype32_tolower[idx];
  99     }
 100   else
 101     {
 102       /* New locale format.  */
 103       return wctrans_table_lookup (__ctype32_wctrans[__TOW_tolower], wc);
 104     }
 105 }
 106
 107 wint_t
 108 (towupper) (wc)
 109      wint_t wc;
 110 {
 111   if (_NL_CURRENT_WORD (LC_CTYPE, _NL_CTYPE_HASH_SIZE) != 0)
 112     {
 113       /* Old locale format.  */
 114       size_t idx;
 115
 116       idx = cname_lookup (wc);
 117       if (idx == ~((size_t) 0))
 118         /* Character is not known.  Default action is to simply return it.  */
 119         return wc;
 120
 121       return (wint_t) __ctype32_toupper[idx];
 122     }
 123   else
 124     {
 125       /* New locale format.  */
 126       return wctrans_table_lookup (__ctype32_wctrans[__TOW_toupper], wc);
 127     }
 128 }