diff options
Diffstat (limited to 'bin/doubleNewlines.pl')
-rwxr-xr-x | bin/doubleNewlines.pl | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/bin/doubleNewlines.pl b/bin/doubleNewlines.pl deleted file mode 100755 index c1f66e57ea17..000000000000 --- a/bin/doubleNewlines.pl +++ /dev/null @@ -1,63 +0,0 @@ -#!/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++; - } -} |