diff options
author | Akim Demaille <akim.demaille@gmail.com> | 2020-03-22 09:58:32 +0100 |
---|---|---|
committer | Akim Demaille <akim.demaille@gmail.com> | 2020-03-22 15:59:13 +0100 |
commit | cf60d0a617d27f10d9f5af92b0c34c2d174e1430 (patch) | |
tree | 04c305d631882031efd6d55750f9129930a46d22 | |
parent | c0e8489605b23cd52009664188e2e5bc35a6dd70 (diff) | |
download | bison-cf60d0a617d27f10d9f5af92b0c34c2d174e1430.tar.gz |
bench: create a README file with benches
* etc/bench.pl.in (&bench_with_gbenchmark): Here.
-rwxr-xr-x | etc/bench.pl.in | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/etc/bench.pl.in b/etc/bench.pl.in index badca670..e067d870 100755 --- a/etc/bench.pl.in +++ b/etc/bench.pl.in @@ -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"; } ###################################################################### |