1 // -*- C++ -*-
2 //===-----------------------------------------------------------------------===//
3 //
4 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
5 // See https://llvm.org/LICENSE.txt for license information.
6 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
7 //
8 //===----------------------------------------------------------------------===//
9
10 #ifndef _LIBCPP_SUPPORT_WIN32_LOCALE_WIN32_H
11 #define _LIBCPP_SUPPORT_WIN32_LOCALE_WIN32_H
12
13 #include <__config>
14 #include <__nullptr>
15 #include <locale.h> // _locale_t
16 #include <stdio.h>
17
18 #define _X_ALL LC_ALL
19 #define _X_COLLATE LC_COLLATE
20 #define _X_CTYPE LC_CTYPE
21 #define _X_MONETARY LC_MONETARY
22 #define _X_NUMERIC LC_NUMERIC
23 #define _X_TIME LC_TIME
24 #define _X_MAX LC_MAX
25 #define _X_MESSAGES 6
26 #define _NCAT (_X_MESSAGES + 1)
27
28 #define _CATMASK(n) ((1 << (n)) >> 1)
29 #define _M_COLLATE _CATMASK(_X_COLLATE)
30 #define _M_CTYPE _CATMASK(_X_CTYPE)
31 #define _M_MONETARY _CATMASK(_X_MONETARY)
32 #define _M_NUMERIC _CATMASK(_X_NUMERIC)
33 #define _M_TIME _CATMASK(_X_TIME)
34 #define _M_MESSAGES _CATMASK(_X_MESSAGES)
35 #define _M_ALL (_CATMASK(_NCAT) - 1)
36
37 #define LC_COLLATE_MASK _M_COLLATE
38 #define LC_CTYPE_MASK _M_CTYPE
39 #define LC_MONETARY_MASK _M_MONETARY
40 #define LC_NUMERIC_MASK _M_NUMERIC
41 #define LC_TIME_MASK _M_TIME
42 #define LC_MESSAGES_MASK _M_MESSAGES
43 #define LC_ALL_MASK ( LC_COLLATE_MASK \
44 | LC_CTYPE_MASK \
45 | LC_MESSAGES_MASK \
46 | LC_MONETARY_MASK \
47 | LC_NUMERIC_MASK \
48 | LC_TIME_MASK )
49
50 class __lconv_storage {
51 public:
__lconv_storage(const lconv * __lc_input)52 __lconv_storage(const lconv *__lc_input) {
53 __lc = *__lc_input;
54
55 __decimal_point = __lc_input->decimal_point;
56 __thousands_sep = __lc_input->thousands_sep;
57 __grouping = __lc_input->grouping;
58 __int_curr_symbol = __lc_input->int_curr_symbol;
59 __currency_symbol = __lc_input->currency_symbol;
60 __mon_decimal_point = __lc_input->mon_decimal_point;
61 __mon_thousands_sep = __lc_input->mon_thousands_sep;
62 __mon_grouping = __lc_input->mon_grouping;
63 __positive_sign = __lc_input->positive_sign;
64 __negative_sign = __lc_input->negative_sign;
65
66 __lc.decimal_point = const_cast<char *>(__decimal_point.c_str());
67 __lc.thousands_sep = const_cast<char *>(__thousands_sep.c_str());
68 __lc.grouping = const_cast<char *>(__grouping.c_str());
69 __lc.int_curr_symbol = const_cast<char *>(__int_curr_symbol.c_str());
70 __lc.currency_symbol = const_cast<char *>(__currency_symbol.c_str());
71 __lc.mon_decimal_point = const_cast<char *>(__mon_decimal_point.c_str());
72 __lc.mon_thousands_sep = const_cast<char *>(__mon_thousands_sep.c_str());
73 __lc.mon_grouping = const_cast<char *>(__mon_grouping.c_str());
74 __lc.positive_sign = const_cast<char *>(__positive_sign.c_str());
75 __lc.negative_sign = const_cast<char *>(__negative_sign.c_str());
76 }
77
__get()78 lconv *__get() {
79 return &__lc;
80 }
81 private:
82 lconv __lc;
83 std::string __decimal_point;
84 std::string __thousands_sep;
85 std::string __grouping;
86 std::string __int_curr_symbol;
87 std::string __currency_symbol;
88 std::string __mon_decimal_point;
89 std::string __mon_thousands_sep;
90 std::string __mon_grouping;
91 std::string __positive_sign;
92 std::string __negative_sign;
93 };
94
95 class locale_t {
96 public:
locale_t()97 locale_t()
98 : __locale(nullptr), __locale_str(nullptr), __lc(nullptr) {}
locale_t(std::nullptr_t)99 locale_t(std::nullptr_t)
100 : __locale(nullptr), __locale_str(nullptr), __lc(nullptr) {}
locale_t(_locale_t __xlocale,const char * __xlocale_str)101 locale_t(_locale_t __xlocale, const char* __xlocale_str)
102 : __locale(__xlocale), __locale_str(__xlocale_str), __lc(nullptr) {}
locale_t(const locale_t & __l)103 locale_t(const locale_t &__l)
104 : __locale(__l.__locale), __locale_str(__l.__locale_str), __lc(nullptr) {}
105
~locale_t()106 ~locale_t() {
107 delete __lc;
108 }
109
110 locale_t &operator =(const locale_t &__l) {
111 __locale = __l.__locale;
112 __locale_str = __l.__locale_str;
113 // __lc not copied
114 return *this;
115 }
116
117 friend bool operator==(const locale_t& __left, const locale_t& __right) {
118 return __left.__locale == __right.__locale;
119 }
120
121 friend bool operator==(const locale_t& __left, int __right) {
122 return __left.__locale == nullptr && __right == 0;
123 }
124
125 friend bool operator==(const locale_t& __left, long long __right) {
126 return __left.__locale == nullptr && __right == 0;
127 }
128
129 friend bool operator==(const locale_t& __left, std::nullptr_t) {
130 return __left.__locale == nullptr;
131 }
132
133 friend bool operator==(int __left, const locale_t& __right) {
134 return __left == 0 && nullptr == __right.__locale;
135 }
136
137 friend bool operator==(std::nullptr_t, const locale_t& __right) {
138 return nullptr == __right.__locale;
139 }
140
141 friend bool operator!=(const locale_t& __left, const locale_t& __right) {
142 return !(__left == __right);
143 }
144
145 friend bool operator!=(const locale_t& __left, int __right) {
146 return !(__left == __right);
147 }
148
149 friend bool operator!=(const locale_t& __left, long long __right) {
150 return !(__left == __right);
151 }
152
153 friend bool operator!=(const locale_t& __left, std::nullptr_t __right) {
154 return !(__left == __right);
155 }
156
157 friend bool operator!=(int __left, const locale_t& __right) {
158 return !(__left == __right);
159 }
160
161 friend bool operator!=(std::nullptr_t __left, const locale_t& __right) {
162 return !(__left == __right);
163 }
164
165 operator bool() const {
166 return __locale != nullptr;
167 }
168
__get_locale()169 const char* __get_locale() const { return __locale_str; }
170
_locale_t()171 operator _locale_t() const {
172 return __locale;
173 }
174
__store_lconv(const lconv * __input_lc)175 lconv *__store_lconv(const lconv *__input_lc) {
176 delete __lc;
177 __lc = new __lconv_storage(__input_lc);
178 return __lc->__get();
179 }
180 private:
181 _locale_t __locale;
182 const char* __locale_str;
183 __lconv_storage *__lc = nullptr;
184 };
185
186 // Locale management functions
187 #define freelocale _free_locale
188 // FIXME: base currently unused. Needs manual work to construct the new locale
189 locale_t newlocale( int mask, const char * locale, locale_t base );
190 // uselocale can't be implemented on Windows because Windows allows partial modification
191 // of thread-local locale and so _get_current_locale() returns a copy while uselocale does
192 // not create any copies.
193 // We can still implement raii even without uselocale though.
194
195
196 lconv *localeconv_l( locale_t &loc );
197 size_t mbrlen_l( const char *__restrict s, size_t n,
198 mbstate_t *__restrict ps, locale_t loc);
199 size_t mbsrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
200 size_t len, mbstate_t *__restrict ps, locale_t loc );
201 size_t wcrtomb_l( char *__restrict s, wchar_t wc, mbstate_t *__restrict ps,
202 locale_t loc);
203 size_t mbrtowc_l( wchar_t *__restrict pwc, const char *__restrict s,
204 size_t n, mbstate_t *__restrict ps, locale_t loc);
205 size_t mbsnrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
206 size_t nms, size_t len, mbstate_t *__restrict ps, locale_t loc);
207 size_t wcsnrtombs_l( char *__restrict dst, const wchar_t **__restrict src,
208 size_t nwc, size_t len, mbstate_t *__restrict ps, locale_t loc);
209 wint_t btowc_l( int c, locale_t loc );
210 int wctob_l( wint_t c, locale_t loc );
211
212 decltype(MB_CUR_MAX) MB_CUR_MAX_L( locale_t __l );
213
214 // the *_l functions are prefixed on Windows, only available for msvcr80+, VS2005+
215 #define mbtowc_l _mbtowc_l
216 #define strtoll_l _strtoi64_l
217 #define strtoull_l _strtoui64_l
218 #define strtod_l _strtod_l
219 #if defined(_LIBCPP_MSVCRT)
220 #define strtof_l _strtof_l
221 #define strtold_l _strtold_l
222 #else
223 _LIBCPP_FUNC_VIS float strtof_l(const char*, char**, locale_t);
224 _LIBCPP_FUNC_VIS long double strtold_l(const char*, char**, locale_t);
225 #endif
226 inline _LIBCPP_INLINE_VISIBILITY
227 int
islower_l(int c,_locale_t loc)228 islower_l(int c, _locale_t loc)
229 {
230 return _islower_l((int)c, loc);
231 }
232
233 inline _LIBCPP_INLINE_VISIBILITY
234 int
isupper_l(int c,_locale_t loc)235 isupper_l(int c, _locale_t loc)
236 {
237 return _isupper_l((int)c, loc);
238 }
239
240 #define isdigit_l _isdigit_l
241 #define isxdigit_l _isxdigit_l
242 #define strcoll_l _strcoll_l
243 #define strxfrm_l _strxfrm_l
244 #define wcscoll_l _wcscoll_l
245 #define wcsxfrm_l _wcsxfrm_l
246 #define toupper_l _toupper_l
247 #define tolower_l _tolower_l
248 #define iswspace_l _iswspace_l
249 #define iswprint_l _iswprint_l
250 #define iswcntrl_l _iswcntrl_l
251 #define iswupper_l _iswupper_l
252 #define iswlower_l _iswlower_l
253 #define iswalpha_l _iswalpha_l
254 #define iswdigit_l _iswdigit_l
255 #define iswpunct_l _iswpunct_l
256 #define iswxdigit_l _iswxdigit_l
257 #define towupper_l _towupper_l
258 #define towlower_l _towlower_l
259 #if defined(__MINGW32__) && __MSVCRT_VERSION__ < 0x0800
260 _LIBCPP_FUNC_VIS size_t strftime_l(char *ret, size_t n, const char *format,
261 const struct tm *tm, locale_t loc);
262 #else
263 #define strftime_l _strftime_l
264 #endif
265 #define sscanf_l( __s, __l, __f, ...) _sscanf_l( __s, __f, __l, __VA_ARGS__ )
266 #define sprintf_l( __s, __l, __f, ... ) _sprintf_l( __s, __f, __l, __VA_ARGS__ )
267 #define vsprintf_l( __s, __l, __f, ... ) _vsprintf_l( __s, __f, __l, __VA_ARGS__ )
268 #define vsnprintf_l( __s, __n, __l, __f, ... ) _vsnprintf_l( __s, __n, __f, __l, __VA_ARGS__ )
269 _LIBCPP_FUNC_VIS int snprintf_l(char *ret, size_t n, locale_t loc, const char *format, ...);
270 _LIBCPP_FUNC_VIS int asprintf_l( char **ret, locale_t loc, const char *format, ... );
271 _LIBCPP_FUNC_VIS int vasprintf_l( char **ret, locale_t loc, const char *format, va_list ap );
272
273 // not-so-pressing FIXME: use locale to determine blank characters
isblank_l(int c,locale_t)274 inline int isblank_l( int c, locale_t /*loc*/ )
275 {
276 return ( c == ' ' || c == '\t' );
277 }
iswblank_l(wint_t c,locale_t)278 inline int iswblank_l( wint_t c, locale_t /*loc*/ )
279 {
280 return ( c == L' ' || c == L'\t' );
281 }
282
283 #endif // _LIBCPP_SUPPORT_WIN32_LOCALE_WIN32_H
284