+++ /dev/null
-#this script is intended to help recover the running graphs when
-#the nightly tester decides to eat them.
-
-#zgrep -E "(=========)|(TEST-RESULT-llc-time)" *-Olden-tests.txt* |perl this > file
-#zgrep -E "(=========)|(TEST-RESULT-compile.*bc)" *-Olden-tests.tx* |perl this >file
-
-while (<>) {
- if (/(\d*-\d*-\d*)-.*=========.*\/(.*)\' Program/) {
-# print "$1 $2\n";
- $curP = $2;
- $curD = $1;
- $dates{$1} = 1;
- } elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: program (\d*\.\d*)/) {
-# print "$1 $2\n";
- if ($curD eq $1) {
- $$data{$curD}{$curP} = $2;
- }
- } elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: (\d*)/) {
-# print "$1 $2\n";
- if ($curD eq $1) {
- $$data{$curD}{$curP} = $2;
- }
- }
-}
-@progs = ("bh", "em3d", "mst", "power", "tsp", "bisort", "health", "perimeter", "treeadd", "voronoi");
-
-foreach $date (sort keys %dates) {
- print "$date: ";
- foreach $prog (@progs) {
- if ($$data{$date}{$prog}) {
- print " $$data{$date}{$prog}";
- } else {
- print " 0";
- }
- }
- print "\n";
-}