1// -*- C++ -*-
2//===--------------------- support/win32/locale_win32.h -------------------===//
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#ifndef _LIBCPP_SUPPORT_WIN32_LOCALE_WIN32_H
12#define _LIBCPP_SUPPORT_WIN32_LOCALE_WIN32_H
13
14// ctype mask table defined in msvcrt.dll
15extern "C" unsigned short  __declspec(dllimport) _ctype[];
16
17#include "support/win32/support.h"
18#include <stdio.h>
19#include <memory>
20#include <xlocinfo.h> // _locale_t
21#define locale_t _locale_t
22#define LC_COLLATE_MASK _M_COLLATE
23#define LC_CTYPE_MASK _M_CTYPE
24#define LC_MONETARY_MASK _M_MONETARY
25#define LC_NUMERIC_MASK _M_NUMERIC
26#define LC_TIME_MASK _M_TIME
27#define LC_MESSAGES_MASK _M_MESSAGES
28#define LC_ALL_MASK (  LC_COLLATE_MASK \
29                     | LC_CTYPE_MASK \
30                     | LC_MESSAGES_MASK \
31                     | LC_MONETARY_MASK \
32                     | LC_NUMERIC_MASK \
33                     | LC_TIME_MASK )
34#define freelocale _free_locale
35// FIXME: base currently unused. Needs manual work to construct the new locale
36locale_t newlocale( int mask, const char * locale, locale_t base );
37locale_t uselocale( locale_t newloc );
38lconv *localeconv_l( locale_t loc );
39size_t mbrlen_l( const char *__restrict s, size_t n,
40                 mbstate_t *__restrict ps, locale_t loc);
41size_t mbsrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
42                    size_t len, mbstate_t *__restrict ps, locale_t loc );
43size_t wcrtomb_l( char *__restrict s, wchar_t wc, mbstate_t *__restrict ps,
44                  locale_t loc);
45size_t mbrtowc_l( wchar_t *__restrict pwc, const char *__restrict s,
46                  size_t n, mbstate_t *__restrict ps, locale_t loc);
47size_t mbsnrtowcs_l( wchar_t *__restrict dst, const char **__restrict src,
48                     size_t nms, size_t len, mbstate_t *__restrict ps, locale_t loc);
49size_t wcsnrtombs_l( char *__restrict dst, const wchar_t **__restrict src,
50                     size_t nwc, size_t len, mbstate_t *__restrict ps, locale_t loc);
51wint_t btowc_l( int c, locale_t loc );
52int wctob_l( wint_t c, locale_t loc );
53typedef _VSTD::remove_pointer<locale_t>::type __locale_struct;
54typedef _VSTD::unique_ptr<__locale_struct, decltype(&uselocale)> __locale_raii;
55inline _LIBCPP_ALWAYS_INLINE
56decltype(MB_CUR_MAX) MB_CUR_MAX_L( locale_t __l )
57{
58  __locale_raii __current( uselocale(__l), uselocale );
59  return MB_CUR_MAX;
60}
61
62// the *_l functions are prefixed on Windows, only available for msvcr80+, VS2005+
63#define mbtowc_l _mbtowc_l
64#define strtoll_l _strtoi64_l
65#define strtoull_l _strtoui64_l
66// FIXME: current msvcrt does not know about long double
67#define strtold_l _strtod_l
68
69inline _LIBCPP_INLINE_VISIBILITY
70int
71islower_l(int c, _locale_t loc)
72{
73 return _islower_l((int)c, loc);
74}
75
76inline _LIBCPP_INLINE_VISIBILITY
77int
78isupper_l(int c, _locale_t loc)
79{
80 return _isupper_l((int)c, loc);
81}
82
83#define isdigit_l _isdigit_l
84#define isxdigit_l _isxdigit_l
85#define strcoll_l _strcoll_l
86#define strxfrm_l _strxfrm_l
87#define wcscoll_l _wcscoll_l
88#define wcsxfrm_l _wcsxfrm_l
89#define toupper_l _toupper_l
90#define tolower_l _tolower_l
91#define iswspace_l _iswspace_l
92#define iswprint_l _iswprint_l
93#define iswcntrl_l _iswcntrl_l
94#define iswupper_l _iswupper_l
95#define iswlower_l _iswlower_l
96#define iswalpha_l _iswalpha_l
97#define iswdigit_l _iswdigit_l
98#define iswpunct_l _iswpunct_l
99#define iswxdigit_l _iswxdigit_l
100#define towupper_l _towupper_l
101#define towlower_l _towlower_l
102#define strftime_l _strftime_l
103#define sscanf_l( __s, __l, __f, ...) _sscanf_l( __s, __f, __l, __VA_ARGS__ )
104#define vsscanf_l( __s, __l, __f, ...) _sscanf_l( __s, __f, __l, __VA_ARGS__ )
105#define sprintf_l( __s, __l, __f, ... ) _sprintf_l( __s, __f, __l, __VA_ARGS__ )
106#define vsprintf_l( __s, __l, __f, ... ) _vsprintf_l( __s, __f, __l, __VA_ARGS__ )
107#define vsnprintf_l( __s, __n, __l, __f, ... ) _vsnprintf_l( __s, __n, __f, __l, __VA_ARGS__ )
108int snprintf_l(char *ret, size_t n, locale_t loc, const char *format, ...);
109int asprintf_l( char **ret, locale_t loc, const char *format, ... );
110int vasprintf_l( char **ret, locale_t loc, const char *format, va_list ap );
111
112
113// not-so-pressing FIXME: use locale to determine blank characters
114inline int isblank_l( int c, locale_t /*loc*/ )
115{
116    return ( c == ' ' || c == '\t' );
117}
118inline int iswblank_l( wint_t c, locale_t /*loc*/ )
119{
120    return ( c == L' ' || c == L'\t' );
121}
122
123#if defined(_LIBCPP_MSVCRT)
124inline int isblank( int c, locale_t /*loc*/ )
125{ return ( c == ' ' || c == '\t' ); }
126inline int iswblank( wint_t c, locale_t /*loc*/ )
127{ return ( c == L' ' || c == L'\t' ); }
128#endif // _LIBCPP_MSVCRT
129#endif // _LIBCPP_SUPPORT_WIN32_LOCALE_WIN32_H
130