Lines Matching refs:file

30 my $file;
74     my ($name, $num, $col, $file, $line, $msg, $error) = @_;
94             enable_warn($name, $line, $file, $l);
117     print "$file:$num:$col: $w: $msg ($name)\n";
126 $file = shift @ARGV;
130     if($file =~ /-D(.*)/) {
132         $file = shift @ARGV;
135     elsif($file =~ /-W(.*)/) {
137         $file = shift @ARGV;
140     elsif($file =~ /^(-h|--help)/) {
141         undef $file;
148 if(!$file) {
164     if("$wlist" !~ / $file /) {
165         my $fullname = $file;
166         $fullname = "$dir/$file" if ($fullname !~ '^\.?\.?/');
169     $file = shift @ARGV;
171 } while($file);
180     my ($file) = @_;
184                       length($_)+11, $file,
192     my ($what, $line, $file, $l) = @_;
197                   $line, length($what) + 11, $file, $l,
205     my ($cmd, $line, $file, $l) = @_;
226                           $line, 0, $file, $l,
236             enable_warn($what, $line, $file, $l);
240                       $line, 0, $file, $l,
247     my ($file) = @_;
252     open(R, "<$file") || die "failed to open $file";
267             checksrc($cmd, $line, $file, $l)
277             checkwarn("LONGLINE", $line, length($l), $file, $l,
283                       $line, length($1), $file, $l, "Contains TAB character", 1);
288                       $line, length($1), $file, $l, "Trailing whitespace");
329                       $line, length($1), $file, $l, "\/\/ comment");
338                 checkwarn("SPACEBEFOREPAREN", $line, length($1)+length($2), $file, $l,
346                       $line, length($1)+1, $file, $l,
354                       $line, length($1)+1, $file, $l,
361                       $line, length($1)+1, $file, $l,
371                 checkwarn("RETURNNOSPACE", $line, length($1)+6, $file, $l,
403                 checkwarn("COMMANOSPACE", $line, length($pref)+1, $file, $l,
411                       $line, length($1), $file, $l, "else after closing brace on same line");
416                       $line, length($1)+1, $file, $l, "missing space after close paren");
422                       $line, length($1), $file, $ol, "space before last semicolon");
435                       $line, length($1), $file, $ol,
444                           $line, length($1), $file, $ol,
454                       $line, length($1), $file, $ol, "badly placed open brace");
469                     checkwarn("INDENTATION", $line, length($1), $file, $ol,
479                       $line, length($1), $file, $ol,
485                       $line, length($1)-1, $file, $ol,
497                           $line, length($l)-1, $file, $ol,
506         checkwarn("COPYRIGHT", 1, 0, $file, "", "Missing copyright statement", 1);
509         checkwarn("OPENCOMMENT", 1, 0, $file, "", "Missing closing comment", 1);
512     checksrc_endoffile($file);