Mercurial > hg > octave-lojdl > gnulib-hg

annotate check-module @ 6157:915739deda90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
If more parameters are given, check each of them separately; add more exceptions, as noted by Jim Meyering. (check_module): New procedure. (%exempt_header): Now contains all exceptions.
author Jim Meyering <jim@meyering.net>
date Mon, 29 Aug 2005 11:57:17 +0000
parents 15be21aa30a4
children c7048f559336
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
6157
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
17 (my $VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
5769
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 $inc{$line} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
148 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
149 close FH;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
150
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
151 return \%inc;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
152 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
153
6157
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
154 my %exempt_header =
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
155 (
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
156 # Exempt headers like unlocked-io.h that are `#include'd
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
157 # but not necessarily used.
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
158 'unlocked-io.h' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
159
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
160 # Give gettext.h a free pass only when included from lib/error.c,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
161 # since we've made that exception solely to make the error
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
162 # module easier to use -- at RMS's request.
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
163 'lib/error.c:gettext.h' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
164
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
165 # The full-read module shares code with the full-write module.
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
166 'lib/full-write.c:full-read.h' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
167
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
168 # The safe-write module shares code with the safe-read module.
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
169 'lib/safe-read.c:safe-write.h' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
170
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
171 # The use of obstack.h in the hash module is conditional, off by default.
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
172 'lib/hash.c:obstack.h' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
173
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
174 # The fts-lgpl module doesn't actually use fts-cycle.c and unistd-safer.h.
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
175 'lib/fts.c:fts-cycle.c' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
176 'lib/fts.c:unistd-safer.h' => 1,
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
177 );
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
178
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
179 sub check_module ($)
5769
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
180 {
6157
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
181 my @m = @_;
5769
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
182
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
183 my %file;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
184 my %module_all_files;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
185 my %dep;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
186 my %seen_module;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
187
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
188 while (@m)
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 my $m = pop @m;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
191 # warn "M: $m\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
192 exists $seen_module{$m}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
193 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
194 $seen_module{$m} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
195 my ($file, $dep) = parse_module_file $m;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
196 push @m, keys %$dep;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
197 foreach my $f (keys %$file)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
198 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
199 $module_all_files{$f} = 1;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
200 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
201 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
202
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
203 my @t = sort keys %module_all_files;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
204 # warn "ALL files: @t\n";
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 # 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
207 # 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
208 foreach my $f (keys %module_all_files)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
209 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
210 $f =~ /\.[ch]$/
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
211 or next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
212 # FIXME: this is too naive
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
213 my $inc = find_included_lib_files "../$f";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
214 foreach my $i (sort keys %$inc)
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
215 {
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
216 my $lib_file = "lib/$i";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
217 exists $exempt_header{"$f:$i"}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
218 || exists $exempt_header{$i}
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
219 and next;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
220 !exists $module_all_files{$lib_file} && -f "../lib/$i"
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
221 and warn "$f: $i is `#include'd, but not "
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
222 . "listed in module's Files: section\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
223 }
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
224 #my @t = sort keys %$inc;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
225 #print "** $f: @t\n";
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
226 }
6157
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
227 }
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
228
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
229 {
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
230 GetOptions
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
231 (
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
232 help => sub { usage 0 },
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
233 version => sub { print "$ME version $VERSION\n"; exit },
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
234 ) or usage 1;
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
235
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
236 @ARGV < 1
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
237 and (warn "$ME: missing FILE argument\n"), usage 1;
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
238
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
239 foreach my $module (@ARGV)
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
240 {
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
241 check_module $module;
915739deda90 If more parameters are given, check each of them
Jim Meyering <jim@meyering.net>
parents: 5944
diff changeset
242 }
5769
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
243
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
244 exit 0;
63c824dd2830 rename from modules/check-include-files
Jim Meyering <jim@meyering.net>
parents:
diff changeset
245 }