diff options
author | Darin Adler <darin@src.gnome.org> | 2000-07-05 23:49:25 +0000 |
---|---|---|
committer | Darin Adler <darin@src.gnome.org> | 2000-07-05 23:49:25 +0000 |
commit | 11f5ae243350eb6148dbc2c4efef8ce419618c3f (patch) | |
tree | 13f7ba656e9f5bdee011ab52e196822bcbf78f61 /check-headers-in-Makefile.pl | |
parent | 1c23ea4dc9605203b61da1ee5701abbcd8d13105 (diff) | |
download | nautilus-11f5ae243350eb6148dbc2c4efef8ce419618c3f.tar.gz |
Wrote a script to check that the Makefile.am file matches what's actually
* check-headers-in-Makefile.pl: Wrote a script to check that the
Makefile.am file matches what's actually in the directories.
* components/html/main.c: Obsolete file.
* components/services/time/command-line/Makefile.am: Removed
mention of nonexistent trilobite-eazel-sample-service-common.c.
* components/services/time/nautilus-view/Makefile.am: Removed
mention of nonexistent trilobite-eazel-sample-service-common.c.
* libnautilus-extensions/nautilus-icon-grid.c: Obsolete file.
* libnautilus-extensions/nautilus-icon-grid.h: Obsolete file.
* nautilus-installer/src/Makefile.am: Fixed typo; it said
"installer h" instead of "installer.h".
* src/Makefile.am: Added nautilus-search-bar-private.h.
* src/file-manager/fm-directory-list.h: Obsolete file.
Diffstat (limited to 'check-headers-in-Makefile.pl')
-rwxr-xr-x | check-headers-in-Makefile.pl | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/check-headers-in-Makefile.pl b/check-headers-in-Makefile.pl new file mode 100755 index 000000000..447e48768 --- /dev/null +++ b/check-headers-in-Makefile.pl @@ -0,0 +1,79 @@ +#!/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. +# +# Author: Darin Adler <darin@eazel.com>, +# + +# check-config-h.pl: Search for .c files where someone forgot to +# put an include for <config.h> in. + +use diagnostics; +use strict; + +# default to all the files starting from the current directory +if (!@ARGV) + { + @ARGV = `find . -name 'Makefile\.am' -print`; + } + +foreach my $file (@ARGV) + { + chomp $file; + my $directory = $file; + $directory =~ s|/Makefile\.am||; + + open FILE, $file or die "can't open $file"; + my %headers; + while (<FILE>) + { + 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"; + } + } |