mirror of
https://git.savannah.gnu.org/git/bison.git
synced 2026-03-09 04:13:03 +00:00
fix eof condition
This commit is contained in:
@@ -1,3 +1,7 @@
|
||||
2008-11-09 Akim Demaille <demaille@gostai.com>
|
||||
|
||||
fix eof condition
|
||||
|
||||
2008-11-09 Akim Demaille <demaille@gostai.com>
|
||||
|
||||
Fix --help.
|
||||
|
||||
@@ -575,8 +575,7 @@ sub generate_grammar_list ($$@)
|
||||
{
|
||||
my ($base, $max, @directive) = @_;
|
||||
my $directives = directives ($base, @directive);
|
||||
my $variant = grep { $_ eq '%define variant' } @directive;
|
||||
|
||||
my $variant = grep { /%define variant/ } @directive;
|
||||
my $out = new IO::File ">$base.y"
|
||||
or die;
|
||||
print $out <<EOF;
|
||||
@@ -917,7 +916,10 @@ sub parse (@)
|
||||
{
|
||||
@token = @_;
|
||||
verbose 2, "Parsing: @token\n";
|
||||
return parse_expr ();
|
||||
my @res = parse_expr ();
|
||||
die "expected end of directives, unexpected: @token"
|
||||
if defined $token[0];
|
||||
return @res;
|
||||
}
|
||||
|
||||
sub parse_expr ()
|
||||
|
||||
Reference in New Issue
Block a user