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#ifndef _LIBCPP___LOCALE_DIR_SUPPORT_LINUX_H
10#define _LIBCPP___LOCALE_DIR_SUPPORT_LINUX_H
11
12#include <__config>
13#include <__cstddef/size_t.h>
14#include <__std_mbstate_t.h>
15#include <__utility/forward.h>
16#include <clocale> // std::lconv
17#include <cstdio>
18#include <cstdlib>
19#include <ctype.h>
20#include <stdarg.h>
21#include <string.h>
22#include <time.h>
23#if _LIBCPP_HAS_WIDE_CHARACTERS
24# include <cwchar>
25# include <wctype.h>
26#endif
27
28#if !defined(_LIBCPP_HAS_NO_PRAGMA_SYSTEM_HEADER)
29# pragma GCC system_header
30#endif
31
32_LIBCPP_BEGIN_NAMESPACE_STD
33namespace __locale {
34
35struct __locale_guard {
36 _LIBCPP_HIDE_FROM_ABI __locale_guard(locale_t& __loc) : __old_loc_(::uselocale(dataset: __loc)) {}
37
38 _LIBCPP_HIDE_FROM_ABI ~__locale_guard() {
39 if (__old_loc_)
40 ::uselocale(dataset: __old_loc_);
41 }
42
43 locale_t __old_loc_;
44
45 __locale_guard(__locale_guard const&) = delete;
46 __locale_guard& operator=(__locale_guard const&) = delete;
47};
48
49//
50// Locale management
51//
52#define _LIBCPP_COLLATE_MASK LC_COLLATE_MASK
53#define _LIBCPP_CTYPE_MASK LC_CTYPE_MASK
54#define _LIBCPP_MONETARY_MASK LC_MONETARY_MASK
55#define _LIBCPP_NUMERIC_MASK LC_NUMERIC_MASK
56#define _LIBCPP_TIME_MASK LC_TIME_MASK
57#define _LIBCPP_MESSAGES_MASK LC_MESSAGES_MASK
58#define _LIBCPP_ALL_MASK LC_ALL_MASK
59#define _LIBCPP_LC_ALL LC_ALL
60
61using __locale_t _LIBCPP_NODEBUG = ::locale_t;
62
63#if defined(_LIBCPP_BUILDING_LIBRARY)
64using __lconv_t _LIBCPP_NODEBUG = std::lconv;
65
66inline _LIBCPP_HIDE_FROM_ABI __locale_t __newlocale(int __category_mask, const char* __locale, __locale_t __base) {
67 return ::newlocale(__category_mask, __locale, __base);
68}
69
70inline _LIBCPP_HIDE_FROM_ABI void __freelocale(__locale_t __loc) { ::freelocale(dataset: __loc); }
71
72inline _LIBCPP_HIDE_FROM_ABI char* __setlocale(int __category, char const* __locale) {
73 return ::setlocale(__category, __locale);
74}
75
76inline _LIBCPP_HIDE_FROM_ABI __lconv_t* __localeconv(__locale_t& __loc) {
77 __locale_guard __current(__loc);
78 return std::localeconv();
79}
80#endif // _LIBCPP_BUILDING_LIBRARY
81
82//
83// Strtonum functions
84//
85inline _LIBCPP_HIDE_FROM_ABI float __strtof(const char* __nptr, char** __endptr, __locale_t __loc) {
86 return ::strtof_l(__nptr, __endptr, __loc);
87}
88
89inline _LIBCPP_HIDE_FROM_ABI double __strtod(const char* __nptr, char** __endptr, __locale_t __loc) {
90 return ::strtod_l(__nptr, __endptr, __loc);
91}
92
93inline _LIBCPP_HIDE_FROM_ABI long double __strtold(const char* __nptr, char** __endptr, __locale_t __loc) {
94 return ::strtold_l(__nptr, __endptr, __loc);
95}
96
97//
98// Character manipulation functions
99//
100#if defined(_LIBCPP_BUILDING_LIBRARY)
101inline _LIBCPP_HIDE_FROM_ABI int __toupper(int __c, __locale_t __loc) { return toupper_l(__c, l: __loc); }
102
103inline _LIBCPP_HIDE_FROM_ABI int __tolower(int __c, __locale_t __loc) { return tolower_l(__c, l: __loc); }
104
105inline _LIBCPP_HIDE_FROM_ABI int __strcoll(const char* __s1, const char* __s2, __locale_t __loc) {
106 return strcoll_l(__s1, __s2, l: __loc);
107}
108
109inline _LIBCPP_HIDE_FROM_ABI size_t __strxfrm(char* __dest, const char* __src, size_t __n, __locale_t __loc) {
110 return strxfrm_l(__dest, __src, __n, l: __loc);
111}
112
113# if _LIBCPP_HAS_WIDE_CHARACTERS
114inline _LIBCPP_HIDE_FROM_ABI int __iswctype(wint_t __c, wctype_t __type, __locale_t __loc) {
115 return iswctype_l(wc: __c, desc: __type, locale: __loc);
116}
117
118inline _LIBCPP_HIDE_FROM_ABI int __iswspace(wint_t __c, __locale_t __loc) { return iswspace_l(wc: __c, locale: __loc); }
119
120inline _LIBCPP_HIDE_FROM_ABI int __iswprint(wint_t __c, __locale_t __loc) { return iswprint_l(wc: __c, locale: __loc); }
121
122inline _LIBCPP_HIDE_FROM_ABI int __iswcntrl(wint_t __c, __locale_t __loc) { return iswcntrl_l(wc: __c, locale: __loc); }
123
124inline _LIBCPP_HIDE_FROM_ABI int __iswupper(wint_t __c, __locale_t __loc) { return iswupper_l(wc: __c, locale: __loc); }
125
126inline _LIBCPP_HIDE_FROM_ABI int __iswlower(wint_t __c, __locale_t __loc) { return iswlower_l(wc: __c, locale: __loc); }
127
128inline _LIBCPP_HIDE_FROM_ABI int __iswalpha(wint_t __c, __locale_t __loc) { return iswalpha_l(wc: __c, locale: __loc); }
129
130inline _LIBCPP_HIDE_FROM_ABI int __iswblank(wint_t __c, __locale_t __loc) { return iswblank_l(wc: __c, locale: __loc); }
131
132inline _LIBCPP_HIDE_FROM_ABI int __iswdigit(wint_t __c, __locale_t __loc) { return iswdigit_l(wc: __c, locale: __loc); }
133
134inline _LIBCPP_HIDE_FROM_ABI int __iswpunct(wint_t __c, __locale_t __loc) { return iswpunct_l(wc: __c, locale: __loc); }
135
136inline _LIBCPP_HIDE_FROM_ABI int __iswxdigit(wint_t __c, __locale_t __loc) { return iswxdigit_l(wc: __c, locale: __loc); }
137
138inline _LIBCPP_HIDE_FROM_ABI wint_t __towupper(wint_t __c, __locale_t __loc) { return towupper_l(wc: __c, locale: __loc); }
139
140inline _LIBCPP_HIDE_FROM_ABI wint_t __towlower(wint_t __c, __locale_t __loc) { return towlower_l(wc: __c, locale: __loc); }
141
142inline _LIBCPP_HIDE_FROM_ABI int __wcscoll(const wchar_t* __ws1, const wchar_t* __ws2, __locale_t __loc) {
143 return wcscoll_l(s1: __ws1, s2: __ws2, __loc);
144}
145
146inline _LIBCPP_HIDE_FROM_ABI size_t __wcsxfrm(wchar_t* __dest, const wchar_t* __src, size_t __n, __locale_t __loc) {
147 return wcsxfrm_l(s1: __dest, s2: __src, __n, __loc);
148}
149# endif // _LIBCPP_HAS_WIDE_CHARACTERS
150
151inline _LIBCPP_HIDE_FROM_ABI size_t
152__strftime(char* __s, size_t __max, const char* __format, const struct tm* __tm, __locale_t __loc) {
153 return strftime_l(__s, maxsize: __max, __format, tp: __tm, __loc);
154}
155
156//
157// Other functions
158//
159inline _LIBCPP_HIDE_FROM_ABI decltype(MB_CUR_MAX) __mb_len_max(__locale_t __loc) {
160 __locale_guard __current(__loc);
161 return MB_CUR_MAX;
162}
163
164# if _LIBCPP_HAS_WIDE_CHARACTERS
165inline _LIBCPP_HIDE_FROM_ABI wint_t __btowc(int __c, __locale_t __loc) {
166 __locale_guard __current(__loc);
167 return std::btowc(__c);
168}
169
170inline _LIBCPP_HIDE_FROM_ABI int __wctob(wint_t __c, __locale_t __loc) {
171 __locale_guard __current(__loc);
172 return std::wctob(wc: __c);
173}
174
175inline _LIBCPP_HIDE_FROM_ABI size_t
176__wcsnrtombs(char* __dest, const wchar_t** __src, size_t __nwc, size_t __len, mbstate_t* __ps, __locale_t __loc) {
177 __locale_guard __current(__loc);
178 return ::wcsnrtombs(dst: __dest, __src, __nwc, __len, __ps); // non-standard
179}
180
181inline _LIBCPP_HIDE_FROM_ABI size_t __wcrtomb(char* __s, wchar_t __wc, mbstate_t* __ps, __locale_t __loc) {
182 __locale_guard __current(__loc);
183 return std::wcrtomb(__s, __wc, __ps);
184}
185
186inline _LIBCPP_HIDE_FROM_ABI size_t
187__mbsnrtowcs(wchar_t* __dest, const char** __src, size_t __nms, size_t __len, mbstate_t* __ps, __locale_t __loc) {
188 __locale_guard __current(__loc);
189 return ::mbsnrtowcs(dst: __dest, __src, nmc: __nms, __len, __ps); // non-standard
190}
191
192inline _LIBCPP_HIDE_FROM_ABI size_t
193__mbrtowc(wchar_t* __pwc, const char* __s, size_t __n, mbstate_t* __ps, __locale_t __loc) {
194 __locale_guard __current(__loc);
195 return std::mbrtowc(__pwc, __s, __n, p: __ps);
196}
197
198inline _LIBCPP_HIDE_FROM_ABI int __mbtowc(wchar_t* __pwc, const char* __pmb, size_t __max, __locale_t __loc) {
199 __locale_guard __current(__loc);
200 return std::mbtowc(__pwc, s: __pmb, n: __max);
201}
202
203inline _LIBCPP_HIDE_FROM_ABI size_t __mbrlen(const char* __s, size_t __n, mbstate_t* __ps, __locale_t __loc) {
204 __locale_guard __current(__loc);
205 return std::mbrlen(__s, __n, __ps);
206}
207
208inline _LIBCPP_HIDE_FROM_ABI size_t
209__mbsrtowcs(wchar_t* __dest, const char** __src, size_t __len, mbstate_t* __ps, __locale_t __loc) {
210 __locale_guard __current(__loc);
211 return std::mbsrtowcs(dst: __dest, __src, __len, __ps);
212}
213# endif // _LIBCPP_HAS_WIDE_CHARACTERS
214#endif // _LIBCPP_BUILDING_LIBRARY
215
216#ifndef _LIBCPP_COMPILER_GCC // GCC complains that this can't be always_inline due to C-style varargs
217_LIBCPP_HIDE_FROM_ABI
218#endif
219inline _LIBCPP_ATTRIBUTE_FORMAT(__printf__, 4, 5) int __snprintf(
220 char* __s, size_t __n, __locale_t __loc, const char* __format, ...) {
221 va_list __va;
222 va_start(__va, __format);
223 __locale_guard __current(__loc);
224 int __res = std::vsnprintf(__s, maxlen: __n, __format, arg: __va);
225 va_end(__va);
226 return __res;
227}
228
229#ifndef _LIBCPP_COMPILER_GCC // GCC complains that this can't be always_inline due to C-style varargs
230_LIBCPP_HIDE_FROM_ABI
231#endif
232inline _LIBCPP_ATTRIBUTE_FORMAT(__printf__, 3, 4) int __asprintf(
233 char** __s, __locale_t __loc, const char* __format, ...) {
234 va_list __va;
235 va_start(__va, __format);
236 __locale_guard __current(__loc);
237 int __res = ::vasprintf(ptr: __s, f: __format, arg: __va); // non-standard
238 va_end(__va);
239 return __res;
240}
241} // namespace __locale
242_LIBCPP_END_NAMESPACE_STD
243
244#endif // _LIBCPP___LOCALE_DIR_SUPPORT_LINUX_H
245