blob: 293ebc173a10e118ebb965852c411f836dc3e6c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl
use strict;
use FindBin qw($Bin);
chdir "$Bin/.." or die;
my @files = (glob("*.h"), glob("*.c"), glob("*.ac"));
foreach my $f (@files) {
open(my $fh, $f) or die;
my $before = do { local $/; <$fh>; };
close ($fh);
my $after = $before;
$after =~ s/\t/ /g;
$after =~ s/ +$//mg;
$after .= "\n" unless $after =~ /\n$/;
next if $after eq $before;
open(my $fh, ">$f") or die;
print $fh $after;
close($fh);
}
|