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 <locale> 12 #include <cstdarg> // va_start, va_end 13 14 // FIXME: base currently unused. Needs manual work to construct the new locale 15 locale_t newlocale( int mask, const char * locale, locale_t /*base*/ ) 16 { 17 return _create_locale( mask, locale ); 18 } 19 locale_t uselocale( locale_t newloc ) 20 { 21 locale_t old_locale = _get_current_locale(); 22 if ( newloc == NULL ) 23 return old_locale; 24 // uselocale sets the thread's locale by definition, so unconditionally use thread-local locale 25 _configthreadlocale( _ENABLE_PER_THREAD_LOCALE ); 26 // uselocale sets all categories 27 setlocale( LC_ALL, newloc->locinfo->lc_category[LC_ALL].locale ); 28 // uselocale returns the old locale_t 29 return old_locale; 30 } 31 lconv *localeconv_l( locale_t loc ) 32 { 33 __locale_raii __current( uselocale(loc), uselocale ); 34 return localeconv(); 35 } 36 size_t mbrlen_l( const char *__restrict s, size_t n, 37 mbstate_t *__restrict ps, locale_t loc ) 38 { 39 __locale_raii __current( uselocale(loc), uselocale ); 40 return mbrlen( s, n, ps ); 41 } 42 size_t mbsrtowcs_l( wchar_t *__restrict dst, const char **__restrict src, 43 size_t len, mbstate_t *__restrict ps, locale_t loc ) 44 { 45 __locale_raii __current( uselocale(loc), uselocale ); 46 return mbsrtowcs( dst, src, len, ps ); 47 } 48 size_t wcrtomb_l( char *__restrict s, wchar_t wc, mbstate_t *__restrict ps, 49 locale_t loc ) 50 { 51 __locale_raii __current( uselocale(loc), uselocale ); 52 return wcrtomb( s, wc, ps ); 53 } 54 size_t mbrtowc_l( wchar_t *__restrict pwc, const char *__restrict s, 55 size_t n, mbstate_t *__restrict ps, locale_t loc ) 56 { 57 __locale_raii __current( uselocale(loc), uselocale ); 58 return mbrtowc( pwc, s, n, ps ); 59 } 60 size_t mbsnrtowcs_l( wchar_t *__restrict dst, const char **__restrict src, 61 size_t nms, size_t len, mbstate_t *__restrict ps, locale_t loc ) 62 { 63 __locale_raii __current( uselocale(loc), uselocale ); 64 return mbsnrtowcs( dst, src, nms, len, ps ); 65 } 66 size_t wcsnrtombs_l( char *__restrict dst, const wchar_t **__restrict src, 67 size_t nwc, size_t len, mbstate_t *__restrict ps, locale_t loc ) 68 { 69 __locale_raii __current( uselocale(loc), uselocale ); 70 return wcsnrtombs( dst, src, nwc, len, ps ); 71 } 72 wint_t btowc_l( int c, locale_t loc ) 73 { 74 __locale_raii __current( uselocale(loc), uselocale ); 75 return btowc( c ); 76 } 77 int wctob_l( wint_t c, locale_t loc ) 78 { 79 __locale_raii __current( uselocale(loc), uselocale ); 80 return wctob( c ); 81 } 82 83 int snprintf_l(char *ret, size_t n, locale_t loc, const char *format, ...) 84 { 85 __locale_raii __current( uselocale(loc), uselocale ); 86 va_list ap; 87 va_start( ap, format ); 88 int result = vsnprintf( ret, n, format, ap ); 89 va_end(ap); 90 return result; 91 } 92 93 int asprintf_l( char **ret, locale_t loc, const char *format, ... ) 94 { 95 va_list ap; 96 va_start( ap, format ); 97 int result = vasprintf_l( ret, loc, format, ap ); 98 va_end(ap); 99 return result; 100 } 101 int vasprintf_l( char **ret, locale_t loc, const char *format, va_list ap ) 102 { 103 __locale_raii __current( uselocale(loc), uselocale ); 104 return vasprintf( ret, format, ap ); 105 } 106
