From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stephen Hemminger Subject: [PATCH 01/19] devtools: add simple script to find duplicate includes Date: Tue, 11 Jul 2017 11:55:28 -0700 Message-ID: <20170711185546.26138-2-stephen@networkplumber.org> References: <20170711185546.26138-1-stephen@networkplumber.org> Cc: Stephen Hemminger To: dev@dpdk.org Return-path: Received: from mail-pg0-f45.google.com (mail-pg0-f45.google.com [74.125.83.45]) by dpdk.org (Postfix) with ESMTP id 78FCF37AF for ; Tue, 11 Jul 2017 20:55:56 +0200 (CEST) Received: by mail-pg0-f45.google.com with SMTP id k14so530217pgr.0 for ; Tue, 11 Jul 2017 11:55:56 -0700 (PDT) In-Reply-To: <20170711185546.26138-1-stephen@networkplumber.org> List-Id: DPDK patches and discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: dev-bounces@dpdk.org Sender: "dev" This is just a simple check script to find obvious duplications. Signed-off-by: Stephen Hemminger --- 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 +# +# 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