6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-08-17 05:29:24 +00:00
Code Issues Projects Releases Wiki Activity

Fix indentation code, simplify a bit

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@5379 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Chris Lattner 2003-01-20 19:18:44 +00:00
parent 2f8cb57169
commit 1cbc0a65c8
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
utils/NightlyTest.pl
View File

@ -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";