mirror of
https://gitlab.gnome.org/GNOME/nautilus
synced 2024-11-05 16:04:31 +00:00
11f5ae2433
* 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.
79 lines
1.9 KiB
Perl
Executable file
79 lines
1.9 KiB
Perl
Executable file
#!/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";
|
|
}
|
|
}
|