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

Improve genericity of bench.pl.

Browse Source 
* etc/bench.pl.in (&bench_grammar): Take the set of benches as
	argument.
	(&bench_push_parser): New.
	Call it.
This commit is contained in:
Akim Demaille
2008-07-17 11:01:30 +02:00
parent 15129f2525
commit 7484f1d4f3
2 changed files with 46 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@@ -1,3 +1,11 @@
2008-11-03 Akim Demaille <demaille@gostai.com>
Improve genericity of bench.pl.
* etc/bench.pl.in (&bench_grammar): Take the set of benches as
argument.
(&bench_push_parser): New.
Call it.
2008-11-03 Akim Demaille <demaille@gostai.com>
Add documentation to bench.pl.

52
etc/bench.pl.in
View File

@@ -398,28 +398,29 @@ sub compile ($)
or die;
}
=item C<bench_grammar ($gram)>
=item C<bench_grammar ($gram, %bench)>
Generate benches for C<$gram>. C<$gram> should be C<calc> or
C<triangle>.
C<triangle>. C<%bench> is a hash of the form:
C<$name> => C<$directives>
where C<$name> is the name of the bench, and C<$directives> are the
Bison directive to use for this bench. All the benches are compared
against each other, repeated 50 times.
=cut
sub bench_grammar ($)
sub bench_grammar ($%)
{
my ($gram) = @_;
my %test =
(
"pull-impure" => '',
"pull-pure" => '%define api.pure',
"push-impure" => '%define api.push_pull "both"',
"push-pure" => '%define api.push_pull "both" %define api.pure',
);
my ($gram, %test) = @_;
# Set up the benches as expected by timethese.
my %bench;
while (my ($name, $directives) = each %test)
{
print STDERR "$name\n";
# Call the Bison input file generator.
my $generator = "$gram" . "_grammar";
&$generator ($name, 200, $directives);
compile ($name);
@@ -427,13 +428,36 @@ sub bench_grammar ($)
}
print "$gram:\n";
# Run the benches.
my $res = timethese (50, \%bench, 'nop');
# Output the result.
cmpthese ($res, 'nop');
}
print STDERR "Using $bison, $cc.\n";
calc_input ('calc', 200);
bench_grammar ('calc');
=item C<bench_push_parser ()>
Bench the C push parser against the pull parser, pure and impure
interfaces.
=cut
sub bench_push_parser ()
{
print STDERR "Using $bison, $cc.\n";
calc_input ('calc', 200);
bench_grammar
('calc',
(
"pull-impure" => '',
"pull-pure" => '%define api.pure',
"push-impure" => '%define api.push_pull "both"',
"push-pure" => '%define api.push_pull "both" %define api.pure',
)
);
}
bench_push_parser();
### Setup "GNU" style for perl-mode and cperl-mode.
## Local Variables: