[deliverable/binutils-gdb.git] / binutils / mcparse.y

%{ /* mcparse.y -- parser for Windows mc files
  Copyright (C) 2007-2020 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;
	    cur_node->id_typecast = mcset_msg_id_typedef;
	    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.  */
Commit	Line	Data
	1	%{ /* mcparse.y -- parser for Windows mc files
	2	Copyright (C) 2007-2020 Free Software Foundation, Inc.
	3
	4	Parser for Windows mc files
	5	Written by Kai Tietz, Onevision.
	6
	7	This file is part of GNU Binutils.
	8
	9	This program is free software; you can redistribute it and/or modify
	10	it under the terms of the GNU General Public License as published by
	11	the Free Software Foundation; either version 3 of the License, or
	12	(at your option) any later version.
	13
	14	This program is distributed in the hope that it will be useful,
	15	but WITHOUT ANY WARRANTY; without even the implied warranty of
	16	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	GNU General Public License for more details.
	18
	19	You should have received a copy of the GNU General Public License
	20	along with this program; if not, write to the Free Software
	21	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
	22	02110-1301, USA. */
	23
	24	/* This is a parser for Windows rc files. It is based on the parser
	25	by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */
	26
	27	#include "sysdep.h"
	28	#include "bfd.h"
	29	#include "bucomm.h"
	30	#include "libiberty.h"
	31	#include "windmc.h"
	32	#include "safe-ctype.h"
	33
	34	static rc_uint_type mc_last_id = 0;
	35	static rc_uint_type mc_sefa_val = 0;
	36	static unichar *mc_last_symbol = NULL;
	37	static const mc_keyword *mc_cur_severity = NULL;
	38	static const mc_keyword *mc_cur_facility = NULL;
	39	static mc_node *cur_node = NULL;
	40
	41	%}
	42
	43	%union
	44	{
	45	rc_uint_type ival;
	46	unichar *ustr;
	47	const mc_keyword *tok;
	48	mc_node *nod;
	49	};
	50
	51	%start input
	52
	53	%token NL
	54	%token<ustr> MCIDENT MCFILENAME MCLINE MCCOMMENT
	55	%token<tok> MCTOKEN
	56	%token MCENDLINE
	57	%token MCLANGUAGENAMES MCFACILITYNAMES MCSEVERITYNAMES MCOUTPUTBASE MCMESSAGEIDTYPEDEF
	58	%token MCLANGUAGE MCMESSAGEID MCSEVERITY MCFACILITY MCSYMBOLICNAME
	59	%token <ival> MCNUMBER
	60
	61	%type<ival> id vid sefasy_def
	62	%type<ustr> alias_name token lines comments
	63	%type<tok> lang
	64
	65	%%
	66	input: entities
	67	;
	68
	69	entities:
	70	/* empty */
	71	\| entities entity
	72	;
	73	entity: global_section
	74	\| message
	75	\| comments
	76	{
	77	cur_node = mc_add_node ();
	78	cur_node->user_text = $1;
	79	}
	80	\| error { mc_fatal ("syntax error"); }
	81	;
	82
	83	global_section:
	84	MCSEVERITYNAMES '=' '(' severitymaps ')'
	85	\| MCSEVERITYNAMES '=' '(' severitymaps error { mc_fatal ("missing ')' in SeverityNames"); }
	86	\| MCSEVERITYNAMES '=' error { mc_fatal ("missing '(' in SeverityNames"); }
	87	\| MCSEVERITYNAMES error { mc_fatal ("missing '=' for SeverityNames"); }
	88	\| MCLANGUAGENAMES '=' '(' langmaps ')'
	89	\| MCLANGUAGENAMES '=' '(' langmaps error { mc_fatal ("missing ')' in LanguageNames"); }
	90	\| MCLANGUAGENAMES '=' error { mc_fatal ("missing '(' in LanguageNames"); }
	91	\| MCLANGUAGENAMES error { mc_fatal ("missing '=' for LanguageNames"); }
	92	\| MCFACILITYNAMES '=' '(' facilitymaps ')'
	93	\| MCFACILITYNAMES '=' '(' facilitymaps error { mc_fatal ("missing ')' in FacilityNames"); }
	94	\| MCFACILITYNAMES '=' error { mc_fatal ("missing '(' in FacilityNames"); }
	95	\| MCFACILITYNAMES error { mc_fatal ("missing '=' for FacilityNames"); }
	96	\| MCOUTPUTBASE '=' MCNUMBER
	97	{
	98	if ($3 != 10 && $3 != 16)
	99	mc_fatal ("OutputBase allows 10 or 16 as value");
	100	mcset_out_values_are_decimal = ($3 == 10 ? 1 : 0);
	101	}
	102	\| MCMESSAGEIDTYPEDEF '=' MCIDENT
	103	{
	104	mcset_msg_id_typedef = $3;
	105	}
	106	\| MCMESSAGEIDTYPEDEF '=' error
	107	{
	108	mc_fatal ("MessageIdTypedef expects an identifier");
	109	}
	110	\| MCMESSAGEIDTYPEDEF error
	111	{
	112	mc_fatal ("missing '=' for MessageIdTypedef");
	113	}
	114	;
	115
	116	severitymaps:
	117	severitymap
	118	\| severitymaps severitymap
	119	\| error { mc_fatal ("severity ident missing"); }
	120	;
	121
	122	severitymap:
	123	token '=' MCNUMBER alias_name
	124	{
	125	mc_add_keyword ($1, MCTOKEN, "severity", $3, $4);
	126	}
	127	\| token '=' error { mc_fatal ("severity number missing"); }
	128	\| token error { mc_fatal ("severity missing '='"); }
	129	;
	130
	131	facilitymaps:
	132	facilitymap
	133	\| facilitymaps facilitymap
	134	\| error { mc_fatal ("missing ident in FacilityNames"); }
	135	;
	136
	137	facilitymap:
	138	token '=' MCNUMBER alias_name
	139	{
	140	mc_add_keyword ($1, MCTOKEN, "facility", $3, $4);
	141	}
	142	\| token '=' error { mc_fatal ("facility number missing"); }
	143	\| token error { mc_fatal ("facility missing '='"); }
	144	;
	145
	146	langmaps:
	147	langmap
	148	\| langmaps langmap
	149	\| error { mc_fatal ("missing ident in LanguageNames"); }
	150	;
	151
	152	langmap:
	153	token '=' MCNUMBER lex_want_filename ':' MCFILENAME
	154	{
	155	mc_add_keyword ($1, MCTOKEN, "language", $3, $6);
	156	}
	157	\| token '=' MCNUMBER lex_want_filename ':' error { mc_fatal ("missing filename in LanguageNames"); }
	158	\| token '=' MCNUMBER error { mc_fatal ("missing ':' in LanguageNames"); }
	159	\| token '=' error { mc_fatal ("missing language code in LanguageNames"); }
	160	\| token error { mc_fatal ("missing '=' for LanguageNames"); }
	161	;
	162
	163	alias_name:
	164	/* empty */
	165	{
	166	$$ = NULL;
	167	}
	168	\| ':' MCIDENT
	169	{
	170	$$ = $2;
	171	}
	172	\| ':' error { mc_fatal ("illegal token in identifier"); $$ = NULL; }
	173	;
	174
	175	message:
	176	id sefasy_def
	177	{
	178	cur_node = mc_add_node ();
	179	cur_node->symbol = mc_last_symbol;
	180	cur_node->facility = mc_cur_facility;
	181	cur_node->severity = mc_cur_severity;
	182	cur_node->id = ($1 & 0xffffUL);
	183	cur_node->vid = ($1 & 0xffffUL) \| mc_sefa_val;
	184	cur_node->id_typecast = mcset_msg_id_typedef;
	185	mc_last_id = $1;
	186	}
	187	lang_entities
	188	;
	189
	190	id: MCMESSAGEID '=' vid { $$ = $3; }
	191	\| MCMESSAGEID '=' error { mc_fatal ("missing number in MessageId"); $$ = 0; }
	192	\| MCMESSAGEID error { mc_fatal ("missing '=' for MessageId"); $$ = 0; }
	193	;
	194
	195	vid: /* empty */
	196	{
	197	$$ = ++mc_last_id;
	198	}
	199	\| MCNUMBER
	200	{
	201	$$ = $1;
	202	}
	203	\| '+' MCNUMBER
	204	{
	205	$$ = mc_last_id + $2;
	206	}
	207	\| '+' error { mc_fatal ("missing number after MessageId '+'"); }
	208	;
	209
	210	sefasy_def:
	211	/* empty */
	212	{
	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;
	218	}
	219	\| sefasy_def severity
	220	{
	221	if ($1 & 1)
	222	mc_warn (_("duplicate definition of Severity"));
	223	$$ = $1 \| 1;
	224	}
	225	\| sefasy_def facility
	226	{
	227	if ($1 & 2)
	228	mc_warn (_("duplicate definition of Facility"));
	229	$$ = $1 \| 2;
	230	}
	231	\| sefasy_def symbol
	232	{
	233	if ($1 & 4)
	234	mc_warn (_("duplicate definition of SymbolicName"));
	235	$$ = $1 \| 4;
	236	}
	237	;
	238
	239	severity: MCSEVERITY '=' MCTOKEN
	240	{
	241	mc_sefa_val &= ~ (0x3UL << 30);
	242	mc_sefa_val \|= (($3->nval & 0x3UL) << 30);
	243	mc_cur_severity = $3;
	244	}
	245	;
	246
	247	facility: MCFACILITY '=' MCTOKEN
	248	{
	249	mc_sefa_val &= ~ (0xfffUL << 16);
	250	mc_sefa_val \|= (($3->nval & 0xfffUL) << 16);
	251	mc_cur_facility = $3;
	252	}
	253	;
	254
	255	symbol: MCSYMBOLICNAME '=' MCIDENT
	256	{
	257	mc_last_symbol = $3;
	258	}
	259	;
	260
	261	lang_entities:
	262	lang_entity
	263	\| lang_entities lang_entity
	264	;
	265
	266	lang_entity:
	267	lang lex_want_line lines MCENDLINE
	268	{
	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");
	274	}
	275	;
	276
	277	lines: MCLINE
	278	{
	279	$$ = $1;
	280	}
	281	\| lines MCLINE
	282	{
	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;
	292	}
	293	\| error { mc_fatal ("missing end of message text"); $$ = NULL; }
	294	\| lines error { mc_fatal ("missing end of message text"); $$ = $1; }
	295	;
	296
	297	comments: MCCOMMENT { $$ = $1; }
	298	\| comments MCCOMMENT
	299	{
	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;
	309	}
	310	;
	311
	312	lang: MCLANGUAGE lex_want_nl '=' MCTOKEN NL
	313	{
	314	$$ = $4;
	315	}
	316	\| MCLANGUAGE lex_want_nl '=' MCIDENT NL
	317	{
	318	$$ = NULL;
	319	mc_fatal (_("undeclared language identifier"));
	320	}
	321	\| MCLANGUAGE lex_want_nl '=' token error
	322	{
	323	$$ = NULL;
	324	mc_fatal ("missing newline after Language");
	325	}
	326	\| MCLANGUAGE lex_want_nl '=' error
	327	{
	328	$$ = NULL;
	329	mc_fatal ("missing ident for Language");
	330	}
	331	\| MCLANGUAGE error
	332	{
	333	$$ = NULL;
	334	mc_fatal ("missing '=' for Language");
	335	}
	336	;
	337
	338	token: MCIDENT { $$ = $1; }
	339	\| MCTOKEN { $$ = $1->usz; }
	340	;
	341
	342	lex_want_nl:
	343	/* Empty */ { mclex_want_nl = 1; }
	344	;
	345
	346	lex_want_line:
	347	/* Empty */ { mclex_want_line = 1; }
	348	;
	349
	350	lex_want_filename:
	351	/* Empty */ { mclex_want_filename = 1; }
	352	;
	353
	354	%%
	355
	356	/* Something else. */