1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#! @PERL@ -w
# Remove trailing whitespace from modified lines in working files.
#
# Input: diff between original and working files (unified or context
# format).
use strict;
use FileHandle;
use File::Temp qw( :mktemp );
use POSIX qw(setlocale);
use Locale::gettext;
use Getopt::Std;
use vars qw($opt_p $opt_n);
setlocale(LC_MESSAGES, "");
bindtextdomain("quilt", "@LOCALEDIR@");
textdomain("quilt");
sub _($) {
return gettext(shift);
}
$opt_p = 0;
getopts('np:')
or die sprintf(_("SYNOPSIS: %s [-p num] [-n] [patch]\n"), $0);
my %files;
my $file;
while (<>) {
print unless $opt_n;
if (/^--- ./) {
# unified diff
while (<>) {
print unless $opt_n;
if (/^\+\+\+ (.+?)(?:[ \t][^\t]*)?$/) {
$file = $1;
$file =~ s<^([^/]+/+){$opt_p}><>;
#print STDERR "[$file]\n";
} elsif ($file && /^@@ -(\d+)(?:,(\d+))? \+(\d+)(?:,(\d+))? @@/) {
my $removed = defined $2 ? $2 : 1;
my $added = defined $4 ? $4 : 1;
my $line_number = $3;
while ($removed || $added) {
$_ = <>;
defined $_
or die sprintf(_("%s: I'm confused.\n"), $0);
if (/^\+/) {
push @{$files{$file}}, $line_number
if s/(^\+.*?)[ \t]+$/$1/;
$added--;
$line_number++;
} elsif (/^-/) {
$removed--;
} elsif (/^ / || /^$/) {
$removed--;
$added--;
$line_number++;
}
print unless $opt_n;
}
}
}
} elsif (/^\*\*\* ./) {
# context diff
while (<>) {
print unless $opt_n;
if ($file && /^--- (\d+)(?:,(\d+))? ----$/) {
my $line_number = $1;
my $last_line = defined $2 ? $2 : $1;
while ($line_number <= $last_line) {
$_ = <>;
defined $_
or die sprintf(_("%s: I'm confused.\n"), $0);
if (s/(^[+!] .*?)[ \t]+$/$1/) {
push @{$files{$file}}, $line_number;
}
$line_number++;
print unless $opt_n;
last if (/^\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*$/);
}
} elsif (/^--- (.+?)(?:[ \t][^\t]*)?$/) {
$file = $1;
$file =~ s<^([^/]+/+){$opt_p}><>;
#print STDERR "[$file]\n";
}
}
}
}
foreach my $file (keys %files) {
my @lines = @{$files{$file}};
if ($opt_n) {
print STDERR sprintf(
_("Warning: trailing whitespace in line %s of %s\n"), $lines[0], $file)
if @lines == 1;
print STDERR sprintf(
_("Warning: trailing whitespace in lines %s of %s\n"), join(',', @lines), $file)
if @lines > 1;
} else {
print STDERR sprintf(
_("Removing trailing whitespace from line %s of %s\n"), $lines[0], $file)
if @lines == 1;
print STDERR sprintf(
_("Removing trailing whitespace from lines %s of %s\n"), join(',', @lines), $file)
if @lines > 1;
}
unless ($opt_n) {
my $fh = new FileHandle("< $file")
or die "$file: $!\n";
my ($tmp, $tmpname) = mkstemp("$file.XXXXXX")
or die "$file.*: $!\n";
while (<$fh>) {
if (@lines && $lines[0] == $.) {
s/[ \t]+$//;
shift @lines;
}
print $tmp $_;
}
$fh->close;
$tmp->close
or die "$tmpname: $!\n";
rename $tmpname, $file
or die sprintf(_("Renaming %s to %s: %s\n"), $tmpname, $file, $!);
}
}
|
