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

* src/scan-gram.l: Complete the scanner with the missing patterns

Browse Source 
to pacify Flex.
Use `quote' and `symbol_tag_get' where appropriate.
This commit is contained in:
Akim Demaille
2002-06-20 07:19:13 +00:00
parent 93b68a0e09
commit 4f25ebb043
3 changed files with 411 additions and 368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

740
src/scan-gram.c
View File

File diff suppressed because it is too large Load Diff

32
src/scan-gram.l
View File

@@ -324,7 +324,7 @@ blanks [ \t\f]+
if (c > 255)
{
LOCATION_PRINT (stderr, *yylloc);
fprintf (stderr, ": invalid escape: %s\n", yytext);
fprintf (stderr, ": invalid escape: %s\n", quote (yytext));
YY_STEP;
}
else
@@ -343,11 +343,13 @@ blanks [ \t\f]+
\\t obstack_1grow (&string_obstack, '\t');
\\v obstack_1grow (&string_obstack, '\v');
\\[\\""] obstack_1grow (&string_obstack, yytext[1]);
\\. {
\\(.|\n) {
LOCATION_PRINT (stderr, *yylloc);
fprintf (stderr, ": unrecognized escape: %s\n", yytext);
fprintf (stderr, ": unrecognized escape: %s\n", quote (yytext));
YY_OBS_GROW;
}
/* FLex wants this rule, in case of a `\<<EOF>>'. */
\\ YY_OBS_GROW;
}
@@ -364,8 +366,10 @@ blanks [ \t\f]+
yy_pop_state ();
}
[^\[\]\'\n\r\\] YY_OBS_GROW;
\\. YY_OBS_GROW;
[^\[\]\'\n\r\\]+ YY_OBS_GROW;
\\(.|\n) YY_OBS_GROW;
/* FLex wants this rule, in case of a `\<<EOF>>'. */
\\ YY_OBS_GROW;
{eols} YY_OBS_GROW; YY_LINES;
@@ -392,7 +396,9 @@ blanks [ \t\f]+
}
[^\[\]\"\n\r\\]+ YY_OBS_GROW;
\\. YY_OBS_GROW;
\\(.|\n) YY_OBS_GROW;
/* FLex wants this rule, in case of a `\<<EOF>>'. */
\\ YY_OBS_GROW;
{eols} YY_OBS_GROW; YY_LINES;
@@ -420,6 +426,9 @@ blanks [ \t\f]+
/* Comments. */
"/*" YY_OBS_GROW; yy_push_state (SC_COMMENT);
"//".* YY_OBS_GROW;
/* Not comments. */
"/" YY_OBS_GROW;
}
@@ -479,9 +488,9 @@ blanks [ \t\f]+
return PROLOGUE;
}
[^%\[\]/\'\"\n\r]+ YY_OBS_GROW;
"%"+[^%\}\n\r]+ YY_OBS_GROW;
{eols} YY_OBS_GROW; YY_LINES;
[^%\[\]/\'\"\n\r]+ YY_OBS_GROW;
"%" YY_OBS_GROW;
{eols} YY_OBS_GROW; YY_LINES;
<<EOF>> {
LOCATION_PRINT (stderr, *yylloc);
@@ -491,7 +500,6 @@ blanks [ \t\f]+
yylval->string = last_string;
return PROLOGUE;
}
}
@@ -546,7 +554,7 @@ handle_action_dollar (char *cp, location_t location)
type_name = symbol_list_n_type_name_get (current_rule, location, 0);
if (!type_name && typed)
complain_at (location, _("$$ of `%s' has no declared type"),
current_rule->sym->tag);
symbol_tag_get (current_rule->sym));
if (!type_name)
type_name = "";
obstack_fgrow1 (&string_obstack,
@@ -570,7 +578,7 @@ handle_action_dollar (char *cp, location_t location)
n);
if (!type_name && typed)
complain_at (location, _("$%d of `%s' has no declared type"),
n, current_rule->sym->tag);
n, symbol_tag_get (current_rule->sym));
if (!type_name)
type_name = "";
obstack_fgrow3 (&string_obstack,