From: deal Date: Fri, 29 Jun 2001 12:17:49 +0000 (+0000) Subject: Split table into parts, one for each month. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9987c94cb8ecbba1dd9888cd4b69b499f91c23db;p=dealii-svn.git Split table into parts, one for each month. git-svn-id: https://svn.dealii.org/trunk@4778 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/common/scripts/report.pl b/deal.II/common/scripts/report.pl index 96aa360091..1f01e88ea2 100644 --- a/deal.II/common/scripts/report.pl +++ b/deal.II/common/scripts/report.pl @@ -10,8 +10,6 @@ print <<'EOT'

Regression tests

Results

- -
Date EOT ; @@ -27,9 +25,9 @@ while (<>) $result = $3; $name = $4; - $results{$date}{$dir.':'.$name} = '' + $results{$date}{$dir.':'.$name} = '' if ($result eq '+'); - $results{$date}{$dir.':'.$name} = '' + $results{$date}{$dir.':'.$name} = '' if ($result eq '-'); } } @@ -47,10 +45,19 @@ foreach $name (sort keys %testcase) { $testcase{$name} = $next_index++; } + +print <<'EOT' + +
Date +EOT + ; + for ($i=1;$i<$next_index;$i++) { printf "%02d", $i; } +print "\n"; + # finally output a table of results foreach $date (sort {$b cmp $a} keys %results) @@ -58,17 +65,32 @@ foreach $date (sort {$b cmp $a} keys %results) # if this is not the first iteration, and if the month has changed, # then put in a break into the table to avoid overly long tables # which browsers take infinitely long to render - $date ~ /\d+-(\d+)-\d+/; + $date =~ /(\d+)-(\d+)-\d+/; + $this_year = $1; $this_month = $2; - if ((defined $oldmonth) && ($this_month != $old_month)) { - print "
\n\n\n" + if ($this_month != $old_month) { + if (defined $old_month) { + print "
\n"; + + print <<'EOT' + + '; } print "\n"; @@ -96,3 +118,5 @@ print <<'EOT' EOT ; + +
Date +EOT + ; + + for ($i=1;$i<$next_index;$i++) + { + printf "%02d", $i; + } + print "\n"; + } } print "
$date "; foreach $name (sort keys %testcase) { $_ = $results{$date}{$name}; - print ' ', $_; + print ' ', $_, '