Lines Matching defs:files
114 # Collect all POD files, both internal and public, and regardless of location
118 my %files = ();
119 # We collect files names on the fly, on known tag basis
124 # files OPTIONS
128 # files(TAGS => 'manual');
129 # files(TAGS => [ 'manual', 'man1' ]);
131 # This function returns an array of files corresponding to a set of tags
134 # selectors. Inclusive selectors are used to add one more set of files to
135 # the returned array, while exclusive selectors limit the set of files added
139 # returned array of files.
141 # returned array of files.
143 # array of files. This is really a shorthand for
146 # returned array of files.
148 # returned array of files. Since we currently only
160 # All returned manual files come from configdata.pm.
161 # All returned header files come from looking inside
164 sub files {
186 cluck "DEBUG[files]: This is how we got here!" if $debug;
187 print STDERR "DEBUG[files]: tags: $tags_as_key\n" if $debug;
194 print STDERR "DEBUG[files]: collecting public manuals\n"
198 # contains lists of man files, and in turn, $unified_info{depends}
200 # files depend on. We use that information to find the POD files,
205 $files{$_} = { $mansect => 1, public_manual => 1 };
212 print STDERR "DEBUG[files]: collecting internal manuals\n"
220 $files{$_} = { $mansect => 1, internal_manual => 1 };
227 print STDERR "DEBUG[files]: collecting public headers\n"
232 $files{$_} = { public_header => 1 };
252 grep { $files{$_}->{$type} && $files{$_}->{$section} }
253 keys %files );
259 grep { $files{$_}->{public_header} }
260 keys %files );
264 print STDERR "DEBUG[files]: result:\n";
265 print STDERR "DEBUG[files]: $_\n" foreach @result;
313 files(TAGS => [ 'manual', $section ]) )
316 err($id, "The following exist as other .pod files:",
736 files(TAGS => [ 'manual', 'man1' ]) );
829 # Map of names in each POD file or from "missing" files; possible values are:
830 # If found in a POD files, "name(s)" => filename
916 # and do simple check for #define in our header files.
921 foreach my $f ( files(TAGS => 'public_header') ) {
1030 # Look for L<> ("link") references that point to files that do not exist.
1168 files(TAGS => [ 'manual', 'man1' ]) );
1198 my @files_to_read = ( $opt_n && @ARGV ) ? @ARGV : files(TAGS => 'manual');
1218 foreach ( files(TAGS => [ 'public_manual', 'man1' ]) ) {