aboutsummaryrefslogtreecommitdiffstats
path: root/utils
diff options
context:
space:
mode:
authorChris Lattner <sabre@nondot.org>2003-01-20 19:18:44 +0000
committerChris Lattner <sabre@nondot.org>2003-01-20 19:18:44 +0000
commit1cbc0a65c8dcf3b221208a6097d6ac32024b647e (patch)
treef7d60e345d1d5f3434d61bca904138d6620b7c77 /utils
parent2f8cb571691b33cfe521e6d4185a04c5b8745d11 (diff)
downloadexternal_llvm-1cbc0a65c8dcf3b221208a6097d6ac32024b647e.zip
external_llvm-1cbc0a65c8dcf3b221208a6097d6ac32024b647e.tar.gz
external_llvm-1cbc0a65c8dcf3b221208a6097d6ac32024b647e.tar.bz2
Fix indentation code, simplify a bit
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@5379 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'utils')
-rwxr-xr-xutils/NightlyTest.pl21
1 files changed, 11 insertions, 10 deletions
diff --git a/utils/NightlyTest.pl b/utils/NightlyTest.pl
index 1c2edd6..f3170b9 100755
--- a/utils/NightlyTest.pl
+++ b/utils/NightlyTest.pl
@@ -34,7 +34,7 @@ sub GetRegex { # (Regex with ()'s, value)
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 @@ sub DiffFiles {
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 @@ foreach $Warning (@Warn) {
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 @@ foreach $File (@CVSHistory) {
}
}
-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";