RE: [PATCH] checkpatch: Add some --strict coding style checks

[Allan, Bruce W]

> -----Original Message-----
> From: Joe Perches [mailto:joe@xxxxxxxxxxx]
> Sent: Tuesday, February 21, 2012 5:36 PM
> To: Allan, Bruce W
> Cc: David Miller; Andy Whitcroft; Andrew Morton;
> andrei.emeltchenko.news@xxxxxxxxx; linville@xxxxxxxxxxxxx; linux-
> wireless@xxxxxxxxxxxxxxx; netdev@xxxxxxxxxxxxxxx; linux-
> kernel@xxxxxxxxxxxxxxx
> Subject: RE: [PATCH] checkpatch: Add some --strict coding style checks
> 
> On Tue, 2012-02-21 at 22:09 +0000, Allan, Bruce W wrote:
> > This appears to falsely complain about parenthesis alignment in
> > conditional statements with multiple opening parentheses.
> 
> Hey Allan.
> 
> Can you try this one please?
> ---
>  scripts/checkpatch.pl |   58
> +++++++++++++++++++++++++++++++++++++++++++++++++
>  1 files changed, 58 insertions(+), 0 deletions(-)
> 
> diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl
> index a3b9782..e95419e 100755
> --- a/scripts/checkpatch.pl
> +++ b/scripts/checkpatch.pl
> @@ -1330,6 +1330,35 @@ sub check_absolute_file {
>  	}
>  }
> 
> +sub pos_last_openparen {
> +
> +	my ($args) = @_;
> +
> +	my $pos = 0;
> +	my $len = length($args);
> +
> +	my $opens = $args =~ tr/\(/\(/;
> +	my $closes = $args =~ tr/\)/\)/;
> +
> +	my $last_openparen = 0;
> +
> +	if (($opens == 0) || ($closes >= $opens)) {
> +		return 0;
> +	}
> +
> +	for ($pos = 0; $pos < $len; $pos++) {
> +		if (substr($args, $pos) =~ /^($FuncArg)/) {
> +			$pos += length($1);
> +		}
> +
> +		if (substr($args, $pos, 1) eq '(') {
> +			$last_openparen = $pos;
> +		}
> +	}
> +
> +	return $last_openparen + 1;
> +}
> +
>  sub process {
>  	my $filename = shift;
> 
> @@ -1783,6 +1812,35 @@ sub process {
>  			     "please, no space before tabs\n" . $herevet);
>  		}
> 
> +# check for && or || at the start of a line
> +		if ($rawline =~ /^\+\s*(&&|\|\|)/) {
> +			CHK("LOGICAL_CONTINUATIONS",
> +			    "Logical continuations should be on the previous
> line\n" . $hereprev);
> +		}
> +
> +# check multi-line statement indentation matches previous line
> +		if ($prevline =~ /^\+(\t*)(if
> \(|$Ident\().*(\&\&|\|\||,)\s*$/ && $rawline =~ /^\+([ \t]*)/) {
> +			$prevline =~ /^\+(\t*)(if
> \(|$Ident\()(.*)(\&\&|\|\||,)\s*$/;
> +			my $oldindent = $1;
> +			my $if_or_func = $2;
> +			my $args = $3;
> +
> +			my $pos = pos_last_openparen($args);
> +
> +			my $len = length($if_or_func) + $pos;
> +			$rawline =~ /^\+([ \t]*)/;
> +			my $newindent = $1;
> +
> +			my $goodindent = $oldindent .
> +					 "\t" x ($len / 8) .
> +					 " "  x ($len % 8);
> +
> +			if ($newindent ne $goodindent) {
> +				CHK("PARENTHESIS_ALIGNMENT",
> +				    "Alignment should match open
> parenthesis\n" . $hereprev);
> +			}
> +		}
> +
>  # check for spaces at the beginning of a line.
>  # Exceptions:
>  #  1) within comments
> 

It's better, but there are still instances of false hits AFAICT.

Bruce.

èº{.nÇ+‰·Ÿ®‰­†+%ŠËlzwm…ébëæìr¸›zX§»®w¥Š{ayºÊÚë,j­¢f£¢·hš‹àz¹®w¥¢¸¢·¦j:+v‰¨ŠwèjØm¶Ÿÿ¾«‘êçzZ+ƒùšŽŠÝj"ú!¶iO•æ¬z·švØ^¶m§ÿðÃnÆàþY&—