strip_whitespace.pl
Dan Carpenter
error27 at gmail.com
Sun Mar 21 10:55:42 UTC 2010
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";
More information about the devel
mailing list