daily update
[binutils.git] / binutils / mcparse.y
blob35328d17c124c2d1de83445c7eb61808d2dcb9d0
1 %{ /* mcparse.y -- parser for Windows mc files
2 Copyright 2007
3 Free Software Foundation, Inc.
5 Parser for Windows mc files
6 Written by Kai Tietz, Onevision.
8 This file is part of GNU Binutils.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
23 02110-1301, USA. */
25 /* This is a parser for Windows rc files. It is based on the parser
26 by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */
28 #include "sysdep.h"
29 #include "bfd.h"
30 #include "bucomm.h"
31 #include "libiberty.h"
32 #include "windmc.h"
33 #include "safe-ctype.h"
35 static rc_uint_type mc_last_id = 0;
36 static rc_uint_type mc_sefa_val = 0;
37 static unichar *mc_last_symbol = NULL;
38 static const mc_keyword *mc_cur_severity = NULL;
39 static const mc_keyword *mc_cur_facility = NULL;
40 static mc_node *cur_node = NULL;
44 %union
46 rc_uint_type ival;
47 unichar *ustr;
48 const mc_keyword *tok;
49 mc_node *nod;
52 %start input
54 %token NL
55 %token<ustr> MCIDENT MCFILENAME MCLINE MCCOMMENT
56 %token<tok> MCTOKEN
57 %token MCENDLINE
58 %token MCLANGUAGENAMES MCFACILITYNAMES MCSEVERITYNAMES MCOUTPUTBASE MCMESSAGEIDTYPEDEF
59 %token MCLANGUAGE MCMESSAGEID MCSEVERITY MCFACILITY MCSYMBOLICNAME
60 %token <ival> MCNUMBER
62 %type<ival> id vid sefasy_def
63 %type<ustr> alias_name token lines comments
64 %type<tok> lang
67 input: entities
70 entities:
71 /* empty */
72 | entities entity
74 entity: global_section
75 | message
76 | comments
78 cur_node = mc_add_node ();
79 cur_node->user_text = $1;
81 | error { mc_fatal ("syntax error"); }
84 global_section:
85 MCSEVERITYNAMES '=' '(' severitymaps ')'
86 | MCSEVERITYNAMES '=' '(' severitymaps error { mc_fatal ("missing ')' in SeverityNames"); }
87 | MCSEVERITYNAMES '=' error { mc_fatal ("missing '(' in SeverityNames"); }
88 | MCSEVERITYNAMES error { mc_fatal ("missing '=' for SeverityNames"); }
89 | MCLANGUAGENAMES '=' '(' langmaps ')'
90 | MCLANGUAGENAMES '=' '(' langmaps error { mc_fatal ("missing ')' in LanguageNames"); }
91 | MCLANGUAGENAMES '=' error { mc_fatal ("missing '(' in LanguageNames"); }
92 | MCLANGUAGENAMES error { mc_fatal ("missing '=' for LanguageNames"); }
93 | MCFACILITYNAMES '=' '(' facilitymaps ')'
94 | MCFACILITYNAMES '=' '(' facilitymaps error { mc_fatal ("missing ')' in FacilityNames"); }
95 | MCFACILITYNAMES '=' error { mc_fatal ("missing '(' in FacilityNames"); }
96 | MCFACILITYNAMES error { mc_fatal ("missing '=' for FacilityNames"); }
97 | MCOUTPUTBASE '=' MCNUMBER
99 if ($3 != 10 && $3 != 16)
100 mc_fatal ("OutputBase allows 10 or 16 as value");
101 mcset_out_values_are_decimal = ($3 == 10 ? 1 : 0);
103 | MCMESSAGEIDTYPEDEF '=' MCIDENT
105 mcset_msg_id_typedef = $3;
107 | MCMESSAGEIDTYPEDEF '=' error
109 mc_fatal ("MessageIdTypedef expects an identifier");
111 | MCMESSAGEIDTYPEDEF error
113 mc_fatal ("missing '=' for MessageIdTypedef");
117 severitymaps:
118 severitymap
119 | severitymaps severitymap
120 | error { mc_fatal ("severity ident missing"); }
123 severitymap:
124 token '=' MCNUMBER alias_name
126 mc_add_keyword ($1, MCTOKEN, "severity", $3, $4);
128 | token '=' error { mc_fatal ("severity number missing"); }
129 | token error { mc_fatal ("severity missing '='"); }
132 facilitymaps:
133 facilitymap
134 | facilitymaps facilitymap
135 | error { mc_fatal ("missing ident in FacilityNames"); }
138 facilitymap:
139 token '=' MCNUMBER alias_name
141 mc_add_keyword ($1, MCTOKEN, "facility", $3, $4);
143 | token '=' error { mc_fatal ("facility number missing"); }
144 | token error { mc_fatal ("facility missing '='"); }
147 langmaps:
148 langmap
149 | langmaps langmap
150 | error { mc_fatal ("missing ident in LanguageNames"); }
153 langmap:
154 token '=' MCNUMBER lex_want_filename ':' MCFILENAME
156 mc_add_keyword ($1, MCTOKEN, "language", $3, $6);
158 | token '=' MCNUMBER lex_want_filename ':' error { mc_fatal ("missing filename in LanguageNames"); }
159 | token '=' MCNUMBER error { mc_fatal ("missing ':' in LanguageNames"); }
160 | token '=' error { mc_fatal ("missing language code in LanguageNames"); }
161 | token error { mc_fatal ("missing '=' for LanguageNames"); }
164 alias_name:
165 /* empty */
167 $$ = NULL;
169 | ':' MCIDENT
171 $$ = $2;
173 | ':' error { mc_fatal ("illegal token in identifier"); $$ = NULL; }
176 message:
177 id sefasy_def
179 cur_node = mc_add_node ();
180 cur_node->symbol = mc_last_symbol;
181 cur_node->facility = mc_cur_facility;
182 cur_node->severity = mc_cur_severity;
183 cur_node->id = ($1 & 0xffffUL);
184 cur_node->vid = ($1 & 0xffffUL) | mc_sefa_val;
185 mc_last_id = $1;
187 lang_entities
190 id: MCMESSAGEID '=' vid { $$ = $3; }
191 | MCMESSAGEID '=' error { mc_fatal ("missing number in MessageId"); $$ = 0; }
192 | MCMESSAGEID error { mc_fatal ("missing '=' for MessageId"); $$ = 0; }
195 vid: /* empty */
197 $$ = ++mc_last_id;
199 | MCNUMBER
201 $$ = $1;
203 | '+' MCNUMBER
205 $$ = mc_last_id + $2;
207 | '+' error { mc_fatal ("missing number after MessageId '+'"); }
210 sefasy_def:
211 /* empty */
213 $$ = 0;
214 mc_sefa_val = (mcset_custom_bit ? 1 : 0) << 29;
215 mc_last_symbol = NULL;
216 mc_cur_severity = NULL;
217 mc_cur_facility = NULL;
219 | sefasy_def severity
221 if ($1 & 1)
222 mc_warn (_("duplicate definition of Severity"));
223 $$ = $1 | 1;
225 | sefasy_def facility
227 if ($1 & 2)
228 mc_warn (_("duplicate definition of Facility"));
229 $$ = $1 | 2;
231 | sefasy_def symbol
233 if ($1 & 4)
234 mc_warn (_("duplicate definition of SymbolicName"));
235 $$ = $1 | 4;
239 severity: MCSEVERITY '=' MCTOKEN
241 mc_sefa_val &= ~ (0x3UL << 30);
242 mc_sefa_val |= (($3->nval & 0x3UL) << 30);
243 mc_cur_severity = $3;
247 facility: MCFACILITY '=' MCTOKEN
249 mc_sefa_val &= ~ (0xfffUL << 16);
250 mc_sefa_val |= (($3->nval & 0xfffUL) << 16);
251 mc_cur_facility = $3;
255 symbol: MCSYMBOLICNAME '=' MCIDENT
257 mc_last_symbol = $3;
261 lang_entities:
262 lang_entity
263 | lang_entities lang_entity
266 lang_entity:
267 lang lex_want_line lines MCENDLINE
269 mc_node_lang *h;
270 h = mc_add_node_lang (cur_node, $1, cur_node->vid);
271 h->message = $3;
272 if (mcset_max_message_length != 0 && unichar_len (h->message) > mcset_max_message_length)
273 mc_warn ("message length to long");
277 lines: MCLINE
279 $$ = $1;
281 | lines MCLINE
283 unichar *h;
284 rc_uint_type l1,l2;
285 l1 = unichar_len ($1);
286 l2 = unichar_len ($2);
287 h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
288 if (l1) memcpy (h, $1, l1 * sizeof (unichar));
289 if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar));
290 h[l1 + l2] = 0;
291 $$ = h;
293 | error { mc_fatal ("missing end of message text"); $$ = NULL; }
294 | lines error { mc_fatal ("missing end of message text"); $$ = $1; }
297 comments: MCCOMMENT { $$ = $1; }
298 | comments MCCOMMENT
300 unichar *h;
301 rc_uint_type l1,l2;
302 l1 = unichar_len ($1);
303 l2 = unichar_len ($2);
304 h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
305 if (l1) memcpy (h, $1, l1 * sizeof (unichar));
306 if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar));
307 h[l1 + l2] = 0;
308 $$ = h;
312 lang: MCLANGUAGE lex_want_nl '=' MCTOKEN NL
314 $$ = $4;
316 | MCLANGUAGE lex_want_nl '=' MCIDENT NL
318 $$ = NULL;
319 mc_fatal (_("undeclared language identifier"));
321 | MCLANGUAGE lex_want_nl '=' token error
323 $$ = NULL;
324 mc_fatal ("missing newline after Language");
326 | MCLANGUAGE lex_want_nl '=' error
328 $$ = NULL;
329 mc_fatal ("missing ident for Language");
331 | MCLANGUAGE error
333 $$ = NULL;
334 mc_fatal ("missing '=' for Language");
338 token: MCIDENT { $$ = $1; }
339 | MCTOKEN { $$ = $1->usz; }
342 lex_want_nl:
343 /* Empty */ { mclex_want_nl = 1; }
346 lex_want_line:
347 /* Empty */ { mclex_want_line = 1; }
350 lex_want_filename:
351 /* Empty */ { mclex_want_filename = 1; }
356 /* Something else. */