summaryrefslogtreecommitdiff
path: root/check-headers-in-Makefile.pl
diff options
context:
space:
mode:
authorDarin Adler <darin@src.gnome.org>2000-07-05 23:49:25 +0000
committerDarin Adler <darin@src.gnome.org>2000-07-05 23:49:25 +0000
commit11f5ae243350eb6148dbc2c4efef8ce419618c3f (patch)
tree13f7ba656e9f5bdee011ab52e196822bcbf78f61 /check-headers-in-Makefile.pl
parent1c23ea4dc9605203b61da1ee5701abbcd8d13105 (diff)
downloadnautilus-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-xcheck-headers-in-Makefile.pl79
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";
+ }
+ }