lib/libc/locale/iswctype.c

   1 /*      $NetBSD: src/lib/libc/locale/iswctype.c,v 1.14 2003/08/07 16:43:04 agc Exp $    */
   2 /*      $DragonFly: src/lib/libc/locale/iswctype.c,v 1.1 2005/03/16 06:54:41 joerg Exp $ */
   3
   4 /*
   5  * Copyright (c) 1989 The Regents of the University of California.
   6  * All rights reserved.
   7  * (c) UNIX System Laboratories, Inc.
   8  * All or some portions of this file are derived from material licensed
   9  * to the University of California by American Telephone and Telegraph
  10  * Co. or Unix System Laboratories, Inc. and are reproduced herein with
  11  * the permission of UNIX System Laboratories, Inc.
  12  *
  13  * Redistribution and use in source and binary forms, with or without
  14  * modification, are permitted provided that the following conditions
  15  * are met:
  16  * 1. Redistributions of source code must retain the above copyright
  17  *    notice, this list of conditions and the following disclaimer.
  18  * 2. Redistributions in binary form must reproduce the above copyright
  19  *    notice, this list of conditions and the following disclaimer in the
  20  *    documentation and/or other materials provided with the distribution.
  21  * 3. Neither the name of the University nor the names of its contributors
  22  *    may be used to endorse or promote products derived from this software
  23  *    without specific prior written permission.
  24  *
  25  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  26  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  27  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  28  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  29  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  30  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  31  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  32  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  33  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  34  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  35  * SUCH DAMAGE.
  36  */
  37
  38 #include <ctype.h>
  39 #include <errno.h>
  40 #include <string.h>
  41 #include <wchar.h>
  42 #include <wctype.h>
  43 #include "rune.h"
  44 #include "runetype.h"
  45 #include "rune_local.h"
  46 #include "_wctrans_local.h"
  47
  48 static _RuneType __runetype_w(wint_t);
  49 static int      __isctype_w(wint_t, _RuneType);
  50 static wint_t   __toupper_w(wint_t);
  51 static wint_t   __tolower_w(wint_t);
  52
  53 static _RuneType
  54 __runetype_w(wint_t c)
  55 {
  56         _RuneLocale *rl = _CurrentRuneLocale;
  57
  58         if (_RUNE_ISCACHED(c))
  59                 return(rl->rl_runetype[c]);
  60         else
  61                 return(___runetype_mb(c));
  62 }
  63
  64 static int
  65 __isctype_w(wint_t c, _RuneType f)
  66 {
  67         if (__runetype_w(c) & f)
  68                 return(1);
  69         else
  70                 return(0);
  71 }
  72
  73 static wint_t
  74 __toupper_w(wint_t c)
  75 {
  76         return(_towctrans(c, _wctrans_upper(_CurrentRuneLocale)));
  77 }
  78
  79 static wint_t
  80 __tolower_w(wint_t c)
  81 {
  82         return(_towctrans(c, _wctrans_lower(_CurrentRuneLocale)));
  83 }
  84
  85 #undef iswalnum
  86 int
  87 iswalnum(wint_t c)
  88 {
  89         return(__isctype_w((c), _CTYPE_A|_CTYPE_D));
  90 }
  91
  92 #undef iswalpha
  93 int
  94 iswalpha(wint_t c)
  95 {
  96         return(__isctype_w((c), _CTYPE_A));
  97 }
  98
  99 #undef iswblank
 100 int
 101 iswblank(wint_t c)
 102 {
 103         return(__isctype_w((c), _CTYPE_B));
 104 }
 105
 106 #undef iswcntrl
 107 int
 108 iswcntrl(wint_t c)
 109 {
 110         return(__isctype_w((c), _CTYPE_C));
 111 }
 112
 113 #undef iswdigit
 114 int
 115 iswdigit(wint_t c)
 116 {
 117         return(__isctype_w((c), _CTYPE_D));
 118 }
 119
 120 #undef iswgraph
 121 int
 122 iswgraph(wint_t c)
 123 {
 124         return(__isctype_w((c), _CTYPE_G));
 125 }
 126
 127 #undef iswlower
 128 int
 129 iswlower(wint_t c)
 130 {
 131         return(__isctype_w((c), _CTYPE_L));
 132 }
 133
 134 #undef iswprint
 135 int
 136 iswprint(wint_t c)
 137 {
 138         return(__isctype_w((c), _CTYPE_R));
 139 }
 140
 141 #undef iswpunct
 142 int
 143 iswpunct(wint_t c)
 144 {
 145         return(__isctype_w((c), _CTYPE_P));
 146 }
 147
 148 #undef iswspace
 149 int
 150 iswspace(wint_t c)
 151 {
 152         return(__isctype_w((c), _CTYPE_S));
 153 }
 154
 155 #undef iswupper
 156 int
 157 iswupper(wint_t c)
 158 {
 159         return(__isctype_w((c), _CTYPE_U));
 160 }
 161
 162 #undef iswxdigit
 163 int
 164 iswxdigit(wint_t c)
 165 {
 166         return(__isctype_w((c), _CTYPE_X));
 167 }
 168
 169 #undef towupper
 170 wint_t
 171 towupper(wint_t c)
 172 {
 173         return(__toupper_w(c));
 174 }
 175
 176 #undef towlower
 177 wint_t
 178 towlower(wint_t c)
 179 {
 180         return(__tolower_w(c));
 181 }
 182
 183 #undef wcwidth
 184 int
 185 wcwidth(wchar_t c)
 186 {
 187         return(((unsigned)__runetype_w(c) & _CTYPE_SWM) >> _CTYPE_SWS);
 188 }
 189
 190 #undef wctrans
 191 wctrans_t
 192 wctrans(const char *charclass)
 193 {
 194         int i;
 195         _RuneLocale *rl = _CurrentRuneLocale;
 196
 197         if (rl->rl_wctrans[_WCTRANS_INDEX_LOWER].te_name == NULL)
 198                 _wctrans_init(rl);
 199
 200         for (i = 0; i < _WCTRANS_NINDEXES; i++) {
 201                 if (strcmp(rl->rl_wctrans[i].te_name, charclass) == 0)
 202                         return((wctrans_t)&rl->rl_wctrans[i]);
 203         }
 204
 205         return((wctrans_t)NULL);
 206 }
 207
 208 #undef towctrans
 209 wint_t
 210 towctrans(wint_t c, wctrans_t desc)
 211 {
 212         if (desc == NULL) {
 213                 errno = EINVAL;
 214                 return(c);
 215         }
 216         return(_towctrans(c, (_WCTransEntry *)desc));
 217 }
 218
 219 #undef wctype
 220 wctype_t
 221 wctype(const char *property)
 222 {
 223         int i;
 224         _RuneLocale *rl = _CurrentRuneLocale;
 225
 226         for (i=0; i < _WCTYPE_NINDEXES; i++) {
 227                 if (strcmp(rl->rl_wctype[i].te_name, property) == 0)
 228                         return((wctype_t)&rl->rl_wctype[i]);
 229         }
 230         return((wctype_t)NULL);
 231 }
 232
 233 #undef iswctype
 234 int
 235 iswctype(wint_t c, wctype_t charclass)
 236 {
 237         /*
 238          * SUSv3: If charclass is 0, iswctype() shall return 0.
 239          */
 240         if (charclass == (wctype_t)0)
 241                 return(0);
 242
 243         return (__isctype_w(c, ((_WCTypeEntry *)charclass)->te_mask));
 244 }