1 /* Copyright (C) 1998-2018 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
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 "localeinfo.h"
34 /* The real definition of the struct for the LC_TELEPHONE locale. */
35 struct locale_telephone_t
37 const char *tel_int_fmt
;
38 const char *tel_dom_fmt
;
39 const char *int_select
;
40 const char *int_prefix
;
45 telephone_startup (struct linereader
*lr
, struct localedef_t
*locale
,
49 locale
->categories
[LC_TELEPHONE
].telephone
= (struct locale_telephone_t
*)
50 xcalloc (1, sizeof (struct locale_telephone_t
));
54 lr
->translate_strings
= 1;
55 lr
->return_widestr
= 0;
61 telephone_finish (struct localedef_t
*locale
, const struct charmap_t
*charmap
)
63 struct locale_telephone_t
*telephone
=
64 locale
->categories
[LC_TELEPHONE
].telephone
;
67 /* Now resolve copying and also handle completely missing definitions. */
68 if (telephone
== NULL
)
70 /* First see whether we were supposed to copy. If yes, find the
72 if (locale
->copy_name
[LC_TELEPHONE
] != NULL
)
74 /* Find the copying locale. This has to happen transitively since
75 the locale we are copying from might also copying another one. */
76 struct localedef_t
*from
= locale
;
79 from
= find_locale (LC_TELEPHONE
, from
->copy_name
[LC_TELEPHONE
],
80 from
->repertoire_name
, charmap
);
81 while (from
->categories
[LC_TELEPHONE
].telephone
== NULL
82 && from
->copy_name
[LC_TELEPHONE
] != NULL
);
84 telephone
= locale
->categories
[LC_TELEPHONE
].telephone
85 = from
->categories
[LC_TELEPHONE
].telephone
;
88 /* If there is still no definition issue an warning and create an
90 if (telephone
== NULL
)
93 No definition for %s category found"), "LC_TELEPHONE");
94 telephone_startup (NULL
, locale
, 0);
95 telephone
= locale
->categories
[LC_TELEPHONE
].telephone
;
100 if (telephone
->tel_int_fmt
== NULL
)
103 record_error (0, 0, _("%s: field `%s' not defined"),
104 "LC_TELEPHONE", "tel_int_fmt");
105 /* Use as the default value the value of the i18n locale. */
106 telephone
->tel_int_fmt
= "+%c %a%t%l";
110 /* We must check whether the format string contains only the
111 allowed escape sequences. */
112 const char *cp
= telephone
->tel_int_fmt
;
115 record_error (0, 0, _("%s: field `%s' must not be empty"),
116 "LC_TELEPHONE", "tel_int_fmt");
122 if (strchr ("aAcCelt", *++cp
) == NULL
)
124 record_error (0, 0, _("\
125 %s: invalid escape sequence in field `%s'"), "LC_TELEPHONE", "tel_int_fmt");
133 if (telephone
->tel_dom_fmt
== NULL
)
134 telephone
->tel_dom_fmt
= "";
135 else if (telephone
->tel_dom_fmt
[0] != '\0')
137 /* We must check whether the format string contains only the
138 allowed escape sequences. */
139 const char *cp
= telephone
->tel_dom_fmt
;
145 if (strchr ("aAcCelt", *++cp
) == NULL
)
147 record_error (0, 0, _("\
148 %s: invalid escape sequence in field `%s'"), "LC_TELEPHONE", "tel_dom_fmt");
156 #define TEST_ELEM(cat) \
157 if (telephone->cat == NULL) \
159 if (verbose && ! nothing) \
160 record_warning (_("%s: field `%s' not defined"), "LC_TELEPHONE", \
162 telephone->cat = ""; \
165 TEST_ELEM (int_select
);
166 TEST_ELEM (int_prefix
);
171 telephone_output (struct localedef_t
*locale
, const struct charmap_t
*charmap
,
172 const char *output_path
)
174 struct locale_telephone_t
*telephone
=
175 locale
->categories
[LC_TELEPHONE
].telephone
;
176 struct locale_file file
;
178 init_locale_data (&file
, _NL_ITEM_INDEX (_NL_NUM_LC_TELEPHONE
));
179 add_locale_string (&file
, telephone
->tel_int_fmt
);
180 add_locale_string (&file
, telephone
->tel_dom_fmt
);
181 add_locale_string (&file
, telephone
->int_select
);
182 add_locale_string (&file
, telephone
->int_prefix
);
183 add_locale_string (&file
, charmap
->code_set_name
);
184 write_locale_data (output_path
, LC_TELEPHONE
, "LC_TELEPHONE", &file
);
188 /* The parser for the LC_TELEPHONE section of the locale definition. */
190 telephone_read (struct linereader
*ldfile
, struct localedef_t
*result
,
191 const struct charmap_t
*charmap
, const char *repertoire_name
,
194 struct locale_telephone_t
*telephone
;
199 /* The rest of the line containing `LC_TELEPHONE' must be free. */
200 lr_ignore_rest (ldfile
, 1);
204 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
207 while (nowtok
== tok_eol
);
209 /* If we see `copy' now we are almost done. */
210 if (nowtok
== tok_copy
)
212 handle_copy (ldfile
, charmap
, repertoire_name
, result
, tok_lc_telephone
,
213 LC_TELEPHONE
, "LC_TELEPHONE", ignore_content
);
217 /* Prepare the data structures. */
218 telephone_startup (ldfile
, result
, ignore_content
);
219 telephone
= result
->categories
[LC_TELEPHONE
].telephone
;
223 /* Of course we don't proceed beyond the end of file. */
224 if (nowtok
== tok_eof
)
227 /* Ingore empty lines. */
228 if (nowtok
== tok_eol
)
230 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
237 #define STR_ELEM(cat) \
239 /* Ignore the rest of the line if we don't need the input of \
241 if (ignore_content) \
243 lr_ignore_rest (ldfile, 0); \
247 arg = lr_token (ldfile, charmap, result, NULL, verbose); \
248 if (arg->tok != tok_string) \
250 if (telephone->cat != NULL) \
251 lr_error (ldfile, _("%s: field `%s' declared more than once"), \
252 "LC_TELEPHONE", #cat); \
253 else if (!ignore_content && arg->val.str.startmb == NULL) \
255 lr_error (ldfile, _("%s: unknown character in field `%s'"), \
256 "LC_TELEPHONE", #cat); \
257 telephone->cat = ""; \
259 else if (!ignore_content) \
260 telephone->cat = arg->val.str.startmb; \
263 STR_ELEM (tel_int_fmt
);
264 STR_ELEM (tel_dom_fmt
);
265 STR_ELEM (int_select
);
266 STR_ELEM (int_prefix
);
269 /* Next we assume `LC_TELEPHONE'. */
270 arg
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
271 if (arg
->tok
== tok_eof
)
273 if (arg
->tok
== tok_eol
)
274 lr_error (ldfile
, _("%s: incomplete `END' line"), "LC_TELEPHONE");
275 else if (arg
->tok
!= tok_lc_telephone
)
276 lr_error (ldfile
, _("\
277 %1$s: definition does not end with `END %1$s'"), "LC_TELEPHONE");
278 lr_ignore_rest (ldfile
, arg
->tok
== tok_lc_telephone
);
283 SYNTAX_ERROR (_("%s: syntax error"), "LC_TELEPHONE");
286 /* Prepare for the next round. */
287 now
= lr_token (ldfile
, charmap
, result
, NULL
, verbose
);
291 /* When we come here we reached the end of the file. */
292 lr_error (ldfile
, _("%s: premature end of file"), "LC_TELEPHONE");