From cf60d0a617d27f10d9f5af92b0c34c2d174e1430 Mon Sep 17 00:00:00 2001
From: Akim Demaille <akim.demaille@gmail.com>
Date: Sun, 22 Mar 2020 09:58:32 +0100
Subject: bench: create a README file with benches

* etc/bench.pl.in (&bench_with_gbenchmark): Here.
---
 etc/bench.pl.in | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'etc')

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";
 }
 
 ######################################################################
-- 
cgit v1.2.1