+extern const _PDCLIB_wcinfo_t _PDCLIB_wcinfo[];
+extern const size_t _PDCLIB_wcinfo_size;
+
+static inline int _PDCLIB_wcinfo_cmp( const void * _key, const void * _obj )
+{
+ _PDCLIB_int32_t * key = (_PDCLIB_int32_t *) _key;
+ _PDCLIB_wcinfo_t * obj = (_PDCLIB_wcinfo_t *) _obj;
+ if ( *key < obj->start )
+ {
+ return -1;
+ }
+ else if ( *key >= obj->start + obj->length )
+ {
+ return 1;
+ }
+ else
+ {
+ return 0;
+ }
+}
+
+static inline _PDCLIB_wcinfo_t * _PDCLIB_wcgetinfo( locale_t l, _PDCLIB_int32_t num )
+{
+ _PDCLIB_wcinfo_t *info = (_PDCLIB_wcinfo_t*)
+ bsearch( &num, l->_WCType, l->_WCTypeSize,
+ sizeof( l->_WCType[0] ), _PDCLIB_wcinfo_cmp );
+
+ return info;
+}
+
+static inline wint_t _PDCLIB_unpackwint( wint_t wc )
+{
+ if( sizeof(_PDCLIB_wchar_t) == 2 && sizeof(_PDCLIB_wint_t) == 4 ) {
+ /* On UTF-16 platforms, as an extension accept a "packed surrogate"
+ * encoding. We accept the surrogate pairs either way
+ */
+
+ wint_t c = (wc & 0xF800F800);
+ if(c == (_PDCLIB_wint_t) 0xD800DC00) {
+ // MSW: Lead, LSW: Trail
+ wint_t lead = wc >> 16 & 0x3FF;
+ wint_t trail = wc & 0x3FF;
+ wc = lead << 10 | trail;
+ } else if(c == (_PDCLIB_wint_t) 0xDC00D800) {
+ // MSW: Trail, LSW: Lead
+ wint_t trail = wc >> 16 & 0x3FF;
+ wint_t lead = wc & 0x3FF;
+ wc = lead << 10 | trail;
+ }
+
+ }
+ return wc;
+}
+
+/* Internal xlocale-style WCType API */
+int _PDCLIB_iswalnum_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswalpha_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswblank_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswcntrl_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswdigit_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswgraph_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswlower_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswprint_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswpunct_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswspace_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswupper_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswxdigit_l( wint_t _Wc, locale_t l );
+int _PDCLIB_iswctype_l( wint_t _Wc, wctype_t _Desc, locale_t l );
+wint_t _PDCLIB_towlower_l( wint_t _Wc, locale_t l );
+wint_t _PDCLIB_towupper_l( wint_t _Wc, locale_t l );
+wint_t _PDCLIB_towctrans_l( wint_t _Wc, wctrans_t _Desc, locale_t l );
+