Lines Matching refs:file
51 my ($file, $ln, $msg, $data) = @_;
55 print STDERR "Warning: file $file#$ln:\n\t$msg";
68 my $file = $File::Find::name;
70 my $mode = (stat($file))[2];
72 return if ($file =~ m,/README,);
74 my $name = $file;
77 my $fn = $file;
83 $data{$nametag}->{file} = $name;
84 $data{$nametag}->{filepath} = $file;
88 my $type = $file;
100 print STDERR "Opening $file\n" if ($debug > 1);
101 open IN, $file;
115 parse_error($file, $ln, "tag '$tag' is invalid", $_);
121 parse_error($file, $ln, "tag 'Where' is invalid. Should be 'What:' instead", "");
129 push @{$symbols{$content}->{file}}, " $file:" . ($ln - 1);
135 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
163 if (!defined($data{$what}->{file})) {
164 $data{$what}->{file} = $name;
165 $data{$what}->{filepath} = $file;
167 if ($name ne $data{$what}->{file}) {
168 $data{$what}->{file} .= " " . $name;
169 $data{$what}->{filepath} .= " " . $file;
179 parse_error($file, $ln, "'What:' should come first:", $_);
236 parse_error($file, $ln, "Unexpected content", $_);
240 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
253 next if ($data{$what}->{file} eq "File");
302 my @file = split / /, $data{$what}->{file};
307 $prefix, $file[0],
351 my $f = $file[$i];
493 my $file = $data{$what}->{filepath};
519 print "Defined on file(s):\t$file\n\n";
548 my @files = @{$symbols{$what}->{file}};