X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=check-module;h=c5e5e1ccc546588daef5e9b82afb45022a6b00ed;hb=fa1db0dd22768f09a507674a30beb5b8a87bb35f;hp=af42b1e40dfd12a9d4de218edfec9c44df89307c;hpb=b2e2010c7c902235b5efb5bd3c6529f61b093aa4;p=gnulib.git diff --git a/check-module b/check-module index af42b1e40..c5e5e1ccc 100755 --- a/check-module +++ b/check-module @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # Check a gnulib module. -# Copyright (C) 2005, 2006, 2007, 2009, 2010 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 @@ -18,7 +18,7 @@ # 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. @@ -31,7 +31,7 @@ # 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. @@ -60,7 +60,7 @@ sub parse_module_file ($) 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; @@ -130,7 +130,7 @@ sub usage ($) 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 { @@ -138,7 +138,7 @@ sub usage ($) 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. @@ -172,7 +172,7 @@ sub find_included_lib_files ($) 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 = )) { @@ -198,7 +198,7 @@ sub find_included_lib_files ($) 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, @@ -228,10 +228,6 @@ my %exempt_header = '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 ($) @@ -276,7 +272,7 @@ 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;