|
Hi, The script recursively searches directories for consecutive "empty line(s) - code line" groups. (discussed with mmeeks) Licensed under MPL / LGPLv3+ |
From 14c3429a8882ecf74f0832fcca02921753984e49 Mon Sep 17 00:00:00 2001 From: Michael Koch <miko@gmx.ch> Date: Sat, 22 Jan 2011 17:33:45 +0100 Subject: [PATCH] Added script to search for unnecessary newlines Script recursively searches directorys for consecutive "empty line(s) - code line" groups --- bin/doubleNewlines.pl | 63 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 63 insertions(+), 0 deletions(-) create mode 100755 bin/doubleNewlines.pl diff --git a/bin/doubleNewlines.pl b/bin/doubleNewlines.pl new file mode 100755 index 0000000..c1f66e5 --- /dev/null +++ b/bin/doubleNewlines.pl @@ -0,0 +1,63 @@ +#!/usr/bin/perl +################################################################################ +# Version: MPL 1.1 / GPLv3+ / LGPLv3+ +# +# The contents of this file are subject to the Mozilla Public License Version +# 1.1 (the "License"); you may not use this file except in compliance with +# the License or as specified alternatively below. You may obtain a copy of +# the License at http://www.mozilla.org/MPL/ +# +# Software distributed under the License is distributed on an "AS IS" basis, +# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License +# for the specific language governing rights and limitations under the +# License. +# +# The Initial Developer of the Original Code is +# Michael Koch <miko@gmx.ch> +# +# Major Contributor(s): +# <name> +# +# For minor contributions see the git repository. +# +# Alternatively, the contents of this file may be used under the terms of +# either the GNU General Public License Version 3 or later (the "GPLv3+"), or +# the GNU Lesser General Public License Version 3 or later (the "LGPLv3+"), +# in which case the provisions of the GPLv3+ or the LGPLv3+ are applicable +# instead of those above. +################################################################################ +# Usage: "Usage: doubleNewlines.pl <directory>" +# It is possible to enter more than one directory separated by spaces. +# Instead of a directory you can also use one or more files as arguments. +################################################################################ + +use strict; +use warnings; + +use File::Find; +use Cwd 'abs_path'; + +my $total = 0; + +die "Usage: doubleNewlines.pl <directory>\n" unless (@ARGV); + +# if path is relative, make it absolute +foreach (@ARGV){ + $_ = abs_path($_); +} + +print "Following code files (.hxx and .cxx) are suspicious:\n"; +find(\&processFile, @ARGV); # processes all files in dir and subdirs +print "Found $total suspicious files.\n"; + +sub processFile { + my $file = $File::Find::name; + return unless $file =~ /(.cxx$)|(.hxx$)/; + open FILE, $file or die "Can't open '$file': $!"; + my $lines = join '', <FILE>; + if ($lines =~ /(\n{2,}.+){10}/) { # ten consecutive occurrences of [empty line(s) - code line)] + my $relPath = substr($file, index($file, "clone")+6); # relative path beginning with repo name + print "$relPath\n"; + $total++; + } +} -- 1.7.0.4