mirror of
https://gitlab.gnome.org/GNOME/nautilus
synced 2024-11-05 16:04:31 +00:00
d986def787
* THANKS: Added a translator's name. * check-POTFILES.pl: Made it work for more file extensions. * check-THANKS.pl: Updated for recent email changes. * components/image-viewer/io-png.h: Fixed includes. * components/image-viewer/io-png.c: Fixed includes. * components/adapter/nautilus-zoomable-proxy.c: Add include of <config.h>. * components/music/Makefile.am: Add non-compiled files to EXTRA_DIST. This makes check-headers-in-Makefile.pl happy. * components/tree/main.c: Removed this unused file since it's just a call to the standard main function. * components/tree/nautilus-tree-change-queue.c: Add include of <config.h>. * libnautilus/Makefile.am: * libnautilus-adapter/Makefile.am: * libnautilus-extensions/Makefile.am: * src/Makefile.am: Do the dist-hook dance so we don't include generated files in the tarball. * libnautilus-extensions/nautilus-dateedit-extensions.h: * libnautilus-extensions/nautilus-dateedit-extensions.c: (nautilus_gnome_date_edit_get_date_as_string): Rewrite to use eel_gstrdup_strftime. * src/nautilus-window-manage-views.c: (nautilus_window_content_view_matches_iid): We can get a NULL content view IID in some cases, so make sure we don't call strcmp on it.
108 lines
2.8 KiB
Perl
Executable file
108 lines
2.8 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-POTFILES.pl: Checks for files mentioned in POTFILES.in that
|
|
# are not present in the Makefile.am files for those directories.
|
|
|
|
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' => '',
|
|
);
|
|
|
|
my %files;
|
|
|
|
# collect all files mentioned in Makefile.am files
|
|
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\n";
|
|
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]+\.(c|h|xml|cpp|oaf\.in|desktop\.in))\W//)
|
|
{
|
|
$files{$prefix . $1} = $1;
|
|
}
|
|
}
|
|
close FILE;
|
|
}
|
|
|
|
open POTFILES, "po/POTFILES.in" or die "can't open POTFILES.in\n";
|
|
while (<POTFILES>)
|
|
{
|
|
chomp;
|
|
if (! defined $files{$_})
|
|
{
|
|
print "$_ is in POTFILES.in but not Makefile.am\n";
|
|
}
|
|
}
|
|
close POTFILES;
|