checksrc: verify spaces around equals signs

... as the code style mandates.
This commit is contained in:
Daniel Stenberg 2017-09-09 11:57:17 +02:00
parent 02eb6184ad
commit e155f38d1e
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 17 additions and 1 deletions

View File

@ -58,7 +58,9 @@ my %warnings = (
'OPENCOMMENT' => 'file ended with a /* comment still "open"', 'OPENCOMMENT' => 'file ended with a /* comment still "open"',
'ASTERISKSPACE' => 'pointer declared with space after asterisk', 'ASTERISKSPACE' => 'pointer declared with space after asterisk',
'ASTERISKNOSPACE' => 'pointer declared without space before asterisk', 'ASTERISKNOSPACE' => 'pointer declared without space before asterisk',
'ASSIGNWITHINCONDITION' => 'assignment within conditional expression' 'ASSIGNWITHINCONDITION' => 'assignment within conditional expression',
'EQUALSNOSPACE' => 'equals sign without following space',
'NOSPACEEQUALS' => 'equals sign without preceeding space',
); );
sub readwhitelist { sub readwhitelist {
@ -526,6 +528,20 @@ sub scanfile {
"wrongly placed open brace"); "wrongly placed open brace");
} }
} }
# check for equals sign without spaces next to it
if($nostr =~ /(.*)\=[a-z0-9]/i) {
checkwarn("EQUALSNOSPACE",
$line, length($1)+1, $file, $ol,
"no space after equals sign");
}
# check for equals sign without spaces before it
elsif($nostr =~ /(.*)[a-z0-9]\=/i) {
checkwarn("NOSPACEEQUALS",
$line, length($1)+1, $file, $ol,
"no space before equals sign");
}
$line++; $line++;
$prevl = $ol; $prevl = $ol;
} }