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";
+ }
_______________________________________________
llvm-commits mailing list
llvm-commits@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits
