]>
git.ipfire.org Git - thirdparty/glibc.git/blob - locale/programs/ld-numeric.c
1 /* Copyright (C) 1995-2019 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@gnu.org>, 1995.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; version 2 of the License, or
8 (at your option) any later version.
10 This program 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
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, see <http://www.gnu.org/licenses/>. */
29 #include "localedef.h"
30 #include "linereader.h"
31 #include "localeinfo.h"
35 /* The real definition of the struct for the LC_NUMERIC locale. */
36 struct locale_numeric_t
38 const char *decimal_point
;
39 const char *thousands_sep
;
42 uint32_t decimal_point_wc
;
43 uint32_t thousands_sep_wc
;
48 numeric_startup (struct linereader
*lr
, struct localedef_t
*locale
,
53 locale
->categories
[LC_NUMERIC
].numeric
=
54 (struct locale_numeric_t
*) xcalloc (1,
55 sizeof (struct locale_numeric_t
));
60 lr
->translate_strings
= 1;
61 lr
->return_widestr
= 0;
67 numeric_finish (struct localedef_t
*locale
, const struct charmap_t
*charmap
)
69 struct locale_numeric_t
*numeric
= locale
->categories
[LC_NUMERIC
].numeric
;
72 /* Now resolve copying and also handle completely missing definitions. */
75 /* First see whether we were supposed to copy. If yes, find the
77 if (locale
->copy_name
[LC_NUMERIC
] != NULL
)
79 /* Find the copying locale. This has to happen transitively since
80 the locale we are copying from might also copying another one. */
81 struct localedef_t
*from
= locale
;
84 from
= find_locale (LC_NUMERIC
, from
->copy_name
[LC_NUMERIC
],
85 from
->repertoire_name
, charmap
);
86 while (from
->categories
[LC_NUMERIC
].numeric
== NULL
87 && from
->copy_name
[LC_NUMERIC
] != NULL
);
89 numeric
= locale
->categories
[LC_NUMERIC
].numeric
90 = from
->categories
[LC_NUMERIC
].numeric
;
93 /* If there is still no definition issue an warning and create an
98 No definition for %s category found"), "LC_NUMERIC");
99 numeric_startup (NULL
, locale
, 0);
100 numeric
= locale
->categories
[LC_NUMERIC
].numeric
;
105 /* The decimal point must not be empty. This is not said explicitly
106 in POSIX but ANSI C (ISO/IEC 9899) says in 4.4.2.1 it has to be
108 if (numeric
->decimal_point
== NULL
)
111 record_error (0, 0, _("%s: field `%s' not defined"),
112 "LC_NUMERIC", "decimal_point");
113 numeric
->decimal_point
= ".";
115 else if (numeric
->decimal_point
[0] == '\0' && ! nothing
)
117 record_error (0, 0, _("\
118 %s: value for field `%s' must not be an empty string"),
119 "LC_NUMERIC", "decimal_point");
121 if (numeric
->decimal_point_wc
== L
'\0')
122 numeric
->decimal_point_wc
= L
'.';
124 if (numeric
->grouping_len
== 0 && ! nothing
)
125 record_error (0, 0, _("%s: field `%s' not defined"),
126 "LC_NUMERIC", "grouping");
131 numeric_output (struct localedef_t
*locale
, const struct charmap_t
*charmap
,
132 const char *output_path
)
134 struct locale_numeric_t
*numeric
= locale
->categories
[LC_NUMERIC
].numeric
;
135 struct locale_file file
;
137 init_locale_data (&file
, _NL_ITEM_INDEX (_NL_NUM_LC_NUMERIC
));
138 add_locale_string (&file
, numeric
->decimal_point
?: "");
139 add_locale_string (&file
, numeric
->thousands_sep
?: "");
140 add_locale_raw_data (&file
, numeric
->grouping
, numeric
->grouping_len
);
141 add_locale_uint32 (&file
, numeric
->decimal_point_wc
);
142 add_locale_uint32 (&file
, numeric
->thousands_sep_wc
);
143 add_locale_string (&file
, charmap
->code_set_name
);
144 write_locale_data (output_path
, LC_NUMERIC
, "LC_NUMERIC", &file
);
148 /* The parser for the LC_NUMERIC section of the locale definition. */
150 numeric_read (struct linereader
*ldfile
, struct localedef_t
*result
,
151 const struct charmap_t
*charmap
, const char *repertoire_name
,
154 struct repertoire_t
*repertoire
= NULL
;
155 struct locale_numeric_t
*numeric
;
159 /* Get the repertoire we have to use. */
160 if (repertoire_name
!= NULL
)
161 repertoire
= repertoire_read (repertoire_name
);
163 /* The rest of the line containing `LC_NUMERIC' must be free. */
164 lr_ignore_rest (ldfile
, 1);
169 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
172 while (nowtok
== tok_eol
);
174 /* If we see `copy' now we are almost done. */
175 if (nowtok
== tok_copy
)
177 handle_copy (ldfile
, charmap
, repertoire_name
, result
, tok_lc_numeric
,
178 LC_NUMERIC
, "LC_NUMERIC", ignore_content
);
182 /* Prepare the data structures. */
183 numeric_startup (ldfile
, result
, ignore_content
);
184 numeric
= result
->categories
[LC_NUMERIC
].numeric
;
188 /* Of course we don't proceed beyond the end of file. */
189 if (nowtok
== tok_eof
)
192 /* Ingore empty lines. */
193 if (nowtok
== tok_eol
)
195 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
202 #define STR_ELEM(cat) \
204 /* Ignore the rest of the line if we don't need the input of \
206 if (ignore_content) \
208 lr_ignore_rest (ldfile, 0); \
212 ldfile->return_widestr = 1; \
213 now = lr_token (ldfile, charmap, result, repertoire, verbose); \
214 if (now->tok != tok_string) \
216 if (numeric->cat != NULL) \
217 lr_error (ldfile, _("\
218 %s: field `%s' declared more than once"), "LC_NUMERIC", #cat); \
219 else if (!ignore_content && now->val.str.startmb == NULL) \
221 lr_error (ldfile, _("\
222 %s: unknown character in field `%s'"), "LC_NUMERIC", #cat); \
224 numeric->cat##_wc = L'\0'; \
226 else if (now->val.str.startwc != NULL && now->val.str.lenwc > 2) \
228 lr_error (ldfile, _("\
229 %s: value for field `%s' must be a single character"), "LC_NUMERIC", #cat); \
231 else if (!ignore_content) \
233 numeric->cat = now->val.str.startmb; \
235 if (now->val.str.startwc != NULL) \
236 numeric->cat##_wc = *now->val.str.startwc; \
238 ldfile->return_widestr = 0; \
241 STR_ELEM (decimal_point
);
242 STR_ELEM (thousands_sep
);
245 /* Ignore the rest of the line if we don't need the input of
249 lr_ignore_rest (ldfile
, 0);
253 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
254 if (now
->tok
!= tok_minus1
&& now
->tok
!= tok_number
)
260 char *grouping
= xmalloc (max
);
267 grouping
= xrealloc (grouping
, max
);
270 if (act
> 0 && grouping
[act
- 1] == '\177')
272 lr_error (ldfile
, _("\
273 %s: `-1' must be last entry in `%s' field"), "LC_NUMERIC", "grouping");
274 lr_ignore_rest (ldfile
, 0);
278 if (now
->tok
== tok_minus1
)
279 grouping
[act
++] = '\177';
280 else if (now
->val
.num
== 0)
282 /* A value of 0 disables grouping from here on but
283 we must not store a NUL character since this
284 terminates the string. Use something different
285 which must not be used otherwise. */
286 grouping
[act
++] = '\377';
288 else if (now
->val
.num
> 126)
289 lr_error (ldfile
, _("\
290 %s: values for field `%s' must be smaller than 127"),
291 "LC_NUMERIC", "grouping");
293 grouping
[act
++] = now
->val
.num
;
295 /* Next must be semicolon. */
296 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
297 if (now
->tok
!= tok_semicolon
)
300 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
302 while (now
->tok
== tok_minus1
|| now
->tok
== tok_number
);
304 if (now
->tok
!= tok_eol
)
307 /* A single -1 means no grouping. */
308 if (act
== 1 && grouping
[0] == '\177')
310 grouping
[act
++] = '\0';
312 numeric
->grouping
= xrealloc (grouping
, act
);
313 numeric
->grouping_len
= act
;
318 /* Next we assume `LC_NUMERIC'. */
319 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
320 if (now
->tok
== tok_eof
)
322 if (now
->tok
== tok_eol
)
323 lr_error (ldfile
, _("%s: incomplete `END' line"), "LC_NUMERIC");
324 else if (now
->tok
!= tok_lc_numeric
)
325 lr_error (ldfile
, _("\
326 %1$s: definition does not end with `END %1$s'"), "LC_NUMERIC");
327 lr_ignore_rest (ldfile
, now
->tok
== tok_lc_numeric
);
332 SYNTAX_ERROR (_("%s: syntax error"), "LC_NUMERIC");
335 /* Prepare for the next round. */
336 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
340 /* When we come here we reached the end of the file. */
341 lr_error (ldfile
, _("%s: premature end of file"), "LC_NUMERIC");