/*
|
* Copyright (C) 2008 The Android Open Source Project
|
* All rights reserved.
|
*
|
* Redistribution and use in source and binary forms, with or without
|
* modification, are permitted provided that the following conditions
|
* are met:
|
* * Redistributions of source code must retain the above copyright
|
* notice, this list of conditions and the following disclaimer.
|
* * Redistributions in binary form must reproduce the above copyright
|
* notice, this list of conditions and the following disclaimer in
|
* the documentation and/or other materials provided with the
|
* distribution.
|
*
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
|
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
|
* OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
|
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
|
* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
* SUCH DAMAGE.
|
*/
|
|
#include <wctype.h>
|
|
#include <ctype.h>
|
#include <errno.h>
|
#include <stdlib.h>
|
#include <string.h>
|
#include <wchar.h>
|
|
#include "private/icu.h"
|
|
enum {
|
WC_TYPE_INVALID = 0,
|
WC_TYPE_ALNUM,
|
WC_TYPE_ALPHA,
|
WC_TYPE_BLANK,
|
WC_TYPE_CNTRL,
|
WC_TYPE_DIGIT,
|
WC_TYPE_GRAPH,
|
WC_TYPE_LOWER,
|
WC_TYPE_PRINT,
|
WC_TYPE_PUNCT,
|
WC_TYPE_SPACE,
|
WC_TYPE_UPPER,
|
WC_TYPE_XDIGIT,
|
WC_TYPE_MAX
|
};
|
|
int iswalnum(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_POSIX_ALNUM, isalnum); }
|
int iswalpha(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_ALPHABETIC, isalpha); }
|
int iswblank(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_POSIX_BLANK, isblank); }
|
int iswgraph(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_POSIX_GRAPH, isgraph); }
|
int iswlower(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_LOWERCASE, islower); }
|
int iswprint(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_POSIX_PRINT, isprint); }
|
int iswspace(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_WHITE_SPACE, isspace); }
|
int iswupper(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_UPPERCASE, isupper); }
|
int iswxdigit(wint_t wc) { return __icu_hasBinaryProperty(wc, UCHAR_POSIX_XDIGIT, isxdigit); }
|
|
int iswcntrl(wint_t wc) {
|
typedef int8_t (*FnT)(UChar32);
|
static auto u_charType = reinterpret_cast<FnT>(__find_icu_symbol("u_charType"));
|
return u_charType ? (u_charType(wc) == U_CONTROL_CHAR) : iscntrl(wc);
|
}
|
|
int iswdigit(wint_t wc) {
|
typedef UBool (*FnT)(UChar32);
|
static auto u_isdigit = reinterpret_cast<FnT>(__find_icu_symbol("u_isdigit"));
|
return u_isdigit ? u_isdigit(wc) : isdigit(wc);
|
}
|
|
int iswpunct(wint_t wc) {
|
typedef UBool (*FnT)(UChar32);
|
static auto u_ispunct = reinterpret_cast<FnT>(__find_icu_symbol("u_ispunct"));
|
return u_ispunct ? u_ispunct(wc) : ispunct(wc);
|
}
|
|
int iswalnum_l(wint_t c, locale_t) { return iswalnum(c); }
|
int iswalpha_l(wint_t c, locale_t) { return iswalpha(c); }
|
int iswblank_l(wint_t c, locale_t) { return iswblank(c); }
|
int iswcntrl_l(wint_t c, locale_t) { return iswcntrl(c); }
|
int iswdigit_l(wint_t c, locale_t) { return iswdigit(c); }
|
int iswgraph_l(wint_t c, locale_t) { return iswgraph(c); }
|
int iswlower_l(wint_t c, locale_t) { return iswlower(c); }
|
int iswprint_l(wint_t c, locale_t) { return iswprint(c); }
|
int iswpunct_l(wint_t c, locale_t) { return iswpunct(c); }
|
int iswspace_l(wint_t c, locale_t) { return iswspace(c); }
|
int iswupper_l(wint_t c, locale_t) { return iswupper(c); }
|
int iswxdigit_l(wint_t c, locale_t) { return iswxdigit(c); }
|
|
int iswctype(wint_t wc, wctype_t char_class) {
|
switch (char_class) {
|
case WC_TYPE_ALNUM: return iswalnum(wc);
|
case WC_TYPE_ALPHA: return iswalpha(wc);
|
case WC_TYPE_BLANK: return iswblank(wc);
|
case WC_TYPE_CNTRL: return iswcntrl(wc);
|
case WC_TYPE_DIGIT: return iswdigit(wc);
|
case WC_TYPE_GRAPH: return iswgraph(wc);
|
case WC_TYPE_LOWER: return iswlower(wc);
|
case WC_TYPE_PRINT: return iswprint(wc);
|
case WC_TYPE_PUNCT: return iswpunct(wc);
|
case WC_TYPE_SPACE: return iswspace(wc);
|
case WC_TYPE_UPPER: return iswupper(wc);
|
case WC_TYPE_XDIGIT: return iswxdigit(wc);
|
default: return 0;
|
}
|
}
|
|
int iswctype_l(wint_t wc, wctype_t char_class, locale_t) {
|
return iswctype(wc, char_class);
|
}
|
|
wint_t towlower(wint_t wc) {
|
typedef UChar32 (*FnT)(UChar32);
|
static auto u_tolower = reinterpret_cast<FnT>(__find_icu_symbol("u_tolower"));
|
return u_tolower ? u_tolower(wc) : tolower(wc);
|
}
|
|
wint_t towupper(wint_t wc) {
|
typedef UChar32 (*FnT)(UChar32);
|
static auto u_toupper = reinterpret_cast<FnT>(__find_icu_symbol("u_toupper"));
|
return u_toupper ? u_toupper(wc) : toupper(wc);
|
}
|
|
wint_t towupper_l(wint_t c, locale_t) { return towupper(c); }
|
wint_t towlower_l(wint_t c, locale_t) { return towlower(c); }
|
|
wctype_t wctype(const char* property) {
|
static const char* const properties[WC_TYPE_MAX] = {
|
"<invalid>",
|
"alnum", "alpha", "blank", "cntrl", "digit", "graph",
|
"lower", "print", "punct", "space", "upper", "xdigit"
|
};
|
for (size_t i = 0; i < WC_TYPE_MAX; ++i) {
|
if (!strcmp(properties[i], property)) {
|
return static_cast<wctype_t>(i);
|
}
|
}
|
return static_cast<wctype_t>(0);
|
}
|
|
wctype_t wctype_l(const char* property, locale_t) {
|
return wctype(property);
|
}
|
|
static wctrans_t wctrans_tolower = wctrans_t(1);
|
static wctrans_t wctrans_toupper = wctrans_t(2);
|
|
wctrans_t wctrans(const char* name) {
|
if (strcmp(name, "tolower") == 0) return wctrans_tolower;
|
if (strcmp(name, "toupper") == 0) return wctrans_toupper;
|
return nullptr;
|
}
|
|
wctrans_t wctrans_l(const char* name, locale_t) {
|
return wctrans(name);
|
}
|
|
wint_t towctrans(wint_t c, wctrans_t t) {
|
if (t == wctrans_tolower) return towlower(c);
|
if (t == wctrans_toupper) return towupper(c);
|
errno = EINVAL;
|
return 0;
|
}
|
|
wint_t towctrans_l(wint_t c, wctrans_t t, locale_t) {
|
return towctrans(c, t);
|
}
|
