[llvm-commits] CVS: llvm/utils/OldenDataRecover.pl

[Andrew Lenharth]

Changes in directory llvm/utils:

OldenDataRecover.pl added (r1.1)
---
Log message:

make recovering running_Olden data easier when the nightly tester eats the graphs

---
Diffs of the changes:  (+37 -0)

 OldenDataRecover.pl |   37 +++++++++++++++++++++++++++++++++++++
 1 files changed, 37 insertions(+)


Index: llvm/utils/OldenDataRecover.pl
diff -c /dev/null llvm/utils/OldenDataRecover.pl:1.1
*** /dev/null	Wed Apr 12 12:41:29 2006
--- llvm/utils/OldenDataRecover.pl	Wed Apr 12 12:41:19 2006
***************
*** 0 ****
--- 1,37 ----
+ #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";
+ }