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 #include <memory>
14 #include <type_traits>
15 
16 using std::__libcpp_locale_guard;
17 
18 // FIXME: base currently unused. Needs manual work to construct the new locale
19 locale_t newlocale( int mask, const char * locale, locale_t /*base*/ )
20 {
21     return _create_locale( mask, locale );
22 }
23 
24 locale_t uselocale( locale_t newloc )
25 {
26     locale_t old_locale = _get_current_locale();
27     if ( newloc == NULL )
28         return old_locale;
29     // uselocale sets the thread's locale by definition, so unconditionally use thread-local locale
30     _configthreadlocale( _ENABLE_PER_THREAD_LOCALE );
31     // uselocale sets all categories
32     // disable setting locale on Windows temporarily because the structure is opaque (PR31516)
33     //setlocale( LC_ALL, newloc->locinfo->lc_category[LC_ALL].locale );
34     // uselocale returns the old locale_t
35     return old_locale;
36 }
37 
38 decltype(MB_CUR_MAX) MB_CUR_MAX_L( locale_t __l )
39 {
40 #if defined(_LIBCPP_MSVCRT)
41   return ___mb_cur_max_l_func(__l);
42 #else
43   __libcpp_locale_guard __current(__l);
44   return MB_CUR_MAX;
45 #endif
46 }
47 
48 
49 lconv *localeconv_l( locale_t loc )
50 {
51     __libcpp_locale_guard __current(loc);
52     return localeconv();
53 }
54 size_t mbrlen_l( const char *__restrict s, size_t n,
55                  mbstate_t *__restrict ps, locale_t loc )
56 {
57     __libcpp_locale_guard __current(loc);
58     return mbrlen( s, n, ps );
59 }
60 size_t mbsrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
61                     size_t len, mbstate_t *__restrict ps, locale_t loc )
62 {
63     __libcpp_locale_guard __current(loc);
64     return mbsrtowcs( dst, src, len, ps );
65 }
66 size_t wcrtomb_l( char *__restrict s, wchar_t wc, mbstate_t *__restrict ps,
67                   locale_t loc )
68 {
69     __libcpp_locale_guard __current(loc);
70     return wcrtomb( s, wc, ps );
71 }
72 size_t mbrtowc_l( wchar_t *__restrict pwc, const char *__restrict s,
73                   size_t n, mbstate_t *__restrict ps, locale_t loc )
74 {
75     __libcpp_locale_guard __current(loc);
76     return mbrtowc( pwc, s, n, ps );
77 }
78 size_t mbsnrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
79                      size_t nms, size_t len, mbstate_t *__restrict ps, locale_t loc )
80 {
81     __libcpp_locale_guard __current(loc);
82     return mbsnrtowcs( dst, src, nms, len, ps );
83 }
84 size_t wcsnrtombs_l( char *__restrict dst, const wchar_t **__restrict src,
85                      size_t nwc, size_t len, mbstate_t *__restrict ps, locale_t loc )
86 {
87     __libcpp_locale_guard __current(loc);
88     return wcsnrtombs( dst, src, nwc, len, ps );
89 }
90 wint_t btowc_l( int c, locale_t loc )
91 {
92     __libcpp_locale_guard __current(loc);
93     return btowc( c );
94 }
95 int wctob_l( wint_t c, locale_t loc )
96 {
97     __libcpp_locale_guard __current(loc);
98     return wctob( c );
99 }
100 
101 int snprintf_l(char *ret, size_t n, locale_t loc, const char *format, ...)
102 {
103     __libcpp_locale_guard __current(loc);
104     va_list ap;
105     va_start( ap, format );
106     int result = vsnprintf( ret, n, format, ap );
107     va_end(ap);
108     return result;
109 }
110 
111 int asprintf_l( char **ret, locale_t loc, const char *format, ... )
112 {
113     va_list ap;
114     va_start( ap, format );
115     int result = vasprintf_l( ret, loc, format, ap );
116     va_end(ap);
117     return result;
118 }
119 int vasprintf_l( char **ret, locale_t loc, const char *format, va_list ap )
120 {
121     __libcpp_locale_guard __current(loc);
122     return vasprintf( ret, format, ap );
123 }
124 
125 #if !defined(_LIBCPP_MSVCRT)
126 float strtof_l(const char* nptr, char** endptr, locale_t loc) {
127   __libcpp_locale_guard __current(loc);
128   return strtof(nptr, endptr);
129 }
130 
131 long double strtold_l(const char* nptr, char** endptr, locale_t loc) {
132   __libcpp_locale_guard __current(loc);
133   return strtold(nptr, endptr);
134 }
135 #endif
136