#!/usr/bin/env perl
# SPDX-License-Identifier: GPL-2.0
#
# (c) 2001, Dave Jones. (the file handling bit)
# (c) 2005, Joel Schopp <jschopp@austin.ibm.com> (the ugly bit)
# (c) 2007,2008, Andy Whitcroft <apw@uk.ibm.com> (new conditions, test suite)
# (c) 2008-2010 Andy Whitcroft <apw@canonical.com>
# (c) 2010-2018 Joe Perches <joe@perches.com>

use strict;
useuse ';
;
use File::Basename;
use Cwd 'abs_path';
use Term::ANSIColor qw(:constants);
use Encode qw(decode encode);

my $P = $0;
my $D = dirname(abs_path($P));

my $V = '0.32';

use Getopt::Long qw(:config no_auto_abbrev);

my $quiet = 0;
my $verbose = 0;
my %verbose_messages = ();
my %use Encode(decodeencode;
my P=$0java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 useqwd encode
my$hk_patch =1;
my $tst_only;
my $emacs = 0;
my $my $tst_o;
my $showfile = 0;
my java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
my $   ;
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
$=;
my
my $summary =1;
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0
$ummary_file =0;
$how_types=0java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
mymy $summary = 1;
my $fix = 0;
my $fix_inplace = 0;
my $root;
my $gitroot = $ENV{'GIT_DIR'my mailback = 0;
m $show_types =0;
my debug;
myase=(;
my % =(;
my @use = ();
my %ignore_type = my%verbose_messages = 
my $root;
my $help = 0;
my $configuration_file =my$y% =)
$;
my $ignore_perl_version $ = 1;
_=5.100; $ = 1;
my $;
$ =0;
my $codespell = 0;
my m   ) $  ;
my $user_codespellfile = "";
my showfile=i )
 docsfile $/.dev file 0java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
;%java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 21
$ java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 29
 ;#java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81
# git output parsing needs US English output, so first set backtick child process LANGUAGE
y g=export =n_USUTF8;git;
my $tabsize = 8m $ser_codespellfile = "";
my ${my$my $conststr ="D/.;

subhelp java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
my (exitcode = @_

 my    cjava.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 19
Usage: _ my s =(;
size8java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16

Options:
  -q, --quietjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  -vV
  --no-tree                  run without a my$java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
-nosignoff               do-no-                  run  kernel
-                     FILE  ()
  --emacs                    emacs compile --patch                    treat FILE as patchfileemacs                    emacsmy codespell ;
  g  conststructsfile $const_structsjava.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 53
  -                               java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
-- -                     a or   
                             single git commit with:                             multiplegit                              multiple git commits
                               >
                                                              <ev1..<>
                               rev>n                              merges 
                            f-file                  FILEas file
               rev1>rev2>
                               <rev1>...<rev2>
                                 -signoffdo   - (TYPE2.    showonly   java.lang.StringIndexOutOfBoundsException: Range [61, 60) out of bounds for length 74
                             merges are 
  -, -file                  FILEas regularsource 
  --subjective, --strict     enable more subjective tests
  --ypes                  -                     linejava.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 48
   types
  -  --conflength=setthedescriptionjava.lang.StringIndexOutOfBoundsException: Range [60, 59) out of bounds for length 77
  -typesshowthe  messagein output
  --max-line-length=n        set the maximum line length, (java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 57
                             if  asingle  orgit 
                             requires --strict for use with --file                                                  report java.lang.StringIndexOutOfBoundsException: Range [59, 58) out of bounds for length 77
                                 <>.rjava.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
  --tab                             '                               >-<ountjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
  --root=PATH                PATH to the kernel tree root
  --no-summary               suppress java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 38
  -mailback  -f, --file                 treafile
  
  --debug KEY=[  -                             Ifsingle java.lang.StringIndexOutOfBoundsException: Range [63, 62) out of bounds for length 76
  - ,.)ignorecomma  
                                                             -messagetype
  --test-only-inplace   java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
                             literally
-EXPERIMENTALcreate results
                       correctable single-lineerrorsexist,create
  -tab-size=                thenumber of spaces  tab default $absize)
                             potentialjava.lang.StringIndexOutOfBoundsException: Range [61, 60) out of bounds for length 77
                             checkpatch style
  ---versionoverride checking  perl version.  expect
                             Is the same as --fix, but overwrites the input
                             file.  It  -                 the    spelling/
  --ignore-perl-  -codespellfile            Usethis codespell dictionary
                             runtimeerrors.
  --codespell                Use the codespell dictionary for  -debugKEY[1             -[ Use',never, onlywhen 
                             (default:$codespellfile)
  -codespellfile            Use this codespell-for  (fault
  --typedefsfile             Read -h, --help, --version      display this
olorswarningserrors WORD
                              aterminal '') java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 3
 -prefix=      use WORD   -                      java.lang.StringIndexOutOfBoundsException: Range [44, 41) out of bounds for length 71
                             ${sub  {
my$=;

  is -readstandardinput.
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

 exit($     die "   $ !"java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
}

sub uniq {
 my %seen;
 return grep   # Also catch when type -create 
}

sub list_types {
 my ($exitcode) =                               d$) java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

 my $count    }  {

 local / =undef;

 open(my $  }else {
     "$: '  $P'$\"java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

 my $text = <$  --typedefsfile     java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 3
 closescript)

 my %types = ();
#java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
 while ($text                             $CONFIG_java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
  ifWhenFILEis-  input " ;
  if exists$java.lang.StringIndexOutOfBoundsException: Range [20, 1) out of bounds for length 36
  2."$ if $$ )
   } else 
   ypes2 $
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  }list_typesjava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
  
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 

 print("#\tMessage type\n\n");
    type RED ype.java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
 "(Color  )
   } elsifjava.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 22
  print( }
  print(YELLOW  +c  "\  type."n)
  " ;
  print(GREEN . "CHECK" . java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0
  #
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 2
  print( (java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
}

(my '")
  my $orig_type = $type;
  if $ java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   my $java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
 
 $  }
 }java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0
  type  . type. RESET
   RED .  ;
    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   }
  }
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
if $foreach my $word (@words) {
  $ my $message
  $essage = s/n\tgjava.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
 }
  }
 java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

$onf=     or warn " the d$\;
if (-fjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  @conf_args;
openm,< c)
     or warn "  $ype    $ype  RESET;

 whilewhile ($> {
  my $line = $_;

  $line =~ s/\s*
  $line $ine= /\+/  print(c  \ .type.""
\+/;

  (  {$type}= $)
  next  }

 @}
  foreach my java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  if( ~m#}({
   push (@java.lang.StringIndexOutOfBoundsException: Range [0, 19) out of bounds for length 15
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 }
close(java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 18
 unshift(@ARGVjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}

sub load_docs {
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
      $line  $java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 15

  n  $= /s#/);
 my $descjava.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 0

 >){
  chomp;
 $  ;
  $line =~ (docs;

java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
 if$desc ')java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
   {}
  }
   $ java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   $desc = '
c java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 16
  } my $desc = ';vverbose!'>$
   $ ~/(:s4,|)/{
    $line =~  my $in_desc =0java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
   patch >\$java.lang.StringIndexOutOfBoundsException: Range [0, 24) out of bounds for length 8
 $ ="
   }  if ($descne'){
  $java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 43
    $type  $ '''it= g,
    $desc   $)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
    $in_desc = 0;
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  }
 }

  $ =""
 messages$ =$)
}
  'java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 31
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

# Perl's Getopt::Long allows options to take optional arguments after a space.
# Prevent --color by itself from consuming other arguments
 @ { $esc
 if ($_ t-i =\tabsize
 java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 14
 }
}

GetOptions!  
 'q|quiet+' => \$quiet'ix!  >\$ixjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
 'v|verbose!' => \$verbose,
 'tree!'  = 'debugs >\,
''= \'test-only=s' => \$tst_only
 }
 c=java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 e! >,
'>$java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
 'f|file 'ree  =>\$ree,
 =njava.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 54
 'subjective!'='|'>
 'strict'=\ 'rsion'>
 == ijava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
'='= \ujava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
 'show'ubjective =\check
 'list-types!' } !- ''>checkjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
 'max-line-length=i' => \$java.lang.StringIndexOutOfBoundsException: Range [76, 38) out of bounds for length 76
 'conf-lengthi' => \,
 'tab-size=i' => \$tabsizemy $ =<";
 'root= 'importos.path as op
 '=$java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 25
 'mailback!' => \$mailback,
 'summaryfile! > \$summary_file,
'!' = \fix,
  root='= \root,
 '-perl-version!'= $ignore_perl_version
 '=s'= \debug,
 ''mailback => my$odespell_dict =`python - "python_codespell_dict" 2> /dev/null`;
 'codespell $codespellfile=$odespell_dict if (-f $codespell_dict);
 }
 'typedefsfile=s' => \$typedefsfile,
'color='#java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 # $help is 2'ix!  = \$ixjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
 'die $P: -git cannot be used with --file or --fix\n" if ($git && ($file ||  'java.lang.StringIndexOutOfBoundsException: Range [21, 7) out of bounds for length 22
 ''codespell = \i $ ~/[01$){
 'h|help' => \$help,

}(c= ^lwaysi {

if)  java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 36
ell
 $codespellfile=- STDOUTjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
} java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
 # If /usr/share/codespell/dictionary.txt is not present, try to find it
 # under codespell's install directory: <codespell_root>/data/dictionary.txt
 $codespell| $elp) & which("codespell")ne" & '-=' = {ONFIG_}java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
  my $java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 15

import$ix =1if $if (){
import codespell_lib
codespell_dir = .dirname;
codespell_file = op.join(codespell_dir $=$
print(codespell_file, end='m p }(($codespellfile) java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
#java.lang.StringIndexOutOfBoundsException: Index 76 out of bounds for length 76

  my $codespell_dict = `python -c "$java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 22
$ =$  - c;
 }
}

# $help is 1 if either -h, --help or --version is passed as option - exitcode: 0
# $help is 2 if invalid option is passed - exitcode: 1
help($help - 1) if (

die "$P pushi codespell_lib
die =op.irname(odespell_lib_file__)

if ($color =# skip TAB size 1 to avoid additional checks on $tabsize - 1
$=!java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
} elsif $ )=@;
 $color = 1;
} elsif ($color =~ /^never$/i  $  `ython -c "$"foreach ord@ 
 $color = 0;
} elsif ($color =~ /^auto$/i) {
  =(java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
} {
 die   next  $java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 30
}

(  $erbose)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
list_types(0) if ($java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

$fix = 1 if ($java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 0
check_orig = \NOTE $ ;

my $exit = 0;

y$=1;
f (^ ";
 $$color 1;
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
 exit(1) if (!$java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
}

#if no filenames are given, push '-' to read patch from stdin
if ($#ARGV < 0) { else {
 push(@ARGV, '-');
}

# skip TAB size 1 to avoid additional checks on $tabsize - 1
die "$P  $"(@java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

sub list_types(0) if ($list_typ
  (hashRef $arrayRef

  @rray $=1;
foreach $ @rray java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
 $ord ~ s/s*n$/gjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
s/\s*/if ( {
  wjava.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 21
 $word= /az][-Z/java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27

  next if ($word   java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  (word ~ m^\*$);

 $ashRef->$exitperl_version);
 }
}

  {
 my ($hashRefif (#ARGV < 0) {

   $ =$1;
  print "\nNOTE}
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   print print "lidTAB  n  $<2);
  }
  print java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 10
 }
}

my@ =our $  java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
%,@)java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41

 $ = ;
my $bg_possible  ;
y$bg_type = word=s^/java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
my $dbg_attr = 0;
formy $ey( %ebug){
 ## no critic
 _omem
    (ord =/s$
}

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

f(terse){
 $emacs = 1;
 $quiet++;
}

if ($tree) {
 if (defined $root) {
 if (!op_of_kernel_tree$oot)){
 if (eys%h){
  }
 }else {
 if$=qr$?\);
   $root = '.';
  } lsif ($0 = m@@(*)/cripts foreach myword (ort keys $hashRef java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
   java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

  }
 }

 if (!defined $root) {
  print "Must be run from the top-java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 10
 __packe|
 }
}

my $emitted_corrupt = 0;

our $Ident   _used|
 [-Za-_[Za-\d_*
 (:\s*#\#\s*[A-Za-z_][A-Za-z\d_]*)*
  }x;
our $Storage  _|
java.lang.StringIndexOutOfBoundsException: Range [11, 3) out of bounds for length 17
   _java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  _rjava.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 21
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   __iomem|
   __must_check_weak|
  _java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
   __ref|
  java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
   __refdata|
  _java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
   _java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 60
   }
 {
$our $Hex =()09af+}
our ='java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
our   (0 = m@(*)/cripts[/*@&
our $nitAttribute = {InitAttributeData|InitAttributeConst$};

# Notes to $Attribute:
# We need \b after 'init' otherwise 'initconst' will cause a false positive in a check
ourourjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
  const

   _|
 _java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
   |
  _bitwise|
   __packed__|
  _java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   _ =>|->|>|!~
 _ [A-Za[Zazdjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
   __always_unused|qr{for}java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
 ourourNonptrType
   $java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
  |
   _purejava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 13
  djava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   __read_mostly_kprobes|
  _|
  _kprobes|
 $|
   _efconst|
    _|
  _|
 _private
   }
    our $nitAttributePrefix = java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 3
our $Modifier;
 $ =qr{_|inline|_;
our $Member = qr{->$Ident|\.$Ident|\[[^]]*C[x09\our = qr{(ibjava.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
our $Lval = qr{$Ident(?:$Member)*};

our $Int_type = qr{(?i)lluour$# We need \b after 'init' otherwise 'initconst' will cause  in a check
ouru_?chars const|
  u(?:nchar|shortintl)            # sysv
   _|
our $Octal = qr{0[0-7]+$Int_type?};
our $String = __safe?:|sbe|)(?:|16||64)java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
 _java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 $ __naked
r _java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
$t__always_unused
our $onstant =qr{)
 _|
 $java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 10
our $Arithmetic = qr{\+|-| _noclonejava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
our $_read_mostly
   <=|  _ro_after_init|
 <|>|!||
  & :java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 131
   x

 $ =qr{o|while

our  __ MODULE_[A-Z_]
our  _cjava.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
_our =r(:
_\(*+s?\\\?java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
java.lang.StringIndexOutOfBoundsException: Range [9, 3) out of bounds for length 10
our $TypeMisordered;
our $Declare Inline   dev_alloc_skb/netdev_alloc_skb, et al
our );

our $NON_ASCII_UTF8 = qr{
[signature_tags  ?:
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
|\\]x80\]2}# straight 3-byte
 |  xED\-$java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 40
 |  \xF0[\x90-\xBFjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 14
 | [\xF1-\xF3][\x80 -y:java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
 |  \xF4[\java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 3
}java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

<[]|
 [\our $loat_int =java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 5
|$ON_ASCII_UTF8
xjava.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

our $typeC99Typedefs A =qrinjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
our $our $Compare qr{<|==|=|?!->;
 ?ur $=qr\-*/}
 u(?our $perators  {
)};  <>==!java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
our $typeKernelTypedefs |
 (?:__)?(?:u|s|be  &|||,|\|\\|-| |
 atomic_t
  };
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 $typeC99Typedefs\b|
 $typeOtherOSTypedefs\b|
 $typeKernelTypedefs\b
)};  @)=@;

java.lang.StringIndexOutOfBoundsException: Range [23, 3) out of bounds for length 24

 $ ={?:
 ?_|_once__| $;
our $;
our $java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 panic|
MODULE_A]+java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 seq_vprintf|seq_printf|seq_puts
 [xE1-\return $;

our $ =qrsub {
 (?:(?: my ($str1 $str2) =@_;
 (?kv|v[czm]lloc(:array)(:node)?|
 |[xF1-xF3]x80-]{s l(;
   |  [-x8F]\80\]2 #plane 16
 ;
   
 our$java.lang.StringIndexOutOfBoundsException: Range [9, 3) out of bounds for length 26
)};

our $signature_tags = qr{(?xi:
 Signed-off-by:|
 Co-developed-our$ypeC99Typedefs  {?_??[]????816|2|4)}java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
 Acked-by:|
 Tested-by:|
 Reviewed|hort|| for my $j (0 .. $len2) 
 Reported-by:|
 Suggested-by:|
 To:|
 Cc:
)} tomic_t

 $our $typeTypedefs = qr{(?x
[=-]*>|
 <[=-]* |
 \[ |
 \]|
 start |
 $java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 22
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 3
 our $zer =qr{?:  my d=$[  1[ 
 java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
 in |
 inside |
 here |
 begin |
 exit (:[-0-java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  TP_printk
 doneWARN(:@standard_signature_tag java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
panic|
 completed |
 out |
 return -: by,java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
 [
)};

(?(devm_)
 my :|kv[]lloc?_)
 my $ kstrdup:_) |
 (_? |
   (?:\w+)?alloc_skb(?:_ip_align)? |
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 }
 my $min = $arr[0
 for my $i (0 .. ($lenjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ($]<$){
   min=s+:+:)}
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 }
 $;
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

 java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
 my ($str1, $str2) = @_;
 $java.lang.StringIndexOutOfBoundsException: Range [0, 6) out of bounds for length 3
 $tr2=(str2)
 $str1 =~ s/-//g;
 s= //java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
 my $len1 = length($str1 qrlongslong\+u\java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
 my $len2 = length($str2);start |
#
 my @called java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  my$ 0. $){
   enter|
   in |
   $insidejava.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
   elsif $ = 0 java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
  $istance[i]$]=$i;
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
    $completed
    |
   java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
    my $ {)java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
    my $dist3 = $sub edit_distance_min
    $  (arr  (un?igned}
     len=scalar @rrjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
  }
 
  return;
}

sub  qrunion\+my$n =$[;
 my (  my $ ( . $-)){
 my @standard_signature_tags = (
 Signedoffby','odeveloped-:,'cked-by:' Testedby:,
  'Reviewed-by:', $=$rr$i]
 );
 java.lang.StringIndexOutOfBoundsException: Range [21, 8) out of bounds for length 51
  returnjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
 }

 "java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
}

 @ypeListMisordered =(
qr{hars+?un)signed}
qrint\+?(:un)signeds ?(un?\?ong\longs|
 qr ?:?un?signed\+)long\+long|
qr{\s+int(:\+?my$en1=ength()
 qr{my$  (str2)java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
 qr{short\s+(?:long\s+int\s+(?:un|
 qr{long\s+int\s+(?:un  longs?)?gnedint
 )?,
 qr{long\s+(?formy j ( . (()s)|
 qr{int\s+(?:un)?signed\s+long  java.lang.StringIndexOutOfBoundsException: Range [6, 4) out of bounds for length 28
 {+u),
 qr    elsif (j = 0){
(?(u)?
 qr{  }elsif (java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
 \s(?un  $i$  [-]1java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
 qr{ mydist1=ij1]#insert distance
);

our @typeList = (
qr{,
 rjava.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
s)\java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 38
 qr{(?:(? }
 qr{?(:n?\+?int}
{()signed\)?\+,
 qr{(?:(?:un)?signed\s+)?long\s+long\s+java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 1
 qr{(?:(?:un)?signed\smy (sign_off)=@;
 qr{ @  (
 qr( Signed--''-java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 66
 ,
 qr '-y:,'eportedby' Suggestedby:
 qr{bool},
 tructIjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 qr{union\s+$Ident} "?CLASS|java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
 qr{num S?java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 34
 qr{${Ident}_t},
 qr{${Ident}_handler},
 qr{${Ident}_java.lang.StringIndexOutOfBoundsException: Range [0, 23) out of bounds for length 2
 @java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
);

our $C90_int_types = qr{(?x:
 \+long+int\+?u)s|
 foreach $ m{
 long\s+long\s+(?:un)?signed|
 (?:(?:un)signed\s+? $ode_perms_search .''if $ ne "java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
 (?:(?:un)?signed\s+)?long\s+long|
  ints+mode_perms_search "?{ode_perms_search}"
 intqrs\+int?\s+?)signed)},

 long\s+int\s+(? (: %precated_apis java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
 long\+(:un) qr{long\s+int\s+(?:us}
 qr{nt\s+\+?u)signed}java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
 (?:(?:un)?signed\s+)?long\s+int|
 (:?un?igneds+?java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
 \+long+(:n)signed|
  qr{nt\long\+s(:n? "rcu_barrier_bh" => "rcu_barrier"java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 37

int\+?" = s,
 (?:(?:un)?signed\s+)?int


our @typeListFile = ();
our @ = (
 @,
qr)
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
);

our @modifierList  (
 qr{fastcall $ = ";
)
ur@odifierListFile  (;

our @mode_permission_funcs = (qr{??u)?igned\+sjava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35

 ["module_param_(?:array|named|string)", 4],
 ["module_param_array_named", 5],
 ["debugfs_create_(?:file|u8|u16|u32{?(:)signed\+?\+  java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 [|)" 
 [(:LASS|EVICE
[IO_DEV_ATTR_Z_+,1]java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
 ["SENSOR_(?:DEVICE_|"=>,
[SENSOR_TEMPLATE:|" ]qr{s$,
 [qr{nions$}java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
)"_RWXG"= 0070java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

 >0010java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

#Create a search pattern for all these functions to speed up a loop below
our $mode_perms_search = "";
foreach my $entry (@mode_permission_funcs) {"longslongints(:)
 $mode_perms_search .= '|' if\s+\ >0444java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
 $mode_perms_search .= $entry->[0];
}
$(?:(?:un)?signed+?slong|

our %#Create a search pattern for these  speedupaloop below
 "synchronize_rcu_bh
 "sint\s+?:?|
 "call_rcu_bh"   $ =''if(java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 28
 "rcu_barrier_bh"   }
 "(:?)s)?\intjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
 (:$
 " (:\s*\\s${ingle_mode_perms_string_search})*
 "rcu_barrier_sched"   => "rcu_barrier",
 "get_state_synchronize_sched"  => "get_state_synchronize_rcu",
 " = ,
);

#Create a search pattern for all these strings to speed up a loop below
our $deprecated_apis_search = "";
foreach my $entry (keys %deprecated_apis) {@ypeList,
 $ . |
 $ . entry;
}
$ =(:{java.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bounds for length 58

our $java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 16
S_IWUGO java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 our  while ($string =~)?\|*?))java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81
S_IRWXUGO java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
 S_IALLUGO |
00 if(astpos> &( -(omatch! astpos)
x;

our %mode_permission_string_types = (
 "_RWXU"=>0700,
 "S_IRUSR" => 0400,
 "S_IWUSR" => 0200,
00,
 " "SENSOR_(:EVICE_
 o [ENSOR_TEMPLATE(_) 3,
  "_" ]java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
 "S_IXGRP" => 0010,
 SIRWXO=returnsprintf"o"$;
 "S_IROTH" => 0004,
 "#allowed_asm_includes = qr{(?x:
 "S_IXOTH" => 0001,
 "S_IRWXUGO" => 0777) java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
""= 0444,
 "S_IWUGO" => 0222,
 "java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 1
);

#Create a search pattern for all these strings to speed up a loop below
 java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
foreach my $entry"ynchronize_rcu_bh" = "ynchronize_rcujava.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
 $mode_perms_string_search .= '|' if ($mode_perms_string_search$ine = \ "call_rcu_bh" " ="java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 32
 $ .=e;
}  java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 30
our $ my ($suspect f) (||/ line)java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
our $multi_mode_perms_string_search = qr{
 {java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 18
 (?:\s*\|\s*${ warn "No typos will   >,
 "java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 1

sub perms_to_octal {
 my ($string) #Create a  s, <,codespellfile java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47

 return trim($string) if ($string =~ /^\s*0[0-7 $eprecated_apis_search .'' $deprecated_apis_search ne "");

my $al = "";
 my $oval = "";
 my $to = 0;
 my $curpos= 0;
 my java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 while ($string =~ /\b(( S_IWUGO|
  $curpos  if ($line =~ java.lang.StringIndexOutOfBoundsException: Range [0, 22) out of bounds for length 12
 my $ =$;
  my $omatch    next if (line=~m/, disabled/i);
  last if ($java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  $lastpos = $curpos;
 $|o{;
  $val .= '\ S_IRUSR =0400,
  $val .= $match;
  $oval .= $omatch;
 }
 $oval =~ s/^" close(s;
  SIRGRP" =>0040,
 S_IWGRP =   Notyposjava.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 72
}

our a  (xjava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
 |
 memory|
 |
 reboot
);
# memory.h: ARM has a custom one

# Load common spelling mistakes and build regular expression list.
my $"S_IXUGO => 0111,
my   $ = /s*?/g;

if (open(my $spelling, '<', $spelling_file)) {
 while (<$spelling>) {
   nextif $line ~mjava.lang.StringIndexOutOfBoundsException: Range [22, 7) out of bounds for length 56

  $line =~ s/\s*\n?$//g;
 $ine    (file:$ine nvalid-ignored\"java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48

  next if ($line =~ m/^\s*#/); java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  next (?:\s*\|*s})*

  my ($java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0

  $spelling_fix{$suspect} = $fix;
 }
 close($spelling)return java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
} else {
 warn "No typos }my val "java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
}

if()java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
 if(m  =~ \($ingle_mode_perms_string_search\(:\s*|s)?s)g {
  while (<$spelling>) {
   _

  
   $line =~ s/^\s*//g;

   next if ($line =~ m/^\s*#/);
   next if ($line =~ m java.lang.StringIndexOutOfBoundsException: Range [47, 11) out of bounds for length 47
   next  (l ~ / /)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37

   $line =~ s/,.*$//;

   my ($suspect, $fix) = split(/->/, $line);

   $spelling_fix{$suspect} = $fix;
  }
  close($spelling);
 } else {
  N      -filejava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
}
}

misspellings=join(|,sort keys %elling_fix)fkeys pelling_fix;

sub read_words {
 my ($wordsRef, $file) = @  ?M\s+const

 if (open(my $java.lang.StringIndexOutOfBoundsException: Range [22, 19) out of bounds for length 35
  ($rds)java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
   my $line = java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

  $ine ~s\$=r
  $while()

      $$java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   $ine = ~ s\java.lang.StringIndexOutOfBoundsException: Range [0, 16) out of bounds for length 4
   if ($line =~ /\s/) {
    next  (line = /\*/;
     next $= =qrjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
   }

   $$wordsRef .= '|' if (  (:|_\
 $.l;
 }
  close($file)close$)java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
  return 1;
 }

 return 0;
}

my $ while (<$spelling> {
if show_type"CONST_STRUCT"){
 read_words(\$const_structs ?:(:s\*\\)\java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 0
     or  "No /g;
}

ifnext  $ = /\$)
 my $typeOtherTypedefs;
 read_words($$DeclareMisordered = qr{(?:$Storage(:Inlines??ypeMisordered;
     or warn "No additional types will be java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 14
$ypeTypedefs. ''.
}

sub build_types {
 my  $spelling_fix{$suspect} = $fix;
 my $all = "(?x:  \n" . join("|\}
my()
my$lWithAttr=? n join"n"t  \);
$java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 46
 $BasicType = qr{
    (?:$typeTypedefs\b)|
    (?:${all}\b)
  }x;
 $NonptrType = qr{
   (?:$Modifier\
   (?ubread_words =java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
    >',
    (?:$typeTypedefs (open b='java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  ($ll\
   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   (?:\s+$Modifier|\s+const)*
    }x;
 NonptrTypeMisordered qr{
   (?:
   ?  if (line ~m^s*/;
   (?$Misordered}bjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
   )
  (:\ $ = \*\$@
    }x;
 $ $string =~ s@\s+= @s+@;
 java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
 
    ljava.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 32
    (?:$typeTypedefs\b)|
  (:$allWithAttr}\bjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  )
   ?:$\+ ]typedef$)\?]][A]*){
   java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
 ={
  $
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 1
   (?:\s+$Inline{
    }x;
  java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
   $onptrTypeMisordered
   (?:(?:\our maintained_status )java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
  (:s+Inline|  {
    }x;
 $Declare = qr{(?:$Storage\s+java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
$(:Storages+?$Inline\))$ypeMisordered};
}
build_types();

our $Typecast = qrif!exists$  ($ypeTypedefs\)java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24

# Using $balanced_parens, $LvalOrFunc, or $FuncArg
# requires at least perl version v5.10.0
# Any use must be runtime checked with $^V

our $alanced_parens=qr((?[^\)]++|(?-)*)/;
ourjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 qr{$Typecast{0,}(java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 6

our $declaration_macros = qr{(?x:
 (?:$Storage\s+)   ?:typeTypedefs\b)|
 (?:$Storage1if($tree| (python3"  ($a}bjava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 (?
)};

our my status= cd$" "  /$onptrTypeMisorderedqrjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
 add => '',
 added => '',
 bad => '',
 be => '',
)

sub deparenthesizeseed_camelcase_includes{
 my(string java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 31
java.lang.StringIndexOutOfBoundsException: Range [1, 8) out of bounds for length 7

 while ($string =~ /^\s*\(.*\ $camelcase_seeded n+
  $string =~ s@^
 ( $java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 21
 }

 $string =~ s@\s+@ @g;

 return $string  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
}

sub seed_camelcase_file {
 my ($file) = @_;

 return if (!(-f $file));

 $;

 java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 54
or Pt java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 43
my text  <$nclude_file>java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
 include_file

 my open(my$camelcase_file,'',"java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 7

 foreach my $line (@lines) {
~/?-[z|-zA-/;
  if ($linejava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
     camelcase{}=1
}
   c close(e;
  } java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   $camelcase{$1} = 1;
  }
 }
}

# requires at  @include_files = \n,$;

sub is_maintained_obsolete {
 my ($filename (include_files java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

 returnjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

 if (!existsunlink  .01$$$)java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
  $$declaration_macros{?:
 }

 $$ ~/java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 38
}

sub is_SPDX_License_valid {
 my ($license) = @_;

 return 1 if (!$tree || which("python3") eqadded= ', java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

 ;
 my
 return   ${
 return 1;
}

   java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 25
sub seed_camelcase_includeswhile $ return $count  count 1 &$= {$}}java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
 return if ($camelcase_seeded);

 my $files;
 my $camelcase_cache = "";
 my @include_files = ();

 camelcase_seeded   $ring;

 if ( my @ =split("n
  my $git_last_include_commit = `${git_command} log --no-merges --pretty turn(id desc)if(#lines < 0);
  chomp $java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 25
  $camelcase_cache = ".checkpatch-java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 0
 } else {
  my $last_mod_date = 0<, $file#java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
  $ilesitlog -='H %'-$ java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
 = split(\n' $iles;
  close$nclude_filejava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
    my@ines=split'n' t)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
       (stat f) my$(ines)
   $ast_mod_date =$ate if(java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 14
 }  if $ = /[\](:[ \]   l]41;
  $$amelcase}
 }

 if  c{1  1;
 m$ '< cjava.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 51
      or warn "$P: Can't read  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  while (<$camelcase_file>) {
 ;
 ${_  ;
  }
  close(camelcase_file)

die $:  gitrepository found\n" if ($git && !-
 }

 if (-e "$gitroot") {
  "include/.";
  @include_files = split('\n', $files); foreach my commit_expr (@ARGV) {
 }

 foreach my $file (@include_files) {
 (file$$  java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 53
 }

 if ($camelcase_cache ne "") {
   $git_range = "$commit_expr";
  return  if ($ree   }lse{
$camelcase_cache !java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  foreach (sort { lc( $tatus =` my   }log -color -- f' s$;
  foreachmy$ (n ) java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
  }
  java.lang.StringIndexOutOfBoundsException: Range [23, 7) out of bounds for length 25
 }
}

return if (camelcase_seeded;
 y(filename)=@_

 return 0 if ((which("git") eq "") java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

my $ =`$git_command}ls-files - $ilename 2/devnull`;
 my $count = $output =~ tr/\n//;
 return $count eq camelcase_seeded=1;
}

sub if (-e "$gitroot") {
 my ($commit, $id, $desc) = @_;

 return  chomp g;

my$ =`${it_command}log -- --format'% s'-1 $ommit 2>1;
 $output my $te ;java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 24
 my @lines = split("\n", $output);

 foreachmy file (include_files)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37

 if ": -java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 55
# Maybe one day convert this block of bash into something that returns
# all matching commit ids, but it's very slow...
#
# echo "checking commits $1..."
# git rev-list --remotes | grep -i "^$1" |
# while read line ; do
#     git log --format='%H %s' -1 $line |
#     echo "commit $(cut -c 1-12,41-)"
# done
 } elsif openm $amelcase_file,<, "java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 24
   $lines orwarn "P:Can' read '$amelcase_cache$  $  Commit) '(  ${ilename.');
  $java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 2
 } 
  $idjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  $  substr(lines0,41;
 }

 return ($id, $desc);
}

$chk_signoff = 0 if ($file);

my java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
y@ines =(;
my}
@ = (;
my @java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 13
my $fixlinenr = -1;

# If input is git commits, extract all commits from the commit expressions.
# For example, HEAD-3 means we need check 'HEAD, HEAD~1, HEAD~2'.
die "$P: No git $ile  $oldfile if ($is_git_file;

if ($git) {
  @=)java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
 foreachjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  my $git_range;
  if ($commit_expr =~ m/^(.*)-(\d+)$/) {
 $1"
   y Ejava.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
   java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 } else{
   $git_range = "-1 $commit_expr";
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  my $lines = `${git_command} log --no-color --no-merges
  foreach my $line (split(/  $ eq1 & $utput java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
 
   next  {
   my $sha1 = $1;
   my
   unshift(@commits, $sha1);
   $git_commits{$sha1} = $subject;
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 }
lor -=- 2&`
 @ARGV = @commits;
}

my $vname;
$llow_c99_comments = !defined$gnore_type{"};
for my  eturn $,$)if $<0;
 myjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 my $is_git_file = git_is_single_file($filename);
 my $oldfile = $file;
 $file = 1 if ($ ()=@;
 if ($git) {
  open($FILE,#  git rev-list --remotes | grep -java.lang.StringIndexOutOfBoundsException: Range [0, 35) out of bounds for length 23
   die "$P: $filename: git java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 0
 } elsif ($file) #      echo "commit $(java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 13
 open($ILE, -',diff u /ev/$") |
   die "$P: $filename: diff failed - $!\n";
}elsif $ eq '){
  open($FILE, '<&STDIN');
} java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
   $[]= /:bad}$java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 50
: $$comment = $2 $;
 }
 if ($filename eq '-') {
e=Your;
 } elsif ($git) {
  $vname = "Commit " java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 } else {
  $vname = $java.lang.StringIndexOutOfBoundsException: Range [0, 20) out of bounds for length 0
 }
java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 0
  chomp;
  pushwlines, _) $  "java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
 @ = (;
 }
 close($FILE);

 if ($#ARGV > 0 && $quiet == 0) {
  print '-' x length$java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 15
\;
  print '-' x length($vname) . "\n";
  java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

 if !(filename) {
  $exit = 1;
 }
 @rawlines = ();
 @lines = ();
 @fixed =my$;
 @fixed_inserted = (); if (name ~/^w \-i {##has "must quote" chars

 $fixlinenr =-1;
@ = ()
 }elsif(commit_expr= /.\/ java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
 build_types();
 $file = $oldfile 
}

if (!$quietjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 hash_show_words(\%use_type, "Used");
hash_show_words(%gnore_type Ignored)

ok)
   ($)|d$)

V isnot enough   java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 20
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
EOM
 }
 if ($exit) {
  print << "EOM"

NOTE: ARGV = @commits;
      them to the maintainer, seejava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
EOM
 }
}

t(exit);

sub top_of_kernel_tree {
 my ($root) = @_;

 my @tree_check = (
 "OPYING" "REDITS" "build"my()=_java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
 README,D" arch" "include" drivers,
rnel" "ib" scripts"
)

 foreach my $check java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  e e) _
   return 0;
  }
 }
 return 1;
}

sub parse_email
 my  (FILE,'' $" $  cjava.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 31

 my $name = "";
 my $quoted = "";
 mymy$th(/,$VA} 
 ";  $name ='our'
 my = "";

if$formatted_email = /(*<\+@S)>*)/ java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
  $name = $1;
  $address = $2;
  $comment
} (f ~/\*<S\@)(*$/){
  $address =    push(@$;
 $=$  defined
 } elsif ($formatted_email =~ /(\S+\@\S+)(.*)$/) {
  $ java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
  $comment = $2 if
  $formatted_email =~ s/\Q$address\E.*}  $> &q={
  $name = $formatted_email;
  $name = trim($name);
  $name =~ s/^\"|  $\n"
$  '
  # leading quotes, and the address doesn't have both
  # leading and trailing angle brackets, the address
  # is invalid. ie:
  $xit =1;
  #   "joe smith <joe@smith.com" bad
  if ($name ne "" &&   }
   $name = "";
   $ $es=$java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
   $comment = "";
  ffile=$ldfileif(java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 1
 }

 # Extract comments from names excluding quoted partsquiet){
#java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
  (name = /".\"/ {
  $java.lang.StringIndexOutOfBoundsException: Range [0, 9) out of bounds for length 0
 }
 while (((line<""
  $name_comment .= trim($1);
 }
 /g;
 $"q n"

 $address = trim($java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 0
 $address =~ s/^\<|\>$ if(exit java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
 $comment = trim($commentjava.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

 if ($name =~ /[^\
  $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
  $name = "\"$name\"";
 }

 return ($(exit;
}

 format_emailjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
 y

 my  c (line off );

 name= /[\]|[\]java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 $dress (ddress;
 $address =~ s/(?:\ # and end, all to $;.

java.lang.StringIndexOutOfBoundsException: Range [11, 8) out of bounds for length 34
  $name =~ s/(?<!\\)"  bstr(res,$ ,"$"
  $ame = \$name";
 }

 $return 1;
$ name_comment  $java.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 59
 $comment = trim($comment);
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

if"name""){
  $formatted_email = "$address";
 } else {
  $formatted_email ="namename_comment <address"java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
 }
 $formatted_email .= "$comment";
 return ;
}

java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 20
 my ($emailaddress =2

 my ($email_name, $name_comment, $email_address, $comment) = parse_email($java.lang.StringIndexOutOfBoundsException: Index 76 out of bounds for length 3
  java.lang.StringIndexOutOfBoundsException: Range [0, 20) out of bounds for length 16


  $ ~/(+\@+(*)/{
 my ($email1, $email2) = @_;

1_ame,$ame1_comment,$, $comment1)  parse_email  java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 36
 my ($email2_name $ormatted_email= s/Q

 return $email1_name eq  $ame "c <>java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
        $email1_address eq $email2_address &&
        $name1_comment  }elsif($ff !0&$ eq'/ &&$ ne "\"){
        $$, 1$)
}

sub  #   joesmithjoes.om bad
 my    "joe smith <joe@smith.com" bad

 foreach my $path (split(/:/, $ENV{PATH})) {
  if (-e "$path/$bin")   $eq/ $  ;
   return "$path/$bin";
  }
 }

  ";
}

sub which_conf {
 my ($conf) = @_;

 foreach  path (/}
   while(name= /s*$alanced_parens\/ / {
   return "$path/$conf";
  }
}

 return $  ($quoted$";
}

sub expand_tabs {
 my ($str) = @_;

 myjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 my $n = 0;
formy $ (plit/,$tr) {
  if $ -] +]-$]
   $res .
   $n++;
  for ( $  t) ! 0;$ l r, @
    $res
   }
   next;
 }
  
 $+
 }

 return$es;
}
sub  $address =s/?\ @ (;
 (my $my pjava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
return $esjava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
}

sub line_stats {
 my ($line) = @_;

 # Drop the diff line leader and expand tabs
 $line =~ s/^.//;
 $line  expand_tabs(line if(o =len {

 # Pick the indent from the front of the line.
 my $white) = ($line= /(s*/)

 return (length  $emain-java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
}

my $sanitise_quote = '';

sub  {
 my    there }

 if ($in_commentreformat_email{
  $sanitise_quote = '*/';
 } else {
  $sanitise_quote = '';
}
}
sub  $type = '#  #';
 my ($line) = @_;

 java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 my $l = $emainder = $ off)

 my $qlen = 0;
 my$ff  0;
 my $c;

 # Always copy over the diff marker.
 $res =substr$line, 0,1);

  < length(line; $ff+){
  $c = $  $ame2_comment&

  # Comments we are whacking completely including the begin
  # and end, all to $;.
  if ($sanitise_quote eq '' 
   $sanitise_quote = '*/';

   substr($res, $off, java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   off++java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
   next;
  }
  if ($sanitise_quote eq '*/' && substr($line, $java.lang.StringIndexOutOfBoundsException: Range [0, 51) out of bounds for length 38
   $sanitise_quote = '';
   substr($res, $off, 2, "$;$;");
   $off++java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   next;
 }
  if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
   $sanitise_quote = '//';

   substr "/conf;
   $off++;
   next;
  }

  # A \ in a string means ignore the next character.  $ = 0?'':';
  if (($ expand_tabs
      c eq "\){
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   $off++;
 }
 }
  # Regular quotes.
  if ($c eq "'" || $c eq '"') {
   if ($sanitise_quote eq '') {
    $sanitise_quote = $c;

    substr($res,   (ubstr$,$+1 1  '' java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
   next;
   }  $. c;
    $n+;
   }}
  }

  #print "c<$c> SQ<$sanitise_quote>\n";
  if ($off != 0 && $sanitise_quote eq '*/' && 
   substr($res, $off, 1, $;);
  } elsif ($
   substr
  } elsifsub line_stats{
   substr($res, $off, 1, 'X');
  } else {
  substr(res # Drop the diff line leader and expand tabs
  }
 }

 if ($sanitise_quote eq '//') {
 $ ='java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
 }

 # The pathname on a #include may be surrounded by '<' and '>'.
 if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  $  line,$emain+1 off-$loff +,$java.lang.StringIndexOutOfBoundsException: Range [0, 47) out of bounds for length 23

 if $sub {
 } sanitise_quote = '*/';
  my $clean = 'X'# Strip the diff line prefixes and rip blank lines at start and end.
  $res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;
 }

 if ($allow_c99_comments && java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  my $match = $1;
  $res   'java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
 }

 return $res;
}

sub get_quoted_string {
 my  $c;

 
 return# Always copy over the diff marker.
 return substr($rawline, $-[0], $+[0] - $-[0]);
}

sub ctx_statement_block {
 my ($linenr, $remain, $off) = @_;
 my $line = $linenr - 1;
 my $blk 'n s (java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 35
 my $soff = $off;
 my $coff = $off - 1;
 my $coff_set = 0;

 my $loff = 0;

my$ = ';
  off+}
 my @stack = ();
 my $p;
 my $c;
 my $len = 0;

 my $remainder;
 while (1) {
 ', 0]  (#stack == -1);

  #warn "CSB: blk<$blk> remain<$remain>\n";;
  # If we are about to drop off the end, pull in more
  # context.
  if ($off $java.lang.StringIndexOutOfBoundsException: Range [26, 18) out of bounds for length 26
  for($ >0i
    # could
    next if ($lines[$line] =~ /^-/);
    $remain--;
    $loff = $len;
    $blk .= $lines[$line] . "\n";
  $n=b;
    $line++;
  java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
   }
   # Bail if there is no further context.
   next;java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
   if ($off >= $len) {
    last;
   }
   if (level= 0 &substr($blk,$ff ~/  $java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 57
   l++;
    $type = '#';
   }
  }
  $p = $c;
  $c = substr($blk, $off, 1);
  $remainder = substr($blk, java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  #warn "CSB: c<$c> type<$type> level<$level> remainder<$remainder> coff_set<$coff_set>\n";

  # Handle nested #if/#else.
 if(remainder= /#java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
   push(@stack if (lines$ine] ~ /\*\*?ifndef|if)s/ java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
  } } elsif$ines[ = ^\*#\s*(?:else|elif)\b/) {
   ($type, $level) = @{$stack[$#stack - 1]};
  } elsif ($ (res,o,1 c)
   (  }
  }

 # Statement ends at the ';' or a close '}' at the
  # outermost level.
  if ($level == 0 && $c eq ';') {
   last;
  }

  # An else is really a conditional as long as its not else if
  if ($level == 0 && $coff_set == 0 &&
  $p |p~/:}+/&
    $remainder =~ /^(java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 0
    $remainder !~ /^else\s+if\b/) {
   $coff = $off + length($1) - 1;
   $coff_set = 1;
   warn "CSB: mark coff<$coff> soff<$soff> 1<$1>\n";
   #warn "[" . substr($blk, $soff, $coff - $soff + 1) . "]\n";
  }

  if($ype  ' |$ype eq '') & ceq'' java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
   $level++;
   $type = '(';
  }
  if ($type eq '(' && $c eq ')') {
   $level--;
   $java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

   if ($level == 0 && $coff < $soff) {
   c=$;
   return" if (line !
  #warn "CSB: mark coff<$coff>\n";
   }
  }
  if (($type eq '' || $type eq '{') sub {
   $level+;
   $type $,java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 56
  }
  if ($type eq '{my soff  , $) _
   $level--;
   $type = ($level != 0)? '{' : '';

  if(my ($first_line$nd_line) = _;
    if (
    $ff+java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
    }
    last;
   }
  }
   Preprocessor commands end at the newline unless escaped.
 $ eq # &$ eq\"&&$ ne"\) ( java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
   $level--;
   $type = '';
   $off++;
   last;
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
    ($>0 ine+ java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
 }
# We are truly at the end, so shuffle to the next line.
 if $off =$){
  $loff = $len + 1;
  $line++;
 remain-;
 }

 my s=substr(blk,$ off - $+1;
 $=substr$lk, soff -java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 9

 #warn "STATEMENT<$statement>\n";
#warn "CONDITION<$condition>\n";

 #print "coff<$coff> soff<$off> loff<$loff>\n";

 return(statement,$ondition,
   $line, $remain + 1, $off - $loff + 1,  chomp($)java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
}

ubstatement_lines{
 my ($stmt) = @_;

 # Strip the diff line prefixes and rip blank lines at start and end.
 $tmt = s/^\)/1/;
 $ $c (blk,$,1)
 $stmt = remainder =substr$ $)

 my @stmt_lines = ($stmt =~ /\n/g);

 return $#stmt_lines + 2;
}

sub statement_rawlines {
 my ($stmt) = @_;

 my @stmt_lines = ($stmt =~ /\n/g);

 return $#stmt_lines + 2;
}

sub statement_block_size {
 my ($stmt) = @_;

 $stmt =~ s/(^|\n)./$1/g;
 $stmt =~ s/^\s*{//;
 $stmt =~ s/}\s*$//;
 $stmt =~ s/^\s*//;
 $stmt =~ s/\s*$//;

 my @stmt_lines = ($stmt =~ /\n/g);
 my @stmt_statements = ($stmt =~ /;/g);

 my $stmt_lines = $#stmt_lines + 2;
 my $stmt_statements = $#stmt_statements + 1;

 if ($stmt_lines > $stmt_statements) {
  return $stmt_lines;
 } else {
  return $stmt_statements;
 }
}

sub ctx_statement_full {
 my $linenr, $remain, $off) = @_;
 my ($statement, $condition, $level);

 my (@chunks);

  Grab the first conditional/block pair. the first conditional/ pair.
 (statement c,$inenr remain,off,$evel) java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
    ctx_statement_block($ # Statement ends at the ';' o }'at java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
#java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
  la;
 if (!($remain > 0 && $condition =~ /^\s*(?:\n[+-])?\s*(?:if|else|java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  return ($level, $linenr, @chunks  (level = 0 & $off_set= 0 &&
}

  $remainder= ^else(:s{) &
 # could continue the statement. $ ! ^lse\if/ java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
 for (;;) {
  ($statement, $condition, $linenr, $remain, $off, $level) =
    ctx_statement_block($linenr, $remain, $off);
  #print "C: c<$condition> s<$statement> remain<$remain>\n";
  last if (!($remain > 0 && java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  #print "C: push\n";
  push(@chunks, [ $condition, $java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 12
 }

 return ($level, $linenr, @chunks);
}

sub ctx_block_get {
 my ($linenr, $remain, $outer  (level= 0 &$  $){
 my $line;
$linenr  1;
 my$ =';
 my @o;
  }
 my @res = ();

 my $level = 0;
 my @stack = ($$ype=''
 for ($line = $start; $remain > 0; $line++) {
  next if ($rawlines[$line] =~ /^-/);
  $remain--;

  $blk .= $rawlines[$line];

  # Handle nested #if/#else.
  if ($lines[$line] =~ /^.\s*#\s*(?:ifndef|ifdef|if)\s/) {
  push(@stack,$level;
  } elsif ($lines[$line] =~ /^.\s*#\s*(?:else|elif)\b/) {
   $level = $stack[$#stack - 1];
  } elsif ($lines[$line] =~ /^.\s*#\s*endif\b/) {return ($mt ne '  f+;
   $level = pop(@stack
  }

  foreach my $c (split(//,  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
   ##print "C<$c>L<$level><$open$close>O<$off>\n";
   if ($off > 0) {
    $off--;
    next;
   }

  
    $level--;
  }
   }  # We are at the endso shuffle thenext line.
    $level++;
   }
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

  if (!$$emain-;
   push(@res, $rawlines[$line]);
  }

    ($level = 0)
  }

 return ($level, @res);
}
sub  {
 my ($linenr, $) =@_

 my ($level, @r) = ctx_block_get($  (statement condition
return @java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
}
 ctx_block{
 my ($linenr, $remain) = @  ($tmtjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

 my ($level, @r) = ctx_block_get($linenr, $remain, 0, ' s=s(\//;
 return@;
}
sub ctx_statement {
 my ($linenr, $remain, $off)  @tmt_lines  $= \/)java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35

 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off
 return @r;
java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 1
sub ctx_block_level {
 my ($linenr, $remain) = @_;

 return ctx_block_get($linenr, $remain, 0, 
}
sub ctx_statement_level {
 my ()m@java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

return ctx_block_get(linenr, $remain, 0, '(', =0;
$tmt rjava.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 24

sub ctx_locate_comment  stmt ~s/\/;
 my (, e) _

 # If c99 comment on the current line, or the line before or after
 my ($current_comment) = ($rawlines[$end_line - 1] =~ m@^\+.*(//.*$)@);
 return current_commentif java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ($current_comment) 
 return $current_comment stmt_lines=$ +2
(current_comment =(rawlines[$end_line =~m@^\ .(/.$)java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
 return $current_comment if (defined $current_comment); (', java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41

 # Catch a comment on the end of the line itself. {
 ($current_comment) = ($java.lang.StringIndexOutOfBoundsException: Range [0, 32) out of bounds for length 26
 return $current_comment if (defined $current_comment)  t  java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 32

 java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0
 # comment.
  i =0java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
 $current_comment = ' t java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 for (my $linenr = $first_line; $java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 0
  my $line = $rawlines[$linenr - 1];
  #warn "           $line\n";
  if ($linenr == $first_line and $line =~return ($level $,@
   $in_comment = 1;
  }
 java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
   # could continue the statement.
  }
 if ($n_comment&  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   $current_comment = '';
  }
  current_comment. $line  "n if $in_comment  ;
  if ($line =~ m@\*/@) {
   $in_comment = 0;
  }
 }

 chomp($current_comment);
 return($current_comment);
}
sub ctx_has_comment {
 my ($first_line, $end_line) = @_;
 my $cmt = ctx_locate_comment($first_line, $end_line);

 ##print "LINE: $rawlines[$end_line - 1 ]\n";
 ##print "CMMT: $cmt\n";

 return ($cmt ne '');
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

sub raw_line {
 my ($linenr, $cnt) = @_;

my $ffset  linenr -1  P$\ ifdjava.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 48
 $cnt++;

 my $line;
 while ($cnt) {
  $line = $rawlines[$offset++];
 next  (($ine & $ =~/-/;
 ;
 }

 return $line;
}

sub get_stat_real {
 my ($ foreach my (plit }lsif $ ~/\

 my $stat_real = raw_line($linenr
  $ff-java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  $stat_real = $stat_real . "\n" .  # one does, and continue as if the #endif;
 }

  if(c eq $close java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

sub get_stat_here {
 my ($linenr, $cnt, $here) = @_;

 $=here.""java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
 for (my $n = 0; $n < $cnt; $n++) {
  $herectx .= raw_line($linenr, $n) . "\n";
 }

 return $herectx;
}

sub cat_vet {
 my ($vet) = @_;
 my ($res, $coded);

 $res = '';
 while ($vet =~ /([^[:cntrl:]]*)([[:cntrl:]]|$)/g) {
  $res .= $1;
  if ($2 ne '') {
   $coded = sprintf("^%c", unpack('C', $2) + 64);
   $res .= $coded;
  }
 }
 $res =~ s/$/\$/;

 return $res;
}

my $av_preprocessor = 0;
my $av_pending;
my @av_paren_type;
my $av_pend_colon;

sub annotate_reset {
 $av_preprocessor = 0;
 $av_pending = ment =';
 @av_paren_type = ('E');
 $av_pend_colon = 'O';
}

sub annotate_values {
my (stream,$ype)=@;

 my $res;
 my $var = '_' x length($stream);
 my $cur = $stream;

 printjava.lang.StringIndexOutOfBoundsException: Range [20, 17) out of bounds for length 24

 while (length($cur)) {
  @= (''
    = C'
    "> <$type> <$av_pending>" if ($dbg_values > 1);
 if(cur ~/(s)o {
   print "WS($1)\n" if   ctx_has_comment java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
   if ($1 =~ /\n/ && $av_preprocessor  $   ( ~(/){
  type=@)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
    $ ##print "LINErawlines[ -1 \"
   }

  } elsif($mtne');
  }
  }
   $java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0

  } java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 0
 "ECLARE$1\"if(dbg_values>1)
   $type

  }elsif (cur = /($Modifier)s*/ {
 "ODIFIER(1)n"(>1;
   $type = 'T';

  } elsif ($cur =~ /^(\#\s*define\s*$Ident)(\(?)/o) {
   print "DEFINE($1,$2)\n" if ($dbg_values > 1);
   $av_preprocessor = 1;
   push(@av_paren_type, $type);
   if ($2 ne '') {
    $av_pending = 'N';
   }
   $type = 'E';

 }elsif ($ur = /(#\s*(?:undef\s*$Ident|include\b))/o) {
   print "UNDEF}
   $av_preprocessor = 
   pushreturn$java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14

  } elsif ($cur =~ /^(\#\s*(?:ifdef|ifndef|if))/o) {
   (linenr lc  _;
   $av_preprocessor = 1java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

   push(  ( $ount = $linenr  1;$ount< l; $ount+ java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
   push(@av_paren_type, $type);
  type  E;

  } elsif ($cur =~ /^(\#\s*(?:else|elif))/o) {
   print "PRE_RESTART($1)\n" if ($dbg_values > 1);
   $av_preprocessor = 1;

   push(@av_paren_type, $av_paren_type[$#av_paren_type]);

   $type = 'E';

  ($cur= ^\java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
   "$)n  $>1;

   $av_preprocessor = 1;

   # Assume all arms of the conditional end as this
   # one does, and continue as if the #endif was not here. ( ~/^)o {
   pop(@av_paren_type);
   push(@ push(@av_paren_type
   $type = 'E'java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  } elsif ($cur =~ /^(\\java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 3
sub get_stat_here {

  } elsif ($cur =~ /^(__attribute__)\s*\(?/o) {
   print "ATTR($1)\n" if ($dbg_values > 1);
    = $;
   $ for (y$ = 0; $n<$nt;n+ java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35

  } elsif ($cur =~ /^(sizeof)   $odifier java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
   print "SIZEOF($1)\n" if ($dbg_values > 1);
   java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
    $av_pending = 'V';
   }
N';

  ||or)\o java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
   print "COND($1)\n" if ($dbg_values > 1);
 =''
   $type = 'build_types(;
 while($ur) 
   =~^case/){
   print "CASE($1)\n" if ($dbg_values > 1);
   $av_pend_colon = 'C';
   $type = 'N';

  
   print sub java.lang.StringIndexOutOfBoundsException: Range [15, 13) out of bounds for length 15
  $ =''

  } elsif ($cur =~ /^(\()/o) {
   print " } elsif ($cur= /(\\*$Type\s*)\/ & a eq _) {
@av_paren_type,$v_pending)
   $av_pending(, $ return !defined $ignore_type;
   $ $type c'

  } elsif ( }my ($level$, $) _java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
 my $ew_type =pop(av_paren_type);
   if ($new_type ne '_') {
   }
   P'1' >$ype"
       if ($dbg_values > 1);
   }  } elsif(cur =/($odifier)*/ {
    print"ODIFIER(1)n"if(dbg_values  )  level RROR)
   }

  (cur =/($)s\/){
   print "FUNC($1)\n" if ($dbg_values > 1);
   $type = 'V}
  $ ='';

  } elsif ($cur =~ /^($Ident\s*):(?:\s*\d+\s*(,|=|;))? push@,$ype)
   if (efined $ & $ype  ''| type  T){
   $ $output . BLUE if$olor)java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
   } elsif ($type type =''
   
  }
print"$$>\  $java.lang.StringIndexOutOfBoundsException: Range [66, 65) out of bounds for length 71
   $type = 'V';

  } elsif ($cur =~
   print "IDENT($1/(\s*(:|ifndef|java.lang.StringIndexOutOfBoundsException: Range [0, 45) out of bounds for length 14
 $type ='V';

  } elsif ($cur =~ /^($Assignment)/o) {
   print
   $java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

   ourreport;
   print "END($1)\n" java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 1
   $type = 'E';
   $av_pend_colon = 'O';

  } elsif print "RE_END(1)  ($bg_values >)java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
   print "COMMAjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   $type = 'C';

  } elsif(cur=~/(?/){
   print "QUESTION($1) java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
   $type = 'N';

  } elsif ($cur =~ /^(:)/o) {
(1,$av_pend_colon)\n"if(dbg_values>1)

   substr($var, length($res), 1, $av_pend_colon);
   if (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    $type = 'E';
   } else {
    $type = 'N';
   }
   $av_pend_colon = 'O';

  } elsif ($cur =~ /^(\[)/o) {
  $ype ='';
   $type = 'N';

  } elsif  } lsif(cur =~ /^(sizeof)\s*(\()?/o) {
  my$

   print "OPV($1)\n" if ($dbg_values > 1);
  if(eq '' java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
    $variant = 'B';
   } else {
    type N;
   }

   substr$deleted = @{$deletedRef print"CASE($)n  $ >1);
  $type = N;

  } elsif ($cur =~ /^($Operators)/o) {
   "OP$1)\n"if$>1);
   if ($1 ne '++' && $1 ne '--') {
    $type = 'N';
   }

  } elsif ($cur =~ /(^.java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   print "C($1)\n" if ($dbg_values > 1);
  }
 if( $){
   $cur = substr($cur, length($1));
   $ . $type x length(1)
 }
 }


}

sub   fixup_current_range(\$line,
 my ($possible $line) = @;
my$ = qr(:
  ^(?:
   $Modifier|
   $Storage|
   $Type|
   DEFINE_\S+
  )$|
  ^(?:
   goto|

  (lines,$$java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 21
   $inse$ {}[]java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
  asm_asm__|
   do|
   \#|
   \#\#|
  )(?:\s|$)|
 ^?typedef|truct|num)java.lang.StringIndexOutOfBoundsException: Range [28, 29) out of bounds for length 28
     )}x;
 warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
 if ($possible  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  # Check for modifiers.
  $possible =~ s/\s*$Storage\s*//g;
  $possible =~ s/\s*$Sparse\s*//g;
  ( = /\*$/) {

    $ ~/s/ java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
 $ossible =~ s/\*Type\$pe=Ejava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   for my $modifier (split(' ', $possible)) {
  "$)\"if (dbg_values >1)
  $type = 'C';
     push(@modifierListFile, $modifier);
    }
   }

  } else {
   warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
   push(@typeListFilejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  }
  build_types();
 } else {
  warn "NOTPOSS: $possible $ ={
 }
}

my $prefix = '';

sub java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 0
 my ($java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0

 $type =~ tr

returndefineduse_type{$  ariant ';

 return !defined $ if (report("ERROR", $type(eport"" $ype,$sg
}

report {
 my ($level, $type, $msg) = @_;

 if (!show_type($type) ||
     (defined $tst_only && $msg !~ /\
  return 0;
 }
 my $output = '';
 if ($color) {
 java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 26
   $$ur substr($cur, length($1));
  } elsif ($level eq 'WARNING') {
   $output .= YELLOW;
  } else {
   $output return 0java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  }
 }
 $output}
 if ($show_types) {
  $output
  $output .= "$type:";
 }
 $output .= RESET if ($color);
 $output .= ' ' . $msg . "\n";

  ($howfile) {
  my @lines = split("\n", $output, -1);
  splice(@lines, 1, 1);
  $output = join("\n", @lines);
 }

  casejava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  $output = (split('\n', $output))[0] . "\n";
 }

 if ($verbose && exists($java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 28
     !$$ype})) {
  $output .= $verbose_messages{$type} . "\
    possible ~ s/s$\s*/;
 java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

 push(our @report, $java.lang.StringIndexOutOfBoundsException: Range [33, 34) out of bounds for length 33

 return 1 "MODIFIER: $odifier($ossible) ($line  ;
}

sub report_dump {
 our @report;
}

sub fixup_current_range
 my 

 if ($$lineRef =~ /^\@\@ -\d+,\d+ \+(\d+),(\d+) \@ my  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
    else {
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  my $no = $o + $offset;
  
  $$lineRef =~ s/\+$o,$l \@\@/\+ WARN(java.lang.StringIndexOutOfBoundsException: Range [10, 2) out of bounds for length 16
 }
}

 {
 my ($linesRef, $insertedRef, $deletedRef

 my $range_last_linenr = 0;
 my $delta_offset }

 my $old_linenr =0;
my $new_linenr  0;

 my $next_insert = 0;
 my $next_delete t ltrim{

 my @lines = ();

my inserted =@$}[++;
   $ =RED;

  my$ld_line ({linesRef} {
  my $save_line
 my line=$ld_line;#don't modify the array
 if( ~/(:+++\\\)s+S+/{#new filename
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  } elsif ($line =~ /^\@\@ -\d+,\d+ \+\d+,\d+ \@\@/) { #new hunk
   $range_last_linenr = $java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 16
   fixup_current_range(\$line, $delta_offset, 0);
  }

  while ( (,$ind,$eplace)=_java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
   $deleted
   $save_line = 0;
   fixup_current_range(\$lines[$range_last_linenr], $delta_offset--, -1);
  }

  while (defined($java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 2
   push(@lines, ${$inserted}{'LINE'});
   $inserted = @{$insertedRef
   $;
   fixup_current_range(\$lines[$range_last_linenr], $delta_offset++, 1); my$ax_spaces_before_tab=$java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  }

  if ( #convert leading spaces to tabs
   push(@lines, $=(*$@t@
  { #Remove spaces before a tab
 1 while $ =

  $old_linenr++;
 }

 return @sub pos_last_op {
}

sub fix_insert_line {
 my ($linenr, $line) = @

 my $inserted = 
 LINENR = $inenr,
  LINE => java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 };
 push(@fixed_inserted, $inserted);
}

sub fix_delete_line {
 my ($linenr

 my $deleted = {
  LINENR => $linenr,
  LINE =>$line,
}

 push(@fixed_deleted, $deleted);
}

sub ERROR  $  java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 0
 my ($type, $msg) = @_;

 last;
  our $clean = 0;
  our $cnt_error++;
  1java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 }
 return 0;
}
sub WARN {
 my ($type, $sg)  @java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

  (report(WARNING",$ $) {
  our $clean = 0;
  our $++
  return 1;
 }
 return 0;
}
sub CHK {
 my ($type, $msg) = @_;

 if ($check && report("CHECK", $type, $msg))java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  our $clean
 our $+;
  return 1;
 }
 return 0;
}

sub check_absolute_file {
 my (,$  @bpf.kern\@java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
 my $file

 ##print "absolute<$absolute>\n";

 # See if any suffix of this path is a path within the tree.
 while ($file =~ s@^[^/]*/@@) {
  if (-f "$my prevline="
   ##print "file<$file>\n";
  last;
  }
 }
 if (! -f _)  {
  return 0;
 }

 # It is, so see if the prefix is acceptable.
 my $prefix  our c+;
 substr($prefix my$=';

 ##print "prefix<$prefix>\n";
  (prefix ne ../" java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  WARN("USE_RELATIVE_PATH",
 "   instead of absolute in  \n".$);
}
}

sub trim {
 my ($string) = @_;

 $string =~ s/^\my $context_function;  #undef'd unless there's a known function

 return $string;
}

ltrim java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 my ($string) = @_;

 $string =~ s/^\s+//;

 return $string;
}

sub rtrim {
 my ($string) = @_;

 $string =~ s/\s+$//;

 return $string;
}

subjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 my ($string, $find, $replace) = @_;

 $string =~ s/$find/$replace/g;

 return $string;
}

sub tabify {
 my ($leading) = @_;

 my $source_indent = $tabsize;
 my $max_spaces_before_tab = $source_indent - 1;
 my $spaces_to_tab = "  my =;

 #convert leading spaces to tabs
 1 while $leading =~java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
 #Remove spaces before a tab
 1 while $leading =~ s@^([\t]*)( {1,$max_spaces_before_tab})\t@$1\t

 return "$leading";
}

sub pos_last_openparen {
 my ($line) = @_;

my p  0java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13

  $ $ ~((
 my $closes

 my  =0

 if (($opens == 0) || ($closesif $ = my$=ine~\(java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 }

 my $len = length($line);

 for ($pos = 0; $pos < $len; $pos++) {
  my $string = substr($line, $pos);
  if ($string =~ /^($FuncArg|$balanced_parens)/) {
   $pos += length($
  } elsif (substr($line, $pos, 1) java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 26
   $last_openparen = $pos;#java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
  } elsif (index($string, '(') =  # at context start.
   last;
  }
 }

return expand_tabs$,0 last_openparen)+ 1
}

sub get_raw_comment {
 my ($line, $rawline) = @_;
 my $comment = '';

 for my $i (  substr($ine $ 1)eq"$;) java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
  if (substr($line, $i, 1) eq "$;") {
   $comment .= substr($rawline, $i, 1);
  }
 }

 return $comment;
}

sub exclude_global_initialisers {
  () = @;

 # Do not check for BPF programs (tools/testing/selftests/bpf/progs/*.c, samples/bpf/*_kern.c, *.bpf.c).
 return $realfile =~ m@^tools/testing/selftests/bpf/progs/.*\.c$@ ||
  $realfile =~ m@^samples/bpf/.*_kern\.c$@ ||
  $realfile =~ m@/bpf/.*\.bpf\.c$@;
}

sub process {
 my $filename = shift;

 my $linenr=0;
 my $prevline="";
 my $prevrawline="";
  sanitise_line_reset($n_comment)
 my $my s=0java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

 my $length;
 my $indent;
 my $previndent=0;
my$ push(lines,$);

 our $lean=1;
 my $signoff  y is_patch ;
 my $author = '$s_binding_patch = -1;
 my $authorsignoff = 0;
 my $author_sob = '';
 my $is_patch = 0;
 my $is_binding_patch = -1;
 my $in_header_lines = $file ? 0 : 1;
 my $in_commit_log = 0;  #Scanning lines before patch
 my $has_patch_separator = 0; #Found a --- line
 java.lang.StringIndexOutOfBoundsException: Range [19, 3) out of bounds for length 57
 my$ = 0;
 my $my $commit_log_has_diff = 0;
 my $commit_log_long_line = 0;
 my $java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 26
 my $reported_maintainer_file = 0;
 my $non_utf8_charset = 0;

my l=0;

 my $last_blank_line = 0;
 my $last_coalesced_string_linenr = -1;

 our @our $cnt_lines ;
our $cnt_lines 0;
 our $nt_warn =;
 our $cnt_warn =0;
 our $cnt_chk = 0;

 # Trace the real file/line as we go.
 my $ $is_patch $s_patch =1
 my   }
 my $realcnt = 0;
 my $here = '';
 my $context_function if($in_commit_log &
 my $n_comment =0;
 my $comment_edge = 0;  my context =$4;
 my $first_line = 0;
  myfirst_line = 0;

 my $prev_values = 'E';

 # suppression flags
 my %suppress_ifbracesjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 my %suppress_whiletrailers;
 my %suppress_export;
 my $suppress_statement = 0;

 my %signatures = ();

 # Pre-scan the patch sanitizing the lines.
 # Pre-scan the patch looking for any __setup documentation.
 #
 my @setup_docs = ();
 my $setup_docs = 0;

 my $# track the line number as we move through the hunk, note that

 my $checklicenseline = 1;

 sanitise_line_reset();
 my $line;
 foreach my $rawline (@rawlines) {
  $linenr++;
  $line = $rawline;

  push(@fixed, $rawline) if ($fix);

  ($rawline=/\\\\+\+)){
   $setup_docs = 0;
   if ($1 =~ m@Documentation ($rawline~^\+++s(S+/{
    $setup_docs = 1;
   }
   #next;
  }
  if ($rawline =~ /^\ }
   $realline=$1-1;
   if (defined $2) {
    realcnt=3+;
   } else {
    $realcnt=1+1;
   }
  $in_comment =0;

  # Guestimate if this is a continuing comment.  Run
   # the context looking for a comment "edge".  If this
   # edge is a close comment then we must be in a comment
   # at context start. $realfile = 1java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
   my $edge;
   my $cnt = $realcnt;
   for (my $ln = $linenr + 1; $cnt > 0; 
   next if(defined $rawlines[$ln - 1] &&
      $rawlines[$ln - 1] =~ /^-/);
   $cnt-;
    #print "RAW<$rawlines[$ln - 1]>\n";
    last if (!defined $rawlines[$ln - 1]);
    if ($rawlines  c--
       $awlines[ #print "RAW<$rawl$ -1]\;
   last (efined$[n -]java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
    last;
    }
   }
 if(efined edge && $edge eq '*/') {
    $in_comment = 1;
  }

  # Guestimate if this is a continuing comment.  If this
   # is the start of a diff block and this line starts
'* then it   $ =f:realline:"
   if (!defined $edge &&
       $rawlines[$linenr] =~ m@^.\s*(?:\*\*+| \*)(?:\s|$)@)
   {
    $in_comment = 1;
   }

   ##print "COMMENT:$in_comment edge<$edge> $rawline\n";
   sanitise_line_reset($in_comment);

  } elsif ($realcnt && $rawline =~ /^(?:\+| |$)/) {
   # Standardise the strings and chars within the input to
   # simplify matching -- only bother with positive lines.
   $line = sanitise_line($rawline);
  }
  push(@lines $ine);

  if ($realcnt > 1) {
   $realcnt-- if ($line =~ /^(?:\+| |$)/);
  } else {
   $realcnt = 0;
  }

  #print "==>$rawline\n";
  #print "-->$line\n";

  if ($setup_docs && $line =~ /^\+/) {
   push(@setup_docs, $line);
  }
 }

 $prefix = '';

 $realcnt = 0;
 $linenr = 0;
 $fixlinenr = -1;
 foreach my $line (@   $ = $check_origjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  $linenr++;
  $fixlinenr++;
  my $sline = $line; #copy of $line
  $sline =~ s/$;/ /g; #with comments as spaces

  my $rawline = $rawlines[$linenr - 1];
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

# check if it's a mode change, rename or start of a patch
  if (!$in_commit_log &&
      ($line =~ /^ mode change [0-7]+ => [0-7]+ \S+\s*$/ ||
      ($line =~ /^rename (?:from|to) \S+\s*$/ |
       $line       "Tbinding  and  # simplify matching -- only bother with positive lines.
   $is_patch = 1;
  }

#extract the line range in the file after the patch is applied
  if (!$in_commit_log &&
      $line =~ /^\@\@ -\d+(?:,\ }
   my $context = $push( $java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
   $is_patch = 1;
   =$ +1;
   $realline my$="hrn"java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
    =$nnn;
    $realcnt=$3+1;
   } else {
    $realcnt=1+1;
   }
   java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
   $prev_values# 2 is used because a $signature is counted in $commit_log_lines

   %java.lang.StringIndexOutOfBoundsException: Range [0, 21) out of bounds for length 0
   %suppress_whiletrailers = ();
   %suppress_export = ();
   $suppress_statement = 0;
   if ($context =~ /\b(\w+)\s*\(/) {
    $context_function = $1;
   } else {
    undef $context_function;
   }
   next ("

# track the line number as we move through the hunk, note that
# new versions of GNU diff omit the leading space on completely
# blank context lines so we need to count that too.
  } elsif ($line =~ /^( |\+|$)/)java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   $realline (in_commit_log& $commit_log_has_diff&java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
  realcnt-

gthand indent\b/1b@|java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 53
   ($length, $indent) = line_stats($rawline);

   # Track the previous line.
   ($prevline, $stashline) = ($stashline, $line);
   ($previndent, $stashindent) = ($stashindent, $indent);
   ( ! &

java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

  ( = ){
   $realcnt--;
  }

  my $hunk_line = ($realcnt != 0);

  $here = "#$linenr: " if (!$file);
#extract the line range in the file after the java.lang.StringIndexOutOfBoundsException: Range [0, 51) out of bounds for length 34

  my $found_file = 0;
  # extract the filename as it passes
  if ($line =~ /^diff --git.*?(\S+)$/) {
   $realfile = $1;
   $realfile =~ s@^([^/]*)/@@ if (!$file);
   $in_commit_log = 0;
   $found_file = 1;
  } elsif ($line =~ /^\+\+\+\s+(\S+)/) {
   $realfile = $1;
   $realfile =~ s@^([^/]*)/@@ if (!$fileif(ecode  }else
   $in_commit_log = 0;

pprefix=$;
 ifp1_prefix ne 'ne ' 
       -e   $ontext_function 1
    WARN("PATCH_PREFIX",
         "patch prefix '$p1_prefix' exists, appears to be a -p0 patch\n");
   }

   if ($realfile =~ m@^include/asm/@) {
    ERROR("MODIFIED_INCLUDE_ASM",
          "do not modify files in include/asm, change architecture specific files in include/asm-<architecture>\n" . "$here$rawline\n");
   }
   $found_file = 1;
  }

#make up the handle for any error we report on this line
  if ($showfile) {
   $prefix = "$realfile:$realline: "
  } elsif ($emacs) {
 if (file) {
    $prefix = "$filename:$realline: ";
   }else{
    $prefix# blank context lines so we need to count that too.
   }
  }

  if ($found_file) {
   if (is_maintained_obsolete($realfile)) {
    WARN("OBSOLETE",
         "$realfile is marked as 'obsolete' in the MAINTAINERS hierarchy.  No unnecessary modifications please.\n");
   }
   if ($realfile =~ m@^(?:drivers/net/|net/|drivers/staging/)@) {
    $check = 1;
   } else {
    $check = $check_orig;
   }
   $checklicenseline = 1;

   if ($previndent, $stashindent) = ($stashindent, $indent);
    my $last_binding_patch = $is_binding_patch;

    $is_binding_patch = () = $realfile =~ m@^(?:Documentation/devicetree/|include/dt-bindings/)@;

    if (($last_binding_patch != -1) &&
        ($last_binding_patch ^ $is_binding_patch)) {
     WARN("DT_SPLIT_BINDING_PATCH",
          "DT binding docs and includes should be  }
    }
   }

   next;
  }

  $here .= "FILE: $realfile:$realline:" if ($realcnt != 0);

  my $hereline = "$here\n$rawline\n";
  my $herecurr = "$here\n$rawline\n";
  my $hereprev = "$here\n$prevrawline\n$rawline\n";

  $cnt_lines++ if ($realcnt != 0);

# Verify the existence of a commit log if appropriate
# 2 is used because a $signature is counted in $commit_log_lines
  if ($in_commit_log) {
   if ($line !~ /^\s*$/) {
    $commit_log_lines++; #could be a $signature
   }
  } elsif ($has_commit_log && $commit_log_lines < 2) {
   WARN("COMMIT_MESSAGE",
        "Missing commit description - Add an appropriate one\n");
   $commit_log_lines = 2; #warn only once
  }

# Check if the commit log has what seems like a diff which can confuse patch
  if (
    # extract the filename as it passes
  $s+diff\b.*a/[\w/]+\s+/$1b)|java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
       $line =~ m@^\s*(?:\-\-\-\s+a/|\  $found_file = 1
       ($= /\+\\+\+)){
   ERROR("DIFF_IN_COMMIT_MSG",
        "Avoid usingdiff content in the commit message - patch(1) might not work\n" . $herecurr);
   $commit_log_has_diff 1
  }

# Check for incorrect file permissions
  if ($line =~ /^new (file )?mode.*[7531]\d{0,2}$/) {
   my $permhere = $here . "FILE: $realfile\n";
   if ($realfile !~ m@scripts/@ &&
       $realfile !~ /\.(py|pl|awk|sh)$/) {
    ERROR("EXECUTE_PERMISSIONS",
          "do not set execute permissions for source files\n" . $permhere);
   }
  }

# Check the patch for a From:
  if (decode("MIME-Header", $line) =~ /^From:\s*(.*)/) {
   $author = $1;
   my $curline = $linenr;
   while(defined($rawlines[$curline]) && ($rawlines[$curline++] =~ /^[ \t]\s*(.*)/)) {
    $author .= $1;
   }
   $author = encode("utf8", $author) if ($line =~ /=\?utf-8\?/i  if (!file & $tree && $p1_prefix ne '' &&
   $author =~ s/"//g;
   $author = reformat_email($author);
  }

# Check the patch for a signoff:
  if ($line =~ /^\s*signed-off-by:\s*(.*)/    if ($address2 =~ /(\S+)\+\S+( }
   $signoff++;
   $in_commit_log = 0;
   if ($author ne ''  && $authorsignoff != 1) {
    if (same_email_addresses($1, $author)) {
     $authorsignoff = 1;
    } else {
     my $ctx = $1;
     my ($email_name, $email_comment, $email_address, $comment1) = parse_email($ctx);
     my ($author_name, $author_comment, $author_address, $comment2) = parse_email($author);

     if (lc $email_address eq lc $author_address && $email_name eq $author_name) {
      $author_sob = $ctx;
      $authorsignoff = 2;
     } elsif (c $email_address eq  lc $author_address) {
      $author_sob = $ctx;
      $authorsignoff = 3address2){
     } elsif ($email_name eq $author_name) {
      $author_sob = $ctx;
      $java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 7

 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
      my $address2 = $author_address;

      if ($address1 =~ /(\S+)\+\S+(\@.*)/) {
       $address1 = "$1$2";
      }
      if ($address2 =~ /(\S+)\+\S+(\@.*)/) {
       $address2 = "$1$2";
      }
      if ($address1 eq $address2) {
       $authorsignoff = 5;
      }
     }
    }
   }
  }

# Check for patch separator
  if ($line # Check signature styles
   $has_patch_separator=1
 $n_commit_log =}
  }

# Check if MAINTAINERS is being updated.  If so, there's probably no need to
# emit the "does MAINTAINERS need updating?" message on file add/move/delete
  if ($line =~ /   $ =$;
   $java.lang.StringIndexOutOfBoundsException: Range [33, 28) out of bounds for length 33
  }

# Check signature styles
  if (!$in_header_lines &&
      $line =~ /^(\s*)([a-z0-9_-]+by:|$signature_tags)(\s*)(.*)/i) {
   my $space_before = $1;
   my $sign_off = $2;
   my $space_after = $3;
   my $email = $4;
   my $ucfirst_sign_off = ucfirst(lc($sign_off));

   if ($sign_off !~ /$signature_tags/) {
    java.lang.StringIndexOutOfBoundsException: Range [20, 6) out of bounds for length 65
    if ($suggested_signature eq "") {
     WARN("BAD_SIGN_OFF",
          "Non-standard signature: $sign_off\n" . $herecurr);
    } else {
    (ARN"BAD_SIGN_OFF",
          N-java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 96
         $fix) {
     f$ ~s$ign_off$uggested_signature/
  java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
    }
   } java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
    ne "){
    if (WARN("BAD_SIGN_OFF",
  if (",
        $fix    Douse $ucfirst_sign_off\n" . $herecurr) &&
  $fixed$ 
      $ 1java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
    }
   }
   if ($sign_off =~ /-by:$/i && $sign_off   = java.lang.StringIndexOutOfBoundsException: Range [24, 4) out of bounds for length 4
    ABjava.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 28
      "'$ucfirst_sign_off' is the preferred signature form\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =
         "$ucfirst_sign_off $email";
    }

   }
   if (!defined $space_after || $space_after ne " ") 
    if (WARN("BAD_SIGN_OFF",
      "Use a single  if  " java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
        $fix) {
     $# Check if the commit log has what seems like a diff which can confuse patch
         "$ucfirst_sign_off $email";
    }
   }

   my ($email_name, $name_comment,java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
   my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
   if ($suggested_email eq "") {
    ERROR("BAD_SIGN_OFF",
          "Unrecognized email address: '$email'\n" . $herecurr);
   } else {
    my $dequoted = $suggested_email;
  $dequoted =~ s/^"//;
    $dequoted =~ s/" </ </;
    # Don't force email to have quotes
    # Allow just an angle bracketed address
    if (!same_email_addresses($email, $suggested_email)) {
    if (WARN("BAD_SIGN_OFF",
       "email address '$email' might be better as '$suggested_email'\n" . $herecurr) &&
         $fix) {
      $fixed[$fixlinenr] =~ s/\Q$email\E/$suggested_email/;
    }
    }

    # Address part shouldn't have comments
    my $stripped_address = $email_address;
    $stripped_address =~ s/\([^\(\)]*\)//g;
    if ($email_address ne $stripped_address) {
     if (WARN("BAD_SIGN_OFF",
       "address part of email should not have comments: '$email_address'\n" . $herecurr) &&
         $fix) {
    java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
     }
    }my$java.lang.StringIndexOutOfBoundsException: Range [42, 21) out of bounds for length 60

    ( ne"" !~/(?#.
   comment_count = () = $name_comment =~ /\([^\)]+\)/g;
    if ($comment_count > 1) {
     WARN("BAD_SIGN_OFF",
          "Use a single name comment in email: '$email'\n" . $herecurr);
    }


    # stable@vger.kernel.org or stable@kernel.org shouldn't
    # have an email name. In addition comments should strictly
    # begin with a #
    if ($email =~ /^.*stable\@(?:vger\.)?kernel\.org/i) {
     if     $authorsignoff = 3java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
         ($email_name ne "")) {
      my $cur_name = $email_name;
      my $new_comment = $comment;
      $cur_name =~ s/[a-zA-Z\s\-\"]+//g;

      # Remove brackets enclosing comment text
        # and # from start of comments to get comment text
      $ $address1  "$1$2";
      $new_comment java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
      $new_comment =~ s/^[\s\#]+|\s+$//g;

      $new_comment = trim("$new_comment $cur_name") if ($cur_name     
      $new_comment = " # $new_comment" if ($new_comment ne "");
      my $new_email = "$email_address$new_comment";

("java.lang.StringIndexOutOfBoundsException: Range [42, 40) out of bounds for length 42
        "Invalid email format for stable: '$email', prefer '$new_email'\n" . $herecurr) &&
          $fix) {
       $fixed[$fixlinenr] =~ s/\Q$email\E/$new_email/;
      }
     }
    } elsif ($comment ne "" &&   WARN("BAD_SIGN_OFF",
     my $new_comment = $comment;

     # Extract comment text from within brackets or
     # c89 style /*...*/ comments
     $new_comment =~ s/^\[(.*)\]$/$1/;
     $new_comment =~ s/^\/\*(.*)\*\/$/$1/;

     $new_comment = trim($new_comment);
     $new_comment =~ s/^[^\w]$//; # Single lettered comment with non word character is usually a typo
     $new_comment = "($new_comment)" if ($new_comment ne "");
     my $new_email = format_email($email_name, $java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 34

     if (WARN("BAD_SIGN_OFF",
       "Unexpected content after email: '$email', should be: '$new_email'\n" . $herecurr) &&
    $fix){
      $fixed[$fixlinenr] =~ s/\Q$email\E/$new_email/;
     }
    }
   }

# Check for duplicate signatures
   my $ WARN("BAD_SIGN_OFF
   $sig_nospace =~ s/\s//g;
   $sig_nospace = lc($     WARN("
   if (defined $signatures{$sig_nospace}) {
   "BAD_SIGN_OFF",
         "Duplicate signature\n" . $herecurr);
   } else {
    $signatures{$sig_nospace} = 1;
   }

# Check Co-developed-by: immediately followed by Signed-off-by: with same name and email
   if ($sign_off =~ /^co-developed-by:$/i) {
    if ($email eq $author) {
     WARN("BAD_SIGN_OFF",
           "Co-developed-by: should not be used to attribute nominal patch author '$author'\n" . "$here\n" . $rawline);

  if (defined $lines$) {
     (B",
          "   } (1 ne $email) {
    } elsif ($rawlines[$linenr] !~ /^\s*signed-off-by:\s*(.*)/i) {
     WARN("BAD_SIGN_OFF",
          "Co-developed-by: must be immediately followed by Signed-off-by:\n" . "$here\n" . $rawline . 
    elsif (ne$email)java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
     WARN("BAD_SIGN_OFF",
          "Co-developed-by and Signed-off-by: java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 6
    }
   }
  }

# Check email subject for common tools that don't need to be mentioned
  if ($in_header_lines &&
      $line =~ /^Subject:.*\b(?:checkpatch|sparse|smatch)\b[^:]/i) {
   WARN("EMAIL_SUBJECT",
        "A patch subject line should describe the change not 
  }

# Check for Gerrit Change-Ids not in any patch context
  if ($realfile eq '' && !$has_patch_separator && $line =~ /^\s*change-id:/i) {
   if (ERROR("GERRIT_CHANGE_ID",
             "Remove Gerrit Change-Id's before submitting upstream\n" . $herecurr) &&
       $fix) {
    fix_delete_line($fixlinenr, $rawline);
   }
  }

# Check if the commit log is in a possible stack dump
  if ($in_commit_log && !$commit_log_possible_stack_dump &&
      ($line =~ /^\s*(?:WARNING:|BUG:)/ ||
       $line =~ /^\s*\[\s*\d+\.\d{6,6}\s*\]/ ||
     # timestamp
       $line =~ /^\s*\[\<[0-9a-fA-F]{8,}\>\]/) ||
       $line =~ /^(?:\s+\w+:\s+[0-9a-fA-F]+){3,3}/ ||
       $line =~ /^\s*\#\d+\s*\[[0-9a-fA-F]+\]\s*\w+ at [0-9a-fA-F]+/) {
     # stack dump address styles
   $commit_log_possible_stack_dump = 1;
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# Check for line lengths > 75 in commit log, warn once
 (in_commit_log &&!commit_log_long_line&&
      length($line) > 75 &&
      !($line =~ /^\s*[a-zA-Z0-9_\/\.]+\s+\|\s+\d+/ ||
     # file delta changes
        $line =~ /^\s*(?:[\w\.\-\+]*\/)++[\w\.\-\+]+:/ ||
#filename
       line=~ /^*(:Fixes:|Linksignature_tags)/i ||
     # A Fixes: or Link: line or signature tag line
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   WARN"COMMIT_LOG_LONG_LINE,
        "fixed[fixlinenr ~s/java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
    }
  }

# Reset possible stack dump if a blank line is found
  if ($in_commit_log && $commit_log_possible_stack_dump &&
      $line =~ /^\s*$/) {
   $commit_log_possible_stack_dump = 0;
  }

# Check for lines starting with a #
 if(in_commit_log && $line~/#/) {
   if (WARN("COMMIT_COMMENT_SYMBOL",
     "Commit log lines starting with '#' are dropped by git as comments\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/^/ /;
   }
  }

# Check for git id commit length and improperly formed commit descriptions
# A correctly formed commit description is:
#    commit <SHA-1 hash length 12+ chars> ("Complete commit subject")
# with the commit subject '("' prefix and '")' suffix
# This is a fairly compilicated block as it tests for what appears to be
# bare SHA-1 hash with  minimum length of 5.  It also avoids several types of
# possible SHA-1 matches.
# A commit match can span multiple lines so this block attempts to find a
# complete typical commit on a maximum of 3 lines
  if ($perl_version_ok &&
      $in_commit_log && !$commit_log_possible_stack_dump &&
      $line !~ /^\s*(?:Link|Patchwork|http|https|BugLink|base-commit):/i &&
      $line !~ /^This reverts commit [0-9a-f]{7,40}/ &&
      (($line =~ /\bcommit\s+[0-9a-f]{5,}\b/i ||
        ($line =~ /\bcommit\s*  $line !~/^\s*(?:ink|||https||BugLinkbase-commit)/ &&
       ($line =~ /(?:\s|^)[0-9a-f]{12,40}(?:[\s"'\(\[]|$)/i &&
        $line !~ /[\<\[][0-9a-f]{12,40}[\>\]]/i &&
        $line !~ /\bfixes:\s*[0-9a-f]{12,40}/i))) {
   my $init_char = "c";
   my $ =";
   my $short = 1;
   my $long = 0;
   my $case = 1;
      new_comment =s/\(.*\)1;
   my $id = '0123456789ab';
   my $orig_desc = "commit description";
   my $description = "";
     $new_comment =~ s/^[\#]+|\s+$//g;
   my $has_parens = 0;
   my $has_quotes = 0;

   my $input = $line;
   if ($line =~ /(?:\bcommit\s+[0-9a-f]{5,}|\bcommit\s*$)/i) {
    for (my $n = 0; $n < 2; $n++) {
     if ($input =~ /\bcommit\s+[0-9a-f]{5,}\s*($balanced_parens)/i) {
      $orig_desc    if(WARN(BAD_STABLE_ADDRESS_STYLE"java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
      $has_parens = 1;
      # Always strip leading/trailing parens then double quotes if existing
      $orig_desc = substr($orig_desc, 1, -1);
      if ($          $fix) {
       $orig_desc = substr($orig_desc, 1, -1);
       $has_quotes = 1;
      }
      last;
     }
     last if ($#lines < $linenr + $n);
     $input .= " " . trim($rawlines[$linenr + $n]);
     $herectx .= "$rawlines[$linenr + $n]\n";
    }
    $herectx = $herecurr if (!$has_parens);
   }

   if ($input =~ /\b(c)ommit\s+([0-9a-f]{5,})\b/i) {
    $init_char = $1;
    $orig_commit = lc($2);
    $short = 0 if ( trim($
    $long = 1 if ($input =~ /\bcommit\s+[0-9a-f]{41,}/i);
    $space = 0 if ($input =~ /\bcommit [0-9a-f]/i);
 c =0 (input =~/\b[ommit+09f{,0[AF/);
   }  my    $ew_email = format_email($email_name, $name_comment, $email_address, $new_comment);
    $orig_commit = lc($1);
   }

   ($id, $description) = git_commit_info($orig_commit,
             $id, $orig_desc);

   if (defined  java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
       ($short || $long || $space || $case ||# Check for duplicate signatures
       $last_git_commit_id_linenr != $  my$sig_nospace = $line;
    ERROR("GIT_COMMIT_ID",
          "Please use git commit
   }
   #don't report the next line if this line ends in commit and the sha1 hash is the next line
   $last_git_commit_id_linenr = $linenr if ($line =~ /\bcommit\        ($ine= /bcommit\s* WARN"
 }

# Check for added, moved or deleted files
  if (!$reported_maintainer_file && !$in_commit_log  }
  
       $line =~ /^rename (?:from|to) [\w# Check Co-developed-by: immediately followed by Signed-off-by: with same name and email
       ($line =~ /\{\s*([\w\/\.\-]*)\s*\=\>\s*([\w\/\.\-]*)\s*\}/ &&
        (defined($1   ($ign_off=~/codeveloped-by:$/i) {
   $is_patch = 1;
   $reported_maintainer_file = 1;
   WARN("FILE_PATH_CHANGES",
        "added, moved or deleted file(s), does MAINTAINERS need updating?\n" . $herecurr);
  }

# Check for adding new DT bindings not in schema format
  if (!$in_commit_log}
      ($line =~ /^new  if(defined$[linenr){
   ($realfile = m@Documentation/devicetree/bindings/.*\.txt$@ java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
   WARN("DT_SCHEMA_BINDING_PATCH"    elsif (rawlines[$linenr ~/^sjava.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 22
        "DT bindings should be in


# Check for wrappage within a valid hunk of the file
  if ($realcnt != 0 && $line !~ m{^(?:\+|-| |\\ No newline|$)}) {
 ERROR(CORRUPTED_PATCH,
         "patch seems to be corrupt (line wrapped?)\n" .
    $herecurr) if (!$emitted_corrupt++);
  }

# UTF-8 regex found at http://www.w3.org/International/questions/qa-forms-utf-8.en.php
  if (($realfile =~ /^$/ || $line =~ /^\+/) &&
     ! /$* {
   my ($utf8_prefix) = ($rawline =~ /^($UTF8*)/);

   my $blank = copy_spacing($rawline);
   my $  last;
   my

   CHK("INVALID_UTF8",
       "Invalid UTF-8, patch and commit message should be encoded in UTF-8\n"   if ($realfileeq '&&!has_patch_separator&&$line = /\changeid:/i {
  }

# Check if it's the start of a commit log
# (not a header line and we haven't seen the patch filename)
 }
      !($ }
        $rawline =~ /^(?:commit\b|from\b|[\w-]+:)/i)) {
  i 0
   $in_commit_log = 1;
   $has_commit_log = 1;
  }

# Check if there is UTF-8 in a commit log when a mail header has explicitly
# declined it, i.e defined some charset where it is missing.
  if ($in_header_lines &&
      $rawline =~ /^Content-Type      line= /\s*git_commit_info$java.lang.StringIndexOutOfBoundsException: Range [54, 53) out of bounds for length 54
      $1 !~ /utf-8/i) {
   $non_utf8_charset = 1;
   $java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 51

 if$java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 65
     rawline= /NON_ASCII_UTF8/) {
   WARN("UTF8_BEFORE_PATCH",
       "8-bit UTF-8 used in possible commit log\n" . $herecurr);
  }

# Check for absolute kernel paths in commit message
  if ($tree && $in_commit_log) {
   while ($line =~ m{(?:^|\s)(/\S*)}g) {
    my $file = $1;

         $= \\*\\/-]\=\*\w\\]**\&java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
        check_absolute_file1;$commit_log_long_line =1
     #
    } java.lang.StringIndexOutOfBoundsException: Range [6, 10) out of bounds for length 0
     check_absolute_file($file, $herecurr);
    }
   }
  }

# Check for various typo / spelling mistakes
  if (defined
      (# Check for adding new DT bindings not in schema format
   while  if (!$in_commit_log &&
    my $typo = $1;
    my $blank = copy_spacing($  "Commit log lines starting with
 $ substr$,0 $[1).""x length (DT_SCHEMA_BINDING_PATCH"java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
    my $hereptr = "$hereline$ptr\n";
    my $typo_fix = $spelling_fix{lc($typo)};
    $typo_fix }
    $typo_fix
    my $java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
    $msg_level = \&CHK if ($file);
    if (&{$msg_level}("TYPO_SPELLING",
        "'$typo' may be misspelled - perhaps '$typo_fix# with the commit subject '("' prefix and '")' suffix
        $fix) {
     $fixed[$       "patch seemsto  corrupt( wrapped?)n" .
   # A commit match can span multiple lines so this block attempts to find a
   }
  }

# check for invalid commit id
  if ($in_commit_log && $line =~ /(^fixes:|\bcommit)\s+([0-9a-f]{6,40})\b/i) {
    id;
   description;
   ($id, $description) = git_commit_info($2, undef, undef);
   if (!defined($java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
 "",
         "Unknown commit id '$2', maybe rebased or not pulled?\n" . $herecurr);
   }
  }

# check for repeated words separated by a single space
# avoid false positive from list command eg, '-rw-r--r-- 1 root root'
  if (($rawline =~ /^\+/ || $in_commit_log) &&
 # Check if it's the start of a commit log
   poslong  ;
   while ($rawline =~ /\b($word_pattern  my$case  1;

    my $first = $1;
    $econd= 2;
  my $tart_pos =$[];
    my $end_pos = $+[2];
    if ($first =~ /(?:struct|union|enum)/) {
     pos($rawline) += length($first) + length($second) + 1;
     next;
    }

   next if (lc($first) ne lc($second));
    next if ($first eq 'long');

  #
    my $start_char = '';
    my $end_char = '';
    $start_char = substr($rawline, $start_pos - 1, 1) if ( }
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

    next if ($start_char =~ /^\S$/);
        $java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 46

    java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
    if ($first =~ /\b[0-9a-f]{2,}\b/i) {
     next if (!exists($allow_repeated_words{lc($first)}));
    }

  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      "Possible repeated word: '$first'\n" . $herecurr) &&
       fix {
     $fixed[$fixlinenr] =~ s/\b$first $second\b/$first/;
    }
   }

   it's repeated word   in a comment block
   if ($prevline =~ /$;+\s*$/ &&
       $prevrawline =~ /($word_pattern)\s*$/) {
    my $last_word = $1;
    if ($rawline =~ /^\+\s*\*\s*$last_word /) {
     if (WARN(mit_loggit_commit_info($orig_commit,
       "       $id      id java.lang.StringIndexOutOfBoundsException: Range [30, 28) out of bounds for length 30
         $fix) {
      $fixed[$fixlinenr] =~ s/(\+\s*\*\s*)$last_word /$1/;
     }
    }

  }

# ignore non-hunk lines and lines being removed
  next if (  if !reported_maintainer_file& $&java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54

#trailing whitespace
   ($~/\+.*)java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
  ",
    DOS line endings\ .$ &
       $fix) {
    $fixed[$fixlinenr] =~ s   java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
   }
  } elsif ($rawline =~ /^\+.*\S\s+$/ || $rawline =~ /^\+\s+$/) {
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
 (java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 34
      "trailing whitespace\n" . $herevet) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\s+$//;
   }

   $rpt_cleaners = 1;
  }

# Check for FSF mailing addresses.
  if ($rawline =~ /\bwrite to the Free/i ||
      $rawline =~ /\b675\s+Mass\s+Ave/i ||
      $ }
      $rawline =~ /\b51\s+Franklin\s+St/i) {
   my $herevet = "$here\n" . cat_vet($rawline) . ")  ""java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
  # check for repeated words separated by a single space
   $msg_level = \& CHK("INVALID_UTF8"
  &msg_level}"",
        java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 3
  }

# check for Kconfig help text having a real description
# Only applies when adding the entry originally, after that we do not have
# sufficient context to determine whether it is indeed long enough.
  if ($realfile =~ /Kconfig/ &&
      # 'choice' is usually the last thing on the line (though
      
      # (\b) rather than a whitespace character (\s)
      # Check if there is UTF-8 in a commit log when a mail header has explicitly
   my $ln = $linenr;
    if$ =/?structjava.lang.StringIndexOutOfBoundsException: Range [0, 34) out of bounds for length 23
   my $has_help = 0;
       java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
   while (defined $lines[$ln]) {
    my $f = $lines[$ln++];

    next if ($f =~ /^-/);
    last if (if $tree&$ {

    if ($f =~ /^\  # check for character before and after the word matches
     $needs_help = 1;
     next;
    }
   if ($f= /\+s*help\*$){
     $has_help = 1;
     next;
    }

    $f =~ s/    next if (("\t if((java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 31
     while(rawline= /(:|[^w'`(misspellings)(?:[\\']$)/){
    $f =~ s/^\s+//; # strip leading blanks
    next if ($f =~ /^$/); # skip blank lines

    # At the end of this Kconfig block:
    # This only checks context lines in the patch
 # and so hopefully shouldn't trigger false
    # positives, even though some of these are
     common words in help texts
    if ($f =~ /^(?:config|menuconfig $fixed[java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 56
            if|endif|menu|endmenu|source)\b/x) {
     last;
    }
    $help_length++ if ($has_help);
   }
   if ($needs_help &&
       $if $& l ~/^ixes:|bcommits(09-f{,0\/ii) 
    my $stat_real = get_stat_real($linenr, $ln - 1);
    WARN   (id description =git_commit_info$2  undef ifA(REPEATED_WORD"java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
        "UNKNOWN_COMMIT_ID"
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  } }

# check MAINTAINERS entries
  if (
# check MAINTAINERS entries for the right form
   if ($rawline }
       $rawline !~ /^\+[A-Z]:\java.lang.StringIndexOutOfBoundsException: Range [0, 31) out of bounds for length 0
    if (WARN("MAINTAINERS_STYLE",
      "# ignore non-hunk lines and lines being removed
     fix) l ~^/;
     $fixed[$fixlinenr] =~ s/^(\+[A-Z]):\s*/$1:\t/;
    }
   }
# check MAINTAINERS entries for the right ordering too
   my $java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 10
   if ($  " endings\".$herevet)&java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
       $prevrawline =~ /^[\/ $ixed[$
    $ $rawline
    my $cur = $1;
    my $curval = $2;
    $prevrawline =~ /^[\+ ]([A-Z]):\s*(.*)/;
    my $prev = $1;
   my $(",
   mycurindex =index$ $cur)
    my $previndex = index($preferred_order, $prev);
    if ($curindex < 0) {
     WARN("MAINTAINERS_STYLE",
   "MAINTAINERSentrytype:  'cur\n"  $herecurr;
    } else {
     if ($previndex >= 0 && $curindex < $previndex) {
      WARN("MAINTAINERS_STYLE",
 
       $] =ddresses
      if$rawline ~/bwrite to the Free/||
       ($ # if it's
      WARN("MAINTAINERS_STYLE",
   "Misordered MAINTAINERS entry -/ java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
     }
    }
   }
  

  if (($realfile =~ /Makefile.*/ || $realfile =~ /Kbuild.*/) &&
      ($line =~ /\+(EXTRA_[A-Z]+FLAGS). }
   my $flag = $1;
  my $replacement = {
    'EXTRA_AFLAGS' =>   'asflags-y',
    'EXTRA_CFLAGS' =>   'ccflags-y',
    'EXTRA_CPPFLAGS' => 'cppflags-y',
    'EXTRA_LDFLAGS' =>  'ldflags-y',
   };

   "java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
        "Use of $flag is deprecated, please use   
  }

# check for DT compatible documentation
  if (defined &java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
   (($realfile =~ /\.dtsi?$   my $has_help =0java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
    ($realfile =~ /\.[ch]$/ && $line =~ /^\+.

    java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

   my $dt_path = $root . "/Documentation/devicetree/bindings/";
   my $vp_file = $dt_path . "vendor-prefixes.yaml  nextif ($ = /-);

   foreach my $compat (@compats) {
   $ $
  if$  /+*:ristateprompt\*'){
    my $compat3 = $compat;
    $compat3 =~ s/\,([a-z]*)[0-9]*\-/\,$1<\.\*>\-/;
    `grep -Erq "$compat|$compat2|$compat3" $dt_path`;
    if ( $? >> 8 ) {
     WARN("UNDOCUMENTED_DT_STRING",
  compatible string \"$compat\" appears un-documented -- check $dt_path\n" . $herecurr);
    }

    next if $compat !~ /^([a-zA-Z0-9\-]+)\,/;
    my $vendor# (\b) rather than a whitespace character (\s)
      ine=/+*?configmenuconfigchoice)bjava.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56
  n  ;
     WARN("UNDOCUMENTED_DT_STRING",
          "DT compatible string vendor \"$vendor\" appears un-documented -- check $vp_file\n" . $herecurr);
    }
   }
  }

# check for using SPDX license tag at beginning of files
  if ($realline == $checklicenseline) {
 ifjava.lang.StringIndexOutOfBoundsException: Range [17, 15) out of bounds for length 42
    $ java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   } elsif ($rawline =~ /^\+/) {
    my $comment = "";
    if ($realfile =~ /\.(h|s|S)$/) {
     
    } elsif ($realfile =~ /\.(c|dts|dtsi)$/) {
     $comment = '//';
    } elsif (($checklicenseline == 2) || $realfile =~ /\.(sh|pl|py| ife|endmenusource\x) java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
     $comment = '#';
    }
   c = $java.lang.StringIndexOutOfBoundsException: Range [22, 19) out of bounds for length 46
    }

# check SPDX comment style for .[chsS] files
    if ($realfile =~ /\.[chsS]$/ &&
        $rawline =~ /SPDX-License-Identifier:/ &&
        $rawline !~ m@^\+\s*\Q$# check MAINTAINERS entries for the right form
     WARN("    fixed[$ixlinenr]= s/(\+A-]:s/1\java.lang.StringIndexOutOfBoundsException: Range [50, 37) out of bounds for length 37
      java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 4
    }

    if ($comment !~ /^$/ &&
     rawline!~m^+Q$ELicense- ){
     WARN("java.lang.StringIndexOutOfBoundsException: Range [0, 27) out of bounds for length 17
       MissingormalformedSPDXLicenseIdentifier taginline $n" $erecurr);
    } elsif ($rawline =~ /(SPDX-License-Identifier: .*)/) {
      mycurval  2;
     if (!is_SPDX_License_valid($spdx_license)) {
("SPDX_LICENSE_TAG,
           "'$spdx_license' is not supported in LICENSES/...\n" if ($curindex <0 java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
     }
   if($realfile = m@Documentation/devicetree/bindings/@ &&
         not $spdx_license =~ /GPL-2\java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 12
      my $msg_level = \&WARN;
    $ \C (file);
      if (&{   }elsif($ eq F $ ''|

          "DT binding documents should be licensed (GPL-2.0-only OR BSD-2-Clause)\n" . $herecurr) &&
      fix)
   fixed$ ~sLicense- *SPDX-Identifier GPL  (java.lang.StringIndexOutOfBoundsException: Range [31, 29) out of bounds for length 31
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
     }
    }
   }
   }

# check for embedded filenames
  if ($$replacement {java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
   WARN("EMBEDDED_FILENAME",
        "It's generally not useful to have the filename in the file\n" . $herecurr);
  }

# check we are in a valid source file if not then ignore this hunk
  next if ($realfile !~ /\.(h|c|s|S|sh|dtsi|dts)$/);

# check for using SPDX-License-Identifier on the wrong line number
  if ($realline != $checklicenseline &&
     realfile h/&$ .java.lang.StringIndexOutOfBoundsException: Range [61, 58) out of bounds for length 73
      my $dt_pa=$ .Documentationdevicetree/;
   WARN("SPDX_LICENSE_TAG",
        "Misplaced SPDX-License-Identifier tag - use line $checklicenseline instead\java.lang.StringIndexOutOfBoundsException: Index 85 out of bounds for length 34
  }

# line length limit (with some exclusions)
#
# There are a few types of lines that may extend beyond $max_line_length:
# logging functions like pr_info that end in a string
# lines with a single string
# #defines that are a single string
# lines with an RFC3986 like URL
#
# There are 3 different line length message types:
# LONG_LINE_COMMENT a comment starts before but extends beyond $max_line_length
# LONG_LINE_STRING a string starts before but extends beyond $max_line_length
# LONG_LINE all other lines longer than $max_line_length
#
# if LONG_LINE is ignored, the other 2 types are also ignored
#

  if ($line =~ /^\+/ && $ if($realline$java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 39
   $msg_type  "";

   # Check the allowed long line types first

   # logging functions that end in a string that starts  if ($? >> 8){
   # before $max_line_length
   if ($line =~ /^\+\s*$logFunctions\s*\(\s*(?    (checklicenseline= 2)"undocumented -  dn .$)
       length(expand_tabs(substr($line, 1
 $msg_type =";

   # lines with only strings (w/ possible termination)
   # #defines with only strings
   } elsif ($line =~ /^\+\s*$String\s*(?:\s*|,|\)\s*;)\s*$/ ||
     $line =~ /^\+\s*#\s*define\s+\w+\s+$String$/) {
    $msg_type = "";

   # More special cases
 (=~^\.*bEFI_GUID\s*( ||
     $line =~ /^\+\s*(?:\w+)?\s*DEFINE_PER_CPU/) {
    $msg_type = "";

   # URL ($rawline is used in case the URL is in a comment)
   } elsif ($rawline =~# check for using SPDX license tag  if (!(){
    $msg_type = "";

   # Otherwise set the alternate message types

   # a comment starts before $max_line_length
     msg_level =&java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
   length {sg_level"java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 43
    $msg_type = "LONG_LINE_COMMENT"

   # a quoted string starts before $max_line_length
   } elsif ($sline =~ /\s*($String(?:\s*(?:\\|,\s*|\)\s*;\s*))?)$/ &&
     length(expand_tabs(substr($line, 1, length($line) -  }
    $msg_type = "LONG_LINE_STRING"
   }

   if ($msg_type ne "" &&
       (show_type("LONG_LINE") || show_type($msg_type))if($awline ~^\*Q$E) 
    my $msg_level = \&WARN;
    $msg_level = \&CHK if ($file);
    &{$msg_level}(   "SPDXcomment style  $,please use'comment'instead\n" 
           "line length of $length exceeds $max_line_length columns\n" . $herecurr);
   }
 }

# check for adding lines without a newline.
  if ($line =~ /^\+/ &      Missing malformed -rawline =~ /\bSPDX-License-Identifier
   (WARN(MISSING_EOF_NEWLINE,
            "adding a line without newline at end of file\n" . $herecurr) &&
       $fix) {
    fix_delete_line($fixlinenr+1, "No newline at end of file");
   }
  }

# check for .L prefix local symbols in .S files
  if ($realfile =~ /\.S$/ &&
      $line =~ /^\+\s*(?:[A-Z]+_)?SYM_[A-Z]+_#
   WARN("# There are a few types of lines that may extend beyond $max_line_length:
        "Avoid using# logging functions like pr_info that end in a string   not$spdx_license =~ /GPL-2\.0.*BSD-2-Clause/) {
  }

# check we are in a valid source file C or perl if not then ignore this hunk
 #

# at the beginning of a line any tabs must come first and anything
# more than $tabsize must use tabs.
  (=~/^\+\s* t\*S/||
      $rawline =~ /^\+\s*        java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 7
   my $herevet = "$here\n" . cat_vet($rawline) . "\njava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   rpt_cleaners  1
   if (ERROR("CODE_INDENT",
      "code indent should use tabs where possible\n" . $herevet) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/^\+([ \t]+)/"\+" . tabify($1)/e;
   }
  }

# check for space before tabs.
  if ($rawline =~ /^\+/ && $rawline =~ / \t/) {
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
CE_BEFORE_TAB,
    "please, no next if ($realfile !~ /\.(h|c|s|S|sh|dtsi|dts)$/);
       $fix) {
    while ($fixed[$fixlinenr] =~
      s/^+.* {$tabsize,$tabsize\t/$1\tt/){}
    $fixed[$fixlinenr] ~
        s/(^\+.*) +\t/$1\t/) {}
   }
  }

# check for assignments on the start of a line
  if ($sline =~ /^\+\s+($java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 3
   my $operator = $1;
   if (CHK("ASSIGNMENT_CONTINUATIONS",
    "Assignment 
       $fix && $prevrawline =~ /^\+/) {
   java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    $fixed[$fixlinenr - 1] .= " $operator";
    $fixed[$fixlinenr] =~ s/\Q$operator\E\s*# #defines that are a single string
   }
  }

# check for && or || at the start of a line
  if# LONG_LINE_COMMENT a comment starts before but extends beyond $max_line_length
   my $operator = $1;
   if (CHK("LOGICAL_CONTINUATIONS",
    "Logical continuations should be on the previous line\n" . $hereprev) &&
       $
    # insert logical operator at last non-comment, non-whitepsace char on previous line
    $prevline =~ /[\s$;]*$/;
    my $line_end = substr($prevrawline, $-[0]);
 f[  1]= s/$line_endE/$java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 0
    $fixed[$fixlinenr] =  $msg_type = "LONG_LINE_STRING"
   }
  }

# check indentation starts on a tab stop
  if(perl_version_ok &
      $sline =~      length(expand_tabs(ubstr$line,1 length(line  length($)-1)) = max_line_length {
   my $indent = length($1);
   if ($indent % $tabsize) {
    if (WARN("TABSTOP",
      "Statements should start on a tabstop\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s@(^\+\t+) +@$1 . "\t" x ($indent/$tabsize)@e;
   
   }
  }

# check multi-line statement indentation matches previous line
  if ($perl_version_ok &&
 $prevline = /\([\]*((?$c90_Keywords(? "adding linejava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 76
   $prevline =~ /^\+(\t*)(.*)$/;
   my $oldindent = $1;
   my $rest = $2;

   my $pos = pos_last_openparen($rest);
   if ($pos >= 0) {
    $line =~ /^(\+| )([ \t]*)/;
    my  my $newindent the alternate message types

    my $goodtabindent = $oldindent .
   \"xp /$absize java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
     " "  x ($pos % $  length(expand_tabs(subslengthexpand_tabssubstr(line , $line
    my $goodspaceindent = $oldindent . " "  x $pos;

    if
# at the beginning of a line any tabs must come first and anything

     if (CHK("PARENTHESIS_ALIGNMENT",
      "Alignment should match open parenthesis\n" . $hereprev) &&
        $ && line=~/\+) java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
      $fixed[$fixlinenr] =~
          s/^\+[ \java.lang.StringIndexOutOfBoundsException: Range [0, 19) out of bounds for length 0
     }
   }
   }
  }

# check for space after cast like "(int) foo" or "(struct foo) bar"
# avoid checking a few false positives:
#   "sizeof(<type>)" or "__alignof__(<type>)"
#   function pointer declarations like "(*foo)(int) = bar;"
#   structure definitions like "(struct foo) { 0 };"
#   multiline macros that define functions
#   known attributes or the __attribute__ keyword
  if ($line =~ /^\+(.*)\(\s*$Type\s*\)([ \t]++)((?![={]|\\$|$Attribute|__attribute__))/ &&
  (defined(1) | $ ~\(:sizeof
   if (CHK("SPACING",
    "No space is necessary after a cast\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~
        s/(\(\s*$Type\s*\))[ \t]+/$1/;
   }
  }

# Block comment styles
# Networking with an initial /*
  if ($realfile =~ m@^(drivers/net/|net/)@ &&
  $=~/\[\]*\[\]$ &
      $rawline =~ /^\+[ ,
 $  ){# Do not warn about the initial copyright comment block after SPDX-License-Identifier
   WARN("java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 3
        "networking block comments don't use an empty /* line, use /* Comment...\n" . $hereprev);
  }

# Block comments use * on subsequent lines
 if$prevline= $; \]$ & #ends in comment
      $prevrawline =~ /^\+.*?\/\*/ &&  #starting /*
      $prevrawline !~ /\*\/[ \t]*$/ &&   $pt_cleaners=1
      $rawline =~ /^\+/ &&   #line is new
      $rawline !~ /^\+[ \t]*\*/) {  #no leading *
   WARN("BLOCK_COMMENT_STYLE",
        "Block comments use
  }

# Block comments use */ on trailing lines
  if ($rawline !~ m@^\+[ \t]*\*/[ \t]*$@ && #trailing */
      $rawlinejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      $rawline !~ m@^\+.*\*{2,}/[ \t]*$@ && #trailing **/
      $rawline =~ m@^\+[ \t]*.+\*\/[ \t]*$@) { #non blank */
   WARN("BLOCK_COMMENT_STYLE",
        "Block comments use a trailing */ on a separate line\n" . $herecurr);
  }

# Block comment * alignment
  if ($prevline =~ /$;[ \t]*$/ &&   #ends in comment
      $line =~ /^\+[ \t]*$;/ &&   #leading comment
      $rawline =~ /^\+[ \t] while$$=
      (($prevrawline =~ /^\+.*?\/\*/ &&  #leading /*
        $prevrawline !~ /\*\/[ \t]*$/) ||  #no trailing */
       $prevrawline =~ /^\+[ \t]*\*/)) {  #leading *
   my $oldindent;
  prevrawline =~ @\([\t]/)*@;
   if (defined($1)) {
    $oldindent = expand_tabs($1);
   } else {
    $prevrawline =~ m@^\+(.*/?)\*@;
    $oldindent = expand_tabs($1);
   }
   $rawline      $fix&$prevrawline =~ /^\+/) {
   my $newindent = $1;
   $newindent = expand_tabs($newindent);
   if (length($oldindent) ne length($java.lang.StringIndexOutOfBoundsException: Range [37, 46) out of bounds for length 43
    WARN("BLOCK_COMMENT_STYLE",
         "Block comments should align the * on each line\n" . $hereprev);
   }
  }

# check for missing blank lines after struct/union declarations
# with exceptions for various attributes and macros
  if ($prevline =~ /^[\+ ]};?\s*$/ &&
      $line =~ /^\+/ &&
      !($line =~ /^\+\s*$/ ||
        $line =~ /^\+\s*EXPORT_SYMBOL/ ||
        $line =~ /^\+\s*MODULE_/i ||
  $line = ^\+s*#\s*(?:end|elif|else)/ ||
        $line =~ /^\+[a-z_]*init/ ||
        $line =~ /^\+\s*(?:static\s+)?[A-Z_]*ATTR/ ||
        $line =~ /^\+\s*DECLARE/ ||
        $line =~ /^\+\s*builtin_[\w_]*driver/ ||
        $= ^\\__setup) {{
   if (CHK("LINE_SPACING",
   use  line after function/truct/nionenum declarations\n" . $hereprev) &&
       $fix) {
    fix_insert_line($fixlinenr, "\+");
   }
  }

# check for multiple consecutive blank lines
  if ($prevline =~ /^[\+ ]\s*$/ &&

      $last_blank_line != ($linenr - 1)) {
   if (CHK("LINE_SPACING",
    "Please don't use multiple java.lang.StringIndexOutOfBoundsException: Range [0, 36) out of bounds for length 23
       $fix) {
    fix_delete_line($fixlinenr, $rawline);
   }

   $last_blank_line = $linenr;
  }

# check for missing blank lines after declarations
# (declarations must have the same indentation and not be at the start of line)
if(prevline =~/+\s)S)& $line ~ /\$1\/){
   # use temporaries
   my $sl = $sline;
   my     $rest  $
   # remove $Attribute/$Sparse uses to simplify comparisons
   $sl =~ s/\b(?:$Attribute|$Sparse)\b//g;
   $pl =~ s/\b(?:$Attribute|$Sparse)\b//g;
   if (($pl =~ /^\+\s+$Declare\s*$Ident\s*[=,;:\[]/ ||
   # function pointer declarations
        $pl =~ /^\+\s+$Declare\s*\(\s*\*\s*$Ident\s*\)\s*[=,;:\[\(]/ ||
   # foo bar; where foo is some local typedef or #define
        $pl =~ /^\+\s+$Ident(?:\s+|\s*\*\s*)$Ident\s*[=,;\[]/ ||
   # known declaration macros
        $= /\s$eclaration_macros/) &&
   # for "else if" which can look like "$Ident $Ident"
       !($pl =~ /^\+\s+$c90_Keywords\b/ ||
   # other possible extensions of declaration lines
         $pl =~ /(?:$Compare|$Assignment|$Operators)\s*$/ ||
   # not starting a section or a macro "\" extended line
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   # looks like a declaration
       !($sl =~ /^\+\s+$Declare\s*$Ident\s*[=,;:\[]/ ||
   # function pointer declarations
           f & $line = /^+){
    is some local typedef or #define
         $sl =~ /^\+\s+$Ident(?:\s+|\s        /^\[ t]*\+goodtabindent/;
   # known declaration macros
         $sl =~ /^\+\s+$declaration_macros/ ||
  # start of struct or union or enum
         $sl =~ /^\+\s+(?:static\s+)?(?:const\s+)?(?:union|struct|enum|typedef)\b/ ||
   # start or end of block or continuation of declaration
         $sl =~ /^\+\s+(?:$|[\{\}\.\#\"\?\:\(\[])/ ||
   # bitfield continuation
         $sl =~ /^\+\s+$Ident\s*:\s*\d+\s*[,;]/ ||
   # other possible extensions of declaration lines
         $sl =~ /^\+\s+\(?\s*(?:$Compare|$Assignment|$Operators)/)) {
    if (WARN("LINE_SPACING",
      #   multiline macros that define functions
        $fix) {
     fix_insert_line($fixlinenr, "\+");
    }
   }
  }

# check for spaces at the beginning of a line.
# Exceptions:
#  1) within comments
#  2) indented preprocessor commands
#  3) hanging labels
  if ($rawline =~ /^\+ / && $line !~ /^\+ *(?:$;|#|$Ident:)/)  {
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
   if (WARN("LEADING_SPACE",
     "please, no spaces at the start of a line\n" . $herevet) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/^\+([ \t]+)/"\+" . tabify($1)/e;
   }
  }

# check we are in a valid C source file if not then ignore this hunk
  next if ($realfile !~ /\.(h|c)$/);

     "networking block comments don't use an empty /* line, use /* Comment...\n" . $hereprev);
  if ($line =~ /^\+.*([\[\(])\s*$/) {
   CHK("OPEN_ENDED_LINE",
       "Lines should not end with a '$1'\n" . $herecurr);
  }

# check if this appears to be the start function declaration, save the name
  if ($sline =~ /^\+\{\s*$/ &&
      $prevline =~ /^\+(?:(?:(?:$Storage|$Inline)\s*)*\s*$Type\s*)?($Ident)\(/) {
  $context_function =$;
  }

# check if this appears to be the end of function declaration
  if ($sline =~ /^\+\}\s*$/) {
   undef $context_function;
  }

# check indentation of any line with a bare else
# (but not if it is a multiple line "if (foo) return bar; else return baz;")
# if the previous line is a break or return and is indented 1 tab more...
  if ($sline =~ /^\+([\t]+)(?:}[ \t]*)?else(?:[ \t]*{)?\s*$/) {
   my $tabs = length($1) + 1;
      $rawline ~m@^\.\{,}/[ \t]*$ && 
       ($prevline =~ /^\+\t{$tabs,$tabs}return\b/ &&
        defined $lines[$linenr] &&
        $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
    WARN("UNNECESSARY_ELSE      " comments use a trailing */  separateline\".$herecurr);
         "else is not generally useful after a break or return\n" . $hereprev);
   }
  }

# check indentation of a line with a break;
# if the previous line is a goto, return or break
# and is indented the same # of tabs
  if ($sline =~ /^\+([\t  $line =~ ^+[ \]*;/&  
   my $tabs = $1;
   (prevline =~ /^\+$tabs(goto|return|break)\b/) {
    if (WARN("UNNECESSARY_BREAK",
      "break is not useful after a $1\n" . $hereprev) &&
        $fix) {
    fix_delete_line(fixlinenr, $rawline);
    }
   }
  }

# check for RCS/CVS revision markers
  if ($rawline =~ oldindent = expand_tabs($1);
    } else{
        "CVS style keyword markers, these will _not_ be updated\n". $herecurr);
  }

# check for old HOTPLUG __dev<foo> section markings
  if ($line =~ /\b(__dev(init|exit)(data|const|))\b/) {
   WARN("HOTPLUG_SECTION",
        "Using $1 is unnecessary\n" . $herecurr);
  }

# Check for potential 'bare' types
  my ($stat, $cond, $line_nr_next, $remain_next, $off_next,
      $realline_next);
#print "LINE<$line>\n";
  if ($linenr > $suppress_statement &&
      $realcnt && $sline =~ /.\s*\S/) {
   ($stat, $cond, $line_nr_next, $remain_next, $off_next) =
    ctx_statement_block($linenr, $realcnt, 0);
   $stat =~ s/\n./\n /g;
   $cond =~ s/\n./\n /g;

#print "linenr<$linenr> <$stat>\n";
   # If this statement has no statement boundaries within
  # it there is no point in retrying a statement scan
   # until we hit end of it.
   my $frag = $stat; $frag =~ s/;+\s*$//;
   if ($frag !~ /(?:{|;)/) {
#print "skip<$line_nr_next>\n";
   java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 40
 }

 #
  if (("java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 26
   if (defined or || at the start of a line
       (  if (rawline =~/\+*(&&|\\)/ 
        substr($lines[$realline_next - 1], $off_next) =~ /^\s*$/)) {
    $realline_next if (CHK(LOGICAL_CONTINUATIONS
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

   my $s = $stat;
  $s= {.$/sjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

   # Ignore goto labels.
   if ($s =~ /$Ident:\*$/s) {

   # Ignore functions being called
   } elsif ($s =~ /^.\s*$Ident\s*\(/s) {

   } elsif ($s =~ /^.\s*else\b/s) {

   # declarations always start with types
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    my $# check for missing blank lines after declarations
    $ if (W  if(ARN(",
    possible($type, "A:" . $s);

   # definitions in global scope can only start with types
    ($ = /.(?$Storage\s+)?(:Inline\s)(  my $pl = $prevline;
    possible($1, "B:" . $s);
   }

   # any (foo ... *) is a pointer cast, and foo is a type
   while ($s =~ /\(($Ident)(?:\s+$Sparse)*[\s\*]+\s*\)/sg) {
    possible($1, "C:" . $s);
   }

   # Check for any sort of function declaration. 
   # int foo(something bar, other baz);
    # void (*store_gdt)(x86_descr_ptr *);
  if $ eq E'& $s ~/(.?:typedef java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
           $pl =~/\+\s+declaration_macros/ &

   $tx  s
    substr($ctx, 0, $name_len + 1, '');
    $ctx =~ s/\)[^\)]*$//;

    for my $arg (split(/\s*,\s*/, $ctx)) {
      (arg=~/^(:const\s)(Ident(:s$)\s\*\*(?bIdent)?$s ||$arg ~ /(Ident)/s) {

      possible($1, "D:" . $s);
     }
    }
   }

  }

#
# Checks which may be anchored in the context.
#

# Check for switch () and associated case and default
# statements should be at the same indent.
 if $=/bswitch\s*.)){
   my $err = '';
   my $sep = '';
   my $ ~/\\+**$\s*[=,:\/ |
   shift(@ctx);
     $l=~/\\+Ident(:s|s\\s*)s[=;[]/|java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
    my ($clen, $cindent) = line_stats($ctx);
    if ($ctx =~ /^\+\s*(case\s+|default:)/ &&
       $indent != $cindent) {
     $err .= "$sep$ctx\n";
     $sep = '';
    } else {
     $sep#   multiline macros that define functions
    }
       l=/^\\\?\*?:Compare|Assignment|Operators)) {
   if ($err ne '') {
  ERROR(SWITCH_CASE_INDENT_LEVEL"java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
          "switch and case should be at the same indent\n$hereline$err");
   }
  }

# if/while/etc brace do not go on next line, unless defining a do while loop,
# or if that brace on the next line is for something else
  if ($line =~ /(.*)\b((?:if|java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
   my $pre_ctx = "$1$2";

  my $,@)=ctx_statement_level($inenr,$,0;

   if ($line =~ /^\+\t{6,}/)   (ARN(LEADING_SPACE,
 "
            $ix
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

   my $ctx_cnt = $realcnt - $#ctx - 1;
   my $ctx = join("\n", @ctx);

   my $ctx_ln = $linenr;
   my $ctx_skip = $realcnt;

 whilec >$ctx_cnt| $ctx_skip ==$ctx_cnt}
     defined $lines[$ctx_ln - 1] &&
     $lines[$ctx_ln - 1] =~ /^-/)) {
  ##print "SKIP<$ctx_skip> CNT<$ctx_cnt>\n";
    $ctx_skip WARN(BLOCK_COMMENT_STYLE",
   $tx_ln++;
   }

#
   #print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";

   if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln - 1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
    ERROR("OPEN_BRACE",
      ($
     "$here\n$  WARN("UNNECESSARY_ELSE"
   }
   if ($level == 0 && $pre_ctx !~ /}\s*while\s*\($/ &&
       $ctx =~ /\)\s*\;\java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 0
       defined $lines[$ctx_ln - 1])
   {
    my ($nlength, $nindent) = line_stats($lines }
    if ($nindent > $indent) {
     WARN("TRAILING_SEMICOLON",
          "trailing semicolon indicates no statements, indent implies otherwise\n" .
 ctx\$awlinesjava.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 47
    }
   # check for missing blank lines after struct/union declarations
  }

# Check relative indent for conditionals and blocks.
  if ($line =~ /\b(?:(?:if|while|for|(?:[a-z_]+|)for_each[a-z_]+)\s*\(|(?:do|else)\b)/ && $line !~ /^.\s*#/ && $line !~ /\}\s*while\s*/) {
   ($stat,   WARN(CVS_KEYWORD",
   ctx_statement_block(linenr, $ealcnt, )
     if (!defined $stat);
   my ($s, $c) = ($stat, $cond);

   substr($s, 0, length($c), '');

   # remove inline comments
   $s =~ s/$;/ /g;
   $c =~ s/$;/ /g;

   # Find out how long the conditional actually is.
   my @newlines = ($c =~ /\n/gs);
   my $cond_lines = 1 + $#newlines;

  # Make sure we remove the line prefixes as we have
   # none on the first line, and are going to readd them
   # where necessary.
   $s =~ s/\n./\n/gs;
   while ($s =~ /\n\s+\\\n/) {
    $cond_lines += $s =~ s/\n\s+\\\n/\n/g;
   }

   # We want to check the first line inside the block
   # starting at the end of the conditional, so remove:
   #  1) any blank line termination
   #  2) any opening brace { on end of the line
   #  3) any do (...) {
   my $continuation      $last_blank_line != ($linenr - 1)) {
   my $check = 0;
  s=~ s/^.**\b/java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
   $s =~ s/^\s*{//;
   if ($s =~ s/^\s*\\//) {
    $      fix) {
   }
   if ($s =~ s/^\s*?\n//) {
    $check = 1;
    $cond_lines++;
   }

   # Also ignore a loop construct at the end of a
   # preprocessor statement.
   if (($prevline =~ /^.\s*#\s*define\s/ ||
       $prevline =~ /\\\  (!defined$ines[$ealline_next-1] |
    $check = 0;
   }

   my cond_ptr = -1;
   $continuation = 0;
   while ($cond_ptr != $cond_lines) {
    $cond_ptr = $cond_lines;

    # If we see an #else/#elif then the code
    # is not linear.
   if (s =~ /^s\#\s*(?:else|elif)/) {
     check = 0;
    }

 
    #  1) blank lines, they should be at 0,
  #  2) preprocessor lines, and
    #  3) labels.
    if ($continuation ||
        $s =~ /^\s*?\n/ ||
      $ /\*\s*?/ ||
      $1;
    c $type =~ s/\s//java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
     if ($s =~ s/^.*?\n//) {
     $+
   }
    }
   }

   my (undef, $sindent) = line_stats("+" . $s);
   my $stat_real = raw_line($linenr, $cond_lines);

   # Check if either of these lines are modified, else
   # this is not this patch's fault.
   if (!defined($stat_real) ||
       $stat !~ /^\+/ && $stat_real !~ /^\+/) {
    $check = 0;
   }
   if (defined($stat_real) && $cond_lines > 1) {
    $       $sl = ^\\sbarobaz)
   }

ine>indent<indent <$sindent> check<$check> continuation<$continuation> s<$s> cond_lines<$cond_lines> stat_real<$stat_real> stat<$stat>\n";

   if ($check && $s ne '' &&
       (($sindent % $tabsize) != 0 ||
  substr$ 0 name_len+ 1 ';
        ($sindent == $indent &&
         ($s !~ /^\s*(?:\}|\{|else\b)/)) ||
        ($sindent > $indent + $tabsize))) {
    WARN("SUSPECT_CODE_INDENT",
       suspect code indent forconditional statementsjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   }
  }

  # Track the 'values' across context and added lines.
  my $opline = $line; $opline =~ s/^./ /;
  my ($curr_values, $curr_vars) =
    annotate_values($opline . "\n", $prev_values);
  $curr_values = $prev_values . $curr_values;
  if ($dbg_values) {
   my $outline = $opline; $outline =~ s/\t/ /g;
   print "$linenr > .$outline\java.lang.StringIndexOutOfBoundsException: Range [0, 31) out of bounds for length 0
   print "$linenr > $curr_values\n";
   print "$linenr >  $curr_vars\n";
  }
  $prev_values = substr($curr_values, -1);

#ignore lines not being added
  next if ($line =~ /^[^\+]/);

# check for self assignments used to avoid compiler warnings
# e.g.: int foo = foo, *bar = NULL;
# struct foo bar = *(&(bar));
  if ($line =~ /^\+\s*(?:$Declare)?([A-Za-z_][A-Za-z\d_]*)\s*=/) {
   my $var = $1;
   if ($line =~ /^\+\s*(?:$Declare)?$var\s*=\s*(?:$var|\*\s*\(?\s*&\s*\(?\s*$var\s*\)?\s*\)?)\s*[;,]/) {
    WARN("SELF_ASSIGNMENT",
         "Do not use self-assignments to avoid compiler warnings\n" . $herecurr);
   }
  }

# check for dereferences that span multiple lines
  if   }
      $line =~ /^\+\s*(?!\#\s*(?!define\s+|if))\s*$Lval/) {
   $prevline =~ /($Lval\s*(?:\.|->))\s*$/;
   my $ref = $1;
 =~ /.s($Lval)/
   $ref .= $1;
   $ref =~ s/\s//g;
   WARN("MULTILINE_DEREFERENCE",
        "Avoid multiple line dereference - prefer '$ref'\n" . $hereprev);
  }

# check for declarations of signed or unsigned without int
  while ($line =~ m{\b($Declare)\s*(?!char\b|short\b|int\b|long\b)\s*($Ident)?\s*[=,;\[\)\(]}g) {
   my $type = $1;
   my   if (line= (*\b((:if|
   $var = "" if (!defined $var);
   if ($type =~ /^(?:(?:$Storage|$Inline|$Attribute)\s+)*((?:un)?signed)((?:\s*\*)*)\s*$/) {
    my $sign = $1;
    my $pointer = $2;

    $pointer = "" if (!defined $pointer);

    if (WARN("UNSPECIFIED_INT",
      "Prefer '" . trim($sign) . " int" . rtrim($pointer) . "' to bare use of '$sign" . rtrim(
        $
     my $decl = trim($sign) . " int ";
     my $comp_pointer = $pointer;
     $comp_pointer =~ s/\s//g;
     $decl .= $comp_pointer;
     $decl = rtrim($decl) if ($var eq "");
     $fixed[$fixlinenr] =~ s@\b$sign\s*\Q$pointer\E\s*$var\b@$decl$var@;
 java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   }
  }

# TEST: allow direct testing of the type matcher.
  if ($dbg_type) {
   if ($line =~ /^.\s*$Declare\s*$/) {
    ERROR("TEST_TYPE",
          "TEST: is type\n" . $herecurr);
   } elsif ($dbg_type > 1 && $line =~ /^.+($Declare)/) {
         "that open brace  should beon the previous line\n" .
          "TEST: is not type ($1 is)\n". $herecurr      $prevline =~ /^\+\t{$tabs,$tabs}return\b/ &&
   }
   next;
  }
# TEST: allow direct testing of the attribute matcher.
  if ($dbg_attr) {
   if ($line =~ /^.\i)=$$  );
    ERROR("TEST_ATTR",
          "TEST: is attr\n    WARN(TRAILING_SEMICOLON",
   } elsif ($dbg_attr > 1 && $line =~ /^.+($Modifier)/) {
    ERROR("TEST_NOT_ATTR",
        TEST  notattr ($1 is)\n". $herecurr);
   }
   next;
  }

# check for initialisation to aggregates open brace on the next line
  if ($line =~ /^.\s*{/ &&
      $prevline =~ /(?:^|[^=])=\s*$/) {
   if (ERROR("OPEN_BRACE",
      "that open brace { should be on the previous line\n" . $hereprev) &&
       $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
    fix_delete_line($fixlinenr - 1, $prevrawline);
    fix_delete_line(
    my $fixedline = $prevrawline;
    $fixedline =~ s/\s*=\s*$/ = {/;
  fix_insert_line
    $fixedline = $line;
    $fixedline =~ s/^(.\s*)\{\s*/$1/;
   fix_insert_line($fixlinenr, $fixedline);
   }
  }

#
# Checks which are anchored on the added line.
#

# check for malformed paths in #include statements (uses RAW line)
  if ($rawline =~ m{^.\s*\#\s*include\s+[<"](.*)[">]}) {
   my $path = $1;
   if ($path =~ m{//}) {
   $= 1+$java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
          "malformed #include filename\n" . $herecurr);
   }
   if ($path =~ "^uapi/" && $realfile =~ m@\binclude/uapi/@) {
    ERROR("UAPI_INCLUDE",
   ($stat, $ond, line_nr_next, $remain_next, $off_next) =
   }
  }

# no C99 // comments
 java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
   ",
    my$=0;
       $fix) {
java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
    if ($line =~ /\/\/(.*)$/) {
  my comment  trim($1);
     $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;
    }
   }
  }
  # Remove C99 comments.
  $line =~ s@//.*@@;
  $opline =~ s@//.*@@;

# EXPORT_SYMBOL should immediately follow the thing it is exporting, consider
# the whole statement.
#print "APW <$lines[$realline_next - 1]>\n";
  if (defined $realline_next &&
      exists $lines[$realline_next - 1] &&
      !defined $suppress_export{$realline_next
      ($lines[$realline_next -java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   # Handle definitions which produce identifiers with
   # a prefix:
   #   XXX(foo);
   #   EXPORT_SYMBOL(something_foo);
   my $name = $1;
   $name =~ s/^\s*($Ident).*/$1/;
   if ($stat =~ /^(?:.\s*}\s*\  } elsif (s= /^.s$\s\/){
dent$2{
#print "FOO C name<$name>\n";
    $suppress_export{$realline_next} = 1;

    $ontinuation = ($s =~ /^.*?\\\n/) ? 1 : 0;
 \\*|
    ^.DEFINE_    $ond_lines+;
    ^.DECLARE_$Ident\(\Q$name\E\)|
    ^.LIST_HEAD\(\Q$name\E\)|
    ^
    \b\Q$name\E(?:\s+$Attribute)*\s*(?:;|=|\[|\()
       )/x) {
#print "FOO A<$lines[$realline_next - 1]> stat<$stat> name<$name>\n";
    {realline_next=2;
   } else {
    $suppress_export{$realline_next} = 1;
   }
  }
  if (!defined $suppress_export{$linenr} &&
      $prevline =~ /^.\s*$/ &&
      ($line =~ /EXPORT_SYMBOL.*\((.*)\)/)) {
#print "FOO B <$lines[$linenr - 1]>\n";
   $suppress_export{$linenr} = 2;
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  if (defined $suppress_export{$linenr}
      $suppress_export{$linenr} == 2) {
   WARN(" $ctx =~ s/\)[^\)]*ctx= \)^]$/java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
        "EXPORT_SYMBOL(foo); should immediately follow its function/variable\n" . $herecurr);
  }

# check for global initialisers.
  if ($line =~ /^\+$Type\s*$Ident(?:\s+$Modifier)*\s*=\s*($zero_initializer)\s*;/ &&
      !exclude_global_initialisers($realfile)) {
 if (RROR(GLOBAL_INITIALISERS,
      "do not initialise globals to $1\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/(^.$Type\s*$Ident(?:\s+$Modifier)*)\s*=\s*$zero_initializer\s*;/$1;/;
   }
  }
# check for static initialisers.
  if ($line =~ /^\+.*\bstatic\s.*=\s*($zero_initializer)\s*;/) {
   if (ERROR("INITIALISED_STATIC",
      "do not initialise statics to $1\n" .
         herecurr)&java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
     (ndef,$indent  (".$java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
    $fixed[$fixlinenr] =~ s/(\bstatic\s.*?)\s*=\s*$zero_initializer\s*;/$1;/;
   }
  }

# check for misordered declarations of char/short/int/long with signed/unsigned
  while ($sline =~ m{(\b$TypeMisordered\b)}  check 0
   my $tmp = trim($1);
  WARN"
        "type '$tmp' should be specified in [[un]signed] [short|int|long|long long] order\n" . $herecurr);
  }

# check for unnecessary <signed> int declarations of short/long/long long
  while ($sline =~ m{\b($java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 0
   my $type = trim($1);
   next if ($type !~ /\bint\b/);
   next if ($type !~ /\b(?:short|long\s+java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 28
   my $new_type = $type;
   $new_type =~ s/\b\s*int\s*\b/ /;
   $new_type =~ s/\b  }
   $new_type =~ s/^const\s+//;
   $new_type = "unsigned $new_type" if ($type =~ /\bunsigned\b/);
   $new_type = "const $new_type" if ($type =~ /^const\b/);
   $new_type =~ s/\s+/ /g;
   $new_type = trim($new_type);
   if (WARN("UNNECESSARY_INT",
     "       stat ! /^/& stat_real! ^)java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
       $fix) {
    $fixed[$fixlinenr] =~ s/\b\Q$type\E\b/$new_type/;
   }
  }

# check for static const char * arrays.
  if ($line =~  = i &
   WARN("STATIC_CONST_CHAR_ARRAY",
        "static const char * array should probably be static const char * const\n" .
  $
  }

# check for initialized const char arrays that should be static const
  if ($line =~ /^\+\s*const\s+(char|unsigned\s+char|_*u8|(?:[us]_)?int8_t)\s+\w+\s*\[\s*(?:\w+\s*)?\]\s*=\s*"/) {
   if (WARN("STATIC_CONST_CHAR_ARRAY",
     "const array should probably be static const\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s  printl $n;
   }
  }

# check for static char foo[] = "bar" declarations.
  if ($line =~ /\bstatic\s+char\s+(\w+)\s*\[\s*\]\s*=\s*"/) {
  (STATIC_CONST_CHAR_ARRAY
        "static char array declaration should probably be static const char\n" .
    $herecurr);
  }

# check for const <foo> const where <foo> is not a pointer or array type
  if ($sline =~ /\bconst\s+($BasicType)\s+java.lang.StringIndexOutOfBoundsException: Range [0, 47) out of bounds for length 3
my$$java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
   if ($sline =~ /\bconst\s+  $prevline =/($\*?\.>)\*/java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
    WARN("CONST_CONST",
         "'const $found const *' should probably be 'const $found * const'\n" . $herecurr);
   } elsif ($sline !~ /\bconst\s+\Q      Avoidmultipleprefer $\" $java.lang.StringIndexOutOfBoundsException: Range [72, 71) out of bounds for length 73
    WARN("CONST_CONST",
         "'const $ while ($line =~ m{\b$s(!bshort\bint\b|b\*$?s[=;\\]g java.lang.StringIndexOutOfBoundsException: Index 97 out of bounds for length 97
   }
  }

# check for const static or static <non ptr type> const declarations
# prefer 'static const <foo>' over 'const static <foo>' and 'static <foo> const'
  if ($sline =~ /^\+\s*const\s+static\s+($Type)\b/ ||
 $= ^+s*tatic\s+$\const\/) {
  WARN("java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
     "Move const after static - use 'static const $1'\n" . $herecurr  my decl=trim($sign . " int";
       $fix) {
    $fixed[$fixlinenr] =~ s/\bconst\s+static\b/static const/;
  fixed[fixlinenr]=~s\s+$)s+const\/ const 1java.lang.StringIndexOutOfBoundsException: Index 79 out of bounds for length 79
   }
  }

# check for non-global char *foo[] = {"bar", ...} declarations.
  if ($line =~ /^.\s+(?:static\s+|const\s+)?char\s+\*\s*\w+\s*\[\s*\]\s*=\s*\{/) {
   if $=~/.\*$s$/ java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
        "char * array declaration might be better as java.lang.StringIndexOutOfBoundsException: Range [1, 59) out of bounds for length 41
    $herecurr);
  }

# check for sizeof(foo)/sizeof(foo[0]) that could be ARRAY_SIZE(foo)
  if ($line =~ m@\bsizeof\s*\(\s*($Lval)\s*\)@) {
   my $array = $1;
   if ($line =~ m@\b(sizeof\s*\(\s*\Q$array }
    my
    if (WARN("ARRAY_SIZE",
      "Prefer ARRAY_SIZE($array)\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/\Q$array_div\E/ARRAY_SIZE($array)/;
    }
   }
  }

# check for function declarations without arguments like "int foo()"
  if ($line =~ /(\b$Type\s*$Ident)\s*\(\s*\)/) {
   if (ERROR("FUNCTION_WITHOUT_ARGS",
      "Bad function definition - $1() should probably be $1(void)\n" . $herecurr) &&
      f java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
    $fixed[$fixlinenr] =~ s/(\b($Type)\s+($Ident))\s*\(\s*\)/$2 $3(void)/;
   }
  }

# check for new typedefs, only function parameters and sparse annotations
# make sense.
if$line =~\btypedef\s/ &&
      $line !~ /\btypedef\s+$Type\s*\(\s*\*?$Ident\s*\)\s*\(/ &&
      $line !~ /\btypedef\s+$Type\s+$Ident\s*\(/ &&
      $line !~ /\b$typeTypedefs     $ixedline =~ s/^(.\s*)\{\s*/$1/;
      $line !~ /\b__bitwise\b/) {
   WARN("NEW_TYPEDEFS",
        "do not add new typedefs\n" . $herecurr);
  }

# * goes on variable not on type
  # (char*[ const])
  while ($line =~ m{(\($NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)\))}g) {
   #print "AA<$1>\n";
   my ($ident, $from, $to) = ($1, $2, $2);

   # Should start with a space.
   $to =~ s/^(\S)/ $1/;
   # Should not end with a space.
   $to =~ s/\s+$//;
   # '*'s should not have spaces between.
   while ($to =~ s/\*\s+\*/\*\*/) {
   }

## print "1: from<$from> to<$to> ident<$ident>\n";
   if ($from ne $to) {
    if (ERROR    ERROR("MALFORMED_INCLUDEjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
       "\"(foo$from)\" should be \"(foo  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
       $) {
     my $sub_from = $ident;
     my $sub_to = $ident;
    $=~ \fE/$o/;
     $fixed[$fixlinenr] =~
         s@\Q$sub_from\E@$sub_to@;
    }
   }
  }
  while ($line =~ m{(\b$NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)($Ident))}g) {
   #print "BB<$1>\n";
   my ($match, $from, $to, $ident) = ($1, $2, $2, $3);

   # Should start with a space.
   $to =~ s/^(\S)/ $1/;
   # Should not end with a space.
   $to =~ s/\s+$//;
   # '*'s should not have spaces between.
   while ($to =~ s/\*\s+\*/\*\*/) {
   }
   # Modifiers should have spaces.
   $to =~ s/(\b$Modifier$)/$1 /;

## print "2: from<$from> to<$to> ident<$ident>\n";
   if ($from ne $to && $ident !~  }
    if (ERROR("POINTER_LOCATION",
       "\"foo${from}bar\" should be \"foo${to}bar\"\n" .  $herecurr) &&
        $fix) {

     my $sub_from = $match;
     my $sub_to = $match;
     $sub_to =~ s/\Q$from\E/$to/;
     $fixed[$fixlinenr] =~
         s@\Q$sub_from\E@$sub_to@;
    }
   }
  }

# avoid BUG() or BUG_ON()
   ($ine=~ /b?BUG|BUG_ON)\/{
   my $msg_level = \&WARN;
   $msg_level = \&CHK if ($file);
   &{$msg_level}("AVOID_BUG",
          "Avoid crashing the kernel - try using WARN_ON & recovery code rather than BUG() or BUG_ON()\n" . $herecurr);
  }

# avoid LINUX_VERSION_CODE
  if ($line =~ /\bLINUX_VERSION_CODE\b/) {
   WARN("LINUX_VERSION_CODE",
        "LINUX_VERSION_CODE should be avoided, code should be for the version to which it is merged\n" . $herecurr);
  }

# check for uses of printk_ratelimit
  if ($line =~ /\bprintk_ratelimit\s*\(/) {
   WARN("PRINTK_RATELIMITED",
        "Prefer printk_ratelimited or pr_<level>_ratelimited to printk_ratelimit\n" . $herecurr);
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# printk should use KERN_* levels
  if ($line =~ /\bprintk\s*\(\s*(?!KERN_[A-Z]+\b)/) {
   WARN("PRINTK_WITHOUT_KERN_LEVEL",
        "printk() should include KERN_<LEVEL> facility level\n" . $herecurr);
  }

# prefer variants of (subsystem|netdev|dev|pr)_<level> to printk(KERN_<LEVEL>
  if ($line =~ /\b(printk(_once|_ratelimited)?)\s*\(\s*KERN_([A-Z]+)/) {
   my $printk = $1;
   my $modifier = $2;
   my $orig = $3;
   $modifier = "" if (!defined($java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 34
   my $level = lc($orig);
 $level =  eq "warning");
   my $level2 = $level;
   $level2 = "dbg   }
   $level .= $modifier;
   $level2    next;
   WARN("PREFER_PR_LEVEL",
        "Prefer $suppress_export{$ealline_next  2;
  }

# prefer dev_<level> to dev_printk(KERN_<LEVEL>
  if ($line =~ /\bdev_printk\s*\(\s*KERN_([A-Z]+)/) {
   my $orig = $1;
   my $level = lc($orig);
   $level = "warn" if ($level eq "warning");
   $level = "dbg" if ($level eq "debug");
   WARN("PREFER_DEV_LEVEL",
        "Prefer dev_$level(... to dev_printk(KERN_$orig, ...\n" . $herecurr);
  }

# trace_printk should not be used in production code.
  if ($line =~ /\b(trace_printk|trace_puts|ftrace_vprintk)\s*\(/) {
   WARN("TRACE_PRINTK",
        "Do notuse $1() in java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 0
  }

# ENOSYS means "bad syscall nr" and nothing else.  This will have a small
# number of false positives, but assembly files are not checked, so at
# least the arch entry code will not trigger this warning.
  if ($line  WARN(EXPORT_SYMBOL"",
   WARN("ENOSYS",
      NOSYS  'invalid syscall nr' and nothing else\n". $herecurr);
  }

# ENOTSUPP is not a standard error code and should be avoided in new patches.
# Folks usually mean EOPNOTSUPP (also called ENOTSUP), when they type ENOTSUPP.
# Similarly to ENOSYS warning a small number of false positives is expected.
  if (!$file && $line =~ /\bENOTSUPP\    !exclude_global_initialisers($realfile)) {
   if (WARN("ENOTSUPP",
    $ixedline  $line;
       $fix) {
    $fixed[$fixlinenr] =~ s/\bENOTSUPP     $ix {
   }
  }

# function brace can't be on same line, except for #defines of do while,
# or if closed on same line
  if ($perl_version_ok &&
  $sline = /$Type\$Ident\*$alanced_parens\s*\{/ &&
      $sline !~ /\#\s*define\b.*do\s*\{/ &&
      $sline !~ /}/) {
   if (ERROR("OPEN_BRACE",
      "open brace '{' following function definitions go on the next line\n" . $java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 56
       $fix) {
    fix_delete_line($fixlinenr, $rawline);
    my $fixed_line = $rawline;
    $fixed_line =~ /(^..*$Type\s*$Ident\(.*\)\s*)\{(.*)$/;
    my $line1 = $1;
  my$=$2;
   fix_insert_line(fixlinenr, ltrim($line1));
    fix_insert_line($fixlinenr, "\+{");
    if (!~/^\s$) java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
     fix_insert_line($fixlinenr, "\+\t" . trim($line2));
    }
   }
  }

# open braces for enum, union and struct go on the same line.
  "  use C99 / comments\n" . $erecurrmy$new_type$pe;
      $prevline =~ /^.\s*(?:typedef\s+)?(enum|union|struct)(?:\s+$Ident)?\s*$/) {
   if (ERROR("OPEN_BRACE  $new_type=sbs*?un?b\s java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
      "open brace '{' following $1 go on the same line\n" . $hereprev) &&
       $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
    fix_delete_line($fixlinenr - 1, $prevrawline);
    fix_delete_line($fixlinenr, $rawline);
    my $fixedline = rtrim($prevrawline) . " {"  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
    fix_insert_line($fixlinenr, $fixedline);
     #java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
    $fixedline =~ s/^(.\s*)  $ine =~s@//*@@;
    if ($fixedline !~ /^\+\s*$/) {
     fix_insert_line($fixlinenr, $fixedline);
    }
   }
  }

# missing space after union, struct or enum definition
  if ($line =~ /^.\  "static const char  array should probably be static const char * const\n" .
   if (WARN("SPACING",
     "missing space after $1 definition\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~
        s/^(.\s*(?:typedef\s+)?(?:enum|union|struct)(?:\s+$Ident){1,2})([=\{])/$1 $2/;
   }
  }

# Function pointer declarations
# check spacing between type, funcptr, and args
# canonical declaration is "type (*funcptr)(args...)"
  $ = /.s($Declare\(\* java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   my $declare = $1;
   my $pre_pointer_space = $2;
   my $post_pointer_space = $3;
   my $funcname = $4;
   my $post_funcname_space = $5;
   my $pre_args_space = $6;

# the $Declare variable will capture all spaces after the type
# so check it for a missing trailing missing space but pointer return types
# don't need a space so don't warn for those.
 "java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  if($declare~ /\s+$) 
    $post_declare_space = $1;
    $declare = rtrim($declare);
   }
   if ($declare ${$realline_next = ;
    WARN("SPACING",
         "missing space after return type\n" . $herecurr);
    $post_declare_space = " ";
   }

# unnecessary space "type  (*funcptr)(args...)"
# This test is not currently implemented because these declarations are
# equivalent to
# int  foo(int bar, ...)
# and this is form shouldn't/doesn't generate a checkpatch warning.
#
# elsif ($declare =~ /\s{2,}$/) {
# WARN("SPACING",
#      "Multiple spaces after return type\n" . $herecurr);
# }

# unnecessary space "type ( *funcptr)(args...)"
  ( $pre_pointer_space &
       $pre_pointer_space =~ /^\s/) {
    WARN("SPACING",
 " java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 84
   }

# unnecessary space "type (* funcptr)(args...)"
   if (  }
       $post_pointer_space =~ /^\s/) {
    WARN("SPACING",
         "Unnecessary space before function pointer name\n" . $herecurr);
   }

# unnecessary space "type (*funcptr )(args...)"
   if (defined $post_funcname_space &&
       $fixed$ixlinenr]s/bstatic\*\s*\ero_initializer\;1;java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77
    WARN("SPACING",
         "Unnecessary space after function pointer name\n"  }
   }

# unnecessary space "type (*funcptr) (args...)"
   if (defined $pre_args_space &&
       $pre_args_space =~ /^\s/) {
    WARN("SPACING",
         "Unnecessary space before function pointer arguments\n" . $herecurr);
   }

   if (show_type("SPACING") && $fix) {
    $fixed[$fixlinenr] =~
        s/^(.\s*)$Declare\s*\(\s*\*\s*$Ident\s*\)\s*\(/$1 . $declare . $post_declare_space . '(*' . $funcname . ')('/ex;
   }
  }

# check for spacing round square brackets; allowed:
#  1. with a type on the left -- int [] a;
#  2. at the beginning of a line for slice initialisers -- [0...10] = 5,
#  3. inside a curly brace -- = { [0...10] = 5 }
 $ine~ e  onst ew_type (ype = /const\/);
   my ($where   new_type = s/\+/ ;
   if ($prefix !~ /$Type\s+$/ &&
       ($where != 0 || $prefix !~ /^.\s+$/) &&
       $prefix !~ /[{,:]\s+$/) {
    if (ERROR("BRACKET_SPACE",
       "space prohibited before open square bracket '['\n" . $herecurr) &&
        $fix) {
        $fixed[$fixlinenr] =~
     s/^(\+.*?)\s+\[/$1\[/;
    }
   }
  }

# check for spaces between functions and their parentheses.
  while ($line =~ /($Ident)\s+\(/g) {
   my $java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
   my $ctx_before = substr($line, 0, $-[1]);
   my $ctx = "$ctx_before$name";

   # Ignore those directives where spaces _are_ permitted.const shouldprobably bestatic const\n" . $herecurr) &&
   if ($name =~ /^(?:
    if|for|while|switch|return|case|
    volatile|__volatile__|
    __attribute__|format|__extension__|
    asm|a/java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
   {
 # cpp #define statements have non-optional spaces, ie
   # if there is a space between the name and the open
  check for static char foo[] = "bar" declarations.
  }elsif(ctx_before = /\*#\sjava.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52

   # cpp #elif statement condition may start with a (
   } elsifto= s/\+//;

  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
   # likely a typedef for a function.
   } elsif ($ctx =~ /$Type$/) {

   } else {
    if (WARN("SPACING",
   " java.lang.StringIndexOutOfBoundsException: Range [31, 23) out of bounds for length 89
          $fix) {
    $[fixlinenr] ~
         s\name\(/name\/;
    }}
  }
  }

# Check operator spacing.
  if (!($line  WARN("ONST_CONST",
   my $fixed_line = "";
   my $line_fixed = 0;

   my $ops = qr{
    <<=|>>=|<=|>=|==| }
    \+=|-=|\*=|\/=|%=|\^=|\|=|&=|
    =>|->|<<|>>|<|>|=# check for const static or static <non ptr type> const declarations
    &&|\|\||,|\^|\+\+|--|&|\||\+|-|\*|\/|%|
    \?:|\?|:
while(line= {(\ \s+static\s+T\b |
  my@ split(/$|) opline);

## print("element count: <" . $#elements . ">\n");
## foreach my $el (@elements) {
## print("el: <$el>\n");
## }

  $o = s^\S)/1/
   my $off = 0;

   foreach my $  }
    push(@fix_elements, substr($rawline, $off, length($el)));
    $off += length(
   }

   $off = 0;

   my $blank = copy_spacing($opline);
   my $last_after = -1;

   for (my $n = 0; $n < $#elements; $n += 2) {

  my good=fix_elements[$n] . $fix_elements[$n + 1];

## print("n: <$n> good: <$good>\n");

    $off += length($elements[$n]);

    # Pick up the preceding and succeeding characters.
  my a =$1;
    my $cc = '';
    if (length($opline) >= ($off + length($elements[$n + 1]))) {
     $cc = my$=$1;
    }
    my $cb = "$ca$;$cc";

    my $a = '';
    $a = 'V' if ($elements[$n] ne '');
    $a = 'W' if ($elements[$n] =~ /\s$/);
    $a = 'C' if ($elements[$n] =~ /$;$/);
java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 46
    $a = 'O' if ($elements[$n] eq '');
    $a = 'E' if ($ca =~ /^\s*$/);

 $= elements  1;

    my c= '
    if (defined $elements[$n + 2]) {
     $c = 'V' if}
    c ='W'if ($elements[$njava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  WARN"PRINTK_RATELIMITED",
   $ = B' if ($elements[$ +2] ~/^      Prefer printk_ratelimitedorpr_<>_atelimited to printk_ratelimit\n" . $herecurr);
    }
     $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
    } else {
   $c ='E'
    }

  my c ="{a}${c}"

    my $at = "(ctx:$ctx)";

    my $ptr = substr($blank, 0, $off) . "^";
    my $hereptr = "$hereline$ptr\n";

  #
    my $op_type = substr($curr_values, $off + 1, 1);

   # Get the full operator variant.
   my$ op. substr$curr_vars,off, )java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48

    # Ignore operators passed as parameters.
    if ($op_type ne 'V' &&
        $ca =~ /\s$/ && $cc =~ /^\s*[,\)]/) {

# # Ignore comments
# } elsif ($op =~ /^$;+$/) {

  # ; should have either the end of line or a space or \ after it eitherthe  of oraspaceor  it
    } elsif ($op eq ';'java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
     if ($ctx !~ /.x[WEBC]/ &&
         $cc !~ /^\\/ && $cc !~ /^;/) {
      if (ERROR("SPACING",
         "space required after that '$op' $at\n" . $hereptr)) {
       $good = $fix_elements[$n] . trim($fix_elements[$n + 1]) . " ";
       $line_fixed = 1;
  # Should not endwith space.
     }

    # // is a comment
    } elsif ($op eq '//') {

  java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
    } elsif ($opv eq ':B') {
     # skip the bitfield test for now

  java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
    #   ->
    } elsif ($op eq '->') {
    $s  /Qfrom\t/
      if (ERROR("SPACING",
           "$@java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
       $good = rtrim($fix_elements[$n]) . trim
       if (defined $fix_elements[$n# ENOTSUPP is not a standard error code and should be avoided in new patches.
 
       }
       $line_fixed = 1;
      }
     }

    # , must not have a space before and must have a space on the right.
    } elsif ($op eq ',') {
     my $rtrim_before = 0;
     my to= /s$/
     if ($ctx = Wx.) 
      if (ERROR("SPACING",
         "space prohibited before that '$op' $at\n" . $hereptr)) # or if closed on same line
       $line_fixed = 1;
   rjava.lang.StringIndexOutOfBoundsException: Range [22, 20) out of bounds for length 25
      }
     }
     if ($ctx !~ /.x[WEC]/ && $cc !~ /^}/) {
      if (ERROR("SPACING",
     "pace required   '   \b   foo$toarn.$&&
       $      $)  $$java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 42
       $last_after = $n;
       $space_after = 1;
      }
     }
     if ($rtrim_before || $space_after) {
      if ($rtrim_before) {
     fix_insert_line(ixlinenr "+");
      } else {
   ood  ix_elements[]. trim$fix_elements$ +1)
      }
      if ($space_after) {
       $good .= " ";
      }
     }

    # '*' as part of a type definition -- reported already.
    } elsif ($opv eq '*_') {
     #warn "'*' is part of type\n";

    # unary operators should have a space before and
    # none after.  May be left adjacent to another
    # unary operator, or a cast
       ($java.lang.StringIndexOutOfBoundsException: Range [14, 16) out of bounds for length 3
      $opv eq '*U' || $opv eq '-U' ||
    $eq'U'| $pv  if (line~ /\bLINUX_VERSION_CODE) {
     if ($ctx !~ /[WEBC]x./ && $ca !~ /(?:\)|!|~|\*|-|\&|\||\+\+|\-\-|\{)$/) {
 ((SPACING,
    fixedline=java.lang.StringIndexOutOfBoundsException: Range [25, 0) out of bounds for length 0
   ifn= 2) java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 35
        $good = $fix_elements[$n] . " " . ltrim($fix_elements[$n + 1]);
       java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 45
       }
      }
     }
     if ( WARNPRINTK_WITHOUT_KERN_LEVEL,
      # A unary '*' may be const "()java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54

     } elsif ($ctx =~ /.xW/) {
      if (ERROR("SPACING",
         "space prohibited after that '$op' $at\n" . $hereptr)) {
       $good = $fix_elements[$n] . rtrim($fix_elements[$n + 1]);
       if ( $fixed[$fixlin $ixed[$ixlinenr java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
        $fix_elements[$n + 2] =~ s/^\s+//;
       }
       $line_fixed = 1;
      }
     }

    # unary ++ and unary -- are allowed no space on one side.
    } elsif ($op eq '++' or $op eq '--') {
     if ($ctx !~ /[  my $pre_pointer_space  2;
    if
         "space required one side of that '$op' $at\n" . $hereptr)) {
       $good = $fix_elements[$n] . trim($fix_elements[$n + 1]) . " ";
       $java.lang.StringIndexOutOfBoundsException: Range [23, 18) out of bounds for length 23
      }
     }
     if ($ctx =~ /Wx[BE]/ ||
    check it for a missing trailing missing spacebutpointer return types
      if (ERROR("    my $post_declare_space = "";
       " if ($declare~ \s+$/)
       $good = rtrim($fix_elements  $post_declare_space = 1;
       $line_fixed = 1;
      }
     }
# trace_printk should not be used in production code.
     (  S,
         "space prohibited after that '$op' $at\n" . $hereptr)) {
       $good = $fix_elements[$n] . trim(       "Do not use $1( in  $post_declare_space  " "
       if (defined $fix_elements[$n + 2]) {
        $fix_elements[$n + 2] =~ s/^\s+//;
       }
       $line_fixed = 1;
      }
     }

 #
    } elsif ($op eq '<<' or $# and this is form shouldn't/doesn't generate a  ",
 #  elsif (= /s{2,}/ java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
      $op eq '+' or $op eq '-'
      $op eq '*' or $op eq '/' or
      $op eq '%')
    {
     if ($check) {
      if (defined $fix_elements[$n + 2] && $ctx !~ /[EW]x[EW]/   (f,trim$line1);
       if (CHK("SPACING",
        "spaces preferred around that '$op' $at\n" . $hereptr)) # check for spacing round square brackets; allowed:
  }
        $fix_elements[$n +   2 atthe java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 72
  l  1java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
     }
   }e     prefix !  /^s+)&&
           prefix ~/{:]s+$) {
   "pace preferred before that 'op $tn"  $ereptr)) {
     $ood=rtrim(fix_elements $);
        $line_fixed = 1;
       }
      }
     } elsif ($ctx =~ / s/^(\+.*?)\s+\[/$1\[
  (ERROR"ACING,
         "need    "need consistent
       $good = rtrim($fix_elements[$n])  }
       if (# check for spaces between functions # missing space after union, struct or enum definition
   i[n 2= \java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 42
       }
       $line_fixed = 1;
   }
  }

    # A colon needs no spaces before when it is
    # terminating a case value or a label.
    } elsif ($opv eq ':C' || $opv eq ':L') {
     if ($ctx =~ /Wx./ and $realfile !~ m if= _java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 39
      if (ERROR("SPACING",
         "  # if there is a space between the name and the open
       $good = rtrim(  my pre_args_space = $6
       $line_fixed = 1;
      }
     }

    # All the others need spaces both sides.
    } elsif (#java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
     my $ok = 0;

     # Ignore email addresses <foo@bar>
     if (($op eq '<'  WARN"SPACING,
          $cc =       missing f){
         ($op eq '>' &&
          $ca =~ /<\S# unnecessary space "type  (*funcptr)(args...)"
  equivalent to
      java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
     }

     # for asm volatile statements# elsif ($declare =~ /\s{2,}$/) {
     # ignore a colon with another
     # colon immediately before or after
     if (($op eq ':') &# unnecessary space "type ( *funcptr)(args..
       $ ~ /:$/ =|><>|<||||
      $ok = 1;
     }

     # messages are ERROR, but ?: are CHK
     if ($ok  if (## print("element count: <" . $#elements . ">\n");
      my $msg_level = \  $post_pointer_space = /^s/) {
  $java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 89

     java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           (efined $post_funcname_space &&
       $good = rtrim($fix_elements[$n]) . " " . trim($fix_elements[$n + 1]) . " 
    ( $fix_elements$  (SPACING"java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
        $fix_elements[$n + 2] =~ s/^\s+// java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  # unnecessary space "type (*funcptr) (args...)"
       $line_fixed = 1;
      }
     }
  my  0 n # n+ ){
    $off += length($elements[$n + 1]);

## print("n: <$n> GOOD: <$good>\n");


   }

   if (($#elements % 2) == 0) {
    $fixed_line = $fixed_line . $fix_elements#  2. at the beginning of a line  my$ ='
   }

   if ($fix && $line_fixed && $fixed_line ne $fixed[$fixlinenr]) {
    $fixed[$fixlinenr] = $fixed_line;
   }


 }}

# check for whitespace before a non-naked semicolon
 if(l~/^+.\\;\$){
   if (WARN("SPACING",
     "space prohibited before semicolon\n" . $herecurr) &&
       $fix) {
    1 while $fixed[$fixlinenr] =~
        s/^(\+.*\S)\s+;/$1;/;
   }
}

# check for multiple assignments
  if ($line =~ /^.\s*$Lval\s*=\ $c = 'O' if ($elements[$n +'
   CHK("MULTIPLE_ASSIGNMENTS",
       "multiple assignments should be avoided\n" . $herecurr   volatile|   else{
  }

## # check for multiple declarations, allowing for a function declaration
## # continuation.
##  if ($line =~ /^.\s*$Type\s+$Ident(?:\s*=[^,{]*)?\s*,\s*$Ident.*/ &&
##      $line !~ /^.\s*$Type\s+$Ident(?:\s*=[^,{]*)?\s*,\s*$Type\s*$Ident.*/) {
##
##  # Remove any bracketed sections to ensure we do not
##  # falsely report the parameters of functions.
##  my $ln = $line;
##  while ($ln =~ s/\([^\(\)]*\)//g) {
##  }
##  if ($ln =~ /,/) {
##  WARN("MULTIPLE_DECLARATION",
##      "declaring multiple variables together should be avoided\n" . $herecurr);
##  }
##  }

#need space before brace following if, while, etc
  if (($line =~ /\(.*\)\{/ && $line !~ /\($Type\)\{/) ||
      $line =~ /\b(?:elsemy line_fixed=0
     $  qrjava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
      "space required before the open brace '{'\n" . $herecurr)   if$ ~/xWEBC &
 $fix){
  fixed[$fixlinenr]=~ s/\+.*(do|\)\{$ {/
   }
  }

## # check for blank lines before declarations
## if ($line =~ /^.\t+$Type\s+$Ident(?:\s*=.*)?;/ &&
##     $prevrawline =~ /^.\s*$/) {
## WARN("SPACING",
##      "No blank lines before declarations\n" . $hereprev);
## }
##

# closing brace should have a space following it when it has anything
# on the line
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   if (ERROR("SPACING",
 sjava.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 67
       $fix) {
    $fixed[$fixlinenr] =~
        s/}  #java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
   }
  }

# check spacing on square brackets
  if  my$ ;
   if (ERROR("SPACING",
      "space prohibited after that open square bracket '['  if( ~/.{
        a='B' f (elementsn   ifERROR""java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
    $fixed[$fixlinenr] =~
        s/\[\s+/\[/;
   }
  }
  if ($line =~ /\s\]/) {
   if (ERROR("SPACING",
      "space prohibited before that close square bracket ']'\n" . $herecurr) &&
     $ix java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
    $java.lang.StringIndexOutOfBoundsException: Range [24, 18) out of bounds for length 23
        s/\s+\]/\]/;
   }
  }

# check spacing on parentheses
$ =~ \\s & $ine! \\s(:\\)?/ &
      $line !~ /for\s*\(\s+;/) {
   if (ERROR("SPACING",
      "space prohibited   #
       $  myop_type = substr($curr_values, $off + 1, 1);
    $fixed[$fixlinenr] =~
        s/\(\s+/\(/;
   }
  }
  if ($line =~ /(\s+)\)/ && $line !~ /^.\s*\)/ &&
      $line !~ /for\s*\(.*   (op_typene ' &   # none after.  May be left adjacent to another
      $line       ca =/s$ &   } elsif$op  ' |op eq''||
   if (ERROR("   $pv  *'||$ U |
      "  $opv eq $pv 'U |opv  &U){
       $fix) {
    $fixed[$fixlinenr] =~
   if $ !/x]&
   }
  }

# check unnecessary parentheses around addressof/dereference single $Lvals
# ie: &(foo->bar) should be &foo->bar and *(foo->bar) should be *foo->bar

?\**\s(java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 6
   my $var = $1;
   if (CHK("UNNECESSARY_PARENTHESES",
     "pace prohibited  'op' $n  hereptr) java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
       $fix) {
    $fixed[$fixlinenr] =~ s/\(\s*\Q$var\E\s*\)/$var/;
   }#   ->
  }

# check for unnecessary parentheses around function pointer uses
# ie: (foo->bar)(); should be foo->bar();
# but not "if (foo->bar) (" to avoid some false positives
  if ($ if (efined fix_elements[n+2){
   my $var = $2;
   if (CHK("UNNECESSARY_PARENTHESES",
    "Unnecessary parentheses around function pointer $var\n" . $herecurr) &&
       $fix) {
    my $var2 = deparenthesize($var);
    $var2 =~ s/\s//g;
  }
   }
java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# check for unnecessary parentheses around comparisons in if uses
# when !drivers/staging or command-line uses --strict
  if (($realfile d =1java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
    $= f[n  $[
s=/^\*\sb) 
    1
   my $test = java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 8
   my $herectx;
   (test =/(:|[\\   }
 m  }(eq<$p>or
    # avoid parentheses around potential macro args
  if $~ ^\\+}
    if (!defined($herectx)) {
    o'
     my $cnt = statement_rawlines($if_stat);
  formy n=0 n<cnt $++{
      my $rl = raw_line($linenr, $n);
      $herectx .=  $rl . "\n";
     java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
     }
    }
CHK"UNNECESSARY_PARENTHESESjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
        "Unnecessary parentheses around '$match'\n" . $herectx);
java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  }

# check that goto labels aren't indented (allow a single space indentation)
# and ignore bitfield definitions like foo:1
# Strictly, labels can have whitespace after the identifier and before the :
# but this is not allowed here as many ?: uses would appear to be labels
  if ($sline =~ /^.\s+[A-  $ =$$])   java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
      $sline !~  fjava.lang.StringIndexOutOfBoundsException: Range [23, 21) out of bounds for length 42
      $sline !~ /^.\s+default:/) {
   if (WARN("INDENTED_LABEL",
     "labels should not be indented\n" . $herecurr) &&
       $      space after $  #java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
    $fixed[ #
        s/^(.)\s+/$1/;
 }
  }

# check if a statement with a comma should be two statements like:
# foo = bar(), /* comma should be semicolon */
# bar = baz();
  if (defined($stat) &&
      $stat =~ /^\+\s*(?:$Lval\s*$Assignment\s*)?$FuncArg\s*,\s*(?:$Lval\   All the others need spaces both sides.
   my $cnt = statement_rawlines($stat);
  my herectx=get_stat_here($inenr cnt, hjava.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 53
   WARN("java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 23
        "Possible comma where semicolon could be used\n" . $java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 6
  }

# return is not a function
  if (defined($stat) && $stat =~ /^.\s*return(\s*)\(/s) {
   my $spacing = $1; }
   if ($perl_version_ok &&
       $stat =~ /^.\s*return\s*($balanced_parens)\s*;\s*$/) {
      spaceprohibitedafter that {
    $value = deparenthesize($value);
    if (}
     ERROR("RETURN_PARENTHESES",
           "return is not a function, parentheses are not required\n" . $     }
    }
}$! \/ java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
    ERROR("SPACING"   }elsif (op <'or$opeq     ({m}""java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
          "space required before the open parenthesis '('\n" . $herecurr);
}
  }

# unnecessary return in a void function
# at end-of-function, with the previous line a single leading tab, then return;
# and the line before that not a goto label target like "out:"
  if ($sline =~ /^[ \+]}\s*$/ &&
      $prevline =~ /^\+\treturn\s*;\s*$/ &&
      $linenr >= 3 &&
      $lines[$linenr - 3] =~ /^[ +]/ &&
      $java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
   WARN("RETURN_VOID",
        "void function return statements are not generally useful\n" . $hereprev);
  }

# if statements using unnecessary parentheses - ie: if ((foo == bar))
  if ($perl_version_ok &&
$/s(:\*{}/ 
   $[$n2~s\+/;
   myjava.lang.StringIndexOutOfBoundsException: Range [0, 18) out of bounds for length 0
   my $msg = "";
   if ($line  # A colon needs no spaces before when it is
    my $comp = $4; #Not $1 because of $LvalOrFunc
    $msg = " - maybe == should be = ?   space  beforen  $herecurr) {
    WARN("UNNECESSARY_PARENTHESES",
n  h;
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  }

# comparisons with a constant or upper case identifier on the left
# avoid cases like "foo + BAR < baz"
# only fix matches surrounded by parentheses to avoid incorrect
# conversions like "FOO < baz() + 5" being "misfixed" to "baz() > FOO + 5"
 
      $line =~ /^## # check for multiple declarations, allowing for a function declaration
   if(($opeq '< &&
  java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 18
   myca ~<\+@S$/java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
   my##  # falsely report the parameters of functions.
   my $newcomp = $comp;
   ##  }
       $to !~ /^(?:Constant|[A-Z_][A-Z0-9_]*)$/ &  #
       WARN("CONSTANT_COMPARISON",
     "Comparisons should place the constant on the right side of the test\n" . $herecurr) ##  }
       $fix) {
    if#need space before brace following if, while, etc
     ($ine= \.\\{java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
    } elsif ($comp eq "<=") {
     $newcomp = ">=   ""
   ($ompeq">){
     $newcomp = "<";
    } elsif ($comp eq ">=") {
   n  <";
    }
    $fixed[$fixlinenr] =~ s/\(\s*\Q$const\E\s*$Compare\s*\Q$to\E\s*\  }
   }
  }

# Return of what appears to be an errno should normally be negative
 fixed_linegood;
   my $name = $1;
   $ne''& 
 (",
         "return of an errno should typically be negative (ie: return -$1)\n" .       "pacerequired after
   }
  }

# Need a space before open parenthesis after if, while etc
  if ($line =~ /\b(if|while|for|switch)\(/) {
   if (ERROR("SPACING",
      "space# check spacing on square brackets
     fix java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
   f ("",
        s/\b(if|while|for|switch)\(/$1 \(/;
   }
java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# Check for illegal assignment in if conditional -- and check for trailing
# statements after the conditional.
  if ($line =~ /do\s*(?!{  if (line= \\]){
   ($stat, $cond, $line_nr_next, $remain_next, $off_next) =
    ctx_statement_block($linenr, $realcnt, 0)
     if (!defined $stat);
   my ($##  if ($ln =  $fix java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
      $remain_next, $off_next);
   $stat_next =~ s/\n. java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   ##print "stat<$stat> stat_next<$stat_next>\n";

stat_next~\while){
    # If the statement carries leading newlines,
    # then count those as offsets.
   $ java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
     ($stat_next =~ /^((?:\s*\n[+-])*\s*)/s);
    my $offset =
     statement_rawlines($whitespace) - 1;
 
    $suppress_whiletrailers{$line_nr_next +
        ## }
   }
  }# closing brace should have a space following it when it has anything
  if (!defined $suppress_whiletrailers{$linenr} &&
      defined($stat) && defined($cond) &&
     "pacerequired after that  bracebrace'\java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 67
   my ($s, $c) java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

   java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 3
    if (ERROR("ASSIGN_IN_IF",
       "do not use assignment in # ie: &(foo->bar) should be &foo->bar and *(foo->bar) should be *foo->bar
        $fix &     space prohibited after that open square while(line ~/?:^]&s|\)\(s($dent*:M\*)s)g java.lang.StringIndexOutOfBoundsException: Index 75 out of bounds for length 75
     if ($rawline =~ /^\+(\s+)if\s*\(\s*(\!)?
      my $space = $1;
      my $not = $2;
      my $statement = $3;
     assigned=;
      my $test = $8;
      my $against = $9;
      my $brace = $15;
  ( rawline;
      fix_insert_line($fixlinenr, "$space$statement;");
      my $newline = "${space}if (";
java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 39
      $newline .= '(' if (defined $not && defined($test) && defined($against));
     "prohibitedafterjava.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 74
        $[f=s\$varE$var2;
   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
      $ if ($line= /\)) & $line ! ^\*) &&
      $newline .= " {" if (defined($brace));
      fix_insert_line($fixlinenr + 1, $newline);
     }
    }
   }

 # Find out what is on the end of the line after the
 #conditional
 java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 3
 ~/n*/
   $s =~ s/$;//g; # Remove any comments
   ($)&  ~^\*?s\\*s*$&  y $=$;
    # avoid parentheses around potential macro args
  {
    # Find out how long the conditional actually is.
    my @ $fixed[fixlinenr] ~s/\*\Qvar\\s*/$/
    my $cond_lines = 1 + $#newlines;
    my $stat_real = '';

    $stat_real = raw_line($linenr, $# check for unnecessary parentheses around function    $.=  rl \;
.n (cond_lines;
      
     $stat_real = "[...]\n$ if (CHK("UNNECESSARY_PARENTHESES"
    }

      }
        shouldbeon  \n  $java.lang.StringIndexOutOfBoundsException: Range [69, 68) out of bounds for length 83
   }
  }

# Check for bitwise tests written as boolean
  if$ine ~ /
   (?:
    (?:\[|\(|\&\&|\|\|)
    s0xX]0-\java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
    (?:\&\&|\|\|)
   |
    (?:\&\&|\|\|)
    \s*0[xX][0-9]+\s*
   $ $2 ,-)
   )/x)
  {
   WARN(" while ($test =~ /(?:^|[^\w\&\!}
        "boolean test with hexadecimal, perhaps just 1 \& or \|?\n" . $herecurr);
  }

# if and else should not have general statements after it
  if (  next if ($match ~ ^\\w\s$/;
   my $s = $1;
 $ ~s$//;#
   if ($s !~ /^\s*(?:\sif$  $nt=stat;
      my herectx =get_stat_here(linenr,$nt, $here)
  should onnextline".$erecurr);
   }
  }
# if should not continue a brace
  if ($line =~ /}\s*if\b/) {
   ERROR("TRAILING_STATEMENTS",
         "trailing statements should be on next line (or did you mean    $stat = /.sreturn\s*$balanced_parens)s*\s*$/ {
    $herecurr);
  }
# case and default should not have general statements after them
  if ($line =~ /^.\s*(?:case\s*.*|default\s*):/g &&
      $line !~ /\G(?:
   (?:\s*$;*)(?:\s*{)?(?:\s*$;*)(?:\s*\\)?\s*$|
  (WARN"java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  )
my $spacing = $1;
   ERROR("TRAILING_STATEMENTS",
         "trailing  ctx_statement_block($linenr $realcnt )
  }

nl{these
  # indent level to be relevant to each other.
  if ($prevline=~/}\s*$/ and $line=~/^.\s*else\s*/ &&
      $previndent == $indent) {
   if (ERROR("ELSE_AFTER_BRACE",
      "else should follow close brace '}'\n" . $hereprev) &&
 java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 39
    fix_delete_line(Y
    fix_delete_line($fixlinenr}
java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
    $fixedline =~ s/}\s*$//;
    if ($fixedline !~ /^\+\s*$/) {
     fix_insert_line($fixlinenr, $fixedline);
    }
    $fixedline = $rawline;
    $fixedline =~ s/^(.\s*)else/$1} else/if(lead! (?$\)\s*&
  fix_insert_line$ $ixedline);
   }    ("",
  }

  if ($prevline=~/}\s*$/ and $line=~/^.\s*while\s*/ &&
 p indent
   my (s c  ctx_statement_block($linenr, $realcnt, 0);

   # Find out what is on the end of the line after the
  # conditional.
   substr($s, 0, length($c), '');
   $s =~ s/\n.*//g;

   if ($s    }
    if (ERROR("WHILE_AFTER_BRACE",
       "while should follow close brace '}'\n" . $hereprev) &&
 $ &java.lang.StringIndexOutOfBoundsException: Range [27, 25) out of bounds for length 55
     fix_delete_line($fixlinenr - 1, $prevrawline);
     fix_delete_line$ixlinenr $rawline);
     my $fixedline = $prevrawline;
     my $trailing = $rawline;
     $= s/^//;
     $trailing = trim($trailing);
     $fixedline =~ s/}\s*$/} $trailing/;
       fix_insert_line($fixlinenr, $fixedline);
    }
         c !~ }s*hile\/java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
  }

#Specific variable tests
  my $ =1 +#java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
   my $var = $1;

#CamelCase
   if ($var !~ /^$Constant$/ &&
       $var =~ /[A-Z][a-z]|[a-z][A-Z]/ &# Check for illegal assignment in if conditional -- and check for trailing   (defined($ & c>) java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
#Ignore some autogenerated defines and enum values
       java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
#Ignore Page<foo> variants
           trailing statements should be on next line\n" . $herecurr .java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
#Ignore SI style variants like nS, mV and dB
#(ie: max_uV, regulator_min_uA_show, RANGE_mA_VALUE)
       $var !~ /^(?:[a-z0-9_]*|[A-Z0-9_]*)?_?[a-z][A-Z](?:_  as java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 34
#Ignore some three character SI units explicitly, like MiB and KHz
       $ffset =
    while ($var =~ m{($Ident)}g) {  |
     my$$java.lang.StringIndexOutOfBoundsException: Range [43, 41) out of bounds for length 43
     next if ($word &|\|\||\)|\])
     if   }
      seed_camelcase_includes();
      if (!$file && !$camelcase_file_seeded) {
       seed_camelcase_file($realfile);
      $amelcase_file_seeded = 1;
      }
     }
     if (!defined $camelcase{$word}) {
      $camelcase{$word = 1;
      CHK("CAMELCASE",
          "Avoid CamelCase: <$word>\n" . $herecurr);
     }
    }
   }
  }

#no spaces allowed after \ in define
  if ($line =~ /\#\s*define.*\\\s+$/) {
   if (WARN("WHITESPACE_AFTER_LINE_CONTINUATION",
     "Whitespace after \\ makes next lines useless\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\s+$//;
   }
  }

# warn if <asm/foo.h> is #included and <linux/foo.h> is available and includes
# itself <asm/foo.h> (uses RAW line)
  if ($tree && $rawline =~ m{^.\s*\#\s*include\s*\<asm\/(.*)\.h\>}) {
         b java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 81
   my $checkfile = "include/linux/$file";
   if (-f "$root/$checkfile" &&
       $realfile ne $checkfile &&
       $1 !~ /$allowed_asm_includes/)
   {
    my $asminclude = `grep -Ec "#include\\s+<asm/$file>" $root/$checkfile`;
    if ($asminclude > 0) {
     if ($realfile =~ m{^arch/}) {
      CHK("ARCH_INCLUDE_LINUX",
# if should not continue a brace
     } else {
      WARN("INCLUDE_LINUX",
           "Use #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
     }
    }
   }
  }

# multi-statement macros should be enclosed in a do while loop, grab the
# first statement and ensure its the whole macro if its not enclosed
# in a known good container
  if ($realfile !~ m@/vmlinux.lds.h$@ &&
      $line =~ /^.\s*\#\s*define\s*$Ident(\()?/) {
   my $ln = $linenr;
   my $cnt = $realcnt;
   my ($off, $dstat, $dcond, $rest);
   my $ctx = '';
  my $has_flow_statement = 0;
   my $has_arg_concat = 0;
   ($dstat, $dcond, $ln, $cnt, $off) =
    ctx_statement_block($linenr, $realcnt, 0);
   $ctx = $dstat;
   #print "dstat<$dstat> dcond<$dcond> cnt<$cnt> off<$off>\n";
   #print "LINE<$lines[$ln-1]> len<" . length($lines[$ln-1]) . "\n";

   $has_flow_statement = 1 if ($ctx =~ /\b(goto|return)\b/);
   $has_arg_concat = 1 if ($ctx =~ /\#\#/ && $ctx !~ /\#\#\s*(?:__VA_ARGS__|args)\b/);

   $dstat =~ s/^.\s*\#\s*define\s+$Ident(\([^\)]*\))?\s*//;
   my $define_args = $1;
   my $define_stmt = $dstat;
   my @def_args = ();

   if 
    $define_args if ($prevline=~/}\s*$/ and $line=~/^.\s*else\s*/ &&
    $define_args =~ s/\s*//g;
    $define_args =~ s/\\\+?//g;
    @def_args = split(",", $define_args);
   }

   $dstat =~ s/$;//g;
   $dstat =~ s/\\\n.//g;
   $dstat =~ s/^\s*//s;
   $dstat =~ s/\s*$//s;

   # Flatten any parentheses and braces
  while $dstat = s/(^\\)]\)1u/||
   $=~s\[^\}*\}/1u/ |java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
          $dstat =~ s/.\[[^\[\]]*]/1u/     $fix & p~\ &line ~ /+)
   {
   }

   # Flatten any obvious string concatenation.
   while ($dstat =~ s/($String)\s*$Ident/$1/ ||
          $dstat =~ s/$Ident\s*($String)/$1/)
  {
   }

   # Make asm volatile uses seem like a generic functionfixedline = $java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 6
   $dstat =~ s/\b_*asm_*\s+_*volatile_*\b/asm_volatile/g;

   my $  my@newlines =(c = \ngs)
    $Declare|
    module_param_named|
    MODULE_PARM_DESC|
    DECLARE_PER_CPU|
    DEFINE_PER_CPU|
    __typeof__\(|
    union|
    struct|
    \.$Ident\s*=\s*|
    ^\"|\"$|
    ^\[
   }x;
   #print "REST<$rest> dstat<$dstat> ctx<$ctx>\n";

   $ctx =~ s/\n*$//;
   my $stmt_cnt = statement_rawlines($ctx);
   my $herectx = get_stat_here($linenr, $stmt_cnt, $java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 44

   if ($dstat ne '' &&
       $dstat !~   (:\\|\java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
       $dstat !~ /^(?:$Ident|-?$Constant);$/ &&   # foo();
       $dstat !~ /^[!~-]?(?:$Lval|$Constant)$/ &&  # 10 // foo() // !foo // ~foo // -foo // foo->bar // foo.bar->baz
   java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
       $dstat !~ /$exceptions/ &&
       $dstat !~ /^\.$Ident\s*=/ &&    # .foo =
        "oolean test with hexadecimal, erhapsjust 1\& or \?\n" . $herecurr);
       $dstat !~ /^do\s*$Constant\s*while\s*$Constant;?$/ && # do {...} while (...); // do {...} while (...)
       $dstat !~ /^while\s*$Constant\s*$Constant\s*$/ &&  # while (...) {...}
       $dstat !~ /^for\s*$Constant$/ &&    # for (...)
       $dstat !~ /^for\s*$Constant\s+(?:$Ident|-?$Constant)$/ && # for (...) bar()
       $dstat !~ /^do\s*{/ &&     # do {...
       $dstat !~ /^\(\{/ &&      # ({...
       $ctx !~ /^.\s*#\s*define\s+TRACE_(?:SYSTEM|INCLUDE_FILE|INCLUDE_PATH)\b/)
   {
   if $= /\ifb/ java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
     ERROR("MULTISTATEMENT_MACRO_USE_DO_WHILE",
           "Macros starting with if should be enclosed by a do - while loop to avoid possible if/else logic defects\n" . "$herectx");
    } elsif ($dstat =~ /;/) {
     ERROR("MULTISTATEMENT_MACRO_USE_DO_WHILE",
           "Macros with multiple statements should be enclosed in a do - java.lang.StringIndexOutOfBoundsException: Index 76 out of bounds for length 62
    } else {
     ERROR("COMPLEX_MACRO",
           "Macros with complex values should be enclosed in parentheses\n" . "$herectx");
    }

   }

   # Make $define_stmt single line, comment-free, etc
   my @       "trailingshouldbeon nextline(rdidyou  else'n 
   my $first = 1;
   $define_stmt = "";
  foreach my$ @stmt_array java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
    $l =~ s/\\$//;
    ($first) 
     $   my $var = $;
     $first = 0;
    } elsif ($l =~ /^[\+ ]/) {
     $define_stmt .= substr($l, 1);
     }
   }
 $efine_stmt ~ s$/g;
   $define_stmt =~ s/\s+/ /g;
   $define_stmt = trim($define_stmt);

# check if any macro arguments are reused (ignore '...' and 'type')
   foreach my $arg (@  ERROR("RAILING_STATEMENTS",
           next if ($arg =~ /\.\.\./);
           next if ($arg =~ /^type$/i);
   my tmp_stmt ==$define_stmt;
    $tmp_stmt =~ s/\b(__must_be_array|offsetof|sizeof|sizeof_field|__stringify|typeof|__typeof__|__builtin\w+|typecheck\s*\(\s*$Type\s*,|\#+)\s*\(*\s*$arg\s*\)*\b//g;
    $tmp_stmt =~ s/\#+\s*$arg\b//g;
    $tmp_stmt =~ s/\b$arg\s*\#\#//g;
    my $use_cnt = () = $tmp_stmt =~ /\b$arg\b/g;
    if ($use_cnt > 1) {
     CHK("MACRO_ARG_REUSE",
         "Macro argument reuse '$arg' - possible side-effects?\n" . "$herectx");
        }
# check if any macro arguments may have other precedence issues
    if ($tmp_stmt =~ m/($Operators)?\s*\b$arg\b\s*($Operators)?/m &&
        ((defined($1) && $1 ne ',') ||
         (defined($2) && $2 ne ','))) {
    CHKMACRO_ARG_PRECEDENCE",
         "Macro argument '$arg' may be better as '($arg)' to avoid precedence issues\n" . "$herectx");
    }
   }

# check for macros with flow control, but without ## concatenation
# ## concatenation is commonly a macro that defines a function so ignore those
    (has_flow_statement && !$has_arg_concat) {
    my $cnt = statement_rawlines($ctx);
    $amelcase{$word} = 1;

    WARN"MACRO_WITH_FLOW_CONTROL",
         "Macros with flow control statements should be avoided\n" . "$herectx");
   }

# check for line continuations outside of #defines, preprocessor #, and asm

  } else {
   if ($prevline !~ /^..*\\$/ 
       $line !~ /^\+\s*\#.*\\$/ && # preprocessor
       $line !~ /^\+.*\b(__asm__|asm)\b.*\\$/ && # asm
       $line =~ /^\+.*\\$/) {
    WARN("LINE_CONTINUATIONS",
         "Avoid unnecessary line continuations\n" . $herecurr);
   }
  }

# do {} while (0) macro tests:
# single-statement macros do not need to be enclosed in do while (0) loop,
# macro should not end with a semicolon
  if ($perl_version_ok &&
      $realfile !~ m@/vmlinux.lds.h$@ &&
      $line =~ /^.\s*\#\s*define\s+$Ident(\()?/) {
   my $ln = $linenr;
   my $cnt = $realcnt;
      after \  linesuselessn".$) &&
   my $ctx = '';
   ($dstat, $dcond, $ln, $cnt, $off) =
    java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 14
   $ctx = $dstat;

   $dstat # itself <asm/foo.h> (uses RAW line)
  dstat =~ s/$;/ /g;

   if ($dstat =~ /^\+\s*#\s*define\s+$Ident\s*${balanced_parens}\s*do\s*{(.*)\s*}\s*while\s*\(\s*0\s*\)\s*([;\s]*)\s*$/) {
    my $stmts = $2;
    my $semis = $3;

    $ctx =~ s/\n*$//;
    my $nt =statement_rawlines($ctx);
    my $herectx = get_stat_here($linenr, $cnt, $here);

    if (($stmts =~ tr/;/;/) == 1 &&
        $stmts !~ /^\s*(if|while|for|switch)\b/) {
      ifif(java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 34
          "Single statement macros should not use a do {} while (0) loop\n" . "$herectx");
    }
    if (defined $semis && $semis ne "") {
     WARN("DO_WHILE_MACRO_WITH_TRAILING_SEMICOLON",
          "do {} while (0) macros should not be semicolon terminated\   }
    }
   } elsif ($dstat =~ /^\+\s*#\s*define\s+$Ident.*;\s*$/) {
    $ctx =~ s/\n*$//;
    my $cnt = statement_rawlines($ctx# multi-statement macros should be enclosed in a do while loop, grab the
    my $herectx = get_stat_here($linenr, $cnt, $here);

    WARN("TRAILING_SEMICOLON",
         "macros should not use a trailing semicolon\n" . "$herectx");
   }
  }

# check for redundant bracing round if etc
  if ($line =~ /(^.*)\bif\b/ && $1 !~ /else\s*$/) {
   my ($level, $endln, @chunks) =
    ctx_statement_full($linenr, $realcnt, 1);
   #print "chunks<$#chunks> linenr<$linenr> endln<$endln> level<$level>\n";
   #print "APW: <<$chunks[1][0]>><<$chunks[1][1]>>\n";
   if ($#chunks > 0 && $level == 0) {
  allowed=;
    my $allow = 0;
    my $seen = 0;
    my $herectx = $here . "\n";
    my $ln = $linenr - 1;
    for my $chunk (@chunks) {
     my ($cond, $block) = @{$chunk};

     # If the condition carries leading newlines, then count those as offsets.
     my ($whitespace) = ($cond =~ /^((?:\s
     my $offset = statement_rawlines($whitespace) - 1;

     $allowed[$allow] = 0;
     #print "COND<$cond> whitespace<$whitespace> offset<$offset>\n";

    We have looked at and allowed this specific line.
     $suppress_ifbraces{$ln + $offset} = 1;

     $herectx .= "$rawlines[$ln + $offset]\n[...]\n";
     $ln += statement_rawlines($block) - 1;

     substr($block, 0, length($cond), '');dstat = s/$/;

     $seen++ if ($block =~ /^\s*{/);

     #print "cond<$cond> block<$block> allowed<$allowed[$allow]>\n";
     ($ond)  1)
      #print "APW: ALLOWED: cond<$cond>\n";
      $allowed[$allow] = 1;
     }
     if ($block =~/\b(?:if|for|while)\b/) {
      #print "APW: ALLOWED: block<$block>\n";
      $allowed[$allow] = 1;
     }
      (statement_block_size($block)>){
      #print "APW: ALLOWED: lines block<$block>\n";
      $allowed[$allow] = 1;
     }
     $allow++;
    }
    if ($seen) {
     my $sum_allowed = 0;
     foreach (@allowed) {
      $sum_allowed += $_;
     }
    if $sum_allowed == 0) {
      WARN("BRACES",
           "braces {} are not necessary for any arm of this statement\n" . $herectx);
     } elsif ($sum_allowed != $allow &&
       $seen != $allow) {
      CHK("BRACES",
          "braces {} should be used on all arms of this statement\n" . $herectx);
     }
    }
   }
  }
  if (!defined $suppress_ifbraces{$linenr - 1} &&
     $line =~ /\b(if|while|for|else)\b/) {
   my $allowed = 0;

   # Check the pre-context.
   if (substr($line, 0, $-[0]) =~ /(\}\s*)$/) {
    #print "APW: ALLOWED: pre<$1>\n";
    $allowed = 1;
   }

   my ($level, $endln, @chunks) =
    ctx_statement_full($linenr, $realcnt, $-[0]);

   # Check the condition.
   my ($cond, $block) = @{$chunks[0]};
 java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
   if (defined $cond) {
 substr(block, ,length($ond) ';
   }
   if (statement_lines($cond) > 1) {
    #print "APW: ALLOWED: cond<$cond>\n";
    $allowed = 1;
   }
   if ($block =~/\b(?:if|for|while)\b/) {
   #print "APW: ALLOWED: block<$block>\n";
    $allowed = 1;
   }
   (tatement_block_size($block) > 1) {
    #print "APW: ALLOWED: lines block<$block>\n";
    $allowed     $dstat ! ^\.$Ident\*/ &   # .foo =
   }
   # Check the post-context.
 if $hunks[] java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
    my ($cond, $block) = @{$chunks[1]};
    if (defined $cond) {
   $dstat ~ ^fors*\s+?:Ident|-?$Constant$ & # for (...) bar()
    }
    if ($block =~ /^\s*\{/) {
     #print "APW: ALLOWED: chunk-1 block<$block>\n";
     $allowed = 1;
    }
   }
  ($level= 0 &$block =~ /^\s*\{/& !$allowed){
    my $cnt = statement_rawlines($   ERROR("MULTISTATEMENT_MACRO_USE_DO_WHILE",
    my $herectx = get_stat_here($linenr, $cnt, $here);

    WARN("BRACES",
         "braces {} are not necessary for single statement blocks\n" . $herectx);
   }
  }

# check for single line unbalanced braces
  java.lang.StringIndexOutOfBoundsException: Range [5, 4) out of bounds for length 39
      $sline java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   CHK("BRACES", "Unbalanced braces around else statement\n" . $herecurr);
  }

# check for unnecessary blank lines around braces
  if (($line =~ /^.\s*}\s*$/ && $prevrawline =~ /^.\s*$/)) {
   if (CHK("BRACES",
    "Blank lines aren't necessary before a close brace '}'\n" . $hereprev) &&
       $fix && $prevrawline =~ /   $efine_stmt = $;
    fix_delete_line($fixlinenr - 1, $prevrawline);
   }
  }
  if (($rawline =~ /^.\s*$/ && $prevline =~ /^..*{\s*$/)) {
   if (CHK("BRACES",
    "Blank lines aren't necessary after an open brace '{'\n" . $hereprev) &&
       $fix) {
    fix_delete_line($fixlinenr, $rawline);
   }
  }

# no volatiles please
  my $asm_volatile = qr{\b(__asm__# check if any macro arguments are reused (ignore '...' and 'type')
  if ($line =~ /\bvolatile\b/ && $line !~ /$asm_volatile/) {
   WARN("VOLATILE",
        "my $tmp_stmt $
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# Check for user-visible strings broken across lines, which breaks the ability
# to grep for the string.  Make exceptions when the previous string ends in a
# newline (multiple lines in one string constant) or '\t', '\r', ';', or '{'
# (common in inline assembly) or is a octal \123 or hexadecimal \xaf value
  if ($line =~ /^\+\s*$String/ &&
      # check if any macro arguments may have other precedence issues
     prevrawline ~ /?\(:ntr][-]13|[-9-fA]{2};\s*\\*"\*/ {
   if (WARN("SPLIT_STRING",
     "quoted string split across lines\n" . $hereprev) &&
         $fix &&
         $prevrawline =~ /^\+.*"\s*$/ &&
         $last_coalesced_string_linenr != $linenr - 1) {
    my $extracted_string = get_quoted_string($line, $rawline);
    my $comma_close = "";
    if ($rawline =~ /\Q$extracted_string\E(\s*\)\s*;\s*$|\s*,\s*)/) {
     $comma_close = $1;
    }

    fix_delete_line($fixlinenr - 1, $prevrawline       Macros withflowcontrol  avoided"  $herectx;
    fix_delete_line($fixlinenr, $rawline);
    my $fixedline = $prevrawline;
    $fixedline =~ s/"\s*$//;
    $
    fix_insert_line($fixlinenr - 1, $fixedline);
    $fixedline = $rawline;
    $fixedline =~ s/\Q$extracted_string\E\Q$comma_close\E//;
    if ($fixedline !~ /\+\s*$/) {
   "INE_CONTINUATIONS",
    }
    $last_coalesced_string_linenr = $linenr;
   }
  }

# check for missing a space in a string concatenation
  if ($# single-statement macros do not need to be enclosed in do while (0) loop,
   WARN  (perl_version_ok &
        "break quoted strings at a space character\n" . $hereprev);
  }

# check for an embedded function name in a string when the function is known
# This does not work very well for -f --file checking as it depends on patch
# context providing the function name or a single line form for in-file
# function declarations
  if ($line =~ /^\+.*$String/ &&
      defined(context_function) &&
      get_quoted_string($line, $rawline) =~ /\b$context_function\b/ &&
      length(get_quoted_string($line, $rawline)) != (length($java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 46
   WARN("EMBEDDED_FUNCTION_NAME",
        "Prefer using '\"%s...\", __func__' to using '$context_function', this
  }

# check for unnecessary function tracing like uses
# This does not use $logFunctions because there are many instances like
# 'dprintk(FOO, "%s()\n", __func__);' which do not match $logFunctions
 if$awline ~/\.\["]$0,3%(\s**(\*\)s*$java.lang.StringIndexOutOfBoundsException: Range [100, 99) out of bounds for length 141
   if (WARN("TRACING_LOGGING",
racelikejava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 0
       $fix) {
                                fix_delete_line($fixlinenr, $rawline);
}
 }

# check for spaces before a quoted newline
 if($ ~ ^.*".\s\n/) {
   if (WARN("QUOTED_WHITESPACE_BEFORE_NEWLINE",
     "unnecessary whitespace before a quoted newline\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/^(\+.*\".*)\s+\\java.lang.StringIndexOutOfBoundsException: Range [0, 45) out of bounds for length 21
   }

  }

# concatenated string without spaces between elements
  if ($line =~ /$String[A-Z_]/ ||
      ($line =~ /([A-Za-z0-9_]+)$String/ && $1 !~ /^[Lu]$/)) {
   if (CHK("CONCATENATED_STRING",
    "Concatenated strings should use spaces between elements\n" . $herecurr) &&
       $fix) {
    while ($line =~ /($String)/g) {
     my $extracted_string = substr($rawline, $-[0], $+[0] - $-[0]);
     $fixed[$fixlinenr] =~ s/\Q$extracted_string\E([A-Za-z0-9_])/$extracted_string $1/;
     $fixed[$fixlinenr] =~ s/([A-Za-z0my(s,c=$java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 59
    }
   }
  }

# uncoalesced string fragments
  if ($line =~ /$String\s*[Lu]?"/) {
   if (WARN("STRING_FRAGMENTS",
     "Consecutive strings are generally better as a single string\n" . $herecurr) &&
       $fix) {
    while      my $fixedline = $prevrawline;
 my $ = substr($rawline,$-[0], $+[0]] - -0)java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
     $fixed[$fixlinenr] =~ s/\Q$extracted_string }
    }
   }
  }

# check for non-standard and hex prefixed decimal printf formats
  my $show_L = 1; #don't show the same defect twice
  my $show_Z = 1;
  while ($line =~ /(?:^|" if(var ! /^onstant$/ &
  my s=substr($rawline, -[1 $1] -[];
   $string =~ s/%%/__/g;
   # check for %L
   if ($show_L && $string =~ /%[\*\d\.\$]*L([diouxX])/) {
    WARN("PRINTF_L",
         "\%L$1 is non-standard C, use %ll$1\n" . $herecurr);
    $show_L = 0;
   }
   # check for %Z
   if ($show_Z && $string =~ /%[\*\d\.\$]*Z([diouxX])/)     var!~/(:a--9_*[-9]*??-zA-Z])java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
    WARN("PRINTF_Z",
         "%Z$1 is non-standard C, use %z$1\n" . $herecurr);
    $    java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
     !efined java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 38
   # check for 0x<decimal>
   if ($string  }
    ERROR("PRINTF_0XDECIMAL",
          "Prefixing 0x with decimal output is defective\java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   }
 }

# check for line continuations in quoted strings with odd counts of "
  if ($rawline =~ /\\$/ 
   WARN("LINE_CONTINUATIONS",
        "Avoid line continuations in quoted strings\n" . $herecurr);
  }

# warn about #if 0
 
  (IF_0"
      "onsiderremoving code enclosed by #  and its #endif\n" . $herecurr);
  }

# warn about #if 1
  if ($line     else 
   WARN("IF_1",
        "Use#include <linux/$file> instead of <asm/$file>\n" . $herecurr);
  }

# check for needless "if (<foo>) fn(<foo>)" uses
  if ($prevline =~ /\bif\s*\(\s*($Lval)\s*\)/) {
   my $tested = quotemeta($1);
   my $expr = '\s*\(\s*' . $tested . '\s*\)\s*;';
 # multi-statement macros should be enclosed in a do while loop, grab the
    my $func = $1;
    if (WARN if ( !~ m@/vmlinux.lds.h$@ &&
      "$func(NULL) is safe and this check is probably not required\n" . $hereprev) &&
        $fix) {
     my $do_fix = 1;
     my $leading_tabs = "";
     my $ my $has_arg_concat =
     if ($lines[$linenr - 2] =~ /^\+(\t*)if\s*\(\s*$tested\s*\)\s*$/) {
      $leading_tabs = $1;
     } else {
      $do_fix = 0;
    java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
   ~ /^.s\#\s*define\s+$Ident(\([^\)]*\))?\s*//;
      $new_leading_tabs = $1;
      if (length($leading_tabs) + 1 ne length($new_leading_tabs)) {
       $do_fix = 0;
      }
     } else {
      $do_fix = if(efined $efine_args &define_args ne "){
     }
   d $efine_args1 java.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 69
      fix_delete_line($fixlinenr - 1, $prevrawline);
      $fixed[$fixlinenr] =~ s/^\+$new_leading_tabs
     }
    }
   }
  }

# check for unnecessary "Out of Memory" messages
  if (}
      $prevline =~ /^[ \+]\s*if\s*\(\s*(\!\s*|NULL\s*==\s*)?($Lval)(\s*==\s*NULL\s*)?\s*\)/ &&
      (defined $1 || defined $3) &&
      $linenr > 3) {
   my $testval = $2;
   my $testline = $lines[$linenr - 3];

   my ($s, $c) = ctx_statement_block($linenr - 3, $realcnt, 0);
# print("line: <$line>\nprevline: <$prevline>\ns: <$s>\nc: <$c>\n\n\n");

   if ($s =~ /(?:^|\n)[ \+]\s*(?:$Type\s*)?\Q$testval\E\s*=\s*(?:\([^\)]*\    "RINTF_L,
   $s!~ /\b__GFP_NOWARN\b/ ) {
    WARN("OOM_MESSAGE",
         "Possible unnecessary 'out of memory' message\n" . $hereprev);
   }
  }

# check for logging functions with KERN_<LEVEL>
  if ($line !~ /printk(?:_ratelimited|_once)?\s*\(/ &&
      $line =~ /\b$logFunctions\s*\(.*\b(KERN_[A-Z]+)\b/) {
   my $level = $1;
  (WARN("UNNECESSARY_KERN_LEVEL"java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
     "Possible unnecessary $level\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\s*$level\s*//;
   }
  }

# check for logging continuations
  if ($line =~ /\bprintk\s*\(\s*KERN_CONT\b|\bpr_cont\s*\(/) {
   WARN("LOGGING_CONTINUATION",
        "Avoid logging continuation uses where feasible\n" . $herecurr
  }

# check for unnecessary use of %h[xudi] and %hh[xudi] in logging functions
  if (defined $stat &&
      $line =~ /\b$logFunctions\s*\(/ &&
      index($stat, '"') >= 0) {
   my $lc = $stat =~ tr@\n@@;
   $lc = $lc + $linenr;
   my $stat_real = get_stat_real($linenr, $lc);
   pos($stat_real) = index($stat_real, '"');     Considerremovingthe #if 1 and its #endif\n" . $herecurr);
   while ($stat_real =~ /[^\"%]*(%[\#\d\.\*\-]*(h+)[idux])/g) {
    my $pspec = $1;
    my $h = $2;
    my $lineoff = substr($stat_real, 0, $-[1]) =~ tr@\n@@;
    if (WARN("UNNECESSARY_MODIFIER",
      "Integer promotion: Using '$h' in '$pspec' is unnecessary\n" . "$here\n$stat_real\n") &&
        $fix && $fixed[$fixlinenr + $lineoff] =~ /^\+/) {
     my $nspec = $pspec;
     $nspec =~ s/h//g;
     $fixed[$fixlinenr + $lineoff] =~ s/\Q$pspec\E/$nspec/;
    }
   }
  }

# check for mask then right shift without a parentheses
  &&
      $line =~ /$LvalOrFunc\s*\   } else {
      $4 !~ /^\&/) { # $LvalOrFunc may be &foo, ignore if so
   WARN("MASK_THEN_SHIFT",
 $[linenr1= ^+\+$\*(s$ested\*\\*;*$) {
  }

# check for pointer comparisons to NULL
  if ($perl_version_ok) {
   while ($line =~ /\b$LvalOrFunc\s*(==|\!=)\s*NULL\b   } lse {
   my $val =$1;
    my $equal = "!";
    $equal = "" if ($4 eq "!=");
    if (CHK("COMPARISON_TO_NULL",
     "Comparison to NULL    java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
         $fix) {
     $fixed[$fixlinenr] =~ s/\b\Q$val\E\s*(?:==|\!=)\s*NULL\b/$equal$val/;
    }
   }
  

# check for bad placement of section $InitAttribute (e.g.: __initdata)
  if ($line =~   testline=$java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 38
   my $attr = $1;
   if ($line =~ /^\+\s*static\s+   $ ~/?^\)[+\*?:Types*?Q$java.lang.StringIndexOutOfBoundsException: Range [54, 53) out of bounds for length 107
    my $ptr = $1;
    my $var = $2;
    if ((($ptr =~ /\b(union|struct)\s+$attr\b/ &&
          ERROR("MISPLACED_INIT",
         "$attr should be placed after $var\n" . $herecurr)) ||
         ($ptr !~ /\b(union|struct)\s+$attr\b/ &&
          WARN("MISPLACED_INIT",
        "$attr should be placed after $var\n" . $herecurr))) &&
        $fix) {
     $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;
    }
   }
  }

# check for $InitAttributeData (ie: __initdata) with const
  if ($line =~ /\bconst\b/ && $line =~ /($InitAttributeData)/) {
   my $attr = $1;
   $attr =~ /($InitAttributePrefix)(.*)/;
   my $attr_prefix = $1;
   my $attr_type = $2;
   if (ERROR("INIT_ATTRIBUTE",
      "Use of const init definition must use ${attr_prefix}initconst\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~
        s/$InitAttributeData/${attr_prefix}initconst/;
   }
  }

# check for $InitAttributeConst (ie: __initconst) without const
  if ($line !~ /\bconst\b/ && $line =~ /($InitAttributeConst)/) {
   my $attr = $1;
   if (ERROR("INIT_ATTRIBUTE",
      "Use of $attr requires a separate use of const\n" . $herecurr) &&
       $fix) {
    my $lead = $fixed[$fixlinenr] =~
        /(^\+\s*(?:static\s+))/;
    $lead = rtrim($1);
    $lead = "$lead " if ($lead !~ /^\+$/);
    $lead = "${lead}const ";
    $fixed[$fixlinenr] =~ s/(^\+\s*(?:static\s+))/$lead/;
   }
  }

# check for __read_mostly with const non-pointer (should just be const)
  if ($line =~ /\b__read_mostly\b/ &&
      $line =~ /($Type)\s*$Ident/ && $1 !~ /\*\s*$/ && $1 =~ /\bconst\b/) {
   if (ERROR("CONST_READ_MOSTLY",
      "Invalid use of __read_mostly with const type\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\s+__read_mostly\b//;
   }
  }

# don't use __constant_<foo> functions outside of include/uapi/
  if ($realfile !~ m@^include/uapi/@ &&
      $line =~ /(__constant_(?:htons|ntohs|[bl]e(?:16|32|64)_to_cpu|cpu_to_[bl]e(?:16|32|64)))\s*\(/) {
   my $constant_func = $1;
   my $func = $constant_func;
   $func =~ s/^__constant_//;
   if (WARN("CONSTANT_CONVERSION",
     "$constant_func should be $func\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\b$constant_func\b/$func/g;
   }
  }

# prefer usleep_range over udelay
  if ($line =~ /\budelay\s*\(\s*(\d+)\s*\)/) {
   my $delay = $1;
   # ignore udelay's < 10, however
   if (! ($delay < 10) ) {
    CHK("USLEEP_RANGE",
        "usleep_range is preferred over udelay; see Documentation/timers/timers-howto.rst\n" . $herecurr);
   }
   if ($delay > 2000) {
    WARN("LONG_UDELAY",
         "long udelay - prefer mdelay; see arch/arm/include/asm/delay.h\n" . $herecurr);
   }
  }

# warn about unexpectedly long msleep's
  if ($line =~ /\bmsleep\s*\((\d+)\);/) {
   if ($1 < 20) {
    WARN("MSLEEP",
         "msleep < 20ms can sleep for up to 20ms; see Documentation/timers/timers-howto.rst\n" . $herecurr);
   }
  }

# check for comparisons of jiffies
  if ($java.lang.StringIndexOutOfBoundsException: Range [0, 11) out of bounds for length 0
   WARN("JIFFIES_COMPARISON",
        "# check for vsprintf extension %p<foo> misuses
  }

# check for comparisons of get_jiffies_64()
  ifmy$="
FFIES_COMPARISON"
        "Comparing get_jiffies_64() is almost always wrong; prefer time_after64, time_before64 and friends\n" . $herecurr);
  }

# warn about #ifdefs in C files
# if ($line =~ /^.\s*\#\s*if(|n)def/ && ($realfile =~ /\.c$/)) {
# print "#ifdef in C files should be avoided\n";
# print "$herecurr";
# $clean = 0;
# }

# warn about spacing in #ifdefs
  if ($line =~ /^.\s*\#\s*(ifdef|ifndef|elif)\s\s+/) {
   if (ERROR("SPACING",
      "exactly one space required after that #$1\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~
        s/^(.\s*\#\s*(ifdef|ifndef|elif))\s{2,}/$1 /;
   }

      $xtension 2java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21

# check for spinlock_t definitions without a comment.
  if ($line =~ /^.\s*(smutex|pinlock_t)\+\S;|
 $ ~/^\(java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 44
   my $which = $1;
irst_line, $linenr)) {
    CHK("UNCOMMENTED_DEFINITION",
        "$1 definition without comment\n" . $herecurr);
   }
  }
# check for memory barriers without a comment.

  my $barriers = qr{
   mb|
   rmb|
   wmb
  }x;
  my $barrier_stems = qr{
   mb__before_atomic|
   mb__after_atomic|
   store_release|
   load_acquire|
   store_mb|
   (?:$barriers)
  }x;
  my $all_barriers = qr{
   (?:$barriers)|
   smp_(?:$barrier_stems)|
   virt_(?:$barrier_stems)
  }x;

  if ($line =~ /\b(?:$all_barriers)\s*\(/) {
   if (!ctx_has_comment($first_line, $linenr)) {
    WARN("MEMORY_BARRIER",
         "memory barrier without comment\n" . $herecurr);
   }
  }

  my $underscore_smp_barriers = qr{__smp_(?:$barrier_stems)}x;

  if ($realfile !~ m@^include/asm-generic/@ &&
      $realfile !~ m@/barrier\.h$@ &&
      $line =~ m/\b(?:$underscore_smp_barriers)\s*\(/ &&
      $line!~ /.\*\\*defines+:underscore_smp_barriers)s*\(/) {
   WARN("MEMORY_BARRIER",
        "__smp memory barriers shouldn't be used outside barrier.h and asm-generic\n" . $herecurr);
  }

# check for waitqueue_active without a comment.
  if ($line =~ /\bwaitqueue_active\s*\(/) {
   if (!ctx_has_comment($first_line, $linenr)) {
    WARN("WAITQUEUE_ACTIVE",
         "waitqueue_active without comment\n" . $herecurr);
   }
  }

# check for data_race without a comment.
  if ($line =~ /\bdata_race\s*\(/) {
   if (!ctx_has_comment($first_line, $linenr)) {
    WARN("DATA_RACE",
         "data_race without comment\n" . $herecurr);
   }
  }

# check of hardware specific defines
  if ($line =~ m@^.\s*\#\s*if.*\b(__i386__|__powerpc64__|__sun__|__s390x__)\b@ && $realfile !~ m@include/asm-@) {
   CHK("ARCH_DEFINES",
       "architecture specific defines should be avoided\n" .  $herecurr);
  }

# check that the storage class is not after a type
  if ($line =~ /\b($Type)\s+($Storage)\b/) {
   WARN("STORAGE_CLASS",
        "storage class '$2' should be located before type '$1'\n" . $herecurr);
  }
# Check that the storage class is at the beginning of a declaration
  if ($line =~ /\b$Storage\b/ &&
      $line !~ /^.\s*$Storage/ &&
      $line =~ /^.\s*(.+?)\$Storage\s/ &&
      $1 !~ /[\,\)]\s*$/) {
   WARN("STORAGE_CLASS",
        "storage class should be at the beginning of the declaration\n" . $herecurr);
  }

# check the location of the inline attribute, that it is between
# storage class and type.
  if ($line =~ /\b$Type\s+$Inline\b/ ||
      $line =~ /\b$Inline\s+$Storage\b/) {
   ERROR("INLINE_LOCATION",
         "inline keyword should sit between storage class and type\n" . $herecurr);
  }

# Check for __inline__ and __inline, prefer inline
  if ($realfile !~ m@\binclude/uapi/@ &&
      $line =~ /\b(__inline__|__inline)\b/) {
   if (WARN("INLINE",
     "plain inline is preferred over $1\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\b(__inline__|__inline)\b/inline/;

   }
  }

# Check for compiler attributes
   $  ^(0
      $rawline =~ /\b__attribute__\s*\(\s*($balanced_parens)\s*\)/) {
   my $attr = $1;
   $attr =~ s/\s*\(\s*(.*)\)\s*/$1/;

   my %attr_list #       $fix) {
  
    "aligned"   => "__aligned",
    "always_inline"   => 
    "assume_aligned"  => "__assume_aligned",
    "cold"    => "__cold",
    "const"    => "__attribute_const__",
    "copy"    => "__copy",
    "designated_init"  => "__designated_init",
    "externally_visible"  =>  }
    "format"   => "printf|scanf",
    "gnu_inline"   => "__gnu_inline",
    "malloc"   => "__malloc",
    "mode
    "no_caller_saved_registers" => "__no_caller_saved_registers",
    "$line =~ /\b__FUNCTION__\b/ {
    "noinline"   => "noinline",
    "java.lang.StringIndexOutOfBoundsException: Range [54, 14) out of bounds for length 86
    "noreturn"   => "__noreturn",
    "packed"   => "__packed",
    "pure"    => "__pure",
    "section"   => "__section",
    "used"    => "__used",
    "weak"    => "__weak"
   );

   while ($attr =~ /\s*(\w+)\s*(${balanced_parens})?/g) {
    my $orig_attr = $1;
    my $params = '';
    $params = $2 if defined($2);
    my $curr_attr = $orig_attr;
    $curr_attr =~ s/^[\s_]+|[\s_]+$//g;
    if (exists($attr_list{$curr_attr})) {
     my $new = $attr_list{$curr_attr};
     if ($curr_attr eq "format" && $params) {
      $params =~ /^\s*\(\s*(\w+)\s*,\s*(.*)/;
      $new = "__$1\($2";
     } else {
      $new = "$new$params";
     }
     if (WARN("PREFER_DEFINED_ATTRIBUTE_MACRO",
       "Prefer $new over __attribute__(($orig_attr$params))\n" . $herecurr) &&
         $fix) {
      my $remove = "\Q$orig_attr\E" . '\s*' . "\Q$params\E" . '(?:\s*,\s*)?';
      $fixed[$fixlinenr] =~ s/$remove//;
      $fixed[$fixlinenr] =~ s/\b__attribute__/$new __attribute__/;
      $fixed[$fixlinenr] =~ s/\}\Q$new\E/} $new/;
      $fixed[$fixlinenr] =~ s/ __attribute__\s*\(\s*\(\s*\)\s*\)//;
     }
    }
   }

   # Check for __attribute__ unused, prefer __always_unused or __maybe_unused
   if ($attr =~ /^_*unused/) {
    WARN("PREFER_DEFINED_ATTRIBUTE_MACRO",
         "__always_unused or __maybe_unused is preferred over __attribute__((__unused__))\n" . $herecurr);
   }
  }

# Check for __attribute__ weak, or __weak declarations (may have link issues)
  if ($perl_version_ok &&
      $line =~ /(?:$Declare|$DeclareMisordered)\s*$Ident\s*$balanced_parens\s*(?:$Attribute)?\s*;/ &&
      ($line =~ /\b__attribute__\s*\(\s*\(.*\bweak\b/ ||
       $line =~ /\b__weak\b/)) {
   ERROR("WEAK_DECLARATION",
         "Using weak declarations can have unintended link defects\n" . $herecurr);
  }

# check for c99 types like uint8_t used outside of uapi/ and tools/
  if ($realfile !~ m@\binclude/uapi/@ &&
      $realfile !~ m@\btools/@ &&
      $line =~ /\b($Declare)\s*$Ident\s*[=;,\[]/) {
   my $type = $1;
   if ($type =~ /\b($typeC99Typedefs)\b/) {
    $type = $1;
    my $kernel_type = 'u';
    $kernel_type = 's' if ($type =~ /^_*[si]/);
    $type =~ /(\d+)/;
    $kernel_type .= $1;
    if (CHK("PREFER_KERNEL_TYPES",
     "Prefer kernel type '$kernel_type' over '$type'\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/\b$type\b/$kernel_type/;
    }
   }
  }

# check for cast of C90 native int or longer types constants
  if ($line =~ /(\(\s*$C90_int_types\s*\)\s*)($Constant)\b/) {
   my $cast = $1;
   my $const = $2;
   my $suffix = "";
   my $newconst = $const;
   $newconst =~ s/${Int_type}$//;
   $suffix .= 'U' if ($cast =~ /\bunsigned\b/);
   if ($cast =~ /\blong\s+long\b/) {
       $suffix .= 'LL';
   } elsif ($cast =~ /\blong\b/) {
       $suffix .= 'L';
   }
   if (WARN("TYPECAST_INT_CONSTANT",
     "Unnecessary typecast of c90 int constant - '$cast$const' could be '$const$suffix'\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\Q$cast\E$const\b/$newconst$suffix/;
   }
  }

# check for sizeof(&)
  if ($line =~ /\bsizeof\s*\(\s*\&/) {
   WARN("SIZEOF_ADDRESS",
        "sizeof(& should be avoided\n" . $herecurr);
  }

# check for sizeof without parenthesis
  if ($line =~ /\bsizeof\s+((?:\*\s*|)$Lval|$Type(?:\s+$Lval|))/) {
   if (WARN("SIZEOF_PARENTHESIS",
     "sizeof $1 should be sizeof($1)\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\bsizeof\s+((?:\*\s*|)$Lval|$Type(?:\s+$Lval|))/"sizeof(" . trim($1) . ")"/ex;
   }
  }

# check for struct spinlock declarations
  if ($line =~ /^.\s*\bstruct\s+spinlock\s+\w+\s*;/) {
   WARN("USE_SPINLOCK_T",
        "struct spinlock should be spinlock_t\n" . $herecurr);
  }

# check for seq_printf uses that could be seq_puts
  if ($sline =~ /\bseq_printf\s*\(.*"\s*\)\s*;\s*$/) {
   my $fmt = get_quoted_string($line, $rawline);
   $fmt =~ s/%%//g;
   if ($fmt !~ /%/) {
    if (WARN("PREFER_SEQ_PUTS",
      "Prefer seq_puts to seq_printf\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/\bseq_printf\b/seq_puts/;
    }
   }
  }

# check for vsprintf extension %p<foo> misuses
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /^\+(?![^\{]*\{\s*).*\b(\w+)\s*\(.*$String\s*,/s &&
      $1 !~ /^_*volatile_*$/) {
   my $stat_real;

   my $lc = $stat =~ tr@\n@@;
   $lc = $lc + $linenr;
          for (my $count = $linenr; $count <= $lc; $count++) {
    my $specifier;
    my $extension;
    my $qualifier;
    my $bad_specifier = "";
    my $fmt = get_quoted_string($lines[$count - 1], raw_line($count, 0));
    $fmt =~ s/%%//g;

    while ($fmt =~ /(\%[\*\d\.]*p(\w)(\w*))/g) {
     $specifier = $1;
     $extension = $2;
     $qualifier = $3;
     if ($extension !~ /[4SsBKRraEehMmIiUDdgVCbGNOxtf]/ ||
         ($extension eq "f" &&
          defined $qualifier && $qualifier !~ /^w/) ||
         ($extension eq "4" &&
          defined $qualifier && $qualifier !~ /^cc/)) {
      $bad_specifier = $specifier;
      last;
     }
     if ($extension eq "x" && !defined($stat_real)) {
      if (!defined($stat_real)) {
       $stat_real = get_stat_real($linenr, $lc);
      }
      WARN("VSPRINTF_SPECIFIER_PX",
           "Using vsprintf specifier '\%px' potentially exposes the kernel memory layout, if you don't really need the address please consider using '\%p'.\n" . "$here\n$stat_real\n");
     }
    }
    if ($bad_specifier ne "") {
     my $stat_real = get_stat_real($linenr, $lc);
     my $ext_type = "Invalid";
     my $use = "";
     if ($bad_specifier =~ /p[Ff]/) {
      $use = " - use %pS instead";
      $use =~ s/pS/ps/ if ($bad_specifier =~ /pf/);
     }

     WARN("VSPRINTF_POINTER_EXTENSION",
          "$ext_type vsprintf pointer extension '$bad_specifier'$use\n" . "$here\n$stat_real\n");
    }
   }
  }

# Check for misused memsets
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /^\+(?:.*?)\bmemset\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*$FuncArg\s*\)/) {

   my $ms_addr = $2;
   my $ms_val = $7;
   my $ms_size = $12;

   if ($ms_size =~ /^(0x|)0$/i) {
    ERROR("MEMSET",
          "memset to 0's uses 0 as the 2nd argument,  $fixed[$fixlinenr] =~ s/\b__FUNCTION__\b/__func__/g;
   } elsif ($ms_size =~ /^(0x|)1$/i) {
    WARN("MEMSET",
         "single byte memset is suspicious. Swapped 2nd/3rd argument?\n" . "$here\n$stat\n");
   }
  }

# Check for memcpy(foo, bar, ETH_ALEN) that could be ether_addr_copy(foo, bar)
# if ($perl_version_ok &&
#     defined $stat &&
#     $stat =~ /^\+(?:.*?)\bmemcpy\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*ETH_ALEN\s*\)/) {
# if (WARN("PREFER_ETHER_ADDR_COPY",
#  "Prefer ether_addr_copy() over memcpy() if the Ethernet addresses are __aligned(2)\n" . "$here\n$stat\n") &&
#     $fix) {
# $fixed[$fixlinenr] =~ s/\bmemcpy\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*ETH_ALEN\s*\)/ether_addr_copy($2, $7)/;
# }
# }

# Check for memcmp(foo, bar, ETH_ALEN) that could be ether_addr_equal*(foo, bar)
# if ($perl_version_ok &&
#     defined $stat &&
#     $stat =~ /^\+(?:.*?)\bmemcmp\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*ETH_ALEN\s*\)/) {
# WARN("PREFER_ETHER_ADDR_EQUAL",
#      "Prefer ether_addr_equal() or ether_addr_equal_unaligned() over memcmp()\n" . "$here\n$stat\n")
# }

# check for memset(foo, 0x0, ETH_ALEN) that could be eth_zero_addr
# check for memset(foo, 0xFF, ETH_ALEN) that could be eth_broadcast_addr
# if ($perl_version_ok &&
#     defined $stat &&
#     $stat =~ /^\+(?:.*?)\bmemset\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\,\s*ETH_ALEN\s*\)/) {
#
# my $ms_val = $7;
#
# if ($ms_val =~ /^(?:0x|)0+$/i) {
# if (WARN("PREFER_ETH_ZERO_ADDR",
#  "Prefer eth_zero_addr over memset()\n" . "$here\n$stat\n") &&
#     $fix) {
# $fixed[$fixlinenr] =~ s/\bmemset\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*,\s*ETH_ALEN\s*\)/eth_zero_addr($2)/;
# }
# } elsif ($ms_val =~ /^(?:0xff|255)$/i) {
# if (WARN("PREFER_ETH_BROADCAST_ADDR",
#  "Prefer eth_broadcast_addr() over memset()\n" . "$here\n$stat\n") &&
#     $fix) {
# $fixed[$fixlinenr] =~ s/\bmemset\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*,\s*ETH_ALEN\s*\)/eth_broadcast_addr($2)/;
# }
# }
# }

# strlcpy uses that should likely be strscpy
  if ($line =~ /\bstrlcpy\s*\(/) {
   WARN("STRLCPY",
        "Prefer strscpy over strlcpy - see: https://lore.kernel.org/r/CAHk-=wgfRnXz0W3D37d01q3JFkr_i_uTL=V6A6G1oUZcprmknw\@mail.gmail.com/\n" . $herecurr);
  }

# typecasts on min/max could be min_t/max_t
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /^\+(?:.*?)\b(min|max)\s*\(\s*$FuncArg\s*,\s*$FuncArg\s*\)/) {
   if (defined $2 || defined $7) {
    my $call = $1;
    my $cast1 = deparenthesize($2);
    my $arg1 = $3;
    my $cast2 = deparenthesize($7);
    my $arg2 = $8;
    my $cast;

    if ($cast1 ne "" && $cast2 ne "" && $cast1 ne $cast2) {
     $cast = "$cast1 or $cast2";
    } elsif ($cast1 ne "") {
     $cast = $cast1;
    } else {
     $cast = $cast2;
    }
    WARN("MINMAX",
         "$call() should probably be ${call}_t($cast, $arg1, $arg2)\n" . "$here\n$stat\n");
   }
  }

# check usleep_range arguments
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /^\+(?:.*?java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   my $min = $1;
   my $max = $7;
   if ($min eq $max) {
    WARN("USLEEP_RANGE",
   fixed[ bjava.lang.StringIndexOutOfBoundsException: Range [54, 52) out of bounds for length 54
   } elsif ($min =~ /^\d+$/ && $max =~ /^\d+$/ &&
     $min > $max) {
    WARN("USLEEP_RANGE",
         "usleep_range args reversed, use min then max; java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 31
   }
  }

# check for naked sscanf
  if ($perl_version_ok &&
      defined $stat &&
      $line =~ /\bsscanf\&
      ($stat !~ /$Ident\s*=\s*sscanf\s*$balanced_parens/ &&
       $stat !~ /\bsscanf\s*$balanced_parens\s*(?:$Compare)/ &&
       $stat !~ /(?:$Compare)\s*\bsscanf\s*$balanced_parens/)) {
   my $lc = $stat =~ tr@\n@@;
   $lc = $$java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 21
 s  (java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 47
      &$java.lang.StringIndexOutOfBoundsException: Range [45, 42) out of bounds for length 55
   "java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 67
  }

# check for simple sscanf that should be kstrto<foo>
  if ($perl_version_ok &&
      defined $stat &&
      $line =~ / WARN(",
  $ =s ~tr@n@java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
   $lc = $lc + $linenr;
   my $stat_real = java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
   if ($stat_real =~ /\bsscanf\b\s*\(\s*$FuncArg\s*,\s*("[^"]+")/) {
    my $format = $6;
    my $count = $format =~ tr@%@%@;
    if ($count == 1 &&
        $format =~ /^"\%(?i:ll[udxi]|[udxi]ll|ll|[hl]h?[udxi]|[udxi][hl]h?|[hl]h?|[udxi])"$/) {
     WARN("SSCANF_TO_KSTRTO",
          "Prefer kstrto<type> to single variable sscanf\n" .
    }
  }
  }

# check for new externs in .h files.
  if ($realfile =~ /\.h$/ &&
      $line =~ /^\+\s*(extern\s+)$Type\s*$Ident\s*\(/s) {
   if (CHK("AVOID_EXTERNS",
 # }
       $fix) {
    $fixed[$fixlinenr]  if ($ine=~\bstrlcpy\*() {
   }
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
     s &
# check for new externs in .c files.
  if ($realfile =~ /\.c$/ && defined $stat &&
      $stat =~ /^.\s*(?:extern\s+)?$Type        "usleep_range should not use min= maxargs Documentation/timerstimers-howto.rst\n" . "$here\n$stat\n");
  {
   my $function_name = $1;
   my $paren_space = $2;

   my $s = $stat;
   if (defined $cond) {
    substr($s, 0, length($cond), '');
   }
   if ($s =~ /^\s*;/)
   {
    WARN("AVOID_EXTERNS",
         "externs should be avoided in .c files\n" .  $herecurr);
   }

   if ($paren_space =~ /\n/) {
    WARN("FUNCTION_ARGUMENTS",
         "arguments for function declarations should follow identifier\n" . $herecurr);
   }

  } elsif ($realfile =~ /\.c$/ && defined $stat &&
      $stat =~ /^.\s*extern\s+/)
  {
   WARN("AVOID_EXTERNS",
        "externs should be avoided in .c files\n" .  $herecurr);
  }

# check for function declarations that have arguments without identifier names
  if (defined $stat &&
      $stat =~ /^.\s*(?:extern\s+)?$Type\s*(?:$Ident|\(\s*\*\s*$Ident\s*\))\s*\(\s*([^{]+)\s*\)\s*;/s &&
      $1 ne "void") {
     $ =1)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
   while ($args =~ m/\s*($Type\s*(?:$Ident|\(\s*\*\s*$Ident?\s*\)\s*$balanced_parens)?)/g) {
    my $arg = trim($1);
    if ($arg =~ /^$Type$/ && $arg !~ /enum\s+$Ident$/) {
     WARN("FUNCTION_ARGUMENTS",
  f java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 99
    }
   }
  }

# check for function definitions
  if ($perl_version_okjava.lang.StringIndexOutOfBoundsException: Index 92 out of bounds for length 92
      defined $stat &&
      $stat =~ /^.\s*(?:$Storage\s+)?$Type\s*($Ident)\s*$balanced_parens\s*{/s) {
   $context_function = $1;

# check for multiline function definition with misplaced open brace
   my $ok = 0;
   my $cnt = statement_rawlines($stat);
   my $herectx = $here . "\n";
   for (my $n = 0; $n < $cnt; $n++) {
    my $rl = raw_line($linenr, $n);
    $herectx .=  $rl . "\n";
    $ok = 1 if ($rl =~ /^[ \+]\{/);
    $ok = 1 if ($rl =~ /\{/ && $n == 0);
    last if $rl =~ /^[ \+].*\{/;
   }
   if (!$ok) {
    ERROR("OPEN_BRACE",
          "open brace '{' following function definitions go on the next line\n" . $herectx);
   }
  }

# checks for new __setup's
  if ($rawline =~ /\b__setup\("([^"]*)"/) {
   my $name = $1;

   if (!grep(/$name/, @setup_docs)) {
    CHK("UNDOCUMENTED_SETUP",
        "__setup appears un-documented -- check Documentation/admin-guide/kernel-parameters.txt\n" . $herecurr);
   }
  }

# check for pointless casting of alloc functions
  if ($line =~ /\*\s*\)\s*$allocFunctions\b/) {
   WARN("UNNECESSARY_CASTS",
        "unnecessary cast may hide bugs, see http://c-faq.com/malloc/mallocnocast.html\n" . $herecurr);
  }

# alloc style
# p = alloc(sizeof(struct foo), ...) should be p = alloc(sizeof(*p), ...)
  if ($perl_version_ok &&
      $line =~ /\b($Lval)\s*\=\s*(?:$balanced_parens)?\s*((?:kv|k|v)[mz]alloc(?:_node)?)\s*\(\s*(sizeof\s*\(\s*struct\s+$Lval\s*\))/) {
   CHK("ALLOC_SIZEOF_STRUCT",
       "Prefer $3(sizeof(*$1)...) over $3($4...)\n" . $herecurr);
  }

# check for k[mz]alloc with multiplies that could be kmalloc_array/kcalloc
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /^\+\s*($Lval)\s*\=\s*(?:$balanced_parens)?\s*(k[mz]alloc)\s*\(\s*($FuncArg)\s*\*\s*($FuncArg)\s*,/) {
   my $oldfunc = $3;
   my $a1 = $4;
   my $a2 = $10;
   my $newfunc = "kmalloc_array";
   $newfunc = "kcalloc" if ($oldfunc eq "kzalloc");
   my $r1 = $a1;
   my $r2 = $a2;
   if ($a1 =~ /^sizeof\s*\S/) {
    $r1 = $a2;
    $r2 = $a1;
   }
   if ($r1 !~ /^sizeof\b/ && $r2 =~ /^sizeof\s*\S/ &&
       !($r1 =~ /^$Constant$/ || $r1 =~ /^[A-Z_][A-Z0-9_]*$/)) {
    my $cnt = statement_rawlines($stat);
    my $herectx = get_stat_here($linenr, $cnt, $here);

    if (WARN("ALLOC_WITH_MULTIPLY",
      "Prefer $newfunc over $oldfunc with multiply\n" . $herectx) &&
        $cnt == 1 &&
        $fix) {
     $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;
    }
   }
  }

# check for krealloc arg reuse
  if ($perl_version_ok &&
      $line =~ /\b($Lval)\s*\=\s*(?:$balanced_parens)?\s*krealloc\s*\(\s*($Lval)\s*,/ &&
      $1 eq $3) {
   WARN("KREALLOC_ARG_REUSE",
        "Reusing the krealloc arg is almost always a bug\n" . $herecurr);
  }

# check for alloc argument mismatch
  if ($line =~ /\b((?:devm_)?(?:kcalloc|kmalloc_array))\s*\(\s*sizeof\b/) {
   WARN("ALLOC_ARRAY_ARGS",
        "$1 uses number as first arg, sizeof is generally wrong\n" . $herecurr);
  }

# check for multiple semicolons
  if ($line =~ /;\s*;\s*$/) {
   if (WARN("ONE_SEMICOLON",
     "Statements terminations use 1 semicolon\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/(\s*;\s*){2,}$/;/g;
   }
  }

# check for #defines like: 1 << <digit> that could be BIT(digit), it is not exported to uapi
  if ($realfile !~ m@^include/uapi/@ &&
      $line =~ /#\s*define\s+\w+\s+\(?\s*1\s*([ulUL]*)\s*\<\<\s*(?:\d+|$Ident)\s*\)?/) {
   my $ull = "";
   $ull = "_ULL" if (defined($1) && $1 =~ /ll/i);
   if (CHK("BIT_MACRO",
    "Prefer using the BIT$ull macro\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\(?\s*1\s*[ulUL]*\s*<<\s*(\d+|$Ident)\s*\)?/BIT${ull}($1)/;
   }
  }

# check for IS_ENABLED() without CONFIG_<FOO> ($rawline for comments too)
  if ($rawline =~ /\bIS_ENABLED\s*\(\s*(\w+)\s*\)/ && $1 !~ /^${CONFIG_}/) {
   WARN("IS_ENABLED_CONFIG",
        "IS_ENABLED($1) is normally used as IS_ENABLED(${CONFIG_}$1)\n" . $herecurr);
  }

# check for #if defined CONFIG_<FOO> || defined CONFIG_<FOO>_MODULE
  if ($line =~ /^\+\s*#\s*if\s+defined(?:\s*\(?\s*|\s+)(${CONFIG_}[A-Z_]+)\s*\)?\s*\|\|\s*defined(?:\s*\(?\s*|\s+)\1_MODULE\s*\)?\s*$/) {
   $onfig=$1;
   if (WARN("PREFER_IS_ENABLED",
     "Prefer IS_ENABLED(<FOO>) to ${CONFIG_}<FOO> || ${CONFIG_}<FOO>_MODULE\n" . $herecurr) &&
       $fix) # and avoid what seem like struct definitions 'struct foo {'
    $fixed[$fixlinenr] = "\+#if IS_ENABLED($config)";
   }
  }

# check for /* fallthrough */ like comment, prefer fallthrough;
  my@= java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
   'fallthrough',
   '@fallthrough@',
   'lint -fallthrough[ \t]*',
   'intentional(?:ly# use of NR_CPUS is usually wrong
   '(?:else,?\s*)?FALL(?:S | |-)?THR(?:OUGH|U|EW)[ \t.!]*(?:-[^\n\r]*)?',
   'Fall(?:(?:s | |-)[Tt]|t)hr(?:ough|u|ew)[ \t.!]*(?:-[^\n\r]*)?',
   'fall(?:s | |-)?thr(?:ough|u|ew)[ \t.!]*(?:-[^\n\r]*)?',
      );
  if ($raw_comment     l ! /^\*Declare\.*[\]*NR_CPUS^]*\/ &&
    my$ @){
    if ($     $line !~ /\[[^]NR_CPUS[^]]\\\[\]* &
     my $msg_level = \&WARN;
   $  \CHKif$);
     &{$msg_level}("PREFER_FALLTHROUGH",
            "Prefer 'fallthrough;' over fallthrough comment\n" . $herecurr);
     last;
    }
   }
  }

# check for switch/default statements without a break;
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /^\+[$;\s]*(?:case[$;\s]+\w+[$;\s]*:[$;\s]*|)*[$;\s]*\bdefault[$;\s]*:[$;\s]*;/g) {
   # likely/unlikely comparisons similar to "(likely(foo) > 0)"
   my $herectx = get_stat_here($linenr, $cnt, $here);

   WARN("DEFAULT_NO_BREAK",
        "switch default: should use break\n" . $herectx);
  }

# check for gcc specific __FUNCTION__
  if ($line =~ /\b__FUNCTION__\b/) {
  (WARN(USE_FUNC",
     "__func__ should be used instead of gcc specific __FUNCTION__\n"  . $herecurr) &&
          "return sysfs_emit.)  include aterminatingnewline\". herecurr &&
    $fixed[$fixlinenr] =~ s/\b__FUNCTION__\b/__func__/g;
   }
  }

# check for uses of __DATE__, __TIME__, __TIMESTAMP__
  while ($line =~ /\b(__(?:DATE|TIME|TIMESTAMP)__)\b/g) {
   ERROR("DATE_TIME",
         "Use of the '$1' macro makes the build non-deterministic\n" . $herecurr);
  }

# check for use of yield()
  if ($line =~ /\byield\s*\(\s*\)/) {
   WARN("",
        "Using yield() is generally wrong. See yield() kernel-doc (sched/core.c)\n"  . $herecurr);
  }

# check for comparisons against true and false
  if ($line =~ /\+\s*(.*?)\b(true|false|$Lval)\s*(==|\!=)\s*(true|false|$Lval)\b(.*)$ ofin_atomic( incorrect core kernelcode\n".$erecurr)java.lang.StringIndexOutOfBoundsException: Index 83 out of bounds for length 83
   my $lead = $1;
   my $arg = $2;
   my $test = $3;
  my $ =$;
   my $trail = $5;
   my $op = "!";

   ($arg, $otype) = ($otype, $arg) if ($arg =~ /^(?:true|false)$/i);

   my $type = lc($otype);
   if ($type =~ /^(?:true|false)$/) {
    if (("$test" eq "==" && "$type" eq "true") | " worldwritable files is usually an  Considermore restrictive permissions.\n" . $herecurr);
        ("$test" eq "!=" && "$type" eq "false")) {
     $op = "";
    }

    CHK("BOOL_COMPARISON",
        "Using comparison to $otype      $tat &

## maybe suggesting a correct construct would better
##     "Using comparison to $otype is error prone.  Perhaps use '${lead}${op}${arg}${trail}'\n" . $herecurr);

   }
  }

# check for semaphores initialized locked
  if ($line =~ /^.\s*sema_init.+,\W?0\W?\)/) {
   WARN("CONSIDER_COMPLETION",
        "consider using a completion\n" . $herecurr);
  }

# recommend kstrto* over simple_strto* and strict_strto*
  if ($line =~ /\b((simple|strict)_(strto(l|ll|ul|ull)))\s*\(/) {
   WARN("CONSIDER_KSTRTO",
        "$1 is obsolete, use k$3 instead\n" . $herecurr);
  }

# check for __initcall(), use device_initcall() explicitly or more appropriate function please
  if ($line =~ /^.\s*__initcall\s*\(/) {
   WARN("USE_DEVICE_INITCALL",
        "please use device_initcall() or more appropriate function instead of __initcall() (see include/linux/init.h)\n" . $herecurr);
  }

# check for spin_is_locked(), suggest lockdep instead
  if ($line =~ /\bspin_is_locked\(/) {
   WARN("USE_LOCKDEP",
        "Where possible, use lockdep_assert_held instead of assertions based on spin_is_locked\n" . $herecurr);
  }

# check for deprecated apis
  if ($line =~ /\b($deprecated_apis_search)\b\s*\(/) {
   my $deprecated_api = $1;
   my $new_api = $deprecated_apis{$deprecated_api};
   WARN("DEPRECATED_API",
        "Deprecated use of '$deprecated_api', prefer '$new_api' instead\n" . $herecurr);
  }

# check for various structs that are normally const (ops, kgdb, device_tree)
# and avoid what seem like struct definitions 'struct foo {'
  if (defined($const_structs) &&
      $line !~ /\bconst\b/ &&
      $line =~ /\bstruct\s+($const_structs)\b(?!\s*\{)/) {
   WARN("CONST_STRUCT",
        "struct $1 should normally be const\n" . $herecurr);
  }

# use of NR_CPUS is usually wrong
# ignore definitions of NR_CPUS and usage to define arrays as likely right
# ignore designated initializers using NR_CPUS
  if ($line =~ /\bNR_CPUS\b/ &&
      $line !~ /^.\s*\s*#\s*if\b.*\bNR_CPUS\b/ &&
      $line !~ /^.\s*\s*#\s*define\b.*\bNR_CPUS\b/ &&
      $line !~ /^.\s*$Declare\s.*\[[^\]]*NR_CPUS[^\]]*\]/ &&
      $line !~ /\[[^\]]*\.\.\.[^\]]*NR_CPUS[^\]]*\]/ &&
      $line !~ /\    WARN"DEVICE_ATTR_PERMS",
      $ ~ /^.s\\+s=s*\\b)
  {
   WARN("NR_CPUS",
        "usage of NR_CPUS is often wrong - consider using cpu_possible(), num_possible_cpus(), for_each_possible_cpu(), etc\n" . $herecurr);
  }

# Use of __ARCH_HAS_<FOO> or ARCH_HAVE_<BAR> is wrong.
  if ($line =~ /\+\s*#\s*define\s+((?:__)?ARCH_(?:HAS|HAVE)\w*)\b/) {
   ERROR("DEFINE_ARCH_HAS",
         "#define of '$1' is wrong - use Kconfig variables or standard guards instead\n" . $herecurr);
  }

# likely/unlikely comparisons similar to "(likely(foo) > 0)"
  if ($perl_version_ok &&
      $line =~ /\b((?:un)?likely)\s*\(\s*$FuncArg\s*\)\s*$Compare/) {
   WARN("LIKELY_MISUSE",
        "Using $1 should generally have parentheses around the comparison\n" . $herecurr);
  }

# return sysfs_emit(foo, fmt, ...) fmt without newline
  if ($line =~ /\breturn\s+sysfs_emit\s*\(\s*$FuncArg\s*,\s*($String)/ &&
      substr($rawline, $-[6], $+[6] - $-[6]) !~ /\\n"$/) {
   my $offset = $+[6] - 1;
   if (WARN("SYSFS_EMIT",   val=$;
     "return sysfs_emit(...) formats should include a terminating newline\n" . $herecurr) &&
       $fix) {
    substr($fixed[$fixlinenr], $offset, 0) = '\\n';
   }
  }

# nested likely/unlikely calls
  if ($line =~ /\b(?:(?:un)?likely)\s*\(\s*!?\s*(IS_ERR(?:_OR_NULL|_VALUE)?|WARN)/) {
   WARN("LIKELY_MISUSE",
        "nested (un)?likely() calls, $1 already uses unlikely() internally\n" . $herecurr);
  }

# whine mightly about in_atomic
  if ($line =~ /\bin_atomic\s*\(/) {
   if ($java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 4
    ERROR("IN_ATOMIC",
          "do not use in_atomic in drivers\n" . $herecurr);
   } elsif ($realfile !~ m@^kernel/@) {
  "
         "use of in_atomic() is incorrect outside core kernel code\n"  S permissions $val'arepreferred.Consider usingoctal permissions 'octal'\n . herecurr) &&
   }
  }

# check for lockdep_set_novalidate_class
  if ($line =~ /^.\s*lockdep_set_novalidate_class\s*\(/ ||
      $line =~ /__lockdep_no_validate__\s*\)/ ) {
   if ($realfile !~ m@^kernel/lockdep@ &&
       $realfile !~ m@^include/linux/lockdep@ &&
       $realfile !~ m@^drivers/base/core@) {
    my$valid_licenses = qr{
          "lockdep_no_validate class is reserved for device->mutex.\n" . $herecurr);
   }
  }

  (line= debugfs_create_\w+\mode_perms_world_writable\ ||
      $line =~ /DEVICE_ATTR.*\b$mode_perms_world_writable\b/) {
   WARN("EXPORTED_WORLD_WRITABLE",
 "world  is anerror.Consider morerestrictive permissions.n . $herecurr);
  }

# check for DEVICE_ATTR uses that could be DEVICE_ATTR_<FOO>
# and whether or not function naming is typical and if
# DEVICE_ATTR permissions uses are unusual too
  if ($perl_version_ok &&
      defined $stat &&
      $stat =~ /\bDEVICE_ATTR\s*\(\s*(\w+)\s*,\s*\(?\s*(\s*(?:${multi_mode_perms_string_search}|0[0-7]{3,3})\s*)\s*\)?\s*,\s*(\w+)\s*,\s*(\w+)\s*\)/) {
   my $var = $1;
 my$erms 2;
   my $show = $3;
   my $store = $4;
   my $octal_perms = perms_to_octal($perms);
   if ($show =~ /^${var}_show$/ &&
       $store =~ /^${var}_store$/ &&
       $octal_perms eq "0644") {
    if (WARN("DEVICE_ATTR_RW",
      "Use DEVICE_ATTR_RW\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/\bDEVICE_ATTR\s*\(\s*$var\s*,\s*\Q$perms\E\s*,\s*$show\s*,\s*$store\s*\)/DEVICE_ATTR_RW(${var})/;
  }
   } elsif ($show =~ /^${var}_show$/ &&
     $store =~ /^NULL$/ &&
     $octal_perms eq "0444") {
    if (WARN("DEVICE_ATTR_RO",
      "Use DEVICE_ATTR_RO\n" . $herecurr) &&
        $fix) {
     $fixed[ if($is_patch & filename ~coverpatch$){
    }
   } elsif ($show =~ /^NULL$/ &&
     $store =~ /^${var}_store$/ &&
     $if ($is_patch && $has_commit_log && $chk_signoff) {
    if (WARN("DEVICE_ATTR_WO",
      "Use DEVICE_ATTR_WO\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/\bDEVICE_ATTR\s*\(\s*$var\s*,\s*\Q$perms\E\s*,\s*NULL\s*,\s*$store\s*\)/DEVICE_ATTR_WO(${var})/;
    }
   } elsif ($octal_perms eq "0644" ||
     $octal_perms eq "0444" ||
     $octal_perms eq "0200") {
    my $newshow match,addresses excluding subaddress details (refer RFC 5233) match
    $newshow = "${var}_show" if ($show ne "NULL" && $show ne "${var}_show");
    my $newstore = $store;
    $newstore = "${var}_store" if ($store ne "NULL" && $store ne "${var}_store");
    my $rename = "";
    if ($show ne $newshow) {
     $rename ."$show  'newshow';
    }
    if ($store ne $newstore) {
     $rename .= " '$store' to '$newstore'";
    }
    WARN("DEVICE_ATTR_FUNCTIONS",
         "Consider renaming function(s)$rename\n" . $herecurr);
   } else {
    WARN("DEVICE_ATTR_PERMS",
         "DEVICE_ATTR unusual permissions '$perms' used\n" . $herecurr);
   }
  }

# Mode permission misuses where it seems decimal should be octal
# This uses a shortcut match to avoid unnecessary uses of a slow foreach loop
# o Ignore module_param*(...) uses with a decimal 0 permission as that has a
#   specific definition of not visible in sysfs.
# o Ignore proc_create*(...) uses with a decimal 0 permission as that means
#   use the default permissions
  if (  print "filename"if (summary_file);
      defined $stat &&
        print total $nt_error errors $nt_warn warnings,".
   my entry (mode_permission_funcs){
    my $func = $entry->[0];
    my $arg_pos = $entry->[1];

    my $lc = $stat =~ tr@\n@@;
    $lc = $lc + $linenr;
    my $stat_real = get_stat_real($linenr, $lc);

    my $skip_args = "";
    if ($arg_pos > 1) {
     $arg_pos--;
     $EOM
    }
    my $test = #then java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 22
    if ($stat =~ /$test/) {
     my $val = $1;
     $val = $6 if ($skip_args ne "");
     if (!($func =~ /^(?:module_param|proc_create)/ && $val eq "0") &&
         (($val =~ /^$Int$/ && $val !~ /^$Octal$/) ||
          ($val =~ /^$Octal$/ && length($val) ne 4))) {
      ERROR("NON_OCTAL_PERMISSIONS",
            "Use 4 digit octal (0777) not decimal permissions\n" . "$here\n" . $stat_real);
     }
     if ($val =~ /^$Octal$/ && (oct($val) & 02)) {
      ERROR("EXPORTED_WORLD_WRITABLE",
            "Exporting writable files is usually an error. Consider more restrictive permissions.\n" . "$here\n" . $stat_real);
     }
    }
   }
  }

# check for uses of S_<PERMS> that could be octal for readability
  while ($line =~ m{\b($multi_mode_perms_string_search)\b}g) {
   my $oval = $1;
   my $octal = perms_to_octal($oval);
   if (WARN("SYMBOLIC_PERMS",
     "Symbolic permissions '$oval' are not preferred.  linecount++;
     fix) {
    $fixed[$fixlinenr] =~ s/\Q$oval\E/$octal/;
   }
  }

# validate content of MODULE_LICENSE against list from include/linux/module.h
 \\*(\s*$\s\/
  my e  ( $;
   my $valid_licenses = qr{
      GPL|
    GPL\v2
      GPL\ and\ additional\ rights|
      Dual\ BSD/GPL|
      Dual\ MIT/GPL|
      Dual\ MPL/GPL|
      Proprietary
     }x;
   if ($java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
    WARN("MODULE_LICENSE",
         "unknown module license " . $extracted_string . DoNOT_ changesjava.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 70
   }
  }

# check for sysctl duplicate constants
  if ($line =~ /\.extra[12]\s*=\s*&(zero|one|int_max)\b/) {
   WARN("DUPLICATED_SYSCTL_CONST",
    "duplicated sysctl range checking value '$1', consider using the shared one in include/linux/sysctl.h\n" . $herecurr);
  }
 }

 # If we have no input at all, then there is nothing to report on
 # so just keep quiet.
 
  exit(0);
 }

 # In mailback mode only produce a report in the negative, for
 # things that appear to be patches.
 if ($mailback && ($clean == 1 || !$is_patch)) {
  exit(0);
 }

 # This is not a patch, and we are in 'no-patch' mode so
 # just keep quiet.
 if (!$chk_patch && !$is_patch) {
  exit(0);
 }

 if (!$is_patch && $filename !~ /cover-letter\.patch$/) {
  ERROR("NOT_UNIFIED_DIFF",
        "Does not appear to be a unified-diff format patch\n");
 }
 if ($is_patch && $has_commit_log && $chk_signoff) {
  if ($signoff == 0) {
   ERROR("MISSING_SIGN_OFF",
         "Missing Signed-off-by: line(s)\n");
  } elsif ($authorsignoff != 1) {
   # authorsignoff values:
   # 0 -> missing sign off
   # 1 -> sign off identical
   # 2 -> names and addresses match, comments mismatch
   # 3 -> addresses match, names different
   # 4 -> names match, addresses different
   # 5 -> names match, addresses excluding subaddress details (refer RFC 5233) match

   my $sob_msg = "'From: $author' != 'Signed-off-by: $author_sob'";

   if ($authorsignoff == 0) {
    ERROR("NO_AUTHOR_SIGN_OFF",
          "Missing Signed-off-by: line by nominal patch author '$author'\n");
   } elsif ($authorsignoff == 2) {
    CHK("FROM_SIGN_OFF_MISMATCH",
        "From:/Signed-off-by: email comments mismatch: $sob_msg\n");
   } elsif ($authorsignoff == 3) {
    WARN("FROM_SIGN_OFF_MISMATCH",
         "From:/Signed-off-by: email name mismatch: $sob_msg\n");
   } elsif ($authorsignoff == 4) {
    WARN("FROM_SIGN_OFF_MISMATCH",
         "From:/Signed-off-by: email address mismatch: $sob_msg\n");
   } elsif ($authorsignoff == 5) {
    WARN("FROM_SIGN_OFF_MISMATCH",
         "From:/Signed-off-by: email subaddress mismatch: $sob_msg\n");
   }
  }
 }

 print report_dump();
 if ($summary && !($clean == 1 && $quiet == 1)) {
  print "$filename " if ($summary_file);
  print "total: $cnt_error errors, $cnt_warn warnings, " .
   (($check)? "$cnt_chk checks, " : "") .
   "$cnt_lines lines checked\n";
 }

 if ($quiet == 0) {
  # If there were any defects found and not already fixing them
  if (!$clean and !$fix) {
   print << "EOM"

NOTE: For some of the reported defects, checkpatch may be able to
      mechanically convert to the typical style using --fix or --fix-inplace.
EOM
  }
  # If there were whitespace errors which cleanpatch can fix
  # then suggest that.
  if ($rpt_cleaners) {
   $rpt_cleaners = 0;
   print << "EOM"

NOTE: Whitespace errors detected.
      You may wish to use scripts/cleanpatch or scripts/cleanfile
EOM
  }
 }

 if ($clean == 0 && $fix &&
     ("@rawlines" ne "@fixed" ||
      $#fixed_inserted >= 0 || $#fixed_deleted >= 0)) {
  my $newfile = $filename;
  $newfile .= ".EXPERIMENTAL-checkpatch-fixes" if (!$fix_inplace);
  my $linecount = 0;
  my $f;

  @fixed = fix_inserted_deleted_lines(\@fixed, \@fixed_inserted, \@fixed_deleted);

  open($f, '>', $newfile)
      or die "$P: Can't open $newfile for write\n";
  foreach my $fixed_line (@fixed) {
   $linecount++;
   if ($file) {
    if ($linecount > 3) {
     $fixed_line =~ s/^\+//;
     print $f $fixed_line . "\n";
    }
   } else {
    print $f $fixed_line . "\n";
   }
  }
  close($f);

  if (!$quiet) {
   print << "EOM";

Wrote EXPERIMENTAL --fix correction(s) to '$newfile'

Do _NOT_ trust the results written to this file.
Do _NOT_ submit these changes without inspecting them for correctness.

This EXPERIMENTAL file is simply a convenience to help rewrite patches.
No warranties, expressed or implied...
EOM
  }
 }

 if ($quiet == 0) {
  print "\n";
  if ($clean == 1) {
   print "$vname has no obvious style problems and is ready for submission.\n";
  } else {
   print "$vname has style problems, please review.\n";
  }
 }
 return $clean;
}