Lines Matching refs:file
35 my $file;
139 my ($name, $num, $col, $file, $line, $msg, $error) = @_;
159 enable_warn($name, $num, $file, $line);
182 print "$file:$num:$col: $w: $msg ($name)\n";
191 $file = shift @ARGV;
193 while(defined $file) {
195 if($file =~ /-D(.*)/) {
197 $file = shift @ARGV;
200 elsif($file =~ /-W(.*)/) {
202 $file = shift @ARGV;
205 elsif($file =~ /-A(.+)/) {
207 $file = shift @ARGV;
210 elsif($file =~ /-i([1-9])/) {
212 $file = shift @ARGV;
215 elsif($file =~ /-m([0-9]+)/) {
217 $file = shift @ARGV;
220 elsif($file =~ /^(-h|--help)/) {
221 undef $file;
228 if(!$file) {
248 if("$wlist" !~ / $file /) {
249 my $fullname = $file;
250 $fullname = "$dir/$file" if ($fullname !~ '^\.?\.?/');
253 $file = shift @ARGV;
255 } while($file);
275 my ($file) = @_;
279 length($_)+11, $file,
287 my ($what, $line, $file, $l) = @_;
292 $line, length($what) + 11, $file, $l,
300 my ($cmd, $line, $file, $l) = @_;
325 $line, 0, $file, $l,
330 $line, 0, $file, $l,
340 enable_warn($what, $line, $file, $l);
344 $line, 0, $file, $l,
357 my ($file) = @_;
362 open(R, "<$file") || die "failed to open $file";
378 checksrc($cmd, $line, $file, $l)
395 checkwarn("LONGLINE", $line, length($l), $file, $l,
401 $line, length($1), $file, $l, "Contains TAB character", 1);
406 $line, length($1), $file, $l, "Trailing whitespace");
447 $line, length($1), $file, $l, "\/\/ comment");
469 checkwarn("SPACEBEFOREPAREN", $line, length($1)+length($2), $file, $l,
476 … checkwarn("DOBRACE", $line, length($1) + 2, $file, $l, "one space after do before brace");
480 … checkwarn("BRACEWHILE", $line, length($1) + 2, $file, $l, "one space between brace and while");
488 $line, $pos+1, $file, $l,
507 $line, length($l)-length($postparen), $file, $l,
514 $line, length($1)+1, $file, $l,
522 $line, length($1)+1, $file, $l,
529 $line, length($1)+1, $file, $l,
539 checkwarn("RETURNNOSPACE", $line, length($1)+6, $file, $l,
550 checkwarn("SIZEOFNOPAREN", $line, length($1)+6, $file, $l,
582 checkwarn("COMMANOSPACE", $line, length($pref)+1, $file, $l,
590 $line, length($1), $file, $l, "else after closing brace on same line");
595 $line, length($1)+1, $file, $l, "missing space after close paren");
601 $line, length($1), $file, $ol, "space before last semicolon");
615 $line, length($1), $file, $ol,
622 $line, length($1), $file, $ol,
631 $line, length($1), $file, $ol,
641 $line, length($1), $file, $ol, "badly placed open brace");
656 checkwarn("INDENTATION", $line, length($1), $file, $ol,
666 $line, length($1), $file, $ol,
672 $line, length($1)-1, $file, $ol,
684 $line, length($l)-1, $file, $ol,
692 $line, length($1)+1, $file, $ol,
698 $line, length($1)+1, $file, $ol,
705 $line, length($1)+1, $file, $ol,
711 $line, length($1)+1, $file, $ol,
718 $line, length($1)+1, $file, $ol,
725 $line, length($1)+1, $file, $ol,
731 $line, length($1)+1, $file, $ol,
741 $line, length($1)+1, $file, $ol,
752 checkwarn("COPYRIGHT", 1, 0, $file, "", "Missing copyright statement", 1);
778 if(`git status -s -- $file` =~ /^ [MARCU]/) {
783 my $grl = `git rev-list --max-count=1 --min-parents=1 --timestamp HEAD -- $file`;
793 $file, $copyright[0]{code},
800 checkwarn("OPENCOMMENT", 1, 0, $file, "", "Missing closing comment", 1);
803 checksrc_endoffile($file);