Lines Matching refs:l
325 my ($what, $line, $file, $l) = @_;
330 $line, length($what) + 11, $file, $l,
338 my ($cmd, $line, $file, $l) = @_;
363 $line, 0, $file, $l,
368 $line, 0, $file, $l,
374 $ignore_line[$line]=$l;
378 enable_warn($what, $line, $file, $l);
382 $line, 0, $file, $l,
400 my $l = "";
413 my $l = $_;
414 my $ol = $l; # keep the unmodified line for error reporting
418 if($l =~ /\!checksrc\! (.*)/) {
420 checksrc($cmd, $line, $file, $l)
423 if($l =~ /^#line (\d+) \"([^\"]*)\"/) {
431 if($l =~ /\* +copyright .* (\d\d\d\d|)/i) {
433 while($l =~ /([\d]{4})/g) {
437 col => index($l, $1),
438 code => $l
447 col => index($l, $1),
448 code => $l
454 if(length($l) > $max_column) {
455 checkwarn("LONGLINE", $line, length($l), $file, $l,
459 if($l =~ /^(.*)\t/) {
461 $line, length($1), $file, $l, "Contains TAB character", 1);
464 if($l =~ /^(.*)[ \t]+\z/) {
466 $line, length($1), $file, $l, "Trailing whitespace");
470 if($l =~ /^(.*)\/\*\w/) {
472 $line, length($1) + 2, $file, $l,
476 if($l =~ /^(.*)\w\*\//) {
478 $line, length($1) + 1, $file, $l,
490 if($l =~ s/\/\*.*\*\// /g) {
493 if($l =~ s/\/\*.*//) {
499 if($l =~ s/.*\*\///) {
506 $l="";
525 if($l =~ /^(([^"\*]*)[^:"]|)\/\//) {
527 $line, length($1), $file, $l, "\/\/ comment");
530 if($l =~ /^(\#\s*include\s+)([\">].*[>}"])/) {
534 $line, length($1), $file, $l, "duplicated include");
536 $includes{$path} = $l;
540 if($l =~ /^[ \t]*\#/) {
546 my $nostr = nostrings($l);
567 checkwarn("SPACEBEFOREPAREN", $line, length($leading)+length($word), $file, $l,
576 $file, $l, "we prefer !variable instead of \"== NULL\" comparisons");
584 $file, $l, "we prefer if(rc) instead of \"rc != 0\" comparisons");
589 … checkwarn("DOBRACE", $line, length($1) + 2, $file, $l, "one space after do before brace");
593 … checkwarn("BRACEWHILE", $line, length($1) + 2, $file, $l, "one space between brace and while");
601 $line, $pos+1, $file, $l,
613 if($l =~ / *\#/) {
619 $line, length($l)-length($postparen), $file, $l,
624 if($l =~ /^(.*[a-z])\( /i) {
626 $line, length($1)+1, $file, $l,
633 $line, length($1)+1, $file, $l,
640 $line, length($1), $file, $l,
652 $line, length($m)+1, $file, $l,
664 $line, length($m)+1, $file, $l,
676 $line, length($m)+1, $file, $l,
683 $line, length($1)+1, $file, $l,
690 $line, length($1)+1, $file, $l,
696 $line, length($1)+1, $file, $l,
702 if($l =~ /(.*[^\) ]) \)/) {
704 $line, length($1)+1, $file, $l,
709 if($l =~ /(.*[^ ]) ,/) {
711 $line, length($1)+1, $file, $l,
716 if($l =~ /^(.*)return\(/) {
721 checkwarn("RETURNNOSPACE", $line, length($1)+6, $file, $l,
727 if(($l =~ /^(.*)sizeof *([ (])/) && ($2 ne "(")) {
732 checkwarn("SIZEOFNOPAREN", $line, length($1)+6, $file, $l,
738 if($l =~ /^(.*),[^ \n]/) {
764 checkwarn("COMMANOSPACE", $line, length($pref)+1, $file, $l,
770 if($l =~ /^(.*)\} *else/) {
772 $line, length($1), $file, $l, "else after closing brace on same line");
775 if($l =~ /^(.*)\)\{/) {
777 $line, length($1)+1, $file, $l, "missing space after close paren");
780 if(($l =~ /^\{/) && ($prevl =~ /^[ \t]*\z/)) {
782 $line, 0, $file, $l, "empty line before open brace");
786 if($l =~ /^(.*[^ ].*) ;$/) {
792 if($l =~ /^( *(case .+|default)) :/) {
797 if($prevl !~ /\?\z/ && $l =~ /^ +([A-Za-z_][A-Za-z0-9_]*):$/ && $1 ne 'default') {
803 if($l =~ /^(.*\W)
820 if($l =~ /^(.*\W)(strerror)\s*\(/x) {
832 if($l =~ /^(.*\W)(strncpy)\s*\(/x) {
844 if($l =~ /^([^\"-]*\W)(stderr)[^\"_]/x) {
854 if($l =~ /^(.*\W)(v?snprintf)\s*\(/x) {
861 if($l =~ /^(.*\W)fopen\s*\([^,]*, *\"([^"]*)/) {
872 if(($prevl =~ /\)\z/) && ($l =~ /^( +)\{/) && !$prevp) {
883 if($l =~ /^( *)[^ ]/) {
909 if($l =~ /^( *)[^ ]/) {
922 …if(($l =~ /(^.*(char|int|long|void|CURL|CURLM|CURLMsg|[cC]url_[A-Za-z_]+|struct [a-zA-Z_]+) *(\*+)…
928 …if(($l =~ /(^.*(char|int|long|void|curl_slist|CURL|CURLM|CURLMsg|curl_httppost|sockaddr_in|FILE)\*…
936 if($l =~ /^((\w).*)\{\z/) {
942 $line, length($l)-1, $file, $ol,
996 if(($l eq $nostr) &&
1005 if($l =~ /^(^|.*\W)
