bench: Improve output.

	* etc/bench.pl.in (bench_grammar): Tune the printf format.

diff --git a/ChangeLog b/ChangeLog
index a52e0535a9c5967eaa35d9e2bdb513dfab088eb4..a0e483ee107821aac4e4a3f2f70aa2707bc9e0ac 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-03  Akim Demaille  <demaille@gostai.com>
+
+       bench: Improve output.
+       * etc/bench.pl.in (bench_grammar): Tune the printf format.
+
 2008-11-03  Akim Demaille  <demaille@gostai.com>
 
        bench: check impact of %debug on variants.

diff --git a/etc/bench.pl.in b/etc/bench.pl.in
index 481f3dda91fc9f7a6f31f170c94246662d48b123..eadfa4b32894195e287f966c6e64c10722f213d4 100755 (executable)
--- a/etc/bench.pl.in
+++ b/etc/bench.pl.in
@@ -696,9 +696,15 @@ sub bench_grammar ($%)
 
   # Display the sizes.
   print "Sizes:\n";
+  my $width = 10;
   for my $bench (keys %size)
     {
-      printf "%10s: %10dkB\n", $bench, int ($size{$bench} / 1024);
+      $width = length $bench
+        if $width < length $bench;
+    }
+  for my $bench (keys %size)
+    {
+      printf "%${width}s: %5dkB\n", $bench, int ($size{$bench} / 1024);
     }
 }