From a7abcc774f1ab4dceda776d7cd33076de047db7e Mon Sep 17 00:00:00 2001 From: Chris Lattner Date: Sat, 2 Oct 2010 18:44:23 +0000 Subject: [PATCH] nuke an old script git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@115412 91177308-0d34-0410-b5e6-96231b3b80d8 --- utils/OldenDataRecover.pl | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 utils/OldenDataRecover.pl diff --git a/utils/OldenDataRecover.pl b/utils/OldenDataRecover.pl deleted file mode 100644 index 767839488b3..00000000000 --- a/utils/OldenDataRecover.pl +++ /dev/null @@ -1,37 +0,0 @@ -#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"; -}