1 | /* Copyright (C) 1998-2019 Free Software Foundation, Inc. |
2 | This file is part of the GNU C Library. |
3 | Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998. |
4 | |
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. |
9 | |
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. |
14 | |
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/>. */ |
17 | |
18 | #ifdef HAVE_CONFIG_H |
19 | # include <config.h> |
20 | #endif |
21 | |
22 | #include <langinfo.h> |
23 | #include <string.h> |
24 | #include <stdint.h> |
25 | #include <sys/uio.h> |
26 | |
27 | #include <assert.h> |
28 | |
29 | #include "localedef.h" |
30 | #include "localeinfo.h" |
31 | #include "locfile.h" |
32 | |
33 | |
34 | /* The real definition of the struct for the LC_TELEPHONE locale. */ |
35 | struct locale_telephone_t |
36 | { |
37 | const char *tel_int_fmt; |
38 | const char *tel_dom_fmt; |
39 | const char *int_select; |
40 | const char *int_prefix; |
41 | }; |
42 | |
43 | |
44 | static void |
45 | telephone_startup (struct linereader *lr, struct localedef_t *locale, |
46 | int ignore_content) |
47 | { |
48 | if (!ignore_content) |
49 | locale->categories[LC_TELEPHONE].telephone = (struct locale_telephone_t *) |
50 | xcalloc (1, sizeof (struct locale_telephone_t)); |
51 | |
52 | if (lr != NULL) |
53 | { |
54 | lr->translate_strings = 1; |
55 | lr->return_widestr = 0; |
56 | } |
57 | } |
58 | |
59 | |
60 | void |
61 | telephone_finish (struct localedef_t *locale, const struct charmap_t *charmap) |
62 | { |
63 | struct locale_telephone_t *telephone = |
64 | locale->categories[LC_TELEPHONE].telephone; |
65 | int nothing = 0; |
66 | |
67 | /* Now resolve copying and also handle completely missing definitions. */ |
68 | if (telephone == NULL) |
69 | { |
70 | /* First see whether we were supposed to copy. If yes, find the |
71 | actual definition. */ |
72 | if (locale->copy_name[LC_TELEPHONE] != NULL) |
73 | { |
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; |
77 | |
78 | do |
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); |
83 | |
84 | telephone = locale->categories[LC_TELEPHONE].telephone |
85 | = from->categories[LC_TELEPHONE].telephone; |
86 | } |
87 | |
88 | /* If there is still no definition issue an warning and create an |
89 | empty one. */ |
90 | if (telephone == NULL) |
91 | { |
92 | record_warning (_("\ |
93 | No definition for %s category found" ), "LC_TELEPHONE" ); |
94 | telephone_startup (NULL, locale, 0); |
95 | telephone = locale->categories[LC_TELEPHONE].telephone; |
96 | nothing = 1; |
97 | } |
98 | } |
99 | |
100 | if (telephone->tel_int_fmt == NULL) |
101 | { |
102 | if (! nothing) |
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" ; |
107 | } |
108 | else |
109 | { |
110 | /* We must check whether the format string contains only the |
111 | allowed escape sequences. */ |
112 | const char *cp = telephone->tel_int_fmt; |
113 | |
114 | if (*cp == '\0') |
115 | record_error (0, 0, _("%s: field `%s' must not be empty" ), |
116 | "LC_TELEPHONE" , "tel_int_fmt" ); |
117 | else |
118 | while (*cp != '\0') |
119 | { |
120 | if (*cp == '%') |
121 | { |
122 | if (strchr ("aAcCelt" , *++cp) == NULL) |
123 | { |
124 | record_error (0, 0, _("\ |
125 | %s: invalid escape sequence in field `%s'" ), "LC_TELEPHONE" , "tel_int_fmt" ); |
126 | break; |
127 | } |
128 | } |
129 | ++cp; |
130 | } |
131 | } |
132 | |
133 | if (telephone->tel_dom_fmt == NULL) |
134 | telephone->tel_dom_fmt = "" ; |
135 | else if (telephone->tel_dom_fmt[0] != '\0') |
136 | { |
137 | /* We must check whether the format string contains only the |
138 | allowed escape sequences. */ |
139 | const char *cp = telephone->tel_dom_fmt; |
140 | |
141 | while (*cp != '\0') |
142 | { |
143 | if (*cp == '%') |
144 | { |
145 | if (strchr ("aAcCelt" , *++cp) == NULL) |
146 | { |
147 | record_error (0, 0, _("\ |
148 | %s: invalid escape sequence in field `%s'" ), "LC_TELEPHONE" , "tel_dom_fmt" ); |
149 | break; |
150 | } |
151 | } |
152 | ++cp; |
153 | } |
154 | } |
155 | |
156 | #define TEST_ELEM(cat) \ |
157 | if (telephone->cat == NULL) \ |
158 | { \ |
159 | if (verbose && ! nothing) \ |
160 | record_warning (_("%s: field `%s' not defined"), "LC_TELEPHONE", \ |
161 | #cat); \ |
162 | telephone->cat = ""; \ |
163 | } |
164 | |
165 | TEST_ELEM (int_select); |
166 | TEST_ELEM (int_prefix); |
167 | } |
168 | |
169 | |
170 | void |
171 | telephone_output (struct localedef_t *locale, const struct charmap_t *charmap, |
172 | const char *output_path) |
173 | { |
174 | struct locale_telephone_t *telephone = |
175 | locale->categories[LC_TELEPHONE].telephone; |
176 | struct locale_file file; |
177 | |
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); |
185 | } |
186 | |
187 | |
188 | /* The parser for the LC_TELEPHONE section of the locale definition. */ |
189 | void |
190 | telephone_read (struct linereader *ldfile, struct localedef_t *result, |
191 | const struct charmap_t *charmap, const char *repertoire_name, |
192 | int ignore_content) |
193 | { |
194 | struct locale_telephone_t *telephone; |
195 | struct token *now; |
196 | struct token *arg; |
197 | enum token_t nowtok; |
198 | |
199 | /* The rest of the line containing `LC_TELEPHONE' must be free. */ |
200 | lr_ignore_rest (ldfile, 1); |
201 | |
202 | do |
203 | { |
204 | now = lr_token (ldfile, charmap, result, NULL, verbose); |
205 | nowtok = now->tok; |
206 | } |
207 | while (nowtok == tok_eol); |
208 | |
209 | /* If we see `copy' now we are almost done. */ |
210 | if (nowtok == tok_copy) |
211 | { |
212 | handle_copy (ldfile, charmap, repertoire_name, result, tok_lc_telephone, |
213 | LC_TELEPHONE, "LC_TELEPHONE" , ignore_content); |
214 | return; |
215 | } |
216 | |
217 | /* Prepare the data structures. */ |
218 | telephone_startup (ldfile, result, ignore_content); |
219 | telephone = result->categories[LC_TELEPHONE].telephone; |
220 | |
221 | while (1) |
222 | { |
223 | /* Of course we don't proceed beyond the end of file. */ |
224 | if (nowtok == tok_eof) |
225 | break; |
226 | |
227 | /* Ingore empty lines. */ |
228 | if (nowtok == tok_eol) |
229 | { |
230 | now = lr_token (ldfile, charmap, result, NULL, verbose); |
231 | nowtok = now->tok; |
232 | continue; |
233 | } |
234 | |
235 | switch (nowtok) |
236 | { |
237 | #define STR_ELEM(cat) \ |
238 | case tok_##cat: \ |
239 | /* Ignore the rest of the line if we don't need the input of \ |
240 | this line. */ \ |
241 | if (ignore_content) \ |
242 | { \ |
243 | lr_ignore_rest (ldfile, 0); \ |
244 | break; \ |
245 | } \ |
246 | \ |
247 | arg = lr_token (ldfile, charmap, result, NULL, verbose); \ |
248 | if (arg->tok != tok_string) \ |
249 | goto err_label; \ |
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) \ |
254 | { \ |
255 | lr_error (ldfile, _("%s: unknown character in field `%s'"), \ |
256 | "LC_TELEPHONE", #cat); \ |
257 | telephone->cat = ""; \ |
258 | } \ |
259 | else if (!ignore_content) \ |
260 | telephone->cat = arg->val.str.startmb; \ |
261 | break |
262 | |
263 | STR_ELEM (tel_int_fmt); |
264 | STR_ELEM (tel_dom_fmt); |
265 | STR_ELEM (int_select); |
266 | STR_ELEM (int_prefix); |
267 | |
268 | case tok_end: |
269 | /* Next we assume `LC_TELEPHONE'. */ |
270 | arg = lr_token (ldfile, charmap, result, NULL, verbose); |
271 | if (arg->tok == tok_eof) |
272 | break; |
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); |
279 | return; |
280 | |
281 | default: |
282 | err_label: |
283 | SYNTAX_ERROR (_("%s: syntax error" ), "LC_TELEPHONE" ); |
284 | } |
285 | |
286 | /* Prepare for the next round. */ |
287 | now = lr_token (ldfile, charmap, result, NULL, verbose); |
288 | nowtok = now->tok; |
289 | } |
290 | |
291 | /* When we come here we reached the end of the file. */ |
292 | lr_error (ldfile, _("%s: premature end of file" ), "LC_TELEPHONE" ); |
293 | } |
294 | |