mirror of
https://gitlab.gnome.org/GNOME/nautilus
synced 2024-08-25 02:36:07 +00:00
![Darin Adler](/assets/img/avatar_default.png)
with that lately. I guess the Tinderbox is the new way to catch these problems but I couldn't resist fixing them the old way too. * check-headers-in-Makefile.pl: Added some more special cases in here to make it work better. * components/services/install/nautilus-view/Makefile.am: Marked the unused files in here as "noinst_HEADERS" as a hack to make the script happy. We should delete the files at some point if we decide we aren't ever using them. * components/loser/content/.cvsignore: * components/loser/sidebar/.cvsignore: * components/mozilla/.cvsignore: * components/sample/.cvsignore: * components/services/install/command-line/.cvsignore: * libnautilus/.cvsignore: * src/.cvsignore: * src/file-manager/.cvsignore: Removed all the .xml.h files because they aren't put in these directories any more so they don't need to be ignored. If you have the files still and the cvs warnings bother you, you can delete them.
121 lines
3 KiB
Perl
Executable file
121 lines
3 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-headers-in-Makefile.pl: Checks the contents of the source
|
|
# directories against the contents of the Makefile.am files.
|
|
|
|
use diagnostics;
|
|
use strict;
|
|
|
|
my @directories = (".");
|
|
|
|
my %exceptions =
|
|
(
|
|
'$(APPLETS_SUBDIRS)' => 'applets',
|
|
'$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
|
|
'$(INSTALL_SERVICE)' => 'install',
|
|
'$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
|
|
'$(NULL)' => '',
|
|
'$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
|
|
'$(SERVICE_SUBDIRS)' => 'services',
|
|
'intl' => '',
|
|
'po' => '',
|
|
);
|
|
|
|
while (@directories)
|
|
{
|
|
my $directory = pop @directories;
|
|
my $prefix = "";
|
|
$prefix = "$directory/" if $directory ne ".";
|
|
|
|
my $in_subdirs = 0;
|
|
|
|
my $file = $prefix . "Makefile.am";
|
|
open FILE, $file or die "can't open $file";
|
|
my %headers;
|
|
while (<FILE>)
|
|
{
|
|
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";
|
|
}
|
|
}
|
|
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";
|
|
}
|
|
}
|