Changes in directory llvm-test:
GenerateReport.pl updated: 1.27 -> 1.28
---
Log message:
Add the ability for reports to request custom hilighting of columns to
make it easier to browse reports :)
---
Diffs of the changes: (+38 -13)
GenerateReport.pl | 51 ++++++++++++++++++++++++++++++++++++++-------------
1 files changed, 38 insertions(+), 13 deletions(-)
Index: llvm-test/GenerateReport.pl
diff -u llvm-test/GenerateReport.pl:1.27 llvm-test/GenerateReport.pl:1.28
--- llvm-test/GenerateReport.pl:1.27 Wed Apr 27 15:12:30 2005
+++ llvm-test/GenerateReport.pl Fri Mar 17 00:54:41 2006
@@ -96,6 +96,11 @@
open(REPORTDESC, $ReportFN) or
die "Couldn't open report description '$ReportFN'!";
+# HilightColumns - Filled in by the report if desired in HTML mode. This
+# contains a column number if the HTML version of the output should highlight a
+# cell in green/red if it is gt/lt 1.0 by a significant margin.
+my %HilightColumns;
+
my @LatexColumns; # Filled in by report if it supports Latex mode
my %LatexColumnFormat; # Filled in by report if supports latex mode
my @Graphs; # Filled in by the report if supports graph mode
@@ -201,27 +206,47 @@
if ($HTML) {
sub printCell {
my $Str = shift;
+ my $ColNo = shift;
+ my $IsWhite = shift;
+ my $Attrs = "";
if ($Str eq '|') {
- print "<td bgcolor='black' width='1'></td>";
+ $Attrs = " bgcolor='black' width='1'";
+ $Str = "";
} else {
- #print "<td><table border='0' cellspacing='0'
cellpadding='3'><tr><td>$Str</td></tr></table></td>\n";
- print "<td>$Str</td>\n";
- }; "";
- }
- sub printLine {
-# print "<td bgcolor='" . ($_[0] ? "#DDDDDD" : "#AAAAAA") . "' width=1>\n";
+ # If the user requested that we highlight this column, check to see what
+ # number it is. If it is > 1.05, we color it green, < 0.95 we use red.
+ # If it's not a number, ignore it.
+ if ($HilightColumns{$ColNo}) {
+ if ($Str =~ m/^([0-9]+).?[0-9.]*$/) {
+ if ($Str <= 0.85) {
+ $Attrs = " bgcolor='#FF7070'";
+ } elsif ($Str <= 0.95) {
+ $Attrs = " bgcolor='#FFAAAA'";
+ } elsif ($Str >= 1.15) {
+ $Attrs = " bgcolor='#80FF80'";
+ } elsif ($Str >= 1.05) {
+ $Attrs = " bgcolor='#CCFFCC'";
+ }
+ }
+
+ if (!$IsWhite && $Attrs eq "") {
+ # If it's not already white, make it white now.
+ $Attrs = " bgcolor=white";
+ }
+ }
+ };
+ print "<td$Attrs>$Str</td>";
+ "";
}
print "<table border='0' cellspacing='0' cellpadding='0'>\n";
print "<tr bgcolor=#FFCC99>\n";
map {
- #print "<td bgcolor='#DDAA77' width='1'></td>";
$_ = "<center><b><a href=\"#$_\">$_</a></b></center>"
- if $_ ne "|"; printCell $_
+ if $_ ne "|";
+ printCell($_, -1)
} @Header;
- #print "<td bgcolor='#DDAA77' width='1'></td>";
print "\n</tr><tr bgcolor='black' height=1>";
- #print "<td height=1></td>" x ([EMAIL PROTECTED]);
print "</tr>\n";
my $RowCount = 0;
foreach $Row (@Values) {
@@ -229,8 +254,8 @@
$IsWhite = ++$RowCount <= 2;
print "<tr bgcolor='" . ($IsWhite ? "white" : "#CCCCCC") . "'>\n";
$RowCount = 0 if ($RowCount > 3);
- map { printLine($IsWhite); printCell $_ } @$Row;
- printLine($IsWhite);
+ my $ColCount = 0;
+ map { printCell($_, $ColCount++, $IsWhite); } @$Row;
print "\n</tr>\n";
}
print "\n</table>\n";
_______________________________________________
llvm-commits mailing list
llvm-commits@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits
