maint/dupincludes.pl

   1 #!/usr/bin/env perl
   2
   3 # Copyright (c) 2005, Pavel Roskin
   4 # This script is Free Software, and it can be copied, distributed and
   5 # modified under the terms of GNU General Public License, version 2.
   6
   7 # Locate duplicate includes
   8
   9 use strict;
  10
  11 my %sys_includes;
  12 my %loc_includes;
  13
  14 if ($#ARGV != 0) {
  15         print "Usage: dupincludes.pl file\n";
  16         exit 1;
  17 }
  18
  19 my $filename = $ARGV[0];
  20
  21 if (!open (FILE, "$filename")) {
  22         print "Cannot open file \"$filename\"\n";
  23         exit 1;
  24 }
  25
  26 foreach (<FILE>) {
  27         if (/^\s*#\s*include\s*<(.*)>/) {
  28                 if (defined $sys_includes{$1}) {
  29                         print "$filename: duplicate <$1>\n";
  30                 } else {
  31                         $sys_includes{$1} = 1;
  32                 }
  33         } elsif (/^\s*#\s*include\s*"(.*)"/) {
  34                 if (defined $loc_includes{$1}) {
  35                         print "$filename: duplicate \"$1\"\n";
  36                 } else {
  37                         $loc_includes{$1} = 1;
  38                 }
  39         }
  40 }