linux-kernel - strip_whitespace.pl

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [<thread-prev] [thread-next>] [day] [month] [year] [list]

Message-ID: <20100321105541.GK5331@bicker>
Date:	Sun, 21 Mar 2010 13:55:42 +0300
From:	Dan Carpenter <error27@...il.com>
To:	Lars Lindley <lindley@...ote.org>
Cc:	gregkh@...e.de, greg@...ah.com, penberg@...helsinki.fi,
	pavel@....cz, harvey.harrison@...il.com,
	devel@...verdev.osuosl.org, linux-kernel@...r.kernel.org
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";
--
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@...r.kernel.org
More majordomo info at  http://vger.kernel.org/majordomo-info.html
Please read the FAQ at  http://www.tux.org/lkml/