Lines Matching refs:l
92 enable_warn($name, $line, $file, $l);
190 my ($what, $line, $file, $l) = @_;
195 $line, length($what) + 11, $file, $l,
203 my ($cmd, $line, $file, $l) = @_;
224 $line, 0, $file, $l,
230 $ignore_line[$line]=$l;
234 enable_warn($what, $line, $file, $l);
238 $line, 0, $file, $l,
249 my $l;
258 my $l = $_;
259 my $ol = $l; # keep the unmodified line for error reporting
263 if($l =~ /\!checksrc\! (.*)/) {
265 checksrc($cmd, $line, $file, $l)
269 if(!$copyright && ($l =~ /copyright .* \d\d\d\d/i)) {
274 if(length($l) > $max_column) {
275 checkwarn("LONGLINE", $line, length($l), $file, $l,
279 if($l =~ /^(.*)\t/) {
281 $line, length($1), $file, $l, "Contains TAB character", 1);
284 if($l =~ /^(.*)[ \t]+\z/) {
286 $line, length($1), $file, $l, "Trailing whitespace");
298 if($l =~ s/\/\*.*\*\// /g) {
301 if($l =~ s/\/\*.*//) {
307 if($l =~ s/.*\*\///) {
314 $l="";
325 if($l =~ /^([^"\*]*)[^:"]\/\//) {
327 $line, length($1), $file, $l, "\/\/ comment");
331 if($l =~ /^(.*)(for|if|while) \(/) {
336 checkwarn("SPACEBEFOREPAREN", $line, length($1)+length($2), $file, $l,
342 if($l =~ /^(.*[a-z])\( /i) {
344 $line, length($1)+1, $file, $l,
350 if($l =~ /(.*[^\) ]) \)/) {
352 $line, length($1)+1, $file, $l,
357 if($l =~ /(.*[^ ]) ,/) {
359 $line, length($1)+1, $file, $l,
364 if($l =~ /^(.*)return\(/) {
369 checkwarn("RETURNNOSPACE", $line, length($1)+6, $file, $l,
375 if($l =~ /^(.*),[^ \n]/) {
401 checkwarn("COMMANOSPACE", $line, length($pref)+1, $file, $l,
407 if($l =~ /^(.*)\} *else/) {
409 $line, length($1), $file, $l, "else after closing brace on same line");
412 if($l =~ /^(.*)\)\{/) {
414 $line, length($1)+1, $file, $l, "missing space after close paren");
418 if($l =~ /^(.*[^ ].*) ;$/) {
424 if($l =~ /^(.*\W)
437 if($l =~ /^(.*\W)fopen\s*\([^,]*, *\"([^"]*)/) {
449 if((($prevl =~ /\)\z/) && ($prevl !~ /^ *#/)) && ($l =~ /^( +)\{/)) {
461 if(($l !~ /^ *#/) && ($l =~ /^( *)[^ ]/)) {