Mercurial > hg > octave-lojdl > gnulib-hg

annotate check-module @ 5907:c47674a83a78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync from coreutils. Use "file name" when talking about file names, instead of "filename" or "path", as per the GNU coding standards. * MODULES.html.sh: mkdir-p renamed from makepath. filenamecat renamed from path-concat. * modules/filenamecat: Renamed from modules/path-concat. (Files): filenamecat.h and filenamecat.c renamed from path-concat.h and path-concat.c. (configure.ac): gl_FILE_NAME_CONCAT, not gl_PATH_CONCAT. (Include): filenamecat.h, not path-concat.h. * modules/mkdir-p: Renamed from modules/makepath. (Files): mkdir-p.h and mkdir-p.c renamed from makepath.h and makepath.c. (configure.ac): gl_MKDIR_PARENTS, not gl_MAKEPATH. (Include): mkdir-p.h, not makepath.h. * lib/mkdir-p.c: Renamed from makepath.c. (make_dir_parents): Renamed from make_path. All callers changed. * lib/mkdir-p.h: Likewise. All includers changed. * lib/filenamecat.c: Renamed from path-concat.c. (file_name_concat): Renamed from path_concat. All callers changed. [TEST_FILE_NAME_CONCAT]: Renamed from TEST_PATH_CONCAT. * lib/filenamecat.h: Likewise. All includers changed. * lib/acl.c: Don't use "path" or "filename" to mean "file name" in comments or local variable names. * lib/basename.c: Likewise. * lib/canonicalize.c, canonicalize.h: Likewise. * lib/dirname.c, dirname.h: Likewise. * lib/euidaccess.c: Likewise. * lib/exclude.c: Likewise * lib/fnmatch_.h, fnmatch_loop.c: Likewise. * lib/fsusage.c, fsuage.h: Likewise. * lib/fts.c, fts_.h: Likewise. * lib/getcwd.c: Likewise. * lib/getloadavg.c: Likewise. * lib/mkstemp.c: Likewise. * lib/mountlist.c, mountlist.h: Likewise. * lib/openat.c, openat.h: Likewise. * lib/readlink-stub.c: Likewise. * lib/readutmp.c, readutmp.h: Likewise. * lib/rename.c: Likewise. * lib/rmdir.c: Likewise. * lib/same.c: Likewise. * lib/savedir.c: Likewise. * lib/stripslash.c: Likewise. * lib/tempname.c: Likewise. * lib/xreadlink.c: Likewise. * lib/exclude.c (excluded_file_name): Renamed from excluded_filename. All uses changed. * lib/exclude.h: Likewise. * m4/mkdir-p.m4: Renamed from makepath.m4. (gl_MKDIR_PARENTS): Renamed from gl_MAKEPATH. All uses changed. Rename files from makepath.c to mkdir-p.c, and from makepath.h to mkdir-p.h. * m4/filenamecat.m4: Renamed from path-concat.m4. (gl_FILE_NAME_CONCAT): Renamed from gl_PATH_CONCAT. All uses changed. Rename files from path-concat.c to filenamecat.c, and from path-concat.h to filenamecat.h. * m4/getcwd-path-max.m4: Don't use "path" or "filename" to mean "file name" in local variables or comments. * rename.m4: Likewise. * lib/euidaccess.c (getuid, getgid, getuid, getegid) [!defined _POSIX_VERSION]: Remove decls; not needed these days. * lib/idcache.c (getpwuid, getpwnam, getgrgid, getgrnam) [!defined _POSIX_VERSION]: Remove decls; not needed these days. * lib/pathmax.h: Include <limits.h> unconditionally, since other files have been getting away with it for years (MORE/BSD 4.3 is extinct now). * lib/userspec.c (getpwnam, getgrnam, getgrgid) [!defined _POSIX_VERSION]: Remove decls; not needed these days. * lib/pathmax.h (_POSIX_PATH_MAX) [!defined _POSIX_PATH_MAX]: Define to 256, not 255, as per modern POSIX.
author Paul Eggert <eggert@cs.ucla.edu>
date Thu, 02 Jun 2005 20:41:04 +0000
parents 63c824dd2830
children 15be21aa30a4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5769
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 #!/usr/bin/perl -w
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
2 # Read a module description file and derive the set of files
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3 # included directly by any .c or .h file listed in the `Files:' section.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4 # Take the union of all such sets for any dependent modules.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5 # Then, compare that set with the set derived from the names
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 # listed in the various Files: sections.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8 # This script makes no attempt to diagnose invalid or empty
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 # module-description files.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 # Written by Jim Meyering
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13 use strict;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 use Getopt::Long;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 #use Coda;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17 (my $VERSION = '$Revision: 1.1 $ ') =~ tr/[0-9].//cd;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18 (my $ME = $0) =~ s|.*/||;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
19
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20 use constant ST_INIT => 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21 use constant ST_FILES => 2;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22 use constant ST_DEPENDENTS => 3;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 # Parse a module file (returning list of Files: names and
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25 # list of dependent-modules.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26 # my ($file, $dep) = parse_module_file $module_file;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 sub parse_module_file ($)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 my ($module_file) = @_;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 open FH, '<', $module_file
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 or die "$ME: can't open `$module_file' for reading: $!\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 my %file_set;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 my %dep_set;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 my $state = ST_INIT;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38 while (defined (my $line = <FH>))
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
40 if ($state eq ST_INIT)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 if ($line =~ /^Files:$/)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
43 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44 $state = ST_FILES;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
46 elsif ($line =~ /^Depends-on:$/)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48 $state = ST_DEPENDENTS;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
49 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51 else
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 chomp $line;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 $line =~ s/^\s+//;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55 $line =~ s/\s+$//;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
56 if ( ! $line)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
57 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58 $state = ST_INIT;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
59 next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
60 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
61
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
62 if ($state eq ST_FILES)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 $file_set{$line} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66 elsif ($state eq ST_DEPENDENTS)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 $dep_set{$line} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 close FH;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74 # my @t = sort keys %file_set;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
75 # print "files: @t\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76 # my @u = sort keys %dep_set;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
77 # print "dependents: @u\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
78
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
79 return (\%file_set, \%dep_set);
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
80 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
81
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
82 # Extract the set of files required for this module, including
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
83 # those required via dependent modules.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
85 # Files:
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
86 # lib/stat.c
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
87 # m4/stat.m4
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
88 # lib/foo.h
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
89 #
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
90 # Depends-on:
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
91 # some-other-module
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
92
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
93 sub usage ($)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
94 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
95 my ($exit_code) = @_;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
96 my $STREAM = ($exit_code == 0 ? *STDOUT : *STDERR);
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
97 if ($exit_code != 0)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
98 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
99 print $STREAM "Try `$ME --help' for more information.\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
100 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
101 else
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
102 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
103 print $STREAM <<EOF;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
104 Usage: $ME [OPTIONS] FILE...
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
105
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
106 Read a module description file and derive the set of files
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107 included directly by any .c or .h file listed in the `Files:' section.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
108 Take the union of all such sets for any dependent modules.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
109 Then, compare that set with the set derived from the names
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
110 listed in the various Files: sections.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
111
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
112 OPTIONS:
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
114 --help display this help and exit
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
115 --version output version information and exit
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
116
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
117 EOF
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
118 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
119 exit $exit_code;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
120 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
121
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
122 sub find_included_lib_files ($)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
123 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
124 my ($file) = @_;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
125
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
126 # Special cases...
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
127 my %special_non_dup = ( 'fnmatch_loop.c' => 1, 'regex.c' => 1 );
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
128
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
129 my %inc;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
130 open FH, '<', $file
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
131 or die "$ME: can't open `$file' for reading: $!\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
132
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
133 while (defined (my $line = <FH>))
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
134 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
135 # Ignore test-driver code at end of file.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
136 $line =~ m!^\#if(def)? TEST_!
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
137 and last;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
138
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
139 $line =~ m!^\s*\#\s*include\s+"!
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
140 or next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
141 $line =~ s///;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
142 chomp $line;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
143 $line =~ s/".*//;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
144 exists $inc{$line} && ! exists $special_non_dup{$line}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
145 and warn "$ME: $file: duplicate inclusion of $line\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
146
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
147 # Some known exceptions.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
148 $file =~ /\bfull-write\.c$/ && $line eq 'full-read.h'
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
149 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
150 $file =~ /\bsafe-read.c$/ && $line eq 'safe-write.h'
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
151 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
152 $file =~ /\bhash\.c$/ && $line eq 'obstack.h'
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
153 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
154
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
155 $inc{$line} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
156 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
157 close FH;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
158
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
159 return \%inc;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
160 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
161
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
162 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
163 GetOptions
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
164 (
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
165 help => sub { usage 0 },
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
166 version => sub { print "$ME version $VERSION\n"; exit },
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
167 ) or usage 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
168
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
169 @ARGV < 1
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
170 and (warn "$ME: missing FILE argument\n"), usage 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
171
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
172 my %file;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
173 my %module_all_files;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
174 my %dep;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
175 my %seen_module;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
176
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
177 my @m = $ARGV[0];
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
178
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
179 while (@m)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
180 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
181 my $m = pop @m;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
182 # warn "M: $m\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
183 exists $seen_module{$m}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
184 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
185 $seen_module{$m} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
186 my ($file, $dep) = parse_module_file $m;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
187 push @m, keys %$dep;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
188 foreach my $f (keys %$file)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
189 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
190 $module_all_files{$f} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
191 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
192 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
193
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
194 my %exempt_header =
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
195 (
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
196 # Exempt headers like unlocked-io.h that are `#include'd
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
197 # but not necessarily used.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
198 'unlocked-io.h' => 1,
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
199
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
200 # Give gettext.h a free pass only when included from lib/error.c,
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
201 # since that we've made that exception solely to make the error
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
202 # module easier to use -- at RMS's request.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
203 'lib/error.c:gettext.h' => 1,
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
204 );
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
205
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
206 my @t = sort keys %module_all_files;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
207 # warn "ALL files: @t\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
208
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
209 # Derive from %module_all_files (by parsing the .c and .h files therein),
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
210 # the list of all #include'd files that reside in lib/.
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
211 foreach my $f (keys %module_all_files)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
212 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
213 $f =~ /\.[ch]$/
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
214 or next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
215 # FIXME: this is too naive
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
216 my $inc = find_included_lib_files "../$f";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
217 foreach my $i (sort keys %$inc)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
218 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
219 my $lib_file = "lib/$i";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
220 exists $exempt_header{"$f:$i"}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
221 || exists $exempt_header{$i}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
222 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
223 !exists $module_all_files{$lib_file} && -f "../lib/$i"
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
224 and warn "$f: $i is `#include'd, but not "
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
225 . "listed in module's Files: section\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
226 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
227 #my @t = sort keys %$inc;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
228 #print "** $f: @t\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
229 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
230
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
231 exit 0;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
232 }