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

[Chris Lattner]

Changes in directory llvm/utils:

NightlyTest.pl updated: 1.2 -> 1.3

---
Log message:

Fix indentation code, simplify a bit


---
Diffs of the changes:

Index: llvm/utils/NightlyTest.pl
diff -u llvm/utils/NightlyTest.pl:1.2 llvm/utils/NightlyTest.pl:1.3
--- llvm/utils/NightlyTest.pl:1.2	Mon Jan 20 12:05:27 2003
+++ llvm/utils/NightlyTest.pl	Mon Jan 20 13:18:44 2003
@@ -34,7 +34,7 @@
 
 sub AddPreTag {  # Add pre tags around nonempty list, or convert to "none"
   $_ = shift;
-  if (length) { return "<pre>  $_</pre>"; } else { "<b>none</b><br>"; }
+  if (length) { return "<ul><pre>$_</pre></ul>"; } else { "<b>none</b><br>"; }
 }
 
 sub GetDir {
@@ -59,8 +59,8 @@
   my @Diffs = split "\n", `diff $WebDir/$DATE$Suffix $WebDir/$Others[0]`;
   my $Added   = join "\n", grep /^</, @Diffs;
   my $Removed = join "\n", grep /^>/, @Diffs;
-  $Added =~ s/^< /  /gm;
-  $Removed =~ s/^> /  /gm;
+  $Added =~ s/^< //gm;
+  $Removed =~ s/^> //gm;
   return ($Added, $Removed);
 }
 
@@ -165,8 +165,9 @@
     push @Warnings, "$CurDir/$Warning";     # Add directory to warning...
   }
 }
-my $WarningsList = AddPreTag join "\n  ", @Warnings;
-my $WarningsFile = join "\n", @Warnings; $WarningsFile =~ s/:[0-9]+:/::/g;
+my $WarningsFile =  join "\n", @Warnings;
+my $WarningsList = AddPreTag $WarningsFile;
+$WarningsFile =~ s/:[0-9]+:/::/g;
 
 # Emit the warnings file, so we can diff...
 WriteFile "$WebDir/$DATE-Warnings.txt", $WarningsFile . "\n";
@@ -207,11 +208,11 @@
   }
 }
 
-my $UserCommitList = join "\n  ", keys %UsersCommitted;
-my $UserUpdateList = join "\n  ", keys %UsersUpdated;
-my $AddedFilesList = AddPreTag join "\n  ", keys %AddedFiles;
-my $ModifiedFilesList = AddPreTag join "\n  ", keys %ModifiedFiles;
-my $RemovedFilesList = AddPreTag join "\n  ", keys %RemovedFiles;
+my $UserCommitList = join "\n", keys %UsersCommitted;
+my $UserUpdateList = join "\n", keys %UsersUpdated;
+my $AddedFilesList = AddPreTag join "\n", keys %AddedFiles;
+my $ModifiedFilesList = AddPreTag join "\n", keys %ModifiedFiles;
+my $RemovedFilesList = AddPreTag join "\n", keys %RemovedFiles;
 
 # Get a list of the previous days that we can link to...
 my @PrevDays = map {s/.html//; $_} GetDir ".html";