#!/usr/bin/perl -w
# Check a gnulib module.
-# Copyright (C) 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
+# Copyright (C) 2005-2007, 2009-2013 Free Software Foundation, Inc.
# This file is free software: you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# Read a module description file and derive the set of files
-# included directly by any .c or .h file listed in the `Files:' section.
+# included directly by any .c or .h file listed in the 'Files:' section.
# Take the union of all such sets for any dependent modules.
# Then, compare that set with the set derived from the names
# listed in the various Files: sections.
# FIXME:
# for each .m4 file listed in the Files: section(s)
# parse it for AC_LIBSOURCES directives, and accumulate the set
-# of files `required' via all AC_LIBSOURCES.
+# of files "required" via all AC_LIBSOURCES.
# If this set is not empty, ensure that it contains
# the same (.c and .h only?) files as are listed in the Files: sections.
my ($module_file) = @_;
open FH, '<', $module_file
- or die "$ME: can't open `$module_file' for reading: $!\n";
+ or die "$ME: can't open '$module_file' for reading: $!\n";
my %file_set;
my %dep_set;
my $STREAM = ($exit_code == 0 ? *STDOUT : *STDERR);
if ($exit_code != 0)
{
- print $STREAM "Try `$ME --help' for more information.\n";
+ print $STREAM "Try '$ME --help' for more information.\n";
}
else
{
Usage: $ME [OPTIONS] FILE...
Read a module description file and derive the set of files
-included directly by any .c or .h file listed in the `Files:' section.
+included directly by any .c or .h file listed in the 'Files:' section.
Take the union of all such sets for any dependent modules.
Then, compare that set with the set derived from the names
listed in the various Files: sections.
my %inc;
open FH, '<', $file
- or die "$ME: can't open `$file' for reading: $!\n";
+ or die "$ME: can't open '$file' for reading: $!\n";
while (defined (my $line = <FH>))
{
my %exempt_header =
(
- # Exempt headers like unlocked-io.h that are `#include'd
+ # Exempt headers like unlocked-io.h that are '#include'd
# but not necessarily used.
'unlocked-io.h' => 1,
'lib/gc-gnulib.c:rijndael-api-fst.h' => 1,
'lib/gc-gnulib.c:hmac.h' => 1,
'lib/gc-libgcrypt.c:md2.h' => 1,
-
- # The fts-lgpl module doesn't actually use fts-cycle.c and unistd-safer.h.
- 'lib/fts.c:fts-cycle.c' => 1,
- 'lib/fts.c:unistd-safer.h' => 1,
);
sub check_module ($)
|| exists $exempt_header{$i}
and next;
!exists $module_all_files{$lib_file} && -f "../lib/$i"
- and warn "$f: $i is `#include'd, but not "
+ and warn "$f: $i is '#include'd, but not "
. "listed in module's Files: section\n";
}
#my @t = sort keys %$inc;