Commit 0b1f8698 authored by Alexandre Duret-Lutz's avatar Alexandre Duret-Lutz
Browse files

minor gspn-ssp/tools/sum tweaks

parent 111b408d
2008-08-29 Alexandre Duret-Lutz <adl@lrde.epita.fr>
* bench/gspn-ssp/tools/sum: Fix the order of stats in -e4.
If the MAXLINES environment variable is defined, flush the page
as needed. Sort the models only once.
2008-08-27 Alexandre Duret-Lutz <adl@lrde.epita.fr> 2008-08-27 Alexandre Duret-Lutz <adl@lrde.epita.fr>
* bench/gspn-ssp/README: New file. * bench/gspn-ssp/README: New file.
......
...@@ -26,8 +26,8 @@ my %C = ( ...@@ -26,8 +26,8 @@ my %C = (
"SCC in search stack", "SCC in search stack",
"contained map size", "contained map size",
"find_state count", "find_state count",
"max. depth",
"inclusion count", "inclusion count",
"max. depth",
"removed components", "removed components",
"states", "states",
"transitions", "transitions",
...@@ -98,7 +98,7 @@ my %C = ( ...@@ -98,7 +98,7 @@ my %C = (
], ],
); );
$C{e2a} = $C{e4}; $C{e2a} = $C{e2};
$C{e45} = $C{e5}; $C{e45} = $C{e5};
$C{e54} = $C{e5}; $C{e54} = $C{e5};
$C{e5L} = $C{e5}; $C{e5L} = $C{e5};
...@@ -115,6 +115,8 @@ my %P; ...@@ -115,6 +115,8 @@ my %P;
my %Canon; my %Canon;
my %Canons; my %Canons;
my $lines = 0;
if (0 == @ARGV) if (0 == @ARGV)
{ {
@ARGV = glob "results/*.log"; @ARGV = glob "results/*.log";
...@@ -216,10 +218,15 @@ if (exists $ENV{FORTETABLE}) ...@@ -216,10 +218,15 @@ if (exists $ENV{FORTETABLE})
} }
my @models = sort keys %Canons;
foreach my $meth (sort keys %H) foreach my $meth (sort keys %H)
{ {
my @models = sort keys %Canons; if ((exists $ENV{MAXLINES})
&& ($lines + $S{$meth} + 2 > $ENV{MAXLINES}))
{
print " "; $lines=0;
}
printf "%21s", ""; printf "%21s", "";
foreach my $m (@models) foreach my $m (@models)
...@@ -228,7 +235,7 @@ foreach my $meth (sort keys %H) ...@@ -228,7 +235,7 @@ foreach my $meth (sort keys %H)
$n .= " " x ((16-length($n))/2); $n .= " " x ((16-length($n))/2);
printf "%18s", $n; printf "%18s", $n;
} }
print "\n"; print "\n"; ++$lines;
printf "%21s", ""; printf "%21s", "";
foreach my $n (@models) foreach my $n (@models)
...@@ -241,7 +248,7 @@ foreach my $meth (sort keys %H) ...@@ -241,7 +248,7 @@ foreach my $meth (sort keys %H)
} }
print " " x (9*$x); print " " x (9*$x);
} }
print "\n"; print "\n"; ++$lines;
for (my $i = 0; $i < $S{$meth}; ++$i) for (my $i = 0; $i < $S{$meth}; ++$i)
{ {
...@@ -276,6 +283,6 @@ foreach my $meth (sort keys %H) ...@@ -276,6 +283,6 @@ foreach my $meth (sort keys %H)
} }
print " " x (9*$x); print " " x (9*$x);
} }
print "\n"; print "\n"; ++$lines;
} }
} }
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment