1 /*
2 * Copyright (C) 2008 The Android Open Source Project
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * * Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * * Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in
12 * the documentation and/or other materials provided with the
13 * distribution.
14 *
15 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
16 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
17 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
18 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
19 * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
20 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
21 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
22 * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
23 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
24 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
25 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29 #include <errno.h>
30 #include <locale.h>
31 #include <pthread.h>
32 #include <stdlib.h>
33 #include <string.h>
34 #include <strings.h>
35 #include <time.h>
36 #include <wchar.h>
37
38 #include "bionic/pthread_internal.h"
39 #include "platform/bionic/macros.h"
40
41 // We only support two locales, the "C" locale (also known as "POSIX"),
42 // and the "C.UTF-8" locale (also known as "en_US.UTF-8").
43
44 static bool __bionic_current_locale_is_utf8 = true;
45
46 struct __locale_t {
47 size_t mb_cur_max;
48 };
49
50 // Avoid using new/delete in this file, because a user may have overridden
51 // new/delete, and we want to avoid making extraneous calls to them. This isn't
52 // an issue for libc.so in the platform, but this file is also compiled into the
53 // NDK's libandroid_support.a, and there are libc++ tests that count the number
54 // of calls to new/delete.
55 #pragma clang poison new delete
56
__alloc_locale(size_t mb_cur_max)57 static inline locale_t __alloc_locale(size_t mb_cur_max) {
58 auto result = static_cast<__locale_t*>(malloc(sizeof(__locale_t)));
59 if (result == nullptr) return nullptr;
60 result->mb_cur_max = mb_cur_max;
61 return result;
62 }
63
get_locale_mb_cur_max(locale_t l)64 static inline size_t get_locale_mb_cur_max(locale_t l) {
65 if (l == LC_GLOBAL_LOCALE) {
66 return __bionic_current_locale_is_utf8 ? 4 : 1;
67 } else {
68 return l->mb_cur_max;
69 }
70 }
71
__ctype_get_mb_cur_max()72 size_t __ctype_get_mb_cur_max() {
73 return get_locale_mb_cur_max(uselocale(nullptr));
74 }
75
76 static pthread_once_t g_locale_once = PTHREAD_ONCE_INIT;
77 static lconv g_locale;
78
__locale_init()79 static void __locale_init() {
80 g_locale.decimal_point = const_cast<char*>(".");
81
82 char* not_available = const_cast<char*>("");
83 g_locale.thousands_sep = not_available;
84 g_locale.grouping = not_available;
85 g_locale.int_curr_symbol = not_available;
86 g_locale.currency_symbol = not_available;
87 g_locale.mon_decimal_point = not_available;
88 g_locale.mon_thousands_sep = not_available;
89 g_locale.mon_grouping = not_available;
90 g_locale.positive_sign = not_available;
91 g_locale.negative_sign = not_available;
92
93 g_locale.int_frac_digits = CHAR_MAX;
94 g_locale.frac_digits = CHAR_MAX;
95 g_locale.p_cs_precedes = CHAR_MAX;
96 g_locale.p_sep_by_space = CHAR_MAX;
97 g_locale.n_cs_precedes = CHAR_MAX;
98 g_locale.n_sep_by_space = CHAR_MAX;
99 g_locale.p_sign_posn = CHAR_MAX;
100 g_locale.n_sign_posn = CHAR_MAX;
101 g_locale.int_p_cs_precedes = CHAR_MAX;
102 g_locale.int_p_sep_by_space = CHAR_MAX;
103 g_locale.int_n_cs_precedes = CHAR_MAX;
104 g_locale.int_n_sep_by_space = CHAR_MAX;
105 g_locale.int_p_sign_posn = CHAR_MAX;
106 g_locale.int_n_sign_posn = CHAR_MAX;
107 }
108
__is_supported_locale(const char * locale_name)109 static bool __is_supported_locale(const char* locale_name) {
110 return (strcmp(locale_name, "") == 0 ||
111 strcmp(locale_name, "C") == 0 ||
112 strcmp(locale_name, "C.UTF-8") == 0 ||
113 strcmp(locale_name, "en_US.UTF-8") == 0 ||
114 strcmp(locale_name, "POSIX") == 0);
115 }
116
__is_utf8_locale(const char * locale_name)117 static bool __is_utf8_locale(const char* locale_name) {
118 return (*locale_name == '\0' || strstr(locale_name, "UTF-8"));
119 }
120
localeconv()121 lconv* localeconv() {
122 pthread_once(&g_locale_once, __locale_init);
123 return &g_locale;
124 }
125
duplocale(locale_t l)126 locale_t duplocale(locale_t l) {
127 return __alloc_locale(get_locale_mb_cur_max(l));
128 }
129
freelocale(locale_t l)130 void freelocale(locale_t l) {
131 free(l);
132 }
133
newlocale(int category_mask,const char * locale_name,locale_t)134 locale_t newlocale(int category_mask, const char* locale_name, locale_t /*base*/) {
135 // Are 'category_mask' and 'locale_name' valid?
136 if ((category_mask & ~LC_ALL_MASK) != 0 || locale_name == nullptr) {
137 errno = EINVAL;
138 return nullptr;
139 }
140
141 if (!__is_supported_locale(locale_name)) {
142 errno = ENOENT;
143 return nullptr;
144 }
145
146 return __alloc_locale(__is_utf8_locale(locale_name) ? 4 : 1);
147 }
148
setlocale(int category,const char * locale_name)149 char* setlocale(int category, const char* locale_name) {
150 // Is 'category' valid?
151 if (category < LC_CTYPE || category > LC_IDENTIFICATION) {
152 errno = EINVAL;
153 return nullptr;
154 }
155
156 // Caller wants to set the locale rather than just query?
157 if (locale_name != nullptr) {
158 if (!__is_supported_locale(locale_name)) {
159 // We don't support this locale.
160 errno = ENOENT;
161 return nullptr;
162 }
163 __bionic_current_locale_is_utf8 = __is_utf8_locale(locale_name);
164 }
165
166 return const_cast<char*>(__bionic_current_locale_is_utf8 ? "C.UTF-8" : "C");
167 }
168
get_current_locale_ptr()169 static locale_t* get_current_locale_ptr() {
170 return &__get_bionic_tls().locale;
171 }
172
uselocale(locale_t new_locale)173 locale_t uselocale(locale_t new_locale) {
174 locale_t old_locale = *get_current_locale_ptr();
175
176 // If this is the first call to uselocale(3) on this thread, we return LC_GLOBAL_LOCALE.
177 if (old_locale == nullptr) {
178 old_locale = LC_GLOBAL_LOCALE;
179 }
180
181 if (new_locale != nullptr) {
182 *get_current_locale_ptr() = new_locale;
183 }
184
185 return old_locale;
186 }
187