check-headers-in-Makefile.pl 3.05 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!/usr/bin/perl -w
# -*- Mode: perl; indent-tabs-mode: nil -*-

#
#  Nautilus
#
#  Copyright (C) 2000 Eazel, Inc.
#
#  This library is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License as
#  published by the Free Software Foundation; either version 2 of the
#  License, or (at your option) any later version.
#
#  This library is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#  General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this library; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
23
#  Author: Darin Adler <darin@bentspoon.com>,
24 25
#

26 27
# check-headers-in-Makefile.pl: Checks the contents of the source
# directories against the contents of the Makefile.am files.
28 29 30 31

use diagnostics;
use strict;

32
my @directories = (".");
33

34 35
my %exceptions =
  (
36
   '$(APPLETS_SUBDIRS)' => 'applets',
37
   '$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
38
   '$(INSTALL_SERVICE)' => 'install',
39 40 41 42 43 44 45 46 47
   '$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
   '$(NULL)' => '',
   '$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
   '$(SERVICE_SUBDIRS)' => 'services',
   'intl' => '',
   'po' => '',
  );

while (@directories)
48
  {
49 50 51 52 53
    my $directory = pop @directories;
    my $prefix = "";
    $prefix = "$directory/" if $directory ne ".";

    my $in_subdirs = 0;
54

55
    my $file = $prefix . "Makefile.am";
56 57 58 59
    open FILE, $file or die "can't open $file";
    my %headers;
    while (<FILE>)
      {
60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
       if (s/^SUBDIRS\s*=//)
          {
            $in_subdirs = 1;
          }
        if ($in_subdirs)
          {
            while (s/^\s*([^\s\\]+)//)
              {
                if (defined $exceptions{$1})
                  {
                    if ($exceptions{$1})
                      {
                        push @directories, $prefix . $exceptions{$1};
                      }
                  }
                else
                  {
                    push @directories, $prefix . $1;
                  }
              }
            if (/^\s*$/)
              {
                $in_subdirs = 0;
              }
            elsif (!/^\s*\\$/)
              {
                die "can't parse SUBDIRS in $directory\n";
              }
          }
89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
	while (s/([-_a-zA-Z0-9]+\.[ch])\W//)
	  {
	    $headers{$1} = $1;
	  }
      }
    close FILE;

    if ($directory eq ".")
      {
	$headers{"acconfig.h"} = "acconfig.h";
	$headers{"config.h"} = "config.h";
      }

    opendir DIRECTORY, $directory or die "can't open $directory";
    foreach my $header (grep /.*\.[ch]$/, readdir DIRECTORY)
      {
	if (defined $headers{$header})
	  {
	    delete $headers{$header};
	  }
	else
	  {
	    print "$directory/$header in directory but not Makefile.am\n";
	  }
      }
    closedir DIRECTORY;

    foreach my $header (keys %headers)
      {
	print "$directory/$header in Makefile.am but not directory\n";
      }
  }