lib/libc/locale/iswctype_mb.c

   1 /* $NetBSD: iswctype_mb.c,v 1.13 2013/05/17 12:55:57 joerg Exp $ */
   2
   3 /*-
   4  * Copyright (c)2008 Citrus Project,
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #include <sys/cdefs.h>
  30 #if defined(LIBC_SCCS) && !defined(lint)
  31 __RCSID("$NetBSD: iswctype_mb.c,v 1.13 2013/05/17 12:55:57 joerg Exp $");
  32 #endif /* LIBC_SCCS and not lint */
  33
  34 #include "namespace.h"
  35 #include <sys/types.h>
  36 #include <assert.h>
  37 #include <errno.h>
  38 #define __SETLOCALE_SOURCE__
  39 #include <locale.h>
  40 #include <string.h>
  41 #include <wchar.h>
  42 #include <wctype.h>
  43
  44 #include "setlocale_local.h"
  45
  46 #include "runetype_local.h"
  47 #include "_wctype_local.h"
  48 #include "_wctrans_local.h"
  49
  50 #define _RUNE_LOCALE(loc) ((_RuneLocale const *) \
  51     (loc)->part_impl[(size_t)LC_CTYPE])
  52
  53 #define _ISWCTYPE_FUNC(name, index)                     \
  54 int                                                     \
  55 isw##name##_l(wint_t wc, locale_t loc)                  \
  56 {                                                       \
  57         _RuneLocale const *rl;                          \
  58         _WCTypeEntry const *te;                         \
  59                                                         \
  60         rl = _RUNE_LOCALE(loc);                         \
  61         te = &rl->rl_wctype[index];                     \
  62         return _iswctype_priv(rl, wc, te);              \
  63 }                                                       \
  64 int                                                     \
  65 isw##name(wint_t wc)                                    \
  66 {                                                       \
  67         return isw##name##_l(wc, _current_locale());    \
  68 }
  69
  70 _ISWCTYPE_FUNC(alnum,  _WCTYPE_INDEX_ALNUM)
  71 _ISWCTYPE_FUNC(alpha,  _WCTYPE_INDEX_ALPHA)
  72 _ISWCTYPE_FUNC(blank,  _WCTYPE_INDEX_BLANK)
  73 _ISWCTYPE_FUNC(cntrl,  _WCTYPE_INDEX_CNTRL)
  74 _ISWCTYPE_FUNC(digit,  _WCTYPE_INDEX_DIGIT)
  75 _ISWCTYPE_FUNC(graph,  _WCTYPE_INDEX_GRAPH)
  76 _ISWCTYPE_FUNC(lower,  _WCTYPE_INDEX_LOWER)
  77 _ISWCTYPE_FUNC(print,  _WCTYPE_INDEX_PRINT)
  78 _ISWCTYPE_FUNC(punct,  _WCTYPE_INDEX_PUNCT)
  79 _ISWCTYPE_FUNC(space,  _WCTYPE_INDEX_SPACE)
  80 _ISWCTYPE_FUNC(upper,  _WCTYPE_INDEX_UPPER)
  81 _ISWCTYPE_FUNC(xdigit, _WCTYPE_INDEX_XDIGIT)
  82
  83 #define _TOWCTRANS_FUNC(name, index)                    \
  84 wint_t                                                  \
  85 tow##name##_l(wint_t wc, locale_t loc)                  \
  86 {                                                       \
  87         _RuneLocale const *rl;                          \
  88         _WCTransEntry const *te;                        \
  89                                                         \
  90         rl = _RUNE_LOCALE(loc);                         \
  91         te = &rl->rl_wctrans[index];                    \
  92         return _towctrans_priv(wc, te);                 \
  93 }                                                       \
  94 wint_t                                                  \
  95 tow##name(wint_t wc)                                    \
  96 {                                                       \
  97         return tow##name##_l(wc, _current_locale());    \
  98 }
  99 _TOWCTRANS_FUNC(upper, _WCTRANS_INDEX_UPPER)
 100 _TOWCTRANS_FUNC(lower, _WCTRANS_INDEX_LOWER)
 101
 102 wctype_t
 103 wctype_l(const char *charclass, locale_t loc)
 104 {
 105         _RuneLocale const *rl;
 106         size_t i;
 107
 108         rl = _RUNE_LOCALE(loc);
 109         for (i = 0; i < _WCTYPE_NINDEXES; ++i) {
 110                 if (!strcmp(rl->rl_wctype[i].te_name, charclass))
 111                         return (wctype_t)__UNCONST(&rl->rl_wctype[i]);
 112         }
 113         return (wctype_t)NULL;
 114 }
 115
 116 wctype_t
 117 wctype(const char *charclass)
 118 {
 119         return wctype_l(charclass, _current_locale());
 120 }
 121
 122 wctrans_t
 123 wctrans_l(const char *charmap, locale_t loc)
 124 {
 125         _RuneLocale const *rl;
 126         size_t i;
 127
 128         rl = _RUNE_LOCALE(loc);
 129         for (i = 0; i < _WCTRANS_NINDEXES; ++i) {
 130                 _DIAGASSERT(rl->rl_wctrans[i].te_name != NULL);
 131                 if (!strcmp(rl->rl_wctrans[i].te_name, charmap))
 132                         return (wctrans_t)__UNCONST(&rl->rl_wctype[i]);
 133         }
 134         return (wctrans_t)NULL;
 135 }
 136
 137 wctrans_t
 138 wctrans(const char *charmap)
 139 {
 140         return wctrans_l(charmap, _current_locale());
 141 }
 142
 143 int
 144 iswctype_l(wint_t wc, wctype_t charclass, locale_t loc)
 145 {
 146         _RuneLocale const *rl;
 147         _WCTypeEntry const *te;
 148
 149         if (charclass == NULL) {
 150                 errno = EINVAL;
 151                 return 0;
 152         }
 153
 154         rl = _RUNE_LOCALE(loc);
 155         te = (_WCTypeEntry const *)(void *)charclass;
 156         return _iswctype_priv(rl, wc, te);
 157 }
 158
 159 int
 160 iswctype(wint_t wc, wctype_t charclass)
 161 {
 162         return iswctype_l(wc, charclass, _current_locale());
 163 }
 164
 165 wint_t
 166 towctrans(wint_t wc, wctrans_t charmap)
 167 {
 168         _WCTransEntry const *te;
 169
 170         if (charmap == NULL) {
 171                 errno = EINVAL;
 172                 return wc;
 173         }
 174         te = (_WCTransEntry const *)(void *)charmap;
 175         return _towctrans_priv(wc, te);
 176 }
 177
 178 /* ARGSUSED */
 179 wint_t
 180 towctrans_l(wint_t wc, wctrans_t charmap, locale_t loc)
 181 {
 182         return towctrans(wc, charmap);
 183 }
 184
 185 __weak_alias(wcwidth,_wcwidth)
 186 __weak_alias(wcwidth_l,_wcwidth_l)
 187
 188 int
 189 wcwidth_l(wchar_t wc, locale_t loc)
 190 {
 191         _RuneLocale const *rl;
 192         _RuneType x;
 193
 194         if (wc == L'\0')
 195                 return 0;
 196
 197         rl = _RUNE_LOCALE(loc);
 198         x = _runetype_priv(rl, wc);
 199         if (x & _RUNETYPE_R)
 200                 return ((unsigned)x & _RUNETYPE_SWM) >> _RUNETYPE_SWS;
 201         return -1;
 202 }
 203
 204 int
 205 wcwidth(wchar_t wc)
 206 {
 207         return wcwidth_l(wc, _current_locale());
 208 }
 209
 210 int
 211 wcswidth_l(const wchar_t * __restrict ws, size_t wn, locale_t loc)
 212 {
 213         _RuneLocale const *rl;
 214         _RuneType x;
 215         int width;
 216
 217         _DIAGASSERT(ws != NULL);
 218
 219         rl = _RUNE_LOCALE(loc);
 220         width = 0;
 221         while (wn > 0 && *ws != L'\0') {
 222                 x = _runetype_priv(rl, *ws);
 223                 if ((x & _RUNETYPE_R) == 0)
 224                         return -1;
 225                 width += ((unsigned)x & _RUNETYPE_SWM) >> _RUNETYPE_SWS;
 226                 ++ws, --wn;
 227         }
 228         return width;
 229 }
 230
 231 int
 232 wcswidth(const wchar_t * __restrict ws, size_t wn)
 233 {
 234         return wcswidth_l(ws, wn, _current_locale());
 235 }