scripts/checkpatch.pl

   1 #!/usr/bin/perl -w
   2 # (c) 2001, Dave Jones. (the file handling bit)
   3 # (c) 2005, Joel Schopp <jschopp@austin.ibm.com> (the ugly bit)
   4 # (c) 2007,2008, Andy Whitcroft <apw@uk.ibm.com> (new conditions, test suite)
   5 # (c) 2008-2010 Andy Whitcroft <apw@canonical.com>
   6 # Licensed under the terms of the GNU GPL License version 2
   7
   8 use strict;
   9 use POSIX;
  10 use File::Basename;
  11 use Cwd 'abs_path';
  12
  13 my $P = $0;
  14 my $D = dirname(abs_path($P));
  15
  16 my $V = '0.32';
  17
  18 use Getopt::Long qw(:config no_auto_abbrev);
  19
  20 my $quiet = 0;
  21 my $tree = 1;
  22 my $chk_signoff = 1;
  23 my $chk_patch = 1;
  24 my $tst_only;
  25 my $emacs = 0;
  26 my $terse = 0;
  27 my $file = 0;
  28 my $check = 0;
  29 my $check_orig = 0;
  30 my $summary = 1;
  31 my $mailback = 0;
  32 my $summary_file = 0;
  33 my $show_types = 0;
  34 my $fix = 0;
  35 my $fix_inplace = 0;
  36 my $root;
  37 my %debug;
  38 my %camelcase = ();
  39 my %use_type = ();
  40 my @use = ();
  41 my %ignore_type = ();
  42 my @ignore = ();
  43 my $help = 0;
  44 my $configuration_file = ".checkpatch.conf";
  45 my $max_line_length = 80;
  46 my $ignore_perl_version = 0;
  47 my $minimum_perl_version = 5.10.0;
  48 my $min_conf_desc_length = 4;
  49 my $spelling_file = "$D/spelling.txt";
  50
  51 sub help {
  52         my ($exitcode) = @_;
  53
  54         print << "EOM";
  55 Usage: $P [OPTION]... [FILE]...
  56 Version: $V
  57
  58 Options:
  59   -q, --quiet                quiet
  60   --no-tree                  run without a kernel tree
  61   --no-signoff               do not check for 'Signed-off-by' line
  62   --patch                    treat FILE as patchfile (default)
  63   --emacs                    emacs compile window format
  64   --terse                    one line per report
  65   -f, --file                 treat FILE as regular source file
  66   --subjective, --strict     enable more subjective tests
  67   --types TYPE(,TYPE2...)    show only these comma separated message types
  68   --ignore TYPE(,TYPE2...)   ignore various comma separated message types
  69   --max-line-length=n        set the maximum line length, if exceeded, warn
  70   --min-conf-desc-length=n   set the min description length, if shorter, warn
  71   --show-types               show the message "types" in the output
  72   --root=PATH                PATH to the kernel tree root
  73   --no-summary               suppress the per-file summary
  74   --mailback                 only produce a report in case of warnings/errors
  75   --summary-file             include the filename in summary
  76   --debug KEY=[0|1]          turn on/off debugging of KEY, where KEY is one of
  77                              'values', 'possible', 'type', and 'attr' (default
  78                              is all off)
  79   --test-only=WORD           report only warnings/errors containing WORD
  80                              literally
  81   --fix                      EXPERIMENTAL - may create horrible results
  82                              If correctable single-line errors exist, create
  83                              "<inputfile>.EXPERIMENTAL-checkpatch-fixes"
  84                              with potential errors corrected to the preferred
  85                              checkpatch style
  86   --fix-inplace              EXPERIMENTAL - may create horrible results
  87                              Is the same as --fix, but overwrites the input
  88                              file.  It's your fault if there's no backup or git
  89   --ignore-perl-version      override checking of perl version.  expect
  90                              runtime errors.
  91   -h, --help, --version      display this help and exit
  92
  93 When FILE is - read standard input.
  94 EOM
  95
  96         exit($exitcode);
  97 }
  98
  99 my $conf = which_conf($configuration_file);
 100 if (-f $conf) {
 101         my @conf_args;
 102         open(my $conffile, '<', "$conf")
 103             or warn "$P: Can't find a readable $configuration_file file $!\n";
 104
 105         while (<$conffile>) {
 106                 my $line = $_;
 107
 108                 $line =~ s/\s*\n?$//g;
 109                 $line =~ s/^\s*//g;
 110                 $line =~ s/\s+/ /g;
 111
 112                 next if ($line =~ m/^\s*#/);
 113                 next if ($line =~ m/^\s*$/);
 114
 115                 my @words = split(" ", $line);
 116                 foreach my $word (@words) {
 117                         last if ($word =~ m/^#/);
 118                         push (@conf_args, $word);
 119                 }
 120         }
 121         close($conffile);
 122         unshift(@ARGV, @conf_args) if @conf_args;
 123 }
 124
 125 GetOptions(
 126         'q|quiet+'      => \$quiet,
 127         'tree!'         => \$tree,
 128         'signoff!'      => \$chk_signoff,
 129         'patch!'        => \$chk_patch,
 130         'emacs!'        => \$emacs,
 131         'terse!'        => \$terse,
 132         'f|file!'       => \$file,
 133         'subjective!'   => \$check,
 134         'strict!'       => \$check,
 135         'ignore=s'      => \@ignore,
 136         'types=s'       => \@use,
 137         'show-types!'   => \$show_types,
 138         'max-line-length=i' => \$max_line_length,
 139         'min-conf-desc-length=i' => \$min_conf_desc_length,
 140         'root=s'        => \$root,
 141         'summary!'      => \$summary,
 142         'mailback!'     => \$mailback,
 143         'summary-file!' => \$summary_file,
 144         'fix!'          => \$fix,
 145         'fix-inplace!'  => \$fix_inplace,
 146         'ignore-perl-version!' => \$ignore_perl_version,
 147         'debug=s'       => \%debug,
 148         'test-only=s'   => \$tst_only,
 149         'h|help'        => \$help,
 150         'version'       => \$help
 151 ) or help(1);
 152
 153 help(0) if ($help);
 154
 155 $fix = 1 if ($fix_inplace);
 156 $check_orig = $check;
 157
 158 my $exit = 0;
 159
 160 if ($^V && $^V lt $minimum_perl_version) {
 161         printf "$P: requires at least perl version %vd\n", $minimum_perl_version;
 162         if (!$ignore_perl_version) {
 163                 exit(1);
 164         }
 165 }
 166
 167 if ($#ARGV < 0) {
 168         print "$P: no input files\n";
 169         exit(1);
 170 }
 171
 172 sub hash_save_array_words {
 173         my ($hashRef, $arrayRef) = @_;
 174
 175         my @array = split(/,/, join(',', @$arrayRef));
 176         foreach my $word (@array) {
 177                 $word =~ s/\s*\n?$//g;
 178                 $word =~ s/^\s*//g;
 179                 $word =~ s/\s+/ /g;
 180                 $word =~ tr/[a-z]/[A-Z]/;
 181
 182                 next if ($word =~ m/^\s*#/);
 183                 next if ($word =~ m/^\s*$/);
 184
 185                 $hashRef->{$word}++;
 186         }
 187 }
 188
 189 sub hash_show_words {
 190         my ($hashRef, $prefix) = @_;
 191
 192         if ($quiet == 0 && keys %$hashRef) {
 193                 print "NOTE: $prefix message types:";
 194                 foreach my $word (sort keys %$hashRef) {
 195                         print " $word";
 196                 }
 197                 print "\n\n";
 198         }
 199 }
 200
 201 hash_save_array_words(\%ignore_type, \@ignore);
 202 hash_save_array_words(\%use_type, \@use);
 203
 204 my $dbg_values = 0;
 205 my $dbg_possible = 0;
 206 my $dbg_type = 0;
 207 my $dbg_attr = 0;
 208 for my $key (keys %debug) {
 209         ## no critic
 210         eval "\${dbg_$key} = '$debug{$key}';";
 211         die "$@" if ($@);
 212 }
 213
 214 my $rpt_cleaners = 0;
 215
 216 if ($terse) {
 217         $emacs = 1;
 218         $quiet++;
 219 }
 220
 221 if ($tree) {
 222         if (defined $root) {
 223                 if (!top_of_kernel_tree($root)) {
 224                         die "$P: $root: --root does not point at a valid tree\n";
 225                 }
 226         } else {
 227                 if (top_of_kernel_tree('.')) {
 228                         $root = '.';
 229                 } elsif ($0 =~ m@(.*)/scripts/[^/]*$@ &&
 230                                                 top_of_kernel_tree($1)) {
 231                         $root = $1;
 232                 }
 233         }
 234
 235         if (!defined $root) {
 236                 print "Must be run from the top-level dir. of a kernel tree\n";
 237                 exit(2);
 238         }
 239 }
 240
 241 my $emitted_corrupt = 0;
 242
 243 our $Ident      = qr{
 244                         [A-Za-z_][A-Za-z\d_]*
 245                         (?:\s*\#\#\s*[A-Za-z_][A-Za-z\d_]*)*
 246                 }x;
 247 our $Storage    = qr{extern|static|asmlinkage};
 248 our $Sparse     = qr{
 249                         __user|
 250                         __kernel|
 251                         __force|
 252                         __iomem|
 253                         __must_check|
 254                         __init_refok|
 255                         __kprobes|
 256                         __ref|
 257                         __rcu
 258                 }x;
 259 our $InitAttributePrefix = qr{__(?:mem|cpu|dev|net_|)};
 260 our $InitAttributeData = qr{$InitAttributePrefix(?:initdata\b)};
 261 our $InitAttributeConst = qr{$InitAttributePrefix(?:initconst\b)};
 262 our $InitAttributeInit = qr{$InitAttributePrefix(?:init\b)};
 263 our $InitAttribute = qr{$InitAttributeData|$InitAttributeConst|$InitAttributeInit};
 264
 265 # Notes to $Attribute:
 266 # We need \b after 'init' otherwise 'initconst' will cause a false positive in a check
 267 our $Attribute  = qr{
 268                         const|
 269                         __percpu|
 270                         __nocast|
 271                         __safe|
 272                         __bitwise__|
 273                         __packed__|
 274                         __packed2__|
 275                         __naked|
 276                         __maybe_unused|
 277                         __always_unused|
 278                         __noreturn|
 279                         __used|
 280                         __cold|
 281                         __pure|
 282                         __noclone|
 283                         __deprecated|
 284                         __read_mostly|
 285                         __kprobes|
 286                         $InitAttribute|
 287                         ____cacheline_aligned|
 288                         ____cacheline_aligned_in_smp|
 289                         ____cacheline_internodealigned_in_smp|
 290                         __weak
 291                   }x;
 292 our $Modifier;
 293 our $Inline     = qr{inline|__always_inline|noinline|__inline|__inline__};
 294 our $Member     = qr{->$Ident|\.$Ident|\[[^]]*\]};
 295 our $Lval       = qr{$Ident(?:$Member)*};
 296
 297 our $Int_type   = qr{(?i)llu|ull|ll|lu|ul|l|u};
 298 our $Binary     = qr{(?i)0b[01]+$Int_type?};
 299 our $Hex        = qr{(?i)0x[0-9a-f]+$Int_type?};
 300 our $Int        = qr{[0-9]+$Int_type?};
 301 our $Octal      = qr{0[0-7]+$Int_type?};
 302 our $String     = qr{"[X\t]*"};
 303 our $Float_hex  = qr{(?i)0x[0-9a-f]+p-?[0-9]+[fl]?};
 304 our $Float_dec  = qr{(?i)(?:[0-9]+\.[0-9]*|[0-9]*\.[0-9]+)(?:e-?[0-9]+)?[fl]?};
 305 our $Float_int  = qr{(?i)[0-9]+e-?[0-9]+[fl]?};
 306 our $Float      = qr{$Float_hex|$Float_dec|$Float_int};
 307 our $Constant   = qr{$Float|$Binary|$Octal|$Hex|$Int};
 308 our $Assignment = qr{\*\=|/=|%=|\+=|-=|<<=|>>=|&=|\^=|\|=|=};
 309 our $Compare    = qr{<=|>=|==|!=|<|(?<!-)>};
 310 our $Arithmetic = qr{\+|-|\*|\/|%};
 311 our $Operators  = qr{
 312                         <=|>=|==|!=|
 313                         =>|->|<<|>>|<|>|!|~|
 314                         &&|\|\||,|\^|\+\+|--|&|\||$Arithmetic
 315                   }x;
 316
 317 our $c90_Keywords = qr{do|for|while|if|else|return|goto|continue|switch|default|case|break}x;
 318
 319 our $NonptrType;
 320 our $NonptrTypeMisordered;
 321 our $NonptrTypeWithAttr;
 322 our $Type;
 323 our $TypeMisordered;
 324 our $Declare;
 325 our $DeclareMisordered;
 326
 327 our $NON_ASCII_UTF8     = qr{
 328         [\xC2-\xDF][\x80-\xBF]               # non-overlong 2-byte
 329         |  \xE0[\xA0-\xBF][\x80-\xBF]        # excluding overlongs
 330         | [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}  # straight 3-byte
 331         |  \xED[\x80-\x9F][\x80-\xBF]        # excluding surrogates
 332         |  \xF0[\x90-\xBF][\x80-\xBF]{2}     # planes 1-3
 333         | [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
 334         |  \xF4[\x80-\x8F][\x80-\xBF]{2}     # plane 16
 335 }x;
 336
 337 our $UTF8       = qr{
 338         [\x09\x0A\x0D\x20-\x7E]              # ASCII
 339         | $NON_ASCII_UTF8
 340 }x;
 341
 342 our $typeTypedefs = qr{(?x:
 343         (?:__)?(?:u|s|be|le)(?:8|16|32|64)|
 344         atomic_t
 345 )};
 346
 347 our $logFunctions = qr{(?x:
 348         printk(?:_ratelimited|_once|)|
 349         (?:[a-z0-9]+_){1,2}(?:printk|emerg|alert|crit|err|warning|warn|notice|info|debug|dbg|vdbg|devel|cont|WARN)(?:_ratelimited|_once|)|
 350         WARN(?:_RATELIMIT|_ONCE|)|
 351         panic|
 352         MODULE_[A-Z_]+|
 353         seq_vprintf|seq_printf|seq_puts
 354 )};
 355
 356 our $signature_tags = qr{(?xi:
 357         Signed-off-by:|
 358         Acked-by:|
 359         Tested-by:|
 360         Reviewed-by:|
 361         Reported-by:|
 362         Suggested-by:|
 363         To:|
 364         Cc:
 365 )};
 366
 367 our @typeListMisordered = (
 368         qr{char\s+(?:un)?signed},
 369         qr{int\s+(?:(?:un)?signed\s+)?short\s},
 370         qr{int\s+short(?:\s+(?:un)?signed)},
 371         qr{short\s+int(?:\s+(?:un)?signed)},
 372         qr{(?:un)?signed\s+int\s+short},
 373         qr{short\s+(?:un)?signed},
 374         qr{long\s+int\s+(?:un)?signed},
 375         qr{int\s+long\s+(?:un)?signed},
 376         qr{long\s+(?:un)?signed\s+int},
 377         qr{int\s+(?:un)?signed\s+long},
 378         qr{int\s+(?:un)?signed},
 379         qr{int\s+long\s+long\s+(?:un)?signed},
 380         qr{long\s+long\s+int\s+(?:un)?signed},
 381         qr{long\s+long\s+(?:un)?signed\s+int},
 382         qr{long\s+long\s+(?:un)?signed},
 383         qr{long\s+(?:un)?signed},
 384 );
 385
 386 our @typeList = (
 387         qr{void},
 388         qr{(?:(?:un)?signed\s+)?char},
 389         qr{(?:(?:un)?signed\s+)?short\s+int},
 390         qr{(?:(?:un)?signed\s+)?short},
 391         qr{(?:(?:un)?signed\s+)?int},
 392         qr{(?:(?:un)?signed\s+)?long\s+int},
 393         qr{(?:(?:un)?signed\s+)?long\s+long\s+int},
 394         qr{(?:(?:un)?signed\s+)?long\s+long},
 395         qr{(?:(?:un)?signed\s+)?long},
 396         qr{(?:un)?signed},
 397         qr{float},
 398         qr{double},
 399         qr{bool},
 400         qr{struct\s+$Ident},
 401         qr{union\s+$Ident},
 402         qr{enum\s+$Ident},
 403         qr{${Ident}_t},
 404         qr{${Ident}_handler},
 405         qr{${Ident}_handler_fn},
 406         @typeListMisordered,
 407 );
 408 our @typeListWithAttr = (
 409         @typeList,
 410         qr{struct\s+$InitAttribute\s+$Ident},
 411         qr{union\s+$InitAttribute\s+$Ident},
 412 );
 413
 414 our @modifierList = (
 415         qr{fastcall},
 416 );
 417
 418 our @mode_permission_funcs = (
 419         ["module_param", 3],
 420         ["module_param_(?:array|named|string)", 4],
 421         ["module_param_array_named", 5],
 422         ["debugfs_create_(?:file|u8|u16|u32|u64|x8|x16|x32|x64|size_t|atomic_t|bool|blob|regset32|u32_array)", 2],
 423         ["proc_create(?:_data|)", 2],
 424         ["(?:CLASS|DEVICE|SENSOR)_ATTR", 2],
 425 );
 426
 427 #Create a search pattern for all these functions to speed up a loop below
 428 our $mode_perms_search = "";
 429 foreach my $entry (@mode_permission_funcs) {
 430         $mode_perms_search .= '|' if ($mode_perms_search ne "");
 431         $mode_perms_search .= $entry->[0];
 432 }
 433
 434 our $allowed_asm_includes = qr{(?x:
 435         irq|
 436         memory|
 437         time|
 438         reboot
 439 )};
 440 # memory.h: ARM has a custom one
 441
 442 # Load common spelling mistakes and build regular expression list.
 443 my $misspellings;
 444 my %spelling_fix;
 445
 446 if (open(my $spelling, '<', $spelling_file)) {
 447         my @spelling_list;
 448         while (<$spelling>) {
 449                 my $line = $_;
 450
 451                 $line =~ s/\s*\n?$//g;
 452                 $line =~ s/^\s*//g;
 453
 454                 next if ($line =~ m/^\s*#/);
 455                 next if ($line =~ m/^\s*$/);
 456
 457                 my ($suspect, $fix) = split(/\|\|/, $line);
 458
 459                 push(@spelling_list, $suspect);
 460                 $spelling_fix{$suspect} = $fix;
 461         }
 462         close($spelling);
 463         $misspellings = join("|", @spelling_list);
 464 } else {
 465         warn "No typos will be found - file '$spelling_file': $!\n";
 466 }
 467
 468 sub build_types {
 469         my $mods = "(?x:  \n" . join("|\n  ", @modifierList) . "\n)";
 470         my $all = "(?x:  \n" . join("|\n  ", @typeList) . "\n)";
 471         my $Misordered = "(?x:  \n" . join("|\n  ", @typeListMisordered) . "\n)";
 472         my $allWithAttr = "(?x:  \n" . join("|\n  ", @typeListWithAttr) . "\n)";
 473         $Modifier       = qr{(?:$Attribute|$Sparse|$mods)};
 474         $NonptrType     = qr{
 475                         (?:$Modifier\s+|const\s+)*
 476                         (?:
 477                                 (?:typeof|__typeof__)\s*\([^\)]*\)|
 478                                 (?:$typeTypedefs\b)|
 479                                 (?:${all}\b)
 480                         )
 481                         (?:\s+$Modifier|\s+const)*
 482                   }x;
 483         $NonptrTypeMisordered   = qr{
 484                         (?:$Modifier\s+|const\s+)*
 485                         (?:
 486                                 (?:${Misordered}\b)
 487                         )
 488                         (?:\s+$Modifier|\s+const)*
 489                   }x;
 490         $NonptrTypeWithAttr     = qr{
 491                         (?:$Modifier\s+|const\s+)*
 492                         (?:
 493                                 (?:typeof|__typeof__)\s*\([^\)]*\)|
 494                                 (?:$typeTypedefs\b)|
 495                                 (?:${allWithAttr}\b)
 496                         )
 497                         (?:\s+$Modifier|\s+const)*
 498                   }x;
 499         $Type   = qr{
 500                         $NonptrType
 501                         (?:(?:\s|\*|\[\])+\s*const|(?:\s|\*\s*(?:const\s*)?|\[\])+|(?:\s*\[\s*\])+)?
 502                         (?:\s+$Inline|\s+$Modifier)*
 503                   }x;
 504         $TypeMisordered = qr{
 505                         $NonptrTypeMisordered
 506                         (?:(?:\s|\*|\[\])+\s*const|(?:\s|\*\s*(?:const\s*)?|\[\])+|(?:\s*\[\s*\])+)?
 507                         (?:\s+$Inline|\s+$Modifier)*
 508                   }x;
 509         $Declare        = qr{(?:$Storage\s+(?:$Inline\s+)?)?$Type};
 510         $DeclareMisordered      = qr{(?:$Storage\s+(?:$Inline\s+)?)?$TypeMisordered};
 511 }
 512 build_types();
 513
 514 our $Typecast   = qr{\s*(\(\s*$NonptrType\s*\)){0,1}\s*};
 515
 516 # Using $balanced_parens, $LvalOrFunc, or $FuncArg
 517 # requires at least perl version v5.10.0
 518 # Any use must be runtime checked with $^V
 519
 520 our $balanced_parens = qr/(\((?:[^\(\)]++|(?-1))*\))/;
 521 our $LvalOrFunc = qr{((?:[\&\*]\s*)?$Lval)\s*($balanced_parens{0,1})\s*};
 522 our $FuncArg = qr{$Typecast{0,1}($LvalOrFunc|$Constant|$String)};
 523
 524 our $declaration_macros = qr{(?x:
 525         (?:$Storage\s+)?(?:[A-Z_][A-Z0-9]*_){0,2}(?:DEFINE|DECLARE)(?:_[A-Z0-9]+){1,2}\s*\(|
 526         (?:$Storage\s+)?LIST_HEAD\s*\(|
 527         (?:$Storage\s+)?${Type}\s+uninitialized_var\s*\(
 528 )};
 529
 530 sub deparenthesize {
 531         my ($string) = @_;
 532         return "" if (!defined($string));
 533
 534         while ($string =~ /^\s*\(.*\)\s*$/) {
 535                 $string =~ s@^\s*\(\s*@@;
 536                 $string =~ s@\s*\)\s*$@@;
 537         }
 538
 539         $string =~ s@\s+@ @g;
 540
 541         return $string;
 542 }
 543
 544 sub seed_camelcase_file {
 545         my ($file) = @_;
 546
 547         return if (!(-f $file));
 548
 549         local $/;
 550
 551         open(my $include_file, '<', "$file")
 552             or warn "$P: Can't read '$file' $!\n";
 553         my $text = <$include_file>;
 554         close($include_file);
 555
 556         my @lines = split('\n', $text);
 557
 558         foreach my $line (@lines) {
 559                 next if ($line !~ /(?:[A-Z][a-z]|[a-z][A-Z])/);
 560                 if ($line =~ /^[ \t]*(?:#[ \t]*define|typedef\s+$Type)\s+(\w*(?:[A-Z][a-z]|[a-z][A-Z])\w*)/) {
 561                         $camelcase{$1} = 1;
 562                 } elsif ($line =~ /^\s*$Declare\s+(\w*(?:[A-Z][a-z]|[a-z][A-Z])\w*)\s*[\(\[,;]/) {
 563                         $camelcase{$1} = 1;
 564                 } elsif ($line =~ /^\s*(?:union|struct|enum)\s+(\w*(?:[A-Z][a-z]|[a-z][A-Z])\w*)\s*[;\{]/) {
 565                         $camelcase{$1} = 1;
 566                 }
 567         }
 568 }
 569
 570 my $camelcase_seeded = 0;
 571 sub seed_camelcase_includes {
 572         return if ($camelcase_seeded);
 573
 574         my $files;
 575         my $camelcase_cache = "";
 576         my @include_files = ();
 577
 578         $camelcase_seeded = 1;
 579
 580         if (-e ".git") {
 581                 my $git_last_include_commit = `git log --no-merges --pretty=format:"%h%n" -1 -- include`;
 582                 chomp $git_last_include_commit;
 583                 $camelcase_cache = ".checkpatch-camelcase.git.$git_last_include_commit";
 584         } else {
 585                 my $last_mod_date = 0;
 586                 $files = `find $root/include -name "*.h"`;
 587                 @include_files = split('\n', $files);
 588                 foreach my $file (@include_files) {
 589                         my $date = POSIX::strftime("%Y%m%d%H%M",
 590                                                    localtime((stat $file)[9]));
 591                         $last_mod_date = $date if ($last_mod_date < $date);
 592                 }
 593                 $camelcase_cache = ".checkpatch-camelcase.date.$last_mod_date";
 594         }
 595
 596         if ($camelcase_cache ne "" && -f $camelcase_cache) {
 597                 open(my $camelcase_file, '<', "$camelcase_cache")
 598                     or warn "$P: Can't read '$camelcase_cache' $!\n";
 599                 while (<$camelcase_file>) {
 600                         chomp;
 601                         $camelcase{$_} = 1;
 602                 }
 603                 close($camelcase_file);
 604
 605                 return;
 606         }
 607
 608         if (-e ".git") {
 609                 $files = `git ls-files "include/*.h"`;
 610                 @include_files = split('\n', $files);
 611         }
 612
 613         foreach my $file (@include_files) {
 614                 seed_camelcase_file($file);
 615         }
 616
 617         if ($camelcase_cache ne "") {
 618                 unlink glob ".checkpatch-camelcase.*";
 619                 open(my $camelcase_file, '>', "$camelcase_cache")
 620                     or warn "$P: Can't write '$camelcase_cache' $!\n";
 621                 foreach (sort { lc($a) cmp lc($b) } keys(%camelcase)) {
 622                         print $camelcase_file ("$_\n");
 623                 }
 624                 close($camelcase_file);
 625         }
 626 }
 627
 628 sub git_commit_info {
 629         my ($commit, $id, $desc) = @_;
 630
 631         return ($id, $desc) if ((which("git") eq "") || !(-e ".git"));
 632
 633         my $output = `git log --no-color --format='%H %s' -1 $commit 2>&1`;
 634         $output =~ s/^\s*//gm;
 635         my @lines = split("\n", $output);
 636
 637         return ($id, $desc) if ($#lines < 0);
 638
 639         if ($lines[0] =~ /^error: short SHA1 $commit is ambiguous\./) {
 640 # Maybe one day convert this block of bash into something that returns
 641 # all matching commit ids, but it's very slow...
 642 #
 643 #               echo "checking commits $1..."
 644 #               git rev-list --remotes | grep -i "^$1" |
 645 #               while read line ; do
 646 #                   git log --format='%H %s' -1 $line |
 647 #                   echo "commit $(cut -c 1-12,41-)"
 648 #               done
 649         } elsif ($lines[0] =~ /^fatal: ambiguous argument '$commit': unknown revision or path not in the working tree\./) {
 650         } else {
 651                 $id = substr($lines[0], 0, 12);
 652                 $desc = substr($lines[0], 41);
 653         }
 654
 655         return ($id, $desc);
 656 }
 657
 658 $chk_signoff = 0 if ($file);
 659
 660 my @rawlines = ();
 661 my @lines = ();
 662 my @fixed = ();
 663 my @fixed_inserted = ();
 664 my @fixed_deleted = ();
 665 my $fixlinenr = -1;
 666
 667 my $vname;
 668 for my $filename (@ARGV) {
 669         my $FILE;
 670         if ($file) {
 671                 open($FILE, '-|', "diff -u /dev/null $filename") ||
 672                         die "$P: $filename: diff failed - $!\n";
 673         } elsif ($filename eq '-') {
 674                 open($FILE, '<&STDIN');
 675         } else {
 676                 open($FILE, '<', "$filename") ||
 677                         die "$P: $filename: open failed - $!\n";
 678         }
 679         if ($filename eq '-') {
 680                 $vname = 'Your patch';
 681         } else {
 682                 $vname = $filename;
 683         }
 684         while (<$FILE>) {
 685                 chomp;
 686                 push(@rawlines, $_);
 687         }
 688         close($FILE);
 689         if (!process($filename)) {
 690                 $exit = 1;
 691         }
 692         @rawlines = ();
 693         @lines = ();
 694         @fixed = ();
 695         @fixed_inserted = ();
 696         @fixed_deleted = ();
 697         $fixlinenr = -1;
 698 }
 699
 700 exit($exit);
 701
 702 sub top_of_kernel_tree {
 703         my ($root) = @_;
 704
 705         my @tree_check = (
 706                 "COPYING", "CREDITS", "Kbuild", "MAINTAINERS", "Makefile",
 707                 "README", "Documentation", "arch", "include", "drivers",
 708                 "fs", "init", "ipc", "kernel", "lib", "scripts",
 709         );
 710
 711         foreach my $check (@tree_check) {
 712                 if (! -e $root . '/' . $check) {
 713                         return 0;
 714                 }
 715         }
 716         return 1;
 717 }
 718
 719 sub parse_email {
 720         my ($formatted_email) = @_;
 721
 722         my $name = "";
 723         my $address = "";
 724         my $comment = "";
 725
 726         if ($formatted_email =~ /^(.*)<(\S+\@\S+)>(.*)$/) {
 727                 $name = $1;
 728                 $address = $2;
 729                 $comment = $3 if defined $3;
 730         } elsif ($formatted_email =~ /^\s*<(\S+\@\S+)>(.*)$/) {
 731                 $address = $1;
 732                 $comment = $2 if defined $2;
 733         } elsif ($formatted_email =~ /(\S+\@\S+)(.*)$/) {
 734                 $address = $1;
 735                 $comment = $2 if defined $2;
 736                 $formatted_email =~ s/$address.*$//;
 737                 $name = $formatted_email;
 738                 $name = trim($name);
 739                 $name =~ s/^\"|\"$//g;
 740                 # If there's a name left after stripping spaces and
 741                 # leading quotes, and the address doesn't have both
 742                 # leading and trailing angle brackets, the address
 743                 # is invalid. ie:
 744                 #   "joe smith joe@smith.com" bad
 745                 #   "joe smith <joe@smith.com" bad
 746                 if ($name ne "" && $address !~ /^<[^>]+>$/) {
 747                         $name = "";
 748                         $address = "";
 749                         $comment = "";
 750                 }
 751         }
 752
 753         $name = trim($name);
 754         $name =~ s/^\"|\"$//g;
 755         $address = trim($address);
 756         $address =~ s/^\<|\>$//g;
 757
 758         if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
 759                 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
 760                 $name = "\"$name\"";
 761         }
 762
 763         return ($name, $address, $comment);
 764 }
 765
 766 sub format_email {
 767         my ($name, $address) = @_;
 768
 769         my $formatted_email;
 770
 771         $name = trim($name);
 772         $name =~ s/^\"|\"$//g;
 773         $address = trim($address);
 774
 775         if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
 776                 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
 777                 $name = "\"$name\"";
 778         }
 779
 780         if ("$name" eq "") {
 781                 $formatted_email = "$address";
 782         } else {
 783                 $formatted_email = "$name <$address>";
 784         }
 785
 786         return $formatted_email;
 787 }
 788
 789 sub which {
 790         my ($bin) = @_;
 791
 792         foreach my $path (split(/:/, $ENV{PATH})) {
 793                 if (-e "$path/$bin") {
 794                         return "$path/$bin";
 795                 }
 796         }
 797
 798         return "";
 799 }
 800
 801 sub which_conf {
 802         my ($conf) = @_;
 803
 804         foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {
 805                 if (-e "$path/$conf") {
 806                         return "$path/$conf";
 807                 }
 808         }
 809
 810         return "";
 811 }
 812
 813 sub expand_tabs {
 814         my ($str) = @_;
 815
 816         my $res = '';
 817         my $n = 0;
 818         for my $c (split(//, $str)) {
 819                 if ($c eq "\t") {
 820                         $res .= ' ';
 821                         $n++;
 822                         for (; ($n % 8) != 0; $n++) {
 823                                 $res .= ' ';
 824                         }
 825                         next;
 826                 }
 827                 $res .= $c;
 828                 $n++;
 829         }
 830
 831         return $res;
 832 }
 833 sub copy_spacing {
 834         (my $res = shift) =~ tr/\t/ /c;
 835         return $res;
 836 }
 837
 838 sub line_stats {
 839         my ($line) = @_;
 840
 841         # Drop the diff line leader and expand tabs
 842         $line =~ s/^.//;
 843         $line = expand_tabs($line);
 844
 845         # Pick the indent from the front of the line.
 846         my ($white) = ($line =~ /^(\s*)/);
 847
 848         return (length($line), length($white));
 849 }
 850
 851 my $sanitise_quote = '';
 852
 853 sub sanitise_line_reset {
 854         my ($in_comment) = @_;
 855
 856         if ($in_comment) {
 857                 $sanitise_quote = '*/';
 858         } else {
 859                 $sanitise_quote = '';
 860         }
 861 }
 862 sub sanitise_line {
 863         my ($line) = @_;
 864
 865         my $res = '';
 866         my $l = '';
 867
 868         my $qlen = 0;
 869         my $off = 0;
 870         my $c;
 871
 872         # Always copy over the diff marker.
 873         $res = substr($line, 0, 1);
 874
 875         for ($off = 1; $off < length($line); $off++) {
 876                 $c = substr($line, $off, 1);
 877
 878                 # Comments we are wacking completly including the begin
 879                 # and end, all to $;.
 880                 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
 881                         $sanitise_quote = '*/';
 882
 883                         substr($res, $off, 2, "$;$;");
 884                         $off++;
 885                         next;
 886                 }
 887                 if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
 888                         $sanitise_quote = '';
 889                         substr($res, $off, 2, "$;$;");
 890                         $off++;
 891                         next;
 892                 }
 893                 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
 894                         $sanitise_quote = '//';
 895
 896                         substr($res, $off, 2, $sanitise_quote);
 897                         $off++;
 898                         next;
 899                 }
 900
 901                 # A \ in a string means ignore the next character.
 902                 if (($sanitise_quote eq "'" || $sanitise_quote eq '"') &&
 903                     $c eq "\\") {
 904                         substr($res, $off, 2, 'XX');
 905                         $off++;
 906                         next;
 907                 }
 908                 # Regular quotes.
 909                 if ($c eq "'" || $c eq '"') {
 910                         if ($sanitise_quote eq '') {
 911                                 $sanitise_quote = $c;
 912
 913                                 substr($res, $off, 1, $c);
 914                                 next;
 915                         } elsif ($sanitise_quote eq $c) {
 916                                 $sanitise_quote = '';
 917                         }
 918                 }
 919
 920                 #print "c<$c> SQ<$sanitise_quote>\n";
 921                 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
 922                         substr($res, $off, 1, $;);
 923                 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
 924                         substr($res, $off, 1, $;);
 925                 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
 926                         substr($res, $off, 1, 'X');
 927                 } else {
 928                         substr($res, $off, 1, $c);
 929                 }
 930         }
 931
 932         if ($sanitise_quote eq '//') {
 933                 $sanitise_quote = '';
 934         }
 935
 936         # The pathname on a #include may be surrounded by '<' and '>'.
 937         if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {
 938                 my $clean = 'X' x length($1);
 939                 $res =~ s@\<.*\>@<$clean>@;
 940
 941         # The whole of a #error is a string.
 942         } elsif ($res =~ /^.\s*\#\s*(?:error|warning)\s+(.*)\b/) {
 943                 my $clean = 'X' x length($1);
 944                 $res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;
 945         }
 946
 947         return $res;
 948 }
 949
 950 sub get_quoted_string {
 951         my ($line, $rawline) = @_;
 952
 953         return "" if ($line !~ m/(\"[X\t]+\")/g);
 954         return substr($rawline, $-[0], $+[0] - $-[0]);
 955 }
 956
 957 sub ctx_statement_block {
 958         my ($linenr, $remain, $off) = @_;
 959         my $line = $linenr - 1;
 960         my $blk = '';
 961         my $soff = $off;
 962         my $coff = $off - 1;
 963         my $coff_set = 0;
 964
 965         my $loff = 0;
 966
 967         my $type = '';
 968         my $level = 0;
 969         my @stack = ();
 970         my $p;
 971         my $c;
 972         my $len = 0;
 973
 974         my $remainder;
 975         while (1) {
 976                 @stack = (['', 0]) if ($#stack == -1);
 977
 978                 #warn "CSB: blk<$blk> remain<$remain>\n";
 979                 # If we are about to drop off the end, pull in more
 980                 # context.
 981                 if ($off >= $len) {
 982                         for (; $remain > 0; $line++) {
 983                                 last if (!defined $lines[$line]);
 984                                 next if ($lines[$line] =~ /^-/);
 985                                 $remain--;
 986                                 $loff = $len;
 987                                 $blk .= $lines[$line] . "\n";
 988                                 $len = length($blk);
 989                                 $line++;
 990                                 last;
 991                         }
 992                         # Bail if there is no further context.
 993                         #warn "CSB: blk<$blk> off<$off> len<$len>\n";
 994                         if ($off >= $len) {
 995                                 last;
 996                         }
 997                         if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
 998                                 $level++;
 999                                 $type = '#';
1000                         }
1001                 }
1002                 $p = $c;
1003                 $c = substr($blk, $off, 1);
1004                 $remainder = substr($blk, $off);
1005
1006                 #warn "CSB: c<$c> type<$type> level<$level> remainder<$remainder> coff_set<$coff_set>\n";
1007
1008                 # Handle nested #if/#else.
1009                 if ($remainder =~ /^#\s*(?:ifndef|ifdef|if)\s/) {
1010                         push(@stack, [ $type, $level ]);
1011                 } elsif ($remainder =~ /^#\s*(?:else|elif)\b/) {
1012                         ($type, $level) = @{$stack[$#stack - 1]};
1013                 } elsif ($remainder =~ /^#\s*endif\b/) {
1014                         ($type, $level) = @{pop(@stack)};
1015                 }
1016
1017                 # Statement ends at the ';' or a close '}' at the
1018                 # outermost level.
1019                 if ($level == 0 && $c eq ';') {
1020                         last;
1021                 }
1022
1023                 # An else is really a conditional as long as its not else if
1024                 if ($level == 0 && $coff_set == 0 &&
1025                                 (!defined($p) || $p =~ /(?:\s|\}|\+)/) &&
1026                                 $remainder =~ /^(else)(?:\s|{)/ &&
1027                                 $remainder !~ /^else\s+if\b/) {
1028                         $coff = $off + length($1) - 1;
1029                         $coff_set = 1;
1030                         #warn "CSB: mark coff<$coff> soff<$soff> 1<$1>\n";
1031                         #warn "[" . substr($blk, $soff, $coff - $soff + 1) . "]\n";
1032                 }
1033
1034                 if (($type eq '' || $type eq '(') && $c eq '(') {
1035                         $level++;
1036                         $type = '(';
1037                 }
1038                 if ($type eq '(' && $c eq ')') {
1039                         $level--;
1040                         $type = ($level != 0)? '(' : '';
1041
1042                         if ($level == 0 && $coff < $soff) {
1043                                 $coff = $off;
1044                                 $coff_set = 1;
1045                                 #warn "CSB: mark coff<$coff>\n";
1046                         }
1047                 }
1048                 if (($type eq '' || $type eq '{') && $c eq '{') {
1049                         $level++;
1050                         $type = '{';
1051                 }
1052                 if ($type eq '{' && $c eq '}') {
1053                         $level--;
1054                         $type = ($level != 0)? '{' : '';
1055
1056                         if ($level == 0) {
1057                                 if (substr($blk, $off + 1, 1) eq ';') {
1058                                         $off++;
1059                                 }
1060                                 last;
1061                         }
1062                 }
1063                 # Preprocessor commands end at the newline unless escaped.
1064                 if ($type eq '#' && $c eq "\n" && $p ne "\\") {
1065                         $level--;
1066                         $type = '';
1067                         $off++;
1068                         last;
1069                 }
1070                 $off++;
1071         }
1072         # We are truly at the end, so shuffle to the next line.
1073         if ($off == $len) {
1074                 $loff = $len + 1;
1075                 $line++;
1076                 $remain--;
1077         }
1078
1079         my $statement = substr($blk, $soff, $off - $soff + 1);
1080         my $condition = substr($blk, $soff, $coff - $soff + 1);
1081
1082         #warn "STATEMENT<$statement>\n";
1083         #warn "CONDITION<$condition>\n";
1084
1085         #print "coff<$coff> soff<$off> loff<$loff>\n";
1086
1087         return ($statement, $condition,
1088                         $line, $remain + 1, $off - $loff + 1, $level);
1089 }
1090
1091 sub statement_lines {
1092         my ($stmt) = @_;
1093
1094         # Strip the diff line prefixes and rip blank lines at start and end.
1095         $stmt =~ s/(^|\n)./$1/g;
1096         $stmt =~ s/^\s*//;
1097         $stmt =~ s/\s*$//;
1098
1099         my @stmt_lines = ($stmt =~ /\n/g);
1100
1101         return $#stmt_lines + 2;
1102 }
1103
1104 sub statement_rawlines {
1105         my ($stmt) = @_;
1106
1107         my @stmt_lines = ($stmt =~ /\n/g);
1108
1109         return $#stmt_lines + 2;
1110 }
1111
1112 sub statement_block_size {
1113         my ($stmt) = @_;
1114
1115         $stmt =~ s/(^|\n)./$1/g;
1116         $stmt =~ s/^\s*{//;
1117         $stmt =~ s/}\s*$//;
1118         $stmt =~ s/^\s*//;
1119         $stmt =~ s/\s*$//;
1120
1121         my @stmt_lines = ($stmt =~ /\n/g);
1122         my @stmt_statements = ($stmt =~ /;/g);
1123
1124         my $stmt_lines = $#stmt_lines + 2;
1125         my $stmt_statements = $#stmt_statements + 1;
1126
1127         if ($stmt_lines > $stmt_statements) {
1128                 return $stmt_lines;
1129         } else {
1130                 return $stmt_statements;
1131         }
1132 }
1133
1134 sub ctx_statement_full {
1135         my ($linenr, $remain, $off) = @_;
1136         my ($statement, $condition, $level);
1137
1138         my (@chunks);
1139
1140         # Grab the first conditional/block pair.
1141         ($statement, $condition, $linenr, $remain, $off, $level) =
1142                                 ctx_statement_block($linenr, $remain, $off);
1143         #print "F: c<$condition> s<$statement> remain<$remain>\n";
1144         push(@chunks, [ $condition, $statement ]);
1145         if (!($remain > 0 && $condition =~ /^\s*(?:\n[+-])?\s*(?:if|else|do)\b/s)) {
1146                 return ($level, $linenr, @chunks);
1147         }
1148
1149         # Pull in the following conditional/block pairs and see if they
1150         # could continue the statement.
1151         for (;;) {
1152                 ($statement, $condition, $linenr, $remain, $off, $level) =
1153                                 ctx_statement_block($linenr, $remain, $off);
1154                 #print "C: c<$condition> s<$statement> remain<$remain>\n";
1155                 last if (!($remain > 0 && $condition =~ /^(?:\s*\n[+-])*\s*(?:else|do)\b/s));
1156                 #print "C: push\n";
1157                 push(@chunks, [ $condition, $statement ]);
1158         }
1159
1160         return ($level, $linenr, @chunks);
1161 }
1162
1163 sub ctx_block_get {
1164         my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1165         my $line;
1166         my $start = $linenr - 1;
1167         my $blk = '';
1168         my @o;
1169         my @c;
1170         my @res = ();
1171
1172         my $level = 0;
1173         my @stack = ($level);
1174         for ($line = $start; $remain > 0; $line++) {
1175                 next if ($rawlines[$line] =~ /^-/);
1176                 $remain--;
1177
1178                 $blk .= $rawlines[$line];
1179
1180                 # Handle nested #if/#else.
1181                 if ($lines[$line] =~ /^.\s*#\s*(?:ifndef|ifdef|if)\s/) {
1182                         push(@stack, $level);
1183                 } elsif ($lines[$line] =~ /^.\s*#\s*(?:else|elif)\b/) {
1184                         $level = $stack[$#stack - 1];
1185                 } elsif ($lines[$line] =~ /^.\s*#\s*endif\b/) {
1186                         $level = pop(@stack);
1187                 }
1188
1189                 foreach my $c (split(//, $lines[$line])) {
1190                         ##print "C<$c>L<$level><$open$close>O<$off>\n";
1191                         if ($off > 0) {
1192                                 $off--;
1193                                 next;
1194                         }
1195
1196                         if ($c eq $close && $level > 0) {
1197                                 $level--;
1198                                 last if ($level == 0);
1199                         } elsif ($c eq $open) {
1200                                 $level++;
1201                         }
1202                 }
1203
1204                 if (!$outer || $level <= 1) {
1205                         push(@res, $rawlines[$line]);
1206                 }
1207
1208                 last if ($level == 0);
1209         }
1210
1211         return ($level, @res);
1212 }
1213 sub ctx_block_outer {
1214         my ($linenr, $remain) = @_;
1215
1216         my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1217         return @r;
1218 }
1219 sub ctx_block {
1220         my ($linenr, $remain) = @_;
1221
1222         my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1223         return @r;
1224 }
1225 sub ctx_statement {
1226         my ($linenr, $remain, $off) = @_;
1227
1228         my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1229         return @r;
1230 }
1231 sub ctx_block_level {
1232         my ($linenr, $remain) = @_;
1233
1234         return ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1235 }
1236 sub ctx_statement_level {
1237         my ($linenr, $remain, $off) = @_;
1238
1239         return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1240 }
1241
1242 sub ctx_locate_comment {
1243         my ($first_line, $end_line) = @_;
1244
1245         # Catch a comment on the end of the line itself.
1246         my ($current_comment) = ($rawlines[$end_line - 1] =~ m@.*(/\*.*\*/)\s*(?:\\\s*)?$@);
1247         return $current_comment if (defined $current_comment);
1248
1249         # Look through the context and try and figure out if there is a
1250         # comment.
1251         my $in_comment = 0;
1252         $current_comment = '';
1253         for (my $linenr = $first_line; $linenr < $end_line; $linenr++) {
1254                 my $line = $rawlines[$linenr - 1];
1255                 #warn "           $line\n";
1256                 if ($linenr == $first_line and $line =~ m@^.\s*\*@) {
1257                         $in_comment = 1;
1258                 }
1259                 if ($line =~ m@/\*@) {
1260                         $in_comment = 1;
1261                 }
1262                 if (!$in_comment && $current_comment ne '') {
1263                         $current_comment = '';
1264                 }
1265                 $current_comment .= $line . "\n" if ($in_comment);
1266                 if ($line =~ m@\*/@) {
1267                         $in_comment = 0;
1268                 }
1269         }
1270
1271         chomp($current_comment);
1272         return($current_comment);
1273 }
1274 sub ctx_has_comment {
1275         my ($first_line, $end_line) = @_;
1276         my $cmt = ctx_locate_comment($first_line, $end_line);
1277
1278         ##print "LINE: $rawlines[$end_line - 1 ]\n";
1279         ##print "CMMT: $cmt\n";
1280
1281         return ($cmt ne '');
1282 }
1283
1284 sub raw_line {
1285         my ($linenr, $cnt) = @_;
1286
1287         my $offset = $linenr - 1;
1288         $cnt++;
1289
1290         my $line;
1291         while ($cnt) {
1292                 $line = $rawlines[$offset++];
1293                 next if (defined($line) && $line =~ /^-/);
1294                 $cnt--;
1295         }
1296
1297         return $line;
1298 }
1299
1300 sub cat_vet {
1301         my ($vet) = @_;
1302         my ($res, $coded);
1303
1304         $res = '';
1305         while ($vet =~ /([^[:cntrl:]]*)([[:cntrl:]]|$)/g) {
1306                 $res .= $1;
1307                 if ($2 ne '') {
1308                         $coded = sprintf("^%c", unpack('C', $2) + 64);
1309                         $res .= $coded;
1310                 }
1311         }
1312         $res =~ s/$/\$/;
1313
1314         return $res;
1315 }
1316
1317 my $av_preprocessor = 0;
1318 my $av_pending;
1319 my @av_paren_type;
1320 my $av_pend_colon;
1321
1322 sub annotate_reset {
1323         $av_preprocessor = 0;
1324         $av_pending = '_';
1325         @av_paren_type = ('E');
1326         $av_pend_colon = 'O';
1327 }
1328
1329 sub annotate_values {
1330         my ($stream, $type) = @_;
1331
1332         my $res;
1333         my $var = '_' x length($stream);
1334         my $cur = $stream;
1335
1336         print "$stream\n" if ($dbg_values > 1);
1337
1338         while (length($cur)) {
1339                 @av_paren_type = ('E') if ($#av_paren_type < 0);
1340                 print " <" . join('', @av_paren_type) .
1341                                 "> <$type> <$av_pending>" if ($dbg_values > 1);
1342                 if ($cur =~ /^(\s+)/o) {
1343                         print "WS($1)\n" if ($dbg_values > 1);
1344                         if ($1 =~ /\n/ && $av_preprocessor) {
1345                                 $type = pop(@av_paren_type);
1346                                 $av_preprocessor = 0;
1347                         }
1348
1349                 } elsif ($cur =~ /^(\(\s*$Type\s*)\)/ && $av_pending eq '_') {
1350                         print "CAST($1)\n" if ($dbg_values > 1);
1351                         push(@av_paren_type, $type);
1352                         $type = 'c';
1353
1354                 } elsif ($cur =~ /^($Type)\s*(?:$Ident|,|\)|\(|\s*$)/) {
1355                         print "DECLARE($1)\n" if ($dbg_values > 1);
1356                         $type = 'T';
1357
1358                 } elsif ($cur =~ /^($Modifier)\s*/) {
1359                         print "MODIFIER($1)\n" if ($dbg_values > 1);
1360                         $type = 'T';
1361
1362                 } elsif ($cur =~ /^(\#\s*define\s*$Ident)(\(?)/o) {
1363                         print "DEFINE($1,$2)\n" if ($dbg_values > 1);
1364                         $av_preprocessor = 1;
1365                         push(@av_paren_type, $type);
1366                         if ($2 ne '') {
1367                                 $av_pending = 'N';
1368                         }
1369                         $type = 'E';
1370
1371                 } elsif ($cur =~ /^(\#\s*(?:undef\s*$Ident|include\b))/o) {
1372                         print "UNDEF($1)\n" if ($dbg_values > 1);
1373                         $av_preprocessor = 1;
1374                         push(@av_paren_type, $type);
1375
1376                 } elsif ($cur =~ /^(\#\s*(?:ifdef|ifndef|if))/o) {
1377                         print "PRE_START($1)\n" if ($dbg_values > 1);
1378                         $av_preprocessor = 1;
1379
1380                         push(@av_paren_type, $type);
1381                         push(@av_paren_type, $type);
1382                         $type = 'E';
1383
1384                 } elsif ($cur =~ /^(\#\s*(?:else|elif))/o) {
1385                         print "PRE_RESTART($1)\n" if ($dbg_values > 1);
1386                         $av_preprocessor = 1;
1387
1388                         push(@av_paren_type, $av_paren_type[$#av_paren_type]);
1389
1390                         $type = 'E';
1391
1392                 } elsif ($cur =~ /^(\#\s*(?:endif))/o) {
1393                         print "PRE_END($1)\n" if ($dbg_values > 1);
1394
1395                         $av_preprocessor = 1;
1396
1397                         # Assume all arms of the conditional end as this
1398                         # one does, and continue as if the #endif was not here.
1399                         pop(@av_paren_type);
1400                         push(@av_paren_type, $type);
1401                         $type = 'E';
1402
1403                 } elsif ($cur =~ /^(\\\n)/o) {
1404                         print "PRECONT($1)\n" if ($dbg_values > 1);
1405
1406                 } elsif ($cur =~ /^(__attribute__)\s*\(?/o) {
1407                         print "ATTR($1)\n" if ($dbg_values > 1);
1408                         $av_pending = $type;
1409                         $type = 'N';
1410
1411                 } elsif ($cur =~ /^(sizeof)\s*(\()?/o) {
1412                         print "SIZEOF($1)\n" if ($dbg_values > 1);
1413                         if (defined $2) {
1414                                 $av_pending = 'V';
1415                         }
1416                         $type = 'N';
1417
1418                 } elsif ($cur =~ /^(if|while|for)\b/o) {
1419                         print "COND($1)\n" if ($dbg_values > 1);
1420                         $av_pending = 'E';
1421                         $type = 'N';
1422
1423                 } elsif ($cur =~/^(case)/o) {
1424                         print "CASE($1)\n" if ($dbg_values > 1);
1425                         $av_pend_colon = 'C';
1426                         $type = 'N';
1427
1428                 } elsif ($cur =~/^(return|else|goto|typeof|__typeof__)\b/o) {
1429                         print "KEYWORD($1)\n" if ($dbg_values > 1);
1430                         $type = 'N';
1431
1432                 } elsif ($cur =~ /^(\()/o) {
1433                         print "PAREN('$1')\n" if ($dbg_values > 1);
1434                         push(@av_paren_type, $av_pending);
1435                         $av_pending = '_';
1436                         $type = 'N';
1437
1438                 } elsif ($cur =~ /^(\))/o) {
1439                         my $new_type = pop(@av_paren_type);
1440                         if ($new_type ne '_') {
1441                                 $type = $new_type;
1442                                 print "PAREN('$1') -> $type\n"
1443                                                         if ($dbg_values > 1);
1444                         } else {
1445                                 print "PAREN('$1')\n" if ($dbg_values > 1);
1446                         }
1447
1448                 } elsif ($cur =~ /^($Ident)\s*\(/o) {
1449                         print "FUNC($1)\n" if ($dbg_values > 1);
1450                         $type = 'V';
1451                         $av_pending = 'V';
1452
1453                 } elsif ($cur =~ /^($Ident\s*):(?:\s*\d+\s*(,|=|;))?/) {
1454                         if (defined $2 && $type eq 'C' || $type eq 'T') {
1455                                 $av_pend_colon = 'B';
1456                         } elsif ($type eq 'E') {
1457                                 $av_pend_colon = 'L';
1458                         }
1459                         print "IDENT_COLON($1,$type>$av_pend_colon)\n" if ($dbg_values > 1);
1460                         $type = 'V';
1461
1462                 } elsif ($cur =~ /^($Ident|$Constant)/o) {
1463                         print "IDENT($1)\n" if ($dbg_values > 1);
1464                         $type = 'V';
1465
1466                 } elsif ($cur =~ /^($Assignment)/o) {
1467                         print "ASSIGN($1)\n" if ($dbg_values > 1);
1468                         $type = 'N';
1469
1470                 } elsif ($cur =~/^(;|{|})/) {
1471                         print "END($1)\n" if ($dbg_values > 1);
1472                         $type = 'E';
1473                         $av_pend_colon = 'O';
1474
1475                 } elsif ($cur =~/^(,)/) {
1476                         print "COMMA($1)\n" if ($dbg_values > 1);
1477                         $type = 'C';
1478
1479                 } elsif ($cur =~ /^(\?)/o) {
1480                         print "QUESTION($1)\n" if ($dbg_values > 1);
1481                         $type = 'N';
1482
1483                 } elsif ($cur =~ /^(:)/o) {
1484                         print "COLON($1,$av_pend_colon)\n" if ($dbg_values > 1);
1485
1486                         substr($var, length($res), 1, $av_pend_colon);
1487                         if ($av_pend_colon eq 'C' || $av_pend_colon eq 'L') {
1488                                 $type = 'E';
1489                         } else {
1490                                 $type = 'N';
1491                         }
1492                         $av_pend_colon = 'O';
1493
1494                 } elsif ($cur =~ /^(\[)/o) {
1495                         print "CLOSE($1)\n" if ($dbg_values > 1);
1496                         $type = 'N';
1497
1498                 } elsif ($cur =~ /^(-(?![->])|\+(?!\+)|\*|\&\&|\&)/o) {
1499                         my $variant;
1500
1501                         print "OPV($1)\n" if ($dbg_values > 1);
1502                         if ($type eq 'V') {
1503                                 $variant = 'B';
1504                         } else {
1505                                 $variant = 'U';
1506                         }
1507
1508                         substr($var, length($res), 1, $variant);
1509                         $type = 'N';
1510
1511                 } elsif ($cur =~ /^($Operators)/o) {
1512                         print "OP($1)\n" if ($dbg_values > 1);
1513                         if ($1 ne '++' && $1 ne '--') {
1514                                 $type = 'N';
1515                         }
1516
1517                 } elsif ($cur =~ /(^.)/o) {
1518                         print "C($1)\n" if ($dbg_values > 1);
1519                 }
1520                 if (defined $1) {
1521                         $cur = substr($cur, length($1));
1522                         $res .= $type x length($1);
1523                 }
1524         }
1525
1526         return ($res, $var);
1527 }
1528
1529 sub possible {
1530         my ($possible, $line) = @_;
1531         my $notPermitted = qr{(?:
1532                 ^(?:
1533                         $Modifier|
1534                         $Storage|
1535                         $Type|
1536                         DEFINE_\S+
1537                 )$|
1538                 ^(?:
1539                         goto|
1540                         return|
1541                         case|
1542                         else|
1543                         asm|__asm__|
1544                         do|
1545                         \#|
1546                         \#\#|
1547                 )(?:\s|$)|
1548                 ^(?:typedef|struct|enum)\b
1549             )}x;
1550         warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
1551         if ($possible !~ $notPermitted) {
1552                 # Check for modifiers.
1553                 $possible =~ s/\s*$Storage\s*//g;
1554                 $possible =~ s/\s*$Sparse\s*//g;
1555                 if ($possible =~ /^\s*$/) {
1556
1557                 } elsif ($possible =~ /\s/) {
1558                         $possible =~ s/\s*$Type\s*//g;
1559                         for my $modifier (split(' ', $possible)) {
1560                                 if ($modifier !~ $notPermitted) {
1561                                         warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
1562                                         push(@modifierList, $modifier);
1563                                 }
1564                         }
1565
1566                 } else {
1567                         warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
1568                         push(@typeList, $possible);
1569                 }
1570                 build_types();
1571         } else {
1572                 warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
1573         }
1574 }
1575
1576 my $prefix = '';
1577
1578 sub show_type {
1579         my ($type) = @_;
1580
1581         return defined $use_type{$type} if (scalar keys %use_type > 0);
1582
1583         return !defined $ignore_type{$type};
1584 }
1585
1586 sub report {
1587         my ($level, $type, $msg) = @_;
1588
1589         if (!show_type($type) ||
1590             (defined $tst_only && $msg !~ /\Q$tst_only\E/)) {
1591                 return 0;
1592         }
1593         my $line;
1594         if ($show_types) {
1595                 $line = "$prefix$level:$type: $msg\n";
1596         } else {
1597                 $line = "$prefix$level: $msg\n";
1598         }
1599         $line = (split('\n', $line))[0] . "\n" if ($terse);
1600
1601         push(our @report, $line);
1602
1603         return 1;
1604 }
1605
1606 sub report_dump {
1607         our @report;
1608 }
1609
1610 sub fixup_current_range {
1611         my ($lineRef, $offset, $length) = @_;
1612
1613         if ($$lineRef =~ /^\@\@ -\d+,\d+ \+(\d+),(\d+) \@\@/) {
1614                 my $o = $1;
1615                 my $l = $2;
1616                 my $no = $o + $offset;
1617                 my $nl = $l + $length;
1618                 $$lineRef =~ s/\+$o,$l \@\@/\+$no,$nl \@\@/;
1619         }
1620 }
1621
1622 sub fix_inserted_deleted_lines {
1623         my ($linesRef, $insertedRef, $deletedRef) = @_;
1624
1625         my $range_last_linenr = 0;
1626         my $delta_offset = 0;
1627
1628         my $old_linenr = 0;
1629         my $new_linenr = 0;
1630
1631         my $next_insert = 0;
1632         my $next_delete = 0;
1633
1634         my @lines = ();
1635
1636         my $inserted = @{$insertedRef}[$next_insert++];
1637         my $deleted = @{$deletedRef}[$next_delete++];
1638
1639         foreach my $old_line (@{$linesRef}) {
1640                 my $save_line = 1;
1641                 my $line = $old_line;   #don't modify the array
1642                 if ($line =~ /^(?:\+\+\+\|\-\-\-)\s+\S+/) {     #new filename
1643                         $delta_offset = 0;
1644                 } elsif ($line =~ /^\@\@ -\d+,\d+ \+\d+,\d+ \@\@/) {    #new hunk
1645                         $range_last_linenr = $new_linenr;
1646                         fixup_current_range(\$line, $delta_offset, 0);
1647                 }
1648
1649                 while (defined($deleted) && ${$deleted}{'LINENR'} == $old_linenr) {
1650                         $deleted = @{$deletedRef}[$next_delete++];
1651                         $save_line = 0;
1652                         fixup_current_range(\$lines[$range_last_linenr], $delta_offset--, -1);
1653                 }
1654
1655                 while (defined($inserted) && ${$inserted}{'LINENR'} == $old_linenr) {
1656                         push(@lines, ${$inserted}{'LINE'});
1657                         $inserted = @{$insertedRef}[$next_insert++];
1658                         $new_linenr++;
1659                         fixup_current_range(\$lines[$range_last_linenr], $delta_offset++, 1);
1660                 }
1661
1662                 if ($save_line) {
1663                         push(@lines, $line);
1664                         $new_linenr++;
1665                 }
1666
1667                 $old_linenr++;
1668         }
1669
1670         return @lines;
1671 }
1672
1673 sub fix_insert_line {
1674         my ($linenr, $line) = @_;
1675
1676         my $inserted = {
1677                 LINENR => $linenr,
1678                 LINE => $line,
1679         };
1680         push(@fixed_inserted, $inserted);
1681 }
1682
1683 sub fix_delete_line {
1684         my ($linenr, $line) = @_;
1685
1686         my $deleted = {
1687                 LINENR => $linenr,
1688                 LINE => $line,
1689         };
1690
1691         push(@fixed_deleted, $deleted);
1692 }
1693
1694 sub ERROR {
1695         my ($type, $msg) = @_;
1696
1697         if (report("ERROR", $type, $msg)) {
1698                 our $clean = 0;
1699                 our $cnt_error++;
1700                 return 1;
1701         }
1702         return 0;
1703 }
1704 sub WARN {
1705         my ($type, $msg) = @_;
1706
1707         if (report("WARNING", $type, $msg)) {
1708                 our $clean = 0;
1709                 our $cnt_warn++;
1710                 return 1;
1711         }
1712         return 0;
1713 }
1714 sub CHK {
1715         my ($type, $msg) = @_;
1716
1717         if ($check && report("CHECK", $type, $msg)) {
1718                 our $clean = 0;
1719                 our $cnt_chk++;
1720                 return 1;
1721         }
1722         return 0;
1723 }
1724
1725 sub check_absolute_file {
1726         my ($absolute, $herecurr) = @_;
1727         my $file = $absolute;
1728
1729         ##print "absolute<$absolute>\n";
1730
1731         # See if any suffix of this path is a path within the tree.
1732         while ($file =~ s@^[^/]*/@@) {
1733                 if (-f "$root/$file") {
1734                         ##print "file<$file>\n";
1735                         last;
1736                 }
1737         }
1738         if (! -f _)  {
1739                 return 0;
1740         }
1741
1742         # It is, so see if the prefix is acceptable.
1743         my $prefix = $absolute;
1744         substr($prefix, -length($file)) = '';
1745
1746         ##print "prefix<$prefix>\n";
1747         if ($prefix ne ".../") {
1748                 WARN("USE_RELATIVE_PATH",
1749                      "use relative pathname instead of absolute in changelog text\n" . $herecurr);
1750         }
1751 }
1752
1753 sub trim {
1754         my ($string) = @_;
1755
1756         $string =~ s/^\s+|\s+$//g;
1757
1758         return $string;
1759 }
1760
1761 sub ltrim {
1762         my ($string) = @_;
1763
1764         $string =~ s/^\s+//;
1765
1766         return $string;
1767 }
1768
1769 sub rtrim {
1770         my ($string) = @_;
1771
1772         $string =~ s/\s+$//;
1773
1774         return $string;
1775 }
1776
1777 sub string_find_replace {
1778         my ($string, $find, $replace) = @_;
1779
1780         $string =~ s/$find/$replace/g;
1781
1782         return $string;
1783 }
1784
1785 sub tabify {
1786         my ($leading) = @_;
1787
1788         my $source_indent = 8;
1789         my $max_spaces_before_tab = $source_indent - 1;
1790         my $spaces_to_tab = " " x $source_indent;
1791
1792         #convert leading spaces to tabs
1793         1 while $leading =~ s@^([\t]*)$spaces_to_tab@$1\t@g;
1794         #Remove spaces before a tab
1795         1 while $leading =~ s@^([\t]*)( {1,$max_spaces_before_tab})\t@$1\t@g;
1796
1797         return "$leading";
1798 }
1799
1800 sub pos_last_openparen {
1801         my ($line) = @_;
1802
1803         my $pos = 0;
1804
1805         my $opens = $line =~ tr/\(/\(/;
1806         my $closes = $line =~ tr/\)/\)/;
1807
1808         my $last_openparen = 0;
1809
1810         if (($opens == 0) || ($closes >= $opens)) {
1811                 return -1;
1812         }
1813
1814         my $len = length($line);
1815
1816         for ($pos = 0; $pos < $len; $pos++) {
1817                 my $string = substr($line, $pos);
1818                 if ($string =~ /^($FuncArg|$balanced_parens)/) {
1819                         $pos += length($1) - 1;
1820                 } elsif (substr($line, $pos, 1) eq '(') {
1821                         $last_openparen = $pos;
1822                 } elsif (index($string, '(') == -1) {
1823                         last;
1824                 }
1825         }
1826
1827         return length(expand_tabs(substr($line, 0, $last_openparen))) + 1;
1828 }
1829
1830 sub process {
1831         my $filename = shift;
1832
1833         my $linenr=0;
1834         my $prevline="";
1835         my $prevrawline="";
1836         my $stashline="";
1837         my $stashrawline="";
1838
1839         my $length;
1840         my $indent;
1841         my $previndent=0;
1842         my $stashindent=0;
1843
1844         our $clean = 1;
1845         my $signoff = 0;
1846         my $is_patch = 0;
1847
1848         my $in_header_lines = $file ? 0 : 1;
1849         my $in_commit_log = 0;          #Scanning lines before patch
1850         my $reported_maintainer_file = 0;
1851         my $non_utf8_charset = 0;
1852
1853         my $last_blank_line = 0;
1854         my $last_coalesced_string_linenr = -1;
1855
1856         our @report = ();
1857         our $cnt_lines = 0;
1858         our $cnt_error = 0;
1859         our $cnt_warn = 0;
1860         our $cnt_chk = 0;
1861
1862         # Trace the real file/line as we go.
1863         my $realfile = '';
1864         my $realline = 0;
1865         my $realcnt = 0;
1866         my $here = '';
1867         my $in_comment = 0;
1868         my $comment_edge = 0;
1869         my $first_line = 0;
1870         my $p1_prefix = '';
1871
1872         my $prev_values = 'E';
1873
1874         # suppression flags
1875         my %suppress_ifbraces;
1876         my %suppress_whiletrailers;
1877         my %suppress_export;
1878         my $suppress_statement = 0;
1879
1880         my %signatures = ();
1881
1882         # Pre-scan the patch sanitizing the lines.
1883         # Pre-scan the patch looking for any __setup documentation.
1884         #
1885         my @setup_docs = ();
1886         my $setup_docs = 0;
1887
1888         my $camelcase_file_seeded = 0;
1889
1890         sanitise_line_reset();
1891         my $line;
1892         foreach my $rawline (@rawlines) {
1893                 $linenr++;
1894                 $line = $rawline;
1895
1896                 push(@fixed, $rawline) if ($fix);
1897
1898                 if ($rawline=~/^\+\+\+\s+(\S+)/) {
1899                         $setup_docs = 0;
1900                         if ($1 =~ m@Documentation/kernel-parameters.txt$@) {
1901                                 $setup_docs = 1;
1902                         }
1903                         #next;
1904                 }
1905                 if ($rawline=~/^\@\@ -\d+(?:,\d+)? \+(\d+)(,(\d+))? \@\@/) {
1906                         $realline=$1-1;
1907                         if (defined $2) {
1908                                 $realcnt=$3+1;
1909                         } else {
1910                                 $realcnt=1+1;
1911                         }
1912                         $in_comment = 0;
1913
1914                         # Guestimate if this is a continuing comment.  Run
1915                         # the context looking for a comment "edge".  If this
1916                         # edge is a close comment then we must be in a comment
1917                         # at context start.
1918                         my $edge;
1919                         my $cnt = $realcnt;
1920                         for (my $ln = $linenr + 1; $cnt > 0; $ln++) {
1921                                 next if (defined $rawlines[$ln - 1] &&
1922                                          $rawlines[$ln - 1] =~ /^-/);
1923                                 $cnt--;
1924                                 #print "RAW<$rawlines[$ln - 1]>\n";
1925                                 last if (!defined $rawlines[$ln - 1]);
1926                                 if ($rawlines[$ln - 1] =~ m@(/\*|\*/)@ &&
1927                                     $rawlines[$ln - 1] !~ m@"[^"]*(?:/\*|\*/)[^"]*"@) {
1928                                         ($edge) = $1;
1929                                         last;
1930                                 }
1931                         }
1932                         if (defined $edge && $edge eq '*/') {
1933                                 $in_comment = 1;
1934                         }
1935
1936                         # Guestimate if this is a continuing comment.  If this
1937                         # is the start of a diff block and this line starts
1938                         # ' *' then it is very likely a comment.
1939                         if (!defined $edge &&
1940                             $rawlines[$linenr] =~ m@^.\s*(?:\*\*+| \*)(?:\s|$)@)
1941                         {
1942                                 $in_comment = 1;
1943                         }
1944
1945                         ##print "COMMENT:$in_comment edge<$edge> $rawline\n";
1946                         sanitise_line_reset($in_comment);
1947
1948                 } elsif ($realcnt && $rawline =~ /^(?:\+| |$)/) {
1949                         # Standardise the strings and chars within the input to
1950                         # simplify matching -- only bother with positive lines.
1951                         $line = sanitise_line($rawline);
1952                 }
1953                 push(@lines, $line);
1954
1955                 if ($realcnt > 1) {
1956                         $realcnt-- if ($line =~ /^(?:\+| |$)/);
1957                 } else {
1958                         $realcnt = 0;
1959                 }
1960
1961                 #print "==>$rawline\n";
1962                 #print "-->$line\n";
1963
1964                 if ($setup_docs && $line =~ /^\+/) {
1965                         push(@setup_docs, $line);
1966                 }
1967         }
1968
1969         $prefix = '';
1970
1971         $realcnt = 0;
1972         $linenr = 0;
1973         $fixlinenr = -1;
1974         foreach my $line (@lines) {
1975                 $linenr++;
1976                 $fixlinenr++;
1977                 my $sline = $line;      #copy of $line
1978                 $sline =~ s/$;/ /g;     #with comments as spaces
1979
1980                 my $rawline = $rawlines[$linenr - 1];
1981
1982 #extract the line range in the file after the patch is applied
1983                 if ($line=~/^\@\@ -\d+(?:,\d+)? \+(\d+)(,(\d+))? \@\@/) {
1984                         $is_patch = 1;
1985                         $first_line = $linenr + 1;
1986                         $realline=$1-1;
1987                         if (defined $2) {
1988                                 $realcnt=$3+1;
1989                         } else {
1990                                 $realcnt=1+1;
1991                         }
1992                         annotate_reset();
1993                         $prev_values = 'E';
1994
1995                         %suppress_ifbraces = ();
1996                         %suppress_whiletrailers = ();
1997                         %suppress_export = ();
1998                         $suppress_statement = 0;
1999                         next;
2000
2001 # track the line number as we move through the hunk, note that
2002 # new versions of GNU diff omit the leading space on completely
2003 # blank context lines so we need to count that too.
2004                 } elsif ($line =~ /^( |\+|$)/) {
2005                         $realline++;
2006                         $realcnt-- if ($realcnt != 0);
2007
2008                         # Measure the line length and indent.
2009                         ($length, $indent) = line_stats($rawline);
2010
2011                         # Track the previous line.
2012                         ($prevline, $stashline) = ($stashline, $line);
2013                         ($previndent, $stashindent) = ($stashindent, $indent);
2014                         ($prevrawline, $stashrawline) = ($stashrawline, $rawline);
2015
2016                         #warn "line<$line>\n";
2017
2018                 } elsif ($realcnt == 1) {
2019                         $realcnt--;
2020                 }
2021
2022                 my $hunk_line = ($realcnt != 0);
2023
2024 #make up the handle for any error we report on this line
2025                 $prefix = "$filename:$realline: " if ($emacs && $file);
2026                 $prefix = "$filename:$linenr: " if ($emacs && !$file);
2027
2028                 $here = "#$linenr: " if (!$file);
2029                 $here = "#$realline: " if ($file);
2030
2031                 my $found_file = 0;
2032                 # extract the filename as it passes
2033                 if ($line =~ /^diff --git.*?(\S+)$/) {
2034                         $realfile = $1;
2035                         $realfile =~ s@^([^/]*)/@@ if (!$file);
2036                         $in_commit_log = 0;
2037                         $found_file = 1;
2038                 } elsif ($line =~ /^\+\+\+\s+(\S+)/) {
2039                         $realfile = $1;
2040                         $realfile =~ s@^([^/]*)/@@ if (!$file);
2041                         $in_commit_log = 0;
2042
2043                         $p1_prefix = $1;
2044                         if (!$file && $tree && $p1_prefix ne '' &&
2045                             -e "$root/$p1_prefix") {
2046                                 WARN("PATCH_PREFIX",
2047                                      "patch prefix '$p1_prefix' exists, appears to be a -p0 patch\n");
2048                         }
2049
2050                         if ($realfile =~ m@^include/asm/@) {
2051                                 ERROR("MODIFIED_INCLUDE_ASM",
2052                                       "do not modify files in include/asm, change architecture specific files in include/asm-<architecture>\n" . "$here$rawline\n");
2053                         }
2054                         $found_file = 1;
2055                 }
2056
2057                 if ($found_file) {
2058                         if ($realfile =~ m@^(drivers/net/|net/)@) {
2059                                 $check = 1;
2060                         } else {
2061                                 $check = $check_orig;
2062                         }
2063                         next;
2064                 }
2065
2066                 $here .= "FILE: $realfile:$realline:" if ($realcnt != 0);
2067
2068                 my $hereline = "$here\n$rawline\n";
2069                 my $herecurr = "$here\n$rawline\n";
2070                 my $hereprev = "$here\n$prevrawline\n$rawline\n";
2071
2072                 $cnt_lines++ if ($realcnt != 0);
2073
2074 # Check for incorrect file permissions
2075                 if ($line =~ /^new (file )?mode.*[7531]\d{0,2}$/) {
2076                         my $permhere = $here . "FILE: $realfile\n";
2077                         if ($realfile !~ m@scripts/@ &&
2078                             $realfile !~ /\.(py|pl|awk|sh)$/) {
2079                                 ERROR("EXECUTE_PERMISSIONS",
2080                                       "do not set execute permissions for source files\n" . $permhere);
2081                         }
2082                 }
2083
2084 # Check the patch for a signoff:
2085                 if ($line =~ /^\s*signed-off-by:/i) {
2086                         $signoff++;
2087                         $in_commit_log = 0;
2088                 }
2089
2090 # Check if MAINTAINERS is being updated.  If so, there's probably no need to
2091 # emit the "does MAINTAINERS need updating?" message on file add/move/delete
2092                 if ($line =~ /^\s*MAINTAINERS\s*\|/) {
2093                         $reported_maintainer_file = 1;
2094                 }
2095
2096 # Check signature styles
2097                 if (!$in_header_lines &&
2098                     $line =~ /^(\s*)([a-z0-9_-]+by:|$signature_tags)(\s*)(.*)/i) {
2099                         my $space_before = $1;
2100                         my $sign_off = $2;
2101                         my $space_after = $3;
2102                         my $email = $4;
2103                         my $ucfirst_sign_off = ucfirst(lc($sign_off));
2104
2105                         if ($sign_off !~ /$signature_tags/) {
2106                                 WARN("BAD_SIGN_OFF",
2107                                      "Non-standard signature: $sign_off\n" . $herecurr);
2108                         }
2109                         if (defined $space_before && $space_before ne "") {
2110                                 if (WARN("BAD_SIGN_OFF",
2111                                          "Do not use whitespace before $ucfirst_sign_off\n" . $herecurr) &&
2112                                     $fix) {
2113                                         $fixed[$fixlinenr] =
2114                                             "$ucfirst_sign_off $email";
2115                                 }
2116                         }
2117                         if ($sign_off =~ /-by:$/i && $sign_off ne $ucfirst_sign_off) {
2118                                 if (WARN("BAD_SIGN_OFF",
2119                                          "'$ucfirst_sign_off' is the preferred signature form\n" . $herecurr) &&
2120                                     $fix) {
2121                                         $fixed[$fixlinenr] =
2122                                             "$ucfirst_sign_off $email";
2123                                 }
2124
2125                         }
2126                         if (!defined $space_after || $space_after ne " ") {
2127                                 if (WARN("BAD_SIGN_OFF",
2128                                          "Use a single space after $ucfirst_sign_off\n" . $herecurr) &&
2129                                     $fix) {
2130                                         $fixed[$fixlinenr] =
2131                                             "$ucfirst_sign_off $email";
2132                                 }
2133                         }
2134
2135                         my ($email_name, $email_address, $comment) = parse_email($email);
2136                         my $suggested_email = format_email(($email_name, $email_address));
2137                         if ($suggested_email eq "") {
2138                                 ERROR("BAD_SIGN_OFF",
2139                                       "Unrecognized email address: '$email'\n" . $herecurr);
2140                         } else {
2141                                 my $dequoted = $suggested_email;
2142                                 $dequoted =~ s/^"//;
2143                                 $dequoted =~ s/" </ </;
2144                                 # Don't force email to have quotes
2145                                 # Allow just an angle bracketed address
2146                                 if ("$dequoted$comment" ne $email &&
2147                                     "<$email_address>$comment" ne $email &&
2148                                     "$suggested_email$comment" ne $email) {
2149                                         WARN("BAD_SIGN_OFF",
2150                                              "email address '$email' might be better as '$suggested_email$comment'\n" . $herecurr);
2151                                 }
2152                         }
2153
2154 # Check for duplicate signatures
2155                         my $sig_nospace = $line;
2156                         $sig_nospace =~ s/\s//g;
2157                         $sig_nospace = lc($sig_nospace);
2158                         if (defined $signatures{$sig_nospace}) {
2159                                 WARN("BAD_SIGN_OFF",
2160                                      "Duplicate signature\n" . $herecurr);
2161                         } else {
2162                                 $signatures{$sig_nospace} = 1;
2163                         }
2164                 }
2165
2166 # Check for old stable address
2167                 if ($line =~ /^\s*cc:\s*.*<?\bstable\@kernel\.org\b>?.*$/i) {
2168                         ERROR("STABLE_ADDRESS",
2169                               "The 'stable' address should be 'stable\@vger.kernel.org'\n" . $herecurr);
2170                 }
2171
2172 # Check for unwanted Gerrit info
2173                 if ($in_commit_log && $line =~ /^\s*change-id:/i) {
2174                         ERROR("GERRIT_CHANGE_ID",
2175                               "Remove Gerrit Change-Id's before submitting upstream.\n" . $herecurr);
2176                 }
2177
2178 # Check for git id commit length and improperly formed commit descriptions
2179                 if ($in_commit_log && $line =~ /\b(c)ommit\s+([0-9a-f]{5,})/i) {
2180                         my $init_char = $1;
2181                         my $orig_commit = lc($2);
2182                         my $short = 1;
2183                         my $long = 0;
2184                         my $case = 1;
2185                         my $space = 1;
2186                         my $hasdesc = 0;
2187                         my $id = '0123456789ab';
2188                         my $orig_desc = "commit description";
2189                         my $description = "";
2190
2191                         $short = 0 if ($line =~ /\bcommit\s+[0-9a-f]{12,40}/i);
2192                         $long = 1 if ($line =~ /\bcommit\s+[0-9a-f]{41,}/i);
2193                         $space = 0 if ($line =~ /\bcommit [0-9a-f]/i);
2194                         $case = 0 if ($line =~ /\b[Cc]ommit\s+[0-9a-f]{5,40}[^A-F]/);
2195                         if ($line =~ /\bcommit\s+[0-9a-f]{5,}\s+\("([^"]+)"\)/i) {
2196                                 $orig_desc = $1;
2197                         } elsif ($line =~ /\bcommit\s+[0-9a-f]{5,}\s*$/i &&
2198                                  defined $rawlines[$linenr] &&
2199                                  $rawlines[$linenr] =~ /^\s*\("([^"]+)"\)/) {
2200                                 $orig_desc = $1;
2201                         }
2202
2203                         ($id, $description) = git_commit_info($orig_commit,
2204                                                               $id, $orig_desc);
2205
2206                         if ($short || $long || $space || $case || ($orig_desc ne $description)) {
2207                                 ERROR("GIT_COMMIT_ID",
2208                                       "Please use git commit description style 'commit <12+ chars of sha1> (\"<title line>\")' - ie: '${init_char}ommit $id (\"$description\")'\n" . $herecurr);
2209                         }
2210                 }
2211
2212 # Check for added, moved or deleted files
2213                 if (!$reported_maintainer_file && !$in_commit_log &&
2214                     ($line =~ /^(?:new|deleted) file mode\s*\d+\s*$/ ||
2215                      $line =~ /^rename (?:from|to) [\w\/\.\-]+\s*$/ ||
2216                      ($line =~ /\{\s*([\w\/\.\-]*)\s*\=\>\s*([\w\/\.\-]*)\s*\}/ &&
2217                       (defined($1) || defined($2))))) {
2218                         $reported_maintainer_file = 1;
2219                         WARN("FILE_PATH_CHANGES",
2220                              "added, moved or deleted file(s), does MAINTAINERS need updating?\n" . $herecurr);
2221                 }
2222
2223 # Check for wrappage within a valid hunk of the file
2224                 if ($realcnt != 0 && $line !~ m{^(?:\+|-| |\\ No newline|$)}) {
2225                         ERROR("CORRUPTED_PATCH",
2226                               "patch seems to be corrupt (line wrapped?)\n" .
2227                                 $herecurr) if (!$emitted_corrupt++);
2228                 }
2229
2230 # Check for absolute kernel paths.
2231                 if ($tree) {
2232                         while ($line =~ m{(?:^|\s)(/\S*)}g) {
2233                                 my $file = $1;
2234
2235                                 if ($file =~ m{^(.*?)(?::\d+)+:?$} &&
2236                                     check_absolute_file($1, $herecurr)) {
2237                                         #
2238                                 } else {
2239                                         check_absolute_file($file, $herecurr);
2240                                 }
2241                         }
2242                 }
2243
2244 # UTF-8 regex found at http://www.w3.org/International/questions/qa-forms-utf-8.en.php
2245                 if (($realfile =~ /^$/ || $line =~ /^\+/) &&
2246                     $rawline !~ m/^$UTF8*$/) {
2247                         my ($utf8_prefix) = ($rawline =~ /^($UTF8*)/);
2248
2249                         my $blank = copy_spacing($rawline);
2250                         my $ptr = substr($blank, 0, length($utf8_prefix)) . "^";
2251                         my $hereptr = "$hereline$ptr\n";
2252
2253                         CHK("INVALID_UTF8",
2254                             "Invalid UTF-8, patch and commit message should be encoded in UTF-8\n" . $hereptr);
2255                 }
2256
2257 # Check if it's the start of a commit log
2258 # (not a header line and we haven't seen the patch filename)
2259                 if ($in_header_lines && $realfile =~ /^$/ &&
2260                     !($rawline =~ /^\s+\S/ ||
2261                       $rawline =~ /^(commit\b|from\b|[\w-]+:).*$/i)) {
2262                         $in_header_lines = 0;
2263                         $in_commit_log = 1;
2264                 }
2265
2266 # Check if there is UTF-8 in a commit log when a mail header has explicitly
2267 # declined it, i.e defined some charset where it is missing.
2268                 if ($in_header_lines &&
2269                     $rawline =~ /^Content-Type:.+charset="(.+)".*$/ &&
2270                     $1 !~ /utf-8/i) {
2271                         $non_utf8_charset = 1;
2272                 }
2273
2274                 if ($in_commit_log && $non_utf8_charset && $realfile =~ /^$/ &&
2275                     $rawline =~ /$NON_ASCII_UTF8/) {
2276                         WARN("UTF8_BEFORE_PATCH",
2277                             "8-bit UTF-8 used in possible commit log\n" . $herecurr);
2278                 }
2279
2280 # Check for various typo / spelling mistakes
2281                 if (defined($misspellings) && ($in_commit_log || $line =~ /^\+/)) {
2282                         while ($rawline =~ /(?:^|[^a-z@])($misspellings)(?:$|[^a-z@])/gi) {
2283                                 my $typo = $1;
2284                                 my $typo_fix = $spelling_fix{lc($typo)};
2285                                 $typo_fix = ucfirst($typo_fix) if ($typo =~ /^[A-Z]/);
2286                                 $typo_fix = uc($typo_fix) if ($typo =~ /^[A-Z]+$/);
2287                                 my $msg_type = \&WARN;
2288                                 $msg_type = \&CHK if ($file);
2289                                 if (&{$msg_type}("TYPO_SPELLING",
2290                                                  "'$typo' may be misspelled - perhaps '$typo_fix'?\n" . $herecurr) &&
2291                                     $fix) {
2292                                         $fixed[$fixlinenr] =~ s/(^|[^A-Za-z@])($typo)($|[^A-Za-z@])/$1$typo_fix$3/;
2293                                 }
2294                         }
2295                 }
2296
2297 # ignore non-hunk lines and lines being removed
2298                 next if (!$hunk_line || $line =~ /^-/);
2299
2300 #trailing whitespace
2301                 if ($line =~ /^\+.*\015/) {
2302                         my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2303                         if (ERROR("DOS_LINE_ENDINGS",
2304                                   "DOS line endings\n" . $herevet) &&
2305                             $fix) {
2306                                 $fixed[$fixlinenr] =~ s/[\s\015]+$//;
2307                         }
2308                 } elsif ($rawline =~ /^\+.*\S\s+$/ || $rawline =~ /^\+\s+$/) {
2309                         my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2310                         if (ERROR("TRAILING_WHITESPACE",
2311                                   "trailing whitespace\n" . $herevet) &&
2312                             $fix) {
2313                                 $fixed[$fixlinenr] =~ s/\s+$//;
2314                         }
2315
2316                         $rpt_cleaners = 1;
2317                 }
2318
2319 # Check for FSF mailing addresses.
2320                 if ($rawline =~ /\bwrite to the Free/i ||
2321                     $rawline =~ /\b59\s+Temple\s+Pl/i ||
2322                     $rawline =~ /\b51\s+Franklin\s+St/i) {
2323                         my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2324                         my $msg_type = \&ERROR;
2325                         $msg_type = \&CHK if ($file);
2326                         &{$msg_type}("FSF_MAILING_ADDRESS",
2327                                      "Do not include the paragraph about writing to the Free Software Foundation's mailing address from the sample GPL notice. The FSF has changed addresses in the past, and may do so again. Linux already includes a copy of the GPL.\n" . $herevet)
2328                 }
2329
2330 # check for Kconfig help text having a real description
2331 # Only applies when adding the entry originally, after that we do not have
2332 # sufficient context to determine whether it is indeed long enough.
2333                 if ($realfile =~ /Kconfig/ &&
2334                     $line =~ /^\+\s*config\s+/) {
2335                         my $length = 0;
2336                         my $cnt = $realcnt;
2337                         my $ln = $linenr + 1;
2338                         my $f;
2339                         my $is_start = 0;
2340                         my $is_end = 0;
2341                         for (; $cnt > 0 && defined $lines[$ln - 1]; $ln++) {
2342                                 $f = $lines[$ln - 1];
2343                                 $cnt-- if ($lines[$ln - 1] !~ /^-/);
2344                                 $is_end = $lines[$ln - 1] =~ /^\+/;
2345
2346                                 next if ($f =~ /^-/);
2347                                 last if (!$file && $f =~ /^\@\@/);
2348
2349                                 if ($lines[$ln - 1] =~ /^\+\s*(?:bool|tristate)\s*\"/) {
2350                                         $is_start = 1;
2351                                 } elsif ($lines[$ln - 1] =~ /^\+\s*(?:---)?help(?:---)?$/) {
2352                                         $length = -1;
2353                                 }
2354
2355                                 $f =~ s/^.//;
2356                                 $f =~ s/#.*//;
2357                                 $f =~ s/^\s+//;
2358                                 next if ($f =~ /^$/);
2359                                 if ($f =~ /^\s*config\s/) {
2360                                         $is_end = 1;
2361                                         last;
2362                                 }
2363                                 $length++;
2364                         }
2365                         if ($is_start && $is_end && $length < $min_conf_desc_length) {
2366                                 WARN("CONFIG_DESCRIPTION",
2367                                      "please write a paragraph that describes the config symbol fully\n" . $herecurr);
2368                         }
2369                         #print "is_start<$is_start> is_end<$is_end> length<$length>\n";
2370                 }
2371
2372 # discourage the addition of CONFIG_EXPERIMENTAL in Kconfig.
2373                 if ($realfile =~ /Kconfig/ &&
2374                     $line =~ /.\s*depends on\s+.*\bEXPERIMENTAL\b/) {
2375                         WARN("CONFIG_EXPERIMENTAL",
2376                              "Use of CONFIG_EXPERIMENTAL is deprecated. For alternatives, see https://lkml.org/lkml/2012/10/23/580\n");
2377                 }
2378
2379 # discourage the use of boolean for type definition attributes of Kconfig options
2380                 if ($realfile =~ /Kconfig/ &&
2381                     $line =~ /^\+\s*\bboolean\b/) {
2382                         WARN("CONFIG_TYPE_BOOLEAN",
2383                              "Use of boolean is deprecated, please use bool instead.\n" . $herecurr);
2384                 }
2385
2386                 if (($realfile =~ /Makefile.*/ || $realfile =~ /Kbuild.*/) &&
2387                     ($line =~ /\+(EXTRA_[A-Z]+FLAGS).*/)) {
2388                         my $flag = $1;
2389                         my $replacement = {
2390                                 'EXTRA_AFLAGS' =>   'asflags-y',
2391                                 'EXTRA_CFLAGS' =>   'ccflags-y',
2392                                 'EXTRA_CPPFLAGS' => 'cppflags-y',
2393                                 'EXTRA_LDFLAGS' =>  'ldflags-y',
2394                         };
2395
2396                         WARN("DEPRECATED_VARIABLE",
2397                              "Use of $flag is deprecated, please use \`$replacement->{$flag} instead.\n" . $herecurr) if ($replacement->{$flag});
2398                 }
2399
2400 # check for DT compatible documentation
2401                 if (defined $root &&
2402                         (($realfile =~ /\.dtsi?$/ && $line =~ /^\+\s*compatible\s*=\s*\"/) ||
2403                          ($realfile =~ /\.[ch]$/ && $line =~ /^\+.*\.compatible\s*=\s*\"/))) {
2404
2405                         my @compats = $rawline =~ /\"([a-zA-Z0-9\-\,\.\+_]+)\"/g;
2406
2407                         my $dt_path = $root . "/Documentation/devicetree/bindings/";
2408                         my $vp_file = $dt_path . "vendor-prefixes.txt";
2409
2410                         foreach my $compat (@compats) {
2411                                 my $compat2 = $compat;
2412                                 $compat2 =~ s/\,[a-zA-Z0-9]*\-/\,<\.\*>\-/;
2413                                 my $compat3 = $compat;
2414                                 $compat3 =~ s/\,([a-z]*)[0-9]*\-/\,$1<\.\*>\-/;
2415                                 `grep -Erq "$compat|$compat2|$compat3" $dt_path`;
2416                                 if ( $? >> 8 ) {
2417                                         WARN("UNDOCUMENTED_DT_STRING",
2418                                              "DT compatible string \"$compat\" appears un-documented -- check $dt_path\n" . $herecurr);
2419                                 }
2420
2421                                 next if $compat !~ /^([a-zA-Z0-9\-]+)\,/;
2422                                 my $vendor = $1;
2423                                 `grep -Eq "^$vendor\\b" $vp_file`;
2424                                 if ( $? >> 8 ) {
2425                                         WARN("UNDOCUMENTED_DT_STRING",
2426                                              "DT compatible string vendor \"$vendor\" appears un-documented -- check $vp_file\n" . $herecurr);
2427                                 }
2428                         }
2429                 }
2430
2431 # check we are in a valid source file if not then ignore this hunk
2432                 next if ($realfile !~ /\.(h|c|s|S|pl|sh|dtsi|dts)$/);
2433
2434 #line length limit
2435                 if ($line =~ /^\+/ && $prevrawline !~ /\/\*\*/ &&
2436                     $rawline !~ /^.\s*\*\s*\@$Ident\s/ &&
2437                     !($line =~ /^\+\s*$logFunctions\s*\(\s*(?:(KERN_\S+\s*|[^"]*))?"[X\t]*"\s*(?:|,|\)\s*;)\s*$/ ||
2438                     $line =~ /^\+\s*"[^"]*"\s*(?:\s*|,|\)\s*;)\s*$/) &&
2439                     $length > $max_line_length)
2440                 {
2441                         WARN("LONG_LINE",
2442                              "line over $max_line_length characters\n" . $herecurr);
2443                 }
2444
2445 # check for adding lines without a newline.
2446                 if ($line =~ /^\+/ && defined $lines[$linenr] && $lines[$linenr] =~ /^\\ No newline at end of file/) {
2447                         WARN("MISSING_EOF_NEWLINE",
2448                              "adding a line without newline at end of file\n" . $herecurr);
2449                 }
2450
2451 # Blackfin: use hi/lo macros
2452                 if ($realfile =~ m@arch/blackfin/.*\.S$@) {
2453                         if ($line =~ /\.[lL][[:space:]]*=.*&[[:space:]]*0x[fF][fF][fF][fF]/) {
2454                                 my $herevet = "$here\n" . cat_vet($line) . "\n";
2455                                 ERROR("LO_MACRO",
2456                                       "use the LO() macro, not (... & 0xFFFF)\n" . $herevet);
2457                         }
2458                         if ($line =~ /\.[hH][[:space:]]*=.*>>[[:space:]]*16/) {
2459                                 my $herevet = "$here\n" . cat_vet($line) . "\n";
2460                                 ERROR("HI_MACRO",
2461                                       "use the HI() macro, not (... >> 16)\n" . $herevet);
2462                         }
2463                 }
2464
2465 # check we are in a valid source file C or perl if not then ignore this hunk
2466                 next if ($realfile !~ /\.(h|c|pl|dtsi|dts)$/);
2467
2468 # at the beginning of a line any tabs must come first and anything
2469 # more than 8 must use tabs.
2470                 if ($rawline =~ /^\+\s* \t\s*\S/ ||
2471                     $rawline =~ /^\+\s*        \s*/) {
2472                         my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2473                         $rpt_cleaners = 1;
2474                         if (ERROR("CODE_INDENT",
2475                                   "code indent should use tabs where possible\n" . $herevet) &&
2476                             $fix) {
2477                                 $fixed[$fixlinenr] =~ s/^\+([ \t]+)/"\+" . tabify($1)/e;
2478                         }
2479                 }
2480
2481 # check for space before tabs.
2482                 if ($rawline =~ /^\+/ && $rawline =~ / \t/) {
2483                         my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2484                         if (WARN("SPACE_BEFORE_TAB",
2485                                 "please, no space before tabs\n" . $herevet) &&
2486                             $fix) {
2487                                 while ($fixed[$fixlinenr] =~
2488                                            s/(^\+.*) {8,8}\t/$1\t\t/) {}
2489                                 while ($fixed[$fixlinenr] =~
2490                                            s/(^\+.*) +\t/$1\t/) {}
2491                         }
2492                 }
2493
2494 # check for && or || at the start of a line
2495                 if ($rawline =~ /^\+\s*(&&|\|\|)/) {
2496                         CHK("LOGICAL_CONTINUATIONS",
2497                             "Logical continuations should be on the previous line\n" . $hereprev);
2498                 }
2499
2500 # check multi-line statement indentation matches previous line
2501                 if ($^V && $^V ge 5.10.0 &&
2502                     $prevline =~ /^\+([ \t]*)((?:$c90_Keywords(?:\s+if)\s*)|(?:$Declare\s*)?(?:$Ident|\(\s*\*\s*$Ident\s*\))\s*|$Ident\s*=\s*$Ident\s*)\(.*(\&\&|\|\||,)\s*$/) {
2503                         $prevline =~ /^\+(\t*)(.*)$/;
2504                         my $oldindent = $1;
2505                         my $rest = $2;
2506
2507                         my $pos = pos_last_openparen($rest);
2508                         if ($pos >= 0) {
2509                                 $line =~ /^(\+| )([ \t]*)/;
2510                                 my $newindent = $2;
2511
2512                                 my $goodtabindent = $oldindent .
2513                                         "\t" x ($pos / 8) .
2514                                         " "  x ($pos % 8);
2515                                 my $goodspaceindent = $oldindent . " "  x $pos;
2516
2517                                 if ($newindent ne $goodtabindent &&
2518                                     $newindent ne $goodspaceindent) {
2519
2520                                         if (CHK("PARENTHESIS_ALIGNMENT",
2521                                                 "Alignment should match open parenthesis\n" . $hereprev) &&
2522                                             $fix && $line =~ /^\+/) {
2523                                                 $fixed[$fixlinenr] =~
2524                                                     s/^\+[ \t]*/\+$goodtabindent/;
2525                                         }
2526                                 }
2527                         }
2528                 }
2529
2530                 if ($line =~ /^\+.*(\w+\s*)?\(\s*$Type\s*\)[ \t]+(?!$Assignment|$Arithmetic|[,;\({\[\<\>])/ &&
2531                     (!defined($1) || $1 !~ /sizeof\s*/)) {
2532                         if (CHK("SPACING",
2533                                 "No space is necessary after a cast\n" . $herecurr) &&
2534                             $fix) {
2535                                 $fixed[$fixlinenr] =~
2536                                     s/(\(\s*$Type\s*\))[ \t]+/$1/;
2537                         }
2538                 }
2539
2540                 if ($realfile =~ m@^(drivers/net/|net/)@ &&
2541                     $prevrawline =~ /^\+[ \t]*\/\*[ \t]*$/ &&
2542                     $rawline =~ /^\+[ \t]*\*/ &&
2543                     $realline > 2) {
2544                         WARN("NETWORKING_BLOCK_COMMENT_STYLE",
2545                              "networking block comments don't use an empty /* line, use /* Comment...\n" . $hereprev);
2546                 }
2547
2548                 if ($realfile =~ m@^(drivers/net/|net/)@ &&
2549                     $prevrawline =~ /^\+[ \t]*\/\*/ &&          #starting /*
2550                     $prevrawline !~ /\*\/[ \t]*$/ &&            #no trailing */
2551                     $rawline =~ /^\+/ &&                        #line is new
2552                     $rawline !~ /^\+[ \t]*\*/) {                #no leading *
2553                         WARN("NETWORKING_BLOCK_COMMENT_STYLE",
2554                              "networking block comments start with * on subsequent lines\n" . $hereprev);
2555                 }
2556
2557                 if ($realfile =~ m@^(drivers/net/|net/)@ &&
2558                     $rawline !~ m@^\+[ \t]*\*/[ \t]*$@ &&       #trailing */
2559                     $rawline !~ m@^\+.*/\*.*\*/[ \t]*$@ &&      #inline /*...*/
2560                     $rawline !~ m@^\+.*\*{2,}/[ \t]*$@ &&       #trailing **/
2561                     $rawline =~ m@^\+[ \t]*.+\*\/[ \t]*$@) {    #non blank */
2562                         WARN("NETWORKING_BLOCK_COMMENT_STYLE",
2563                              "networking block comments put the trailing */ on a separate line\n" . $herecurr);
2564                 }
2565
2566 # check for missing blank lines after struct/union declarations
2567 # with exceptions for various attributes and macros
2568                 if ($prevline =~ /^[\+ ]};?\s*$/ &&
2569                     $line =~ /^\+/ &&
2570                     !($line =~ /^\+\s*$/ ||
2571                       $line =~ /^\+\s*EXPORT_SYMBOL/ ||
2572                       $line =~ /^\+\s*MODULE_/i ||
2573                       $line =~ /^\+\s*\#\s*(?:end|elif|else)/ ||
2574                       $line =~ /^\+[a-z_]*init/ ||
2575                       $line =~ /^\+\s*(?:static\s+)?[A-Z_]*ATTR/ ||
2576                       $line =~ /^\+\s*DECLARE/ ||
2577                       $line =~ /^\+\s*__setup/)) {
2578                         if (CHK("LINE_SPACING",
2579                                 "Please use a blank line after function/struct/union/enum declarations\n" . $hereprev) &&
2580                             $fix) {
2581                                 fix_insert_line($fixlinenr, "\+");
2582                         }
2583                 }
2584
2585 # check for multiple consecutive blank lines
2586                 if ($prevline =~ /^[\+ ]\s*$/ &&
2587                     $line =~ /^\+\s*$/ &&
2588                     $last_blank_line != ($linenr - 1)) {
2589                         if (CHK("LINE_SPACING",
2590                                 "Please don't use multiple blank lines\n" . $hereprev) &&
2591                             $fix) {
2592                                 fix_delete_line($fixlinenr, $rawline);
2593                         }
2594
2595                         $last_blank_line = $linenr;
2596                 }
2597
2598 # check for missing blank lines after declarations
2599                 if ($sline =~ /^\+\s+\S/ &&                     #Not at char 1
2600                         # actual declarations
2601                     ($prevline =~ /^\+\s+$Declare\s*$Ident\s*[=,;:\[]/ ||
2602                         # function pointer declarations
2603                      $prevline =~ /^\+\s+$Declare\s*\(\s*\*\s*$Ident\s*\)\s*[=,;:\[\(]/ ||
2604                         # foo bar; where foo is some local typedef or #define
2605                      $prevline =~ /^\+\s+$Ident(?:\s+|\s*\*\s*)$Ident\s*[=,;\[]/ ||
2606                         # known declaration macros
2607                      $prevline =~ /^\+\s+$declaration_macros/) &&
2608                         # for "else if" which can look like "$Ident $Ident"
2609                     !($prevline =~ /^\+\s+$c90_Keywords\b/ ||
2610                         # other possible extensions of declaration lines
2611                       $prevline =~ /(?:$Compare|$Assignment|$Operators)\s*$/ ||
2612                         # not starting a section or a macro "\" extended line
2613                       $prevline =~ /(?:\{\s*|\\)$/) &&
2614                         # looks like a declaration
2615                     !($sline =~ /^\+\s+$Declare\s*$Ident\s*[=,;:\[]/ ||
2616                         # function pointer declarations
2617                       $sline =~ /^\+\s+$Declare\s*\(\s*\*\s*$Ident\s*\)\s*[=,;:\[\(]/ ||
2618                         # foo bar; where foo is some local typedef or #define
2619                       $sline =~ /^\+\s+$Ident(?:\s+|\s*\*\s*)$Ident\s*[=,;\[]/ ||
2620                         # known declaration macros
2621                       $sline =~ /^\+\s+$declaration_macros/ ||
2622                         # start of struct or union or enum
2623                       $sline =~ /^\+\s+(?:union|struct|enum|typedef)\b/ ||
2624                         # start or end of block or continuation of declaration
2625                       $sline =~ /^\+\s+(?:$|[\{\}\.\#\"\?\:\(\[])/ ||
2626                         # bitfield continuation
2627                       $sline =~ /^\+\s+$Ident\s*:\s*\d+\s*[,;]/ ||
2628                         # other possible extensions of declaration lines
2629                       $sline =~ /^\+\s+\(?\s*(?:$Compare|$Assignment|$Operators)/) &&
2630                         # indentation of previous and current line are the same
2631                     (($prevline =~ /\+(\s+)\S/) && $sline =~ /^\+$1\S/)) {
2632                         if (WARN("LINE_SPACING",
2633                                  "Missing a blank line after declarations\n" . $hereprev) &&
2634                             $fix) {
2635                                 fix_insert_line($fixlinenr, "\+");
2636                         }
2637                 }
2638
2639 # check for spaces at the beginning of a line.
2640 # Exceptions:
2641 #  1) within comments
2642 #  2) indented preprocessor commands
2643 #  3) hanging labels
2644                 if ($rawline =~ /^\+ / && $line !~ /^\+ *(?:$;|#|$Ident:)/)  {
2645                         my $herevet = "$here\n" . cat_vet($rawline) . "\n";
2646                         if (WARN("LEADING_SPACE",
2647                                  "please, no spaces at the start of a line\n" . $herevet) &&
2648                             $fix) {
2649                                 $fixed[$fixlinenr] =~ s/^\+([ \t]+)/"\+" . tabify($1)/e;
2650                         }
2651                 }
2652
2653 # check we are in a valid C source file if not then ignore this hunk
2654                 next if ($realfile !~ /\.(h|c)$/);
2655
2656 # check indentation of any line with a bare else
2657 # (but not if it is a multiple line "if (foo) return bar; else return baz;")
2658 # if the previous line is a break or return and is indented 1 tab more...
2659                 if ($sline =~ /^\+([\t]+)(?:}[ \t]*)?else(?:[ \t]*{)?\s*$/) {
2660                         my $tabs = length($1) + 1;
2661                         if ($prevline =~ /^\+\t{$tabs,$tabs}break\b/ ||
2662                             ($prevline =~ /^\+\t{$tabs,$tabs}return\b/ &&
2663                              defined $lines[$linenr] &&
2664                              $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
2665                                 WARN("UNNECESSARY_ELSE",
2666                                      "else is not generally useful after a break or return\n" . $hereprev);
2667                         }
2668                 }
2669
2670 # check indentation of a line with a break;
2671 # if the previous line is a goto or return and is indented the same # of tabs
2672                 if ($sline =~ /^\+([\t]+)break\s*;\s*$/) {
2673                         my $tabs = $1;
2674                         if ($prevline =~ /^\+$tabs(?:goto|return)\b/) {
2675                                 WARN("UNNECESSARY_BREAK",
2676                                      "break is not useful after a goto or return\n" . $hereprev);
2677                         }
2678                 }
2679
2680 # discourage the addition of CONFIG_EXPERIMENTAL in #if(def).
2681                 if ($line =~ /^\+\s*\#\s*if.*\bCONFIG_EXPERIMENTAL\b/) {
2682                         WARN("CONFIG_EXPERIMENTAL",
2683                              "Use of CONFIG_EXPERIMENTAL is deprecated. For alternatives, see https://lkml.org/lkml/2012/10/23/580\n");
2684                 }
2685
2686 # check for RCS/CVS revision markers
2687                 if ($rawline =~ /^\+.*\$(Revision|Log|Id)(?:\$|)/) {
2688                         WARN("CVS_KEYWORD",
2689                              "CVS style keyword markers, these will _not_ be updated\n". $herecurr);
2690                 }
2691
2692 # Blackfin: don't use __builtin_bfin_[cs]sync
2693                 if ($line =~ /__builtin_bfin_csync/) {
2694                         my $herevet = "$here\n" . cat_vet($line) . "\n";
2695                         ERROR("CSYNC",
2696                               "use the CSYNC() macro in asm/blackfin.h\n" . $herevet);
2697                 }
2698                 if ($line =~ /__builtin_bfin_ssync/) {
2699                         my $herevet = "$here\n" . cat_vet($line) . "\n";
2700                         ERROR("SSYNC",
2701                               "use the SSYNC() macro in asm/blackfin.h\n" . $herevet);
2702                 }
2703
2704 # check for old HOTPLUG __dev<foo> section markings
2705                 if ($line =~ /\b(__dev(init|exit)(data|const|))\b/) {
2706                         WARN("HOTPLUG_SECTION",
2707                              "Using $1 is unnecessary\n" . $herecurr);
2708                 }
2709
2710 # Check for potential 'bare' types
2711                 my ($stat, $cond, $line_nr_next, $remain_next, $off_next,
2712                     $realline_next);
2713 #print "LINE<$line>\n";
2714                 if ($linenr >= $suppress_statement &&
2715                     $realcnt && $sline =~ /.\s*\S/) {
2716                         ($stat, $cond, $line_nr_next, $remain_next, $off_next) =
2717                                 ctx_statement_block($linenr, $realcnt, 0);
2718                         $stat =~ s/\n./\n /g;
2719                         $cond =~ s/\n./\n /g;
2720
2721 #print "linenr<$linenr> <$stat>\n";
2722                         # If this statement has no statement boundaries within
2723                         # it there is no point in retrying a statement scan
2724                         # until we hit end of it.
2725                         my $frag = $stat; $frag =~ s/;+\s*$//;
2726                         if ($frag !~ /(?:{|;)/) {
2727 #print "skip<$line_nr_next>\n";
2728                                 $suppress_statement = $line_nr_next;
2729                         }
2730
2731                         # Find the real next line.
2732                         $realline_next = $line_nr_next;
2733                         if (defined $realline_next &&
2734                             (!defined $lines[$realline_next - 1] ||
2735                              substr($lines[$realline_next - 1], $off_next) =~ /^\s*$/)) {
2736                                 $realline_next++;
2737                         }
2738
2739                         my $s = $stat;
2740                         $s =~ s/{.*$//s;
2741
2742                         # Ignore goto labels.
2743                         if ($s =~ /$Ident:\*$/s) {
2744
2745                         # Ignore functions being called
2746                         } elsif ($s =~ /^.\s*$Ident\s*\(/s) {
2747
2748                         } elsif ($s =~ /^.\s*else\b/s) {
2749
2750                         # declarations always start with types
2751                         } elsif ($prev_values eq 'E' && $s =~ /^.\s*(?:$Storage\s+)?(?:$Inline\s+)?(?:const\s+)?((?:\s*$Ident)+?)\b(?:\s+$Sparse)?\s*\**\s*(?:$Ident|\(\*[^\)]*\))(?:\s*$Modifier)?\s*(?:;|=|,|\()/s) {
2752                                 my $type = $1;
2753                                 $type =~ s/\s+/ /g;
2754                                 possible($type, "A:" . $s);
2755
2756                         # definitions in global scope can only start with types
2757                         } elsif ($s =~ /^.(?:$Storage\s+)?(?:$Inline\s+)?(?:const\s+)?($Ident)\b\s*(?!:)/s) {
2758                                 possible($1, "B:" . $s);
2759                         }
2760
2761                         # any (foo ... *) is a pointer cast, and foo is a type
2762                         while ($s =~ /\(($Ident)(?:\s+$Sparse)*[\s\*]+\s*\)/sg) {
2763                                 possible($1, "C:" . $s);
2764                         }
2765
2766                         # Check for any sort of function declaration.
2767                         # int foo(something bar, other baz);
2768                         # void (*store_gdt)(x86_descr_ptr *);
2769                         if ($prev_values eq 'E' && $s =~ /^(.(?:typedef\s*)?(?:(?:$Storage|$Inline)\s*)*\s*$Type\s*(?:\b$Ident|\(\*\s*$Ident\))\s*)\(/s) {
2770                                 my ($name_len) = length($1);
2771
2772                                 my $ctx = $s;
2773                                 substr($ctx, 0, $name_len + 1, '');
2774                                 $ctx =~ s/\)[^\)]*$//;
2775
2776                                 for my $arg (split(/\s*,\s*/, $ctx)) {
2777                                         if ($arg =~ /^(?:const\s+)?($Ident)(?:\s+$Sparse)*\s*\**\s*(:?\b$Ident)?$/s || $arg =~ /^($Ident)$/s) {
2778
2779                                                 possible($1, "D:" . $s);
2780                                         }
2781                                 }
2782                         }
2783
2784                 }
2785
2786 #
2787 # Checks which may be anchored in the context.
2788 #
2789
2790 # Check for switch () and associated case and default
2791 # statements should be at the same indent.
2792                 if ($line=~/\bswitch\s*\(.*\)/) {
2793                         my $err = '';
2794                         my $sep = '';
2795                         my @ctx = ctx_block_outer($linenr, $realcnt);
2796                         shift(@ctx);
2797                         for my $ctx (@ctx) {
2798                                 my ($clen, $cindent) = line_stats($ctx);
2799                                 if ($ctx =~ /^\+\s*(case\s+|default:)/ &&
2800                                                         $indent != $cindent) {
2801                                         $err .= "$sep$ctx\n";
2802                                         $sep = '';
2803                                 } else {
2804                                         $sep = "[...]\n";
2805                                 }
2806                         }
2807                         if ($err ne '') {
2808                                 ERROR("SWITCH_CASE_INDENT_LEVEL",
2809                                       "switch and case should be at the same indent\n$hereline$err");
2810                         }
2811                 }
2812
2813 # if/while/etc brace do not go on next line, unless defining a do while loop,
2814 # or if that brace on the next line is for something else
2815                 if ($line =~ /(.*)\b((?:if|while|for|switch|(?:[a-z_]+|)for_each[a-z_]+)\s*\(|do\b|else\b)/ && $line !~ /^.\s*\#/) {
2816                         my $pre_ctx = "$1$2";
2817
2818                         my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
2819
2820                         if ($line =~ /^\+\t{6,}/) {
2821                                 WARN("DEEP_INDENTATION",
2822                                      "Too many leading tabs - consider code refactoring\n" . $herecurr);
2823                         }
2824
2825                         my $ctx_cnt = $realcnt - $#ctx - 1;
2826                         my $ctx = join("\n", @ctx);
2827
2828                         my $ctx_ln = $linenr;
2829                         my $ctx_skip = $realcnt;
2830
2831                         while ($ctx_skip > $ctx_cnt || ($ctx_skip == $ctx_cnt &&
2832                                         defined $lines[$ctx_ln - 1] &&
2833                                         $lines[$ctx_ln - 1] =~ /^-/)) {
2834                                 ##print "SKIP<$ctx_skip> CNT<$ctx_cnt>\n";
2835                                 $ctx_skip-- if (!defined $lines[$ctx_ln - 1] || $lines[$ctx_ln - 1] !~ /^-/);
2836                                 $ctx_ln++;
2837                         }
2838
2839                         #print "realcnt<$realcnt> ctx_cnt<$ctx_cnt>\n";
2840                         #print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";
2841
2842                         if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln - 1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
2843                                 ERROR("OPEN_BRACE",
2844                                       "that open brace { should be on the previous line\n" .
2845                                         "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
2846                         }
2847                         if ($level == 0 && $pre_ctx !~ /}\s*while\s*\($/ &&
2848                             $ctx =~ /\)\s*\;\s*$/ &&
2849                             defined $lines[$ctx_ln - 1])
2850                         {
2851                                 my ($nlength, $nindent) = line_stats($lines[$ctx_ln - 1]);
2852                                 if ($nindent > $indent) {
2853                                         WARN("TRAILING_SEMICOLON",
2854                                              "trailing semicolon indicates no statements, indent implies otherwise\n" .
2855                                                 "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
2856                                 }
2857                         }
2858                 }
2859
2860 # Check relative indent for conditionals and blocks.
2861                 if ($line =~ /\b(?:(?:if|while|for|(?:[a-z_]+|)for_each[a-z_]+)\s*\(|do\b)/ && $line !~ /^.\s*#/ && $line !~ /\}\s*while\s*/) {
2862                         ($stat, $cond, $line_nr_next, $remain_next, $off_next) =
2863                                 ctx_statement_block($linenr, $realcnt, 0)
2864                                         if (!defined $stat);
2865                         my ($s, $c) = ($stat, $cond);
2866
2867                         substr($s, 0, length($c), '');
2868
2869                         # Make sure we remove the line prefixes as we have
2870                         # none on the first line, and are going to readd them
2871                         # where necessary.
2872                         $s =~ s/\n./\n/gs;
2873
2874                         # Find out how long the conditional actually is.
2875                         my @newlines = ($c =~ /\n/gs);
2876                         my $cond_lines = 1 + $#newlines;
2877
2878                         # We want to check the first line inside the block
2879                         # starting at the end of the conditional, so remove:
2880                         #  1) any blank line termination
2881                         #  2) any opening brace { on end of the line
2882                         #  3) any do (...) {
2883                         my $continuation = 0;
2884                         my $check = 0;
2885                         $s =~ s/^.*\bdo\b//;
2886                         $s =~ s/^\s*{//;
2887                         if ($s =~ s/^\s*\\//) {
2888                                 $continuation = 1;
2889                         }
2890                         if ($s =~ s/^\s*?\n//) {
2891                                 $check = 1;
2892                                 $cond_lines++;
2893                         }
2894
2895                         # Also ignore a loop construct at the end of a
2896                         # preprocessor statement.
2897                         if (($prevline =~ /^.\s*#\s*define\s/ ||
2898                             $prevline =~ /\\\s*$/) && $continuation == 0) {
2899                                 $check = 0;
2900                         }
2901
2902                         my $cond_ptr = -1;
2903                         $continuation = 0;
2904                         while ($cond_ptr != $cond_lines) {
2905                                 $cond_ptr = $cond_lines;
2906
2907                                 # If we see an #else/#elif then the code
2908                                 # is not linear.
2909                                 if ($s =~ /^\s*\#\s*(?:else|elif)/) {
2910                                         $check = 0;
2911                                 }
2912
2913                                 # Ignore:
2914                                 #  1) blank lines, they should be at 0,
2915                                 #  2) preprocessor lines, and
2916                                 #  3) labels.
2917                                 if ($continuation ||
2918                                     $s =~ /^\s*?\n/ ||
2919                                     $s =~ /^\s*#\s*?/ ||
2920                                     $s =~ /^\s*$Ident\s*:/) {
2921                                         $continuation = ($s =~ /^.*?\\\n/) ? 1 : 0;
2922                                         if ($s =~ s/^.*?\n//) {
2923                                                 $cond_lines++;
2924                                         }
2925                                 }
2926                         }
2927
2928                         my (undef, $sindent) = line_stats("+" . $s);
2929                         my $stat_real = raw_line($linenr, $cond_lines);
2930
2931                         # Check if either of these lines are modified, else
2932                         # this is not this patch's fault.
2933                         if (!defined($stat_real) ||
2934                             $stat !~ /^\+/ && $stat_real !~ /^\+/) {
2935                                 $check = 0;
2936                         }
2937                         if (defined($stat_real) && $cond_lines > 1) {
2938                                 $stat_real = "[...]\n$stat_real";
2939                         }
2940
2941                         #print "line<$line> prevline<$prevline> indent<$indent> sindent<$sindent> check<$check> continuation<$continuation> s<$s> cond_lines<$cond_lines> stat_real<$stat_real> stat<$stat>\n";
2942
2943                         if ($check && (($sindent % 8) != 0 ||
2944                             ($sindent <= $indent && $s ne ''))) {
2945                                 WARN("SUSPECT_CODE_INDENT",
2946                                      "suspect code indent for conditional statements ($indent, $sindent)\n" . $herecurr . "$stat_real\n");
2947                         }
2948                 }
2949
2950                 # Track the 'values' across context and added lines.
2951                 my $opline = $line; $opline =~ s/^./ /;
2952                 my ($curr_values, $curr_vars) =
2953                                 annotate_values($opline . "\n", $prev_values);
2954                 $curr_values = $prev_values . $curr_values;
2955                 if ($dbg_values) {
2956                         my $outline = $opline; $outline =~ s/\t/ /g;
2957                         print "$linenr > .$outline\n";
2958                         print "$linenr > $curr_values\n";
2959                         print "$linenr >  $curr_vars\n";
2960                 }
2961                 $prev_values = substr($curr_values, -1);
2962
2963 #ignore lines not being added
2964                 next if ($line =~ /^[^\+]/);
2965
2966 # TEST: allow direct testing of the type matcher.
2967                 if ($dbg_type) {
2968                         if ($line =~ /^.\s*$Declare\s*$/) {
2969                                 ERROR("TEST_TYPE",
2970                                       "TEST: is type\n" . $herecurr);
2971                         } elsif ($dbg_type > 1 && $line =~ /^.+($Declare)/) {
2972                                 ERROR("TEST_NOT_TYPE",
2973                                       "TEST: is not type ($1 is)\n". $herecurr);
2974                         }
2975                         next;
2976                 }
2977 # TEST: allow direct testing of the attribute matcher.
2978                 if ($dbg_attr) {
2979                         if ($line =~ /^.\s*$Modifier\s*$/) {
2980                                 ERROR("TEST_ATTR",
2981                                       "TEST: is attr\n" . $herecurr);
2982                         } elsif ($dbg_attr > 1 && $line =~ /^.+($Modifier)/) {
2983                                 ERROR("TEST_NOT_ATTR",
2984                                       "TEST: is not attr ($1 is)\n". $herecurr);
2985                         }
2986                         next;
2987                 }
2988
2989 # check for initialisation to aggregates open brace on the next line
2990                 if ($line =~ /^.\s*{/ &&
2991                     $prevline =~ /(?:^|[^=])=\s*$/) {
2992                         if (ERROR("OPEN_BRACE",
2993                                   "that open brace { should be on the previous line\n" . $hereprev) &&
2994                             $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
2995                                 fix_delete_line($fixlinenr - 1, $prevrawline);
2996                                 fix_delete_line($fixlinenr, $rawline);
2997                                 my $fixedline = $prevrawline;
2998                                 $fixedline =~ s/\s*=\s*$/ = {/;
2999                                 fix_insert_line($fixlinenr, $fixedline);
3000                                 $fixedline = $line;
3001                                 $fixedline =~ s/^(.\s*){\s*/$1/;
3002                                 fix_insert_line($fixlinenr, $fixedline);
3003                         }
3004                 }
3005
3006 #
3007 # Checks which are anchored on the added line.
3008 #
3009
3010 # check for malformed paths in #include statements (uses RAW line)
3011                 if ($rawline =~ m{^.\s*\#\s*include\s+[<"](.*)[">]}) {
3012                         my $path = $1;
3013                         if ($path =~ m{//}) {
3014                                 ERROR("MALFORMED_INCLUDE",
3015                                       "malformed #include filename\n" . $herecurr);
3016                         }
3017                         if ($path =~ "^uapi/" && $realfile =~ m@\binclude/uapi/@) {
3018                                 ERROR("UAPI_INCLUDE",
3019                                       "No #include in ...include/uapi/... should use a uapi/ path prefix\n" . $herecurr);
3020                         }
3021                 }
3022
3023 # no C99 // comments
3024                 if ($line =~ m{//}) {
3025                         if (ERROR("C99_COMMENTS",
3026                                   "do not use C99 // comments\n" . $herecurr) &&
3027                             $fix) {
3028                                 my $line = $fixed[$fixlinenr];
3029                                 if ($line =~ /\/\/(.*)$/) {
3030                                         my $comment = trim($1);
3031                                         $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;
3032                                 }
3033                         }
3034                 }
3035                 # Remove C99 comments.
3036                 $line =~ s@//.*@@;
3037                 $opline =~ s@//.*@@;
3038
3039 # EXPORT_SYMBOL should immediately follow the thing it is exporting, consider
3040 # the whole statement.
3041 #print "APW <$lines[$realline_next - 1]>\n";
3042                 if (defined $realline_next &&
3043                     exists $lines[$realline_next - 1] &&
3044                     !defined $suppress_export{$realline_next} &&
3045                     ($lines[$realline_next - 1] =~ /EXPORT_SYMBOL.*\((.*)\)/ ||
3046                      $lines[$realline_next - 1] =~ /EXPORT_UNUSED_SYMBOL.*\((.*)\)/)) {
3047                         # Handle definitions which produce identifiers with
3048                         # a prefix:
3049                         #   XXX(foo);
3050                         #   EXPORT_SYMBOL(something_foo);
3051                         my $name = $1;
3052                         if ($stat =~ /^(?:.\s*}\s*\n)?.([A-Z_]+)\s*\(\s*($Ident)/ &&
3053                             $name =~ /^${Ident}_$2/) {
3054 #print "FOO C name<$name>\n";
3055                                 $suppress_export{$realline_next} = 1;
3056
3057                         } elsif ($stat !~ /(?:
3058                                 \n.}\s*$|
3059                                 ^.DEFINE_$Ident\(\Q$name\E\)|
3060                                 ^.DECLARE_$Ident\(\Q$name\E\)|
3061                                 ^.LIST_HEAD\(\Q$name\E\)|
3062                                 ^.(?:$Storage\s+)?$Type\s*\(\s*\*\s*\Q$name\E\s*\)\s*\(|
3063                                 \b\Q$name\E(?:\s+$Attribute)*\s*(?:;|=|\[|\()
3064                             )/x) {
3065 #print "FOO A<$lines[$realline_next - 1]> stat<$stat> name<$name>\n";
3066                                 $suppress_export{$realline_next} = 2;
3067                         } else {
3068                                 $suppress_export{$realline_next} = 1;
3069                         }
3070                 }
3071                 if (!defined $suppress_export{$linenr} &&
3072                     $prevline =~ /^.\s*$/ &&
3073                     ($line =~ /EXPORT_SYMBOL.*\((.*)\)/ ||
3074                      $line =~ /EXPORT_UNUSED_SYMBOL.*\((.*)\)/)) {
3075 #print "FOO B <$lines[$linenr - 1]>\n";
3076                         $suppress_export{$linenr} = 2;
3077                 }
3078                 if (defined $suppress_export{$linenr} &&
3079                     $suppress_export{$linenr} == 2) {
3080                         WARN("EXPORT_SYMBOL",
3081                              "EXPORT_SYMBOL(foo); should immediately follow its function/variable\n" . $herecurr);
3082                 }
3083
3084 # check for global initialisers.
3085                 if ($line =~ /^\+(\s*$Type\s*$Ident\s*(?:\s+$Modifier))*\s*=\s*(0|NULL|false)\s*;/) {
3086                         if (ERROR("GLOBAL_INITIALISERS",
3087                                   "do not initialise globals to 0 or NULL\n" .
3088                                       $herecurr) &&
3089                             $fix) {
3090                                 $fixed[$fixlinenr] =~ s/($Type\s*$Ident\s*(?:\s+$Modifier))*\s*=\s*(0|NULL|false)\s*;/$1;/;
3091                         }
3092                 }
3093 # check for static initialisers.
3094                 if ($line =~ /^\+.*\bstatic\s.*=\s*(0|NULL|false)\s*;/) {
3095                         if (ERROR("INITIALISED_STATIC",
3096                                   "do not initialise statics to 0 or NULL\n" .
3097                                       $herecurr) &&
3098                             $fix) {
3099                                 $fixed[$fixlinenr] =~ s/(\bstatic\s.*?)\s*=\s*(0|NULL|false)\s*;/$1;/;
3100                         }
3101                 }
3102
3103 # check for misordered declarations of char/short/int/long with signed/unsigned
3104                 while ($sline =~ m{(\b$TypeMisordered\b)}g) {
3105                         my $tmp = trim($1);
3106                         WARN("MISORDERED_TYPE",
3107                              "type '$tmp' should be specified in [[un]signed] [short|int|long|long long] order\n" . $herecurr);
3108                 }
3109
3110 # check for static const char * arrays.
3111                 if ($line =~ /\bstatic\s+const\s+char\s*\*\s*(\w+)\s*\[\s*\]\s*=\s*/) {
3112                         WARN("STATIC_CONST_CHAR_ARRAY",
3113                              "static const char * array should probably be static const char * const\n" .
3114                                 $herecurr);
3115                }
3116
3117 # check for static char foo[] = "bar" declarations.
3118                 if ($line =~ /\bstatic\s+char\s+(\w+)\s*\[\s*\]\s*=\s*"/) {
3119                         WARN("STATIC_CONST_CHAR_ARRAY",
3120                              "static char array declaration should probably be static const char\n" .
3121                                 $herecurr);
3122                }
3123
3124 # check for non-global char *foo[] = {"bar", ...} declarations.
3125                 if ($line =~ /^.\s+(?:static\s+|const\s+)?char\s+\*\s*\w+\s*\[\s*\]\s*=\s*\{/) {
3126                         WARN("STATIC_CONST_CHAR_ARRAY",
3127                              "char * array declaration might be better as static const\n" .
3128                                 $herecurr);
3129                }
3130
3131 # check for function declarations without arguments like "int foo()"
3132                 if ($line =~ /(\b$Type\s+$Ident)\s*\(\s*\)/) {
3133                         if (ERROR("FUNCTION_WITHOUT_ARGS",
3134                                   "Bad function definition - $1() should probably be $1(void)\n" . $herecurr) &&
3135                             $fix) {
3136                                 $fixed[$fixlinenr] =~ s/(\b($Type)\s+($Ident))\s*\(\s*\)/$2 $3(void)/;
3137                         }
3138                 }
3139
3140 # check for uses of DEFINE_PCI_DEVICE_TABLE
3141                 if ($line =~ /\bDEFINE_PCI_DEVICE_TABLE\s*\(\s*(\w+)\s*\)\s*=/) {
3142                         if (WARN("DEFINE_PCI_DEVICE_TABLE",
3143                                  "Prefer struct pci_device_id over deprecated DEFINE_PCI_DEVICE_TABLE\n" . $herecurr) &&
3144                             $fix) {
3145                                 $fixed[$fixlinenr] =~ s/\b(?:static\s+|)DEFINE_PCI_DEVICE_TABLE\s*\(\s*(\w+)\s*\)\s*=\s*/static const struct pci_device_id $1\[\] = /;
3146                         }
3147                 }
3148
3149 # check for new typedefs, only function parameters and sparse annotations
3150 # make sense.
3151                 if ($line =~ /\btypedef\s/ &&
3152                     $line !~ /\btypedef\s+$Type\s*\(\s*\*?$Ident\s*\)\s*\(/ &&
3153                     $line !~ /\btypedef\s+$Type\s+$Ident\s*\(/ &&
3154                     $line !~ /\b$typeTypedefs\b/ &&
3155                     $line !~ /\b__bitwise(?:__|)\b/) {
3156                         WARN("NEW_TYPEDEFS",
3157                              "do not add new typedefs\n" . $herecurr);
3158                 }
3159
3160 # * goes on variable not on type
3161                 # (char*[ const])
3162                 while ($line =~ m{(\($NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)\))}g) {
3163                         #print "AA<$1>\n";
3164                         my ($ident, $from, $to) = ($1, $2, $2);
3165
3166                         # Should start with a space.
3167                         $to =~ s/^(\S)/ $1/;
3168                         # Should not end with a space.
3169                         $to =~ s/\s+$//;
3170                         # '*'s should not have spaces between.
3171                         while ($to =~ s/\*\s+\*/\*\*/) {
3172                         }
3173
3174 ##                      print "1: from<$from> to<$to> ident<$ident>\n";
3175                         if ($from ne $to) {
3176                                 if (ERROR("POINTER_LOCATION",
3177                                           "\"(foo$from)\" should be \"(foo$to)\"\n" .  $herecurr) &&
3178                                     $fix) {
3179                                         my $sub_from = $ident;
3180                                         my $sub_to = $ident;
3181                                         $sub_to =~ s/\Q$from\E/$to/;
3182                                         $fixed[$fixlinenr] =~
3183                                             s@\Q$sub_from\E@$sub_to@;
3184                                 }
3185                         }
3186                 }
3187                 while ($line =~ m{(\b$NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)($Ident))}g) {
3188                         #print "BB<$1>\n";
3189                         my ($match, $from, $to, $ident) = ($1, $2, $2, $3);
3190
3191                         # Should start with a space.
3192                         $to =~ s/^(\S)/ $1/;
3193                         # Should not end with a space.
3194                         $to =~ s/\s+$//;
3195                         # '*'s should not have spaces between.
3196                         while ($to =~ s/\*\s+\*/\*\*/) {
3197                         }
3198                         # Modifiers should have spaces.
3199                         $to =~ s/(\b$Modifier$)/$1 /;
3200
3201 ##                      print "2: from<$from> to<$to> ident<$ident>\n";
3202                         if ($from ne $to && $ident !~ /^$Modifier$/) {
3203                                 if (ERROR("POINTER_LOCATION",
3204                                           "\"foo${from}bar\" should be \"foo${to}bar\"\n" .  $herecurr) &&
3205                                     $fix) {
3206
3207                                         my $sub_from = $match;
3208                                         my $sub_to = $match;
3209                                         $sub_to =~ s/\Q$from\E/$to/;
3210                                         $fixed[$fixlinenr] =~
3211                                             s@\Q$sub_from\E@$sub_to@;
3212                                 }
3213                         }
3214                 }
3215
3216 # # no BUG() or BUG_ON()
3217 #               if ($line =~ /\b(BUG|BUG_ON)\b/) {
3218 #                       print "Try to use WARN_ON & Recovery code rather than BUG() or BUG_ON()\n";
3219 #                       print "$herecurr";
3220 #                       $clean = 0;
3221 #               }
3222
3223                 if ($line =~ /\bLINUX_VERSION_CODE\b/) {
3224                         WARN("LINUX_VERSION_CODE",
3225                              "LINUX_VERSION_CODE should be avoided, code should be for the version to which it is merged\n" . $herecurr);
3226                 }
3227
3228 # check for uses of printk_ratelimit
3229                 if ($line =~ /\bprintk_ratelimit\s*\(/) {
3230                         WARN("PRINTK_RATELIMITED",
3231 "Prefer printk_ratelimited or pr_<level>_ratelimited to printk_ratelimit\n" . $herecurr);
3232                 }
3233
3234 # printk should use KERN_* levels.  Note that follow on printk's on the
3235 # same line do not need a level, so we use the current block context
3236 # to try and find and validate the current printk.  In summary the current
3237 # printk includes all preceding printk's which have no newline on the end.
3238 # we assume the first bad printk is the one to report.
3239                 if ($line =~ /\bprintk\((?!KERN_)\s*"/) {
3240                         my $ok = 0;
3241                         for (my $ln = $linenr - 1; $ln >= $first_line; $ln--) {
3242                                 #print "CHECK<$lines[$ln - 1]\n";
3243                                 # we have a preceding printk if it ends
3244                                 # with "\n" ignore it, else it is to blame
3245                                 if ($lines[$ln - 1] =~ m{\bprintk\(}) {
3246                                         if ($rawlines[$ln - 1] !~ m{\\n"}) {
3247                                                 $ok = 1;
3248                                         }
3249                                         last;
3250                                 }
3251                         }
3252                         if ($ok == 0) {
3253                                 WARN("PRINTK_WITHOUT_KERN_LEVEL",
3254                                      "printk() should include KERN_ facility level\n" . $herecurr);
3255                         }
3256                 }
3257
3258                 if ($line =~ /\bprintk\s*\(\s*KERN_([A-Z]+)/) {
3259                         my $orig = $1;
3260                         my $level = lc($orig);
3261                         $level = "warn" if ($level eq "warning");
3262                         my $level2 = $level;
3263                         $level2 = "dbg" if ($level eq "debug");
3264                         WARN("PREFER_PR_LEVEL",
3265                              "Prefer [subsystem eg: netdev]_$level2([subsystem]dev, ... then dev_$level2(dev, ... then pr_$level(...  to printk(KERN_$orig ...\n" . $herecurr);
3266                 }
3267
3268                 if ($line =~ /\bpr_warning\s*\(/) {
3269                         if (WARN("PREFER_PR_LEVEL",
3270                                  "Prefer pr_warn(... to pr_warning(...\n" . $herecurr) &&
3271                             $fix) {
3272                                 $fixed[$fixlinenr] =~
3273                                     s/\bpr_warning\b/pr_warn/;
3274                         }
3275                 }
3276
3277                 if ($line =~ /\bdev_printk\s*\(\s*KERN_([A-Z]+)/) {
3278                         my $orig = $1;
3279                         my $level = lc($orig);
3280                         $level = "warn" if ($level eq "warning");
3281                         $level = "dbg" if ($level eq "debug");
3282                         WARN("PREFER_DEV_LEVEL",
3283                              "Prefer dev_$level(... to dev_printk(KERN_$orig, ...\n" . $herecurr);
3284                 }
3285
3286 # function brace can't be on same line, except for #defines of do while,
3287 # or if closed on same line
3288                 if (($line=~/$Type\s*$Ident\(.*\).*\s*{/) and
3289                     !($line=~/\#\s*define.*do\s{/) and !($line=~/}/)) {
3290                         if (ERROR("OPEN_BRACE",
3291                                   "open brace '{' following function declarations go on the next line\n" . $herecurr) &&
3292                             $fix) {
3293                                 fix_delete_line($fixlinenr, $rawline);
3294                                 my $fixed_line = $rawline;
3295                                 $fixed_line =~ /(^..*$Type\s*$Ident\(.*\)\s*){(.*)$/;
3296                                 my $line1 = $1;
3297                                 my $line2 = $2;
3298                                 fix_insert_line($fixlinenr, ltrim($line1));
3299                                 fix_insert_line($fixlinenr, "\+{");
3300                                 if ($line2 !~ /^\s*$/) {
3301                                         fix_insert_line($fixlinenr, "\+\t" . trim($line2));
3302                                 }
3303                         }
3304                 }
3305
3306 # open braces for enum, union and struct go on the same line.
3307                 if ($line =~ /^.\s*{/ &&
3308                     $prevline =~ /^.\s*(?:typedef\s+)?(enum|union|struct)(?:\s+$Ident)?\s*$/) {
3309                         if (ERROR("OPEN_BRACE",
3310                                   "open brace '{' following $1 go on the same line\n" . $hereprev) &&
3311                             $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
3312                                 fix_delete_line($fixlinenr - 1, $prevrawline);
3313                                 fix_delete_line($fixlinenr, $rawline);
3314                                 my $fixedline = rtrim($prevrawline) . " {";
3315                                 fix_insert_line($fixlinenr, $fixedline);
3316                                 $fixedline = $rawline;
3317                                 $fixedline =~ s/^(.\s*){\s*/$1\t/;
3318                                 if ($fixedline !~ /^\+\s*$/) {
3319                                         fix_insert_line($fixlinenr, $fixedline);
3320                                 }
3321                         }
3322                 }
3323
3324 # missing space after union, struct or enum definition
3325                 if ($line =~ /^.\s*(?:typedef\s+)?(enum|union|struct)(?:\s+$Ident){1,2}[=\{]/) {
3326                         if (WARN("SPACING",
3327                                  "missing space after $1 definition\n" . $herecurr) &&
3328                             $fix) {
3329                                 $fixed[$fixlinenr] =~
3330                                     s/^(.\s*(?:typedef\s+)?(?:enum|union|struct)(?:\s+$Ident){1,2})([=\{])/$1 $2/;
3331                         }
3332                 }
3333
3334 # Function pointer declarations
3335 # check spacing between type, funcptr, and args
3336 # canonical declaration is "type (*funcptr)(args...)"
3337                 if ($line =~ /^.\s*($Declare)\((\s*)\*(\s*)($Ident)(\s*)\)(\s*)\(/) {
3338                         my $declare = $1;
3339                         my $pre_pointer_space = $2;
3340                         my $post_pointer_space = $3;
3341                         my $funcname = $4;
3342                         my $post_funcname_space = $5;
3343                         my $pre_args_space = $6;
3344
3345 # the $Declare variable will capture all spaces after the type
3346 # so check it for a missing trailing missing space but pointer return types
3347 # don't need a space so don't warn for those.
3348                         my $post_declare_space = "";
3349                         if ($declare =~ /(\s+)$/) {
3350                                 $post_declare_space = $1;
3351                                 $declare = rtrim($declare);
3352                         }
3353                         if ($declare !~ /\*$/ && $post_declare_space =~ /^$/) {
3354                                 WARN("SPACING",
3355                                      "missing space after return type\n" . $herecurr);
3356                                 $post_declare_space = " ";
3357                         }
3358
3359 # unnecessary space "type  (*funcptr)(args...)"
3360 # This test is not currently implemented because these declarations are
3361 # equivalent to
3362 #       int  foo(int bar, ...)
3363 # and this is form shouldn't/doesn't generate a checkpatch warning.
3364 #
3365 #                       elsif ($declare =~ /\s{2,}$/) {
3366 #                               WARN("SPACING",
3367 #                                    "Multiple spaces after return type\n" . $herecurr);
3368 #                       }
3369
3370 # unnecessary space "type ( *funcptr)(args...)"
3371                         if (defined $pre_pointer_space &&
3372                             $pre_pointer_space =~ /^\s/) {
3373                                 WARN("SPACING",
3374                                      "Unnecessary space after function pointer open parenthesis\n" . $herecurr);
3375                         }
3376
3377 # unnecessary space "type (* funcptr)(args...)"
3378                         if (defined $post_pointer_space &&
3379                             $post_pointer_space =~ /^\s/) {
3380                                 WARN("SPACING",
3381                                      "Unnecessary space before function pointer name\n" . $herecurr);
3382                         }
3383
3384 # unnecessary space "type (*funcptr )(args...)"
3385                         if (defined $post_funcname_space &&
3386                             $post_funcname_space =~ /^\s/) {
3387                                 WARN("SPACING",
3388                                      "Unnecessary space after function pointer name\n" . $herecurr);
3389                         }
3390
3391 # unnecessary space "type (*funcptr) (args...)"
3392                         if (defined $pre_args_space &&
3393                             $pre_args_space =~ /^\s/) {
3394                                 WARN("SPACING",
3395                                      "Unnecessary space before function pointer arguments\n" . $herecurr);
3396                         }
3397
3398                         if (show_type("SPACING") && $fix) {
3399                                 $fixed[$fixlinenr] =~
3400                                     s/^(.\s*)$Declare\s*\(\s*\*\s*$Ident\s*\)\s*\(/$1 . $declare . $post_declare_space . '(*' . $funcname . ')('/ex;
3401                         }
3402                 }
3403
3404 # check for spacing round square brackets; allowed:
3405 #  1. with a type on the left -- int [] a;
3406 #  2. at the beginning of a line for slice initialisers -- [0...10] = 5,
3407 #  3. inside a curly brace -- = { [0...10] = 5 }
3408                 while ($line =~ /(.*?\s)\[/g) {
3409                         my ($where, $prefix) = ($-[1], $1);
3410                         if ($prefix !~ /$Type\s+$/ &&
3411                             ($where != 0 || $prefix !~ /^.\s+$/) &&
3412                             $prefix !~ /[{,]\s+$/) {
3413                                 if (ERROR("BRACKET_SPACE",
3414                                           "space prohibited before open square bracket '['\n" . $herecurr) &&
3415                                     $fix) {
3416                                     $fixed[$fixlinenr] =~
3417                                         s/^(\+.*?)\s+\[/$1\[/;
3418                                 }
3419                         }
3420                 }
3421
3422 # check for spaces between functions and their parentheses.
3423                 while ($line =~ /($Ident)\s+\(/g) {
3424                         my $name = $1;
3425                         my $ctx_before = substr($line, 0, $-[1]);
3426                         my $ctx = "$ctx_before$name";
3427
3428                         # Ignore those directives where spaces _are_ permitted.
3429                         if ($name =~ /^(?:
3430                                 if|for|while|switch|return|case|
3431                                 volatile|__volatile__|
3432                                 __attribute__|format|__extension__|
3433                                 asm|__asm__)$/x)
3434                         {
3435                         # cpp #define statements have non-optional spaces, ie
3436                         # if there is a space between the name and the open
3437                         # parenthesis it is simply not a parameter group.
3438                         } elsif ($ctx_before =~ /^.\s*\#\s*define\s*$/) {
3439
3440                         # cpp #elif statement condition may start with a (
3441                         } elsif ($ctx =~ /^.\s*\#\s*elif\s*$/) {
3442
3443                         # If this whole things ends with a type its most
3444                         # likely a typedef for a function.
3445                         } elsif ($ctx =~ /$Type$/) {
3446
3447                         } else {
3448                                 if (WARN("SPACING",
3449                                          "space prohibited between function name and open parenthesis '('\n" . $herecurr) &&
3450                                              $fix) {
3451                                         $fixed[$fixlinenr] =~
3452                                             s/\b$name\s+\(/$name\(/;
3453                                 }
3454                         }
3455                 }
3456
3457 # Check operator spacing.
3458                 if (!($line=~/\#\s*include/)) {
3459                         my $fixed_line = "";
3460                         my $line_fixed = 0;
3461
3462                         my $ops = qr{
3463                                 <<=|>>=|<=|>=|==|!=|
3464                                 \+=|-=|\*=|\/=|%=|\^=|\|=|&=|
3465                                 =>|->|<<|>>|<|>|=|!|~|
3466                                 &&|\|\||,|\^|\+\+|--|&|\||\+|-|\*|\/|%|
3467                                 \?:|\?|:
3468                         }x;
3469                         my @elements = split(/($ops|;)/, $opline);
3470
3471 ##                      print("element count: <" . $#elements . ">\n");
3472 ##                      foreach my $el (@elements) {
3473 ##                              print("el: <$el>\n");
3474 ##                      }
3475
3476                         my @fix_elements = ();
3477                         my $off = 0;
3478
3479                         foreach my $el (@elements) {
3480                                 push(@fix_elements, substr($rawline, $off, length($el)));
3481                                 $off += length($el);
3482                         }
3483
3484                         $off = 0;
3485
3486                         my $blank = copy_spacing($opline);
3487                         my $last_after = -1;
3488
3489                         for (my $n = 0; $n < $#elements; $n += 2) {
3490
3491                                 my $good = $fix_elements[$n] . $fix_elements[$n + 1];
3492
3493 ##                              print("n: <$n> good: <$good>\n");
3494
3495                                 $off += length($elements[$n]);
3496
3497                                 # Pick up the preceding and succeeding characters.
3498                                 my $ca = substr($opline, 0, $off);
3499                                 my $cc = '';
3500                                 if (length($opline) >= ($off + length($elements[$n + 1]))) {
3501                                         $cc = substr($opline, $off + length($elements[$n + 1]));
3502                                 }
3503                                 my $cb = "$ca$;$cc";
3504
3505                                 my $a = '';
3506                                 $a = 'V' if ($elements[$n] ne '');
3507                                 $a = 'W' if ($elements[$n] =~ /\s$/);
3508                                 $a = 'C' if ($elements[$n] =~ /$;$/);
3509                                 $a = 'B' if ($elements[$n] =~ /(\[|\()$/);
3510                                 $a = 'O' if ($elements[$n] eq '');
3511                                 $a = 'E' if ($ca =~ /^\s*$/);
3512
3513                                 my $op = $elements[$n + 1];
3514
3515                                 my $c = '';
3516                                 if (defined $elements[$n + 2]) {
3517                                         $c = 'V' if ($elements[$n + 2] ne '');
3518                                         $c = 'W' if ($elements[$n + 2] =~ /^\s/);
3519                                         $c = 'C' if ($elements[$n + 2] =~ /^$;/);
3520                                         $c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
3521                                         $c = 'O' if ($elements[$n + 2] eq '');
3522                                         $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
3523                                 } else {
3524                                         $c = 'E';
3525                                 }
3526
3527                                 my $ctx = "${a}x${c}";
3528
3529                                 my $at = "(ctx:$ctx)";
3530
3531                                 my $ptr = substr($blank, 0, $off) . "^";
3532                                 my $hereptr = "$hereline$ptr\n";
3533
3534                                 # Pull out the value of this operator.
3535                                 my $op_type = substr($curr_values, $off + 1, 1);
3536
3537                                 # Get the full operator variant.
3538                                 my $opv = $op . substr($curr_vars, $off, 1);
3539
3540                                 # Ignore operators passed as parameters.
3541                                 if ($op_type ne 'V' &&
3542                                     $ca =~ /\s$/ && $cc =~ /^\s*,/) {
3543
3544 #                               # Ignore comments
3545 #                               } elsif ($op =~ /^$;+$/) {
3546
3547                                 # ; should have either the end of line or a space or \ after it
3548                                 } elsif ($op eq ';') {
3549                                         if ($ctx !~ /.x[WEBC]/ &&
3550                                             $cc !~ /^\\/ && $cc !~ /^;/) {
3551                                                 if (ERROR("SPACING",
3552                                                           "space required after that '$op' $at\n" . $hereptr)) {
3553                                                         $good = $fix_elements[$n] . trim($fix_elements[$n + 1]) . " ";
3554                                                         $line_fixed = 1;
3555                                                 }
3556                                         }
3557
3558                                 # // is a comment
3559                                 } elsif ($op eq '//') {
3560
3561                                 #   :   when part of a bitfield
3562                                 } elsif ($opv eq ':B') {
3563                                         # skip the bitfield test for now
3564
3565                                 # No spaces for:
3566                                 #   ->
3567                                 } elsif ($op eq '->') {
3568                                         if ($ctx =~ /Wx.|.xW/) {
3569                                                 if (ERROR("SPACING",
3570                                                           "spaces prohibited around that '$op' $at\n" . $hereptr)) {
3571                                                         $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]);
3572                                                         if (defined $fix_elements[$n + 2]) {
3573                                                                 $fix_elements[$n + 2] =~ s/^\s+//;
3574                                                         }
3575                                                         $line_fixed = 1;
3576                                                 }
3577                                         }
3578
3579                                 # , must not have a space before and must have a space on the right.
3580                                 } elsif ($op eq ',') {
3581                                         my $rtrim_before = 0;
3582                                         my $space_after = 0;
3583                                         if ($ctx =~ /Wx./) {
3584                                                 if (ERROR("SPACING",
3585                                                           "space prohibited before that '$op' $at\n" . $hereptr)) {
3586                                                         $line_fixed = 1;
3587                                                         $rtrim_before = 1;
3588                                                 }
3589                                         }
3590                                         if ($ctx !~ /.x[WEC]/ && $cc !~ /^}/) {
3591                                                 if (ERROR("SPACING",
3592                                                           "space required after that '$op' $at\n" . $hereptr)) {
3593                                                         $line_fixed = 1;
3594                                                         $last_after = $n;
3595                                                         $space_after = 1;
3596                                                 }
3597                                         }
3598                                         if ($rtrim_before || $space_after) {
3599                                                 if ($rtrim_before) {
3600                                                         $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]);
3601                                                 } else {
3602                                                         $good = $fix_elements[$n] . trim($fix_elements[$n + 1]);
3603                                                 }
3604                                                 if ($space_after) {
3605                                                         $good .= " ";
3606                                                 }
3607                                         }
3608
3609                                 # '*' as part of a type definition -- reported already.
3610                                 } elsif ($opv eq '*_') {
3611                                         #warn "'*' is part of type\n";
3612
3613                                 # unary operators should have a space before and
3614                                 # none after.  May be left adjacent to another
3615                                 # unary operator, or a cast
3616                                 } elsif ($op eq '!' || $op eq '~' ||
3617                                          $opv eq '*U' || $opv eq '-U' ||
3618                                          $opv eq '&U' || $opv eq '&&U') {
3619                                         if ($ctx !~ /[WEBC]x./ && $ca !~ /(?:\)|!|~|\*|-|\&|\||\+\+|\-\-|\{)$/) {
3620                                                 if (ERROR("SPACING",
3621                                                           "space required before that '$op' $at\n" . $hereptr)) {
3622                                                         if ($n != $last_after + 2) {
3623                                                                 $good = $fix_elements[$n] . " " . ltrim($fix_elements[$n + 1]);
3624                                                                 $line_fixed = 1;
3625                                                         }
3626                                                 }
3627                                         }
3628                                         if ($op eq '*' && $cc =~/\s*$Modifier\b/) {
3629                                                 # A unary '*' may be const
3630
3631                                         } elsif ($ctx =~ /.xW/) {
3632                                                 if (ERROR("SPACING",
3633                                                           "space prohibited after that '$op' $at\n" . $hereptr)) {
3634                                                         $good = $fix_elements[$n] . rtrim($fix_elements[$n + 1]);
3635                                                         if (defined $fix_elements[$n + 2]) {
3636                                                                 $fix_elements[$n + 2] =~ s/^\s+//;
3637                                                         }
3638                                                         $line_fixed = 1;
3639                                                 }
3640                                         }
3641
3642                                 # unary ++ and unary -- are allowed no space on one side.
3643                                 } elsif ($op eq '++' or $op eq '--') {
3644                                         if ($ctx !~ /[WEOBC]x[^W]/ && $ctx !~ /[^W]x[WOBEC]/) {
3645                                                 if (ERROR("SPACING",
3646                                                           "space required one side of that '$op' $at\n" . $hereptr)) {
3647                                                         $good = $fix_elements[$n] . trim($fix_elements[$n + 1]) . " ";
3648                                                         $line_fixed = 1;
3649                                                 }
3650                                         }
3651                                         if ($ctx =~ /Wx[BE]/ ||
3652                                             ($ctx =~ /Wx./ && $cc =~ /^;/)) {
3653                                                 if (ERROR("SPACING",
3654                                                           "space prohibited before that '$op' $at\n" . $hereptr)) {
3655                                                         $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]);
3656                                                         $line_fixed = 1;
3657                                                 }
3658                                         }
3659                                         if ($ctx =~ /ExW/) {
3660                                                 if (ERROR("SPACING",
3661                                                           "space prohibited after that '$op' $at\n" . $hereptr)) {
3662                                                         $good = $fix_elements[$n] . trim($fix_elements[$n + 1]);
3663                                                         if (defined $fix_elements[$n + 2]) {
3664                                                                 $fix_elements[$n + 2] =~ s/^\s+//;
3665                                                         }
3666                                                         $line_fixed = 1;
3667                                                 }
3668                                         }
3669
3670                                 # << and >> may either have or not have spaces both sides
3671                                 } elsif ($op eq '<<' or $op eq '>>' or
3672                                          $op eq '&' or $op eq '^' or $op eq '|' or
3673                                          $op eq '+' or $op eq '-' or
3674                                          $op eq '*' or $op eq '/' or
3675                                          $op eq '%')
3676                                 {
3677                                         if ($ctx =~ /Wx[^WCE]|[^WCE]xW/) {
3678                                                 if (ERROR("SPACING",
3679                                                           "need consistent spacing around '$op' $at\n" . $hereptr)) {
3680                                                         $good = rtrim($fix_elements[$n]) . " " . trim($fix_elements[$n + 1]) . " ";
3681                                                         if (defined $fix_elements[$n + 2]) {
3682                                                                 $fix_elements[$n + 2] =~ s/^\s+//;
3683                                                         }
3684                                                         $line_fixed = 1;
3685                                                 }
3686                                         }
3687
3688                                 # A colon needs no spaces before when it is
3689                                 # terminating a case value or a label.
3690                                 } elsif ($opv eq ':C' || $opv eq ':L') {
3691                                         if ($ctx =~ /Wx./) {
3692                                                 if (ERROR("SPACING",
3693                                                           "space prohibited before that '$op' $at\n" . $hereptr)) {
3694                                                         $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]);
3695                                                         $line_fixed = 1;
3696                                                 }
3697                                         }
3698
3699                                 # All the others need spaces both sides.
3700                                 } elsif ($ctx !~ /[EWC]x[CWE]/) {
3701                                         my $ok = 0;
3702
3703                                         # Ignore email addresses <foo@bar>
3704                                         if (($op eq '<' &&
3705                                              $cc =~ /^\S+\@\S+>/) ||
3706                                             ($op eq '>' &&
3707                                              $ca =~ /<\S+\@\S+$/))
3708                                         {
3709                                                 $ok = 1;
3710                                         }
3711
3712                                         # messages are ERROR, but ?: are CHK
3713                                         if ($ok == 0) {
3714                                                 my $msg_type = \&ERROR;
3715                                                 $msg_type = \&CHK if (($op eq '?:' || $op eq '?' || $op eq ':') && $ctx =~ /VxV/);
3716
3717                                                 if (&{$msg_type}("SPACING",
3718                                                                  "spaces required around that '$op' $at\n" . $hereptr)) {
3719                                                         $good = rtrim($fix_elements[$n]) . " " . trim($fix_elements[$n + 1]) . " ";
3720                                                         if (defined $fix_elements[$n + 2]) {
3721                                                                 $fix_elements[$n + 2] =~ s/^\s+//;
3722                                                         }
3723                                                         $line_fixed = 1;
3724                                                 }
3725                                         }
3726                                 }
3727                                 $off += length($elements[$n + 1]);
3728
3729 ##                              print("n: <$n> GOOD: <$good>\n");
3730
3731                                 $fixed_line = $fixed_line . $good;
3732                         }
3733
3734                         if (($#elements % 2) == 0) {
3735                                 $fixed_line = $fixed_line . $fix_elements[$#elements];
3736                         }
3737
3738                         if ($fix && $line_fixed && $fixed_line ne $fixed[$fixlinenr]) {
3739                                 $fixed[$fixlinenr] = $fixed_line;
3740                         }
3741
3742
3743                 }
3744
3745 # check for whitespace before a non-naked semicolon
3746                 if ($line =~ /^\+.*\S\s+;\s*$/) {
3747                         if (WARN("SPACING",
3748                                  "space prohibited before semicolon\n" . $herecurr) &&
3749                             $fix) {
3750                                 1 while $fixed[$fixlinenr] =~
3751                                     s/^(\+.*\S)\s+;/$1;/;
3752                         }
3753                 }
3754
3755 # check for multiple assignments
3756                 if ($line =~ /^.\s*$Lval\s*=\s*$Lval\s*=(?!=)/) {
3757                         CHK("MULTIPLE_ASSIGNMENTS",
3758                             "multiple assignments should be avoided\n" . $herecurr);
3759                 }
3760
3761 ## # check for multiple declarations, allowing for a function declaration
3762 ## # continuation.
3763 ##              if ($line =~ /^.\s*$Type\s+$Ident(?:\s*=[^,{]*)?\s*,\s*$Ident.*/ &&
3764 ##                  $line !~ /^.\s*$Type\s+$Ident(?:\s*=[^,{]*)?\s*,\s*$Type\s*$Ident.*/) {
3765 ##
3766 ##                      # Remove any bracketed sections to ensure we do not
3767 ##                      # falsly report the parameters of functions.
3768 ##                      my $ln = $line;
3769 ##                      while ($ln =~ s/\([^\(\)]*\)//g) {
3770 ##                      }
3771 ##                      if ($ln =~ /,/) {
3772 ##                              WARN("MULTIPLE_DECLARATION",
3773 ##                                   "declaring multiple variables together should be avoided\n" . $herecurr);
3774 ##                      }
3775 ##              }
3776
3777 #need space before brace following if, while, etc
3778                 if (($line =~ /\(.*\){/ && $line !~ /\($Type\){/) ||
3779                     $line =~ /do{/) {
3780                         if (ERROR("SPACING",
3781                                   "space required before the open brace '{'\n" . $herecurr) &&
3782                             $fix) {
3783                                 $fixed[$fixlinenr] =~ s/^(\+.*(?:do|\))){/$1 {/;
3784                         }
3785                 }
3786
3787 ## # check for blank lines before declarations
3788 ##              if ($line =~ /^.\t+$Type\s+$Ident(?:\s*=.*)?;/ &&
3789 ##                  $prevrawline =~ /^.\s*$/) {
3790 ##                      WARN("SPACING",
3791 ##                           "No blank lines before declarations\n" . $hereprev);
3792 ##              }
3793 ##
3794
3795 # closing brace should have a space following it when it has anything
3796 # on the line
3797                 if ($line =~ /}(?!(?:,|;|\)))\S/) {
3798                         if (ERROR("SPACING",
3799                                   "space required after that close brace '}'\n" . $herecurr) &&
3800                             $fix) {
3801                                 $fixed[$fixlinenr] =~
3802                                     s/}((?!(?:,|;|\)))\S)/} $1/;
3803                         }
3804                 }
3805
3806 # check spacing on square brackets
3807                 if ($line =~ /\[\s/ && $line !~ /\[\s*$/) {
3808                         if (ERROR("SPACING",
3809                                   "space prohibited after that open square bracket '['\n" . $herecurr) &&
3810                             $fix) {
3811                                 $fixed[$fixlinenr] =~
3812                                     s/\[\s+/\[/;
3813                         }
3814                 }
3815                 if ($line =~ /\s\]/) {
3816                         if (ERROR("SPACING",
3817                                   "space prohibited before that close square bracket ']'\n" . $herecurr) &&
3818                             $fix) {
3819                                 $fixed[$fixlinenr] =~
3820                                     s/\s+\]/\]/;
3821                         }
3822                 }
3823
3824 # check spacing on parentheses
3825                 if ($line =~ /\(\s/ && $line !~ /\(\s*(?:\\)?$/ &&
3826                     $line !~ /for\s*\(\s+;/) {
3827                         if (ERROR("SPACING",
3828                                   "space prohibited after that open parenthesis '('\n" . $herecurr) &&
3829                             $fix) {
3830                                 $fixed[$fixlinenr] =~
3831                                     s/\(\s+/\(/;
3832                         }
3833                 }
3834                 if ($line =~ /(\s+)\)/ && $line !~ /^.\s*\)/ &&
3835                     $line !~ /for\s*\(.*;\s+\)/ &&
3836                     $line !~ /:\s+\)/) {
3837                         if (ERROR("SPACING",
3838                                   "space prohibited before that close parenthesis ')'\n" . $herecurr) &&
3839                             $fix) {
3840                                 $fixed[$fixlinenr] =~
3841                                     s/\s+\)/\)/;
3842                         }
3843                 }
3844
3845 # check unnecessary parentheses around addressof/dereference single $Lvals
3846 # ie: &(foo->bar) should be &foo->bar and *(foo->bar) should be *foo->bar
3847
3848                 while ($line =~ /(?:[^&]&\s*|\*)\(\s*($Ident\s*(?:$Member\s*)+)\s*\)/g) {
3849                         my $var = $1;
3850                         if (CHK("UNNECESSARY_PARENTHESES",
3851                                 "Unnecessary parentheses around $var\n" . $herecurr) &&
3852                             $fix) {
3853                                 $fixed[$fixlinenr] =~ s/\(\s*\Q$var\E\s*\)/$var/;
3854                         }
3855                 }
3856
3857 # check for unnecessary parentheses around function pointer uses
3858 # ie: (foo->bar)(); should be foo->bar();
3859 # but not "if (foo->bar) (" to avoid some false positives
3860                 if ($line =~ /(\bif\s*|)(\(\s*$Ident\s*(?:$Member\s*)+\))[ \t]*\(/ && $1 !~ /^if/) {
3861                         my $var = $2;
3862                         if (CHK("UNNECESSARY_PARENTHESES",
3863                                 "Unnecessary parentheses around function pointer $var\n" . $herecurr) &&
3864                             $fix) {
3865                                 my $var2 = deparenthesize($var);
3866                                 $var2 =~ s/\s//g;
3867                                 $fixed[$fixlinenr] =~ s/\Q$var\E/$var2/;
3868                         }
3869                 }
3870
3871 #goto labels aren't indented, allow a single space however
3872                 if ($line=~/^.\s+[A-Za-z\d_]+:(?![0-9]+)/ and
3873                    !($line=~/^. [A-Za-z\d_]+:/) and !($line=~/^.\s+default:/)) {
3874                         if (WARN("INDENTED_LABEL",
3875                                  "labels should not be indented\n" . $herecurr) &&
3876                             $fix) {
3877                                 $fixed[$fixlinenr] =~
3878                                     s/^(.)\s+/$1/;
3879                         }
3880                 }
3881
3882 # return is not a function
3883                 if (defined($stat) && $stat =~ /^.\s*return(\s*)\(/s) {
3884                         my $spacing = $1;
3885                         if ($^V && $^V ge 5.10.0 &&
3886                             $stat =~ /^.\s*return\s*($balanced_parens)\s*;\s*$/) {
3887                                 my $value = $1;
3888                                 $value = deparenthesize($value);
3889                                 if ($value =~ m/^\s*$FuncArg\s*(?:\?|$)/) {
3890                                         ERROR("RETURN_PARENTHESES",
3891                                               "return is not a function, parentheses are not required\n" . $herecurr);
3892                                 }
3893                         } elsif ($spacing !~ /\s+/) {
3894                                 ERROR("SPACING",
3895                                       "space required before the open parenthesis '('\n" . $herecurr);
3896                         }
3897                 }
3898
3899 # unnecessary return in a void function
3900 # at end-of-function, with the previous line a single leading tab, then return;
3901 # and the line before that not a goto label target like "out:"
3902                 if ($sline =~ /^[ \+]}\s*$/ &&
3903                     $prevline =~ /^\+\treturn\s*;\s*$/ &&
3904                     $linenr >= 3 &&
3905                     $lines[$linenr - 3] =~ /^[ +]/ &&
3906                     $lines[$linenr - 3] !~ /^[ +]\s*$Ident\s*:/) {
3907                         WARN("RETURN_VOID",
3908                              "void function return statements are not generally useful\n" . $hereprev);
3909                }
3910
3911 # if statements using unnecessary parentheses - ie: if ((foo == bar))
3912                 if ($^V && $^V ge 5.10.0 &&
3913                     $line =~ /\bif\s*((?:\(\s*){2,})/) {
3914                         my $openparens = $1;
3915                         my $count = $openparens =~ tr@\(@\(@;
3916                         my $msg = "";
3917                         if ($line =~ /\bif\s*(?:\(\s*){$count,$count}$LvalOrFunc\s*($Compare)\s*$LvalOrFunc(?:\s*\)){$count,$count}/) {
3918                                 my $comp = $4;  #Not $1 because of $LvalOrFunc
3919                                 $msg = " - maybe == should be = ?" if ($comp eq "==");
3920                                 WARN("UNNECESSARY_PARENTHESES",
3921                                      "Unnecessary parentheses$msg\n" . $herecurr);
3922                         }
3923                 }
3924
3925 # Return of what appears to be an errno should normally be -'ve
3926                 if ($line =~ /^.\s*return\s*(E[A-Z]*)\s*;/) {
3927                         my $name = $1;
3928                         if ($name ne 'EOF' && $name ne 'ERROR') {
3929                                 WARN("USE_NEGATIVE_ERRNO",
3930                                      "return of an errno should typically be -ve (return -$1)\n" . $herecurr);
3931                         }
3932                 }
3933
3934 # Need a space before open parenthesis after if, while etc
3935                 if ($line =~ /\b(if|while|for|switch)\(/) {
3936                         if (ERROR("SPACING",
3937                                   "space required before the open parenthesis '('\n" . $herecurr) &&
3938                             $fix) {
3939                                 $fixed[$fixlinenr] =~
3940                                     s/\b(if|while|for|switch)\(/$1 \(/;
3941                         }
3942                 }
3943
3944 # Check for illegal assignment in if conditional -- and check for trailing
3945 # statements after the conditional.
3946                 if ($line =~ /do\s*(?!{)/) {
3947                         ($stat, $cond, $line_nr_next, $remain_next, $off_next) =
3948                                 ctx_statement_block($linenr, $realcnt, 0)
3949                                         if (!defined $stat);
3950                         my ($stat_next) = ctx_statement_block($line_nr_next,
3951                                                 $remain_next, $off_next);
3952                         $stat_next =~ s/\n./\n /g;
3953                         ##print "stat<$stat> stat_next<$stat_next>\n";
3954
3955                         if ($stat_next =~ /^\s*while\b/) {
3956                                 # If the statement carries leading newlines,
3957                                 # then count those as offsets.
3958                                 my ($whitespace) =
3959                                         ($stat_next =~ /^((?:\s*\n[+-])*\s*)/s);
3960                                 my $offset =
3961                                         statement_rawlines($whitespace) - 1;
3962
3963                                 $suppress_whiletrailers{$line_nr_next +
3964                                                                 $offset} = 1;
3965                         }
3966                 }
3967                 if (!defined $suppress_whiletrailers{$linenr} &&
3968                     defined($stat) && defined($cond) &&
3969                     $line =~ /\b(?:if|while|for)\s*\(/ && $line !~ /^.\s*#/) {
3970                         my ($s, $c) = ($stat, $cond);
3971
3972                         if ($c =~ /\bif\s*\(.*[^<>!=]=[^=].*/s) {
3973                                 ERROR("ASSIGN_IN_IF",
3974                                       "do not use assignment in if condition\n" . $herecurr);
3975                         }
3976
3977                         # Find out what is on the end of the line after the
3978                         # conditional.
3979                         substr($s, 0, length($c), '');
3980                         $s =~ s/\n.*//g;
3981                         $s =~ s/$;//g;  # Remove any comments
3982                         if (length($c) && $s !~ /^\s*{?\s*\\*\s*$/ &&
3983                             $c !~ /}\s*while\s*/)
3984                         {
3985                                 # Find out how long the conditional actually is.
3986                                 my @newlines = ($c =~ /\n/gs);
3987                                 my $cond_lines = 1 + $#newlines;
3988                                 my $stat_real = '';
3989
3990                                 $stat_real = raw_line($linenr, $cond_lines)
3991                                                         . "\n" if ($cond_lines);
3992                                 if (defined($stat_real) && $cond_lines > 1) {
3993                                         $stat_real = "[...]\n$stat_real";
3994                                 }
3995
3996                                 ERROR("TRAILING_STATEMENTS",
3997                                       "trailing statements should be on next line\n" . $herecurr . $stat_real);
3998                         }
3999                 }
4000
4001 # Check for bitwise tests written as boolean
4002                 if ($line =~ /
4003                         (?:
4004                                 (?:\[|\(|\&\&|\|\|)
4005                                 \s*0[xX][0-9]+\s*
4006                                 (?:\&\&|\|\|)
4007                         |
4008                                 (?:\&\&|\|\|)
4009                                 \s*0[xX][0-9]+\s*
4010                                 (?:\&\&|\|\||\)|\])
4011                         )/x)
4012                 {
4013                         WARN("HEXADECIMAL_BOOLEAN_TEST",
4014                              "boolean test with hexadecimal, perhaps just 1 \& or \|?\n" . $herecurr);
4015                 }
4016
4017 # if and else should not have general statements after it
4018                 if ($line =~ /^.\s*(?:}\s*)?else\b(.*)/) {
4019                         my $s = $1;
4020                         $s =~ s/$;//g;  # Remove any comments
4021                         if ($s !~ /^\s*(?:\sif|(?:{|)\s*\\?\s*$)/) {
4022                                 ERROR("TRAILING_STATEMENTS",
4023                                       "trailing statements should be on next line\n" . $herecurr);
4024                         }
4025                 }
4026 # if should not continue a brace
4027                 if ($line =~ /}\s*if\b/) {
4028                         ERROR("TRAILING_STATEMENTS",
4029                               "trailing statements should be on next line (or did you mean 'else if'?)\n" .
4030                                 $herecurr);
4031                 }
4032 # case and default should not have general statements after them
4033                 if ($line =~ /^.\s*(?:case\s*.*|default\s*):/g &&
4034                     $line !~ /\G(?:
4035                         (?:\s*$;*)(?:\s*{)?(?:\s*$;*)(?:\s*\\)?\s*$|
4036                         \s*return\s+
4037                     )/xg)
4038                 {
4039                         ERROR("TRAILING_STATEMENTS",
4040                               "trailing statements should be on next line\n" . $herecurr);
4041                 }
4042
4043                 # Check for }<nl>else {, these must be at the same
4044                 # indent level to be relevant to each other.
4045                 if ($prevline=~/}\s*$/ and $line=~/^.\s*else\s*/ &&
4046                     $previndent == $indent) {
4047                         if (ERROR("ELSE_AFTER_BRACE",
4048                                   "else should follow close brace '}'\n" . $hereprev) &&
4049                             $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
4050                                 fix_delete_line($fixlinenr - 1, $prevrawline);
4051                                 fix_delete_line($fixlinenr, $rawline);
4052                                 my $fixedline = $prevrawline;
4053                                 $fixedline =~ s/}\s*$//;
4054                                 if ($fixedline !~ /^\+\s*$/) {
4055                                         fix_insert_line($fixlinenr, $fixedline);
4056                                 }
4057                                 $fixedline = $rawline;
4058                                 $fixedline =~ s/^(.\s*)else/$1} else/;
4059                                 fix_insert_line($fixlinenr, $fixedline);
4060                         }
4061                 }
4062
4063                 if ($prevline=~/}\s*$/ and $line=~/^.\s*while\s*/ &&
4064                     $previndent == $indent) {
4065                         my ($s, $c) = ctx_statement_block($linenr, $realcnt, 0);
4066
4067                         # Find out what is on the end of the line after the
4068                         # conditional.
4069                         substr($s, 0, length($c), '');
4070                         $s =~ s/\n.*//g;
4071
4072                         if ($s =~ /^\s*;/) {
4073                                 if (ERROR("WHILE_AFTER_BRACE",
4074                                           "while should follow close brace '}'\n" . $hereprev) &&
4075                                     $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
4076                                         fix_delete_line($fixlinenr - 1, $prevrawline);
4077                                         fix_delete_line($fixlinenr, $rawline);
4078                                         my $fixedline = $prevrawline;
4079                                         my $trailing = $rawline;
4080                                         $trailing =~ s/^\+//;
4081                                         $trailing = trim($trailing);
4082                                         $fixedline =~ s/}\s*$/} $trailing/;
4083                                         fix_insert_line($fixlinenr, $fixedline);
4084                                 }
4085                         }
4086                 }
4087
4088 #Specific variable tests
4089                 while ($line =~ m{($Constant|$Lval)}g) {
4090                         my $var = $1;
4091
4092 #gcc binary extension
4093                         if ($var =~ /^$Binary$/) {
4094                                 if (WARN("GCC_BINARY_CONSTANT",
4095                                          "Avoid gcc v4.3+ binary constant extension: <$var>\n" . $herecurr) &&
4096                                     $fix) {
4097                                         my $hexval = sprintf("0x%x", oct($var));
4098                                         $fixed[$fixlinenr] =~
4099                                             s/\b$var\b/$hexval/;
4100                                 }
4101                         }
4102
4103 #CamelCase
4104                         if ($var !~ /^$Constant$/ &&
4105                             $var =~ /[A-Z][a-z]|[a-z][A-Z]/ &&
4106 #Ignore Page<foo> variants
4107                             $var !~ /^(?:Clear|Set|TestClear|TestSet|)Page[A-Z]/ &&
4108 #Ignore SI style variants like nS, mV and dB (ie: max_uV, regulator_min_uA_show)
4109                             $var !~ /^(?:[a-z_]*?)_?[a-z][A-Z](?:_[a-z_]+)?$/ &&
4110 #Ignore some three character SI units explicitly, like MiB and KHz
4111                             $var !~ /^(?:[a-z_]*?)_?(?:[KMGT]iB|[KMGT]?Hz)(?:_[a-z_]+)?$/) {
4112                                 while ($var =~ m{($Ident)}g) {
4113                                         my $word = $1;
4114                                         next if ($word !~ /[A-Z][a-z]|[a-z][A-Z]/);
4115                                         if ($check) {
4116                                                 seed_camelcase_includes();
4117                                                 if (!$file && !$camelcase_file_seeded) {
4118                                                         seed_camelcase_file($realfile);
4119                                                         $camelcase_file_seeded = 1;
4120                                                 }
4121                                         }
4122                                         if (!defined $camelcase{$word}) {
4123                                                 $camelcase{$word} = 1;
4124                                                 CHK("CAMELCASE",
4125                                                     "Avoid CamelCase: <$word>\n" . $herecurr);
4126                                         }
4127                                 }
4128                         }
4129                 }
4130
4131 #no spaces allowed after \ in define
4132                 if ($line =~ /\#\s*define.*\\\s+$/) {
4133                         if (WARN("WHITESPACE_AFTER_LINE_CONTINUATION",
4134                                  "Whitespace after \\ makes next lines useless\n" . $herecurr) &&
4135                             $fix) {
4136                                 $fixed[$fixlinenr] =~ s/\s+$//;
4137                         }
4138                 }
4139
4140 #warn if <asm/foo.h> is #included and <linux/foo.h> is available (uses RAW line)
4141                 if ($tree && $rawline =~ m{^.\s*\#\s*include\s*\<asm\/(.*)\.h\>}) {
4142                         my $file = "$1.h";
4143                         my $checkfile = "include/linux/$file";
4144                         if (-f "$root/$checkfile" &&
4145                             $realfile ne $checkfile &&
4146                             $1 !~ /$allowed_asm_includes/)
4147                         {
4148                                 if ($realfile =~ m{^arch/}) {
4149                                         CHK("ARCH_INCLUDE_LINUX",
4150                                             "Consider using #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
4151                                 } else {
4152                                         WARN("INCLUDE_LINUX",
4153                                              "Use #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
4154                                 }
4155                         }
4156                 }
4157
4158 # multi-statement macros should be enclosed in a do while loop, grab the
4159 # first statement and ensure its the whole macro if its not enclosed
4160 # in a known good container
4161                 if ($realfile !~ m@/vmlinux.lds.h$@ &&
4162                     $line =~ /^.\s*\#\s*define\s*$Ident(\()?/) {
4163                         my $ln = $linenr;
4164                         my $cnt = $realcnt;
4165                         my ($off, $dstat, $dcond, $rest);
4166                         my $ctx = '';
4167                         my $has_flow_statement = 0;
4168                         my $has_arg_concat = 0;
4169                         ($dstat, $dcond, $ln, $cnt, $off) =
4170                                 ctx_statement_block($linenr, $realcnt, 0);
4171                         $ctx = $dstat;
4172                         #print "dstat<$dstat> dcond<$dcond> cnt<$cnt> off<$off>\n";
4173                         #print "LINE<$lines[$ln-1]> len<" . length($lines[$ln-1]) . "\n";
4174
4175                         $has_flow_statement = 1 if ($ctx =~ /\b(goto|return)\b/);
4176                         $has_arg_concat = 1 if ($ctx =~ /\#\#/);
4177
4178                         $dstat =~ s/^.\s*\#\s*define\s+$Ident(?:\([^\)]*\))?\s*//;
4179                         $dstat =~ s/$;//g;
4180                         $dstat =~ s/\\\n.//g;
4181                         $dstat =~ s/^\s*//s;
4182                         $dstat =~ s/\s*$//s;
4183
4184                         # Flatten any parentheses and braces
4185                         while ($dstat =~ s/\([^\(\)]*\)/1/ ||
4186                                $dstat =~ s/\{[^\{\}]*\}/1/ ||
4187                                $dstat =~ s/\[[^\[\]]*\]/1/)
4188                         {
4189                         }
4190
4191                         # Flatten any obvious string concatentation.
4192                         while ($dstat =~ s/("X*")\s*$Ident/$1/ ||
4193                                $dstat =~ s/$Ident\s*("X*")/$1/)
4194                         {
4195                         }
4196
4197                         my $exceptions = qr{
4198                                 $Declare|
4199                                 module_param_named|
4200                                 MODULE_PARM_DESC|
4201                                 DECLARE_PER_CPU|
4202                                 DEFINE_PER_CPU|
4203                                 __typeof__\(|
4204                                 union|
4205                                 struct|
4206                                 \.$Ident\s*=\s*|
4207                                 ^\"|\"$
4208                         }x;
4209                         #print "REST<$rest> dstat<$dstat> ctx<$ctx>\n";
4210                         if ($dstat ne '' &&
4211                             $dstat !~ /^(?:$Ident|-?$Constant),$/ &&                    # 10, // foo(),
4212                             $dstat !~ /^(?:$Ident|-?$Constant);$/ &&                    # foo();
4213                             $dstat !~ /^[!~-]?(?:$Lval|$Constant)$/ &&          # 10 // foo() // !foo // ~foo // -foo // foo->bar // foo.bar->baz
4214                             $dstat !~ /^'X'$/ && $dstat !~ /^'XX'$/ &&                  # character constants
4215                             $dstat !~ /$exceptions/ &&
4216                             $dstat !~ /^\.$Ident\s*=/ &&                                # .foo =
4217                             $dstat !~ /^(?:\#\s*$Ident|\#\s*$Constant)\s*$/ &&          # stringification #foo
4218                             $dstat !~ /^do\s*$Constant\s*while\s*$Constant;?$/ &&       # do {...} while (...); // do {...} while (...)
4219                             $dstat !~ /^for\s*$Constant$/ &&                            # for (...)
4220                             $dstat !~ /^for\s*$Constant\s+(?:$Ident|-?$Constant)$/ &&   # for (...) bar()
4221                             $dstat !~ /^do\s*{/ &&                                      # do {...
4222                             $dstat !~ /^\({/ &&                                         # ({...
4223                             $ctx !~ /^.\s*#\s*define\s+TRACE_(?:SYSTEM|INCLUDE_FILE|INCLUDE_PATH)\b/)
4224                         {
4225                                 $ctx =~ s/\n*$//;
4226                                 my $herectx = $here . "\n";
4227                                 my $cnt = statement_rawlines($ctx);
4228
4229                                 for (my $n = 0; $n < $cnt; $n++) {
4230                                         $herectx .= raw_line($linenr, $n) . "\n";
4231                                 }
4232
4233                                 if ($dstat =~ /;/) {
4234                                         ERROR("MULTISTATEMENT_MACRO_USE_DO_WHILE",
4235                                               "Macros with multiple statements should be enclosed in a do - while loop\n" . "$herectx");
4236                                 } else {
4237                                         ERROR("COMPLEX_MACRO",
4238                                               "Macros with complex values should be enclosed in parentheses\n" . "$herectx");
4239                                 }
4240                         }
4241
4242 # check for macros with flow control, but without ## concatenation
4243 # ## concatenation is commonly a macro that defines a function so ignore those
4244                         if ($has_flow_statement && !$has_arg_concat) {
4245                                 my $herectx = $here . "\n";
4246                                 my $cnt = statement_rawlines($ctx);
4247
4248                                 for (my $n = 0; $n < $cnt; $n++) {
4249                                         $herectx .= raw_line($linenr, $n) . "\n";
4250                                 }
4251                                 WARN("MACRO_WITH_FLOW_CONTROL",
4252                                      "Macros with flow control statements should be avoided\n" . "$herectx");
4253                         }
4254
4255 # check for line continuations outside of #defines, preprocessor #, and asm
4256
4257                 } else {
4258                         if ($prevline !~ /^..*\\$/ &&
4259                             $line !~ /^\+\s*\#.*\\$/ &&         # preprocessor
4260                             $line !~ /^\+.*\b(__asm__|asm)\b.*\\$/ &&   # asm
4261                             $line =~ /^\+.*\\$/) {
4262                                 WARN("LINE_CONTINUATIONS",
4263                                      "Avoid unnecessary line continuations\n" . $herecurr);
4264                         }
4265                 }
4266
4267 # do {} while (0) macro tests:
4268 # single-statement macros do not need to be enclosed in do while (0) loop,
4269 # macro should not end with a semicolon
4270                 if ($^V && $^V ge 5.10.0 &&
4271                     $realfile !~ m@/vmlinux.lds.h$@ &&
4272                     $line =~ /^.\s*\#\s*define\s+$Ident(\()?/) {
4273                         my $ln = $linenr;
4274                         my $cnt = $realcnt;
4275                         my ($off, $dstat, $dcond, $rest);
4276                         my $ctx = '';
4277                         ($dstat, $dcond, $ln, $cnt, $off) =
4278                                 ctx_statement_block($linenr, $realcnt, 0);
4279                         $ctx = $dstat;
4280
4281                         $dstat =~ s/\\\n.//g;
4282                         $dstat =~ s/$;/ /g;
4283
4284                         if ($dstat =~ /^\+\s*#\s*define\s+$Ident\s*${balanced_parens}\s*do\s*{(.*)\s*}\s*while\s*\(\s*0\s*\)\s*([;\s]*)\s*$/) {
4285                                 my $stmts = $2;
4286                                 my $semis = $3;
4287
4288                                 $ctx =~ s/\n*$//;
4289                                 my $cnt = statement_rawlines($ctx);
4290                                 my $herectx = $here . "\n";
4291
4292                                 for (my $n = 0; $n < $cnt; $n++) {
4293                                         $herectx .= raw_line($linenr, $n) . "\n";
4294                                 }
4295
4296                                 if (($stmts =~ tr/;/;/) == 1 &&
4297                                     $stmts !~ /^\s*(if|while|for|switch)\b/) {
4298                                         WARN("SINGLE_STATEMENT_DO_WHILE_MACRO",
4299                                              "Single statement macros should not use a do {} while (0) loop\n" . "$herectx");
4300                                 }
4301                                 if (defined $semis && $semis ne "") {
4302                                         WARN("DO_WHILE_MACRO_WITH_TRAILING_SEMICOLON",
4303                                              "do {} while (0) macros should not be semicolon terminated\n" . "$herectx");
4304                                 }
4305                         } elsif ($dstat =~ /^\+\s*#\s*define\s+$Ident.*;\s*$/) {
4306                                 $ctx =~ s/\n*$//;
4307                                 my $cnt = statement_rawlines($ctx);
4308                                 my $herectx = $here . "\n";
4309
4310                                 for (my $n = 0; $n < $cnt; $n++) {
4311                                         $herectx .= raw_line($linenr, $n) . "\n";
4312                                 }
4313
4314                                 WARN("TRAILING_SEMICOLON",
4315                                      "macros should not use a trailing semicolon\n" . "$herectx");
4316                         }
4317                 }
4318
4319 # make sure symbols are always wrapped with VMLINUX_SYMBOL() ...
4320 # all assignments may have only one of the following with an assignment:
4321 #       .
4322 #       ALIGN(...)
4323 #       VMLINUX_SYMBOL(...)
4324                 if ($realfile eq 'vmlinux.lds.h' && $line =~ /(?:(?:^|\s)$Ident\s*=|=\s*$Ident(?:\s|$))/) {
4325                         WARN("MISSING_VMLINUX_SYMBOL",
4326                              "vmlinux.lds.h needs VMLINUX_SYMBOL() around C-visible symbols\n" . $herecurr);
4327                 }
4328
4329 # check for redundant bracing round if etc
4330                 if ($line =~ /(^.*)\bif\b/ && $1 !~ /else\s*$/) {
4331                         my ($level, $endln, @chunks) =
4332                                 ctx_statement_full($linenr, $realcnt, 1);
4333                         #print "chunks<$#chunks> linenr<$linenr> endln<$endln> level<$level>\n";
4334                         #print "APW: <<$chunks[1][0]>><<$chunks[1][1]>>\n";
4335                         if ($#chunks > 0 && $level == 0) {
4336                                 my @allowed = ();
4337                                 my $allow = 0;
4338                                 my $seen = 0;
4339                                 my $herectx = $here . "\n";
4340                                 my $ln = $linenr - 1;
4341                                 for my $chunk (@chunks) {
4342                                         my ($cond, $block) = @{$chunk};
4343
4344                                         # If the condition carries leading newlines, then count those as offsets.
4345                                         my ($whitespace) = ($cond =~ /^((?:\s*\n[+-])*\s*)/s);
4346                                         my $offset = statement_rawlines($whitespace) - 1;
4347
4348                                         $allowed[$allow] = 0;
4349                                         #print "COND<$cond> whitespace<$whitespace> offset<$offset>\n";
4350
4351                                         # We have looked at and allowed this specific line.
4352                                         $suppress_ifbraces{$ln + $offset} = 1;
4353
4354                                         $herectx .= "$rawlines[$ln + $offset]\n[...]\n";
4355                                         $ln += statement_rawlines($block) - 1;
4356
4357                                         substr($block, 0, length($cond), '');
4358
4359                                         $seen++ if ($block =~ /^\s*{/);
4360
4361                                         #print "cond<$cond> block<$block> allowed<$allowed[$allow]>\n";
4362                                         if (statement_lines($cond) > 1) {
4363                                                 #print "APW: ALLOWED: cond<$cond>\n";
4364                                                 $allowed[$allow] = 1;
4365                                         }
4366                                         if ($block =~/\b(?:if|for|while)\b/) {
4367                                                 #print "APW: ALLOWED: block<$block>\n";
4368                                                 $allowed[$allow] = 1;
4369                                         }
4370                                         if (statement_block_size($block) > 1) {
4371                                                 #print "APW: ALLOWED: lines block<$block>\n";
4372                                                 $allowed[$allow] = 1;
4373                                         }
4374                                         $allow++;
4375                                 }
4376                                 if ($seen) {
4377                                         my $sum_allowed = 0;
4378                                         foreach (@allowed) {
4379                                                 $sum_allowed += $_;
4380                                         }
4381                                         if ($sum_allowed == 0) {
4382                                                 WARN("BRACES",
4383                                                      "braces {} are not necessary for any arm of this statement\n" . $herectx);
4384                                         } elsif ($sum_allowed != $allow &&
4385                                                  $seen != $allow) {
4386                                                 CHK("BRACES",
4387                                                     "braces {} should be used on all arms of this statement\n" . $herectx);
4388                                         }
4389                                 }
4390                         }
4391                 }
4392                 if (!defined $suppress_ifbraces{$linenr - 1} &&
4393                                         $line =~ /\b(if|while|for|else)\b/) {
4394                         my $allowed = 0;
4395
4396                         # Check the pre-context.
4397                         if (substr($line, 0, $-[0]) =~ /(\}\s*)$/) {
4398                                 #print "APW: ALLOWED: pre<$1>\n";
4399                                 $allowed = 1;
4400                         }
4401
4402                         my ($level, $endln, @chunks) =
4403                                 ctx_statement_full($linenr, $realcnt, $-[0]);
4404
4405                         # Check the condition.
4406                         my ($cond, $block) = @{$chunks[0]};
4407                         #print "CHECKING<$linenr> cond<$cond> block<$block>\n";
4408                         if (defined $cond) {
4409                                 substr($block, 0, length($cond), '');
4410                         }
4411                         if (statement_lines($cond) > 1) {
4412                                 #print "APW: ALLOWED: cond<$cond>\n";
4413                                 $allowed = 1;
4414                         }
4415                         if ($block =~/\b(?:if|for|while)\b/) {
4416                                 #print "APW: ALLOWED: block<$block>\n";
4417                                 $allowed = 1;
4418                         }
4419                         if (statement_block_size($block) > 1) {
4420                                 #print "APW: ALLOWED: lines block<$block>\n";
4421                                 $allowed = 1;
4422                         }
4423                         # Check the post-context.
4424                         if (defined $chunks[1]) {
4425                                 my ($cond, $block) = @{$chunks[1]};
4426                                 if (defined $cond) {
4427                                         substr($block, 0, length($cond), '');
4428                                 }
4429                                 if ($block =~ /^\s*\{/) {
4430                                         #print "APW: ALLOWED: chunk-1 block<$block>\n";
4431                                         $allowed = 1;
4432                                 }
4433                         }
4434                         if ($level == 0 && $block =~ /^\s*\{/ && !$allowed) {
4435                                 my $herectx = $here . "\n";
4436                                 my $cnt = statement_rawlines($block);
4437
4438                                 for (my $n = 0; $n < $cnt; $n++) {
4439                                         $herectx .= raw_line($linenr, $n) . "\n";
4440                                 }
4441
4442                                 WARN("BRACES",
4443                                      "braces {} are not necessary for single statement blocks\n" . $herectx);
4444                         }
4445                 }
4446
4447 # check for unnecessary blank lines around braces
4448                 if (($line =~ /^.\s*}\s*$/ && $prevrawline =~ /^.\s*$/)) {
4449                         CHK("BRACES",
4450                             "Blank lines aren't necessary before a close brace '}'\n" . $hereprev);
4451                 }
4452                 if (($rawline =~ /^.\s*$/ && $prevline =~ /^..*{\s*$/)) {
4453                         CHK("BRACES",
4454                             "Blank lines aren't necessary after an open brace '{'\n" . $hereprev);
4455                 }
4456
4457 # no volatiles please
4458                 my $asm_volatile = qr{\b(__asm__|asm)\s+(__volatile__|volatile)\b};
4459                 if ($line =~ /\bvolatile\b/ && $line !~ /$asm_volatile/) {
4460                         WARN("VOLATILE",
4461                              "Use of volatile is usually wrong: see Documentation/volatile-considered-harmful.txt\n" . $herecurr);
4462                 }
4463
4464 # Check for user-visible strings broken across lines, which breaks the ability
4465 # to grep for the string.  Make exceptions when the previous string ends in a
4466 # newline (multiple lines in one string constant) or '\t', '\r', ';', or '{'
4467 # (common in inline assembly) or is a octal \123 or hexadecimal \xaf value
4468                 if ($line =~ /^\+\s*"[X\t]*"/ &&
4469                     $prevline =~ /"\s*$/ &&
4470                     $prevrawline !~ /(?:\\(?:[ntr]|[0-7]{1,3}|x[0-9a-fA-F]{1,2})|;\s*|\{\s*)"\s*$/) {
4471                         if (WARN("SPLIT_STRING",
4472                                  "quoted string split across lines\n" . $hereprev) &&
4473                                      $fix &&
4474                                      $prevrawline =~ /^\+.*"\s*$/ &&
4475                                      $last_coalesced_string_linenr != $linenr - 1) {
4476                                 my $extracted_string = get_quoted_string($line, $rawline);
4477                                 my $comma_close = "";
4478                                 if ($rawline =~ /\Q$extracted_string\E(\s*\)\s*;\s*$|\s*,\s*)/) {
4479                                         $comma_close = $1;
4480                                 }
4481
4482                                 fix_delete_line($fixlinenr - 1, $prevrawline);
4483                                 fix_delete_line($fixlinenr, $rawline);
4484                                 my $fixedline = $prevrawline;
4485                                 $fixedline =~ s/"\s*$//;
4486                                 $fixedline .= substr($extracted_string, 1) . trim($comma_close);
4487                                 fix_insert_line($fixlinenr - 1, $fixedline);
4488                                 $fixedline = $rawline;
4489                                 $fixedline =~ s/\Q$extracted_string\E\Q$comma_close\E//;
4490                                 if ($fixedline !~ /\+\s*$/) {
4491                                         fix_insert_line($fixlinenr, $fixedline);
4492                                 }
4493                                 $last_coalesced_string_linenr = $linenr;
4494                         }
4495                 }
4496
4497 # check for missing a space in a string concatenation
4498                 if ($prevrawline =~ /[^\\]\w"$/ && $rawline =~ /^\+[\t ]+"\w/) {
4499                         WARN('MISSING_SPACE',
4500                              "break quoted strings at a space character\n" . $hereprev);
4501                 }
4502
4503 # check for spaces before a quoted newline
4504                 if ($rawline =~ /^.*\".*\s\\n/) {
4505                         if (WARN("QUOTED_WHITESPACE_BEFORE_NEWLINE",
4506                                  "unnecessary whitespace before a quoted newline\n" . $herecurr) &&
4507                             $fix) {
4508                                 $fixed[$fixlinenr] =~ s/^(\+.*\".*)\s+\\n/$1\\n/;
4509                         }
4510
4511                 }
4512
4513 # concatenated string without spaces between elements
4514                 if ($line =~ /"X+"[A-Z_]+/ || $line =~ /[A-Z_]+"X+"/) {
4515                         CHK("CONCATENATED_STRING",
4516                             "Concatenated strings should use spaces between elements\n" . $herecurr);
4517                 }
4518
4519 # uncoalesced string fragments
4520                 if ($line =~ /"X*"\s*"/) {
4521                         WARN("STRING_FRAGMENTS",
4522                              "Consecutive strings are generally better as a single string\n" . $herecurr);
4523                 }
4524
4525 # check for %L{u,d,i} in strings
4526                 my $string;
4527                 while ($line =~ /(?:^|")([X\t]*)(?:"|$)/g) {
4528                         $string = substr($rawline, $-[1], $+[1] - $-[1]);
4529                         $string =~ s/%%/__/g;
4530                         if ($string =~ /(?<!%)%L[udi]/) {
4531                                 WARN("PRINTF_L",
4532                                      "\%Ld/%Lu are not-standard C, use %lld/%llu\n" . $herecurr);
4533                                 last;
4534                         }
4535                 }
4536
4537 # check for line continuations in quoted strings with odd counts of "
4538                 if ($rawline =~ /\\$/ && $rawline =~ tr/"/"/ % 2) {
4539                         WARN("LINE_CONTINUATIONS",
4540                              "Avoid line continuations in quoted strings\n" . $herecurr);
4541                 }
4542
4543 # warn about #if 0
4544                 if ($line =~ /^.\s*\#\s*if\s+0\b/) {
4545                         CHK("REDUNDANT_CODE",
4546                             "if this code is redundant consider removing it\n" .
4547                                 $herecurr);
4548                 }
4549
4550 # check for needless "if (<foo>) fn(<foo>)" uses
4551                 if ($prevline =~ /\bif\s*\(\s*($Lval)\s*\)/) {
4552                         my $expr = '\s*\(\s*' . quotemeta($1) . '\s*\)\s*;';
4553                         if ($line =~ /\b(kfree|usb_free_urb|debugfs_remove(?:_recursive)?)$expr/) {
4554                                 WARN('NEEDLESS_IF',
4555                                      "$1(NULL) is safe and this check is probably not required\n" . $hereprev);
4556                         }
4557                 }
4558
4559 # check for unnecessary "Out of Memory" messages
4560                 if ($line =~ /^\+.*\b$logFunctions\s*\(/ &&
4561                     $prevline =~ /^[ \+]\s*if\s*\(\s*(\!\s*|NULL\s*==\s*)?($Lval)(\s*==\s*NULL\s*)?\s*\)/ &&
4562                     (defined $1 || defined $3) &&
4563                     $linenr > 3) {
4564                         my $testval = $2;
4565                         my $testline = $lines[$linenr - 3];
4566
4567                         my ($s, $c) = ctx_statement_block($linenr - 3, $realcnt, 0);
4568 #                       print("line: <$line>\nprevline: <$prevline>\ns: <$s>\nc: <$c>\n\n\n");
4569
4570                         if ($c =~ /(?:^|\n)[ \+]\s*(?:$Type\s*)?\Q$testval\E\s*=\s*(?:\([^\)]*\)\s*)?\s*(?:devm_)?(?:[kv][czm]alloc(?:_node|_array)?\b|kstrdup|(?:dev_)?alloc_skb)/) {
4571                                 WARN("OOM_MESSAGE",
4572                                      "Possible unnecessary 'out of memory' message\n" . $hereprev);
4573                         }
4574                 }
4575
4576 # check for logging functions with KERN_<LEVEL>
4577                 if ($line !~ /printk(?:_ratelimited|_once)?\s*\(/ &&
4578                     $line =~ /\b$logFunctions\s*\(.*\b(KERN_[A-Z]+)\b/) {
4579                         my $level = $1;
4580                         if (WARN("UNNECESSARY_KERN_LEVEL",
4581                                  "Possible unnecessary $level\n" . $herecurr) &&
4582                             $fix) {
4583                                 $fixed[$fixlinenr] =~ s/\s*$level\s*//;
4584                         }
4585                 }
4586
4587 # check for mask then right shift without a parentheses
4588                 if ($^V && $^V ge 5.10.0 &&
4589                     $line =~ /$LvalOrFunc\s*\&\s*($LvalOrFunc)\s*>>/ &&
4590                     $4 !~ /^\&/) { # $LvalOrFunc may be &foo, ignore if so
4591                         WARN("MASK_THEN_SHIFT",
4592                              "Possible precedence defect with mask then right shift - may need parentheses\n" . $herecurr);
4593                 }
4594
4595 # check for pointer comparisons to NULL
4596                 if ($^V && $^V ge 5.10.0) {
4597                         while ($line =~ /\b$LvalOrFunc\s*(==|\!=)\s*NULL\b/g) {
4598                                 my $val = $1;
4599                                 my $equal = "!";
4600                                 $equal = "" if ($4 eq "!=");
4601                                 if (CHK("COMPARISON_TO_NULL",
4602                                         "Comparison to NULL could be written \"${equal}${val}\"\n" . $herecurr) &&
4603                                             $fix) {
4604                                         $fixed[$fixlinenr] =~ s/\b\Q$val\E\s*(?:==|\!=)\s*NULL\b/$equal$val/;
4605                                 }
4606                         }
4607                 }
4608
4609 # check for bad placement of section $InitAttribute (e.g.: __initdata)
4610                 if ($line =~ /(\b$InitAttribute\b)/) {
4611                         my $attr = $1;
4612                         if ($line =~ /^\+\s*static\s+(?:const\s+)?(?:$attr\s+)?($NonptrTypeWithAttr)\s+(?:$attr\s+)?($Ident(?:\[[^]]*\])?)\s*[=;]/) {
4613                                 my $ptr = $1;
4614                                 my $var = $2;
4615                                 if ((($ptr =~ /\b(union|struct)\s+$attr\b/ &&
4616                                       ERROR("MISPLACED_INIT",
4617                                             "$attr should be placed after $var\n" . $herecurr)) ||
4618                                      ($ptr !~ /\b(union|struct)\s+$attr\b/ &&
4619                                       WARN("MISPLACED_INIT",
4620                                            "$attr should be placed after $var\n" . $herecurr))) &&
4621                                     $fix) {
4622                                         $fixed[$fixlinenr] =~ s/(\bstatic\s+(?:const\s+)?)(?:$attr\s+)?($NonptrTypeWithAttr)\s+(?:$attr\s+)?($Ident(?:\[[^]]*\])?)\s*([=;])\s*/"$1" . trim(string_find_replace($2, "\\s*$attr\\s*", " ")) . " " . trim(string_find_replace($3, "\\s*$attr\\s*", "")) . " $attr" . ("$4" eq ";" ? ";" : " = ")/e;
4623                                 }
4624                         }
4625                 }
4626
4627 # check for $InitAttributeData (ie: __initdata) with const
4628                 if ($line =~ /\bconst\b/ && $line =~ /($InitAttributeData)/) {
4629                         my $attr = $1;
4630                         $attr =~ /($InitAttributePrefix)(.*)/;
4631                         my $attr_prefix = $1;
4632                         my $attr_type = $2;
4633                         if (ERROR("INIT_ATTRIBUTE",
4634                                   "Use of const init definition must use ${attr_prefix}initconst\n" . $herecurr) &&
4635                             $fix) {
4636                                 $fixed[$fixlinenr] =~
4637                                     s/$InitAttributeData/${attr_prefix}initconst/;
4638                         }
4639                 }
4640
4641 # check for $InitAttributeConst (ie: __initconst) without const
4642                 if ($line !~ /\bconst\b/ && $line =~ /($InitAttributeConst)/) {
4643                         my $attr = $1;
4644                         if (ERROR("INIT_ATTRIBUTE",
4645                                   "Use of $attr requires a separate use of const\n" . $herecurr) &&
4646                             $fix) {
4647                                 my $lead = $fixed[$fixlinenr] =~
4648                                     /(^\+\s*(?:static\s+))/;
4649                                 $lead = rtrim($1);
4650                                 $lead = "$lead " if ($lead !~ /^\+$/);
4651                                 $lead = "${lead}const ";
4652                                 $fixed[$fixlinenr] =~ s/(^\+\s*(?:static\s+))/$lead/;
4653                         }
4654                 }
4655
4656 # don't use __constant_<foo> functions outside of include/uapi/
4657                 if ($realfile !~ m@^include/uapi/@ &&
4658                     $line =~ /(__constant_(?:htons|ntohs|[bl]e(?:16|32|64)_to_cpu|cpu_to_[bl]e(?:16|32|64)))\s*\(/) {
4659                         my $constant_func = $1;
4660                         my $func = $constant_func;
4661                         $func =~ s/^__constant_//;
4662                         if (WARN("CONSTANT_CONVERSION",
4663                                  "$constant_func should be $func\n" . $herecurr) &&
4664                             $fix) {
4665                                 $fixed[$fixlinenr] =~ s/\b$constant_func\b/$func/g;
4666                         }
4667                 }
4668
4669 # prefer usleep_range over udelay
4670                 if ($line =~ /\budelay\s*\(\s*(\d+)\s*\)/) {
4671                         my $delay = $1;
4672                         # ignore udelay's < 10, however
4673                         if (! ($delay < 10) ) {
4674                                 CHK("USLEEP_RANGE",
4675                                     "usleep_range is preferred over udelay; see Documentation/timers/timers-howto.txt\n" . $herecurr);
4676                         }
4677                         if ($delay > 2000) {
4678                                 WARN("LONG_UDELAY",
4679                                      "long udelay - prefer mdelay; see arch/arm/include/asm/delay.h\n" . $herecurr);
4680                         }
4681                 }
4682
4683 # warn about unexpectedly long msleep's
4684                 if ($line =~ /\bmsleep\s*\((\d+)\);/) {
4685                         if ($1 < 20) {
4686                                 WARN("MSLEEP",
4687                                      "msleep < 20ms can sleep for up to 20ms; see Documentation/timers/timers-howto.txt\n" . $herecurr);
4688                         }
4689                 }
4690
4691 # check for comparisons of jiffies
4692                 if ($line =~ /\bjiffies\s*$Compare|$Compare\s*jiffies\b/) {
4693                         WARN("JIFFIES_COMPARISON",
4694                              "Comparing jiffies is almost always wrong; prefer time_after, time_before and friends\n" . $herecurr);
4695                 }
4696
4697 # check for comparisons of get_jiffies_64()
4698                 if ($line =~ /\bget_jiffies_64\s*\(\s*\)\s*$Compare|$Compare\s*get_jiffies_64\s*\(\s*\)/) {
4699                         WARN("JIFFIES_COMPARISON",
4700                              "Comparing get_jiffies_64() is almost always wrong; prefer time_after64, time_before64 and friends\n" . $herecurr);
4701                 }
4702
4703 # warn about #ifdefs in C files
4704 #               if ($line =~ /^.\s*\#\s*if(|n)def/ && ($realfile =~ /\.c$/)) {
4705 #                       print "#ifdef in C files should be avoided\n";
4706 #                       print "$herecurr";
4707 #                       $clean = 0;
4708 #               }
4709
4710 # warn about spacing in #ifdefs
4711                 if ($line =~ /^.\s*\#\s*(ifdef|ifndef|elif)\s\s+/) {
4712                         if (ERROR("SPACING",
4713                                   "exactly one space required after that #$1\n" . $herecurr) &&
4714                             $fix) {
4715                                 $fixed[$fixlinenr] =~
4716                                     s/^(.\s*\#\s*(ifdef|ifndef|elif))\s{2,}/$1 /;
4717                         }
4718
4719                 }
4720
4721 # check for spinlock_t definitions without a comment.
4722                 if ($line =~ /^.\s*(struct\s+mutex|spinlock_t)\s+\S+;/ ||
4723                     $line =~ /^.\s*(DEFINE_MUTEX)\s*\(/) {
4724                         my $which = $1;
4725                         if (!ctx_has_comment($first_line, $linenr)) {
4726                                 CHK("UNCOMMENTED_DEFINITION",
4727                                     "$1 definition without comment\n" . $herecurr);
4728                         }
4729                 }
4730 # check for memory barriers without a comment.
4731                 if ($line =~ /\b(mb|rmb|wmb|read_barrier_depends|smp_mb|smp_rmb|smp_wmb|smp_read_barrier_depends)\(/) {
4732                         if (!ctx_has_comment($first_line, $linenr)) {
4733                                 WARN("MEMORY_BARRIER",
4734                                      "memory barrier without comment\n" . $herecurr);
4735                         }
4736                 }
4737 # check of hardware specific defines
4738                 if ($line =~ m@^.\s*\#\s*if.*\b(__i386__|__powerpc64__|__sun__|__s390x__)\b@ && $realfile !~ m@include/asm-@) {
4739                         CHK("ARCH_DEFINES",
4740                             "architecture specific defines should be avoided\n" .  $herecurr);
4741                 }
4742
4743 # Check that the storage class is at the beginning of a declaration
4744                 if ($line =~ /\b$Storage\b/ && $line !~ /^.\s*$Storage\b/) {
4745                         WARN("STORAGE_CLASS",
4746                              "storage class should be at the beginning of the declaration\n" . $herecurr)
4747                 }
4748
4749 # check the location of the inline attribute, that it is between
4750 # storage class and type.
4751                 if ($line =~ /\b$Type\s+$Inline\b/ ||
4752                     $line =~ /\b$Inline\s+$Storage\b/) {
4753                         ERROR("INLINE_LOCATION",
4754                               "inline keyword should sit between storage class and type\n" . $herecurr);
4755                 }
4756
4757 # Check for __inline__ and __inline, prefer inline
4758                 if ($realfile !~ m@\binclude/uapi/@ &&
4759                     $line =~ /\b(__inline__|__inline)\b/) {
4760                         if (WARN("INLINE",
4761                                  "plain inline is preferred over $1\n" . $herecurr) &&
4762                             $fix) {
4763                                 $fixed[$fixlinenr] =~ s/\b(__inline__|__inline)\b/inline/;
4764
4765                         }
4766                 }
4767
4768 # Check for __attribute__ packed, prefer __packed
4769                 if ($realfile !~ m@\binclude/uapi/@ &&
4770                     $line =~ /\b__attribute__\s*\(\s*\(.*\bpacked\b/) {
4771                         WARN("PREFER_PACKED",
4772                              "__packed is preferred over __attribute__((packed))\n" . $herecurr);
4773                 }
4774
4775 # Check for __attribute__ aligned, prefer __aligned
4776                 if ($realfile !~ m@\binclude/uapi/@ &&
4777                     $line =~ /\b__attribute__\s*\(\s*\(.*aligned/) {
4778                         WARN("PREFER_ALIGNED",
4779                              "__aligned(size) is preferred over __attribute__((aligned(size)))\n" . $herecurr);
4780                 }
4781
4782 # Check for __attribute__ format(printf, prefer __printf
4783                 if ($realfile !~ m@\binclude/uapi/@ &&
4784                     $line =~ /\b__attribute__\s*\(\s*\(\s*format\s*\(\s*printf/) {
4785                         if (WARN("PREFER_PRINTF",
4786                                  "__printf(string-index, first-to-check) is preferred over __attribute__((format(printf, string-index, first-to-check)))\n" . $herecurr) &&
4787                             $fix) {
4788                                 $fixed[$fixlinenr] =~ s/\b__attribute__\s*\(\s*\(\s*format\s*\(\s*printf\s*,\s*(.*)\)\s*\)\s*\)/"__printf(" . trim($1) . ")"/ex;
4789
4790                         }
4791                 }
4792
4793 # Check for __attribute__ format(scanf, prefer __scanf
4794                 if ($realfile !~ m@\binclude/uapi/@ &&
4795                     $line =~ /\b__attribute__\s*\(\s*\(\s*format\s*\(\s*scanf\b/) {
4796                         if (WARN("PREFER_SCANF",
4797                                  "__scanf(string-index, first-to-check) is preferred over __attribute__((format(scanf, string-index, first-to-check)))\n" . $herecurr) &&
4798                             $fix) {
4799                                 $fixed[$fixlinenr] =~ s/\b__attribute__\s*\(\s*\(\s*format\s*\(\s*scanf\s*,\s*(.*)\)\s*\)\s*\)/"__scanf(" . trim($1) . ")"/ex;
4800                         }
4801                 }
4802
4803 # Check for __attribute__ weak, or __weak declarations (may have link issues)
4804                 if ($^V && $^V ge 5.10.0 &&
4805                     $line =~ /(?:$Declare|$DeclareMisordered)\s*$Ident\s*$balanced_parens\s*(?:$Attribute)?\s*;/ &&
4806                     ($line =~ /\b__attribute__\s*\(\s*\(.*\bweak\b/ ||
4807                      $line =~ /\b__weak\b/)) {
4808                         ERROR("WEAK_DECLARATION",
4809                               "Using weak declarations can have unintended link defects\n" . $herecurr);
4810                 }
4811
4812 # check for sizeof(&)
4813                 if ($line =~ /\bsizeof\s*\(\s*\&/) {
4814                         WARN("SIZEOF_ADDRESS",
4815                              "sizeof(& should be avoided\n" . $herecurr);
4816                 }
4817
4818 # check for sizeof without parenthesis
4819                 if ($line =~ /\bsizeof\s+((?:\*\s*|)$Lval|$Type(?:\s+$Lval|))/) {
4820                         if (WARN("SIZEOF_PARENTHESIS",
4821                                  "sizeof $1 should be sizeof($1)\n" . $herecurr) &&
4822                             $fix) {
4823                                 $fixed[$fixlinenr] =~ s/\bsizeof\s+((?:\*\s*|)$Lval|$Type(?:\s+$Lval|))/"sizeof(" . trim($1) . ")"/ex;
4824                         }
4825                 }
4826
4827 # check for struct spinlock declarations
4828                 if ($line =~ /^.\s*\bstruct\s+spinlock\s+\w+\s*;/) {
4829                         WARN("USE_SPINLOCK_T",
4830                              "struct spinlock should be spinlock_t\n" . $herecurr);
4831                 }
4832
4833 # check for seq_printf uses that could be seq_puts
4834                 if ($sline =~ /\bseq_printf\s*\(.*"\s*\)\s*;\s*$/) {
4835                         my $fmt = get_quoted_string($line, $rawline);
4836                         if ($fmt ne "" && $fmt !~ /[^\\]\%/) {
4837                                 if (WARN("PREFER_SEQ_PUTS",
4838                                          "Prefer seq_puts to seq_printf\n" . $herecurr) &&
4839                                     $fix) {
4840                                         $fixed[$fixlinenr] =~ s/\bseq_printf\b/seq_puts/;
4841                                 }
4842                         }
4843                 }
4844
4845 # Check for misused memsets
4846                 if ($^V && $^V ge 5.10.0 &&
4847                     defined $stat &&
4848                     $stat =~ /^\+(?:.*?)\bmemset\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*$FuncArg\s*\)/s) {
4849
4850                         my $ms_addr = $2;
4851                         my $ms_val = $7;
4852                         my $ms_size = $12;
4853
4854                         if ($ms_size =~ /^(0x|)0$/i) {
4855                                 ERROR("MEMSET",
4856                                       "memset to 0's uses 0 as the 2nd argument, not the 3rd\n" . "$here\n$stat\n");
4857                         } elsif ($ms_size =~ /^(0x|)1$/i) {
4858                                 WARN("MEMSET",
4859                                      "single byte memset is suspicious. Swapped 2nd/3rd argument?\n" . "$here\n$stat\n");
4860                         }
4861                 }
4862
4863 # Check for memcpy(foo, bar, ETH_ALEN) that could be ether_addr_copy(foo, bar)
4864                 if ($^V && $^V ge 5.10.0 &&
4865                     $line =~ /^\+(?:.*?)\bmemcpy\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*ETH_ALEN\s*\)/s) {
4866                         if (WARN("PREFER_ETHER_ADDR_COPY",
4867                                  "Prefer ether_addr_copy() over memcpy() if the Ethernet addresses are __aligned(2)\n" . $herecurr) &&
4868                             $fix) {
4869                                 $fixed[$fixlinenr] =~ s/\bmemcpy\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*ETH_ALEN\s*\)/ether_addr_copy($2, $7)/;
4870                         }
4871                 }
4872
4873 # typecasts on min/max could be min_t/max_t
4874                 if ($^V && $^V ge 5.10.0 &&
4875                     defined $stat &&
4876                     $stat =~ /^\+(?:.*?)\b(min|max)\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\)/) {
4877                         if (defined $2 || defined $7) {
4878                                 my $call = $1;
4879                                 my $cast1 = deparenthesize($2);
4880                                 my $arg1 = $3;
4881                                 my $cast2 = deparenthesize($7);
4882                                 my $arg2 = $8;
4883                                 my $cast;
4884
4885                                 if ($cast1 ne "" && $cast2 ne "" && $cast1 ne $cast2) {
4886                                         $cast = "$cast1 or $cast2";
4887                                 } elsif ($cast1 ne "") {
4888                                         $cast = $cast1;
4889                                 } else {
4890                                         $cast = $cast2;
4891                                 }
4892                                 WARN("MINMAX",
4893                                      "$call() should probably be ${call}_t($cast, $arg1, $arg2)\n" . "$here\n$stat\n");
4894                         }
4895                 }
4896
4897 # check usleep_range arguments
4898                 if ($^V && $^V ge 5.10.0 &&
4899                     defined $stat &&
4900                     $stat =~ /^\+(?:.*?)\busleep_range\s*\(\s*($FuncArg)\s*,\s*($FuncArg)\s*\)/) {
4901                         my $min = $1;
4902                         my $max = $7;
4903                         if ($min eq $max) {
4904                                 WARN("USLEEP_RANGE",
4905                                      "usleep_range should not use min == max args; see Documentation/timers/timers-howto.txt\n" . "$here\n$stat\n");
4906                         } elsif ($min =~ /^\d+$/ && $max =~ /^\d+$/ &&
4907                                  $min > $max) {
4908                                 WARN("USLEEP_RANGE",
4909                                      "usleep_range args reversed, use min then max; see Documentation/timers/timers-howto.txt\n" . "$here\n$stat\n");
4910                         }
4911                 }
4912
4913 # check for naked sscanf
4914                 if ($^V && $^V ge 5.10.0 &&
4915                     defined $stat &&
4916                     $line =~ /\bsscanf\b/ &&
4917                     ($stat !~ /$Ident\s*=\s*sscanf\s*$balanced_parens/ &&
4918                      $stat !~ /\bsscanf\s*$balanced_parens\s*(?:$Compare)/ &&
4919                      $stat !~ /(?:$Compare)\s*\bsscanf\s*$balanced_parens/)) {
4920                         my $lc = $stat =~ tr@\n@@;
4921                         $lc = $lc + $linenr;
4922                         my $stat_real = raw_line($linenr, 0);
4923                         for (my $count = $linenr + 1; $count <= $lc; $count++) {
4924                                 $stat_real = $stat_real . "\n" . raw_line($count, 0);
4925                         }
4926                         WARN("NAKED_SSCANF",
4927                              "unchecked sscanf return value\n" . "$here\n$stat_real\n");
4928                 }
4929
4930 # check for simple sscanf that should be kstrto<foo>
4931                 if ($^V && $^V ge 5.10.0 &&
4932                     defined $stat &&
4933                     $line =~ /\bsscanf\b/) {
4934                         my $lc = $stat =~ tr@\n@@;
4935                         $lc = $lc + $linenr;
4936                         my $stat_real = raw_line($linenr, 0);
4937                         for (my $count = $linenr + 1; $count <= $lc; $count++) {
4938                                 $stat_real = $stat_real . "\n" . raw_line($count, 0);
4939                         }
4940                         if ($stat_real =~ /\bsscanf\b\s*\(\s*$FuncArg\s*,\s*("[^"]+")/) {
4941                                 my $format = $6;
4942                                 my $count = $format =~ tr@%@%@;
4943                                 if ($count == 1 &&
4944                                     $format =~ /^"\%(?i:ll[udxi]|[udxi]ll|ll|[hl]h?[udxi]|[udxi][hl]h?|[hl]h?|[udxi])"$/) {
4945                                         WARN("SSCANF_TO_KSTRTO",
4946                                              "Prefer kstrto<type> to single variable sscanf\n" . "$here\n$stat_real\n");
4947                                 }
4948                         }
4949                 }
4950
4951 # check for new externs in .h files.
4952                 if ($realfile =~ /\.h$/ &&
4953                     $line =~ /^\+\s*(extern\s+)$Type\s*$Ident\s*\(/s) {
4954                         if (CHK("AVOID_EXTERNS",
4955                                 "extern prototypes should be avoided in .h files\n" . $herecurr) &&
4956                             $fix) {
4957                                 $fixed[$fixlinenr] =~ s/(.*)\bextern\b\s*(.*)/$1$2/;
4958                         }
4959                 }
4960
4961 # check for new externs in .c files.
4962                 if ($realfile =~ /\.c$/ && defined $stat &&
4963                     $stat =~ /^.\s*(?:extern\s+)?$Type\s+($Ident)(\s*)\(/s)
4964                 {
4965                         my $function_name = $1;
4966                         my $paren_space = $2;
4967
4968                         my $s = $stat;
4969                         if (defined $cond) {
4970                                 substr($s, 0, length($cond), '');
4971                         }
4972                         if ($s =~ /^\s*;/ &&
4973                             $function_name ne 'uninitialized_var')
4974                         {
4975                                 WARN("AVOID_EXTERNS",
4976                                      "externs should be avoided in .c files\n" .  $herecurr);
4977                         }
4978
4979                         if ($paren_space =~ /\n/) {
4980                                 WARN("FUNCTION_ARGUMENTS",
4981                                      "arguments for function declarations should follow identifier\n" . $herecurr);
4982                         }
4983
4984                 } elsif ($realfile =~ /\.c$/ && defined $stat &&
4985                     $stat =~ /^.\s*extern\s+/)
4986                 {
4987                         WARN("AVOID_EXTERNS",
4988                              "externs should be avoided in .c files\n" .  $herecurr);
4989                 }
4990
4991 # checks for new __setup's
4992                 if ($rawline =~ /\b__setup\("([^"]*)"/) {
4993                         my $name = $1;
4994
4995                         if (!grep(/$name/, @setup_docs)) {
4996                                 CHK("UNDOCUMENTED_SETUP",
4997                                     "__setup appears un-documented -- check Documentation/kernel-parameters.txt\n" . $herecurr);
4998                         }
4999                 }
5000
5001 # check for pointless casting of kmalloc return
5002                 if ($line =~ /\*\s*\)\s*[kv][czm]alloc(_node){0,1}\b/) {
5003                         WARN("UNNECESSARY_CASTS",
5004                              "unnecessary cast may hide bugs, see http://c-faq.com/malloc/mallocnocast.html\n" . $herecurr);
5005                 }
5006
5007 # alloc style
5008 # p = alloc(sizeof(struct foo), ...) should be p = alloc(sizeof(*p), ...)
5009                 if ($^V && $^V ge 5.10.0 &&
5010                     $line =~ /\b($Lval)\s*\=\s*(?:$balanced_parens)?\s*([kv][mz]alloc(?:_node)?)\s*\(\s*(sizeof\s*\(\s*struct\s+$Lval\s*\))/) {
5011                         CHK("ALLOC_SIZEOF_STRUCT",
5012                             "Prefer $3(sizeof(*$1)...) over $3($4...)\n" . $herecurr);
5013                 }
5014
5015 # check for k[mz]alloc with multiplies that could be kmalloc_array/kcalloc
5016                 if ($^V && $^V ge 5.10.0 &&
5017                     $line =~ /\b($Lval)\s*\=\s*(?:$balanced_parens)?\s*(k[mz]alloc)\s*\(\s*($FuncArg)\s*\*\s*($FuncArg)\s*,/) {
5018                         my $oldfunc = $3;
5019                         my $a1 = $4;
5020                         my $a2 = $10;
5021                         my $newfunc = "kmalloc_array";
5022                         $newfunc = "kcalloc" if ($oldfunc eq "kzalloc");
5023                         my $r1 = $a1;
5024                         my $r2 = $a2;
5025                         if ($a1 =~ /^sizeof\s*\S/) {
5026                                 $r1 = $a2;
5027                                 $r2 = $a1;
5028                         }
5029                         if ($r1 !~ /^sizeof\b/ && $r2 =~ /^sizeof\s*\S/ &&
5030                             !($r1 =~ /^$Constant$/ || $r1 =~ /^[A-Z_][A-Z0-9_]*$/)) {
5031                                 if (WARN("ALLOC_WITH_MULTIPLY",
5032                                          "Prefer $newfunc over $oldfunc with multiply\n" . $herecurr) &&
5033                                     $fix) {
5034                                         $fixed[$fixlinenr] =~ s/\b($Lval)\s*\=\s*(?:$balanced_parens)?\s*(k[mz]alloc)\s*\(\s*($FuncArg)\s*\*\s*($FuncArg)/$1 . ' = ' . "$newfunc(" . trim($r1) . ', ' . trim($r2)/e;
5035
5036                                 }
5037                         }
5038                 }
5039
5040 # check for krealloc arg reuse
5041                 if ($^V && $^V ge 5.10.0 &&
5042                     $line =~ /\b($Lval)\s*\=\s*(?:$balanced_parens)?\s*krealloc\s*\(\s*\1\s*,/) {
5043                         WARN("KREALLOC_ARG_REUSE",
5044                              "Reusing the krealloc arg is almost always a bug\n" . $herecurr);
5045                 }
5046
5047 # check for alloc argument mismatch
5048                 if ($line =~ /\b(kcalloc|kmalloc_array)\s*\(\s*sizeof\b/) {
5049                         WARN("ALLOC_ARRAY_ARGS",
5050                              "$1 uses number as first arg, sizeof is generally wrong\n" . $herecurr);
5051                 }
5052
5053 # check for multiple semicolons
5054                 if ($line =~ /;\s*;\s*$/) {
5055                         if (WARN("ONE_SEMICOLON",
5056                                  "Statements terminations use 1 semicolon\n" . $herecurr) &&
5057                             $fix) {
5058                                 $fixed[$fixlinenr] =~ s/(\s*;\s*){2,}$/;/g;
5059                         }
5060                 }
5061
5062 # check for #defines like: 1 << <digit> that could be BIT(digit)
5063                 if ($line =~ /#\s*define\s+\w+\s+\(?\s*1\s*([ulUL]*)\s*\<\<\s*(?:\d+|$Ident)\s*\)?/) {
5064                         my $ull = "";
5065                         $ull = "_ULL" if (defined($1) && $1 =~ /ll/i);
5066                         if (CHK("BIT_MACRO",
5067                                 "Prefer using the BIT$ull macro\n" . $herecurr) &&
5068                             $fix) {
5069                                 $fixed[$fixlinenr] =~ s/\(?\s*1\s*[ulUL]*\s*<<\s*(\d+|$Ident)\s*\)?/BIT${ull}($1)/;
5070                         }
5071                 }
5072
5073 # check for case / default statements not preceded by break/fallthrough/switch
5074                 if ($line =~ /^.\s*(?:case\s+(?:$Ident|$Constant)\s*|default):/) {
5075                         my $has_break = 0;
5076                         my $has_statement = 0;
5077                         my $count = 0;
5078                         my $prevline = $linenr;
5079                         while ($prevline > 1 && ($file || $count < 3) && !$has_break) {
5080                                 $prevline--;
5081                                 my $rline = $rawlines[$prevline - 1];
5082                                 my $fline = $lines[$prevline - 1];
5083                                 last if ($fline =~ /^\@\@/);
5084                                 next if ($fline =~ /^\-/);
5085                                 next if ($fline =~ /^.(?:\s*(?:case\s+(?:$Ident|$Constant)[\s$;]*|default):[\s$;]*)*$/);
5086                                 $has_break = 1 if ($rline =~ /fall[\s_-]*(through|thru)/i);
5087                                 next if ($fline =~ /^.[\s$;]*$/);
5088                                 $has_statement = 1;
5089                                 $count++;
5090                                 $has_break = 1 if ($fline =~ /\bswitch\b|\b(?:break\s*;[\s$;]*$|return\b|goto\b|continue\b)/);
5091                         }
5092                         if (!$has_break && $has_statement) {
5093                                 WARN("MISSING_BREAK",
5094                                      "Possible switch case/default not preceeded by break or fallthrough comment\n" . $herecurr);
5095                         }
5096                 }
5097
5098 # check for switch/default statements without a break;
5099                 if ($^V && $^V ge 5.10.0 &&
5100                     defined $stat &&
5101                     $stat =~ /^\+[$;\s]*(?:case[$;\s]+\w+[$;\s]*:[$;\s]*|)*[$;\s]*\bdefault[$;\s]*:[$;\s]*;/g) {
5102                         my $ctx = '';
5103                         my $herectx = $here . "\n";
5104                         my $cnt = statement_rawlines($stat);
5105                         for (my $n = 0; $n < $cnt; $n++) {
5106                                 $herectx .= raw_line($linenr, $n) . "\n";
5107                         }
5108                         WARN("DEFAULT_NO_BREAK",
5109                              "switch default: should use break\n" . $herectx);
5110                 }
5111
5112 # check for gcc specific __FUNCTION__
5113                 if ($line =~ /\b__FUNCTION__\b/) {
5114                         if (WARN("USE_FUNC",
5115                                  "__func__ should be used instead of gcc specific __FUNCTION__\n"  . $herecurr) &&
5116                             $fix) {
5117                                 $fixed[$fixlinenr] =~ s/\b__FUNCTION__\b/__func__/g;
5118                         }
5119                 }
5120
5121 # check for uses of __DATE__, __TIME__, __TIMESTAMP__
5122                 while ($line =~ /\b(__(?:DATE|TIME|TIMESTAMP)__)\b/g) {
5123                         ERROR("DATE_TIME",
5124                               "Use of the '$1' macro makes the build non-deterministic\n" . $herecurr);
5125                 }
5126
5127 # check for use of yield()
5128                 if ($line =~ /\byield\s*\(\s*\)/) {
5129                         WARN("YIELD",
5130                              "Using yield() is generally wrong. See yield() kernel-doc (sched/core.c)\n"  . $herecurr);
5131                 }
5132
5133 # check for comparisons against true and false
5134                 if ($line =~ /\+\s*(.*?)\b(true|false|$Lval)\s*(==|\!=)\s*(true|false|$Lval)\b(.*)$/i) {
5135                         my $lead = $1;
5136                         my $arg = $2;
5137                         my $test = $3;
5138                         my $otype = $4;
5139                         my $trail = $5;
5140                         my $op = "!";
5141
5142                         ($arg, $otype) = ($otype, $arg) if ($arg =~ /^(?:true|false)$/i);
5143
5144                         my $type = lc($otype);
5145                         if ($type =~ /^(?:true|false)$/) {
5146                                 if (("$test" eq "==" && "$type" eq "true") ||
5147                                     ("$test" eq "!=" && "$type" eq "false")) {
5148                                         $op = "";
5149                                 }
5150
5151                                 CHK("BOOL_COMPARISON",
5152                                     "Using comparison to $otype is error prone\n" . $herecurr);
5153
5154 ## maybe suggesting a correct construct would better
5155 ##                                  "Using comparison to $otype is error prone.  Perhaps use '${lead}${op}${arg}${trail}'\n" . $herecurr);
5156
5157                         }
5158                 }
5159
5160 # check for semaphores initialized locked
5161                 if ($line =~ /^.\s*sema_init.+,\W?0\W?\)/) {
5162                         WARN("CONSIDER_COMPLETION",
5163                              "consider using a completion\n" . $herecurr);
5164                 }
5165
5166 # recommend kstrto* over simple_strto* and strict_strto*
5167                 if ($line =~ /\b((simple|strict)_(strto(l|ll|ul|ull)))\s*\(/) {
5168                         WARN("CONSIDER_KSTRTO",
5169                              "$1 is obsolete, use k$3 instead\n" . $herecurr);
5170                 }
5171
5172 # check for __initcall(), use device_initcall() explicitly or more appropriate function please
5173                 if ($line =~ /^.\s*__initcall\s*\(/) {
5174                         WARN("USE_DEVICE_INITCALL",
5175                              "please use device_initcall() or more appropriate function instead of __initcall() (see include/linux/init.h)\n" . $herecurr);
5176                 }
5177
5178 # check for various ops structs, ensure they are const.
5179                 my $struct_ops = qr{acpi_dock_ops|
5180                                 address_space_operations|
5181                                 backlight_ops|
5182                                 block_device_operations|
5183                                 dentry_operations|
5184                                 dev_pm_ops|
5185                                 dma_map_ops|
5186                                 extent_io_ops|
5187                                 file_lock_operations|
5188                                 file_operations|
5189                                 hv_ops|
5190                                 ide_dma_ops|
5191                                 intel_dvo_dev_ops|
5192                                 item_operations|
5193                                 iwl_ops|
5194                                 kgdb_arch|
5195                                 kgdb_io|
5196                                 kset_uevent_ops|
5197                                 lock_manager_operations|
5198                                 microcode_ops|
5199                                 mtrr_ops|
5200                                 neigh_ops|
5201                                 nlmsvc_binding|
5202                                 pci_raw_ops|
5203                                 pipe_buf_operations|
5204                                 platform_hibernation_ops|
5205                                 platform_suspend_ops|
5206                                 proto_ops|
5207                                 rpc_pipe_ops|
5208                                 seq_operations|
5209                                 snd_ac97_build_ops|
5210                                 soc_pcmcia_socket_ops|
5211                                 stacktrace_ops|
5212                                 sysfs_ops|
5213                                 tty_operations|
5214                                 usb_mon_operations|
5215                                 wd_ops}x;
5216                 if ($line !~ /\bconst\b/ &&
5217                     $line =~ /\bstruct\s+($struct_ops)\b/) {
5218                         WARN("CONST_STRUCT",
5219                              "struct $1 should normally be const\n" .
5220                                 $herecurr);
5221                 }
5222
5223 # use of NR_CPUS is usually wrong
5224 # ignore definitions of NR_CPUS and usage to define arrays as likely right
5225                 if ($line =~ /\bNR_CPUS\b/ &&
5226                     $line !~ /^.\s*\s*#\s*if\b.*\bNR_CPUS\b/ &&
5227                     $line !~ /^.\s*\s*#\s*define\b.*\bNR_CPUS\b/ &&
5228                     $line !~ /^.\s*$Declare\s.*\[[^\]]*NR_CPUS[^\]]*\]/ &&
5229                     $line !~ /\[[^\]]*\.\.\.[^\]]*NR_CPUS[^\]]*\]/ &&
5230                     $line !~ /\[[^\]]*NR_CPUS[^\]]*\.\.\.[^\]]*\]/)
5231                 {
5232                         WARN("NR_CPUS",
5233                              "usage of NR_CPUS is often wrong - consider using cpu_possible(), num_possible_cpus(), for_each_possible_cpu(), etc\n" . $herecurr);
5234                 }
5235
5236 # Use of __ARCH_HAS_<FOO> or ARCH_HAVE_<BAR> is wrong.
5237                 if ($line =~ /\+\s*#\s*define\s+((?:__)?ARCH_(?:HAS|HAVE)\w*)\b/) {
5238                         ERROR("DEFINE_ARCH_HAS",
5239                               "#define of '$1' is wrong - use Kconfig variables or standard guards instead\n" . $herecurr);
5240                 }
5241
5242 # whine mightly about in_atomic
5243                 if ($line =~ /\bin_atomic\s*\(/) {
5244                         if ($realfile =~ m@^drivers/@) {
5245                                 ERROR("IN_ATOMIC",
5246                                       "do not use in_atomic in drivers\n" . $herecurr);
5247                         } elsif ($realfile !~ m@^kernel/@) {
5248                                 WARN("IN_ATOMIC",
5249                                      "use of in_atomic() is incorrect outside core kernel code\n" . $herecurr);
5250                         }
5251                 }
5252
5253 # check for lockdep_set_novalidate_class
5254                 if ($line =~ /^.\s*lockdep_set_novalidate_class\s*\(/ ||
5255                     $line =~ /__lockdep_no_validate__\s*\)/ ) {
5256                         if ($realfile !~ m@^kernel/lockdep@ &&
5257                             $realfile !~ m@^include/linux/lockdep@ &&
5258                             $realfile !~ m@^drivers/base/core@) {
5259                                 ERROR("LOCKDEP",
5260                                       "lockdep_no_validate class is reserved for device->mutex.\n" . $herecurr);
5261                         }
5262                 }
5263
5264                 if ($line =~ /debugfs_create_file.*S_IWUGO/ ||
5265                     $line =~ /DEVICE_ATTR.*S_IWUGO/ ) {
5266                         WARN("EXPORTED_WORLD_WRITABLE",
5267                              "Exporting world writable files is usually an error. Consider more restrictive permissions.\n" . $herecurr);
5268                 }
5269
5270 # Mode permission misuses where it seems decimal should be octal
5271 # This uses a shortcut match to avoid unnecessary uses of a slow foreach loop
5272                 if ($^V && $^V ge 5.10.0 &&
5273                     $line =~ /$mode_perms_search/) {
5274                         foreach my $entry (@mode_permission_funcs) {
5275                                 my $func = $entry->[0];
5276                                 my $arg_pos = $entry->[1];
5277
5278                                 my $skip_args = "";
5279                                 if ($arg_pos > 1) {
5280                                         $arg_pos--;
5281                                         $skip_args = "(?:\\s*$FuncArg\\s*,\\s*){$arg_pos,$arg_pos}";
5282                                 }
5283                                 my $test = "\\b$func\\s*\\(${skip_args}([\\d]+)\\s*[,\\)]";
5284                                 if ($line =~ /$test/) {
5285                                         my $val = $1;
5286                                         $val = $6 if ($skip_args ne "");
5287
5288                                         if ($val !~ /^0$/ &&
5289                                             (($val =~ /^$Int$/ && $val !~ /^$Octal$/) ||
5290                                              length($val) ne 4)) {
5291                                                 ERROR("NON_OCTAL_PERMISSIONS",
5292                                                       "Use 4 digit octal (0777) not decimal permissions\n" . $herecurr);
5293                                         } elsif ($val =~ /^$Octal$/ && (oct($val) & 02)) {
5294                                                 ERROR("EXPORTED_WORLD_WRITABLE",
5295                                                       "Exporting writable files is usually an error. Consider more restrictive permissions.\n" . $herecurr);
5296                                         }
5297                                 }
5298                         }
5299                 }
5300         }
5301
5302         # If we have no input at all, then there is nothing to report on
5303         # so just keep quiet.
5304         if ($#rawlines == -1) {
5305                 exit(0);
5306         }
5307
5308         # In mailback mode only produce a report in the negative, for
5309         # things that appear to be patches.
5310         if ($mailback && ($clean == 1 || !$is_patch)) {
5311                 exit(0);
5312         }
5313
5314         # This is not a patch, and we are are in 'no-patch' mode so
5315         # just keep quiet.
5316         if (!$chk_patch && !$is_patch) {
5317                 exit(0);
5318         }
5319
5320         if (!$is_patch) {
5321                 ERROR("NOT_UNIFIED_DIFF",
5322                       "Does not appear to be a unified-diff format patch\n");
5323         }
5324         if ($is_patch && $chk_signoff && $signoff == 0) {
5325                 ERROR("MISSING_SIGN_OFF",
5326                       "Missing Signed-off-by: line(s)\n");
5327         }
5328
5329         print report_dump();
5330         if ($summary && !($clean == 1 && $quiet == 1)) {
5331                 print "$filename " if ($summary_file);
5332                 print "total: $cnt_error errors, $cnt_warn warnings, " .
5333                         (($check)? "$cnt_chk checks, " : "") .
5334                         "$cnt_lines lines checked\n";
5335                 print "\n" if ($quiet == 0);
5336         }
5337
5338         if ($quiet == 0) {
5339
5340                 if ($^V lt 5.10.0) {
5341                         print("NOTE: perl $^V is not modern enough to detect all possible issues.\n");
5342                         print("An upgrade to at least perl v5.10.0 is suggested.\n\n");
5343                 }
5344
5345                 # If there were whitespace errors which cleanpatch can fix
5346                 # then suggest that.
5347                 if ($rpt_cleaners) {
5348                         print "NOTE: whitespace errors detected, you may wish to use scripts/cleanpatch or\n";
5349                         print "      scripts/cleanfile\n\n";
5350                         $rpt_cleaners = 0;
5351                 }
5352         }
5353
5354         hash_show_words(\%use_type, "Used");
5355         hash_show_words(\%ignore_type, "Ignored");
5356
5357         if ($clean == 0 && $fix &&
5358             ("@rawlines" ne "@fixed" ||
5359              $#fixed_inserted >= 0 || $#fixed_deleted >= 0)) {
5360                 my $newfile = $filename;
5361                 $newfile .= ".EXPERIMENTAL-checkpatch-fixes" if (!$fix_inplace);
5362                 my $linecount = 0;
5363                 my $f;
5364
5365                 @fixed = fix_inserted_deleted_lines(\@fixed, \@fixed_inserted, \@fixed_deleted);
5366
5367                 open($f, '>', $newfile)
5368                     or die "$P: Can't open $newfile for write\n";
5369                 foreach my $fixed_line (@fixed) {
5370                         $linecount++;
5371                         if ($file) {
5372                                 if ($linecount > 3) {
5373                                         $fixed_line =~ s/^\+//;
5374                                         print $f $fixed_line . "\n";
5375                                 }
5376                         } else {
5377                                 print $f $fixed_line . "\n";
5378                         }
5379                 }
5380                 close($f);
5381
5382                 if (!$quiet) {
5383                         print << "EOM";
5384 Wrote EXPERIMENTAL --fix correction(s) to '$newfile'
5385
5386 Do _NOT_ trust the results written to this file.
5387 Do _NOT_ submit these changes without inspecting them for correctness.
5388
5389 This EXPERIMENTAL file is simply a convenience to help rewrite patches.
5390 No warranties, expressed or implied...
5391
5392 EOM
5393                 }
5394         }
5395
5396         if ($clean == 1 && $quiet == 0) {
5397                 print "$vname has no obvious style problems and is ready for submission.\n"
5398         }
5399         if ($clean == 0 && $quiet == 0) {
5400                 print << "EOM";
5401 $vname has style problems, please review.
5402
5403 If any of these errors are false positives, please report
5404 them to the maintainer, see CHECKPATCH in MAINTAINERS.
5405 EOM
5406         }
5407
5408         return $clean;
5409 }