1 /* PDCLib locale support <_PDCLIB_locale.h>
3 This file is part of the Public Domain C Library (PDCLib).
4 Permission is granted to use, modify, and / or redistribute at will.
7 #ifndef __PDCLIB_LOCALE_H
8 #define __PDCLIB_LOCALE_H __PDCLIB_LOCALE_H
10 #include "_PDCLIB_int.h"
17 #define _PDCLIB_LOCALE_METHOD_TSS 't'
18 #define _PDCLIB_LOCALE_METHOD_THREAD_LOCAL 'T'
20 #if !defined(_PDCLIB_LOCALE_METHOD)
21 /* If undefined, no POSIX per thread locales */
22 #define _PDCLIB_threadlocale() (&_PDCLIB_global_locale)
23 #elif _PDCLIB_LOCALE_METHOD == _PDCLIB_LOCALE_METHOD_TSS
24 extern tss_t _PDCLIB_locale_tss;
25 static inline locale_t _PDCLIB_threadlocale( void )
27 locale_t l = tss_get(_PDCLIB_locale_tss);
29 l = &_PDCLIB_global_locale;
33 static inline void _PDCLIB_setthreadlocale( locale_t l )
35 if ( tss_set( _PDCLIB_locale_tss, l ) != thrd_success )
38 #elif _PDCLIB_LOCALE_METHOD == _PDCLIB_LOCALE_METHOD_THREAD_LOCAL
39 extern thread_local locale_t _PDCLIB_locale_tls;
40 #define _PDCLIB_threadlocale() ( _PDCLIB_locale_tls || &_PDCLIB_global_locale )
41 static inline locale_t _PDCLIB_threadlocale( void )
43 locale_t l = _PDCLIB_locale_tls;
45 l = &_PDCLIB_global_locale;
49 static inline void _PDCLIB_setthreadlocale( locale_t l )
51 _PDCLIB_locale_tls = l;
54 #error Locale TSS method unspecified
57 /* -------------------------------------------------------------------------- */
58 /* <ctype.h> lookup tables */
59 /* -------------------------------------------------------------------------- */
61 #define _PDCLIB_CTYPE_ALPHA 1
62 #define _PDCLIB_CTYPE_BLANK 2
63 #define _PDCLIB_CTYPE_CNTRL 4
64 #define _PDCLIB_CTYPE_GRAPH 8
65 #define _PDCLIB_CTYPE_PUNCT 16
66 #define _PDCLIB_CTYPE_SPACE 32
67 #define _PDCLIB_CTYPE_LOWER 64
68 #define _PDCLIB_CTYPE_UPPER 128
69 #define _PDCLIB_CTYPE_DIGIT 256
70 #define _PDCLIB_CTYPE_XDIGT 512
72 #define _PDCLIB_WCTRANS_TOLOWER 1
73 #define _PDCLIB_WCTRANS_TOUPPER 2
75 typedef struct _PDCLIB_ctype
77 _PDCLIB_uint16_t flags;
80 unsigned char collation;
83 typedef struct _PDCLIB_wcinfo
86 _PDCLIB_uint16_t length;
87 _PDCLIB_uint16_t flags;
88 _PDCLIB_wint_t lower_delta;
89 _PDCLIB_wint_t upper_delta;
92 struct _PDCLIB_locale {
93 const struct _PDCLIB_charcodec_t * _Codec;
97 /* XXX: Maybe re-evaluate constness of these later on? */
98 const _PDCLIB_wcinfo_t *_WCType;
99 _PDCLIB_size_t _WCTypeSize;
100 const _PDCLIB_ctype_t *_CType;
102 /* perror/strerror */
103 const char * const _ErrnoStr[_PDCLIB_ERRNO_MAX];
106 extern const _PDCLIB_wcinfo_t _PDCLIB_wcinfo[];
107 extern const size_t _PDCLIB_wcinfo_size;
109 static inline int _PDCLIB_wcinfo_cmp( const void * _key, const void * _obj )
111 _PDCLIB_int32_t * key = (_PDCLIB_int32_t *) _key;
112 _PDCLIB_wcinfo_t * obj = (_PDCLIB_wcinfo_t *) _obj;
113 if ( *key < obj->start )
117 else if ( *key >= obj->start + obj->length )
127 static inline _PDCLIB_wcinfo_t * _PDCLIB_wcgetinfo( locale_t l, _PDCLIB_int32_t num )
129 _PDCLIB_wcinfo_t *info = (_PDCLIB_wcinfo_t*)
130 bsearch( &num, l->_WCType, l->_WCTypeSize,
131 sizeof( l->_WCType[0] ), _PDCLIB_wcinfo_cmp );
136 static inline wint_t _PDCLIB_unpackwint( wint_t wc )
138 if( sizeof(_PDCLIB_wchar_t) == 2 && sizeof(_PDCLIB_wint_t) == 4 ) {
139 /* On UTF-16 platforms, as an extension accept a "packed surrogate"
140 * encoding. We accept the surrogate pairs either way
143 wint_t c = (wc & 0xF800F800);
144 if(c == (_PDCLIB_wint_t) 0xD800DC00) {
145 // MSW: Lead, LSW: Trail
146 wint_t lead = wc >> 16 & 0x3FF;
147 wint_t trail = wc & 0x3FF;
148 wc = lead << 10 | trail;
149 } else if(c == (_PDCLIB_wint_t) 0xDC00D800) {
150 // MSW: Trail, LSW: Lead
151 wint_t trail = wc >> 16 & 0x3FF;
152 wint_t lead = wc & 0x3FF;
153 wc = lead << 10 | trail;
160 /* Internal xlocale-style WCType API */
161 int _PDCLIB_iswalnum_l( wint_t _Wc, locale_t l );
162 int _PDCLIB_iswalpha_l( wint_t _Wc, locale_t l );
163 int _PDCLIB_iswblank_l( wint_t _Wc, locale_t l );
164 int _PDCLIB_iswcntrl_l( wint_t _Wc, locale_t l );
165 int _PDCLIB_iswdigit_l( wint_t _Wc, locale_t l );
166 int _PDCLIB_iswgraph_l( wint_t _Wc, locale_t l );
167 int _PDCLIB_iswlower_l( wint_t _Wc, locale_t l );
168 int _PDCLIB_iswprint_l( wint_t _Wc, locale_t l );
169 int _PDCLIB_iswpunct_l( wint_t _Wc, locale_t l );
170 int _PDCLIB_iswspace_l( wint_t _Wc, locale_t l );
171 int _PDCLIB_iswupper_l( wint_t _Wc, locale_t l );
172 int _PDCLIB_iswxdigit_l( wint_t _Wc, locale_t l );
173 int _PDCLIB_iswctype_l( wint_t _Wc, wctype_t _Desc, locale_t l );
174 wint_t _PDCLIB_towlower_l( wint_t _Wc, locale_t l );
175 wint_t _PDCLIB_towupper_l( wint_t _Wc, locale_t l );
176 wint_t _PDCLIB_towctrans_l( wint_t _Wc, wctrans_t _Desc, locale_t l );