Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-09 20:33:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

parser: factor the symbol definition

Browse Source 
* src/parse-gram.y (int.opt, string_as_id.opt): New.
(symbol_def): Use it.
This commit is contained in:
Akim Demaille
2018-11-28 05:19:38 +01:00
parent 2c5e933672
commit 8e092082cb
1 changed files with 29 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
src/parse-gram.y
View File

@@ -503,52 +503,37 @@ symbol_def:
current_type = $1;
tag_seen = true;
}
| id
| id int.opt[num] string_as_id.opt[alias]
{
symbol_class_set ($1, current_class, @1, true);
symbol_type_set ($1, current_type, @1);
}
| id INT
{
if (current_class != token_sym)
symbol_class_set ($id, current_class, @id, true);
symbol_type_set ($id, current_type, @id);
if (0 <= $num)
{
gram_error (&@2,
_("non-terminals cannot be given an explicit number"));
YYERROR;
if (current_class != token_sym)
gram_error (&@num,
_("non-terminals cannot be given an explicit number"));
else
symbol_user_token_number_set ($id, $num, @num);
}
symbol_class_set ($1, current_class, @1, true);
symbol_type_set ($1, current_type, @1);
symbol_user_token_number_set ($1, $2, @2);
}
| id string_as_id
{
if (current_class != token_sym)
if ($alias)
{
gram_error (&@2,
_("non-terminals cannot be given a string alias"));
YYERROR;
if (current_class != token_sym)
gram_error (&@alias,
_("non-terminals cannot be given a string alias"));
else
symbol_make_alias ($id, $alias, @alias);
}
symbol_class_set ($1, current_class, @1, true);
symbol_type_set ($1, current_type, @1);
symbol_make_alias ($1, $2, @2);
}
| id INT string_as_id
{
if (current_class != token_sym)
{
gram_error (&@2,
_("non-terminals cannot be given an explicit number"));
gram_error (&@3,
_("non-terminals cannot be given a string alias"));
YYERROR;
}
symbol_class_set ($1, current_class, @1, true);
symbol_type_set ($1, current_type, @1);
symbol_user_token_number_set ($1, $2, @2);
symbol_make_alias ($1, $3, @3);
if (current_class != token_sym && (0 <= $num || !$alias))
YYERROR;
}
;
%type <int> int.opt;
int.opt:
%empty { $$ = -1; }
| INT
;
/* One or more symbol definitions. */
symbol_defs.1:
symbol_def
@@ -703,6 +688,12 @@ string_as_id:
}
;
%type <symbol*> string_as_id.opt;
string_as_id.opt:
%empty { $$ = NULL; }
| string_as_id
;
epilogue.opt:
%empty
| "%%" EPILOGUE