1 /* Copyright (C) 1995-2014 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/>. */
32 #include "localedef.h"
33 #include "linereader.h"
34 #include "localeinfo.h"
38 /* The real definition of the struct for the LC_MONETARY locale. */
39 struct locale_monetary_t
41 const char *int_curr_symbol
;
42 const char *currency_symbol
;
43 const char *mon_decimal_point
;
44 const char *mon_thousands_sep
;
45 uint32_t mon_decimal_point_wc
;
46 uint32_t mon_thousands_sep_wc
;
48 size_t mon_grouping_len
;
49 const char *positive_sign
;
50 const char *negative_sign
;
51 signed char int_frac_digits
;
52 signed char frac_digits
;
53 signed char p_cs_precedes
;
54 signed char p_sep_by_space
;
55 signed char n_cs_precedes
;
56 signed char n_sep_by_space
;
57 signed char p_sign_posn
;
58 signed char n_sign_posn
;
59 signed char int_p_cs_precedes
;
60 signed char int_p_sep_by_space
;
61 signed char int_n_cs_precedes
;
62 signed char int_n_sep_by_space
;
63 signed char int_p_sign_posn
;
64 signed char int_n_sign_posn
;
65 const char *duo_int_curr_symbol
;
66 const char *duo_currency_symbol
;
67 signed char duo_int_frac_digits
;
68 signed char duo_frac_digits
;
69 signed char duo_p_cs_precedes
;
70 signed char duo_p_sep_by_space
;
71 signed char duo_n_cs_precedes
;
72 signed char duo_n_sep_by_space
;
73 signed char duo_p_sign_posn
;
74 signed char duo_n_sign_posn
;
75 signed char duo_int_p_cs_precedes
;
76 signed char duo_int_p_sep_by_space
;
77 signed char duo_int_n_cs_precedes
;
78 signed char duo_int_n_sep_by_space
;
79 signed char duo_int_p_sign_posn
;
80 signed char duo_int_n_sign_posn
;
81 uint32_t uno_valid_from
;
82 uint32_t uno_valid_to
;
83 uint32_t duo_valid_from
;
84 uint32_t duo_valid_to
;
85 uint32_t conversion_rate
[2];
90 /* The content iof the field int_curr_symbol has to be taken from
91 ISO-4217. We test for correct values. */
92 #define DEFINE_INT_CURR(str) str,
93 static const char *const valid_int_curr
[] =
95 # include "../iso-4217.def"
97 #define NR_VALID_INT_CURR ((sizeof (valid_int_curr) \
98 / sizeof (valid_int_curr[0])))
99 #undef DEFINE_INT_CURR
102 /* Prototypes for local functions. */
103 static int curr_strcmp (const char *s1
, const char **s2
);
107 monetary_startup (struct linereader
*lr
, struct localedef_t
*locale
,
112 struct locale_monetary_t
*monetary
;
114 locale
->categories
[LC_MONETARY
].monetary
= monetary
=
115 (struct locale_monetary_t
*) xmalloc (sizeof (*monetary
));
117 memset (monetary
, '\0', sizeof (struct locale_monetary_t
));
119 monetary
->mon_grouping
= NULL
;
120 monetary
->mon_grouping_len
= 0;
122 monetary
->int_frac_digits
= -2;
123 monetary
->frac_digits
= -2;
124 monetary
->p_cs_precedes
= -2;
125 monetary
->p_sep_by_space
= -2;
126 monetary
->n_cs_precedes
= -2;
127 monetary
->n_sep_by_space
= -2;
128 monetary
->p_sign_posn
= -2;
129 monetary
->n_sign_posn
= -2;
130 monetary
->int_p_cs_precedes
= -2;
131 monetary
->int_p_sep_by_space
= -2;
132 monetary
->int_n_cs_precedes
= -2;
133 monetary
->int_n_sep_by_space
= -2;
134 monetary
->int_p_sign_posn
= -2;
135 monetary
->int_n_sign_posn
= -2;
136 monetary
->duo_int_frac_digits
= -2;
137 monetary
->duo_frac_digits
= -2;
138 monetary
->duo_p_cs_precedes
= -2;
139 monetary
->duo_p_sep_by_space
= -2;
140 monetary
->duo_n_cs_precedes
= -2;
141 monetary
->duo_n_sep_by_space
= -2;
142 monetary
->duo_p_sign_posn
= -2;
143 monetary
->duo_n_sign_posn
= -2;
144 monetary
->duo_int_p_cs_precedes
= -2;
145 monetary
->duo_int_p_sep_by_space
= -2;
146 monetary
->duo_int_n_cs_precedes
= -2;
147 monetary
->duo_int_n_sep_by_space
= -2;
148 monetary
->duo_int_p_sign_posn
= -2;
149 monetary
->duo_int_n_sign_posn
= -2;
154 lr
->translate_strings
= 1;
155 lr
->return_widestr
= 0;
161 monetary_finish (struct localedef_t
*locale
, const struct charmap_t
*charmap
)
163 struct locale_monetary_t
*monetary
164 = locale
->categories
[LC_MONETARY
].monetary
;
167 /* Now resolve copying and also handle completely missing definitions. */
168 if (monetary
== NULL
)
170 /* First see whether we were supposed to copy. If yes, find the
171 actual definition. */
172 if (locale
->copy_name
[LC_MONETARY
] != NULL
)
174 /* Find the copying locale. This has to happen transitively since
175 the locale we are copying from might also copying another one. */
176 struct localedef_t
*from
= locale
;
179 from
= find_locale (LC_MONETARY
, from
->copy_name
[LC_MONETARY
],
180 from
->repertoire_name
, charmap
);
181 while (from
->categories
[LC_MONETARY
].monetary
== NULL
182 && from
->copy_name
[LC_MONETARY
] != NULL
);
184 monetary
= locale
->categories
[LC_MONETARY
].monetary
185 = from
->categories
[LC_MONETARY
].monetary
;
188 /* If there is still no definition issue an warning and create an
190 if (monetary
== NULL
)
193 WITH_CUR_LOCALE (error (0, 0, _("\
194 No definition for %s category found"), "LC_MONETARY"));
195 monetary_startup (NULL
, locale
, 0);
196 monetary
= locale
->categories
[LC_MONETARY
].monetary
;
201 #define TEST_ELEM(cat, initval) \
202 if (monetary->cat == NULL) \
204 if (! be_quiet && ! nothing) \
205 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"), \
206 "LC_MONETARY", #cat)); \
207 monetary->cat = initval; \
210 TEST_ELEM (int_curr_symbol
, "");
211 TEST_ELEM (currency_symbol
, "");
212 TEST_ELEM (mon_decimal_point
, ".");
213 TEST_ELEM (mon_thousands_sep
, "");
214 TEST_ELEM (positive_sign
, "");
215 TEST_ELEM (negative_sign
, "");
217 /* The international currency symbol must come from ISO 4217. */
218 if (monetary
->int_curr_symbol
!= NULL
)
220 if (strlen (monetary
->int_curr_symbol
) != 4)
222 if (! be_quiet
&& ! nothing
)
223 WITH_CUR_LOCALE (error (0, 0, _("\
224 %s: value of field `int_curr_symbol' has wrong length"),
228 { /* Check the first three characters against ISO 4217 */
230 strncpy (symbol
, monetary
->int_curr_symbol
, 3);
232 if (bsearch (symbol
, valid_int_curr
, NR_VALID_INT_CURR
,
233 sizeof (const char *),
234 (comparison_fn_t
) curr_strcmp
) == NULL
236 WITH_CUR_LOCALE (error (0, 0, _("\
237 %s: value of field `int_curr_symbol' does \
238 not correspond to a valid name in ISO 4217"),
243 /* The decimal point must not be empty. This is not said explicitly
244 in POSIX but ANSI C (ISO/IEC 9899) says in 4.4.2.1 it has to be
246 if (monetary
->mon_decimal_point
== NULL
)
248 if (! be_quiet
&& ! nothing
)
249 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"),
250 "LC_MONETARY", "mon_decimal_point"));
251 monetary
->mon_decimal_point
= ".";
253 else if (monetary
->mon_decimal_point
[0] == '\0' && ! be_quiet
&& ! nothing
)
255 WITH_CUR_LOCALE (error (0, 0, _("\
256 %s: value for field `%s' must not be an empty string"),
257 "LC_MONETARY", "mon_decimal_point"));
259 if (monetary
->mon_decimal_point_wc
== L
'\0')
260 monetary
->mon_decimal_point_wc
= L
'.';
262 if (monetary
->mon_grouping_len
== 0)
264 if (! be_quiet
&& ! nothing
)
265 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"),
266 "LC_MONETARY", "mon_grouping"));
268 monetary
->mon_grouping
= (char *) "\177";
269 monetary
->mon_grouping_len
= 1;
273 #define TEST_ELEM(cat, min, max, initval) \
274 if (monetary->cat == -2) \
276 if (! be_quiet && ! nothing) \
277 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"), \
278 "LC_MONETARY", #cat)); \
279 monetary->cat = initval; \
281 else if ((monetary->cat < min || monetary->cat > max) \
283 && !be_quiet && !nothing) \
284 WITH_CUR_LOCALE (error (0, 0, _("\
285 %s: value for field `%s' must be in range %d...%d"), \
286 "LC_MONETARY", #cat, min, max))
288 TEST_ELEM (int_frac_digits
, 1, 0, -1);
289 TEST_ELEM (frac_digits
, 1, 0, -1);
290 TEST_ELEM (p_cs_precedes
, -1, 1, -1);
291 TEST_ELEM (p_sep_by_space
, -1, 2, -1);
292 TEST_ELEM (n_cs_precedes
, -1, 1, -1);
293 TEST_ELEM (n_sep_by_space
, -1, 2, -1);
294 TEST_ELEM (p_sign_posn
, -1, 4, -1);
295 TEST_ELEM (n_sign_posn
, -1, 4, -1);
297 /* The non-POSIX.2 extensions are optional. */
298 if (monetary
->duo_int_curr_symbol
== NULL
)
299 monetary
->duo_int_curr_symbol
= monetary
->int_curr_symbol
;
300 if (monetary
->duo_currency_symbol
== NULL
)
301 monetary
->duo_currency_symbol
= monetary
->currency_symbol
;
303 if (monetary
->duo_int_frac_digits
== -2)
304 monetary
->duo_int_frac_digits
= monetary
->int_frac_digits
;
305 if (monetary
->duo_frac_digits
== -2)
306 monetary
->duo_frac_digits
= monetary
->frac_digits
;
309 #define TEST_ELEM(cat, alt, min, max) \
310 if (monetary->cat == -2) \
311 monetary->cat = monetary->alt; \
312 else if ((monetary->cat < min || monetary->cat > max) && !be_quiet \
314 WITH_CUR_LOCALE (error (0, 0, _("\
315 %s: value for field `%s' must be in range %d...%d"), \
316 "LC_MONETARY", #cat, min, max))
318 TEST_ELEM (int_p_cs_precedes
, p_cs_precedes
, -1, 1);
319 TEST_ELEM (int_p_sep_by_space
, p_sep_by_space
, -1, 2);
320 TEST_ELEM (int_n_cs_precedes
, n_cs_precedes
, -1, 1);
321 TEST_ELEM (int_n_sep_by_space
, n_sep_by_space
, -1, 2);
322 TEST_ELEM (int_p_sign_posn
, p_sign_posn
, -1, 4);
323 TEST_ELEM (int_n_sign_posn
, n_sign_posn
, -1, 4);
325 TEST_ELEM (duo_p_cs_precedes
, p_cs_precedes
, -1, 1);
326 TEST_ELEM (duo_p_sep_by_space
, p_sep_by_space
, -1, 2);
327 TEST_ELEM (duo_n_cs_precedes
, n_cs_precedes
, -1, 1);
328 TEST_ELEM (duo_n_sep_by_space
, n_sep_by_space
, -1, 2);
329 TEST_ELEM (duo_int_p_cs_precedes
, int_p_cs_precedes
, -1, 1);
330 TEST_ELEM (duo_int_p_sep_by_space
, int_p_sep_by_space
, -1, 2);
331 TEST_ELEM (duo_int_n_cs_precedes
, int_n_cs_precedes
, -1, 1);
332 TEST_ELEM (duo_int_n_sep_by_space
, int_n_sep_by_space
, -1, 2);
333 TEST_ELEM (duo_p_sign_posn
, p_sign_posn
, -1, 4);
334 TEST_ELEM (duo_n_sign_posn
, n_sign_posn
, -1, 4);
335 TEST_ELEM (duo_int_p_sign_posn
, int_p_sign_posn
, -1, 4);
336 TEST_ELEM (duo_int_n_sign_posn
, int_n_sign_posn
, -1, 4);
338 if (monetary
->uno_valid_from
== 0)
339 monetary
->uno_valid_from
= 10101;
340 if (monetary
->uno_valid_to
== 0)
341 monetary
->uno_valid_to
= 99991231;
342 if (monetary
->duo_valid_from
== 0)
343 monetary
->duo_valid_from
= 10101;
344 if (monetary
->duo_valid_to
== 0)
345 monetary
->duo_valid_to
= 99991231;
347 if (monetary
->conversion_rate
[0] == 0)
349 monetary
->conversion_rate
[0] = 1;
350 monetary
->conversion_rate
[1] = 1;
353 /* Create the crncystr entry. */
354 monetary
->crncystr
= (char *) xmalloc (strlen (monetary
->currency_symbol
)
356 monetary
->crncystr
[0] = monetary
->p_cs_precedes
? '-' : '+';
357 strcpy (&monetary
->crncystr
[1], monetary
->currency_symbol
);
362 monetary_output (struct localedef_t
*locale
, const struct charmap_t
*charmap
,
363 const char *output_path
)
365 struct locale_monetary_t
*monetary
366 = locale
->categories
[LC_MONETARY
].monetary
;
367 struct locale_file file
;
369 init_locale_data (&file
, _NL_ITEM_INDEX (_NL_NUM_LC_MONETARY
));
370 add_locale_string (&file
, monetary
->int_curr_symbol
);
371 add_locale_string (&file
, monetary
->currency_symbol
);
372 add_locale_string (&file
, monetary
->mon_decimal_point
);
373 add_locale_string (&file
, monetary
->mon_thousands_sep
);
374 add_locale_raw_data (&file
, monetary
->mon_grouping
,
375 monetary
->mon_grouping_len
);
376 add_locale_string (&file
, monetary
->positive_sign
);
377 add_locale_string (&file
, monetary
->negative_sign
);
378 add_locale_char (&file
, monetary
->int_frac_digits
);
379 add_locale_char (&file
, monetary
->frac_digits
);
380 add_locale_char (&file
, monetary
->p_cs_precedes
);
381 add_locale_char (&file
, monetary
->p_sep_by_space
);
382 add_locale_char (&file
, monetary
->n_cs_precedes
);
383 add_locale_char (&file
, monetary
->n_sep_by_space
);
384 add_locale_char (&file
, monetary
->p_sign_posn
);
385 add_locale_char (&file
, monetary
->n_sign_posn
);
386 add_locale_string (&file
, monetary
->crncystr
);
387 add_locale_char (&file
, monetary
->int_p_cs_precedes
);
388 add_locale_char (&file
, monetary
->int_p_sep_by_space
);
389 add_locale_char (&file
, monetary
->int_n_cs_precedes
);
390 add_locale_char (&file
, monetary
->int_n_sep_by_space
);
391 add_locale_char (&file
, monetary
->int_p_sign_posn
);
392 add_locale_char (&file
, monetary
->int_n_sign_posn
);
393 add_locale_string (&file
, monetary
->duo_int_curr_symbol
);
394 add_locale_string (&file
, monetary
->duo_currency_symbol
);
395 add_locale_char (&file
, monetary
->duo_int_frac_digits
);
396 add_locale_char (&file
, monetary
->duo_frac_digits
);
397 add_locale_char (&file
, monetary
->duo_p_cs_precedes
);
398 add_locale_char (&file
, monetary
->duo_p_sep_by_space
);
399 add_locale_char (&file
, monetary
->duo_n_cs_precedes
);
400 add_locale_char (&file
, monetary
->duo_n_sep_by_space
);
401 add_locale_char (&file
, monetary
->duo_int_p_cs_precedes
);
402 add_locale_char (&file
, monetary
->duo_int_p_sep_by_space
);
403 add_locale_char (&file
, monetary
->duo_int_n_cs_precedes
);
404 add_locale_char (&file
, monetary
->duo_int_n_sep_by_space
);
405 add_locale_char (&file
, monetary
->duo_p_sign_posn
);
406 add_locale_char (&file
, monetary
->duo_n_sign_posn
);
407 add_locale_char (&file
, monetary
->duo_int_p_sign_posn
);
408 add_locale_char (&file
, monetary
->duo_int_n_sign_posn
);
409 add_locale_uint32 (&file
, monetary
->uno_valid_from
);
410 add_locale_uint32 (&file
, monetary
->uno_valid_to
);
411 add_locale_uint32 (&file
, monetary
->duo_valid_from
);
412 add_locale_uint32 (&file
, monetary
->duo_valid_to
);
413 add_locale_uint32_array (&file
, monetary
->conversion_rate
, 2);
414 add_locale_uint32 (&file
, monetary
->mon_decimal_point_wc
);
415 add_locale_uint32 (&file
, monetary
->mon_thousands_sep_wc
);
416 add_locale_string (&file
, charmap
->code_set_name
);
417 write_locale_data (output_path
, LC_MONETARY
, "LC_MONETARY", &file
);
422 curr_strcmp (const char *s1
, const char **s2
)
424 return strcmp (s1
, *s2
);
428 /* The parser for the LC_MONETARY section of the locale definition. */
430 monetary_read (struct linereader
*ldfile
, struct localedef_t
*result
,
431 const struct charmap_t
*charmap
, const char *repertoire_name
,
434 struct repertoire_t
*repertoire
= NULL
;
435 struct locale_monetary_t
*monetary
;
439 /* Get the repertoire we have to use. */
440 if (repertoire_name
!= NULL
)
441 repertoire
= repertoire_read (repertoire_name
);
443 /* The rest of the line containing `LC_MONETARY' must be free. */
444 lr_ignore_rest (ldfile
, 1);
448 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
451 while (nowtok
== tok_eol
);
453 /* If we see `copy' now we are almost done. */
454 if (nowtok
== tok_copy
)
456 handle_copy (ldfile
, charmap
, repertoire_name
, result
, tok_lc_monetary
,
457 LC_MONETARY
, "LC_MONETARY", ignore_content
);
461 /* Prepare the data structures. */
462 monetary_startup (ldfile
, result
, ignore_content
);
463 monetary
= result
->categories
[LC_MONETARY
].monetary
;
467 /* Of course we don't proceed beyond the end of file. */
468 if (nowtok
== tok_eof
)
471 /* Ignore empty lines. */
472 if (nowtok
== tok_eol
)
474 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
481 #define STR_ELEM(cat) \
483 /* Ignore the rest of the line if we don't need the input of \
485 if (ignore_content) \
487 lr_ignore_rest (ldfile, 0); \
491 now = lr_token (ldfile, charmap, result, NULL, verbose); \
492 if (now->tok != tok_string) \
494 else if (monetary->cat != NULL) \
495 lr_error (ldfile, _("%s: field `%s' declared more than once"), \
496 "LC_MONETARY", #cat); \
497 else if (!ignore_content && now->val.str.startmb == NULL) \
499 lr_error (ldfile, _("\
500 %s: unknown character in field `%s'"), "LC_MONETARY", #cat); \
501 monetary->cat = ""; \
503 else if (!ignore_content) \
504 monetary->cat = now->val.str.startmb; \
505 lr_ignore_rest (ldfile, 1); \
508 STR_ELEM (int_curr_symbol
);
509 STR_ELEM (currency_symbol
);
510 STR_ELEM (positive_sign
);
511 STR_ELEM (negative_sign
);
512 STR_ELEM (duo_int_curr_symbol
);
513 STR_ELEM (duo_currency_symbol
);
515 #define STR_ELEM_WC(cat) \
517 /* Ignore the rest of the line if we don't need the input of \
519 if (ignore_content) \
521 lr_ignore_rest (ldfile, 0); \
525 ldfile->return_widestr = 1; \
526 now = lr_token (ldfile, charmap, result, repertoire, verbose); \
527 if (now->tok != tok_string) \
529 if (monetary->cat != NULL) \
530 lr_error (ldfile, _("\
531 %s: field `%s' declared more than once"), "LC_MONETARY", #cat); \
532 else if (!ignore_content && now->val.str.startmb == NULL) \
534 lr_error (ldfile, _("\
535 %s: unknown character in field `%s'"), "LC_MONETARY", #cat); \
536 monetary->cat = ""; \
537 monetary->cat##_wc = L'\0'; \
539 else if (now->val.str.startwc != NULL && now->val.str.lenwc > 2) \
541 lr_error (ldfile, _("\
542 %s: value for field `%s' must be a single character"), "LC_MONETARY", #cat); \
544 else if (!ignore_content) \
546 monetary->cat = now->val.str.startmb; \
548 if (now->val.str.startwc != NULL) \
549 monetary->cat##_wc = *now->val.str.startwc; \
551 ldfile->return_widestr = 0; \
554 STR_ELEM_WC (mon_decimal_point
);
555 STR_ELEM_WC (mon_thousands_sep
);
557 #define INT_ELEM(cat) \
559 /* Ignore the rest of the line if we don't need the input of \
561 if (ignore_content) \
563 lr_ignore_rest (ldfile, 0); \
567 now = lr_token (ldfile, charmap, result, NULL, verbose); \
568 if (now->tok != tok_minus1 && now->tok != tok_number) \
570 else if (monetary->cat != -2) \
571 lr_error (ldfile, _("%s: field `%s' declared more than once"), \
572 "LC_MONETARY", #cat); \
573 else if (!ignore_content) \
574 monetary->cat = now->tok == tok_minus1 ? -1 : now->val.num; \
577 INT_ELEM (int_frac_digits
);
578 INT_ELEM (frac_digits
);
579 INT_ELEM (p_cs_precedes
);
580 INT_ELEM (p_sep_by_space
);
581 INT_ELEM (n_cs_precedes
);
582 INT_ELEM (n_sep_by_space
);
583 INT_ELEM (p_sign_posn
);
584 INT_ELEM (n_sign_posn
);
585 INT_ELEM (int_p_cs_precedes
);
586 INT_ELEM (int_p_sep_by_space
);
587 INT_ELEM (int_n_cs_precedes
);
588 INT_ELEM (int_n_sep_by_space
);
589 INT_ELEM (int_p_sign_posn
);
590 INT_ELEM (int_n_sign_posn
);
591 INT_ELEM (duo_int_frac_digits
);
592 INT_ELEM (duo_frac_digits
);
593 INT_ELEM (duo_p_cs_precedes
);
594 INT_ELEM (duo_p_sep_by_space
);
595 INT_ELEM (duo_n_cs_precedes
);
596 INT_ELEM (duo_n_sep_by_space
);
597 INT_ELEM (duo_p_sign_posn
);
598 INT_ELEM (duo_n_sign_posn
);
599 INT_ELEM (duo_int_p_cs_precedes
);
600 INT_ELEM (duo_int_p_sep_by_space
);
601 INT_ELEM (duo_int_n_cs_precedes
);
602 INT_ELEM (duo_int_n_sep_by_space
);
603 INT_ELEM (duo_int_p_sign_posn
);
604 INT_ELEM (duo_int_n_sign_posn
);
605 INT_ELEM (uno_valid_from
);
606 INT_ELEM (uno_valid_to
);
607 INT_ELEM (duo_valid_from
);
608 INT_ELEM (duo_valid_to
);
610 case tok_mon_grouping
:
611 /* Ignore the rest of the line if we don't need the input of
615 lr_ignore_rest (ldfile
, 0);
619 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
620 if (now
->tok
!= tok_minus1
&& now
->tok
!= tok_number
)
626 char *grouping
= ignore_content
? NULL
: xmalloc (max
);
633 grouping
= xrealloc (grouping
, max
);
636 if (act
> 0 && grouping
[act
- 1] == '\177')
638 lr_error (ldfile
, _("\
639 %s: `-1' must be last entry in `%s' field"),
640 "LC_MONETARY", "mon_grouping");
641 lr_ignore_rest (ldfile
, 0);
645 if (now
->tok
== tok_minus1
)
648 grouping
[act
++] = '\177';
650 else if (now
->val
.num
== 0)
652 /* A value of 0 disables grouping from here on but
653 we must not store a NUL character since this
654 terminates the string. Use something different
655 which must not be used otherwise. */
657 grouping
[act
++] = '\377';
659 else if (now
->val
.num
> 126)
660 lr_error (ldfile
, _("\
661 %s: values for field `%s' must be smaller than 127"),
662 "LC_MONETARY", "mon_grouping");
663 else if (!ignore_content
)
664 grouping
[act
++] = now
->val
.num
;
666 /* Next must be semicolon. */
667 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
668 if (now
->tok
!= tok_semicolon
)
671 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
673 while (now
->tok
== tok_minus1
|| now
->tok
== tok_number
);
675 if (now
->tok
!= tok_eol
)
680 /* A single -1 means no grouping. */
681 if (act
== 1 && grouping
[0] == '\177')
683 grouping
[act
++] = '\0';
685 monetary
->mon_grouping
= xrealloc (grouping
, act
);
686 monetary
->mon_grouping_len
= act
;
691 case tok_conversion_rate
:
692 /* Ignore the rest of the line if we don't need the input of
696 lr_ignore_rest (ldfile
, 0);
700 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
701 if (now
->tok
!= tok_number
)
703 if (now
->val
.num
== 0)
705 invalid_conversion_rate
:
706 lr_error (ldfile
, _("conversion rate value cannot be zero"));
709 monetary
->conversion_rate
[0] = 1;
710 monetary
->conversion_rate
[1] = 1;
715 monetary
->conversion_rate
[0] = now
->val
.num
;
716 /* Next must be a semicolon. */
717 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
718 if (now
->tok
!= tok_semicolon
)
720 /* And another number. */
721 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
722 if (now
->tok
!= tok_number
)
724 if (now
->val
.num
== 0)
725 goto invalid_conversion_rate
;
727 monetary
->conversion_rate
[1] = now
->val
.num
;
728 /* The rest of the line must be empty. */
729 lr_ignore_rest (ldfile
, 1);
733 /* Next we assume `LC_MONETARY'. */
734 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
735 if (now
->tok
== tok_eof
)
737 if (now
->tok
== tok_eol
)
738 lr_error (ldfile
, _("%s: incomplete `END' line"), "LC_MONETARY");
739 else if (now
->tok
!= tok_lc_monetary
)
740 lr_error (ldfile
, _("\
741 %1$s: definition does not end with `END %1$s'"), "LC_MONETARY");
742 lr_ignore_rest (ldfile
, now
->tok
== tok_lc_monetary
);
747 SYNTAX_ERROR (_("%s: syntax error"), "LC_MONETARY");
750 /* Prepare for the next round. */
751 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
755 /* When we come here we reached the end of the file. */
756 lr_error (ldfile
, _("%s: premature end of file"), "LC_MONETARY");