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
newlocale(int mask,const char * locale,locale_t)16 locale_t newlocale( int mask, const char * locale, locale_t /*base*/ )
17 {
18 return _create_locale( mask, locale );
19 }
uselocale(locale_t newloc)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 }
localeconv_l(locale_t loc)32 lconv *localeconv_l( locale_t loc )
33 {
34 __locale_raii __current( uselocale(loc), uselocale );
35 return localeconv();
36 }
mbrlen_l(const char * __restrict__ s,size_t n,mbstate_t * __restrict__ ps,locale_t loc)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 }
mbsrtowcs_l(wchar_t * __restrict__ dst,const char ** __restrict__ src,size_t len,mbstate_t * __restrict__ ps,locale_t loc)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 }
wcrtomb_l(char * __restrict__ s,wchar_t wc,mbstate_t * __restrict__ ps,locale_t loc)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 }
mbrtowc_l(wchar_t * __restrict__ pwc,const char * __restrict__ s,size_t n,mbstate_t * __restrict__ ps,locale_t loc)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 }
mbsnrtowcs_l(wchar_t * __restrict__ dst,const char ** __restrict__ src,size_t nms,size_t len,mbstate_t * __restrict__ ps,locale_t loc)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 }
wcsnrtombs_l(char * __restrict__ dst,const wchar_t ** __restrict__ src,size_t nwc,size_t len,mbstate_t * __restrict__ ps,locale_t loc)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 }
btowc_l(int c,locale_t loc)73 wint_t btowc_l( int c, locale_t loc )
74 {
75 __locale_raii __current( uselocale(loc), uselocale );
76 return btowc( c );
77 }
wctob_l(wint_t c,locale_t loc)78 int wctob_l( wint_t c, locale_t loc )
79 {
80 __locale_raii __current( uselocale(loc), uselocale );
81 return wctob( c );
82 }
83
asprintf_l(char ** ret,locale_t loc,const char * format,...)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 }
vasprintf_l(char ** ret,locale_t loc,const char * format,va_list ap)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