X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=check-module;h=6961cd0a872fb328dee520c9f9d246edb9269a47;hb=fa3486514bd8f15f8eb4c49821d0356b52e5a335;hp=026e41e10ece36d869cea13ccbdde92e1a65e917;hpb=34a29de87db9b8627fcfb3b2493634e2c81d8e99;p=gnulib.git
diff --git a/check-module b/check-module
index 026e41e10..6961cd0a8 100755
--- a/check-module
+++ b/check-module
@@ -1,4 +1,22 @@
#!/usr/bin/perl -w
+# Check a gnulib module.
+
+# Copyright (C) 2005, 2006, 2007 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
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program 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 program. If not, see .
+
+
# Read a module description file and derive the set of files
# included directly by any .c or .h file listed in the `Files:' section.
# Take the union of all such sets for any dependent modules.
@@ -21,7 +39,12 @@ use strict;
use Getopt::Long;
#use Coda;
-(my $VERSION = '$Revision: 1.4 $ ') =~ tr/[0-9].//cd;
+my $COPYRIGHT_NOTICE = "Copyright (C) 2006 Free Software Foundation, Inc.\n".
+"This is free software. You may redistribute copies of it under the terms of\n".
+"the GNU General Public License .\n".
+"There is NO WARRANTY, to the extent permitted by law.\n";
+
+(my $VERSION = '$Revision: 1.8 $ ') =~ tr/[0-9].//cd;
(my $ME = $0) =~ s|.*/||;
use constant ST_INIT => 1;
@@ -73,6 +96,9 @@ sub parse_module_file ($)
elsif ($state eq ST_DEPENDENTS)
{
$dep_set{$line} = 1;
+ (my $base = $module_file) =~ s,.*/,,;
+ $line eq $base
+ and die "$ME: module $module_file depends on itself\n";
}
}
}
@@ -131,7 +157,8 @@ sub find_included_lib_files ($)
my ($file) = @_;
# Special cases...
- my %special_non_dup = ( 'fnmatch_loop.c' => 1, 'regex.c' => 1 );
+ my %special_non_dup = ( 'fnmatch_loop.c' => 1,
+ 'regex.c' => 1, 'at-func.c' => 1 );
my %inc;
open FH, '<', $file
@@ -178,6 +205,19 @@ my %exempt_header =
# The use of obstack.h in the hash module is conditional, off by default.
'lib/hash.c:obstack.h' => 1,
+ # C files in the gc module have conditional includes.
+ 'lib/gc-gnulib.c:des.h' => 1,
+ 'lib/gc-gnulib.c:arcfour.h' => 1,
+ 'lib/gc-gnulib.c:arctwo.h' => 1,
+ 'lib/gc-gnulib.c:md2.h' => 1,
+ 'lib/gc-gnulib.c:md4.h' => 1,
+ 'lib/gc-gnulib.c:md5.h' => 1,
+ 'lib/gc-gnulib.c:rijndael.h' => 1,
+ 'lib/gc-gnulib.c:sha1.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,
@@ -237,7 +277,7 @@ sub check_module ($)
GetOptions
(
help => sub { usage 0 },
- version => sub { print "$ME version $VERSION\n"; exit },
+ version => sub { print "$ME version $VERSION\n$COPYRIGHT_NOTICE"; exit },
) or usage 1;
@ARGV < 1