Lines Matching refs:l
94 enable_warn($name, $line, $file, $l);
192 my ($what, $line, $file, $l) = @_;
197 $line, length($what) + 11, $file, $l,
205 my ($cmd, $line, $file, $l) = @_;
226 $line, 0, $file, $l,
232 $ignore_line[$line]=$l;
236 enable_warn($what, $line, $file, $l);
240 $line, 0, $file, $l,
251 my $l;
260 my $l = $_;
261 my $ol = $l; # keep the unmodified line for error reporting
265 if($l =~ /\!checksrc\! (.*)/) {
267 checksrc($cmd, $line, $file, $l)
271 if(!$copyright && ($l =~ /copyright .* \d\d\d\d/i)) {
276 if(length($l) > $max_column) {
277 checkwarn("LONGLINE", $line, length($l), $file, $l,
281 if($l =~ /^(.*)\t/) {
283 $line, length($1), $file, $l, "Contains TAB character", 1);
286 if($l =~ /^(.*)[ \t]+\z/) {
288 $line, length($1), $file, $l, "Trailing whitespace");
300 if($l =~ s/\/\*.*\*\// /g) {
303 if($l =~ s/\/\*.*//) {
309 if($l =~ s/.*\*\///) {
316 $l="";
327 if($l =~ /^([^"\*]*)[^:"]\/\//) {
329 $line, length($1), $file, $l, "\/\/ comment");
333 if($l =~ /^(.*)(for|if|while) \(/) {
338 checkwarn("SPACEBEFOREPAREN", $line, length($1)+length($2), $file, $l,
344 if($l =~ /^(.*[a-z])\( /i) {
346 $line, length($1)+1, $file, $l,
352 if($l =~ /(.*[^\) ]) \)/) {
354 $line, length($1)+1, $file, $l,
359 if($l =~ /(.*[^ ]) ,/) {
361 $line, length($1)+1, $file, $l,
366 if($l =~ /^(.*)return\(/) {
371 checkwarn("RETURNNOSPACE", $line, length($1)+6, $file, $l,
377 if($l =~ /^(.*),[^ \n]/) {
403 checkwarn("COMMANOSPACE", $line, length($pref)+1, $file, $l,
409 if($l =~ /^(.*)\} *else/) {
411 $line, length($1), $file, $l, "else after closing brace on same line");
414 if($l =~ /^(.*)\)\{/) {
416 $line, length($1)+1, $file, $l, "missing space after close paren");
420 if($l =~ /^(.*[^ ].*) ;$/) {
426 if($l =~ /^(.*\W)
440 if($l =~ /^(.*\W)fopen\s*\([^,]*, *\"([^"]*)/) {
452 if((($prevl =~ /\)\z/) && ($prevl !~ /^ *#/)) && ($l =~ /^( +)\{/)) {
464 if(($l !~ /^ *#/) && ($l =~ /^( *)[^ ]/)) {
477 …if(($l =~ /(^.*(char|int|long|void|curl_slist|CURL|CURLM|CURLMsg|curl_httppost) *(\*+)) (\w+)/) &&…
483 …if(($l =~ /(^.*(char|int|long|void|curl_slist|CURL|CURLM|CURLMsg|curl_httppost|sockaddr_in|FILE)\*…
491 if($l =~ /^((\w).*){\z/) {
497 $line, length($l)-1, $file, $ol,