1/* Helper functions used by strftime/strptime to handle alternate digits.
2 Copyright (C) 1995-2017 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
18
19#include "../locale/localeinfo.h"
20#include <libc-lock.h>
21#include <stdlib.h>
22#include <wchar.h>
23#include <string.h>
24#include <stdint.h>
25
26/* Some of the functions here must not be used while setlocale is called. */
27__libc_rwlock_define (extern, __libc_setlocale_lock attribute_hidden)
28
29#define CURRENT(item) (current->values[_NL_ITEM_INDEX (item)].string)
30#define CURRENT_WSTR(item) \
31 ((wchar_t *) current->values[_NL_ITEM_INDEX (item)].wstr)
32
33static void
34_nl_init_alt_digit (struct __locale_data *current)
35{
36 struct lc_time_data *data;
37
38 if (current->private.time == NULL)
39 {
40 current->private.time = malloc (sizeof *current->private.time);
41 if (current->private.time == NULL)
42 return;
43 memset (current->private.time, 0, sizeof *current->private.time);
44 current->private.cleanup = &_nl_cleanup_time;
45 }
46 data = current->private.time;
47
48 if (! data->alt_digits_initialized)
49 {
50 const char *ptr = CURRENT (ALT_DIGITS);
51 size_t cnt;
52
53 data->alt_digits_initialized = 1;
54
55 if (ptr != NULL)
56 {
57 data->alt_digits = malloc (100 * sizeof (const char *));
58 if (data->alt_digits != NULL)
59 for (cnt = 0; cnt < 100; ++cnt)
60 {
61 data->alt_digits[cnt] = ptr;
62
63 /* Skip digit format. */
64 ptr = strchr (ptr, '\0') + 1;
65 }
66 }
67 }
68
69}
70
71const char *
72internal_function
73_nl_get_alt_digit (unsigned int number, struct __locale_data *current)
74{
75 const char *result;
76
77 if (number >= 100 || CURRENT (ALT_DIGITS)[0] == '\0')
78 return NULL;
79
80 __libc_rwlock_wrlock (__libc_setlocale_lock);
81
82 if (current->private.time == NULL
83 || ! current->private.time->alt_digits_initialized)
84 _nl_init_alt_digit (current);
85
86 result = ((current->private.time != NULL
87 && current->private.time->alt_digits != NULL)
88 ? current->private.time->alt_digits[number]
89 : NULL);
90
91 __libc_rwlock_unlock (__libc_setlocale_lock);
92
93 return result;
94}
95
96
97const wchar_t *
98internal_function
99_nl_get_walt_digit (unsigned int number, struct __locale_data *current)
100{
101 const wchar_t *result = NULL;
102 struct lc_time_data *data;
103
104 if (number >= 100 || CURRENT_WSTR (_NL_WALT_DIGITS)[0] == L'\0')
105 return NULL;
106
107 __libc_rwlock_wrlock (__libc_setlocale_lock);
108
109 if (current->private.time == NULL)
110 {
111 current->private.time = malloc (sizeof *current->private.time);
112 if (current->private.time == NULL)
113 goto out;
114 memset (current->private.time, 0, sizeof *current->private.time);
115 current->private.cleanup = &_nl_cleanup_time;
116 }
117 data = current->private.time;
118
119 if (! data->walt_digits_initialized)
120 {
121 const wchar_t *ptr = CURRENT_WSTR (_NL_WALT_DIGITS);
122 size_t cnt;
123
124 data->walt_digits_initialized = 1;
125
126 if (ptr != NULL)
127 {
128 data->walt_digits = malloc (100 * sizeof (const uint32_t *));
129 if (data->walt_digits != NULL)
130 for (cnt = 0; cnt < 100; ++cnt)
131 {
132 data->walt_digits[cnt] = ptr;
133
134 /* Skip digit format. */
135 ptr = __wcschr (ptr, L'\0') + 1;
136 }
137 }
138 }
139
140 if (data->walt_digits != NULL)
141 result = data->walt_digits[number];
142
143 out:
144 __libc_rwlock_unlock (__libc_setlocale_lock);
145
146 return (wchar_t *) result;
147}
148
149
150int
151internal_function
152_nl_parse_alt_digit (const char **strp, struct __locale_data *current)
153{
154 const char *str = *strp;
155 int result = -1;
156 size_t cnt;
157 size_t maxlen = 0;
158
159 if (CURRENT_WSTR (_NL_WALT_DIGITS)[0] == L'\0')
160 return result;
161
162 __libc_rwlock_wrlock (__libc_setlocale_lock);
163
164 if (current->private.time == NULL
165 || ! current->private.time->alt_digits_initialized)
166 _nl_init_alt_digit (current);
167
168 if (current->private.time != NULL &&
169 current->private.time->alt_digits != NULL)
170 /* Matching is not unambiguous. The alternative digits could be like
171 I, II, III, ... and the first one is a substring of the second
172 and third. Therefore we must keep on searching until we found
173 the longest possible match. Note that this is not specified in
174 the standard. */
175 for (cnt = 0; cnt < 100; ++cnt)
176 {
177 const char *const dig = current->private.time->alt_digits[cnt];
178 size_t len = strlen (dig);
179
180 if (len > maxlen && strncmp (dig, str, len) == 0)
181 {
182 maxlen = len;
183 result = (int) cnt;
184 }
185 }
186
187 __libc_rwlock_unlock (__libc_setlocale_lock);
188
189 if (result != -1)
190 *strp += maxlen;
191
192 return result;
193}
194