| %{ /* mcparse.y -- parser for Windows mc files |
| Copyright (C) 2007-2016 Free Software Foundation, Inc. |
| |
| Parser for Windows mc files |
| Written by Kai Tietz, Onevision. |
| |
| This file is part of GNU Binutils. |
| |
| This program is free software; you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation; either version 3 of the License, or |
| (at your option) any later version. |
| |
| This program 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 General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with this program; if not, write to the Free Software |
| Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA |
| 02110-1301, USA. */ |
| |
| /* This is a parser for Windows rc files. It is based on the parser |
| by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */ |
| |
| #include "sysdep.h" |
| #include "bfd.h" |
| #include "bucomm.h" |
| #include "libiberty.h" |
| #include "windmc.h" |
| #include "safe-ctype.h" |
| |
| static rc_uint_type mc_last_id = 0; |
| static rc_uint_type mc_sefa_val = 0; |
| static unichar *mc_last_symbol = NULL; |
| static const mc_keyword *mc_cur_severity = NULL; |
| static const mc_keyword *mc_cur_facility = NULL; |
| static mc_node *cur_node = NULL; |
| |
| %} |
| |
| %union |
| { |
| rc_uint_type ival; |
| unichar *ustr; |
| const mc_keyword *tok; |
| mc_node *nod; |
| }; |
| |
| %start input |
| |
| %token NL |
| %token<ustr> MCIDENT MCFILENAME MCLINE MCCOMMENT |
| %token<tok> MCTOKEN |
| %token MCENDLINE |
| %token MCLANGUAGENAMES MCFACILITYNAMES MCSEVERITYNAMES MCOUTPUTBASE MCMESSAGEIDTYPEDEF |
| %token MCLANGUAGE MCMESSAGEID MCSEVERITY MCFACILITY MCSYMBOLICNAME |
| %token <ival> MCNUMBER |
| |
| %type<ival> id vid sefasy_def |
| %type<ustr> alias_name token lines comments |
| %type<tok> lang |
| |
| %% |
| input: entities |
| ; |
| |
| entities: |
| /* empty */ |
| | entities entity |
| ; |
| entity: global_section |
| | message |
| | comments |
| { |
| cur_node = mc_add_node (); |
| cur_node->user_text = $1; |
| } |
| | error { mc_fatal ("syntax error"); } |
| ; |
| |
| global_section: |
| MCSEVERITYNAMES '=' '(' severitymaps ')' |
| | MCSEVERITYNAMES '=' '(' severitymaps error { mc_fatal ("missing ')' in SeverityNames"); } |
| | MCSEVERITYNAMES '=' error { mc_fatal ("missing '(' in SeverityNames"); } |
| | MCSEVERITYNAMES error { mc_fatal ("missing '=' for SeverityNames"); } |
| | MCLANGUAGENAMES '=' '(' langmaps ')' |
| | MCLANGUAGENAMES '=' '(' langmaps error { mc_fatal ("missing ')' in LanguageNames"); } |
| | MCLANGUAGENAMES '=' error { mc_fatal ("missing '(' in LanguageNames"); } |
| | MCLANGUAGENAMES error { mc_fatal ("missing '=' for LanguageNames"); } |
| | MCFACILITYNAMES '=' '(' facilitymaps ')' |
| | MCFACILITYNAMES '=' '(' facilitymaps error { mc_fatal ("missing ')' in FacilityNames"); } |
| | MCFACILITYNAMES '=' error { mc_fatal ("missing '(' in FacilityNames"); } |
| | MCFACILITYNAMES error { mc_fatal ("missing '=' for FacilityNames"); } |
| | MCOUTPUTBASE '=' MCNUMBER |
| { |
| if ($3 != 10 && $3 != 16) |
| mc_fatal ("OutputBase allows 10 or 16 as value"); |
| mcset_out_values_are_decimal = ($3 == 10 ? 1 : 0); |
| } |
| | MCMESSAGEIDTYPEDEF '=' MCIDENT |
| { |
| mcset_msg_id_typedef = $3; |
| } |
| | MCMESSAGEIDTYPEDEF '=' error |
| { |
| mc_fatal ("MessageIdTypedef expects an identifier"); |
| } |
| | MCMESSAGEIDTYPEDEF error |
| { |
| mc_fatal ("missing '=' for MessageIdTypedef"); |
| } |
| ; |
| |
| severitymaps: |
| severitymap |
| | severitymaps severitymap |
| | error { mc_fatal ("severity ident missing"); } |
| ; |
| |
| severitymap: |
| token '=' MCNUMBER alias_name |
| { |
| mc_add_keyword ($1, MCTOKEN, "severity", $3, $4); |
| } |
| | token '=' error { mc_fatal ("severity number missing"); } |
| | token error { mc_fatal ("severity missing '='"); } |
| ; |
| |
| facilitymaps: |
| facilitymap |
| | facilitymaps facilitymap |
| | error { mc_fatal ("missing ident in FacilityNames"); } |
| ; |
| |
| facilitymap: |
| token '=' MCNUMBER alias_name |
| { |
| mc_add_keyword ($1, MCTOKEN, "facility", $3, $4); |
| } |
| | token '=' error { mc_fatal ("facility number missing"); } |
| | token error { mc_fatal ("facility missing '='"); } |
| ; |
| |
| langmaps: |
| langmap |
| | langmaps langmap |
| | error { mc_fatal ("missing ident in LanguageNames"); } |
| ; |
| |
| langmap: |
| token '=' MCNUMBER lex_want_filename ':' MCFILENAME |
| { |
| mc_add_keyword ($1, MCTOKEN, "language", $3, $6); |
| } |
| | token '=' MCNUMBER lex_want_filename ':' error { mc_fatal ("missing filename in LanguageNames"); } |
| | token '=' MCNUMBER error { mc_fatal ("missing ':' in LanguageNames"); } |
| | token '=' error { mc_fatal ("missing language code in LanguageNames"); } |
| | token error { mc_fatal ("missing '=' for LanguageNames"); } |
| ; |
| |
| alias_name: |
| /* empty */ |
| { |
| $$ = NULL; |
| } |
| | ':' MCIDENT |
| { |
| $$ = $2; |
| } |
| | ':' error { mc_fatal ("illegal token in identifier"); $$ = NULL; } |
| ; |
| |
| message: |
| id sefasy_def |
| { |
| cur_node = mc_add_node (); |
| cur_node->symbol = mc_last_symbol; |
| cur_node->facility = mc_cur_facility; |
| cur_node->severity = mc_cur_severity; |
| cur_node->id = ($1 & 0xffffUL); |
| cur_node->vid = ($1 & 0xffffUL) | mc_sefa_val; |
| mc_last_id = $1; |
| } |
| lang_entities |
| ; |
| |
| id: MCMESSAGEID '=' vid { $$ = $3; } |
| | MCMESSAGEID '=' error { mc_fatal ("missing number in MessageId"); $$ = 0; } |
| | MCMESSAGEID error { mc_fatal ("missing '=' for MessageId"); $$ = 0; } |
| ; |
| |
| vid: /* empty */ |
| { |
| $$ = ++mc_last_id; |
| } |
| | MCNUMBER |
| { |
| $$ = $1; |
| } |
| | '+' MCNUMBER |
| { |
| $$ = mc_last_id + $2; |
| } |
| | '+' error { mc_fatal ("missing number after MessageId '+'"); } |
| ; |
| |
| sefasy_def: |
| /* empty */ |
| { |
| $$ = 0; |
| mc_sefa_val = (mcset_custom_bit ? 1 : 0) << 29; |
| mc_last_symbol = NULL; |
| mc_cur_severity = NULL; |
| mc_cur_facility = NULL; |
| } |
| | sefasy_def severity |
| { |
| if ($1 & 1) |
| mc_warn (_("duplicate definition of Severity")); |
| $$ = $1 | 1; |
| } |
| | sefasy_def facility |
| { |
| if ($1 & 2) |
| mc_warn (_("duplicate definition of Facility")); |
| $$ = $1 | 2; |
| } |
| | sefasy_def symbol |
| { |
| if ($1 & 4) |
| mc_warn (_("duplicate definition of SymbolicName")); |
| $$ = $1 | 4; |
| } |
| ; |
| |
| severity: MCSEVERITY '=' MCTOKEN |
| { |
| mc_sefa_val &= ~ (0x3UL << 30); |
| mc_sefa_val |= (($3->nval & 0x3UL) << 30); |
| mc_cur_severity = $3; |
| } |
| ; |
| |
| facility: MCFACILITY '=' MCTOKEN |
| { |
| mc_sefa_val &= ~ (0xfffUL << 16); |
| mc_sefa_val |= (($3->nval & 0xfffUL) << 16); |
| mc_cur_facility = $3; |
| } |
| ; |
| |
| symbol: MCSYMBOLICNAME '=' MCIDENT |
| { |
| mc_last_symbol = $3; |
| } |
| ; |
| |
| lang_entities: |
| lang_entity |
| | lang_entities lang_entity |
| ; |
| |
| lang_entity: |
| lang lex_want_line lines MCENDLINE |
| { |
| mc_node_lang *h; |
| h = mc_add_node_lang (cur_node, $1, cur_node->vid); |
| h->message = $3; |
| if (mcset_max_message_length != 0 && unichar_len (h->message) > mcset_max_message_length) |
| mc_warn ("message length to long"); |
| } |
| ; |
| |
| lines: MCLINE |
| { |
| $$ = $1; |
| } |
| | lines MCLINE |
| { |
| unichar *h; |
| rc_uint_type l1,l2; |
| l1 = unichar_len ($1); |
| l2 = unichar_len ($2); |
| h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar)); |
| if (l1) memcpy (h, $1, l1 * sizeof (unichar)); |
| if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar)); |
| h[l1 + l2] = 0; |
| $$ = h; |
| } |
| | error { mc_fatal ("missing end of message text"); $$ = NULL; } |
| | lines error { mc_fatal ("missing end of message text"); $$ = $1; } |
| ; |
| |
| comments: MCCOMMENT { $$ = $1; } |
| | comments MCCOMMENT |
| { |
| unichar *h; |
| rc_uint_type l1,l2; |
| l1 = unichar_len ($1); |
| l2 = unichar_len ($2); |
| h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar)); |
| if (l1) memcpy (h, $1, l1 * sizeof (unichar)); |
| if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar)); |
| h[l1 + l2] = 0; |
| $$ = h; |
| } |
| ; |
| |
| lang: MCLANGUAGE lex_want_nl '=' MCTOKEN NL |
| { |
| $$ = $4; |
| } |
| | MCLANGUAGE lex_want_nl '=' MCIDENT NL |
| { |
| $$ = NULL; |
| mc_fatal (_("undeclared language identifier")); |
| } |
| | MCLANGUAGE lex_want_nl '=' token error |
| { |
| $$ = NULL; |
| mc_fatal ("missing newline after Language"); |
| } |
| | MCLANGUAGE lex_want_nl '=' error |
| { |
| $$ = NULL; |
| mc_fatal ("missing ident for Language"); |
| } |
| | MCLANGUAGE error |
| { |
| $$ = NULL; |
| mc_fatal ("missing '=' for Language"); |
| } |
| ; |
| |
| token: MCIDENT { $$ = $1; } |
| | MCTOKEN { $$ = $1->usz; } |
| ; |
| |
| lex_want_nl: |
| /* Empty */ { mclex_want_nl = 1; } |
| ; |
| |
| lex_want_line: |
| /* Empty */ { mclex_want_line = 1; } |
| ; |
| |
| lex_want_filename: |
| /* Empty */ { mclex_want_filename = 1; } |
| ; |
| |
| %% |
| |
| /* Something else. */ |