1 /* Copyright (C) 1995-1999, 2000, 2001, 2002 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@gnu.org>, 1995.
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.
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.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
33 #include "localedef.h"
34 #include "linereader.h"
35 #include "localeinfo.h"
39 /* The real definition of the struct for the LC_MONETARY locale. */
40 struct locale_monetary_t
42 const char *int_curr_symbol
;
43 const char *currency_symbol
;
44 const char *mon_decimal_point
;
45 const char *mon_thousands_sep
;
46 uint32_t mon_decimal_point_wc
;
47 uint32_t mon_thousands_sep_wc
;
49 size_t mon_grouping_len
;
50 const char *positive_sign
;
51 const char *negative_sign
;
52 signed char int_frac_digits
;
53 signed char frac_digits
;
54 signed char p_cs_precedes
;
55 signed char p_sep_by_space
;
56 signed char n_cs_precedes
;
57 signed char n_sep_by_space
;
58 signed char p_sign_posn
;
59 signed char n_sign_posn
;
60 signed char int_p_cs_precedes
;
61 signed char int_p_sep_by_space
;
62 signed char int_n_cs_precedes
;
63 signed char int_n_sep_by_space
;
64 signed char int_p_sign_posn
;
65 signed char int_n_sign_posn
;
66 const char *duo_int_curr_symbol
;
67 const char *duo_currency_symbol
;
68 signed char duo_int_frac_digits
;
69 signed char duo_frac_digits
;
70 signed char duo_p_cs_precedes
;
71 signed char duo_p_sep_by_space
;
72 signed char duo_n_cs_precedes
;
73 signed char duo_n_sep_by_space
;
74 signed char duo_p_sign_posn
;
75 signed char duo_n_sign_posn
;
76 signed char duo_int_p_cs_precedes
;
77 signed char duo_int_p_sep_by_space
;
78 signed char duo_int_n_cs_precedes
;
79 signed char duo_int_n_sep_by_space
;
80 signed char duo_int_p_sign_posn
;
81 signed char duo_int_n_sign_posn
;
82 uint32_t uno_valid_from
;
83 uint32_t uno_valid_to
;
84 uint32_t duo_valid_from
;
85 uint32_t duo_valid_to
;
86 uint32_t conversion_rate
[2];
91 /* The content iof the field int_curr_symbol has to be taken from
92 ISO-4217. We test for correct values. */
93 #define DEFINE_INT_CURR(str) str,
94 static const char *const valid_int_curr
[] =
96 # include "../iso-4217.def"
98 #define NR_VALID_INT_CURR ((sizeof (valid_int_curr) \
99 / sizeof (valid_int_curr[0])))
100 #undef DEFINE_INT_CURR
103 /* Prototypes for local functions. */
104 static int curr_strcmp (const char *s1
, const char **s2
);
108 monetary_startup (struct linereader
*lr
, struct localedef_t
*locale
,
113 struct locale_monetary_t
*monetary
;
115 locale
->categories
[LC_MONETARY
].monetary
= monetary
=
116 (struct locale_monetary_t
*) xmalloc (sizeof (*monetary
));
118 memset (monetary
, '\0', sizeof (struct locale_monetary_t
));
120 monetary
->mon_grouping
= NULL
;
121 monetary
->mon_grouping_len
= 0;
123 monetary
->int_frac_digits
= -2;
124 monetary
->frac_digits
= -2;
125 monetary
->p_cs_precedes
= -2;
126 monetary
->p_sep_by_space
= -2;
127 monetary
->n_cs_precedes
= -2;
128 monetary
->n_sep_by_space
= -2;
129 monetary
->p_sign_posn
= -2;
130 monetary
->n_sign_posn
= -2;
131 monetary
->int_p_cs_precedes
= -2;
132 monetary
->int_p_sep_by_space
= -2;
133 monetary
->int_n_cs_precedes
= -2;
134 monetary
->int_n_sep_by_space
= -2;
135 monetary
->int_p_sign_posn
= -2;
136 monetary
->int_n_sign_posn
= -2;
137 monetary
->duo_int_frac_digits
= -2;
138 monetary
->duo_frac_digits
= -2;
139 monetary
->duo_p_cs_precedes
= -2;
140 monetary
->duo_p_sep_by_space
= -2;
141 monetary
->duo_n_cs_precedes
= -2;
142 monetary
->duo_n_sep_by_space
= -2;
143 monetary
->duo_p_sign_posn
= -2;
144 monetary
->duo_n_sign_posn
= -2;
145 monetary
->duo_int_p_cs_precedes
= -2;
146 monetary
->duo_int_p_sep_by_space
= -2;
147 monetary
->duo_int_n_cs_precedes
= -2;
148 monetary
->duo_int_n_sep_by_space
= -2;
149 monetary
->duo_int_p_sign_posn
= -2;
150 monetary
->duo_int_n_sign_posn
= -2;
155 lr
->translate_strings
= 1;
156 lr
->return_widestr
= 0;
162 monetary_finish (struct localedef_t
*locale
, const struct charmap_t
*charmap
)
164 struct locale_monetary_t
*monetary
165 = locale
->categories
[LC_MONETARY
].monetary
;
168 /* Now resolve copying and also handle completely missing definitions. */
169 if (monetary
== NULL
)
171 /* First see whether we were supposed to copy. If yes, find the
172 actual definition. */
173 if (locale
->copy_name
[LC_MONETARY
] != NULL
)
175 /* Find the copying locale. This has to happen transitively since
176 the locale we are copying from might also copying another one. */
177 struct localedef_t
*from
= locale
;
180 from
= find_locale (LC_MONETARY
, from
->copy_name
[LC_MONETARY
],
181 from
->repertoire_name
, charmap
);
182 while (from
->categories
[LC_MONETARY
].monetary
== NULL
183 && from
->copy_name
[LC_MONETARY
] != NULL
);
185 monetary
= locale
->categories
[LC_MONETARY
].monetary
186 = from
->categories
[LC_MONETARY
].monetary
;
189 /* If there is still no definition issue an warning and create an
191 if (monetary
== NULL
)
194 WITH_CUR_LOCALE (error (0, 0, _("\
195 No definition for %s category found"), "LC_MONETARY"));
196 monetary_startup (NULL
, locale
, 0);
197 monetary
= locale
->categories
[LC_MONETARY
].monetary
;
202 #define TEST_ELEM(cat, initval) \
203 if (monetary->cat == NULL) \
205 if (! be_quiet && ! nothing) \
206 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"), \
207 "LC_MONETARY", #cat)); \
208 monetary->cat = initval; \
211 TEST_ELEM (int_curr_symbol
, "");
212 TEST_ELEM (currency_symbol
, "");
213 TEST_ELEM (mon_decimal_point
, ".");
214 TEST_ELEM (mon_thousands_sep
, "");
215 TEST_ELEM (positive_sign
, "");
216 TEST_ELEM (negative_sign
, "");
218 /* The international currency symbol must come from ISO 4217. */
219 if (monetary
->int_curr_symbol
!= NULL
)
221 if (strlen (monetary
->int_curr_symbol
) != 4)
223 if (! be_quiet
&& ! nothing
)
224 WITH_CUR_LOCALE (error (0, 0, _("\
225 %s: value of field `int_curr_symbol' has wrong length"),
229 { /* Check the first three characters against ISO 4217 */
231 strncpy (symbol
, monetary
->int_curr_symbol
, 3);
233 if (bsearch (symbol
, valid_int_curr
, NR_VALID_INT_CURR
,
234 sizeof (const char *),
235 (comparison_fn_t
) curr_strcmp
) == NULL
237 WITH_CUR_LOCALE (error (0, 0, _("\
238 %s: value of field `int_curr_symbol' does \
239 not correspond to a valid name in ISO 4217"),
244 /* The decimal point must not be empty. This is not said explicitly
245 in POSIX but ANSI C (ISO/IEC 9899) says in 4.4.2.1 it has to be
247 if (monetary
->mon_decimal_point
== NULL
)
249 if (! be_quiet
&& ! nothing
)
250 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"),
251 "LC_MONETARY", "mon_decimal_point"));
252 monetary
->mon_decimal_point
= ".";
254 else if (monetary
->mon_decimal_point
[0] == '\0' && ! be_quiet
&& ! nothing
)
256 WITH_CUR_LOCALE (error (0, 0, _("\
257 %s: value for field `%s' must not be the empty string"),
258 "LC_MONETARY", "mon_decimal_point"));
260 if (monetary
->mon_decimal_point_wc
== L
'\0')
261 monetary
->mon_decimal_point_wc
= L
'.';
263 if (monetary
->mon_grouping_len
== 0)
265 if (! be_quiet
&& ! nothing
)
266 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"),
267 "LC_MONETARY", "mon_grouping"));
269 monetary
->mon_grouping
= (char *) "\177";
270 monetary
->mon_grouping_len
= 1;
274 #define TEST_ELEM(cat, min, max, initval) \
275 if (monetary->cat == -2) \
277 if (! be_quiet && ! nothing) \
278 WITH_CUR_LOCALE (error (0, 0, _("%s: field `%s' not defined"), \
279 "LC_MONETARY", #cat)); \
280 monetary->cat = initval; \
282 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
, -128, 127, -1);
289 TEST_ELEM (frac_digits
, -128, 127, -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 iovec iov
[3 + _NL_ITEM_INDEX (_NL_NUM_LC_MONETARY
)];
368 struct locale_file data
;
369 uint32_t idx
[_NL_ITEM_INDEX (_NL_NUM_LC_MONETARY
)];
372 data
.magic
= LIMAGIC (LC_MONETARY
);
373 data
.n
= _NL_ITEM_INDEX (_NL_NUM_LC_MONETARY
);
374 iov
[cnt
].iov_base
= (void *) &data
;
375 iov
[cnt
].iov_len
= sizeof (data
);
378 iov
[cnt
].iov_base
= (void *) idx
;
379 iov
[cnt
].iov_len
= sizeof (idx
);
382 idx
[cnt
- 2] = iov
[0].iov_len
+ iov
[1].iov_len
;
383 iov
[cnt
].iov_base
= (void *) monetary
->int_curr_symbol
;
384 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
387 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
388 iov
[cnt
].iov_base
= (void *) monetary
->currency_symbol
;
389 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
392 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
393 iov
[cnt
].iov_base
= (void *) monetary
->mon_decimal_point
;
394 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
397 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
398 iov
[cnt
].iov_base
= (void *) monetary
->mon_thousands_sep
;
399 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
402 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
403 iov
[cnt
].iov_base
= monetary
->mon_grouping
;
404 iov
[cnt
].iov_len
= monetary
->mon_grouping_len
;
407 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
408 iov
[cnt
].iov_base
= (void *) monetary
->positive_sign
;
409 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
412 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
413 iov
[cnt
].iov_base
= (void *) monetary
->negative_sign
;
414 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
417 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
418 iov
[cnt
].iov_base
= (void *) &monetary
->int_frac_digits
;
419 iov
[cnt
].iov_len
= 1;
422 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
423 iov
[cnt
].iov_base
= (void *) &monetary
->frac_digits
;
424 iov
[cnt
].iov_len
= 1;
427 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
428 iov
[cnt
].iov_base
= (void *) &monetary
->p_cs_precedes
;
429 iov
[cnt
].iov_len
= 1;
432 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
433 iov
[cnt
].iov_base
= (void *) &monetary
->p_sep_by_space
;
434 iov
[cnt
].iov_len
= 1;
437 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
438 iov
[cnt
].iov_base
= (void *) &monetary
->n_cs_precedes
;
439 iov
[cnt
].iov_len
= 1;
442 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
443 iov
[cnt
].iov_base
= (void *) &monetary
->n_sep_by_space
;
444 iov
[cnt
].iov_len
= 1;
447 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
448 iov
[cnt
].iov_base
= (void *) &monetary
->p_sign_posn
;
449 iov
[cnt
].iov_len
= 1;
452 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
453 iov
[cnt
].iov_base
= (void *) &monetary
->n_sign_posn
;
454 iov
[cnt
].iov_len
= 1;
457 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
458 iov
[cnt
].iov_base
= (void *) monetary
->crncystr
;
459 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
462 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
463 iov
[cnt
].iov_base
= (void *) &monetary
->int_p_cs_precedes
;
464 iov
[cnt
].iov_len
= 1;
467 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
468 iov
[cnt
].iov_base
= (void *) &monetary
->int_p_sep_by_space
;
469 iov
[cnt
].iov_len
= 1;
472 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
473 iov
[cnt
].iov_base
= (void *) &monetary
->int_n_cs_precedes
;
474 iov
[cnt
].iov_len
= 1;
477 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
478 iov
[cnt
].iov_base
= (void *) &monetary
->int_n_sep_by_space
;
479 iov
[cnt
].iov_len
= 1;
482 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
483 iov
[cnt
].iov_base
= (void *) &monetary
->int_p_sign_posn
;
484 iov
[cnt
].iov_len
= 1;
487 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
488 iov
[cnt
].iov_base
= (void *) &monetary
->int_n_sign_posn
;
489 iov
[cnt
].iov_len
= 1;
492 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
493 iov
[cnt
].iov_base
= (void *) monetary
->duo_int_curr_symbol
;
494 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
497 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
498 iov
[cnt
].iov_base
= (void *) monetary
->duo_currency_symbol
;
499 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
502 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
503 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_frac_digits
;
504 iov
[cnt
].iov_len
= 1;
507 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
508 iov
[cnt
].iov_base
= (void *) &monetary
->duo_frac_digits
;
509 iov
[cnt
].iov_len
= 1;
512 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
513 iov
[cnt
].iov_base
= (void *) &monetary
->duo_p_cs_precedes
;
514 iov
[cnt
].iov_len
= 1;
517 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
518 iov
[cnt
].iov_base
= (void *) &monetary
->duo_p_sep_by_space
;
519 iov
[cnt
].iov_len
= 1;
522 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
523 iov
[cnt
].iov_base
= (void *) &monetary
->duo_n_cs_precedes
;
524 iov
[cnt
].iov_len
= 1;
527 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
528 iov
[cnt
].iov_base
= (void *) &monetary
->duo_n_sep_by_space
;
529 iov
[cnt
].iov_len
= 1;
532 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
533 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_p_cs_precedes
;
534 iov
[cnt
].iov_len
= 1;
537 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
538 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_p_sep_by_space
;
539 iov
[cnt
].iov_len
= 1;
542 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
543 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_n_cs_precedes
;
544 iov
[cnt
].iov_len
= 1;
547 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
548 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_n_sep_by_space
;
549 iov
[cnt
].iov_len
= 1;
552 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
553 iov
[cnt
].iov_base
= (void *) &monetary
->duo_p_sign_posn
;
554 iov
[cnt
].iov_len
= 1;
557 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
558 iov
[cnt
].iov_base
= (void *) &monetary
->duo_n_sign_posn
;
559 iov
[cnt
].iov_len
= 1;
562 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
563 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_p_sign_posn
;
564 iov
[cnt
].iov_len
= 1;
567 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
568 iov
[cnt
].iov_base
= (void *) &monetary
->duo_int_n_sign_posn
;
569 iov
[cnt
].iov_len
= 1;
572 idx
[cnt
- 2] = idx
[cnt
- 3] + iov
[cnt
- 1].iov_len
;
574 /* Align following data */
575 iov
[cnt
].iov_base
= (void *) "\0\0";
576 iov
[cnt
].iov_len
= ((idx
[cnt
- 2] + 3) & ~3) - idx
[cnt
- 2];
577 idx
[cnt
- 2] = (idx
[cnt
- 2] + 3) & ~3;
580 iov
[cnt
].iov_base
= (void *) &monetary
->uno_valid_from
;
581 iov
[cnt
].iov_len
= sizeof(uint32_t);
584 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
585 iov
[cnt
].iov_base
= (void *) &monetary
->uno_valid_to
;
586 iov
[cnt
].iov_len
= sizeof(uint32_t);
589 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
590 iov
[cnt
].iov_base
= (void *) &monetary
->duo_valid_from
;
591 iov
[cnt
].iov_len
= sizeof(uint32_t);
594 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
595 iov
[cnt
].iov_base
= (void *) &monetary
->duo_valid_to
;
596 iov
[cnt
].iov_len
= sizeof(uint32_t);
599 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
600 iov
[cnt
].iov_base
= (void *) monetary
->conversion_rate
;
601 iov
[cnt
].iov_len
= 2 * sizeof(uint32_t);
604 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
605 iov
[cnt
].iov_base
= (void *) &monetary
->mon_decimal_point_wc
;
606 iov
[cnt
].iov_len
= sizeof (uint32_t);
609 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
610 iov
[cnt
].iov_base
= (void *) &monetary
->mon_thousands_sep_wc
;
611 iov
[cnt
].iov_len
= sizeof (uint32_t);
614 idx
[cnt
- 3] = idx
[cnt
- 4] + iov
[cnt
- 1].iov_len
;
615 iov
[cnt
].iov_base
= (void *) charmap
->code_set_name
;
616 iov
[cnt
].iov_len
= strlen (iov
[cnt
].iov_base
) + 1;
619 assert (cnt
== 3 + _NL_ITEM_INDEX (_NL_NUM_LC_MONETARY
));
621 write_locale_data (output_path
, LC_MONETARY
, "LC_MONETARY",
622 3 + _NL_ITEM_INDEX (_NL_NUM_LC_MONETARY
), iov
);
627 curr_strcmp (const char *s1
, const char **s2
)
629 return strcmp (s1
, *s2
);
633 /* The parser for the LC_MONETARY section of the locale definition. */
635 monetary_read (struct linereader
*ldfile
, struct localedef_t
*result
,
636 const struct charmap_t
*charmap
, const char *repertoire_name
,
639 struct repertoire_t
*repertoire
= NULL
;
640 struct locale_monetary_t
*monetary
;
644 /* Get the repertoire we have to use. */
645 if (repertoire_name
!= NULL
)
646 repertoire
= repertoire_read (repertoire_name
);
648 /* The rest of the line containing `LC_MONETARY' must be free. */
649 lr_ignore_rest (ldfile
, 1);
653 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
656 while (nowtok
== tok_eol
);
658 /* If we see `copy' now we are almost done. */
659 if (nowtok
== tok_copy
)
661 handle_copy (ldfile
, charmap
, repertoire_name
, result
, tok_lc_monetary
,
662 LC_MONETARY
, "LC_MONETARY", ignore_content
);
666 /* Prepare the data structures. */
667 monetary_startup (ldfile
, result
, ignore_content
);
668 monetary
= result
->categories
[LC_MONETARY
].monetary
;
672 /* Of course we don't proceed beyond the end of file. */
673 if (nowtok
== tok_eof
)
676 /* Ignore empty lines. */
677 if (nowtok
== tok_eol
)
679 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
686 #define STR_ELEM(cat) \
688 /* Ignore the rest of the line if we don't need the input of \
690 if (ignore_content) \
692 lr_ignore_rest (ldfile, 0); \
696 now = lr_token (ldfile, charmap, result, NULL, verbose); \
697 if (now->tok != tok_string) \
699 else if (monetary->cat != NULL) \
700 lr_error (ldfile, _("%s: field `%s' declared more than once"), \
701 "LC_MONETARY", #cat); \
702 else if (!ignore_content && now->val.str.startmb == NULL) \
704 lr_error (ldfile, _("\
705 %s: unknown character in field `%s'"), "LC_MONETARY", #cat); \
706 monetary->cat = ""; \
708 else if (!ignore_content) \
709 monetary->cat = now->val.str.startmb; \
710 lr_ignore_rest (ldfile, 1); \
713 STR_ELEM (int_curr_symbol
);
714 STR_ELEM (currency_symbol
);
715 STR_ELEM (positive_sign
);
716 STR_ELEM (negative_sign
);
717 STR_ELEM (duo_int_curr_symbol
);
718 STR_ELEM (duo_currency_symbol
);
720 #define STR_ELEM_WC(cat) \
722 /* Ignore the rest of the line if we don't need the input of \
724 if (ignore_content) \
726 lr_ignore_rest (ldfile, 0); \
730 ldfile->return_widestr = 1; \
731 now = lr_token (ldfile, charmap, result, repertoire, verbose); \
732 if (now->tok != tok_string) \
734 if (monetary->cat != NULL) \
735 lr_error (ldfile, _("\
736 %s: field `%s' declared more than once"), "LC_MONETARY", #cat); \
737 else if (!ignore_content && now->val.str.startmb == NULL) \
739 lr_error (ldfile, _("\
740 %s: unknown character in field `%s'"), "LC_MONETARY", #cat); \
741 monetary->cat = ""; \
742 monetary->cat##_wc = L'\0'; \
744 else if (now->val.str.startwc != NULL && now->val.str.lenwc > 2) \
746 lr_error (ldfile, _("\
747 %s: value for field `%s' must be a single character"), "LC_MONETARY", #cat); \
749 else if (!ignore_content) \
751 monetary->cat = now->val.str.startmb; \
753 if (now->val.str.startwc != NULL) \
754 monetary->cat##_wc = *now->val.str.startwc; \
756 ldfile->return_widestr = 0; \
759 STR_ELEM_WC (mon_decimal_point
);
760 STR_ELEM_WC (mon_thousands_sep
);
762 #define INT_ELEM(cat) \
764 /* Ignore the rest of the line if we don't need the input of \
766 if (ignore_content) \
768 lr_ignore_rest (ldfile, 0); \
772 now = lr_token (ldfile, charmap, result, NULL, verbose); \
773 if (now->tok != tok_minus1 && now->tok != tok_number) \
775 else if (monetary->cat != -2) \
776 lr_error (ldfile, _("%s: field `%s' declared more than once"), \
777 "LC_MONETARY", #cat); \
778 else if (!ignore_content) \
779 monetary->cat = now->tok == tok_minus1 ? -1 : now->val.num; \
782 INT_ELEM (int_frac_digits
);
783 INT_ELEM (frac_digits
);
784 INT_ELEM (p_cs_precedes
);
785 INT_ELEM (p_sep_by_space
);
786 INT_ELEM (n_cs_precedes
);
787 INT_ELEM (n_sep_by_space
);
788 INT_ELEM (p_sign_posn
);
789 INT_ELEM (n_sign_posn
);
790 INT_ELEM (int_p_cs_precedes
);
791 INT_ELEM (int_p_sep_by_space
);
792 INT_ELEM (int_n_cs_precedes
);
793 INT_ELEM (int_n_sep_by_space
);
794 INT_ELEM (int_p_sign_posn
);
795 INT_ELEM (int_n_sign_posn
);
796 INT_ELEM (duo_int_frac_digits
);
797 INT_ELEM (duo_frac_digits
);
798 INT_ELEM (duo_p_cs_precedes
);
799 INT_ELEM (duo_p_sep_by_space
);
800 INT_ELEM (duo_n_cs_precedes
);
801 INT_ELEM (duo_n_sep_by_space
);
802 INT_ELEM (duo_p_sign_posn
);
803 INT_ELEM (duo_n_sign_posn
);
804 INT_ELEM (duo_int_p_cs_precedes
);
805 INT_ELEM (duo_int_p_sep_by_space
);
806 INT_ELEM (duo_int_n_cs_precedes
);
807 INT_ELEM (duo_int_n_sep_by_space
);
808 INT_ELEM (duo_int_p_sign_posn
);
809 INT_ELEM (duo_int_n_sign_posn
);
810 INT_ELEM (uno_valid_from
);
811 INT_ELEM (uno_valid_to
);
812 INT_ELEM (duo_valid_from
);
813 INT_ELEM (duo_valid_to
);
815 case tok_mon_grouping
:
816 /* Ignore the rest of the line if we don't need the input of
820 lr_ignore_rest (ldfile
, 0);
824 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
825 if (now
->tok
!= tok_minus1
&& now
->tok
!= tok_number
)
831 char *grouping
= ignore_content
? NULL
: xmalloc (max
);
838 grouping
= xrealloc (grouping
, max
);
841 if (act
> 0 && grouping
[act
- 1] == '\177')
843 lr_error (ldfile
, _("\
844 %s: `-1' must be last entry in `%s' field"),
845 "LC_MONETARY", "mon_grouping");
846 lr_ignore_rest (ldfile
, 0);
850 if (now
->tok
== tok_minus1
)
853 grouping
[act
++] = '\177';
855 else if (now
->val
.num
== 0)
857 /* A value of 0 disables grouping from here on but
858 we must not store a NUL character since this
859 terminates the string. Use something different
860 which must not be used otherwise. */
862 grouping
[act
++] = '\377';
864 else if (now
->val
.num
> 126)
865 lr_error (ldfile
, _("\
866 %s: values for field `%s' must be smaller than 127"),
867 "LC_MONETARY", "mon_grouping");
868 else if (!ignore_content
)
869 grouping
[act
++] = now
->val
.num
;
871 /* Next must be semicolon. */
872 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
873 if (now
->tok
!= tok_semicolon
)
876 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
878 while (now
->tok
== tok_minus1
|| now
->tok
== tok_number
);
880 if (now
->tok
!= tok_eol
)
885 grouping
[act
++] = '\0';
887 monetary
->mon_grouping
= xrealloc (grouping
, act
);
888 monetary
->mon_grouping_len
= act
;
893 case tok_conversion_rate
:
894 /* Ignore the rest of the line if we don't need the input of
898 lr_ignore_rest (ldfile
, 0);
902 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
903 if (now
->tok
!= tok_number
)
905 if (now
->val
.num
== 0)
907 invalid_conversion_rate
:
908 lr_error (ldfile
, _("conversion rate value cannot be zero"));
911 monetary
->conversion_rate
[0] = 1;
912 monetary
->conversion_rate
[1] = 1;
917 monetary
->conversion_rate
[0] = now
->val
.num
;
918 /* Next must be a semicolon. */
919 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
920 if (now
->tok
!= tok_semicolon
)
922 /* And another number. */
923 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
924 if (now
->tok
!= tok_number
)
926 if (now
->val
.num
== 0)
927 goto invalid_conversion_rate
;
929 monetary
->conversion_rate
[1] = now
->val
.num
;
930 /* The rest of the line must be empty. */
931 lr_ignore_rest (ldfile
, 1);
935 /* Next we assume `LC_MONETARY'. */
936 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
937 if (now
->tok
== tok_eof
)
939 if (now
->tok
== tok_eol
)
940 lr_error (ldfile
, _("%s: incomplete `END' line"), "LC_MONETARY");
941 else if (now
->tok
!= tok_lc_monetary
)
942 lr_error (ldfile
, _("\
943 %1$s: definition does not end with `END %1$s'"), "LC_MONETARY");
944 lr_ignore_rest (ldfile
, now
->tok
== tok_lc_monetary
);
949 SYNTAX_ERROR (_("%s: syntax error"), "LC_MONETARY");
952 /* Prepare for the next round. */
953 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
957 /* When we come here we reached the end of the file. */
958 lr_error (ldfile
, _("%s: premature end of file"), "LC_MONETARY");