Messages in this thread | | | Date | Sun, 21 Mar 2010 13:55:42 +0300 | From | Dan Carpenter <> | Subject | strip_whitespace.pl |
| |
I've written a new script called strip_whitespace.pl (included).
One bug is that, if you split or unsplit a string literal that confuses it. Otherwise it seems to work.
strip_whitespace.pl drivers/staging/winbond/reg.c > before apply patch strip_whitespace.pl drivers/staging/winbond/reg.c > after
`diff before after`. If they are the same then resend the patch.
regards, dan carpenter
#!/usr/bin/perl
use strict;
my $file = shift(); open FILE, "<$file"; my $txt = do { local $/; <FILE> };
# strip C99 comments $txt =~ s/\/\/.*//g; # strip newlines $txt =~ s/\n//g; # strip remaining comments $txt =~ s/\/\*.*?\*\///g; # strip tabs $txt =~ s/\t//g; # strip spaces $txt =~ s/ //g; # add newlines again $txt =~ s/;/;\n/g;
print "$txt\n";
| |