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

parser: factor handling of type tags

Browse Source 
* src/parse-gram.y: Now that <*> and <> are processed like regular
tags, let...
(tag): handle them.
This commit is contained in:
Akim Demaille
2012-07-22 18:44:39 +02:00
parent e501ea04e7
commit a82cbb63b6
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/parse-gram.y
View File

@@ -196,12 +196,12 @@ static char const *char_name (char);
%printer { fprintf (stderr, "{\n%s\n}", $$); } %printer { fprintf (stderr, "{\n%s\n}", $$); }
braceless content.opt "{...}" "%{...%}" EPILOGUE braceless content.opt "{...}" "%{...%}" EPILOGUE
%type <uniqstr> BRACKETED_ID ID ID_COLON PERCENT_FLAG TAG variable %type <uniqstr> BRACKETED_ID ID ID_COLON PERCENT_FLAG TAG tag variable
%printer { fputs ($$, stderr); } <uniqstr> %printer { fputs ($$, stderr); } <uniqstr>
%printer { fprintf (stderr, "[%s]", $$); } BRACKETED_ID %printer { fprintf (stderr, "[%s]", $$); } BRACKETED_ID
%printer { fprintf (stderr, "%s:", $$); } ID_COLON %printer { fprintf (stderr, "%s:", $$); } ID_COLON
%printer { fprintf (stderr, "%%%s", $$); } PERCENT_FLAG %printer { fprintf (stderr, "%%%s", $$); } PERCENT_FLAG
%printer { fprintf (stderr, "<%s>", $$); } TAG %printer { fprintf (stderr, "<%s>", $$); } TAG tag
%type <integer> INT %type <integer> INT
%printer { fprintf (stderr, "%d", $$); } <integer> %printer { fprintf (stderr, "%d", $$); } <integer>
@@ -390,7 +390,7 @@ grammar_declaration:
{ {
symbol_list *list; symbol_list *list;
for (list = $3; list; list = list->next) for (list = $3; list; list = list->next)
symbol_list_code_props_set (list, destructor, @2, $2); symbol_list_code_props_set (list, $1, @2, $2);
symbol_list_free ($3); symbol_list_free ($3);
} }
| "%printer" "{...}" generic_symlist | "%printer" "{...}" generic_symlist
@@ -522,9 +522,13 @@ generic_symlist:
generic_symlist_item: generic_symlist_item:
symbol { $$ = symbol_list_sym_new ($1, @1); } symbol { $$ = symbol_list_sym_new ($1, @1); }
| TAG { $$ = symbol_list_type_new ($1, @1); } | tag { $$ = symbol_list_type_new ($1, @1); }
| "<*>" { $$ = symbol_list_type_new ("*", @1); } ;
| "<>" { $$ = symbol_list_type_new ("", @1); }
tag:
TAG
| "<*>" { $$ = uniqstr_new ("*"); }
| "<>" { $$ = uniqstr_new (""); }
; ;
/* One token definition. */ /* One token definition. */