This is just a simple check script to find obvious duplications. Signed-off-by: Stephen Hemminger <[email protected]> --- devtools/dup_include.pl | 64 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 64 insertions(+) create mode 100755 devtools/dup_include.pl
diff --git a/devtools/dup_include.pl b/devtools/dup_include.pl new file mode 100755 index 000000000000..2946b6cc2ff3 --- /dev/null +++ b/devtools/dup_include.pl @@ -0,0 +1,64 @@ +#! /usr/bin/env perl + +# BSD LICENSE +# +# Copyright 2016 Stephen Hemminger <[email protected]> +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# +# * Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# * Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in +# the documentation and/or other materials provided with the +# distribution. +# * Neither the name of 6WIND S.A. nor the names of its +# contributors may be used to endorse or promote products derived +# from this software without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +# Examine files looking for duplicate references to the +# same include file. +# +# Usage: dup_include.pl foo.c bar.c +# + +use strict; +use warnings; + +die "no input files'n" + if ($#ARGV < 0); + +foreach my $filename (@ARGV) { + open my $f, '<', $filename + or die "$filename: $!\n"; + + my %included; + my $lineno = 0; + + while (<$f>) { + ++$lineno; + next unless /^#include\s+<(.+)>$/; + + my $h = $1; + warn "$filename:$lineno duplicate include $h\n" + if $included{$h}; + + $included{$h} = 1; + } + + close $f; +} -- 2.11.0
