1 //===----------------------------------------------------------------------===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8
9 #include <locale>
10 #include <cstdarg> // va_start, va_end
11 #include <memory>
12 #include <type_traits>
13
14 int __libcpp_vasprintf(char **sptr, const char *__restrict fmt, va_list ap);
15
16 using std::__libcpp_locale_guard;
17
18 // FIXME: base currently unused. Needs manual work to construct the new locale
newlocale(int mask,const char * locale,locale_t)19 locale_t newlocale( int mask, const char * locale, locale_t /*base*/ )
20 {
21 return {_create_locale( LC_ALL, locale ), locale};
22 }
23
MB_CUR_MAX_L(locale_t __l)24 decltype(MB_CUR_MAX) MB_CUR_MAX_L( locale_t __l )
25 {
26 #if defined(_LIBCPP_MSVCRT)
27 return ___mb_cur_max_l_func(__l);
28 #else
29 __libcpp_locale_guard __current(__l);
30 return MB_CUR_MAX;
31 #endif
32 }
33
localeconv_l(locale_t & loc)34 lconv *localeconv_l( locale_t &loc )
35 {
36 __libcpp_locale_guard __current(loc);
37 lconv *lc = localeconv();
38 if (!lc)
39 return lc;
40 return loc.__store_lconv(lc);
41 }
mbrlen_l(const char * __restrict s,size_t n,mbstate_t * __restrict ps,locale_t loc)42 size_t mbrlen_l( const char *__restrict s, size_t n,
43 mbstate_t *__restrict ps, locale_t loc )
44 {
45 __libcpp_locale_guard __current(loc);
46 return mbrlen( s, n, ps );
47 }
mbsrtowcs_l(wchar_t * __restrict dst,const char ** __restrict src,size_t len,mbstate_t * __restrict ps,locale_t loc)48 size_t mbsrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
49 size_t len, mbstate_t *__restrict ps, locale_t loc )
50 {
51 __libcpp_locale_guard __current(loc);
52 return mbsrtowcs( dst, src, len, ps );
53 }
wcrtomb_l(char * __restrict s,wchar_t wc,mbstate_t * __restrict ps,locale_t loc)54 size_t wcrtomb_l( char *__restrict s, wchar_t wc, mbstate_t *__restrict ps,
55 locale_t loc )
56 {
57 __libcpp_locale_guard __current(loc);
58 return wcrtomb( s, wc, ps );
59 }
mbrtowc_l(wchar_t * __restrict pwc,const char * __restrict s,size_t n,mbstate_t * __restrict ps,locale_t loc)60 size_t mbrtowc_l( wchar_t *__restrict pwc, const char *__restrict s,
61 size_t n, mbstate_t *__restrict ps, locale_t loc )
62 {
63 __libcpp_locale_guard __current(loc);
64 return mbrtowc( pwc, s, n, ps );
65 }
mbsnrtowcs_l(wchar_t * __restrict dst,const char ** __restrict src,size_t nms,size_t len,mbstate_t * __restrict ps,locale_t loc)66 size_t mbsnrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
67 size_t nms, size_t len, mbstate_t *__restrict ps, locale_t loc )
68 {
69 __libcpp_locale_guard __current(loc);
70 return mbsnrtowcs( dst, src, nms, len, ps );
71 }
wcsnrtombs_l(char * __restrict dst,const wchar_t ** __restrict src,size_t nwc,size_t len,mbstate_t * __restrict ps,locale_t loc)72 size_t wcsnrtombs_l( char *__restrict dst, const wchar_t **__restrict src,
73 size_t nwc, size_t len, mbstate_t *__restrict ps, locale_t loc )
74 {
75 __libcpp_locale_guard __current(loc);
76 return wcsnrtombs( dst, src, nwc, len, ps );
77 }
btowc_l(int c,locale_t loc)78 wint_t btowc_l( int c, locale_t loc )
79 {
80 __libcpp_locale_guard __current(loc);
81 return btowc( c );
82 }
wctob_l(wint_t c,locale_t loc)83 int wctob_l( wint_t c, locale_t loc )
84 {
85 __libcpp_locale_guard __current(loc);
86 return wctob( c );
87 }
88
snprintf_l(char * ret,size_t n,locale_t loc,const char * format,...)89 int snprintf_l(char *ret, size_t n, locale_t loc, const char *format, ...)
90 {
91 va_list ap;
92 va_start( ap, format );
93 #if defined(_LIBCPP_MSVCRT)
94 // FIXME: Remove usage of internal CRT function and globals.
95 int result = __stdio_common_vsprintf(
96 _CRT_INTERNAL_LOCAL_PRINTF_OPTIONS | _CRT_INTERNAL_PRINTF_STANDARD_SNPRINTF_BEHAVIOR,
97 ret, n, format, loc, ap);
98 #else
99 __libcpp_locale_guard __current(loc);
100 int result = vsnprintf( ret, n, format, ap );
101 #endif
102 va_end(ap);
103 return result;
104 }
105
asprintf_l(char ** ret,locale_t loc,const char * format,...)106 int asprintf_l( char **ret, locale_t loc, const char *format, ... )
107 {
108 va_list ap;
109 va_start( ap, format );
110 int result = vasprintf_l( ret, loc, format, ap );
111 va_end(ap);
112 return result;
113 }
vasprintf_l(char ** ret,locale_t loc,const char * format,va_list ap)114 int vasprintf_l( char **ret, locale_t loc, const char *format, va_list ap )
115 {
116 __libcpp_locale_guard __current(loc);
117 return __libcpp_vasprintf( ret, format, ap );
118 }
119
120 #if !defined(_LIBCPP_MSVCRT)
strtof_l(const char * nptr,char ** endptr,locale_t loc)121 float strtof_l(const char* nptr, char** endptr, locale_t loc) {
122 __libcpp_locale_guard __current(loc);
123 return strtof(nptr, endptr);
124 }
125
strtold_l(const char * nptr,char ** endptr,locale_t loc)126 long double strtold_l(const char* nptr, char** endptr, locale_t loc) {
127 __libcpp_locale_guard __current(loc);
128 return strtold(nptr, endptr);
129 }
130 #endif
131
132 #if defined(__MINGW32__) && __MSVCRT_VERSION__ < 0x0800
strftime_l(char * ret,size_t n,const char * format,const struct tm * tm,locale_t loc)133 size_t strftime_l(char *ret, size_t n, const char *format, const struct tm *tm,
134 locale_t loc) {
135 __libcpp_locale_guard __current(loc);
136 return strftime(ret, n, format, tm);
137 }
138 #endif
139