bench: create a README file with benches

* etc/bench.pl.in (&bench_with_gbenchmark): Here.
This commit is contained in:
Akim Demaille
2020-03-22 09:58:32 +01:00
parent c0e8489605
commit cf60d0a617

View File

@@ -964,11 +964,14 @@ sub bench_with_gbenchmark ($@)
{
my ($grammar, @directive) = @_;
my $readme = new IO::File ">README.md";
my @obj = ();
for my $i (0 .. $#directive)
{
my $base = "y$i";
printf " %2d. %s\n", $i, join (' ', split ("\n", $directive[$i]));
my $m = sprintf " %2d. %s\n", $i, join (' ', split ("\n", $directive[$i]));
print $m;
print $readme $m;
generate_grammar ($grammar, $base, $directive[$i]);
compile ($base);
push @obj, "$base.o";
@@ -983,7 +986,7 @@ EOF
my $compiler = compiler ("y0");
run "$compiler -o main $cflags main.c @obj -lbenchmark";
run "./main";
run "./main | tee -a README.md";
}
######################################################################