check-headers-in-Makefile.pl

   1 #!/usr/bin/perl -w
   2 # -*- Mode: perl; indent-tabs-mode: nil -*-
   3
   4 #
   5 #  Nautilus
   6 #
   7 #  Copyright (C) 2000 Eazel, Inc.
   8 #
   9 #  This library is free software; you can redistribute it and/or
  10 #  modify it under the terms of the GNU General Public License as
  11 #  published by the Free Software Foundation; either version 2 of the
  12 #  License, or (at your option) any later version.
  13 #
  14 #  This library is distributed in the hope that it will be useful,
  15 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 #  General Public License for more details.
  18 #
  19 #  You should have received a copy of the GNU General Public License
  20 #  along with this library; if not, write to the Free Software
  21 #  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22 #
  23 #  Author: Darin Adler <darin@bentspoon.com>,
  24 #
  25
  26 # check-headers-in-Makefile.pl: Checks the contents of the source
  27 # directories against the contents of the Makefile.am files.
  28
  29 use diagnostics;
  30 use strict;
  31
  32 my @directories = (".");
  33
  34 my %exceptions =
  35   (
  36    '$(APPLETS_SUBDIRS)' => 'applets',
  37    '$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
  38    '$(INSTALL_SERVICE)' => 'install',
  39    '$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
  40    '$(NULL)' => '',
  41    '$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
  42    '$(SERVICE_SUBDIRS)' => 'services',
  43    'intl' => '',
  44    'po' => '',
  45   );
  46
  47 while (@directories)
  48   {
  49     my $directory = pop @directories;
  50     my $prefix = "";
  51     $prefix = "$directory/" if $directory ne ".";
  52
  53     my $in_subdirs = 0;
  54
  55     my $file = $prefix . "Makefile.am";
  56     open FILE, $file or die "can't open $file";
  57     my %headers;
  58     while (<FILE>)
  59       {
  60        if (s/^SUBDIRS\s*=//)
  61           {
  62             $in_subdirs = 1;
  63           }
  64         if ($in_subdirs)
  65           {
  66             while (s/^\s*([^\s\\]+)//)
  67               {
  68                 if (defined $exceptions{$1})
  69                   {
  70                     if ($exceptions{$1})
  71                       {
  72                         push @directories, $prefix . $exceptions{$1};
  73                       }
  74                   }
  75                 else
  76                   {
  77                     push @directories, $prefix . $1;
  78                   }
  79               }
  80             if (/^\s*$/)
  81               {
  82                 $in_subdirs = 0;
  83               }
  84             elsif (!/^\s*\\$/)
  85               {
  86                 die "can't parse SUBDIRS in $directory\n";
  87               }
  88           }
  89         while (s/([-_a-zA-Z0-9]+\.[ch])\W//)
  90           {
  91             $headers{$1} = $1;
  92           }
  93       }
  94     close FILE;
  95
  96     if ($directory eq ".")
  97       {
  98         $headers{"acconfig.h"} = "acconfig.h";
  99         $headers{"config.h"} = "config.h";
 100       }
 101
 102     opendir DIRECTORY, $directory or die "can't open $directory";
 103     foreach my $header (grep /.*\.[ch]$/, readdir DIRECTORY)
 104       {
 105         if (defined $headers{$header})
 106           {
 107             delete $headers{$header};
 108           }
 109         else
 110           {
 111             print "$directory/$header in directory but not Makefile.am\n";
 112           }
 113       }
 114     closedir DIRECTORY;
 115
 116     foreach my $header (keys %headers)
 117       {
 118         print "$directory/$header in Makefile.am but not directory\n";
 119       }
 120   }