mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-17 05:29:24 +00:00
Fix indentation code, simplify a bit
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@5379 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
2f8cb57169
commit
1cbc0a65c8
@ -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";
|
||||
|
Loading…
Reference in New Issue
Block a user