From 5a5be93f80a3cdb3d72311ece04ccc510c15626c Mon Sep 17 00:00:00 2001 From: Nick Mathewson Date: Tue, 9 Nov 2004 20:04:00 +0000 Subject: Normalize whitespace; add a "tell me about all the unnormalized whitespace" target; fix a braino in dirserv.c svn:r2758 --- contrib/checkSpace.pl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100755 contrib/checkSpace.pl (limited to 'contrib') diff --git a/contrib/checkSpace.pl b/contrib/checkSpace.pl new file mode 100755 index 000000000..435df1060 --- /dev/null +++ b/contrib/checkSpace.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl -w + +for $fn (@ARGV) { + open(F, "$fn"); + $lastnil = 0; + while () { + if (/\r/) { + print " CR:$fn:$.\n"; + } + if (/\t/) { + print " TAB:$fn:$.\n"; + } + if (/ +$/) { + print "Space\@EOL:$fn:$.\n"; + } + if ($lastnil && /^$/) { + print " DoubleNL:$fn:$.\n"; + } elsif (/^$/) { + $lastnil = 1; + } else { + $lastnil = 0; + } + } + close(F); +} -- cgit v1.2.3