130 lines
2.5 KiB
C
130 lines
2.5 KiB
C
#include "ts_locale.h"
|
|
|
|
#include "utils/builtins.h"
|
|
#include "utils/pg_locale.h"
|
|
#include "mb/pg_wchar.h"
|
|
|
|
|
|
#ifdef TS_USE_WIDE
|
|
|
|
#ifdef WIN32
|
|
|
|
size_t
|
|
wchar2char(char *to, const wchar_t *from, size_t len)
|
|
{
|
|
if (GetDatabaseEncoding() == PG_UTF8)
|
|
{
|
|
int r,
|
|
nbytes;
|
|
|
|
if (len == 0)
|
|
return 0;
|
|
|
|
/* in any case, *to should be allocated with enough space */
|
|
nbytes = WideCharToMultiByte(CP_UTF8, 0, from, len, NULL, 0, NULL, NULL);
|
|
if (nbytes == 0)
|
|
ereport(ERROR,
|
|
(errcode(ERRCODE_CHARACTER_NOT_IN_REPERTOIRE),
|
|
errmsg("UTF-16 to UTF-8 translation failed: %lu",
|
|
GetLastError())));
|
|
|
|
r = WideCharToMultiByte(CP_UTF8, 0, from, len, to, nbytes,
|
|
NULL, NULL);
|
|
|
|
if (r == 0)
|
|
ereport(ERROR,
|
|
(errcode(ERRCODE_CHARACTER_NOT_IN_REPERTOIRE),
|
|
errmsg("UTF-16 to UTF-8 translation failed: %lu",
|
|
GetLastError())));
|
|
return r;
|
|
}
|
|
|
|
return wcstombs(to, from, len);
|
|
}
|
|
|
|
size_t
|
|
char2wchar(wchar_t *to, const char *from, size_t len)
|
|
{
|
|
if (GetDatabaseEncoding() == PG_UTF8)
|
|
{
|
|
int r;
|
|
|
|
if (len == 0)
|
|
return 0;
|
|
|
|
r = MultiByteToWideChar(CP_UTF8, 0, from, len, to, len);
|
|
|
|
if (!r)
|
|
{
|
|
pg_verifymbstr(from, len, false);
|
|
ereport(ERROR,
|
|
(errcode(ERRCODE_CHARACTER_NOT_IN_REPERTOIRE),
|
|
errmsg("invalid multibyte character for locale"),
|
|
errhint("The server's LC_CTYPE locale is probably incompatible with the database encoding.")));
|
|
}
|
|
|
|
Assert(r <= len);
|
|
|
|
return r;
|
|
}
|
|
|
|
return mbstowcs(to, from, len);
|
|
}
|
|
|
|
#endif /* WIN32 */
|
|
|
|
int
|
|
_t_isalpha( char *ptr ) {
|
|
wchar_t character;
|
|
|
|
char2wchar(&character, ptr, 1);
|
|
|
|
return iswalpha( (wint_t)character );
|
|
}
|
|
|
|
int
|
|
_t_isprint( char *ptr ) {
|
|
wchar_t character;
|
|
|
|
char2wchar(&character, ptr, 1);
|
|
|
|
return iswprint( (wint_t)character );
|
|
}
|
|
|
|
#endif /* TS_USE_WIDE */
|
|
|
|
char *
|
|
lowerstr(char *str)
|
|
{
|
|
char *ptr = str;
|
|
|
|
#ifdef TS_USE_WIDE
|
|
/*
|
|
* Use wide char code only when max encoding length > 1 and ctype != C.
|
|
* Some operating systems fail with multi-byte encodings and a C locale.
|
|
* Also, for a C locale there is no need to process as multibyte. From
|
|
* backend/utils/adt/oracle_compat.c Teodor
|
|
*/
|
|
if (pg_database_encoding_max_length() > 1 && !lc_ctype_is_c()) {
|
|
wchar_t *wstr, *wptr;
|
|
int len = strlen(str);
|
|
|
|
wptr = wstr = (wchar_t *) palloc(sizeof(wchar_t) * (len+1));
|
|
char2wchar(wstr, str, len+1);
|
|
while (*wptr) {
|
|
*wptr = towlower((wint_t) *wptr);
|
|
wptr++;
|
|
}
|
|
wchar2char(str, wstr, len);
|
|
pfree( wstr );
|
|
} else
|
|
#endif
|
|
while (*ptr)
|
|
{
|
|
*ptr = tolower(*(unsigned char *) ptr);
|
|
ptr++;
|
|
}
|
|
return str;
|
|
}
|
|
|