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

* src/scan-skel.l: Use a couple of asserts.

Browse Source
This commit is contained in:
Akim Demaille
2005-11-09 16:11:25 +00:00
parent 36b5e963e6
commit a8991a1da4
2 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/scan-skel.l
View File

@@ -41,6 +41,9 @@
#define QPUTS(String) \
fputs (quotearg_style (c_quoting_style, (String)), yyout)
#define BASE_QPUTS(File) \
assert (File), QPUTS (base_name (File))
%}
%%
@@ -60,13 +63,18 @@
if (*file_name == '@')
{
if (strcmp (file_name, "@output_header_name@") == 0)
file_name = spec_defines_file;
{
assert (spec_defines_file);
file_name = spec_defines_file;
}
else if (strcmp (file_name, "@output_parser_name@") == 0)
file_name = parser_file_name;
{
assert (parser_file_name);
file_name = parser_file_name;
}
else
fatal ("invalid token in skeleton: %s", yytext);
}
if (outname)
{
free (outname);
@@ -84,8 +92,8 @@
"@oline@" fprintf (yyout, "%d", lineno + 1);
"@ofile@" QPUTS (outname);
"@dir_prefix@" QPUTS (dir_prefix);
"@output_parser_name@" QPUTS (base_name (parser_file_name));
"@output_header_name@" QPUTS (base_name (spec_defines_file));
"@output_parser_name@" BASE_QPUTS (parser_file_name);
"@output_header_name@" BASE_QPUTS (spec_defines_file);
/* This pattern must not match more than the previous @ patterns. */
@[^{}@\n]* fatal ("invalid @ in skeleton: %s", yytext);