Message-ID: <4477B905.9090806@garzik.org>
Date: Fri, 26 May 2006 22:27:17 -0400
From: Jeff Garzik <jeff@garzik.org>
User-Agent: Thunderbird 1.5.0.2 (X11/20060501)
MIME-Version: 1.0
To: Git Mailing List <git@vger.kernel.org>
CC: Linux Kernel <linux-kernel@vger.kernel.org>
Subject: [SCRIPT] chomp: trim trailing whitespace
Content-Type: multipart/mixed;
 boundary="------------030305020406070900020809"
Sender: linux-kernel-owner@vger.kernel.org
Content-Length: 2003
Lines: 93

This is a multi-part message in MIME format.
--------------030305020406070900020809
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit


Attached to this email is chomp.pl, a Perl script which removes trailing 
whitespace from several files.  I've had this for years, as trailing 
whitespace is one of my pet peeves.

Now that git-applymbox complains loudly whenever a patch adds trailing 
whitespace, I figured this script may be useful to others.

	Jeff


--------------030305020406070900020809
Content-Type: application/x-perl;
 name="chomp.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="chomp.pl"

#!/usr/bin/perl -w
#
# chomp: Trim trailing whitespace from a list of files.
#
# Usage: chomp file1 file2 file3...
#
# NOTE:  Files are modified in-place.  No backups are created.
#
# Files are, of course, not updated if they lack trailing whitespace.
#
#

use strict;

my ($argv_fn);
my $bytes_saved = 0;

while ($argv_fn = shift @ARGV) {
	&chomp_file($argv_fn);
}
printf "%u bytes chomped.\n", $bytes_saved;
exit(0);


sub chomp_file {
	my ($fn) = @_;
	my ($s, $i);
	my $chomped = 0;

	# read entire data file into memory
	open (F, $fn) or die "cannot open $fn: $!\n";
	my @data = <F>;
	close (F);

	# trim trailing whitespace
	foreach $i (0 .. $#data) {
		$s = $data[$i];
		if ($s =~ /\s$/) {
			while (($s) && ($s =~ /\s$/)) {
				chop $s;
				$bytes_saved++;
			}
			$s .= "\n";
			$bytes_saved--;
			if ($s ne $data[$i]) {
				$chomped = 1;
				$data[$i] = $s;
			}
		}
	}

	# dump data back to disk
	if ($chomped) {
		open (F, ">$fn") or die "cannot overwrite $fn: $!\n";
		print F @data;
		close (F);

		print "$fn modified.\n";
	}
}


--------------030305020406070900020809--
-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@vger.kernel.org
More majordomo info at  http://vger.kernel.org/majordomo-info.html
Please read the FAQ at  http://www.tux.org/lkml/