1 /* Copyright (C) 1995-2017 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 WITH_CUR_LOCALE (error (0, 0, _("\
99 No definition for %s category found"), "LC_NUMERIC"));
100 numeric_startup (NULL
, locale
, 0);
101 numeric
= locale
->categories
[LC_NUMERIC
].numeric
;
106 /* The decimal point must not be empty. This is not said explicitly
107 in POSIX but ANSI C (ISO/IEC 9899) says in 4.4.2.1 it has to be
109 if (numeric
->decimal_point
== NULL
)
111 if (! be_quiet
&& ! nothing
)
112 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"),
113 "LC_NUMERIC", "decimal_point"));
114 numeric
->decimal_point
= ".";
116 else if (numeric
->decimal_point
[0] == '\0' && ! be_quiet
&& ! nothing
)
118 WITH_CUR_LOCALE (error (0, 0, _("\
119 %s: value for field `%s' must not be an empty string"),
120 "LC_NUMERIC", "decimal_point"));
122 if (numeric
->decimal_point_wc
== L
'\0')
123 numeric
->decimal_point_wc
= L
'.';
125 if (numeric
->grouping_len
== 0 && ! be_quiet
&& ! nothing
)
126 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"),
127 "LC_NUMERIC", "grouping"));
132 numeric_output (struct localedef_t
*locale
, const struct charmap_t
*charmap
,
133 const char *output_path
)
135 struct locale_numeric_t
*numeric
= locale
->categories
[LC_NUMERIC
].numeric
;
136 struct locale_file file
;
138 init_locale_data (&file
, _NL_ITEM_INDEX (_NL_NUM_LC_NUMERIC
));
139 add_locale_string (&file
, numeric
->decimal_point
?: "");
140 add_locale_string (&file
, numeric
->thousands_sep
?: "");
141 add_locale_raw_data (&file
, numeric
->grouping
, numeric
->grouping_len
);
142 add_locale_uint32 (&file
, numeric
->decimal_point_wc
);
143 add_locale_uint32 (&file
, numeric
->thousands_sep_wc
);
144 add_locale_string (&file
, charmap
->code_set_name
);
145 write_locale_data (output_path
, LC_NUMERIC
, "LC_NUMERIC", &file
);
149 /* The parser for the LC_NUMERIC section of the locale definition. */
151 numeric_read (struct linereader
*ldfile
, struct localedef_t
*result
,
152 const struct charmap_t
*charmap
, const char *repertoire_name
,
155 struct repertoire_t
*repertoire
= NULL
;
156 struct locale_numeric_t
*numeric
;
160 /* Get the repertoire we have to use. */
161 if (repertoire_name
!= NULL
)
162 repertoire
= repertoire_read (repertoire_name
);
164 /* The rest of the line containing `LC_NUMERIC' must be free. */
165 lr_ignore_rest (ldfile
, 1);
170 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
173 while (nowtok
== tok_eol
);
175 /* If we see `copy' now we are almost done. */
176 if (nowtok
== tok_copy
)
178 handle_copy (ldfile
, charmap
, repertoire_name
, result
, tok_lc_numeric
,
179 LC_NUMERIC
, "LC_NUMERIC", ignore_content
);
183 /* Prepare the data structures. */
184 numeric_startup (ldfile
, result
, ignore_content
);
185 numeric
= result
->categories
[LC_NUMERIC
].numeric
;
189 /* Of course we don't proceed beyond the end of file. */
190 if (nowtok
== tok_eof
)
193 /* Ingore empty lines. */
194 if (nowtok
== tok_eol
)
196 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
203 #define STR_ELEM(cat) \
205 /* Ignore the rest of the line if we don't need the input of \
207 if (ignore_content) \
209 lr_ignore_rest (ldfile, 0); \
213 ldfile->return_widestr = 1; \
214 now = lr_token (ldfile, charmap, result, repertoire, verbose); \
215 if (now->tok != tok_string) \
217 if (numeric->cat != NULL) \
218 lr_error (ldfile, _("\
219 %s: field `%s' declared more than once"), "LC_NUMERIC", #cat); \
220 else if (!ignore_content && now->val.str.startmb == NULL) \
222 lr_error (ldfile, _("\
223 %s: unknown character in field `%s'"), "LC_NUMERIC", #cat); \
225 numeric->cat##_wc = L'\0'; \
227 else if (now->val.str.startwc != NULL && now->val.str.lenwc > 2) \
229 lr_error (ldfile, _("\
230 %s: value for field `%s' must be a single character"), "LC_NUMERIC", #cat); \
232 else if (!ignore_content) \
234 numeric->cat = now->val.str.startmb; \
236 if (now->val.str.startwc != NULL) \
237 numeric->cat##_wc = *now->val.str.startwc; \
239 ldfile->return_widestr = 0; \
242 STR_ELEM (decimal_point
);
243 STR_ELEM (thousands_sep
);
246 /* Ignore the rest of the line if we don't need the input of
250 lr_ignore_rest (ldfile
, 0);
254 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
255 if (now
->tok
!= tok_minus1
&& now
->tok
!= tok_number
)
261 char *grouping
= xmalloc (max
);
268 grouping
= xrealloc (grouping
, max
);
271 if (act
> 0 && grouping
[act
- 1] == '\177')
273 lr_error (ldfile
, _("\
274 %s: `-1' must be last entry in `%s' field"), "LC_NUMERIC", "grouping");
275 lr_ignore_rest (ldfile
, 0);
279 if (now
->tok
== tok_minus1
)
280 grouping
[act
++] = '\177';
281 else if (now
->val
.num
== 0)
283 /* A value of 0 disables grouping from here on but
284 we must not store a NUL character since this
285 terminates the string. Use something different
286 which must not be used otherwise. */
287 grouping
[act
++] = '\377';
289 else if (now
->val
.num
> 126)
290 lr_error (ldfile
, _("\
291 %s: values for field `%s' must be smaller than 127"),
292 "LC_NUMERIC", "grouping");
294 grouping
[act
++] = now
->val
.num
;
296 /* Next must be semicolon. */
297 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
298 if (now
->tok
!= tok_semicolon
)
301 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
303 while (now
->tok
== tok_minus1
|| now
->tok
== tok_number
);
305 if (now
->tok
!= tok_eol
)
308 /* A single -1 means no grouping. */
309 if (act
== 1 && grouping
[0] == '\177')
311 grouping
[act
++] = '\0';
313 numeric
->grouping
= xrealloc (grouping
, act
);
314 numeric
->grouping_len
= act
;
319 /* Next we assume `LC_NUMERIC'. */
320 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
321 if (now
->tok
== tok_eof
)
323 if (now
->tok
== tok_eol
)
324 lr_error (ldfile
, _("%s: incomplete `END' line"), "LC_NUMERIC");
325 else if (now
->tok
!= tok_lc_numeric
)
326 lr_error (ldfile
, _("\
327 %1$s: definition does not end with `END %1$s'"), "LC_NUMERIC");
328 lr_ignore_rest (ldfile
, now
->tok
== tok_lc_numeric
);
333 SYNTAX_ERROR (_("%s: syntax error"), "LC_NUMERIC");
336 /* Prepare for the next round. */
337 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
341 /* When we come here we reached the end of the file. */
342 lr_error (ldfile
, _("%s: premature end of file"), "LC_NUMERIC");