1 #ifndef __PDCLIB_LOCALE_H
2 #define __PDCLIB_LOCALE_H __PDCLIB_LOCALE_H
3 #include <_PDCLIB_int.h>
9 #define _PDCLIB_LOCALE_METHOD_TSS 't'
10 #define _PDCLIB_LOCALE_METHOD_THREAD_LOCAL 'T'
12 #if !defined(_PDCLIB_LOCALE_METHOD)
13 /* If undefined, no POSIX per thread locales */
14 static inline locale_t _PDCLIB_threadlocale( void )
16 return &_PDCLIB_global_locale;
18 #elif _PDCLIB_LOCALE_METHOD == _PDCLIB_LOCALE_METHOD_TSS
19 extern tss_t _PDCLIB_locale_tss;
20 static inline locale_t _PDCLIB_threadlocale( void )
22 locale_t l = tss_get(_PDCLIB_locale_tss);
24 l = &_PDCLIB_global_locale;
28 static inline void _PDCLIB_setthreadlocale( locale_t l )
30 if(tss_set(_PDCLIB_locale_tss, l) != thrd_success)
33 #elif _PDCLIB_LOCALE_METHOD == _PDCLIB_LOCALE_METHOD_THREAD_LOCAL
34 extern thread_local locale_t _PDCLIB_locale_tls;
35 #define _PDCLIB_threadlocale() (_PDCLIB_locale_tls || &_PDCLIB_global_locale)
36 static inline locale_t _PDCLIB_threadlocale( void )
38 locale_t l = _PDCLIB_locale_tls;
40 l = &_PDCLIB_global_locale;
44 static inline void _PDCLIB_setthreadlocale( locale_t l )
46 _PDCLIB_locale_tls = l;
49 #error Locale TSS method unspecified
52 /* -------------------------------------------------------------------------- */
53 /* <ctype.h> lookup tables */
54 /* -------------------------------------------------------------------------- */
56 #define _PDCLIB_CTYPE_ALPHA 1
57 #define _PDCLIB_CTYPE_BLANK 2
58 #define _PDCLIB_CTYPE_CNTRL 4
59 #define _PDCLIB_CTYPE_GRAPH 8
60 #define _PDCLIB_CTYPE_PUNCT 16
61 #define _PDCLIB_CTYPE_SPACE 32
62 #define _PDCLIB_CTYPE_LOWER 64
63 #define _PDCLIB_CTYPE_UPPER 128
64 #define _PDCLIB_CTYPE_DIGIT 256
65 #define _PDCLIB_CTYPE_XDIGT 512
67 #define _PDCLIB_WCTRANS_TOLOWER 1
68 #define _PDCLIB_WCTRANS_TOUPPER 2
70 typedef struct _PDCLIB_ctype
72 _PDCLIB_uint16_t flags;
75 unsigned char collation;
78 typedef struct _PDCLIB_wcinfo
81 _PDCLIB_uint16_t flags;
86 struct _PDCLIB_locale {
87 const _PDCLIB_charcodec_t _Codec;
91 /* XXX: Maybe re-evaluate constness of these later on? */
92 const _PDCLIB_wcinfo_t *_WCType;
93 _PDCLIB_size_t _WCTypeSize;
94 const _PDCLIB_ctype_t *_CType;
97 char *_ErrnoStr[_PDCLIB_ERRNO_MAX];
100 extern const _PDCLIB_wcinfo_t _PDCLIB_wcinfo[];
101 extern const size_t _PDCLIB_wcinfo_size;
103 static inline int _PDCLIB_wcinfo_cmp( const void * _key, const void * _obj )
105 _PDCLIB_uint32_t * key = (_PDCLIB_uint32_t *) _key;
106 _PDCLIB_wcinfo_t * obj = (_PDCLIB_wcinfo_t *) _obj;
107 return *key - obj->num;
110 static inline _PDCLIB_wcinfo_t * _PDCLIB_wcgetinfo( locale_t l, _PDCLIB_uint32_t num )
112 _PDCLIB_wcinfo_t *info = (_PDCLIB_wcinfo_t*)
113 bsearch( &num, l->_WCType, l->_WCTypeSize,
114 sizeof( l->_WCType[0] ), _PDCLIB_wcinfo_cmp );
119 static inline wint_t _PDCLIB_unpackwint( wint_t wc )
121 if( sizeof(_PDCLIB_wchar_t) == 2 && sizeof(_PDCLIB_wint_t) == 4 ) {
122 /* On UTF-16 platforms, as an extension accept a "packed surrogate"
123 * encoding. We accept the surrogate pairs either way
126 wint_t c = (wc & 0xF800F800);
127 if(c == (_PDCLIB_wint_t) 0xD800DC00) {
128 // MSW: Lead, LSW: Trail
129 wint_t lead = wc >> 16 & 0x3FF;
130 wint_t trail = wc & 0x3FF;
131 wc = lead << 10 | trail;
132 } else if(c == (_PDCLIB_wint_t) 0xDC00D800) {
133 // MSW: Trail, LSW: Lead
134 wint_t trail = wc >> 16 & 0x3FF;
135 wint_t lead = wc & 0x3FF;
136 wc = lead << 10 | trail;
143 /* Internal xlocale-style WCType API */
144 int _PDCLIB_iswalnum_l( wint_t _Wc, locale_t l );
145 int _PDCLIB_iswalpha_l( wint_t _Wc, locale_t l );
146 int _PDCLIB_iswblank_l( wint_t _Wc, locale_t l );
147 int _PDCLIB_iswcntrl_l( wint_t _Wc, locale_t l );
148 int _PDCLIB_iswdigit_l( wint_t _Wc, locale_t l );
149 int _PDCLIB_iswgraph_l( wint_t _Wc, locale_t l );
150 int _PDCLIB_iswlower_l( wint_t _Wc, locale_t l );
151 int _PDCLIB_iswprint_l( wint_t _Wc, locale_t l );
152 int _PDCLIB_iswpunct_l( wint_t _Wc, locale_t l );
153 int _PDCLIB_iswspace_l( wint_t _Wc, locale_t l );
154 int _PDCLIB_iswupper_l( wint_t _Wc, locale_t l );
155 int _PDCLIB_iswxdigit_l( wint_t _Wc, locale_t l );
156 int _PDCLIB_iswctype_l( wint_t _Wc, wctype_t _Desc, locale_t l );
157 wint_t _PDCLIB_towlower_l( wint_t _Wc, locale_t l );
158 wint_t _PDCLIB_towupper_l( wint_t _Wc, locale_t l );
159 wint_t _PDCLIB_towctrans_l( wint_t _Wc, wctrans_t _Desc, locale_t l );