bison-3.7.6/etc/bench.pl.in

173 my $bench;
212   my ($bench, @directive) = @_;
213   my $res = "/* Directives for bench '$bench'. */\n";
215   $res .= "/* End of directives for bench '$bench'. */\n";
273   my $out = new IO::File ">$base.y"
275   print $out <<EOF;
295       print $out "%token t$size $size \"$size\"\n";
298 print $out <<EOF;
313     print $out wrap ("| ", "   ",
318 print $out ";\n";
320 print $out <<EOF;
368   my ($out) = @_;
369 …print $out "0+1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+…
372 …print $out "1+1*(2+2*(3+3*(4+4*(5+5*(6+6*(7+7*(8+8*(9+9*(10+10*(11+11*(12+12*(13+13*(14+14*(15+15*…
395   my $out = new IO::File ">$base.y"
397   print $out <<EOF;
526   print $out "static const char *INPUT = \"\\n\\\n";
527   calc_input ($out);
528   print $out "\";\n";
532       print $out <<EOF;
550       print $out <<EOF;
580   my $out = new IO::File ">$base.y"
582   print $out <<EOF;
630       print $out <<'EOF';
652       print $out <<'EOF';
673   print $out <<'EOF';
891   my %bench;
895       $bench{$base} = $directive[$i];
903   while (my ($name, $directives) = each %bench)
909       $bench{$name} = "system ('./$name');";
923   my $res = timethese ($iterations, \%bench, 'nop');
931   for my $bench (keys %size)
933       $width = length $bench
934         if $width < length $bench;
938   for my $bench (@benches_per_size)
940       printf "%${width}s: %5.2fkB\n", $bench, $size{$bench} / 1024;
989   my $out = new IO::File ">main.cc";
990   print $out <<EOF;
1014 sub bench ($@)  subroutine
1040   bench ('calc',
1058   bench ('list',
1215     "b|bench=s"      => \$bench,
1271 my %bench =
1277 if (defined $bench)
1279   die "invalid argument for --bench: $bench"
1280     unless defined $bench{$bench};
1281   &{$bench{$bench}}();
1287   bench ($grammar, @ARGV);