1 // -*- C++ -*- 2 //===-------------------- support/win32/locale_win32.cpp ------------------===// 3 // 4 // The LLVM Compiler Infrastructure 5 // 6 // This file is dual licensed under the MIT and the University of Illinois Open 7 // Source Licenses. See LICENSE.TXT for details. 8 // 9 //===----------------------------------------------------------------------===// 10 11 #include "support/win32/locale_win32.h" 12 #include <cstdarg> // va_start, va_end 13 #include <cwchar> // mbstate_t 14 15 // FIXME: base currently unused. Needs manual work to construct the new locale 16 locale_t newlocale( int mask, const char * locale, locale_t /*base*/ ) 17 { 18 return _create_locale( mask, locale ); 19 } 20 locale_t uselocale( locale_t newloc ) 21 { 22 locale_t old_locale = _get_current_locale(); 23 if ( newloc == NULL ) 24 return old_locale; 25 // uselocale sets the thread's locale by definition, so unconditionally use thread-local locale 26 _configthreadlocale( _ENABLE_PER_THREAD_LOCALE ); 27 // uselocale sets all categories 28 setlocale( LC_ALL, newloc->locinfo->lc_category[LC_ALL].locale ); 29 // uselocale returns the old locale_t 30 return old_locale; 31 } 32 lconv *localeconv_l( locale_t loc ) 33 { 34 __locale_raii __current( uselocale(loc), uselocale ); 35 return localeconv(); 36 } 37 size_t mbrlen_l( const char *__restrict__ s, size_t n, 38 mbstate_t *__restrict__ ps, locale_t loc ) 39 { 40 __locale_raii __current( uselocale(loc), uselocale ); 41 return mbrlen( s, n, ps ); 42 } 43 size_t mbsrtowcs_l( wchar_t *__restrict__ dst, const char **__restrict__ src, 44 size_t len, mbstate_t *__restrict__ ps, locale_t loc ) 45 { 46 __locale_raii __current( uselocale(loc), uselocale ); 47 return mbsrtowcs( dst, src, len, ps ); 48 } 49 size_t wcrtomb_l( char *__restrict__ s, wchar_t wc, mbstate_t *__restrict__ ps, 50 locale_t loc ) 51 { 52 __locale_raii __current( uselocale(loc), uselocale ); 53 return wcrtomb( s, wc, ps ); 54 } 55 size_t mbrtowc_l( wchar_t *__restrict__ pwc, const char *__restrict__ s, 56 size_t n, mbstate_t *__restrict__ ps, locale_t loc ) 57 { 58 __locale_raii __current( uselocale(loc), uselocale ); 59 return mbrtowc( pwc, s, n, ps ); 60 } 61 size_t mbsnrtowcs_l( wchar_t *__restrict__ dst, const char **__restrict__ src, 62 size_t nms, size_t len, mbstate_t *__restrict__ ps, locale_t loc ) 63 { 64 __locale_raii __current( uselocale(loc), uselocale ); 65 return mbsnrtowcs( dst, src, nms, len, ps ); 66 } 67 size_t wcsnrtombs_l( char *__restrict__ dst, const wchar_t **__restrict__ src, 68 size_t nwc, size_t len, mbstate_t *__restrict__ ps, locale_t loc ) 69 { 70 __locale_raii __current( uselocale(loc), uselocale ); 71 return wcsnrtombs( dst, src, nwc, len, ps ); 72 } 73 wint_t btowc_l( int c, locale_t loc ) 74 { 75 __locale_raii __current( uselocale(loc), uselocale ); 76 return btowc( c ); 77 } 78 int wctob_l( wint_t c, locale_t loc ) 79 { 80 __locale_raii __current( uselocale(loc), uselocale ); 81 return wctob( c ); 82 } 83 84 int asprintf_l( char **ret, locale_t loc, const char *format, ... ) 85 { 86 va_list ap; 87 va_start( ap, format ); 88 int result = vasprintf_l( ret, loc, format, ap ); 89 va_end(ap); 90 return result; 91 } 92 int vasprintf_l( char **ret, locale_t loc, const char *format, va_list ap ) 93 { 94 __locale_raii __current( uselocale(loc), uselocale ); 95 return vasprintf( ret, format, ap ); 96 } 97