81 lines
1.6 KiB
C
81 lines
1.6 KiB
C
|
/*
|
||
|
|
* $Id: ctype.c 132 2008-03-17 10:27:02Z baconevi $
|
||
|
|
*
|
||
|
|
* {License}
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <ase/cmn/chr.h>
|
||
|
|
|
||
|
|
#if defined(ASE_CHAR_IS_MCHAR)
|
||
|
|
|
||
|
|
#include <ctype.h>
|
||
|
|
|
||
|
|
static ase_bool_t ccls_is (void* data, ase_cint_t c, ase_ccls_type_t type)
|
||
|
|
{
|
||
|
|
/* TODO: use GetStringTypeW/A for WIN32 to implement these */
|
||
|
|
}
|
||
|
|
|
||
|
|
static ase_cint_t ccls_to (void* data, ase_cint_t c, in type)
|
||
|
|
{
|
||
|
|
ASE_ASSERTX (type >= ASE_CCLS_UPPER && type <= ASE_CCLS_LOWER,
|
||
|
|
"The character type should be one of ASE_CCLS_UPPER and ASE_CCLS_LOWER");
|
||
|
|
|
||
|
|
if (type == ASE_CCLS_UPPER) return toupper(c);
|
||
|
|
if (type == ASE_CCLS_LOWER) return tolower(c);
|
||
|
|
return c;
|
||
|
|
}
|
||
|
|
|
||
|
|
#elif defined(ASE_CHAR_IS_WCHAR)
|
||
|
|
|
||
|
|
#include <wctype.h>
|
||
|
|
|
||
|
|
static ase_bool_t ccls_is (void* data, ase_cint_t c, ase_ccls_type_t type)
|
||
|
|
{
|
||
|
|
static wctype_t desc[] =
|
||
|
|
{
|
||
|
|
wctype("upper"),
|
||
|
|
wctype("lower"),
|
||
|
|
wctype("alpha"),
|
||
|
|
wctype("digit"),
|
||
|
|
wctype("xdigit"),
|
||
|
|
wctype("alnum"),
|
||
|
|
wctype("space"),
|
||
|
|
wctype("print"),
|
||
|
|
wctype("graph"),
|
||
|
|
wctype("cntrl"),
|
||
|
|
wctype("punct")
|
||
|
|
};
|
||
|
|
|
||
|
|
ASE_ASSERTX (type >= ASE_CCLS_UPPER && type <= ASE_CCLS_PUNCT,
|
||
|
|
"The character type should be one of ase_ccls_type_t values");
|
||
|
|
|
||
|
|
return iswctype (c, desc[type]);
|
||
|
|
}
|
||
|
|
|
||
|
|
static ase_cint_t ccls_to (void* data, ase_cint_t c, in type)
|
||
|
|
{
|
||
|
|
static wctype_t desc[] =
|
||
|
|
{
|
||
|
|
wctrans("toupper"),
|
||
|
|
wctrans("tolower")
|
||
|
|
};
|
||
|
|
|
||
|
|
ASE_ASSERTX (type >= ASE_CCLS_UPPER && type <= ASE_CCLS_LOWER,
|
||
|
|
"The character type should be one of ASE_CCLS_UPPER and ASE_CCLS_LOWER");
|
||
|
|
|
||
|
|
return towctrans (c, desc[type]);
|
||
|
|
}
|
||
|
|
|
||
|
|
#else
|
||
|
|
#error unsupported character type
|
||
|
|
#endif
|
||
|
|
|
||
|
|
static ase_ccls_t ccls =
|
||
|
|
{
|
||
|
|
ccls_is,
|
||
|
|
ccls_to,
|
||
|
|
ASE_NULL
|
||
|
|
};
|
||
|
|
|
||
|
|
ase_ccls_t* ase_ccls = &ccls;
|