/* Copyright (C) 1998, 1999 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Ulrich Drepper , 1998. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifdef HAVE_CONFIG_H # include #endif #include #include #include #include #include #include #include "localeinfo.h" #include "locfile.h" static struct { const char ab2[2]; const char ab3[3]; uint32_t num; } iso3166[] = { #define DEFINE_COUNTRY_CODE(Name, Ab2, Ab3, Num) \ { #Ab2, #Ab3, Num }, #include "iso-3166.def" }; static struct { const char ab[2]; const char term[3]; const char lib[3]; } iso639[] = { #define DEFINE_LANGUAGE_CODE(Name, Ab, Term, Lib) \ { #Ab, #Term, #Lib }, #include "iso-639.def" }; /* The real definition of the struct for the LC_ADDRESS locale. */ struct locale_address_t { const char *postal_fmt; const char *country_name; const char *country_post; const char *country_ab2; const char *country_ab3; uint32_t country_num; const char *country_car; const char *country_isbn; const char *lang_name; const char *lang_ab; const char *lang_term; const char *lang_lib; }; static void address_startup (struct linereader *lr, struct localedef_t *locale, int ignore_content) { if (!ignore_content) locale->categories[LC_ADDRESS].address = (struct locale_address_t *) xcalloc (1, sizeof (struct locale_address_t)); if (lr != NULL) { lr->translate_strings = 1; lr->return_widestr = 0; } } void address_finish (struct localedef_t *locale, struct charmap_t *charmap) { struct locale_address_t *address = locale->categories[LC_ADDRESS].address; size_t cnt; int helper; int nothing = 0; /* Now resolve copying and also handle completely missing definitions. */ if (address == NULL) { /* First see whether we were supposed to copy. If yes, find the actual definition. */ if (locale->copy_name[LC_ADDRESS] != NULL) { /* Find the copying locale. This has to happen transitively since the locale we are copying from might also copying another one. */ struct localedef_t *from = locale; do from = find_locale (LC_ADDRESS, from->copy_name[LC_ADDRESS], from->repertoire_name, charmap); while (from->categories[LC_ADDRESS].address == NULL && from->copy_name[LC_ADDRESS] != NULL); address = locale->categories[LC_ADDRESS].address = from->categories[LC_ADDRESS].address; } /* If there is still no definition issue an warning and create an empty one. */ if (address == NULL) { error (0, 0, _("No definition for %s category found"), "LC_ADDRESS"); address_startup (NULL, locale, 0); address = locale->categories[LC_ADDRESS].address; nothing = 1; } } if (address->postal_fmt == NULL) { if (! nothing) error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", "postal_fmt"); /* Use as the default value the value of the i18n locale. */ address->postal_fmt = "%a%N%f%N%d%N%b%N%s %h %e %r%N%C-%z %T%N%c%N"; } else { /* We must check whether the format string contains only the allowed escape sequences. */ const char *cp = address->postal_fmt; if (*cp == '\0') error (0, 0, _("%s: field `%s' must not be empty"), "LC_ADDRESS", "postal_fmt"); else while (*cp != '\0') { if (*cp == '%') { if (*++cp == 'R') /* Romanize-flag. */ ++cp; if (strchr ("afdbshNtreCzTc%", *cp) == NULL) { error (0, 0, _("\ %s: invalid escape `%%%c' sequence in field `%s'"), "LC_ADDRESS", *cp, "postal_fmt"); break; } } ++cp; } } #define TEST_ELEM(cat) \ if (address->cat == NULL) \ { \ if (verbose && ! nothing) \ error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", #cat); \ address->cat = ""; \ } TEST_ELEM (country_name); /* XXX Test against list of defined codes. */ TEST_ELEM (country_post); /* XXX Test against list of defined codes. */ TEST_ELEM (country_car); /* XXX Test against list of defined codes. */ TEST_ELEM (country_isbn); TEST_ELEM (lang_name); helper = 1; if (address->lang_term == NULL) { if (verbose && ! nothing) error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", "lang_term"); address->lang_term = ""; cnt = sizeof (iso639) / sizeof (iso639[0]); } else if (address->lang_term[0] == '\0') { if (verbose) error (0, 0, _("%s: field `%s' must not be empty"), "LC_ADDRESS", "lang_term"); cnt = sizeof (iso639) / sizeof (iso639[0]); } else { /* Look for this language in the table. */ for (cnt = 0; cnt < sizeof (iso639) / sizeof (iso639[0]); ++cnt) if (strcmp (address->lang_term, iso639[cnt].term) == 0) break; if (cnt == sizeof (iso639) / sizeof (iso639[0])) error (0, 0, _("\ %s: terminology language code `%s' not defined"), "LC_ADDRESS", address->lang_term); } if (address->lang_ab == NULL) { if (verbose && ! nothing) error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", "lang_ab"); address->lang_ab = ""; } else if (address->lang_ab[0] == '\0') { if (verbose) error (0, 0, _("%s: field `%s' must not be empty"), "LC_ADDRESS", "lang_ab"); } else { if (cnt == sizeof (iso639) / sizeof (iso639[0])) { helper = 2; for (cnt = 0; cnt < sizeof (iso639) / sizeof (iso639[0]); ++cnt) if (strcmp (address->lang_ab, iso639[cnt].ab) == 0) break; if (cnt == sizeof (iso639) / sizeof (iso639[0])) error (0, 0, _("\ %s: language abbreviation `%s' not defined"), "LC_ADDRESS", address->lang_ab); } else if (strcmp (iso639[cnt].ab, address->lang_ab) != 0) error (0, 0, _("\ %s: `%s' value does not match `%s' value"), "LC_ADDRESS", "lang_ab", "lang_term"); } if (address->lang_lib == NULL) /* This is no error. */ address->lang_lib = address->lang_term; else if (address->lang_lib[0] == '\0') { if (verbose) error (0, 0, _("%s: field `%s' must not be empty"), "LC_ADDRESS", "lang_lib"); } else { if (cnt == sizeof (iso639) / sizeof (iso639[0])) { for (cnt = 0; cnt < sizeof (iso639) / sizeof (iso639[0]); ++cnt) if (strcmp (address->lang_lib, iso639[cnt].lib) == 0) break; if (cnt == sizeof (iso639) / sizeof (iso639[0])) error (0, 0, _("\ %s: language abbreviation `%s' not defined"), "LC_ADDRESS", address->lang_lib); } else if (strcmp (iso639[cnt].ab, address->lang_ab) != 0) error (0, 0, _("\ %s: `%s' value does not match `%s' value"), "LC_ADDRESS", "lang_lib", helper == 1 ? "lang_term" : "lang_ab"); } if (address->country_num == 0) { if (verbose && ! nothing) error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", "country_num"); cnt = sizeof (iso3166) / sizeof (iso3166[0]); } else { for (cnt = 0; cnt < sizeof (iso3166) / sizeof (iso3166[0]); ++cnt) if (address->country_num == iso3166[cnt].num) break; if (cnt == sizeof (iso3166) / sizeof (iso3166[0])) error (0, 0, _("\ %s: numeric country code `%d' not valid"), "LC_ADDRESS", address->country_num); } if (address->country_ab2 == NULL) { if (verbose && ! nothing) error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", "country_ab2"); address->country_ab2 = " "; } else if (cnt != sizeof (iso3166) / sizeof (iso3166[0]) && strcmp (address->country_ab2, iso3166[cnt].ab2) != 0) error (0, 0, _("%s: `%s' value does not match `%s' value"), "LC_ADDRESS", "country_ab2", "country_num"); if (address->country_ab3 == NULL) { if (verbose && ! nothing) error (0, 0, _("%s: field `%s' not defined"), "LC_ADDRESS", "country_ab3"); address->country_ab3 = " "; } else if (cnt != sizeof (iso3166) / sizeof (iso3166[0]) && strcmp (address->country_ab3, iso3166[cnt].ab3) != 0) error (0, 0, _("%s: `%s' value does not match `%s' value"), "LC_ADDRESS", "country_ab3", "country_num"); } void address_output (struct localedef_t *locale, struct charmap_t *charmap, const char *output_path) { struct locale_address_t *address = locale->categories[LC_ADDRESS].address; struct iovec iov[2 + _NL_ITEM_INDEX (_NL_NUM_LC_ADDRESS)]; struct locale_file data; uint32_t idx[_NL_ITEM_INDEX (_NL_NUM_LC_ADDRESS)]; size_t cnt = 0; data.magic = LIMAGIC (LC_ADDRESS); data.n = _NL_ITEM_INDEX (_NL_NUM_LC_ADDRESS); iov[cnt].iov_base = (void *) &data; iov[cnt].iov_len = sizeof (data); ++cnt; iov[cnt].iov_base = (void *) idx; iov[cnt].iov_len = sizeof (idx); ++cnt; idx[cnt - 2] = iov[0].iov_len + iov[1].iov_len; iov[cnt].iov_base = (void *) address->postal_fmt; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_name; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_post; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_ab2; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_ab3; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_car; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_num; iov[cnt].iov_len = sizeof (uint32_t); ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->country_isbn; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->lang_name; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->lang_ab; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->lang_term; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; idx[cnt - 2] = idx[cnt - 3] + iov[cnt - 1].iov_len; iov[cnt].iov_base = (void *) address->lang_lib; iov[cnt].iov_len = strlen (iov[cnt].iov_base) + 1; ++cnt; assert (cnt == 2 + _NL_ITEM_INDEX (_NL_NUM_LC_ADDRESS)); write_locale_data (output_path, "LC_ADDRESS", 2 + _NL_ITEM_INDEX (_NL_NUM_LC_ADDRESS), iov); } /* The parser for the LC_ADDRESS section of the locale definition. */ void address_read (struct linereader *ldfile, struct localedef_t *result, struct charmap_t *charmap, const char *repertoire_name, int ignore_content) { struct repertoire_t *repertoire = NULL; struct locale_address_t *address; struct token *now; struct token *arg; enum token_t nowtok; /* Get the repertoire we have to use. */ if (repertoire_name != NULL) repertoire = repertoire_read (repertoire_name); /* The rest of the line containing `LC_ADDRESS' must be free. */ lr_ignore_rest (ldfile, 1); do { now = lr_token (ldfile, charmap, NULL); nowtok = now->tok; } while (nowtok == tok_eol); /* If we see `copy' now we are almost done. */ if (nowtok == tok_copy) { handle_copy (ldfile, charmap, repertoire, result, tok_lc_address, LC_ADDRESS, "LC_ADDRESS", ignore_content); return; } /* Prepare the data structures. */ address_startup (ldfile, result, ignore_content); address = result->categories[LC_ADDRESS].address; while (1) { /* Of course we don't proceed beyond the end of file. */ if (nowtok == tok_eof) break; /* Ignore empty lines. */ if (nowtok == tok_eol) { now = lr_token (ldfile, charmap, NULL); nowtok = now->tok; continue; } switch (nowtok) { #define STR_ELEM(cat) \ case tok_##cat: \ /* Ignore the rest of the line if we don't need the input of \ this line. */ \ if (ignore_content) \ { \ lr_ignore_rest (ldfile, 0); \ break; \ } \ \ arg = lr_token (ldfile, charmap, NULL); \ if (arg->tok != tok_string) \ goto err_label; \ if (address->cat != NULL) \ lr_error (ldfile, _("\ %s: field `%s' declared more than once"), "LC_ADDRESS", #cat); \ else if (!ignore_content && arg->val.str.startmb == NULL) \ { \ lr_error (ldfile, _("\ %s: unknown character in field `%s'"), "LC_ADDRESS", #cat); \ address->cat = ""; \ } \ else if (!ignore_content) \ address->cat = arg->val.str.startmb; \ break STR_ELEM (postal_fmt); STR_ELEM (country_name); STR_ELEM (country_post); STR_ELEM (country_ab2); STR_ELEM (country_ab3); STR_ELEM (country_car); STR_ELEM (country_isbn); STR_ELEM (lang_name); STR_ELEM (lang_ab); STR_ELEM (lang_term); STR_ELEM (lang_lib); #define INT_ELEM(cat) \ case tok_##cat: \ /* Ignore the rest of the line if we don't need the input of \ this line. */ \ if (ignore_content) \ { \ lr_ignore_rest (ldfile, 0); \ break; \ } \ \ arg = lr_token (ldfile, charmap, NULL); \ if (arg->tok != tok_number) \ goto err_label; \ else if (address->cat != 0) \ lr_error (ldfile, _("\ %s: field `%s' declared more than once"), "LC_ADDRESS", #cat); \ else if (!ignore_content) \ address->cat = arg->val.num; \ break INT_ELEM (country_num); case tok_end: /* Next we assume `LC_ADDRESS'. */ arg = lr_token (ldfile, charmap, NULL); if (arg->tok == tok_eof) break; if (arg->tok == tok_eol) lr_error (ldfile, _("%s: incomplete `END' line"), "LC_ADDRESS"); else if (arg->tok != tok_lc_address) lr_error (ldfile, _("\ %1$s: definition does not end with `END %1$s'"), "LC_ADDRESS"); lr_ignore_rest (ldfile, arg->tok == tok_lc_address); return; default: err_label: SYNTAX_ERROR (_("%s: syntax error"), "LC_ADDRESS"); } /* Prepare for the next round. */ now = lr_token (ldfile, charmap, NULL); nowtok = now->tok; } /* When we come here we reached the end of the file. */ lr_error (ldfile, _("%s: premature end of file"), "LC_ADDRESS"); }