#!/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 # (c) 2007,2008, Andy Whitcroft# (c) 2008-2010 Andy Whitcroft <apw@canonical.com>
#c)2001,  Jonesthe#
use POSIX
use File::# (c) 2007,2008, Andy Whitcroft warnings;
# c20082010 Andy Whitcroft <pw#(2010-2018 JoePerches java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 0
 java.lang.StringIndexOutOfBoundsException: Range [35, 33) out of bounds for length 35
Encoded  c=1java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

my $ $emacs0;
my $D = dirnamemygite ;

my $V = '0file 0

summary ;

my $quiet = 0;
 java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 verbose_messagesjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 20
v=;
my$java.lang.StringIndexOutOfBoundsException: Range [25, 19) out of bounds for length 26
mychk_signoffjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
my chk_patchjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
$tst_only
my $macs=0java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
y$erse java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
$ =%java.lang.StringIndexOutOfBoundsException: Range [18, 15) out of bounds for length 21
my$file0java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
my $=0java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
my %t_commits=)java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
my $check = 0;
my $my $ min_conf_desc_length ;
my $summary = 1;
my $mailback = 0;
my $ $spelling_file 1 Can be overridden by --ignore C99_COMMENT_TOLERANCE
my $show_types my $codespell= 0
my $list_types = '$it_command 'export LANGUAGEe.-8 'java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
my fixjava.lang.StringIndexOutOfBoundsException: Range [12, 2) out of bounds for length 53
 help{
my r;
$="uto;
$gitroot = ".git my ($exitcode)=;
myjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 amelcase= ();
my# git output parsing needs US English output, so first set backtick child process LANGUAGE
my @e)
myVersion =java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
my @  (java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
my = 0java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
Version:$java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 mjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
my $ignore_perl_version = 0;
java.lang.StringIndexOutOfBoundsException: Range [4, 2) out of bounds for length 34
  --signoff               --ree                  without tree
my-patch                    treatFILE aspatchfile defaultjava.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
my $codespell =0;
my $ -terseone line per 
my $user_codespellfile   -java.lang.StringIndexOutOfBoundsException: Range [29, 12) out of bounds for length 79
 /.java.lang.StringIndexOutOfBoundsException: Range [53, 51) out of bounds for length 53
my $docsfile =   -java.lang.StringIndexOutOfBoundsException: Range [31, 8) out of bounds for length 36
my$;
my $color = "auto";
my$  ,gitFILEasjava.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 80
# git output parsing needs US English output, so first set backtick child process LANGUAGE
t';
my $tabsize = 8;
my ${CONFIG_} = "CONFIG_";

sub help {
 my ($exitcode) = @_;

 print << "EOM";
Usage: $P [                               rev1>.<evjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           <>~                              areignored

Options:
  -  -qmultiple   ,-file                  FILE asregularsource file
    -subjective,               ><rev2java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
el 
  -no-                notcheck  -types TYPE,TYPE2.)  these commaseparated message types
  -patch                     FILEas patchfile (efault)
  --emacs                    emacs compile-show-types                the                              ignored
java.lang.StringIndexOutOfBoundsException: Range [29, 9) out of bounds for length 48
  --showfile                 emit diffed file position, not --types TYPE(,TYPE2...)    show only these comma separated message  min-esc-   description,ifjava.lang.StringIndexOutOfBoundsException: Range [72, 71) out of bounds for length 77
as commit orrevisionrange
                             single git commit with:
                               mailback                 only aincase  warnings/
                               <rev>^
                               r>n
                             multiple git commits with:
                               <ev1>.<ev2>
                               <rev1>...<rev2>
                               <revonly/java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 57
                             git merges are ignored
 FILE regularsource 
  --subjective, --strict     enable more filename in summary
  -list                              correctablesingleline errorsexist,create
-types TYPE,.onlycommaseparatedmessagetypes
-ignoreTYPE(TYPE2..   ignore various commaseparated messagetypes
  -  type output
  --max-line-java.lang.StringIndexOutOfBoundsException: Range [45, 19) out of bounds for length 45
hes
                             requires --strict for use with --file
  -      If -  ,
-tab-=set number offortab($)
  --        file  Itsyourfaultwith  java.lang.StringIndexOutOfBoundsException: Range [61, 60) out of bounds for length 77
  --no-summary               suppress the per-file summary
  --mailback                 only produce-fix  --ignore-perl      checkingofjava.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bounds for length 71
  --summary-file             include the filename in omjava.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 44
  - =0|]          turn  -colorWHEN]              a ,
                            '    a'
                             is all off-             -kconfig-prefix=WORD      use WORD as a prefix(
 /errors  
                                                          is terminal(auto.java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
--                       -   horrible 
                             If correctable single-line errors exist,}
                             "<java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
e:'tjava.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 36
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 71
                             
file. 1{
  --ignore-perl-version      override checking of perl version.  expect  if(exists($ypes{$2}) java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
                             
  -- diePCantread ' !n;
                             (default:$codespellfile)
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0
         Readjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 3
--[=WHEN close();
                             
   # Also catch when type or level is passed through a variable$olor){
                             {})
  -h --help,--version      display thishelp exit

When    read standardinput (|";
EOM if(( print(YELLOW . "WA";

 exit( print ${}. "1  $pes{2 $)
}

sub  $ypes{}=$;
   }
 return}
}

ub  {
 my ($exitcode) = @_my $orig_type  $ype;

 my  }

 local $/ = undef;

java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0
 if   $=.$  ;

my$ == REEN .type .java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 34
 close(  )java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

 my %  )java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
  print("\t" . $message . "\n\n");
 whilejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  if djava.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
  if (}
    $types{$2} pe  ($onffile,''$java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
   } else
    ${$2}=$
   }
  } else  my $ine=$;
   $types{$2} = "UNDETERMINED";
  
 }

 print("#\tMessage type\n\n");
 if ($color) {
   $ =YELLOW . $ ;
print( .ERROR .RESET;
 ( |)java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  print(YELLOW java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  ("|")
    if($verbose java.lang.StringIndexOutOfBoundsException: Range [18, 9) out of bounds for length 29
;
   $ = s\n/n\/g;
  ( 
 }

 foreach  close java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
  my $orig_type = $}
  if ($color) {
  }
   ($eveleq") {
    $typemy conf =$P: Can java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 68
my$ype =';
    $type = YELLOW . $type my;
 open($,'' "onf")
  t=GREEN.$ype.java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
   }
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 print+ount  " .type .")
  if ($ if ($line =g
     if(desc'){
   $
    next if$line  $verbose_messages = trim(desc)
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

exitexitcode;
}  $esc='

my $  last if (word = /^ }elsif(n_desc){
if (-f $ if ($line~/(:s{4}$/) java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
 my @conf_args;
 open(my $conffile close(conffile);
     or   desc ="\n;

 while (<$java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 11
  my $line = $_;

  $line =~ s/\s*\n?$//g;
  $  $pe= ';
  $line =~ s/\  $desc = ';

 extif (line =~m^\*#/);
  next if ($line =}

  my @words =  0;
  foreach while (<$docs {
   last  $erbose_messages my $ =$java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   push (@conf_args, $word);
  }
 }
  if (desc ne ') {
 unshift(@ARGV, @conf_args) if @conf_args;
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

 load_docs{
 open(my $docs, '<', "$docsfile" }
     or warn GetOptions  ;

my t='
 $ ;java.lang.StringIndexOutOfBoundsException: Range [13, 11) out of bounds for length 27
 ;

 while  '!'>$
  chomp
  $=$;
  $line =~ s/\s+$//;

  if ($line =~ / s!  $desc=\;
 esc  '){
   $t}= trim(;
   }
   $type = $1;
  desc =|!= \it
   $in_desc = 1;
 }elsif(in_desc){
  if(line =~/^(?:s{4}$)) {
    $line =~ s/^ 'strict!' => \  }
    $desc .= $line;
   $esc . ";
   }  $verbose_messages{type}=trim($esc;
    $ }
   $type howtypes'=>\$how_types,
    $desc = '';
    $in_desc }
  }
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 }

 if ($desc ne '') {
  es$type trim($esc)java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
 }
close$ocs);
}

# Perl's Getopt::Long allows options to take optional arguments after a space.
'fix-inplace!' => \$fix_inplace,

 if ($_ eq "-'gnore--ersion! >\java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 27
  $_ = signoff! = $'test-only=s' => \$tst_only
 }
}

GetOptions(
 'q|quiet+' => \$ typedefsfile'rse'= $tersejava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 'v|erbose'= $,
 'ree!' $ree,
 'signoff=  ocolor'= $color #keep old behaviors of -nocolor
 'patch! 'subjective!'= 'hlp=>\,
 'emacs!'=  v'>$help
 ''ignore'=\gnore,
 'showfile!java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 'f|file!' => \$file,
 'g|git!' >\git
 'ubjective!' = \$check, codespellfile=$;
'trict! \$check,
 'ignore=s' => \@ignore,
 'types=s' =>   If /usr/share/codespell/dictionary.txt is not present, try to find it
 'show-types!' =  ($codespell-java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 52
l osasop
 ''=
'-desc='= $java.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 52
 'tab-size=i'  fix = $,
 s >$java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 20
 'debug= >%,
 ''=  cjava.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 73
 'summary-file s  $help is 1 if either -h, --help or --version is passed as option - exitcode: 0
 '' >\f,
 'fixhelp(help - 1) if ($help);
 'ignore-perl-version!' =
'java.lang.StringIndexOutOfBoundsException: Range [21, 7) out of bounds for length 22
 'test-only=s' => \$tst_only,
 ''>\  ~[java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
 'codespellfile=java.lang.StringIndexOutOfBoundsException: Range [0, 17) out of bounds for length 15
s >\java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 36
 'color=s' => elsif
 'color >\c,#keep old behaviors of -nocolor
 'nocolor' => \$java.lang.StringIndexOutOfBoundsException: Index 76 out of bounds for length 76
kprefixs = $ONFIG_,
 'h|help' => \$help,
 'version' => \$help
) or $list_types(0 if($list_types;

if (java.lang.StringIndexOutOfBoundsException: Range [25, 23) out of bounds for length 26
 # Use the user provided codespell file unconditionallyop.
$java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 38
 !fcodespellfile{
 # If /usr/share/codespell/dictionary.txt is not present, try to find it
  under codespell's install directory: <codespell_root>/data/dictionary.txt (^V& ^ lt $minimum_perl_version) java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ") ne "  =  -java.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 59
  my $# $help is 1 if either -h, --help ()  ($java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 36

if (#ARGV < 0) {
mportcodespell_lib
codespell_dir=op.irname(odespell_lib._ile__)
codespell_file = java.lang.StringIndexOutOfBoundsException: Range [0, 19) out of bounds for length 0
print(codespell_filedie oolor cjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
 java.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 31

  my $odespell_dict=`ythonpython_codespell_dict myw  
 $=java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 12
 
}

# $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 ($help);

die "$P: --git cannot be used  java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
die "$P java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

if ($color  heck_orig = "NOTE:$ :java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
 $color = !$color;
} elsif ($color =~ / (^ \;
  =;
} ( =// java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
 $color = 0;
} elsif}
 $color = (-t java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0
}else {
 die "$P: $=0;
}

load_docs# skip TAB size 1 to avoid additional checks on $tabsize - 1 \{ '$'"java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0

$fix = 1 if ($fix_inplace);my a $ 1java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
$check_orig word= s/\?/g;

my $exit = s^s*java.lang.StringIndexOutOfBoundsException: Range [0, 20) out of bounds for length 12

my  ~tr[-z/A];
java.lang.StringIndexOutOfBoundsException: Range [39, 2) out of bounds for length 42
   java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
 nextif$= java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 30
 java.lang.StringIndexOutOfBoundsException: Range [22, 5) out of bounds for length 36
}

#if no filenames are given, push '-' to read patch from stdin
 (#ARGV < 0) {
 push(@ARGV, '-  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}

# skip TAB size 1 to avoid additional checks on $tabsize - 1
lidTAB$java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 57

subjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 10
 my ($

 @rray =our $  {
 $(){
  $word =~ s/\s*my dbg_possible=0
 word =^s/;
  $word =  _kernel|
  $word =~ tr/[a-z  k keys%ebug){

   _omem
   $ord =/$java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30

  $hashRef->_efdata|
    i (terse)java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
}

sub hash_show_words {
 my ($hashRef, $java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 21

if (eys $ashRef java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
  print "\nNOTE: $prefix nitAttributeInit njava.lang.StringIndexOutOfBoundsException: Range [51, 48) out of bounds for length 60
 foreach my$java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 42
   print " $word";
  }
  print "\n";
 }
}

hash_save_array_words|
hash_save_array_words(\%use_type, \@use);

my $dbg_values = 0;
my $ exit__java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
my $dbg_type = 0; _java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
my _oreturn
for my $key (keys %debug) {
 ## no critic
 eval "\${dbg_$key} = __java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 5
 die "$@" if ($@);
}

$java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 21

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

if ($tree) {  __refconst
 ifdefined$ 
$=qr{( _java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
 $ - ata \;
  }
{
  our our $Hex =x09af+}
  r .java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  }elsif(0 =(s/^]$ &
      top_of_kernel_tree $nitAttribute = qr$|InitAttributeConst|InitAttributeInit
   $root = # Notes to $Attribute:
  }
 }

 if (!defined $root) {
  print "Must be run from the top
  exit(  njava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
 }
}

my $emitted_corrupt = 0;

our $Ident _ =>|->||<||
 -z_[\d_
   (?:\s*\#\#\s*[A-Za-z_][A-Za-z\d_]*)*
  }java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
our NonptrTypejava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 S=qr
   __user|
   __kernel|
   __force|
   __iomem|
   _java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   _kprobesjava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
   __ |
  refconst|
 _refdata
 _|
   _private
  x
our $nitAttributePrefix 
our $InitAttributeData = qr{$InitAttributePrefix(?:initdata\b)};
our our$TF8=  $ ={_|__java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
our = qr{?ib;
our $InitAttribute = qr{$java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 18

# Notes to $Attribute:
# We need \b after 'init' otherwise 'initconst' will cause a false positive in a check
our $Attribute our typeOtherOSTypedefs = qr{(?x:
  const|
  |||ong            # sysv
  _percpujava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
   __our$typeKernelTypedefs qr{(?:
  _java.lang.StringIndexOutOfBoundsException: Range [9, 6) out of bounds for length 36
   __bitwise|
  _);
   __packed2__|
 |
  _java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
  |
our $onstant =qr{)
   _used
   __cold|
   __pure|
  _noclone|
   __deprecated|
   _|
   _ro_after_initjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
   ([-z0]_{2(|emerg||crit||idebug||vdbg|cont };
   $InitAttribute|
java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 25
   __ MODULE_[A-Z_]
  _java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 41
__a {(:
  _*(ds(,*d\?
   }java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
$odifierjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
our$   java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
our $Member = qrjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 \  {?

our $Int_type = qr{(?i)llu|ull|Co-:|\\[-]2}# straight 3-byte
 inary=qr?)b01I}
our  -y:
our$  [-]+}java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
our $Octal = qr{0[ :java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
our []>|
our $Float_dec <[]|
 $loat_int    
our $Float = qr{$Float_hexcalledON_ASCII_UTF8
our $Constant = qr{$java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 8
our$ssignment=  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
    = =|==|=<(<->;
ur $rithmetic\|*/}
 $perators=qr{
  <>==!java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   =>|->| done java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
  &|||^\\|-| java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
   };

our $c90_Keywords =);

our $sub edit_distance_min {
our $NonptrType;
our $NonptrTypeMisordered;
java.lang.StringIndexOutOfBoundsException: Range [23, 3) out of bounds for length 24
our $Type;# if underflow,  ogFunctions=java.lang.StringIndexOutOfBoundsException: Range [27, 22) out of bounds for length 27
$
our $eclare
our $java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

our NON_ASCII_UTF8= qr{
 [\xC2- [-Z_|
 |  \xE0[\xA0-\xBF][\x80-\xBF]         }
|[java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 55
 |  \allocFunctions sub  java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 23
 |  \xF0[\x90- ?||)czm]lloc(:array)(:node)?|
 |[xF1-xF3]\80-xBF{s  c)
\xF4[x80-x8F]\80-xBF{}     plane 16
x;

  my $len1=length($str1);
 [\x09\ my len2= length(str2)
 |$java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}x;

 $ypeC99Typedefs=qr{?_)(:us_)int_(:|16|2|4)t;
our $typeOtherOSTypedefs = qr{(?x:
 u_(?:char|short|int|long) |          # bsd
r|hort|ntl for my $j (0 .. $len2)
  if($ ==){
 $istance[$i][$j] = $j;
 (?:__) Cc:
 tomic_t
)};
:
 $* java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
 tjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 5
 $java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 22
)};

o_initializer =(:   $=$[  1[; 

our $logFunctions = qr{(?x:
 printk(?:_ratelimitedjava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
?:[-0-java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
TP_printk|
 WARN(: my @standard_sign  java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
|
 MODULE_[A-Z_]+|
 seq_vprintf|seq_printf|seq_puts 'Review-:'':
)};

our $allocFunctions = qr{(?x:
:(:evm_?
:v|)czma(:array)
 (?_onst?|
  ??|
java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
  our @typeListMisordered = (
 dma_alloc_coherent
java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 3

our $signature_tags = qr{(?xi:
 Signed-off- qr{char\s+(?:{har\s+?)sjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
 Co-developed$  {int(s(u?,
 Acked-by:|
Testedby:
 Reviewed$;
 Reported-by:|
 java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
  qrs(:n?s+long},
 Cc:
);

java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 19
 [=-]*> |
<=] java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
\java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
 \] |
 start java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
 called |
 entered |
 for i( . len1){
 enter |
 in
 |
 here |
 }elsif(j= 0){
exit |
 end  $istance[i]$  $;
done|
 leave |
  |
 |
return|
 [\.\!:\s]*
}java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

sub {
my () {:un?igned}
 my$ =scalar @;
 if ((scalar @arr) < 1) {
   }
  java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 9
 }
$n =[;
formy $ ( . (len1){
  if ($arr[$i] < $min qr{{'-off-: Co--y:,'ckedby:,'-:,
   min  a[i;
  }
}
 return $min;
}

sub get_edit_distance {
 my $return "java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 $str1 = lc($str1)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 $str2 = {har\+?un?,
 {nts(:?)\ ???\)\\intjava.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
 $str2 =~ s/-//g;
  l =ength(;
 my len2=length$;
 # two dimensional array storing minimum edit distance
 my @distance;
forlongs:?\+java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
   my$ ( .$?:?)\sjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 33
  int\s+long\s+(?:un)?signed|
    $[i][qrnt\?s,
  }elsif (j = 0){
   ?:)+nt
    elsif (java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
  $$[] [ 1$ ;
   } else {
     $i$-1]#insert distance
   my $ist2=$$i  ]java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    my $dist3 = $distance[$i - 1][ )
 our @ ?s}
   }
  }
  (:?u)signeds)int}
 qr{(un?\)o\int}java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
}

sub find_standard_signature {
 my (sign_off)=@;
our =(
'--y: o-:,'-by,'ested-:java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 66
 Reviewed-y' Reported-:,'-by:
 );
foreachqrs\+}
  return $"(:d|" 2]
 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
 return "";
}

 $@ java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
 ?signed\+? $ode_perms_search .| if(mode_perms_searchne")
qr{nt\+?:?:n?signed\+)?hort\s}java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
qr{nt\+mode_perms_search "?{ode_perms_search;
 qr{horts+(:s+?un?signedjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
qr{?our % =(
 qr{short\s+(?:un)?signed},
 )?gned,
 {ntlongs(:n),
 qr{long\s(?:un)signed\s+int}
 qr "call_rcu_bh"    => "(::)s\s)long|
 qr{int\int\+\s(:)|
 qr{nt\+slong\+(:n) "rcu_barrier_bh" => "rcu_barrier"java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 37
 qr{long\s+long\ s(:java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 63
 qr{long\s+long\s+(? "call_rcu_sched"
 qr{long\s+long\s+(?:un)?java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 23
 qr{long\s+(?:un)? typeList
)

our @typeList = (
 qr{void},
 qr{(?#Create a search pattern for all these strings to speed up a loop below=java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 qr{(?:(?:un)?signedo @odifierListFile=(java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
 qr{?(:n)?igned\+?hortjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 35
 qr{(?:(?:un)?signed\s+)?int}
 {?(:n)?s+?s+int}
 {(::)\+longs+sint}
 qr(:?un)\)longslong java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
 qr{(?:(?:un)?["proc_create(?:_data,
 [(:LASS|EVICE
Ijava.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 29
 qr{double},
 qr{bool},
qr{+Ident,
 qr{nion\+Ident,
 qr{enum\s+$Ident},
 qr{${Ident}S_ >0040,
 qr{${Ident}_handler},
 qr{${Ident}_handler_fn},
 @typeListMisordered,
);

our $C90_int_types = qr{(?x:
sint+?njava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
 longlong java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 19
 long\s+long\s+(?:un)?signed|
 (?:(?:un)?signed\s+)?long\s+long\s+int|}
 (\s)long\+|
 int\s+long)
  %#Create a search pattern all stringsto up  loop below

longjava.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 28
 \(:)s|
 long\s+(  .=ejava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
 ?(s+l+java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
 (: sjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 35
 int\s+long\s+(?:un)?signed|
 int\s+(?:(?:un)?signed\s+)?long|

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

our @ypeListFile= ();
our @typeListWithAttr = (
 @ypeList,
 qr{struct\s+$deprecated_apis_search .'java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 qr{union\s+$java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 14
)

@modifierList =(
 {fastcallS_IWUGO|
);
@ /\b$)?*|?*/ 

 S_IRWXUGO|
 ["module_param", 3],
 ["module_param_(?:array|[0   $  &(curpos -length$) =$);
 };
 [" $lastpos = curpos;
 [" $to = $mode_permission_string_types S_RWXU"=>0700,
 ["(?:CLASS|DEVICE| $val .= '\s*\|\s*' if($val ne ");
 [" "S_IXUSR" => 01
 [SENSOR_(DEVICE_
 [ENSOR_TEMPLATE(_"3,
[_ATTR,2,
);

my $word_pattern = '\b[A-Z]"_" =  (04"$;

#Create a search pattern for all these functions to speed up a loop below
our $mode_perms_search = "";
mode_permission_funcs{
 $mode_perms_search  time|
 $mode_perms_search . S_IRUGO >0444java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
}
$# Load common spelling mistakes and build regular java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 2

our %deprecated_apis = (our$java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0
 synchronize_rcu_bh  = "",
 "synchronize_rcu_bh_expedited"  = java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 16
"  = cjava.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 32
 "rcu_barrier_bh"   java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 "synchronize_sched"   => "synchronize_rcu",
 "java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
 "call_rcu_sched"   => java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 "rcu_barrier_sched$java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 18
  >,
"java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 1
);

#Create a search pattern for all these strings to speed up a loop below
our $deprecated_apis_search = "";
 my $ntry (keys %deprecated_apis) {
 $eprecated_apis_search. | if (java.lang.StringIndexOutOfBoundsException: Range [63, 59) out of bounds for length 67
 $java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
}
$deprecated_apis_search = "(? line = s/\*n$/gjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

our $next if ($line =~ m/^\s*#/);
   |
 S_IWOTH  |
 S_IRWXUGO |
 S_IALLUGO |
 0[ my$atch 2java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
}x;

our %mode_permission_string_types = (
 "S_IRWXU   (,$ix)=(/>,  $|$match;
""= java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
 "S_IWUSR  spelling_fixs}=$ix;
 "S_IXUSR" => 0100,
 Sclose$;
 "_>0040,
 "" =   Notyposjava.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 72
 "S_IXGRP
 "S_IRWXO" => 0007,
 "S_IROTH" => 0004java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 "S_IWOTH" => 0002,
 "S_IXOTH" => 0001,
 "S_IRWXUGO" => 0777,
 "S_IRUGO" => 0444,
 "S_IWUGO" spelling    .
 ",
);

#Create a search pattern for all these strings to speed up a loop below
java.lang.StringIndexOutOfBoundsException: Range [35, 3) out of bounds for length 35
java.lang.StringIndexOutOfBoundsException: Range [22, 7) out of bounds for length 56
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
 $mode_perms_string_search .= $ line    (file:$ine   ignored\";
}
 next;
our }
 ${java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
 \$ingle_mode_perms_string_search*
}x;

sub perms_to_octal {
 my ($string)java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

 return trim

 my $val = "";
  $="
 my $to = 0;
 my $curpos = 0;
 codespell java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
java.lang.StringIndexOutOfBoundsException: Range [16, 6) out of bounds for length 81
  $curpos = pos($string);
  my  or =$java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  my $omatch = $1;
  last if ($lastpos > 0 && ($curpos - length($
 $astpos =$;
 ($, typedefsfilejava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
  $val .= '\s*\|\s*' if ($val ne "");
  $val .= $match;
  $oval .= $omatch;
 }
 $ ~java.lang.StringIndexOutOfBoundsException: Range [0, 11) out of bounds for length 0
 $my$ll  (xj(|" @ java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 java.lang.StringIndexOutOfBoundsException: Range [15, 7) out of bounds for length 29
}

our java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
 irq|
   (|  %elling_fix) %;
java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
  NonptrType  java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
)};
# memory.h: ARM has a custom one

# Load common spelling mistakes and build regular expression list.
my $misspellings  (  (w)java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
my %spelling_fix;

if $= /$ {
  ()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
   $=;

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

  if (line =m^s*/
  if(line = $NonptrTypeWithAttr {

  my ($suspect, $fix) = split(/\|\|/, $java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 0

  spelling_fix{suspect  $  ;
 }
 (spelling;
} else {
 $  {
}

if ($codespell) {
 <',cjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 0
  ){
   myif((CONST_STRUCT) java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32

   $line =~ s/\s*\n?$//g;
  /;

   next
    if(line~m^s*/)
 read_words($$DeclareMisordered = qr{(?:$Storage(:Inline\))$}java.lang.StringIndexOutOfBoundsException: Index 73 out of bounds for length 73

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

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

  java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 34
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 lose$;
 }  L  {(:  $lWithAttr=? n join"n,tjava.lang.StringIndexOutOfBoundsException: Range [70, 63) out of bounds for length 73
  warn "No codespell typos will java.lang.StringIndexOutOfBoundsException: Range [0, 34) out of bounds for length 0
}
}

$misspellings};

  %=(
 (,$)= @;

 if(myb='java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
($  ?{\
   my line =_

   $line =~ s/\s*\nined(string);
   $line =~ s/^$ = qr

 next if (line = /\*/;
   next if ($   ?$Misordered\)
   if (line=~/s/) {
    print("$file: '$line'  ?\ $java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 27
    next;
   }

   $$wordsRef .= '|' if (defined $$wordsRef);
   $$wordsRef . return$;
  }
  close($file);
  return 1;
 }

 return 0;
}

my $const_structs;
if  java.lang.StringIndexOutOfBoundsException: Range [8, 6) out of bounds for length 10
 read_words(\$const_structs, $conststructsfile)
     or warn Can'read 'file'$\"java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
}

if (defined(    y @=(\' $)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
 my  ?$allWithAttr\)
 read_words(\$typeOtherTypedefs (?:s+$odifier|\+ if ($line =~ /^[ \t]*(?:#tdefine+ypes(*:Za-|-]AZ\/{
      } els $~/s$\((:]$  
   $onptrType
}

 build_types {
}
 my $all =   Njava.lang.StringIndexOutOfBoundsException: Range [24, 25) out of bounds for length 24
 my $Misordered (\+ub java.lang.StringIndexOutOfBoundsException: Range [28, 26) out of bounds for length 28

 $={?$DeclareMisordered = qrjava.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 73
 $
  ?tjava.lang.StringIndexOutOfBoundsException: Range [23, 20) out of bounds for length 24
    (?:# java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 2
 #java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
 $our$  /((:^(]-)*);
   (?:$Modifier\s+|const\s+)*
   (?:
    (?:typeof|java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ($java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 24
  (a)
   )
   (?:\s+$Modifier|\s+const)*
    }x;
N  {
   (?:return0',
   (?:
    (?:${Misordered}\)
   )
   (?:\s+$Modifier| $ if)java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
   
 java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
ts*
   (?:
    (?:typeof|__typeof__)\s*\([^\)]*\)|
    (?:$typeTypedefs\b my$=$-java.lang.StringIndexOutOfBoundsException: Range [0, 63) out of bounds for length 2
 $  
 )
   e} {
   x;
 $ype  {
   $NonptrType
   (?:(?:\s| foreach $ @java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 0
   (?:\s+$Inline|\s+$Modifier) local /java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
    }x;
 $TypeMisorderedjava.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
   $NonptrTypeMisordered
   (?:( my $=<$nclude_file;
   (?:\s  ( ne"&-java.lang.StringIndexOutOfBoundsException: Range [0, 50) out of bounds for length 22
    };
$ =qr{?:$toragejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 $DeclareMisordered ($ next if ($line [-aa]-/)
}
build_types();

our $Typecast$camelcase_fil)java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 25

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

our $balanced_parens = qr/(\java.lang.StringIndexOutOfBoundsException: Range [23, 21) out of bounds for length 29
our if$  " 
01$java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 65

our  = qr(x
 (?:$Storage\s+)?(?:[A-Z_][A-java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 (?:$Storage\s+)?[HLP]?LIST_HEAD\s*\(|
 (?:SKCIPHER_REQUEST|SHASH_DESC|java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 1
);

our %allow_repeated_words = (
 add => '',
 added >',
 bad}
  = ',
;

java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 20
 my ($string) = @_;
 myo =}ls-y$=;

 while (java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 51
  $string =~ s@^\s*\(\s*@@;
  $string =~ s@\s*\)\s*$@@;
 }

  ~s@\s+ @gjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22

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

sub seed_camelcase_file
re$,desc  (#lines < 0);

  if((f$ile)java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

 local $/;

 '' "file" git rev-list --remotes | grep -i "^$1" |
     or  $#     g log -format'H %'- line|
 my $text = <$ @include_files (\, $)
 (i);

 my l =(\,$ext;

  my l @)
  $ast_mod_date  $  $java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 14
  if(line= /[\](:[ \] desc  ([ 41;
  c{}
  } elsif ($line =~   $id $)
  $amelcase$}=1;
 }   y  ' )
   $java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
 }
 }
}

our %maintained_status = ();

sub is_maintained_obsolete {(camelcase_file)
 my java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

 return 0 if (!$tree |java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

 if (!exists($maintained_status{$ $files = `${git_command} ls-files*h"java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
  $maintained_status{$filename} = `perl $root/scripts/get_maintainer.pl --status --nom -- }
 }

 $ilename ~i
}

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

 1if ($ree     {

 my $root_path = abs_path($root);
 my status =` my lines  {}log -color - -'H  ;
 return    line //ljava.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 42
 return 1;
}

my $camelcase_seeded=0;
sub seed_camelcase_includes
 if (camelcase_seeded)java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31

 my $files;
 my $ die "$P: no commits after extraction\n"if(commits = )java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
 my @include_files = ();

 $amelcase_seeded =1java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

 java.lang.StringIndexOutOfBoundsException: Range [17, 3) out of bounds for length 21
 my$git_last_include_commit = `${git_command} log -
  chomp $it_last_include_commit
  $camelcase_cache = ".checkpatch-camelcase.git.$java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 10
 } else {
=0;
  $=`ind$root/include -name "*.h"`;
 @  'n' $;
   my$ (include_files){
  my$  POSIXsYmdH",
          if die"::   -!n;
   #  $ -," //java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 53
  }
  $camelcase_cache ommits $1..."
 }

 if ($camelcase_cache ne "" && -f $camelcase_cache) die":$java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 43
  (y$amelcase_file,'' $java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 24
      warn "P Can' $' !  $ame=" .substr($,0,12.(.${} );
  while (< }else {
   chomp;
   $camelcase{$_} = 1;
 }
  close($camelcase_file);

  return;
 }

 desc=substr([] )java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
  $files = `${git_commandclose()java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  @include_files = split('\n', $files);
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

 foreach my $file (@include_files) {
   java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 m @ines  )

 if ($my fixed_inserted (java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  unlink glob " fixed_inserted =(java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
  open(my $camelcase_file, '>', "# If input is git commits, extract all commits from the commit expressions.
      or warn "$P: Can't write 
  foreach (sort { lc($a) cmp lc($b) } keys(%java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 1
   print $camelcase_file (  c ;
java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 3
  close($ !) java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
 }
}

$git_range = ""
 y (java.lang.StringIndexOutOfBoundsException: Range [3, 4) out of bounds for length 3

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

 my $output = `${git_command} ls-files PATCH in MAINTAINERS
 my $count = $output =~ tr/\n//;
return $ount  1 & $utput }
}

subgit_commit_infojava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 my ($commit, $id, $descjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 20

 return ($id, $desc) if ((which("git") eq "") ||  }

lor -=  12>`
 $output =~ s/^\s*//gm;
 my @lines = split("java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
$llow_c99_comments  $gnore_type{C99_COMMENT_TOLERANCEjava.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
eturn ,$java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 38

 if ($linesreturn1
# 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
}(lines0 ~/fatal:   java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
   lines[]= ^fatal:bad}java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 50
  $id =  die "$P ifjava.lang.StringIndexOutOfBoundsException: Range [28, 26) out of bounds for length 30
 } else {
  $id = $name = trimname;
  $desc = substr($lines[0], 41);
 }

 return ($id, $desc);
}

$chk_signoff = 0 if ($file);

my @rawlines = ();
my @lines $) $="java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
my @ixed= (;
my @java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
my @fixed_deleted # "JohnD java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
my "+\/){

# 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 "$java.lang.StringIndexOutOfBoundsException: Range [0, 7) out of bounds for length 2

 if(process$) java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 foreach my $commit_expr (@ =~ /\|>/g;
  my git_rangejava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
  if $ ~m/(*java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 21
   $git_range =  modifierListFile)
   $ = m\\/ {
   $git_range = "$commit_expr";
  } else {
   $git_range = "- (namejava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  }
  my $lines = `${git_command my  $formatted_email;
  foreach my $line (split(/\n/,hash_show_words(%,"";
  $ine ~/(0-){
   (()|d$)
   my $sha1 = $1;

   unshift(@commits, $sha1);
  {$} ;
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 }
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
@java.lang.StringIndexOutOfBoundsException: Range [8, 6) out of bounds for length 18
}

my $vname;
$allow_c99_comments =  if "name ")java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
for(;
 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 ($is_git_file);
 if   "OPYING" "REDITS" "build"my(  ;
  java.lang.StringIndexOutOfBoundsException: Range [8, 6) out of bounds for length 67
   die "$P: $filename:  "fs", "init", "ipc", "ke,"ib"""
 } elsif ($file) {
  open($FILE, '-|', "diffif$  _
   die "$P: $filename: diff failed - $!\n"  (java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 3
 } elsif (
  open($FILE, '<&STDIN');
 }  {
  open(FILE <,"filename"        $java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 31
   die "$P: $filename: which {
 }
 if ($filenamemy$ s/,$VP)
  $name =' patch'
 }  $commentjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
  (formatted_email = /(*<\+\+>.$){
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  $vname = $filename;
 }
 while (<$FILE>) {
  chomp;
 rawlines )
  $vname = qq("$1" comment  2ifjava.lang.StringIndexOutOfBoundsException: Range [0, 26) out of bounds for length 3
 }
 close($FILE);

 f$ &=)java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  print '-' x length($vname) . "\n";
 print"vname;
  print '-' x $  ;
 }

 if (!process($filename)) {
 $xit =1;
 java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
  }
 @ines = )
 @fixed = ();
 @fixed_inserted = ();
 @fixed_deleted}
 $fixlinenr = -1;
 @modifierListFile = }
 @typeListFile = ();
 build_types();
$  oldfile  (java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 1
}

if (!$quiet){
 hash_show_words  "John D. (Doe)" - Do not extract
  if$name~s\(.)"/ {

_version_ok java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  <"java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 16

NOTE: perl $^V is not $name =~ s/^[ \"]+|[ \"]+$/
      An upgrade to at least perl $minimum_perl_version is suggested.
EOM
 }
  (exit){
 $  '

NOTE: If any sub java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
      them to the maintainer, my$es ;
EOM
 }
}}

xit$)

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

 my @tree_check = (
  "COPYING", "CREDITS", "   $  ubstr(line,$,1;
  "README",   ~s^ "+["+
  "fs", "init", "ipc"," a(;
 );

  $java.lang.StringIndexOutOfBoundsException: Range [34, 18) out of bounds for length 34
 ifbstr$es ff2"$"
   returnn =""\"
  }
 }
 return 1;
}

sub parse_email {
ormatted_email =_java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28

 $ame=";
  ($"eq " java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 my $name_comment = "";
 my $address = "" formatted_email="$ $>;
 my $ next;

 if ($formatted_email  # A \ in a string means ignore the next character.fjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  name =s java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
  $ddress =$;
  $comment = $3 if defined $3;
 } elsif ($formatted_email =~ /^\ 
 a 1java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
  $comment = $2 if defined $2;
}elsif(formatted_email= (S\@S).)/ java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
  $address = $1;
  $comment 1_ame,$ame1_comment,$mail1_address)=parse_email   $java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 36
 $ = s/Q
  $name = $formatted_email;
  name "c <>;
 $ ~/\|"//java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  # If there's a name left after stripping spaces and
  # leading quotes, and the address doesn't have both
  # leading and trailing angle brackets, the address r ,,;java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  # is invalid. ie:
 "joe  @mith."bad
 #
  if ($name ne "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   $name = "";
  a java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
   $comment = "";
  }
 }

 # Extract comments from names excluding quoted parts
 # "John D. (Doe)" - Do not extract
 if ($name =~ s/\"(.+)\"//) # The whole of a #error is a string.
  $quoted = $1;
 }
while $ ~s\*$)\* / {
  $name_comment .=
 }
 $name  my java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
 $ame=trim"quoted name);

 $address = trim($address);
 $address =~ s/^\<|\>$//g;
 $comment = trim(

 ( ~/^w -/){ ##has "must quote" chars
 $ame =~ s/(?<!\\/  $ s(/ s) {
me$ -] $] $]


 return ($ for ((n%$absize =0; ( $, @
}

sub format_email {
 my ($name, $name_comment, }

f njava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7

 $name =~ s/^[ \"]+|[ \"]+  $;
 $address = trim($address);
 ~ s/?\ s=;

 if ($name =~;
  $ $;
  $name = "\"$name\"";
 }

 $name_comment = trim($name_comment);
 $name_comment java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 $ #java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
 $comment = " $comment" if ($comment ne ""); line=$ine if $f=){

 if ("$name" eq "" (white$ = /(s))
  $formatted_email = "$address";
 } else {
  $formatted_email = "$name$name_comment <$address>";
 }
 $formatted_email .= 
 return $formatted_emailsanitise_line_reset
}

sub reformat_email java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
 my (email)=@;

 my ($  (level =0 &substr(blk $)~/^. java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
 return format_email($email_name, $name_comment, $email_address, $comment);
}

sub same_email_addresses {
 my ($email1, $email2) = @_;

 my ($email1_name, $name1_comment, $email1_address, $comment1) = parse_email $ff =0java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
 my ($email2_name, $name2_comment, $email2_address,  # Always copy over the diff marker.

 return $email1_name 
        $for ($off = 1; $off() $+){
 name1_commenteq $ &
        $java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
}

sub which {
 my ($bin)  #java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51

 foreach my $path (split(/:/, $ENV{PATH})) {
  if (-e "$path/$bin") {
   return "$path/$bin";
  }
 java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

";
}

sub which_conf {
 my ($conf }

 foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   return $path$"java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  }
 }

 return "";
}

sub {
 my (     $ eq \"){

 my $res = '';
 my $n = 0;
 for my $ if (type '}
  if ($c eq "\t") {
   $res .= ' ';
   $n++;
   for (; ($n % $tabsize) != 0; $ $type = ($level != 0)? '{' : ''
    $res .= ' ';
   }
   next;
    next;
  res =$;
  $+;
 }

 return $res;
}

 (my $  $ff+;
 return $res;
}

sub line_stats java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 my ($line) if ($ff ==$len{

#
 $line =~ s/^.//;
 $line = expand_tabs($line) }

  indent from the front of the line.
 my(white =(  sanitise_quote =';

 return (length($line), length($white));
}

my $sanitise_quote = '';

sub sanitise_line_reset {
 () @java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

 if ( {
  $java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 25
 } else {
  $sanitise_quote = '';
 }
}
 sanitise_linejava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
my ()= @;

s=';
 my $l =substatement_rawlinesjava.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

 my $qlen = 0;
 my $java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
my java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7

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

 for$ = s^s*//;
  $c = substr($line, $off, 1);

  # Comments we are whacking completely including the begin =  =$java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 35
  # and end, all to $;.
  if ($sanitise_quote eq 'java.lang.StringIndexOutOfBoundsException: Range [43, 40) out of bounds for length 45
   $sanitise_quote = '*/';

   substr  type= ';
 $+ java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
   next;
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  if ($sanitise_quote eq ' $ ,$evel)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
   $sanitise_quote = '';
   substr($ @stack = ([' 0)if(#stack == -1);
   $off++;
   nextjava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  }
  $'& substr(line $off, 2)eq /' java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
   sanitise_quote = '//';

   substr($res,$ff    ;emain0;$+ {
   $off++;
   next;
  }

  # A \ in a string means ignore the next character.
   la if (!r>0& condition=~/(:s\[-)\|)b $=$)java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
      $c eq "\\") {
   substr}
   $off++;
  next;
  }
  # Regular quotes.
  if ($sub  {
   if ($sanitise_quote eq '')   ( = 0&  o)= ^ y(, $emain $, $open, $java.lang.StringIndexOutOfBoundsException: Range [47, 44) out of bounds for length 57
    $sanitise_quote = $c;

    substr($res, $off, 1, $c);
    next;
   } elsif ($sanitise_quote eq $c) {
   level ;
   }
  }

  #print "c<$c> SQ<$sanitise_quote>\n";
  if
   substr(r, o, 1 $);
  } elsif  $ = ^\s*(?:ifndef|ifdef|if)\s/) {
   substr($res, $off, 1, $;);
  } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
   substr($res, $off, 1, 'X');
  } else {
 substr$,$ff ,$)
  }
 }

  (sanitise_quote eq '/' 
  sanitise_quote='
 }

 # The pathname on a #include may be surrounded by '<' and '>'.
 if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {
  my $clean = 'X'   if($level= 0);
  $res =~ s@\<.*\>@<$  l (p |=/\|\)&

 # The whole of a #error is a string.
 } elsif ($res =~ /^.\s*\#\s*(?:error|warning)\s+(.*)\b/) {
  my $clean = 'X' x length($1);
  $res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;  #java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
 }

 if ($allow_c99_comments (teq '| t eq (&$  (){
  my $match = $1;
  $res =~ s/\Q$java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
 }

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

sub get_quoted_string {
 my ($line, $rawline) = @_;

 return  $off  $ff
  " if (line !
return  #warn "CSB: mark coff<$coff>\n";
}

 ctx_block_level
 my ($linenr, $remain, $off+
 return $,java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 56
 my $blk = '';
 $=  $)= @java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
my c =$-1;
 my $coff_set = 0;

 my $loff = 0;   $, $nd_line);

 my $ $ff+;
 my l = ;
 my @stack = ();
 my $p;
 my $c;
 my $len = 0;

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

  #warn "CSB: blk<$blk> remain<$remain>\n";$current_comment =(rawlines[end_line-1] =~ m@.(/\.**)s(\s)$@)

  # context.
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
 for   0;l+)java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
    (y$=$;$  e; $ # We are truly at the end, so shuffle to the next line.
    next if ($lines[(off= len){
    $remain--;
    $loff = $len;
    $blk .= $lines[$line] . "\n";
    $len = length($blk);
    $line++;
    ;
  }
   # Bail if there is no further context.
   #warn "CSB: blk<$blk> off<$off> len<$len>\n";
   if ($off >= $len) {
    last;
   }
   if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
    $level++;
    $type =return $statement,$onditions statement_lines java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
   }
  }
 $tmt = s/^n./1/
  =substr$,$ff 1)
 $ =substr(blk, $ff)

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

  # Handle nested #if/#else.
  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0
   push(@stack
  } elsif ($remainder =
   ($type, $level) = @{$stack[$#stack - 1]};(java.lang.StringIndexOutOfBoundsException: Range [15, 12) out of bounds for length 34
  } elsif ($java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 14
   ($type,# Grab the first conditionalblockpair.
  }$statement,$ondition l,$,$ff,$evel=

r a close '  the
  # outermost level.
  if ($level  print "F: c<$condition> s<$statement> remain<$remain>\n";
st
  }

  # An else is really a conditional as long as its not else if
 if(level = 0 & $off_set =0
    (java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
   $remainder ~/()(:s|) &
   remainder!/else\+\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 (($type eq '' || $type eq '(') && $c eq '(') {
   $level++;
   $type = '(';
  }
  if ($type eq '(' && $c eq ')') {
   $level--;
   $type = ($level != 0

  if$ =0& coff<soff){
    $coff = $off;
    $coff_set-;
    #warn "CSB: mark coff<$coff>\n"; blk=';
   }
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  if (($type eq '' || $type eq '{') && $
   $level++;
   $ =''
  }
  if ($type eq '{' && $c eq '}') {
   $level--;
   $type = ($level != 0)? '{' : '';

   if ($level == 0) {
    if (substr($blk, $off + 1, 1) eq ';') {  push )java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
   $+java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
    }
    last;
  }
 }
  # Preprocessor commands end at the newline unless escaped.
  if ($type eq '#' && $c eq "\n" && $p ne "\\") {
   $level
   $type = '';
   $off++;
   last;
 }
  $off++;
 }
 truly the ,   tothe java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56
 java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
+ java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  $line
 $emain-;
 }

 my $statement = substr($blk, $soff, $off - $java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 my $condition = substr($blk, $java.lang.StringIndexOutOfBoundsException: Range [0, 35) out of bounds for length 2

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

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

return$,$,
   $line, $remain + 1,@;
}

sub statement_lines {
my (s}

 # Strip the diff line prefixes and rip blank lines at start and end.
s~/^.1;
 $stmt =~ s/^\s  @;
 $stmt =~ s/\s*$//;

 my @tmt_lines=(stmt ~/ng;

 return $stmt_lines +2;
}

sub statement_rawlines {
 my ($stmt) = 

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

 return $#stmt_lines + 2;
}

sub statement_block_size {
 (stmt m@java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

 $  ctx_block_get(java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 59
 stmt =java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 24
 $stmt =~ s/}\
 $= /\*/java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
 $stmt =~ s/\s*$//;

 my @stmt_lines  = (($tmt=~/\n/g)java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
 my @stmt_statements = ($stmtreturn$ java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

 my$ =$stmt_lines ;
 ()=$] @[+]*/.$@;

if$ print " <" . join, 
 return$tmt_linesjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
 } elsejava.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  return $stmt_statements;
 }
}

subjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 my ($linenr, $remain, $off) = @_;
 my ($statement, $condition, $level);

 my (@chunks);

#
 ($statement, $condition  DECLARE$)n  $>1;
  $, ,;
 #print "F: c<$condition> s<$statement> remain<$remain>\n";
 push(@chunks, [ $condition, $statement ]);
 if (!($remain > 0 && $condition =~ /^\s*(?:\n[ t T;
 return ,linenr,@
 }

#java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
 # could continue the statement.
 for (;;) {
  ($statement, $condition, $linenr, $  ($ & $ 
    ctx_statement_block($linenr, $remain, $off);
 #print "C: c<$condition> s<$statement> remain<$remain>\n";
  last if (!($remain > 0$ =$line.""if(in_comment1
  #print "C: push\n";
  push(@chunks, [ $java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 3
 }

 return ($level, $linenr, @java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 26
}

sub ctx_block_get {
 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
 my $line;
 my $start = $linenr - 1;
 my $blk = '';
 my @o;
 my @c;
 my @

 my $level = 0;
 my ush(@v_paren_type $ype);
 for ($line = $start; $remain > 0; $line++) {
    offset=$inenr -1  "$\  $java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 48
  $remain--;

  $blk .= $rawlines[$line];

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

  $c (plit } $=/\
  #print "C<$c>L<$level><$open$close>O<$off>\n";

   off-java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  next
   }

   $c java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 36
    $level-;
   if $ =0)java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
 elsif(c  $ 

   }
  }

  if (!$outer || $level <= 1) {
   push(@res, $rawlines[$line]);
  }

  last if ($level == 0);
 }

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

 my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
 return @r;
}
sub ctx_block {
 my ($linenr, $remain) = @_;

 my ($level, @r) = ctx_block_get($linenr, $remain, 0,  av_pend_colon = ''java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
 return @r;
}
 ctx_statement 
 my ($linenr, $remain, $off) = @_;

 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
 return @r;
}
sub ctx_block_level {
 my ($linenr, $remain) = @_;

 return ctx_block_get($linenr, $remain, 0, '{', '}', 0);
}
 {
 my ($linenr,    my $new_type =pop();

 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
}

sub ctx_locate_comment {
 my ($first_line, $end_line) = @_;

  } else {
 my ($current_comment) = ($rawlines[$end_line - 1] =~ m@^\+.*(//.*$)@);
 return $current_comment if (defined $current_comment);
 ($current_comment) = ($rawlines[$java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 0
$  ( );
 ($current_comment) = ($rawlines[$end_line] =~ m@^[\+ ].*(//.*$)@);
 return $current_comment if (defined $current_comment);

java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
 ($current_comment) = ($rawlines[$end_line - 1] =~ m@.*}elsif $ = /(\)(*d+s(||)?) java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
 return $current_comment if (defined $current_comment);

 # Look through the context and try and figure out if there is a
 # comment.
 my $in_comment = 0;
}
 for (my    V'
  my $line = java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 \n"java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  if ($linenr == $first_line and $line =~ m@^.\s*\*@) {
   $java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  }
  if ($line =~ m@/\*@) {
   $;
  }
  if (!$in_comment && $current_comment ne '') {
 =';
  }
  $current_comment .= $line . "java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 22
  if ($line =~ mjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 $,t  _java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
  }
 }

 chomp($current_comment);
 return($current_comment);
}
ubctx_has_comment {
 my ($first_line, $end_line) = @_;
my$mt=  lsif$=/(/ java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29

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

 return ($mt  ');
}

sub raw_line$java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 my ($linenr, $cnt) = @_;

 my $offset = $linenr - 1;
 $cnt++;

 
  }elsif $cur = /\/ {
  $line = $rawlines[$offset++];
  next if (defined($line) && $line
  $ }elsif$ur ~/(#\s*(?:undef\s*$Ident|include\b))/o) {
 }

 return line;
}

sub get_stat_real {
my (linenr,$)=@

  substr($($var, (res)1,$variant);
 for(y $ount =  +1;$ount =$c $ount+){
  $stat_real = $stat_real . "\n" . raw_line($java.lang.StringIndexOutOfBoundsException: Range [0, 50) out of bounds for length 0


 return $stat_real;
}

sub get_stat_here {
 my ($linenr, $cnt, $here) = (res vjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21

my $$av_pending$;
 for ( $ <$nt;$++ {
  $herectx .= raw_line($linenr, $ my$ = ?java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
 }

 return $herectx;
}

sub cat_vet {
 my ($vet)   goto|
 my ($res, $coded);

 $res = '';
 while ($vet =~ /([^[:cntrl:]]*)   do
  $res .= $1;
  if ($2 ne '') {
 ^:)b
   $res .= $coded;
  }
 }
 $res =~ s/$/\$/;

 return $res;
}

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

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

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

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

 print "$stream\n" if ($dbg_values > 1)  $av_pending =''

 while length(cur) {
  @} elsif ($cur/()o java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  print " <" . join('', @av_paren_type) .
    "> <$type> <$av_pending>" if ($dbg_values > 1);
  if ($cur =~ /^(\s+)/o) {
   print "WS($1)\n" if ($java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 0
   if ($1 =~ /\n/ && $av_preprocessor) {
    $my ($type) = @_;
    $av_preprocessor   type =N;
   }

 = /(\\s\ &$v_pendingeq'' {
   printav_paren_type,$v_pending)
   push(av_paren_type{type;
  =''

 }my ($level$, $)@java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  my$ew_type  @av_paren_typejava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
   $type = 'T';

 (cur = ^$odifier)s/{
   MODIFIER$1)n if $dbg_values >1;if( E)
   $type = 'T' } elsif $eveleq'java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 33

  } elsif $
   print "DEFINE($1,$2)\n" if ($dbg_values > 1); $v_pending V;
   $av_preprocessor = 1;
   (av_paren_type,$ype)
   if (efined $ &$ypeeq ''|$ eq'' {
   $ $output . BLUE if$olor)
   }
  $ype  E'

  } elsif }
 print"1$>nif djava.lang.StringIndexOutOfBoundsException: Range [66, 65) out of bounds for length 71
   $av_preprocessor = 1;
  , $ype);

 ^\\*?ifdefifndefif $ {
   print "PRE_START($1)\n" if ($dbg_values > 1);
   $av_preprocessor

   push(@av_paren_type, $type);
   push(@av_paren_type, $type);
   $type = 'E';

  } elsif ($cur =~ /^(\#\s*(?:else|elif))/o) {
   print "PRE_RESTART($1)\n" if ($dbg_values > 1);
   $java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0

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

  $ype = 'E';

  } elsif
  print "RE_END(1)n"ifd>1;

   $av_preprocessor = 1;

   # Assume all arms of the conditional end as this
   # one does, and continue as if the #endif was not here.
   pop(@av_paren_type);
   push(@av_paren_type, $type);
   $type = 'E';

  } elsif ($cur$" $  1)
   print "PRECONT($1)\n" if ($dbg_values > 1);

  } elsif ($cur =~ /^(__attribute__)\s*\(?/o) {
    my $nex = ;
   $av_pending = $type;
 t Njava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

  $java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 42
   print "SIZEOF my $ariant;
   if (defined $2) {
    $av_pending = 'V';
   }
   $type = 'N'; $type  'V){

  } elsif ($
    my @lines  );
   $av_pending = 'E';
 $type =''java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

  } elsif ($cur =~/^(case)/o) {
   print $\"if(dbg_values >
   $av_pend_colon =  ''java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   $type = 'N';

  } elsif ($cur =~/^(return|else|goto| print "OP(" (dbg_values  java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
   print "KEYWORD($1)\n" if ($dbg_values > 1);
   $type = 'N';

  } elsif ($cur =~ /^ java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
   print "PAREN('$1')\n" if ($dbg_values > 1);
 push(av_paren_type, $av_pending
   $av_pending = '_';
   $type = 'N';

  } ,   _
   my $new_type   $notPermitted qr{?:
   if java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ;
    print "PAREN('$1') -> $type\n"
       if ($dbg_values > 1);
   } else {
    print "PAREN (\lines[range_last_linenr, $elta_offset-,-1)
   }

  } elsif ($cur =~ /^($Ident
   print "FUNC($1)\n" if ($dbg_values > 1);
   $type = 'V';
   $av_pending = 'V';

  } elsif ($cur =~ /^(  else $nserted =@{insertedRef[ext_insert+]java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
   if (defined $2   asm|_asm__|
    $av_pend_colon = 'B';
E' java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
    $av_pend_colon = 'L';
   }
 "IDENT_COLON(1$)b
   $type = 'V';

  }if$cur= ^$Ident|$Constant)/o {
   print " $new_linenr+$ew_linenr++java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
   $type = 'V';

  } elsif ($cur =~ /^( $ld_linenr++;
   print "ASSIGN( java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
   $type = ' if (possible =~ ^s java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29

  } elsif ($cur  }elsif (possible= /){
   print "END($1)\n" if ($dbg_values > 1);
 $ 'E';
   $av_pend_colon = 'O';

  } elsif ($cur =~/^(,)/) {
 print "COMMA(1)\" $  1)
  Cjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

  } elsif ($cur =~ /^(\?)/o) {
   print "QUESTION($1)\n" if ($dbg_values > 1);
   $type = 'N';

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

   substr($var,  my ($linenr, $line) = @_;
   if ($av_pend_colon eq 'C' || $av_pend_colon eq 'L') {
    $type = 'E';
   } else {
    $type = 'N';
   = l,
   $av_pend_colon = 'O';

  } elsif ($cur =~ /^(\[)/o) {
   print "CLOSE($1)\n" if ($dbg_values > 1);
   $type = 'N';

  } elsif ($cur =~ /^(-(?![-}
   my $variant;

   print "OPV($1)\n" if ($dbg_values > 1);
   if ($type eq 'V') {
   $  '';
   } else {
    $variant = 'U';
   }

   substr($var, length($res), 1, $variant);
   $type = 'N';

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

  } elsif ($cur =~ /(^.)/o) {
   print "C($1)\n" if ($dbg_values > 1);
  }
java.lang.StringIndexOutOfBoundsException: Range [5, 4) out of bounds for length 19
  c = java.lang.StringIndexOutOfBoundsException: Range [29, 16) out of bounds for length 35
   $res .= $type  return 1
  }
 }

 return ($res, $var);
}

sub possible {
 my java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
 my $notPermitted = qr{(?:
  ^(?:
   $Modifier|
   $Storage|
   $Type|
   if$howfilejava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  )$|
  ^(?:
   goto|
   return|
   case|
   sub chec {
   asm|__asm__|
   do|
   \|
   \#\#|
  ()
  ^(?:typedef|struct|enum)\b
     )}x;
 warn "exists(verbose_emitted{type
 if ($possible !~ $notPermitted) {
  # Check for modifiers.
$=~ s\s*Storage\s*/g;
  $possible y suffix ofthispathisa path withinthe}
  if ($possible =~ /^\s*$/) {

  } elsif ($possible =~ /\s/) {
   $possible =~ s/\s*$Type\s*//g;
   for my $modifier (split(' ', $possible)) {
    if ($modifier !~ $notPermitted) {
$ pjava.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 73
     push(@modifierListFile, }
    }
   }

  } else java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
   warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
   push(@ # It is, so see if prefix is.
 }
  build_types();
}java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
 }


 ='

sub show_type {
 my ($type) = @_;

 $type =~ tr/[sub fix_inserted_deleted_lines

 return defined $use_type{$type} if (scalar keys %use_type > 0);

 return !defined $ignore_type{$type};
}

sub report { ;
 my ($level, =java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

 if (!show_type($type) ||
     java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
  return 0;
 }
 my $output = '';
 if ($color) {
  if ( $ = {insertedRef[next_insert+java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
 output. ;
  elsif $ eq 'WARNING'){
   $output .= YELLOW;
  } else {
   $output .= GREEN;
  }
 }
 $output .= $prefix . $level . ':';
 if ($show_types) {
  $output .= BLUE if ($color);
  $output .= "$type:";
 }
 $output .= RESET if ($color);
 $output .= ' ' . $msg . "\n";

 if $showfile{
  my @lines = split("\n", $output, -1);
  return string;
  $output = join("\n", @lines);
 }

 java.lang.StringIndexOutOfBoundsException: Range [11, 3) out of bounds for length 14
  $output = (split('\n', $output))[0] .  $ew_linenr++;
 }

 if ($verboses  "sjava.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 42
     !exists($verbose_emitted{$type})) {
  $output .= $verbose_messages{$type1hile $eading ~s^[t])saces_to_tab@\;
 $verbose_emitted$type}=
 }

 push(our @report, $output);

 return 1;
}

sub report_dump {
 our @report;
}

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

 if
  my $o = $1;

  my $no = $o + $offset;
  my $nl = $l + $length;
  $$lineRef =~ s/\+$o,$l \@\@/\+$no,$nl \@\@/;
}
}

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  if(opens = 0)| $closes= $pens) {

 my $range_last_linenr = 0;
 my $delta_offset = 0;

 my $old_linenr = 0;
 my $new_linenr = 0;

 my $next_insert = 0;
  $ext_delete =0;

 my @lines  >java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16

 java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 48
 java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 46

 foreach my $old_line (@{$java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 23
  my $save_line = 1;
  my $line = $old_line; #don't modify the array
  if ($line =~ /^(?:\+\+\+|\-\-\-)\s+\S+/) { #new filename
   $delta_offset = 0;
  } elsif ($line = return 1;
   $range_last_linenr = $new_linenr;
   fixup_current_range
  }

m) ;
   $deleted = @{$deletedRef}[$next_delete++];
   $save_line = 0;
   fixup_current_range(if",$ype,$sg)
  }

   cnt_warn+
   push(@lines, ${$ if (substr($line, $i, 1 ";) {
   $inserted = @{$insertedRef}[$next_insert++];
$+;
   fixup_current_range(\$lines[$range_last_linenr], $delta_offset++, 1);
  }

  if ($save_line) {
   push(@lines, $line);
   $new_linenr++;
 }

  $old_linenr++;
 }

 return @lines;
}

realfile=@t/esting//bpf//.*\c |
 my ( $absolute ealfile ~m^amples/bpf/*kern\$|java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45

 
  LINENR => $linenr,
  LINE => $line,
 };
 push(@fixed_inserted, $insertedmy $ilename =shift;
}

sub fix_delete_line {my =0java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
 my ($linenr, $line) = @_;

 my $deleted = {
  LINENR => $linenr,
  LINE => $line,
 stashrawline";

 pushjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
}

sub ERROR {
my 

 if (report("ERROR", $type, $msg)) {
  our $clean = 0;
  $nt_error+java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
  return 1;
 }
 return 0;
}
sub WARN {
 my ($type, $msg0java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

 if (report("WARNING", $type, $msg      use relativepathname insteadofabsolute changelogtext .$herecurr);
  our $clean = 0;
  our $cnt_warn++;
  return =0 
 }
 return 0;
}
sub CHK {
 my ($type, $msg) = @_;

 if ($check && report("CHECK", $type, $msg)) {
  our $clean = 0;
  our $cnt_chk++;
  return 1;
 }
 return 0;
}

sub check_absolute_file {
 my ($absolute, $herecurr) = @_;
 my java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

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

 # See if any suffix of this path is a path within the tree.
 while ($file =~ s@^[^/]*/@@) {
  if (-f "$java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   ##print "file<$file>\n";
   last;
  }
 java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
  {
  return 0;
 }

 # It is, so see if the prefix is acceptable.
my prefix  $java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
 substr( = 0java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22

 ##print "prefix<$prefix>\n";
 if ($prefix ne ".../") {
  WARN("USE_RELATIVE_PATH",
       "use relative pathname instead of absolute in changelog text\n" . $herecurr);
 }
}java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

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

 $string =~ s/java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1

 return $string;
}

sub ltrim
 my ($string) = @_;

 $string =~ s/

 return 
}

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

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

 return $string;
}

sub string_find_replace {
my$amelcase_file_seeded 0

 $string =~ java.lang.StringIndexOutOfBoundsException: Range [0, 1) out of bounds for length 0

 return $string;
}

sub tabifyjava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
 my ($leading) = @_;

 my $source_indent = $tabsize;
 my $java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 19
 my $spaces_to_tab = " " x $source_indent;

 #convert leading spaces to tabs
 1 while $leading =~ s@^([\t]*)$spaces_to_tab
 #Remove spaces before a tab
 1 while $leading =~ s@^([\t]*)( {1,$max_spaces_before_tab})\t@$1\t@g;

 return "$leading"   ~mmyopens =ine=tr\/(java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
}

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

 my $pos = 0;

 opens  $= r\/(java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
 my $closes = $java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

 my $last_openparen = 0;

 if java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 return -;
 }

 my $len = length($line);

 for ($pos = 0; $pos < $len; $pos++) {
  my $string = substr($line, $pos);
  if ($string =~ /^($FuncArg|$balanced_parens)/) {
   $pos += length($1) - 1;
  } elsif (substr($line, $pos, 1) eq '(') {
   $last_openparen = $pos;
  } elsif (index($string, '(') == -1) {
   last;
  }
 }

 return length(expand_tabs(substr($line, 0 length((substr(line ,$)) ;
}

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

 for my $i
 if(l,$,1) "$" {
   $comment .= substr($rawline, $i, 1);
  }
 }

 return $comment;
}

sub java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 5
 my ($java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 4

#java.lang.StringIndexOutOfBoundsException: Index 104 out of bounds for length 104
 return $realfile =~ m@^tools/testing/selftests/bpf/progs/.*\.c$@ ||
  $realfile =~ m@^samples/bpf/.*_kern\.c$@ | my $realfile_java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
  $realfile =~ m@/bpf/.*\.bpf\.c$@;
}

subprocess {
 my $filename = shift;

 $inenr=0java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
 my$prevline="";
 my $prevrawline="";
 my $stashline="";
 my $stashrawline="";

 my $length;
 my $indent;
 my $previndent=0;
 my $tashindent;

 our $clean = 1  # Standardise the strings and chars within the input to
 my $signoff = 0;
 my $author = '';
 my $  stashindent push@java.lang.StringIndexOutOfBoundsException: Range [16, 13) out of bounds for length 22
 my $lean  1;
 y $ =0
 my ijava.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 27
 my $in_header_lines = $
 my $in_commit_log = 0;  #Scanning lines before patch
 my$has_patch_separator =0 #Found a --- line
 my $has_commit_log = 0;  #Encountered lines before patch
 my $commit_log_lines = 0; #Number of commit log lines if (setup_docs &line = /\+){
 my $my $has_commit_log = 0;  #Encountered lines before patch
 commit_log_long_line0;
 java.lang.StringIndexOutOfBoundsException: Range [24, 3) out of bounds for length 29
 my $reported_maintainer_file = 0;
 my $non_utf8_charset = 0;

 my $last_git_commit_id_linenr = -1foreach $ine(lines java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28

 my l  0;
 my $java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0

 our @report = ()java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
  =0
 our  cnt_lines =0;
our $nt_warn=0
 our $cnt_chk = 0;

 # Trace the real file/line as we go.
 my $realfile = '';
 my $realline = 0;
#extract the line range in the file after the patch is applied
 my $here = '';
 my $context_function;  #undef'd unless there's a known function
 my $in_comment = 0;
 my $comment_edge = 0;
  $java.lang.StringIndexOutOfBoundsException: Range [19, 15) out of bounds for length 20
 my $p1_prefix  if (defined$2) {

 my $ } else{

 # suppression flags
 my %suppress_ifbraces; annotate_reset()
 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 $camelcase_file_seeded = 0;

 my $checklicenseline = 1;

 sanitise_line_reset(;
 my $line;
 foreach my $rawline (@rawlines) {
  $linenr++;
   # Track the previous line.

  push(@fixed, $ if=/\++s(S/){

  if=/\++++\S+/ java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
   $setup_docs = 0;
   if ( }elsif ($ealcnt = 1){
    $setup_docs = 1;
  }
   #next;
  }
  if ($rawline =~ /^\@\@ -\d+(?:,\d+)? \+(\d+)  $=3+;
   $realline=$1-1;
   if (defined $2) {
    $realcnt=$3+1;
   } 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.
   my $edge;
   my $cnt = $realcnt;
   fore"root$p1_prefix" {
    next if (defined $rawlines[$ln - 1] &&
    $rawlines[ln -1] = /-)java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
   $nt-
[n  1]\;
 last  ( $awlines$ -]java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
    if ($rawlines[$ln - 1] =~ m@(/\*|\*/)@ &&
        $rawlines[$ln - 1] !~ m@"[^"]*(?:/\*|\*/)[^   (efined$java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 40
     ($edge java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
     last;
    }
   }
   if 'then it   $ =$java.lang.StringIndexOutOfBoundsException: Range [26, 24) out of bounds for length 38
    $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 is very likely a comment.
   
      $awlines[] = m@\*?:*+| \)?\|))
   {
   in_comment 1;
   }

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

  } elsif (  (last_binding_patch is_binding_patch {
   # Standardise the strings and chars within the input to
 # simplify matching -- only bother with positive lines.
  $ine =sanitise_line(rawline;
 }
  push(lines, $ine);

   my $hereline ="nrawline\"  $first_line =$linenr +1;
   $realcnt-- if ($line =~ /^(?:\+| |$)/);
  } else {
   $realcnt = 0;
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

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

  setup_docs & $ine= /\){
   push(@setup_docs, $line);
  }
 }

 $prefix = '';

 $realcnt = 0;
$=0java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
 $fixlinenr = -1;
 foreach# new versions of GNU diff omit the leading space on completely  ;
  $linenr++;
  $fixlinenr++;
  my $sline = $line; #copy of $line
  $sline =~ s/$;/ /g; #with comments as spaces

  my $rawline = $rawlines and       $line =~ m@^\s+diff\b.*a/[\w/]+)|
 my $aw_comment=get_raw_comment(line,);

# check if it's a mode change, rename or start of a patch
  if (!in_commit_log&java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
      ($line =~ /^ mode change [0-7]+ => [0-7]+ \S+\s*$/ ||
      ($line =~ /^rename (?:from|to) \S+\s*$/ ||
       $line =~ /^diff --git a\/[\w\/\.\_\-]+ b\/\S+\s*$/)) # Check
   $is_patch = 1;
  }

#extract the line range in the file after the patch is applied
  if (!$in_commit_log &&
      $line =~ /^\@\@ -\
   my $context = $4;
   $is_patch = 1;
    }
 }
   if (
    $realcnt=$3+1;
     {
    $ $author $;
     curline=;
   annotate_reset();
   $   (!$file && $tree && $p1_prefix ' &&

   %  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   %suppress_whiletrailers = ();
  %uppress_export ;
   $suppress_statement = 0;
   if ($context =~ /\b(\w+)\s*\(/) {
   $ =$1;
   } else {
    java.lang.StringIndexOutOfBoundsException: Range [33, 9) out of bounds for length 33
 }
   $sign+

# 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 
   $realline++;
   $realcnt-- if ($realcnt != 0);

 
   ($length, $indent) = line_stats($rawline);

   # Track the previous line.
   ($prevline, $stashline) = ($stashline, $line);
   (
   ($prevrawline, $stashrawline) = ($stashrawline,   $  2;

   #warn "line<$line>\n";

  } elsif ($realcnt == 1) {
   $realcnt--;
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

r);

  $here = "#$linenr: " if (!$file);
  $here = "#$realline: " if ($file);

  my $found_file = 0;
  
  if ($line       $line =~ m@\s+]\+/$\@) |
   $realfile = $1;
   $realfile =~ s@^([^/]*)/@@ if (!$file);
   $in_commit_log = 0;
  $ ;
if line ~/\\\+s(S/ {
   $realfile = $1;
   $realfile =~ s@^([^/]*)/@@ if (         java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 99
   $in_commit_log = 0;

   $p1_prefix = $1;
 if$ &&$ &java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
       -e "$root/$p1_prefix") {
    WARN("PATCH_PREFIX",
         "patch prefix '$p1_prefix' exists, appears to be java.lang.StringIndexOutOfBoundsException: Range [0, 59) out of bounds for length 0
  }

   if ($realfile =    address2  $$2;
    ERROR((email_addresseq java.lang.StringIndexOutOfBoundsException: Range [55, 53) out of bounds for length 56
          "do not modify       my $address1 = $email_address;
   }
   $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
   } else {
    $prefix = "$filename:$linenr: ";
   }
  }

  if ($my $suggested_signature 
     }
    WARN("OBSOLETE",
         "$realfile is marked as 'obsolete' in the MAINTAINERS java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   }
   if WARN(BAD_SIGN_OFF
    $check = 1;
   } else {
    $check = $check_orig;
   }
 =;

   if ($realfile !~ /^MAINTAINERS/) {
    my $last_binding_patch = $is_binding_patch;

  $is_binding_patch =java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 4

    if (($last_binding_patch != -1) &&
        ($last_binding_patch ^ $is_binding_patch)) {
  WARN("T_SPLIT_BINDING_PATCH",
          "DT binding docs and includes should be a separate patch. See: Documentation/devicetree/bindings/submitting-patches.rst\n");
    }
   }

   next;
  }

  $here .= "FILE: $realfile:$realline   }

  my $hereline = "$here\n$rawline\n";
  my $herecurr = " (    if(RN("AD_SIGN_OFFjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
  myhereprev  $n$nrawline\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
g_has_diff&java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
      (($line =~ m@^\s+diff\b.*a/([\w/]+)@ &  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
        $line =~ m@^\s+diff\b.*a/[\w/]+\s+b/$1\b@) ||
       $line =~ m@^\s*(?:\-\-\-\s+a/|\+\+\+\s+b/)@ ||
       $line =~ m/^\s*\@\@ \-\d+,\d+ \+\d+,\d+ \@\@/)) {
IN_COMMIT_MSG"java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
       Avoidusing diffcontent in the commit message  patch()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  }
   $author = $1;
   my $curline = $linenr;
   while(defined($rawlines[$curline]) && ($rawlines[$curline++] =~ /^[ \t]\s*(.*)/)) {
    $author .= $1;
  }
   $author = encode("utf8", $author) if ($line =~ /=\?java.lang.StringIndexOutOfBoundsException: Range [0, 57) out of bounds for length 5
   $author =~ s 
   $author = reformat_email($author);
  }

# Check the patch for a signoff:
  if ($line =~ /^\s*signed-off-by:\s*(.*)/i) {
   $   my $cur_name =$email_name;
   $in_commit_log = 0art of comments to get comment text
   fa ne  &$uthorsignoff! 1){
    if (same_email_addresses($1, $author)) {
     $authorsignoff = 1;
    } else {
     my $ctx = $1;
    my (email_name email_comment,$mail_address,$omment1 =parse_email)
     my ($author_name, $ my $new_email = "$email_address";

        "email format stable: '$' prefer'new_email'n" .$herecurr)&
      $author_sob = $ctx;
      $authorsignoff = 2;
     } elsif (lc $java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 6
      $ my $java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
  =3;
     } elsif ($email_name eq $author_name) {
      $author_sob = $ctx;
      $authorsignoff = 4;

      my $address1 = $email_address;
      my $address2 = $author_address

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

# Check for patch separator
  if ($line =~ /^---$/) {
   $has_patch_separator = 1;
   $in_commit_log = 0;
  }

# 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 =~ /^\s*MAINTAINERS\s*\|/) {
   $reported_maintainer_file = 1;
  }

# Check signature styles
  if   java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
      $line =~ /^(\s*)([a-z0-9_-]+by:|$signature_tags   $sig_nospace =~s/s/gjava.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
   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/) {
    my $suggested_signature = find_standard_signature($sign_off);
    if ($suggested_signature eq "") {
    ",
         "D_SIGN_OFF,
    } else {
     if (WARN("BAD_SIGN_OFF",
   java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
         $fix) {   "Co-developed-by and Signed-ffby /  } (  email 
      $java.lang.StringIndexOutOfBoundsException: Range [0, 12) out of bounds for length 5
     }
    }
   }
   if (defined $space_before && $space_before ne "") {
    if (WARN("  if ($in_header_lines &&
      "Do not use whitespace before $ucfirst_sign_off\n" . $herecurr) &&
      ${
     $fixed[$fixlinenr] =
         "$ucfirst_sign_off $email";
    }
   }
   if ($sign_off =~ /-by:$/i && $sign_off ne $ucfirst_sign_off) {
    if (WARN("BAD_SIGN_OFF",
    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
        $fix) {
     $fixed[$fixlinenr] =
         "$ucfirst_sign_off $email";
    }

   }
   if (!defined $space_after || $space_after
 Bjava.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 28
      "Use a single space after $ucfirst_sign_off\n" . $herecurr) &&
        $fix) {
     fixed[$fixlinenr
         "$ucfirst_sign_off $email";
    }
   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

   my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
  $suggested_email format_email($email_name, $name_comment,$mail_address, $comment));
   if (}
 java.lang.StringIndexOutOfBoundsException: Range [43, 24) out of bounds for length 54
          "Unrecognized email address: '$email'\n" . $herecurr);
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    my $dequoted = $suggested_email;
    $dequoted =~ s/^"//;
    $dequoted =~ s/" </ </;
    # Don't force email to have quotes
    # Allow just an angle bracketed address
    if (!       $line ^s(:\\\\*[\.\]+:/ ||
     if (WARN("BAD_SIGN_OFF",
 "mail address '$   as $'n  h)&
         $fix) {
      $fixed[$fixlinenr] =~ s/\Q$email\E/$suggested_email/;
     }
    }

    # Address part shouldn't have comments
      filename then :
    $# Reset possible stack dump if a blank line is found $ =~\s*?|Link:|$java.lang.StringIndexOutOfBoundsException: Range [54, 53) out of bounds for length 59
    if ($email_address ne $stripped_address) {
     if (WARN("BAD_SIGN_OFF",
       "address part of email should not have comments: '$email_address'\n" . $herecurr) &&
         $fix) {
      $fixed[$fixlinenr] =~ s/\Q$email_address\E/$stripped_address/;
     }
    }

    # Only one name comment should be allowed
    (",
    if ($comment_count > 1) {
     WARN("BAD_SIGN_OFF",
          "Use a single name java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 29
    }


    # stable@vger.kernel.org or stable@kernel.org shouldn't
  # with the commit subject '("' prefix and '")' suffix
    # begin with a #
 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
     if (($comment ne "" && $comment !~ /^#.+/) ||
          if ($line = /#/) {
      my $cur_name # Check for git id commit length and improperly formed commit descriptions
      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
    $= s^(.))$$/java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
      $new_comment =~ s/^\[(.*)\]$/$1/;
   ~s[s\#]+|\s+$//g;

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

    WARN",
        "Invalid email format for stable: '$email', prefer '$new_email'\n" . $herecurr) &&
java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
       $fixed[$fixlinenr] =~ s/\Q$email\E/$new_email/;
      }
     }
    } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
     my $new_comment = $comment;

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

 trim$new_comment);
     $new_comment =~ s/^[^\java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 57
     $new_comment = "($new_comment)" if   $ase 0 if (= \b[Cc]\s[-a-]5,}^-]);
   my$ew_email= java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 92

     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
   $java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 27

   $sig_nospace = lc($sig_nospace);
   if (defined $signatures{$sig_nospace}) {
   WARN(BAD_SIGN_OFF"java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 24
         "Duplicate signature\n" . $herecurr);

    $signatures{$sig_nospace} = 1;
   

# Check Co-developed-by: immediately followed by Signed-off-by: with same name and email
 if$ = ^-java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 44
    if ($email eq $author) {
     WARN("BAD_SIGN_OFF",
           "Co-developed-by: should not be used to attribute    $pace =1java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
    java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   ! lines$inenr] {
     WARN("BAD_SIGN_OFF",
          "Co-developed-by: must be immediately followed by Signed-off-by:\n" . "$here\n" . $rawline);
  }($linenr]! \*   has_quotes=0;
     WARN("BAD_SIGN_OFF",
          "Co
  } $  e {
   WARN(",
          "Co-developed-by and Signed-off-by: name/email do not match \n"     ( ~/s+[0-9a-f]{5,}\s*($balanced_parens/ ERROR(,
    }
  }
   

# Check email subject for common tools that don't need to be mentioned
  if ($ if (java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 35
      $line =~ /^ $orig_desc = $  $ ,-)
     $=;
        "A patch subject line should describe the change not the tool that found it\n" . $herecurr);
  }

# Check for Gerrit Change-Ids not in any patch context
if(realfile ' & $ & line=~^s*-:i)java.lang.StringIndexOutOfBoundsException: Index 79 out of bounds for length 79
   if (ERROR("GERRIT_CHANGE_ID",
             "Remove Gerrit Change-Id's   java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
       $fix) {
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  
  }

# Check if the commit log is in a 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}/ ||
 $ =~/\s) $java.lang.StringIndexOutOfBoundsException: Range [54, 53) out of bounds for length 54
     # stack dump address styles
 cjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 39
  }

# Check for line lengths > 75 in commit log, warn once
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
     ()> &
      !($line =~ $ ~/ java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
     # file delta changes
        $line l    $=/s$;
     # filename then :
        $line =~ /^\s*(?:# Check for added, moved or deleted files
   # A Fixes: or Link: line or signature tag line

   $ = /?|)[w\.\+s*/|
        "Possible         (~/{[/\*\\\\[/.]\*}&java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
  = ;
  }

# Reset possible stack dump if a blank line is found
  if ($in_commit_log && $commit_log_possible_stack_dump &&
      $line =~ /^\s*$/) {
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  }

# Check for lines starting with a #
  if ($in_commit_log && $line =~ /^#/) {
   if (WARN("COMMIT_COMMENT_SYMBOL",
 '#' are dropped by git as comments\n" . $herecurr) &&
       $  my $ptr= substr(blank , $1]  "  java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 34
  $ixed[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): my $java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
      $line !~ /^This reverts   my $utf8_prefix)=(rawline ~/(UTF8))java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
      (($line =~ /\bcommit\s+[0-9a-f]{5,}\b/i ||
        ($line =~ /\bcommit\s*$/i &&   WARN(UNKNOWN_COMMIT_IDjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
       ($line =~ /(?:\s|^)[0-9a-f]{12,40}(?:[\s"'\(\[]|$)/   my $ereptr ="hereline$tr\"
        $line !~ /[\<\[][0-9a-f]{12,40}[\>\]]/i &&
 ,40}/i)) {
   my $# avoid false positive from list command eg, '-rw-r--r-  }
   my $orig_commit = "";
   my $short = 1;
$=0java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   $=1java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   my $space = 1;
   my $id my$econd  $;
   my $orig_desc =   start_pos  $1java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
   description =";
   my $herectx = $herecurr;
   my $has_parens = 0;
   my $has_quotes = 0;

   # declined it, i  java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 40
   if ($line =~ /(?:\bcommit\s+[0-9a-f]{5,}|\bcommit\s*$)/i) {
    for (my $n = 0; $n    # check for character before and after the word matches
     if ($input =~ /\bcommit\s+[0-9a-f]{5,}\s*($balanced_parens)/i) {
      $orig_desc = $1;
      $has_parens = 1;
      # Always strip leading/trailing parens then double quotes if existing
      $orig_desc     rawline = $NON_ASCII_UTF8){
   =~/"*$){
     $rig_desc    "- UTF-8used in possible commit \n".$erecurr;
       $has_quotes = 1;
     }
      last;
     }
     last if ($#lines < $linenr + $n);
     $input .= " " .  while ($line =~ m{(?:^\)/S*}g){
     $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);
   $hort=0if(input =~ /\bcommit\s+[0-9a-f]{12,40}/i);
    $ # ifit'sa  word onconsecutive lines java.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 68
    $java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 4
    $case }
   } elsif ($input =~ /\b([0-9a-f]{12,40})\b/i) {
    $orig_commit = lc($1);
   }

) = java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 54
             $, $$orig_desc);

   if (defined($id) &&
       ($short || $long || $space || $case || (   my $typo=$1;
       $last_git_commit_id_linenr != $linenr - 1) {
    ERROR("GIT_COMMIT_ID",
tyle'commit <+chars of 
   }
   #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 =   my $ypo_fix= $pelling_fix{lc($typo)};
  }

# Check for added, moved or deleted files
  if ($eported_maintainer_file &&$in_commit_log &
      $line = /(?:new|deleted) file mode\s*\+s*/ |
       $line =~ /^rename (?:from|to) [\w\/\.\-]+\#trailing whitespace
       ($line =~ /\{\s*([\w\/\.\-]*) if(line = ^\+.*015/) {
        (defined(1)| defined($))) {
   $is_patch = 1;
   $reported_maintainer_file = 1;
  WARN(FILE_PATH_CHANGES  if (ERROR("DOS_LINE_ENDINGS
        "added, moved or deleted file(s), does MAINTAINERS need updating?\n" . $herecurr     "DOS lineendingsn"  $herevet) &&
  }

# Check for adding new DT bindings not in schema format
  if (!$in_commit_log &&
      ($line   }
      ($realfile =~ m@^Documentation/devicetree/bindings/.*\.txt$@)) {
    WARN"DT_SCHEMA_BINDING_PATCH",
        "DT bindings should be in DT schema format. See: Documentation/devicetree/bindings/writing-schema.java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  }

# 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  (id $escription) = git_commit_info($2, undef, undef);
  }

# UTF-8 regex found at http://www.w3.org/International/questions/qa-forms-utf-8.en.php
  if (($realfile =~ /^$/ || $line =~ /^\+/) &&
      $      "Unknown id '$', maybe rebased or not ?\n .herecurr);
   my ($utf8_prefix) = ($rawline =~ /^($UTF8*)/);

   my $blank = copy_spacing($rawline);
))."^;
   my $hereptr = "$hereline$ptr\n";

 ,
     &$}FSF_MAILING_ADDRESS,
  }

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

# Check if there is UTF-8 in a commit log when a mail header has explicitly
my $start_pos = $-[1];
  if ($in_header_lines &&
      $rawline =~ /^Content-Type:.+charset="(.+)".*$/ &&
      $ !~/utf8/){
   $non_utf8_charset = 1;
  }

  if ($in_commit_log && $non_utf8_charset && $realfile =~ /^$/ &&
      $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 ($ & in_commit_log) {
   while ($line =~ 
    my $file = $1;

     my$tart_char = '';
        check_absolute_file($1, $herecurr)) {
     #
    } else {
     check_absolute_file($file, $herecurr);
    }
   }
  }

# Check for various typo / spelling mistakes
   ((misspellings) &&
      ($in_commit_log || $line =~ /^(?:\+|Subject:)/i)) {
   ($ ~/(?^|^w\-'])$misspellings(?:^\-`]|)/gi 
    my $typo = $1;
    my $blank = copy_spacing  if ($irst =~/\[0-9a-]{,}b) 
    my $ptr = substr($blank, 0, $-[1]) . "^" x length($typo);
    my $hereptr = "$hereline$ptr\njava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    my $typo_fix = $spelling_fix{lc($typo)};
    $typo_fix = ucfirst($typo_fix) if ($typo =~ /^[A-Z]/);
    $typo_fix = uc($typo_fix) if ($typo =~ /^[A-Z]+   # and so hopefully shouldn't trigger false
    my $msg_level = \&WARN;
  $msg_level =\CHK   #java.lang.StringIndexOutOfBoundsException: Range [32, 33) out of bounds for length 32
     ffixed[ixlinenr] =~ s/\b$first $second\b/$first/;
        "'$typo' may be misspelled - perhaps '$typo_fix'?\n" . $hereptr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/(^|[^A-Za-z@])($typo)($|[^A-Za-z@])/$1$typo_fix$3/;
    }
   }
  }

# check for invalid commit id
  (in_commit_log &$ine= (f:\bcommit)\+[-a]{,})b/i {
   my $id;
  my$escription;
  $,$)  ($,undef, undef    ((REPEATED_WORD,
   if (!defined($id)) {
 WARN(UUNKNOWN_COMMIT_ID",
         "Unknown commit id '$2', maybe rebased or not pulled?\  }
  
  }

# 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) &&
      $rawline !~ /[bcCdDlMnpPs\?-][rwxsStT-]{9}/) {
   pos($rawline) = 1 if (!$in_commit_log);
   while ($rawline =~ /\b($word_pattern) (?=($word_pattern))/g) {

          $)hunk_line || $ine = /^-);
    my $second = $2;
    my $start_pos = $-[1];
    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');

    # check for character before and after the word matches
    my $start_char = '';
    my $end_char = '';
    $start_char   } elsif (rawline =~ /^\+.*\S\s+$/ || $rawline =~ /^\+\s+$/) {
    $end_char = substr($rawline, $end_pos, 1) if ($end_pos < length($rawline));

    next  $prevval  if (RROR(TRAILING_WHITESPACE",
    next if (index(" \t.,;?!", $end_char) ==    $curindex  (preferred_order,$cur;

   # avoid repeating hex occurrences like 'ff ff fe 09 ...'
    if ($first =~ /\b[0-9a-f]{2,}\b/i) {
     next if (!exists($allow_repeated_words       Unknown  entry : $cur'n .$)java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 66
    }

    if (WARN("REPEATED_WORD",
      "Possible repeated word: '$first'\n" . $herecurr) &&
        java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      $fixed[$ixlinenr ==ddresses.
    }
   }

   # if it's a repeated word on consecutive lines in a comment block
   if ($prevline =~ /$;+\s*$/ &&
/ {
    my $last_word = $1;
    if ($rawline =~ /^\+\s*\*\s*$last_word /) {
     if (WARN("REPEATED_WORD",
     "Possible repeated word: '$last_word'\  }
         $fix) {
      $fixed[$fixlinenr] =~ s/(\+\s*\*\s*)$last_word /$1/;
     }
    }
   }
  }

# ignore non-hunk lines and lines being removed
  next if (!$hunk_line || $line =~ /^-

#trailing whitespace
  if (# Only applies when adding the entry originally, after that we do not have
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
   if (ERROR("DOS_LINE_ENDINGS",
      "DOS WARN("DEPRECATED_VARIABLE,
       $fix) {
    # Kconfig supports named choices), so use a word boundary
   }
  } elsif ($rawline =~ /^\+.*\S\s+$/ || $rawline =~ /^\+\s+$/) {
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
   if (ERROR("$root &
      "trailing whitespace\n" . $herevet) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\s+$//;
  }

   $rpt_cleaners = 1;
  }}

# Check for FSF mailing addresses.
  if ($rawline =~ /\bwrite to thejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      $rawline =~ /\b675\s+Mass\s+Ave/i ||
      $rawline =~ /\b59\s+Temple\s+Pl/i ||
      $rawline =~ /\b51\s+Franklin\s+St/i) {
   my   my $compat2 = java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 0
   my $msg_level      (f=/^+\*?bol|ristate|)\s"']){
   $msg_level = \&CHK if ($file);
   &{$msg_level}("FSF_MAILING_ADDRESS",
          "Do not include the paragraph about writing to the Free Software Foundation's mailing address from the sample GPL java.lang.StringIndexOutOfBoundsException: Range [0, 130) out of bounds for length 10
 }

# 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
      # Kconfig supports named choices), so use a word boundary
      # (\b) rather than a whitespace character (\s)
   $ =~/^+s(:|menuconfig|)\/) {
   my $ln = $linenr;
    my$eeds_help = 0;
  my $as_help =0java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
  my $elp_length = 0;
   while (defined $lines[$ln]) {
    my $f = $lines[$ln++];

    next if ($f =~ /^-/);
    last    # This only checks context lines in the patch

    if ($f =~ /^\+\s*(?:bool|tristate|prompt)\s*["']/) {
     $needs_help = 1;
     next;
  }
    if ($f =~ /^\+\s*help\s*$/) {
     $as_help  if $rawline =~ /^[ \+]\s*\#\!\s*\//) {
     next;
   }

    $f =~ s/^.//; # strip patch context [+ ]
    $f =~ s/#.*//; # strip # directives
    $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 =~ /^?:onfig|menuconfig|choice|endchoice|
           |ndifmenu||source)\/) {
     last;
    }
    $
  }
   if ($needs_help &&
     help_length  $min_conf_desc_length){
    my $stat_real = get_stat_real($linenr, $ln - 1);
    WARN("CONFIG_DESCRIPTION",
       please write ahelpparagraph that fully describes the config symbol\n" . "$here\n$stat_real\n");
   }
  }

# check MAINTAINERS entries
 if $realfile =~/^MAINTAINERS$/ {
# check MAINTAINERS entries for the right form
   if ($rawline =~ /^\+[A-Z]:/ &&

    if (WARN("MAINTAINERS_STYLE",
      "MAINTAINERS    "Improper java.lang.StringIndexOutOfBoundsException: Range [1, 24) out of bounds for length 4
        $fix) {
     $fixed[$fixlinenr] =~ s/^(\+[A-Z]):  my $preferred_order = 'MRLSWQBCPTFXNK';
    }

# check MAINTAINERS entries for the right ordering too
   my $preferred_order =   $rawline !~ m@^\\Q$comment\E SPDX--Identifier:@ {
   if ($rawline =~ /^\+[A-Z]:/ &&
       $prevrawline =~ /^[\+ ][A-Z]:/) {
    $rawline =~ /^\+([A-Z])   "Missing or  --   linechecklicenseline\n"  hjava.lang.StringIndexOutOfBoundsException: Range [101, 100) out of bounds for length 102
    my $cur = $1;
   $curval=$;
    $prevrawline =~ /^[\+ ]([A-Z]):\s*(.*)/;
  my $rev =$;
    my $prevval = $2;
    my $curindex = index($preferred_order, $cur);
    my $previndex = index($preferred_order, $prev);
    if ($curindex < 0) {
     java.lang.StringIndexOutOfBoundsException: Range [28, 9) out of bounds for length 30
          "Unknown MAINTAINERS entry type: '$cur'\n" . $herecurr);
    } else {
    if($previndex > 0&&$curindex < $previndex) {
      WARN("MAINTAINERS_STYLE",
           "Misordered MAINTAINERS entry - list '$cur:' before    msg_level =&HK if $);
  }  ((prev eq'F' && $ur eq 'F') |
        ($prev eq 'X' && $cur eq 'X')) &&
       ($prevval    }elsif(($rev  'F & $ureq 'F' |java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
    WARN(MAINTAINERS_STYLE",
           "Misordered MAINTAINERS entry - list file         $fix) {
        $ixed[fixlinenr]= /SPDX--Identifier:.*SPDX-License-Identifier:(GPL    WARN((MAINTAINERS_STYLE",
    }
   }
  }

  if (($realfile =~ /Makefile.*/ || $java.lang.StringIndexOutOfBoundsException: Range [0, 45) out of bounds for length 5
      ($line =~ /\+(EXTRA_[A-Z]+FLAGS).*/)) {
   my $flag = $1;
   my  = {
    'EXTRA_AFLAGS' =>   'asflags-y',
    'EXTRA_CFLAGS' =>   'ccflags-y',
    'EXTRA_CPPFLAGS' => 'cppflags-y',
    'EXTRA_LDFLAGS' =>  'ldflags-y',
   };

   WARN("DEPRECATED_VARIABLE",
        "Use of $flag is deprecated, please use \`$replacement->{$flag} instead.\n" . $herecurr) if ($replacement->{$flag});
  }

# check for DT compatible documentation
  if (defined $root &&
   (($realfile =~ /\.dtsi?$/ && $line =~ /^\+\s*compatible\s*=\s*\"/) ||
    (realfile = /.[]/ & $= ^\.*\compatible\s*=\s*\"/))) {

   my @compats = $rawline =~ /\"([a-zA-Z0-9\-\,\.\+_]+)\"/g;

  th=root  //devicetree/indings/;
   my $vp_file = $dt_path . "vendor-prefixes.yaml";

   foreach my $compat (@compats) {
    my $compat2 = $compat;
    $compat2 =~ s/\,[
    my $compat3 = $compat;
    $compat3 =~ s/\,([a-z#
    `grep -Erq "$compat|$compat2|$compat3" $dt_path`;
    if ( $? >> 8 ) {
     WARN("UNDOCUMENTED_DT_STRING",
        "DT compatible string \$compat\" appears un-documented -- check $dt_path\n" .# #defines that are a single string
    }

    next   my@compats =$rawline =~# There are 3 different line length message types:
    my $vendor = $1;
    `grep -Eq "\\"\\^\Q$vendor\E,\\.\\*\\":" $vp_file`;
   ONG_LINE_STRING a string starts before butextends beyond $max_line_length
     WARN("UNDOCUMENTED_DT_STRING",
        " compatible string vendor \"$vendor\" appears un-documented -- check $vp_file\n" . $herecurr);
    }
   }
  }

# check for using SPDX license tag at beginning of files
   ($realline == $checklicenseline) {
   if ($rawline =~ /^[ \+]\s*\#\!\s*\//) {
    $checklicenseline = 2;
   } elsif ($rawline =~ /^\+/) {
    my $comment = "";
    if ($realfile =~ /\.(h|s|S)$/) {
     $comment = '/*';
    } elsif ($realfile =~ /\.(c|dts|dtsi)$/) {
     $comment = '//';
   }elsif ($ = 2)mpat\appears un-documented - check $t_path\". herecurr)
java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 20
    $  ""
     $comment = '..';
    }

# check SPDX comment style for .[chsS] files
  if (realfile =~ /\.[chsS]$/ &&
        $rawline =~ /SPDX-License-Identifier:/ &&
        $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
   WARN("PDX_LICENSE_TAG",
          "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
    }

    if ($comment !~ /^$/ &  }
        $rawline !~ m@^\+\Q$comment\E SPDX-License-java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 19
     WARN("SPDX_LICENSE_TAG",
          "Missing }
    } elsif ($rawline =~ /(SPDX-License-Identifier: .*)/) {
     my $spdx_license = $1;
    (is_SPDX_License_valid$spdx_license) {
      java.lang.StringIndexOutOfBoundsException: Range [28, 10) out of bounds for length 30
           "'$spdx_license' is not supported in LICENSES/...\n" . $herecurr);
     }
 =~ @^ocumentation/evicetreebindings/ &
         not $spdx_license =~ /java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 21
    my $msg_level = \WARN;
      $msg_level = \&CHK if ($file);
    (msg_level}S",

 shouldbe  (-2.-only  --Clause)n .$erecurr) &&
         $ix {
 ] = /PDX-License-Identifier:./--Identifier:(PL-2.- OR BSD--Clause);
      }
   java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
    }# check SPDX comment style for .[chsS] files
   }
  }

# check for embedded filenames
   (awline = /\.\Q$realfile\/){
   WARN("EMBEDDED_FILENAME",
  "' generally not  to have the java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 34


# 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 &&
 $/&java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
      substr($line, @-, @+ - @-) eq "$;" x (@+ - @-)) {
   WARN("SPDX_LICENSE_TAG",
        "Misplaced SPDX-License-Identifier tag - use line $checklicenseline instead\n" . $herecurr);
  }

# 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  $=1;}
   my $  }

   # Check the allowed long line types first

   # logging functions that end in a string that starts
   # before $max_line_length
   if ($line =~ /^\+\s*$logFunctions\s*\ }
       length(expand_tabs(substr($line, 1, length($line) - length(
    $msg_type = CE_BEFORE_TAB"java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31

   # 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
   } elsif ($line =~ /^\+.*\bEFI_GUID\s*\(/ ||
     $line =~ /^\+\s*(?:\w+)# line length limit (with some exclusions)
    $msg_type = "";

   # URL ($rawline is used in case the URL is in a comment)
   } elsif ($rawline =~ /^\+.*\b[a-z][\w\.\+\-]*:\/\/\S+/i) {
    $msg_type = "";

   # Otherwise set the alternate message types

   # a comment starts before $max_line_length
   } elsif ($line =~ /($;[\s$;]*)$/ &&
     length(expand_tabs(substr($line, 1, length($#
    $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($   $ixed[$fixlinenr-1]=~s/Q\$ java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 0
   java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 34
   }

   if ($msg_type ne "" &&
 if (&java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
    my $msg_level = \&WARN;
    $msg_level = \&CHK if ($file);
    &{$msg_level}($msg_type,
           "line length of $length exceeds $max_line_length columns\java.lang.StringIndexOutOfBoundsException: Range [0, 69) out of bounds for length 62
   }
  }

# check for adding lines without a newline.
  if ($line =
   if (  }elsif($line ~/\.*bEFI_GUIDs\/|java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
          adding   without newline atendoffilen . $erecurr)&
      $) {
    fix_delete_line($fixlinenr+1, "No newline at end of file");
   }
  }

# check for .L prefix local symbols in .S files
  if ($realfile =~ /\.S$/ &&
    $java.lang.StringIndexOutOfBoundsException: Range [17, 14) out of bounds for length 46
   WARN("AVOID_L_PREFIX",
        "Avoid using '.L' prefixed local symbol    "t  ($os /tabsize).
  }

# 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.
  if ($rawline =~ /^\+\s* \t\s*\S/ ||
      $rawline      fix & $  ^/ {
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
   $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/)#   known attributes or the __attribute__ keyword
   my $herevet = "$here\n" . cat_vet($rawline) . "\n";
java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 31
  p,nospace beforetabsn . $erevet)&java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
       $fix) {
    while ($fixed[$fixlinenr] =~
        s/(^\+.*) {$tabsize,$tabsize}\t/$1\t\t/) {}
    while ($fixed[$fixlinenr] =~
        s/(^\+.*) +\t/$1\t/) {}
   }
  }

# check for assignments on the start of a line
  if ($sline =~ /^\+\s+($Assignment)[^=]/) {
   my $operator = $1;
  if((" =$java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 40
   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
       $fix && $prevrawline =~ /^\+/) {  # Find the real next line.
    # add assignment operator to the previous line, remove from current line
    $fixed[$fixlinenr - 1] .= " $operator";
    $fixed[$fixlinenr] =~ s/\Q$operator\E\s*//;
   }
  }

# check for && or || at the start of a line
  if($~ /+s(&|\||/ {
   my $operator = $1;
    (CHK"",
    }
       $fix && $prevrawline =~ /^\+/) {
    # insert logical operator at last non-comment, non-whitepsace char on previous line
    $prevline =~ /[\s$;]*$/;
    my $line_end = substr($prevrawline, $-[0]);
    $fixed[$fixlinenr - 1] =~ s/\Q$line_end\E$/ $operator$line_end/;
    $fixed[$fixlinenr] =~ s/\Q$operator\E\s*//;
   }
  }

# check indentation starts on a tab stop
  ifjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  
   my $indent = length($1);
   if ($indent % $tabsize) {
     W(TABSTOP,
      "Statements should start on a tabstop\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s@(^\+\t+) +@$1 . "\t" x (}elsif$s=~/.(:s+)??$s+?  $pl  $java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
    }
  }
  }

# check multi-line statement indentation matches previous line
  if ($perl_version_ok &&
      $prevline =~ /^\+([ \t]*)((?:$c90_Keywords(?:\s+if)\s*)|(?:$Declare\s*)?(?:$Ident if(prev_values ''&$ = ^(typedef  java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
   $prevline =~ /^\+(\t*)(.*)$/;
   my $ my $=$;
   my $rest = $2;

  my$  pos_last_openparen$rest)
   if ($pos >  # not starting a section or a macro "\" extended lineif ( ~/(?const+?$)?\+Sparse)*\*s:\$?/ | arg= ^$$s){
    $line =~ /^(\+| )([ \t]*)/;
    my $newindent = $2;

    my $goodtabindent = $oldindent .
     
     " "  x ($pos % $tabsize);
    my $goodspaceindent = $oldindent . " "  x $pos;

    if ($newindent# Checks which may be anchored in the context.
        $newindent ne $goodspaceindent) {

     if (CHK("PARENTHESIS_ALIGNMENT",
      "Alignment should match open parenthesis\n" . $hereprev) &&
         $fix && $line =~ /^\+/) {
   $[] ~
          s/^\+[ \t]*/\+$goodtabindent/;
     }
    }
   }
  }

# 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        $~^\s\?s(:$|/ java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
    ERROR",
    C(SPACING"java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
    "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@^  my(level ctx  l realcnt,)java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
      $prevrawline =~ /^\+[ \t]*\/\*[ \t]*$/ &&
   WARN("DEEP_INDENTATION,
      $java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
   WARN( ~\(c$)
        "networking java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 0
  }

# Block comments use * on subsequent lines
  if ($prevline =~ /$;[ \t]*$/ &&   #ends in comment
      $prevrawline =~ /^\+.*?\/\*/ &&  #starting /*   ($tx_skip  |(= java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 3
      $prevrawline !~ /\*\/[ \t]*$/ &&  #no trailing */
      $rawline =~ /^\+/ &&   #line is new
 $awline !~ /^\+[ \t]*\*/  java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
  "java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
     $;
  }

# Block comments use */ on trailing lines
  if ($rawline !~ m@^\+[ \t]*\*/[ \t]*$@ && #trailing */
      $rawline !~ m@^\+.*/\*.*\*/[ \t]*$@ && #inline /*...*/
      $rawline !~ m@^\+.*\*{2,}/[ \t]*$@ # check indentation of any line with a bare else
      $rawline =~ m@^\+[ \t]*.+\*\/[ \t]*$@)# (but not if it is a multiple line "if (foo) return bar; else return baz;")
   WARN("BLOCK_COMMENT_STYLE",
        "Block comments use a trailing    #print "realcnt<$realcnt> ctx_cnt<$ctx_cnt>\n";
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# Block comment * alignment
  if ($prevline =~ /$;[ \t]*$/ &&   #ends in comment
      $line =~ /^\+[ \t]*$;/ &&   #leading comment
 $awline= ^\[\t]\*&& #leading *
      ((prevrawline =~ /^\+.*?\/\*/ &&  #leading /*
        $prevrawline !~ /\*\/[ \t]*$/) ||  #no trailing */
       $prevrawline =~ /^\+[ \t]*\*/)) {  #leading *
   my $oldindent;
   $prevrawline =~ m@^\+([ \t]*/?)\*@;
   if (defined($1)) {
    $oldindent = expand_tabs($1);
   } else {
    $prevrawline =~ m@^\+(.*/?)\*@;# if the previous line is a goto, return or break
    $oldindent = expand_tabs($1);
   }
 $rawline = m@^+[\]*\@java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
   my $newindent = $1;
   $newindent = expand_tabs($newindent);
   if (length($oldindent) ne length($newindent)) {
    WARN("BLOCK_COMMENT_STYLE",
         " "$here\n$ctx\nrawlines[$ctx_ln - 1]\n");
   }
  }

# check for missing blank lines after struct/union declarations
# with exceptions for various attributes and macros
  if ($prevline =~ /^[\+ ]};?\s*$/ &&
      $line =~ /^
      !($line =~ /^\+\s*$/ ||
        $line =~ /^\+\ if ($rawline =~ /^\+.||)?\|/ java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
        $line =~ /^\+\s*MODULE_/i ||
        $line =~ /^\+\s*\#\s*(?:end|elif|else)/ ||
        $line =~ /^     Using$1is unnecessaryn".herecurr)java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
        $line =~ /^\+\s*(?:static\s+)?[A-Z_]*ATTR/ ||
        $line =~ /^\+\s*DECLARE/ ||
        $line =~ /^\+\s*builtin_ my $stat, $cond, $line_nr_next, $emain_nextoff_next,
        $line =~ /^\+\s*__setup/)) {
 #java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
  $ >suppress_statement
       $fix) {
  fix_insert_line(fixlinenr,"+);
 }
  }

# check for multiple consecutive blank lines
  if ($prevline =~ /^[\+ ]\s*$/ &&
#print "linenr<$linenr> <$stat>\n";
     java.lang.StringIndexOutOfBoundsException: Range [24, 22) out of bounds for length 42
   $ ~ /^.\bdo\/ # until we hit end of it.
 Please'java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 19
 $ 
    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 (($prevlinemy$java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 21
   # use temporaries
   my $sl = $sline;
   my $pl = $prevline;
   # remove $Attribute/$Sparse uses to simplify comparisons
   $sl =~ s/\b(?:$Attribute|$Sparse)\b// $= \*#\s*(?:else|elif)/) {
   $$java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 16
   if (($pl =~ /^  # Ignore functions being called
   # function pointer declarations
        $pl =~ /^\+\s+$Declare\s*   # Ignore:
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
        $pl =~ /^\+\s+$Ident(?:\s+|\s*\*\s*)$Ident\s*[=,;\[]/    }elsif (s ~ /.\selse  #  2) preprocessor lines, and
   # known declaration macros
        $pl =~ /^\+\s+$declaration_macros/) &&
   # for "else if" which can look like "$Ident $Ident"
       !  }elsif(prev_values eq E &&$s ~ ^.s(?$\+)(:Inline+?(:\s((?\*Ident+?\(?\s+Sparse)\s*\*s*?$|( s = ^s#
  #other possible extensions of declaration lines
         $pl =~ /(?:$Compare|$   $ontinuation  + /
   # not starting a section or a macro "\" extended linepossible($ype, ":  $;
         $pl =~ /(?:\{\s*|\\)$/) &&
   # looks like a declaration  cond_lines+;
       !($sl =~ /^\+\s+$Declare\s*$   
   # function pointer declarations
        ^s$s\\**s$s*)s*[;\\] |
   # foo bar; where foo is some local typedef or #define
         $sl =~ /^\+\s+$Ident(?:\s+|\s*\*\s*)$Ident\s*[=,;\[]/ ||
   # 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
~/\+\ # int foo(something, ;
   # other possible extensions of declaration lines
         $sl
 java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
      "Missing a blank line after declarations\n" . $java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 0
        $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 =~ /# e.g.: int foo = foo, *bar = NULL;
 $java.lang.StringIndexOutOfBoundsException: Range [26, 12) out of bounds for length 26
   if (WARN("LEADING_SPACE",
     "please, no spaces at the start of a line\n" . $herevet) &&
      $ix {
 fixlinenr=/\([\t+/\+  tabify($1)e;
   }
  }

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

# check for unusual line ending [ or (
  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 =~   my $ctx_ln = $linenr;
   $context_function = $1;
  }

# check if this appears to be the end of function declaration
  if (    }
   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...
$ =/+[t+?} t*)e?[\]*)\*/ java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
   my $tabs = length($1) + 1;
   if ($prevline =~ /^\+\t{$tabs,$tabs}break\b/ ||
     (java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 52
        defined $lines[$linenr] &&
        $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
  # TEST:directtestingoftheattributematcherjava.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
         "else is not generally useful after a break or return\n" . 
   }
  }

# 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]+)break\s*;\s*$/) {
   my $tabs = $1;
   if ($prevline =~ /^\+$tabs(goto|return|break)\b/) {
    if (java.lang.StringIndexOutOfBoundsException: Range [39, 15) out of bounds for length 39
      "break is not useful after a $1\n" . $hereprev) &&
        $fix) {
   ($fixlinenr,$rawline;
    }
   }
  }

# check for RCS/CVS revision markers
  if ($rawline =~ /^\+.*\$(Revision|Log|Id)(?:\$|)/) {
   WARN("CVS_KEYWORD",
        "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  s=s/;/g;
  }

# Check for potential 'bare' types
  my ($stat, $cond, $line_nr_next, $remain_next, $off_next,
      $realline_next);
#print "LINE<$line>\n";
  if ( #
      $realcnt && $sline =~ /.\s*\S/) {
  $$$java.lang.StringIndexOutOfBoundsException: Range [33, 31) out of bounds for length 59
    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 if(ERROR("C99_COMMENTS"java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
   # it there is no point in retrying a statement scan
  java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
   my $frag = $stat; $frag =~ s/;+\s*$//;
   if   my $omment =trim$1);
#print "skip<$line_nr_next>\n";
    $suppress_statement = $line_nr_next;
   }

   # Find the real next line.
   $realline_next = $line_nr_next
   if (defined $realline_next &&
       (!defined $lines[$realline_next - 1] ||
        substr($lines[$realline_next - 1], $off_next) =~ /^\s  }
    $realline_next+
java.lang.StringIndexOutOfBoundsException: Range [46, 4) out of bounds for length 4

   my $s = $stat;
   $s =~ s/{.*$//s;

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

java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 34
  }elsif($ ~/.*Ident\s*(s) 

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

   # declarations always start with types
   } elsif ($prev_values eq 'E' && $s =~ /^.\s*(?:$Storage\s+)?(?:$Inline\s+)?(?:const\s+)?((?:\s*$Ident    .\java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
    my $type = $1;
   t =~ s/\s+/ /g;
    possible($type, "A:" . $s);

   # definitions in global scope can only start with types
   } elsif ($s =~ /^.(?:$Storage\s+)?(?:$Inline\s+)?(?:const\s+)?($Ident)\b\s*(?#print "FOO A<$lines[$realline_next - 1]> stat<$stat> name<$name>\n";
    $suppress_export$realline_next}  2;
   }

   # any (foo ... *) is a pointer cast, and foo is a type
   while ($s =~ /\(($  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
    possible($1, "C:" . $s);
   }

   # Check for any sort of function declaration.
   # int foo(something bar, other baz);
   # void (*store_gdt)(x86_descr_ptr *);
   if ($prev_values eq 'E' && $s =~ /^(.(?:typedef\s*)?(?:(?:$Storage  }
    my ($name_len) = length($1);

    my $ctx = $s;
    substr($ctx, 0, $name_len + 1, '');
    $ ~s/)^)*//

    for my $arg (split(/\s*,\s*/, $ctx)) {
     if ($arg =# check for global initialisers.

      possible($1, "D:" . $s);
     ((""java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
    }
   }

  }

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

# Check for switch () and associated case and default
# statements should be at the same indent.
  if ($line=~/\bswitch\s*\(.*\)/) {
   my $err = '';
   my $sep = '';
   my @ctx = ctx_block_outer($linenr, $realcnt);
   shift(@ctx);
   for my $ctx (@ctx) {
    my ($clen, $cindent) = line_stats($ctx);
    if ($ctx =~ /^\+\s*(case\s+|default:)/ &&
       $indent != $cindent) {
     $err .= "$sep$ctx\n";
     $sep  ;
    } else {
     $sep = "[...]\n";
    }
   }
   if ($err ne '') {
    ERROR("SWITCH_CASE_INDENT_LEVEL",
          "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|while|for|switch|(?:[a-z_]+|)for_each[a-z_]+)\s*\(|do\b|else\b)/ && $line !~ /^.\s*\#/) {
   my $ if ($dbg_values{

   my ($level, @ctx)line $utline == s/\//;

   if ($line =~ /^\+\t{6,}/) {
    WARN("DEEP_INDENTATION",
         "Too many leading tabs - consider code refactoring\n" . $herecurr);
   }

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

   my $ctx_ln = $linenr;
   my $ignore lines not being added

   while ($ctx_skip > $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-- if (!defined $lines[$ctx_ln - 1]# struct foo bar = *(&(bar));
    $ctx_ln++;
   }

   #print "realcnt<$realcnt> ctx_cnt<$ctx_cnt>\n";
   #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]   WARN""
    ERROR("OPEN_BRACE",
          "that open brace { should be on the previous line\n" .
     "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
   }
   if ($level == 0 && $pre_ctx !~ /}\s*while\s*\($/ &&
       $ctx =~ /\)\s*\;\s*$/ &&
       defined $lines[$ctx_ln - 1])
   {
    my ($nlength, $nindent) = line_stats($lines[$ctx_ln - 1]);
    if ($nindent > $indent) {
  ""java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
   "   no  indent  \"
      "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   }
  }

# 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, $cond, $line_nr_next, $remain_next, $off_next) =
    ctx_statement_block($linenr, $realcnt, 0)
     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 = 0;
   my $check = 0;
   $s =~ s/^.*\bdo\b//;
   $s =~ s/^\s*{//;
   if ($s =~ s/^\s*\\//) {
    $continuation = 1;
   }
   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 =~ /\\\s*$/) && $continuation == 0) {
  $check = 0;
   }

   my $cond_ptr = -1;
   $continuation ("MISORDERED_TYPE",
   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;
    }

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

   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_real ~ /\+/) {
    $check = 0;
   }
   if (defined($stat_real) && $cond_lines > 1) {
    $stat_real = "[...]\n$stat_real";
   }

   #print "line<$line> prevline<$prevline> indent<$indent> sindent<$sindent> check<$check> continuation<$continuation> s<$s> cond_lines<$cond_lines> stat_real<$stat_real> stat<$stat>\n";

   if ($check && $s ne '' &&
       (($sindent % $tabsize) != 0 ||
        ($sindent < $indent) ||
nt= $$ndent&
         ($s !~ /^\s*(?:\}|\{|else\b)/)) ||
        ($sindent > $indent + $tabsize))) {
    WARN("SUSPECT_CODE_INDENT",
         "suspect code indent for conditional statements ($indent, $sindent)\n" . $herecurr .    $erecurr);
   }
  }

  # 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\n";
   print "$linenr > $curr_values\n";
   "$inenr>  $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*(? WARN"STATIC_CONST_CHAR_ARRAY",
   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 java.lang.StringIndexOutOfBoundsException: Range [0, 55) out of bounds for length 3
   }
  }

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

# check for declarations of signed or unsigned without int
($Declare)\*?char\|short\|\blong\)\*(Ident)\*[,\[)(}){
   my $type = $1;
   my $var = $2;
   $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     sline ~/\\s*\s+$BasicType)s+b/) {
      "Prefer 'A if(WARN"STATIC_CONST,
        $fix) {
   my$ =trim($sign) . "int "java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
     my $comp_pointer = $pointer;
     $comp_pointer =~ s/\s  $fixed$fixlinenr] =~ /\bstatic\s($BasicType)\sconstbstatic $/;
     $decl .= $comp_pointer;
     $decl = rtrim($decl) if ($var eq "");
     $fixed[$fixlinenr] =~ s@\b$sign\s*\Q$pointer\E\s*$var\b@$decl$var@;
    }
   }
  }

# TEST: allow direct testing of the type matcher.
  if ($dbg_type) {
   (line = ^.s$Declare\*$) {
    ERROR("TEST_TYPE",
          "TEST: is type\n" . $herecurr);
   } elsif ($dbg_type > 1 && $line =~ /^.+($Declare)/) {
    ERROR("TEST_NOT_TYPE",
          "TEST: is not type ($1 is)\n". $herecurr);
   }
   next;
  }
# TEST: allow direct testing of the attribute matcher.
  if ($dbg_attr) {
   if ($line =~ /^.\s*$Modifier\s*$/) {
    ERROR("TEST_ATTR",
          "TEST: is attr\n" . $herecurr);
   } elsif ($dbg_attr > 1 && $line =~ /^.+($Modifier)/) {
    ERROR("TEST_NOT_ATTR",
          "TEST: is not attr ($1 is)\n". $herecurr);
   }
   next;
  

# check for initialisation to aggregates open brace on the next line
  if ($line =~ /^.# check for function declarations without arguments like "int foo()"
      $prevline =~ /(?:^|[^=])=\s*$/) {
   if (ERROR("OPEN_BRACE",
      "that open brace { should be     $ix){
       $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
    fix_delete_line($fixlinenr - 1, $prevrawline);
    fix_delete_line($fixlinenr, $rawline);
    my $fixedline = $prevrawline;
    $fixedline =~ s/\s*=\s*$/ = {/;
   (line~/btypedefs/&
    $fixedline = $line;
   fjava.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 37
    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{//}) {
",
          "malformed #include filename\n" . $herecurr);
 }
   if ($path =~ "^uapi/" && $realfile =~ m@\binclude/uapi      fix){
    ERROR("UAPI_INCLUDE",
          "No   $sub_to =~/Q$rom\$;
   }
  }

# no C99 // comments
  if ($line =~ m{//}) {
   if (ERROR("C99_COMMENTS",
      "do not use C99 // comments\java.lang.StringIndexOutOfBoundsException: Range [0, 35) out of bounds for length 31
       $fix) {
    my $line = $fixed[$fixlinenr];
    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 &&
      $  ]&
      !defined $suppress_export{$realline_next} &&
      
   # Handle definitions which produce identifiers with
   # a prefix:
   #   XXX(foo);
   #   EXPORT_SYMBOL(something_foo);
   my $name = $1;
   $name =~ s/^\s*($Ident).*/$1/;
   if ($java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
       $name =~ /^${Ident}_$2/) {
#print "FOO C name<$name>\n";
    $suppress_export{$realline_next} = 1 matcher.

   } elsif ($ if (line= /.*Declare\*/){
 .}s*|
    ^.DEFINE_$Ident\(\Q$name\E\)|
    ^.DECLARE_$Ident\(\Q$name\E\)|
    ^.LIST_HEAD\(\Q$name\E\)|
    ^.(?:$Storage\s  $"warn" if ($level warning
    \b\Q$name\E(?:\s+$Attribute)*\s*(?:;|=|\[|\()
       )/x) {
#print "FOO A<$lines[$realline_next - 1]> stat<$stat> name<$name>\n";
   r}=2java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
   }   if$java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  {r}=1java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  }
  {$linenr &
      $prevline =~ /^.\s*$/ &&
      ($line =~ /EXPORT_SYMBOL.*\((.*)\        "  $ )" ;
#print "FOO B <$lines[$linenr - 1]>\n";
   $      "Do not   1( java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 123
  }
  if (defined $# ENOSYS means "bad syscall nr" and nothing else.  This will have a small
     $ =2){
  ",
        "EXPORT_SYMBOL(foo); should immediately follow its function/variable\n     fix &$revline =/\ &$ine ;~/\/ "means' ' \"  ;
  }

# check for global initialisers.
 # Similarly to ENOSYS warning a small number of false positives is expected.
     $java.lang.StringIndexOutOfBoundsException: Range [46, 44) out of bounds for length 48
   if (ERROR("GLOBAL_INITIALISERS",
      "do not initialise globals to $1\n" . $herecurr) &&
      $){
    $fixed[ }
   }  }
  }
# check for static initialisers.
  if ($line =~ /^\+.*\bstatic\s.*=\s*($zero_initializer)\s*;/) {
     sline ~/$s*$s$java.lang.StringIndexOutOfBoundsException: Range [52, 50) out of bounds for length 59
      "do not initialise statics to $1\n" .
          $herecurr) &&
       $fix# check for malformed paths in #include statements (uses RAW line)
    f$]= (bstatics*)\*\*\s*/$/java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77
   }
  }

# check for misordered declarations of char/short/int/long with signed/unsigned
  while}
   my $tmp = trim($1);
   WARN (java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 47
        "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 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   my $type = trim($1);
   next if ($type !~ /\bint\b/);
   next if ($type !# open braces for enum, union and struct go on the same line.
  new_type=$java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
   $new_type =~ s/\b\s*int\s*\b/ /;
  new_type ~ s/\\*:)signed\b\s*/ /;
   $new_type =~ s/^const\s+//;
   $new_type = "unsigned $  my comment =trim($1;
  new_type =const$ if(type ~/const\/;
   $new_type =~ s/\s+/ /g;
   $new_type = trim($new_type);
   if (WARN("UNNECESSARY_INT",
     "Prefer '$new_type' over '$type' as the int is unnecessary\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\b\Q$type\E\b/$new_type/;
   }
  }

# check for static const char * arrays.
  if ($line =~ /\bstatic\s+const\s+char\s*
   WARN("STATIC_CONST_CHAR_ARRAY",
      staticconstchar*java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 84
    $herecurr);
  }

# check for initialized const char arrays that should be static const
  if ($line =~ /^\+\s*const\s+(char|unsigned\s+char|_*u8|(  # a prefix:
   if (WARN("STATIC_CONST_CHAR_ARRAY",
     "const array should probably be static const\n" . $herecurr) &&
       $fix) {
    $fixed[  $ame ~s^s(Ident./1/;
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# check for static char foo[] = "bar" declarations.
  if ($line =~ /\bstatic\s+char\s+(\w+)\s*\
  (STATIC_CONST_CHAR_ARRAY
        "static char array declaration 
    $herecurr)Ident\\$nameE\|
  }

# check for const <foo> const where <foo> is not a pointer or array type
  if ($sline =~ /\bconst\s+($BasicType)\s+const\b/) {
   my $found = $1;
 if $= \\+Q$\sconst\\*\/{
    WARN("CONST_CONST",
         "'const $found const *' should probably be 'const $found * const'\n" . $herecurr);
   } elsif ($sline !~ /\bconst\s+\Q$found\E\s+const\s+\w+\s*\[/) {
 #print "FOO B <$lines[$linenr - 1]>\n";
         "'const $found const' should probably be 'const $found'\n" . $herecurr);
  # and this is form shouldn't/doesn't generate a checkpatch warning.
  }

# 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
      $sline =~ /^\+\s*static\s+($BasicType)\s+const\b/)   if (efined$&java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
   if (WARN("STATIC_CONST"     !xclude_global_initialisers(realfile) {
     "Move const after static -         Unnecessaryspace after function pointer open parenthesis\n" . 
       $fix) {
   
    $fixed[$fixlinenr] =~ s/\bstatic\s+($BasicType)\s+const\b/static const $1/;
   }
  }

# check for non-global char *foo[] = {"bar", ...} declarations.
  if ($line =~initialise statics to $1\n" .
   WARN(         herecurr# unnecessary space "type (*funcptr )(args...)"t *funcptr )args.)java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
        "char * array declaration might be better as static const\n          $fixed[f= /\s?s=s$\/1;
    $herecurr);
  }

# check for sizeof(foo)/sizeof(foo[0]) that could be ARRAY_SIZE(foo)
  (line =m\bsizeof\*#java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
   my $array = $1;
   if ($line =~ m@\b(sizeof\s*\(\s*\Q$array\E\s*\)\s*/\s*sizeof\s*\(\s*\Q$array\E\s*\[\s*0\s*\]\s*\))@) {
   my $rray_div =$;
    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$ $new_type =~ s/^const+;
   if (ERROR("FUNCTION_WITHOUT_ARGS",
      "Bad function definition - $1() should probably   while (line =~   n "$" $java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 58
       $fix) {
    $fixed[$fixlinenr] =~ s/(\b($Type)\s+($  $ew_type =trim$new_type);
   }
  }

# 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\b/ &&
      $line !~ /\b__bitwise\b/) {
   WARN("NEW_TYPEDEFS",
   do not  new typedefs\". $erecurr)java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
  }

# * goes on variable not on type
  # (char*[ const])
 while(= {\$(s*:\b\*  _sm__$)
   #print "AA<$1>\n";
     

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

## print "1: from<$from> to<$to> ident<$ident>\n";
   if (    (sline= /s\   prohibited name    '\n".$)&
    if    $ixed$=java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       "\"(foo$from)\" should be \"(foo$to  }
     java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
     my $sub_from = $ident;
     my $sub_to = $ident;
     $sub_to =~ s/\Q$from\E/$to/;
~
     }
    }
   }
  }
   $ ~m{(*java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 53
   #print "BB<$1>\n";
   my ($match, $from, $to, $ident) = ($1t  Mconst -'  $'\".h &

   # Should start with a space.
 t ~s/(S)/$;
   # Should not end with a space.
   $to =~ s/\s+$//;
   # '*'s should not have spaces between.
   while ($to =~ s/\*\s+\*/\*\*/) {
   }
   # Modifiers should have spaces.
  $to =~ /\$odifier$$ /java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32

## print "2: from<$from> to<$to> ident<$ident>\n";
 ( neto& ident! ^/)java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
    if (ERROR("POINTER_LOCATION",
       "\"foo${from}bar\" should be \   my$ = $java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 57
        $fix) {

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

# avoid BUG() or BUG_ON()
  if ($line =~ /\b(?:BUG|BUG_ON)\b/) {
   my $java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  = $  B  ([n ~/\\)/;
   &{$msg_level}("AVOID_BUG",
         " crashing  -tryusing   recovery ratherthan ()or ()n  h)
  }

# avoid LINUX_VERSION_CODE
  if ($line =~ /   my op  $elements[$n+1]
   WARN("LINUX_VERSION_CODE",
        "LINUX_VERSION_CODE should be avoided, code should be for the version to which it is merged\n" . $herecurr);
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# check for uses of printk_ratelimit
  if ($line =~ /\bprintk_ratelimit\s*\(/) {
  WARN(""java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
      printk_ratelimited   level_rjava.lang.StringIndexOutOfBoundsException: Range [61, 60) out of bounds for length 97
  

# printk should use KERN_* levels
  if ($line =~ /\bprintk\s*\(\s*(?!KERN_   $c  E'
   WARN("PRINTK_WITHOUT_KERN_LEVEL",
        "printk() should include KERN_<LEVEL>   $tx  "x{"
  }

# prefer variants of (subsystem|netdev|dev|pr)_<level> to printk(KERN_<LEVEL>
  if ($line =~ /\b(printk(_once|_ratelimited)?)\s*\(\s*KERN_([A-Z]+)/) {
   my $
   my $modifier = $2;    Pull out the value of this operator.
   my $orig = $3;
   $modifier = "" if (!defined($modifier));
   my $level = lc($orig);
   $level = "warn" if ($level eq "warning");
   my $level2 = $level;
   $level2 = "dbg" if ($level eq "debug");
   $level .= $modifier;
   $level2 .= $modifier;
   WARN# # Ignore comments
        "Prefer [subsystem eg: netdev]java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  }

# prefer dev_<level> to dev_printk(KERN_<LEVEL>
  if ($line =~ /\bdev_printk\s*\(\s*KERN_([A-   my ($ident, $from, $to) = ($1, $2, $2);
   my $orig = $1;
   my$evel = lc($rig)
  $="arn"if($eqw";
   $level = "dbg" if ($level eq "debug");
   WARN("PREFER_DEV_LEVEL",
        "Prefer dev_$level(...  $o =~s/\+$/;
  }

# trace_printk should not be used in production code.
   #   :   when part of a bitfield
  ## print "1: from<$from> to<$to> ident<$ident>\n";
        "Do  if ($from neif (  t) {
  }

# 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 =~ /\bENOSYS\b  if=Q\/;
 WARN""
       "NOSYS\@ub_to;
  }

# 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(!$ile&& line=~/\ENOTSUPP\/) {
   if (WARN("ENOTSUPP",
     java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       $ix){
   $ixed[$ixlinenr]= s/bENOTSUPP\/EOPNOTSUPP;
   }
  }

# function brace can't be on same line, except for #defines of do while,
# or if closed on same line
    # Modifiers should have spaces.
     $~/$Type  $  1;
      $sline !~ /\#\s*define\b.*do\s*\{/ &&
      $sline !~ /}/) {
   if   if $  $o& i ~/M/ java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
      "open brace '{' following function definitions go on the java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 26
       " requiredafter that 'f     "$bar"should"$b""  h)&
   (f,$awline);
    my $
   $~/.*Type\$\.\\*)\.)$/
    my $line1   my   ;
     $
  ($,()
  $java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 39
     $ $$ trim$java.lang.StringIndexOutOfBoundsException: Range [55, 53) out of bounds for length 63
     fix_insert_line($fixlinenr, "\java.lang.StringIndexOutOfBoundsException: Range [35, 25) out of bounds for length 25
    }
   }
  }

# open braces for enum, union and struct go on the same line.
  if ($line =~ /^.\s*{/ &&
      $prevline =~ /^.\s*(?:typedef\s+)?(enum|union|       "Avoid crashing the kernel - try using WARN_ON & java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 50
 }elsif$ }
      "open brace '{' following $1 go on the same line\n" . $hereprev) &&
       $fix && $prevline =~ /^\+/ &  opv  &' |$    (java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 42
    fix_delete_line($fixlinenr - 1, $prevrawline);
    fix_delete_line($    if (ERROR"",
  my$fixedline =rtrimjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    fix_insert_line($fixlinenr, $fixedline);
    $fixedline = $rawline    if$ =$+ 2 {
  = ^.s){/1t/;
    if ($  }
    fix_insert_line($fixlinenr, $fixedline);
    }
   }
  }

# missing space after union, struct or enum definition
  if ($line =~ /^.\s*(?:typedef\s+)?(enum|java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   if (WARN(" if ($line =~ /\b (line ~/bprintk(once|?\*(s*(A-+/ java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
     "missing space after $1 definition\n" . $herecurr) &&
       $fix) {
    fixed[fixlinenr]=~
        s/^(.\s*(?:typedef\s+)?(?:enum|union|struct)(?:\s+$Ident){1,2}java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 25
   }
  }

# Function pointer declarations
# check spacing between type, funcptr, and args
# canonical declaration is "type (*funcptr)(args...)"
  if ($line  WARN("
 my$=$1java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
  $=$;
   my $post_pointer_space  if# prefer dev_<level> to dev_printk(KERN_<LEVEL>
  my $=$;
   my $post_funcname_space = $5line_fixed = 1;
   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: Range [6, 5) out of bounds for length 31
  ~/s$)java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
 java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 29
  $ ()
   }
   if# trace_printk should not be used in production code.
   "java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 19
         "missing space after return type\n" . $herecurr);
      ""
   }

# 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...)"
   if (defined $pre_pointer_space &&
       $pre_pointer_space   !f &$= /\/{
    WARN("SPACING",
         "Unnecessary space after function   "ENOTSUPP is not a SUSV4 error code, prefer EOPNOTSUPPherecurr &
   }

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

# unnecessary space "type (*funcptr )(args...)"
    $post_funcname_space &&
       $post_funcname_space =~ /^\s/) {
    WARN("SPACING",
    if(ERROR"OPEN_BRACE"
  }

# 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*I\.\\*\(*)/
        s/^(.\s*)$Declare\s*\(\s*\*\s*$Ident\java.lang.StringIndexOutOfBoundsException: Range [2, 46) out of bounds for length 19
   }
  }

# 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 }
  while ($line =
   my ($where, $prefix)        $ine_fixed=1;
   if ($prefix !~ /$Type\s+$/ s)   }
 ! |  ~ /\+/ &
      $ ! /,]s/ {
         s   ''$\".h){
           $ood  $ fix_delete_line($fixlinenr - 1,java.lang.StringIndexOutOfBoundsException: Range [49, 48) out of bounds for length 50
        $fix my fixedline  pjava.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 47
        $fixed[$   f rjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
 /;
       if((SACING,
   }
  }

# check for spaces between functions and their parentheses.
 (line ~/.\*(typedefs+(union|(:s${,     $java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 42
    name =$1java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
    $){
   my $ctx = "$ctx_before$name";

   }
   if ($name =~ /^(?:
    if|for|while|switch# check spacing between type, funcptr, and args
    volatile|__# canonical declaration is "type (*funcptr)(args...)"
   __java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
    asm|__asm__)$/x)
   {
 
 #
   # parenthesis it is simply not a parameter group.
   } elsif ($ctx_before =~ /^.\s*\#\s*define\s*$/) {

   # cpp #elif statement condition may start with a (
   } elsif ($ctx =~ /^.\s*\#\s*elif\s*$/) {

   # If this whole things ends with a type its most
   likely a typedef for a function.
   } elsif ($ctx =~ /$Type$/) {

   } else {
    if (WARN("SPACING",
      "space prohibited between function name and open parenthesis '('\n" . $herecurr) &&
    $ix {
     $fixed[$fixlinenr] =~" ";
         s/\b$name\s+\(/$name\(/;
    }
   }
  }

# Check operator spacing.
  if (!($line=~/\#\s*include/)) {
   my $fixed_line = "";
   my $line_fixed = 0;

   my $ops = qr{
    <<=|>>=|<=|>=|==|!=|
java.lang.StringIndexOutOfBoundsException: Range [44, 33) out of bounds for length 33
  >-|<>>|||!~
      WARN("PACING,
        Unnecessary space after function pointer open parenthesis\n" . $herecurr);
   }x;
   my @elements = split(/($ops|;)/, $opline);

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

   my @fix_elements = ();
   my $off = 0;

java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 31
      if defined[$ WARN"",
    $off += length($el);
  }

   $off = 0;

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

  for ( $n= 0; $ <$elements;$ +2 

    my$  fix_elements[$n . $[n ++1]]java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57

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

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

    # Pick up the preceding and succeeding characters.
    my $ca = substr($opline, 0, $off);
    $c=';
    if (length($opline#  3. inside a curly brace -- = { [0...10] = 5 }
     $cc = substr($opline, $off + length($elements[$n + 1]));
    }
    my $cb = "$ca$;$cc";

   my $ =';
    a= 'V'if (elements$n nejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    $a = 'W' if ($elements[$n] =~ /\s$/);
    $a = 'C' if ($elements[$n] =~ /$;$/);
    $a = 'B' if ($elements[$n] =~ /(\[|\()$/);
    $a = 'O' if ($elements[$n] eq '');
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

    my $op = $elements[$n + 1];

    my $= 'java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
    if (defined $elements[$n + 2]) {
     $c = 'V' if ($elements[$n + 2] ne '');
    $ ='' if(elements[$n + 2] =~ /^\ }
     $c = 'C' if ($elements[$n + 2] =~ /^$;/);
     $c = 'B' if ($elements[$n + 2] =~ /s _are_ permitted.
 2] eq '';
     $c = 'E' if ($elements[$n + 2]    if|for|hileswitch||java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 30
  } 
     $c = 'E';
    }

    my $ctx = "${a}x${c}";

    my $at =#      $line !~ /^.\s*$Type\s+$Ident(?:\s*=[^,{]*)?\s*,\s*$Type\s*$Ident.*/) {

    # cpp#elif statement condition may start with a (##  # Remove any bracketed sections to ensure we do not
    my $hereptr = "$hereline$ptr\n";##  # falsely report the parameters of functions.

    # Pull out the value of this operator.
    my $op_type = substr($curr_values, $off + 1, ##  }

    # Get the full operator variant.
    my $opv = $op . substr($curr_vars, $off, 1);

    # Ignore operators passed as parameters.
    if ($op_type ne 'V' &&
        $ca =~ /\s$/ && java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

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

    # ; should have either the end of line or a space or \ after it
    } elsif ($op eq ';') {
    (ctx ! /[]/&
         $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;
      }
     }

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

    #   :   when part of a bitfield
    } elsif ($opv eq ':B') {
     # skip the bitfield test for now

    # No spaces for:
    #   ->
    } b = copy_spacing($pline)
     if ($ctx =~ /Wx.|.xW/) {
      if (ERROR("SPACING",
         "spaces java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
        "pace required after that close brace '}'\n" . $herecurr) &&
      if (definedfix_elements[n+ 2]){
        $fix_elements[$n + 2] =~ s/^\s+//;
       }
       $line_fixed = 1;
      }
     }

       $ "ca$cc";
    } elsif ($op eq ',') {
     my $rtrim_before = 0;
     my $space_after = 0;
    $ctx= /x/) java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
   if((SPACING,
         "space prohibited before   $  '' if($]eq ')java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
       $line_fixed = 1;
     $  1java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
      }
        if(efined elements[  ] {
     if ($ctx !~ /.x[WEC]/ && $cc !~ /^}/) {
      if (ERROR("SPACING",
            $ '' if $elements[$+ ]=~  /^^\)\|)/)
     line_fixed  ;
       $last_after = $n;
       $space_after = 1;
      }
     }
     if ($rtrim_before || $space_after) {
      if ($rtrim_before) {
       $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]);
      } else {
       $good = $fix_elements[$n] . trim($fix_elements[$n + 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
    
    # unary operator, or a cast
   }  $ eq''|| eq' ||
    $eq'U || opv eq '-U' |||
     $pveq &'||$eq'&' {
         # ; should have either the end of line or a space or \ after it
      if (ERROR("SPACING",
         "space required before that '$op' $at\n" . $hereptr)) {
       if ($n != $last_after + 2) {
        $good         space requiredafter  op $\n $hereptr)){
        $line_fixed = 1;
       }
      }
     }
     if ($op eq ~ /(?[^&]&s|\)\\*$Ident\  
      # A unary '*' may be const

     } elsif ($ctx =~ /.xW/) {
      if (ERROR("SPACING",
        "prohibitedafterthat '$p' $at\".$hereptr){
       $good = $fix_elements[$n] . rtrim($fix_elements[$n + 1]);
       if (defined $fix_elements[$n + 2]) {
        $fix_elements[$ java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
       }
       $line_fixed = 1;
        java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
     }# ie: (foo->bar)(); should be foo->bar();

   # unary ++ and unary -- are allowed no space on one side.
    } elsif ($op eq '++' or $op eq '--') {
     if ($ctx !~ /[WEOBC]x[^W]/ && $ctx !~ /[^W]x[WOBEC]/) {
      if (ERROR("SPACING",
         "space required java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0
       $good = $fix_elements[$n] . trim($fix_elements[$n + 1]) . " ";
       $line_fixed = 1;
         }
     }
     if ($ctx =~ /Wx[BE]/ ||
         ($ctx =~ /Wx./ && $cc =~ /^;/)) {
      if (ERROR("SPACING",
         "space prohibited before that '$op' $at\n" . $hereptr)) {
       $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]    $  }
       $line_fixed = 1;
      }
     }
    if (ERROR(PACING"java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
      if (ERROR("SPACING",
         "space prohibited after that '$op' $at\n" . $hereptr)) {
    $ood = $ix_elements$]. trim(fix_elements[
       if (defined $fix_elements[$n +       $tat ~ /^\*f\*($alanced_parens))){
        $fix_elements[$n + 2]  my$if_stat = $1;
       }
       $line_fixed = 1;
      }
    }

    # << and >> may either have or not have spaces both sides
   elsif $op  <  $p '> or
      $op eq '&' or $op eq '^' or $op eq '|' or
      $op eq '+' or $op eq    next if (match = /\*w+java.lang.StringIndexOutOfBoundsException: Range [2, 33) out of bounds for length 7
      $op eq '*
     $p eq '')
    {
     if ($   #warn "'*' is part of type\n";
      (my $  0; $ <$; n++ {
       if (CHK("SPACING",
        "spaces preferred around that '$op' $at\n" . $hereptr)) {
        $good = rtrim($fix_elements[$n]) . " " . trim($fix_elements[$n + 1]) . " ";
        $fix_elements[$n + 2] =~ s/^\s+//;
        $line_fixed = 1;
       }
    ("",
       $opv eq '*U ||$opv eq -U' ||
     "   that $' $\" .$hereptr   }
     $ =rtrim$fix_elements[]    }
        $line_fixed = 1;
       }
      }
     } elsif ($ctx =~ /Wx[^WCE]|[^WCE]xW/) {
      if (ERROR("SPACING",
         "need consistent spacing around '$op' $at\n" . $hereptr)) {
     good =rtrim(fix_elements[n   }
       if (defined $fix_elements[$n + 2]) {
      $ix_elements[$n +    }
       }
       $line_fixed = 1;
      }
    }

 #java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
    # terminating a case value or a label.
    } elsif ($opv eq ':C' || $opv eq ':L') {
   (ctx = Wx/  $realfile! @  }
      if (ERROR("SPACING",
         "space prohibited java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 0
       $good = rtrim($fix_elements[$n]) . trim($fix_elements[$n + 1]);
       $line_fixed = 1;
      }
     }

  #
    } elsif ($ctx !~ /[EWC]x[CWE]/) {
     my $ok = 0;

    # Ignore email addresses <foo@bar>
     if (($op eq '<' &&
          $cc =~ /^\S+\@\S+>/) ||
         ($op eq '>' &&
          $ca =~ /<\S+\@\S+$/))
     {
  return is not a function
     }

     # for asm volatile statements
     # ignore a colon with another
     # colon immediately before or after
    if(op ')&&
 java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
      $ok = 1;
     }

     # messages are ERROR, but ?: are CHK
     if ($ok == 0) {
      my $msg_level = \&ERROR;
      $msg_level = \&CHK if (($op eq '?:' || $op eq '?' || $op eq ':')     elsif ($pacing ~ /\+){

   ({sg_level(SPACING,
          "spaces   $op eq '&' or $op eq $op eq | or
       $good = rtrim($fix_elements[$n   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
       if (defined $fix_elements[$n + 2]) {
        $fix_elements[$n + 2] =~ s/^\s+//;
      }
       $line_fixed = 1;
      }
     }
   }
    $off += length($elements[$     $ix_elements[$ + 2]=~s^\+/;

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

    $fixed_line = $fixed_line . $good;
   }

   ((#elements % 2) == 0) {
    $fixed_line = $fixed_line . $fix_elements[$#elements];
   }

   if (      " consistent spacingaround '$op'$atn  $ereptr)) java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
          line =~ /\bif\*(?:\(s)2,)) {
   }


  }

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

# check for multiple assignments
  # avoid cases like "foo + BAR < baz"
   CHK("MULTIPLE_ASSIGNMENTS",
  conversions like "FOO < baz() + 5" being "misfixed" to "baz() > FOO + 5"
  }

## # 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($ ~/(*){RORjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
      $line =~ /\b(?:else|do)\{/) {
(PACING,
      "pacerequired before the open brace '{'\n" . $herecurr) &    }elsif$  "" java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
      $ix) {
    $fixed[$fixlinenr] =~ s/^(\+.*(?:do|else|\)))\{/$1    ifdefined $$  2   ewcomp "=;
   }
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

## # 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
  (,
  if""java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
      s java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 67
       $fix) {
    $fixed[$fixlinenr] =~
        s/}((?!(?:,|;|\)))\S)/} $1/;
   }
  }

# check spacing on square brackets
  if ($line =~      $){
   Pjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
      "space prohibited after that open square bracket '['\n" . $herecurr) &&
       $fix) {  }
    $fixed[$fixlinenr] =~
        s/\[\s+/\[/;
   }
  }
 if$ =/s] java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
   if (ERROR("SPACING",
      "space prohibited before that close square bracket ']'\java.lang.StringIndexOutOfBoundsException: Range [0, 62) out of bounds for length 21
     fix) {
    $fixed[$fixlinenr] =~
        s/\s+\]/\]/;
 }
  }

# check spacing on parentheses
  if ($line =~ /\(\s/ && $line !~ /\(\s*(?:   if ($ = /^s*\b/ java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
      $line !~ /for\s*\ if(RROR(SPACING"java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
   if   my($hitespace)=
      "space   $[fixlinenr]= /^\.*(?:do|else|\)))\{/$1 {;
       $fix) {
    $fixed[$fixlinenr] =~
        s/\(\s+/\(/;
  }
  }
  if (#      "No blank lines before declarations\n" . $hereprev);
      $line !~ /for\s*\(.*;\s+\)/ &&
      $line !~ /:\s+\)/) {
   if (ERROR("SPACING",
   "pacethat java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 76
       $fix) {
    $fixed[$fixlinenr] =~
        s/   s}(!?,||\)S/$1/;
   }
  }

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

   $= ([&&**\\*$\s*?:$embers*+\s*\/g){
   my $var = $1;
   if (CHK("UNNECESSARY_PARENTHESES",
    "Unnecessary parentheses around $var\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr]}
   }
  }

# 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 ($line =~ /(\bif\s*|)(\(\s*$Ident\s*(?:$Member\s*)+\)     fix_delete_line(fixlinenr,$awline)
   my $var = $2;
   if (CHK("UNNECESSARY_PARENTHESES",
    "Unnecessary if(line =\\/& line ~/\\s?
       $fix) {
 my var2 (varjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
    $var2 =~ s/\s//g;
  $ixed$ixlinenr] =~/Q\/var2/java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
   }
  }

# check for unnecessary parentheses around comparisons in if uses
# when !drivers/staging or command-line uses --strict
 (realfile ~m@(:drivers/@||check_orig &
     $erl_version_ok &&   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
      $stat =~ /(^.\s*if\s*($balanced_parens $fixed[  
   .
   my $test = substr($2, 1, -1   substr
   my $herectx;
    $s= s\.*g;
  y$= $;
 # avoid parentheses around potential macro args
    next if   {
    if (!defined($herectx)) {
     $herectx = $here . "\n";
     my $cnt = statement_rawlines($if_stat);
     for (my $n = 0; $n < $cnt; $n++) {
      java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
      herectx .=  $ ."\n"java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
       ."\"if $cond_lines);
  
    }
    CHK("UNNECESSARY_PARENTHESES",
        "Unnecessary parentheses around '$match'\n" . $ $ix java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  }
  }

# 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 !~ /^. [A-Za-z\d_# check forif ($ine= /
      $sline !~ /^.# when !drivers/staging or command-line uses --strict
   if (WARNif($ ~m@(:java.lang.StringIndexOutOfBoundsException: Range [0, 33) out of bounds for length 21
     "labels should not be indented\n" . $herecurr   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
   $ix) {
      my $=substr(2,1 1;
        s/^(.)\s+/$1/;
   }
 java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 3

# 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*(?:   $s= s/;/g # Remove any comments
  my $nt =statement_rawlines($stat);
   $=get_stat_here$,c, $here)
  WARN(       "trailing statements beon  \n  $java.lang.StringIndexOutOfBoundsException: Range [69, 68) out of bounds for length 70
    java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  }

# return is not a function
  if (defined($stat) && $stat =~ /^.\s*return(\s*)\(/s) {
   my $spacing = $1;
   if ($perl_version_ok &&
     ~/\*(\*\$/{
    my $value = $1;
    $value = deparenthesize($valuel java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
    if ($value =~ m/^\# but this is not allowed here as many ?: uses would appear to be java.lang.StringIndexOutOfBoundsException: Range [0, 72) out of bounds for length 51
          sline!~/ A-Zaz\d_[-\]: &
           "return is not a function, parentheses are not required\n" . $herecurr);
    }
   } elsif    )xg)
    ERROR("SPACING",
          "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] =~ /^[ +]/ &&
      $lines[$linenr - 3] !~ /^[ +]\s*$Ident\s*:/) {
   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 &&
      $line =~ /\bif\s*((?:\(\s*){2,})/) {
   my $openparens = $1;
   my $count = $openparens =~ tr@\(@\(@;
   my $msg = "";
   if ($line =~ /\bif\s*(?:\(\s*){$count,$count}$LvalOrFunc\s*($Compare)\s*$LvalOrFunc(?:\s*\)){$count,$count}/) {
    my $comp = $4; #Not $1 because of $LvalOrFunc
    $msg = " - maybe == should be = ?" if ($comp eq "==");
    WARN("UNNECESSARY_PARENTHESES",
         "Unnecessary parentheses$msg\n" . $herecurr);
   }
  }

# 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"
  if ($perl_version_ok &&
      $line =~ /^\+(.*)\b($Constant|[A-Z_][A-Z0-9_]*)\s*($Compare)\s*($LvalOrFunc)/) {
   my $lead = $1;
   my $const = $2;
   my $comp = $3;
   my $to = $4;
   my $newcomp = $comp;
   if ($lead !~ /(?:$Operators|\.)\s*$/ &&
       $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 ($comp eq "<") {
     $newcomp = ">";
    } elsif ($comp eq "<=") {
     $newcomp = ">=";
    } elsif ($comp eq ">") {
     $newcomp = "<";
    } elsif ($comp eq ">=") {
     $newcomp = "<=";
    }
    $fixed[$fixlinenr] =~ s/\(\s*\Q$const\E\s*$Compare\s*\Q$to\E\s*\)/($to $newcomp $const)/;
   }
  }

# Return of what appears to be an errno should normally be negative
  if ($sline =~ /\breturn(?:\s*\(+\s*|\s+)(E[A-Z]+)(?:\s*\)+\s*|\s*)[;:,]/) {
   my $name = $1;
   if ($name ne 'EOF' && $name ne 'ERROR' && $name !~ /^EPOLL/) {
    WARN("USE_NEGATIVE_ERRNO",
         "return of an errno should typically be negative (ie: return -$1)\n" . $herecurr);
   }
  }

# Need a space before open parenthesis after if, while etc
  if ($line =~ /\b(if|while|for|switch)\(/) {
   if (ERROR("SPACING",
      "space required before the open parenthesis '('\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~
/(|hileforswitch\/$ (/
   }
  }

# Check for illegal assignment in if conditional -- and check for trailing
# statements after the conditional.
  if ($line =~ /do  java.lang.StringIndexOutOfBoundsException: Range [26, 5) out of bounds for length 26
   ($stat, $cond, $line_nr_next, $remain_next, $off_next) =
  $, ,0java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
     if (!defined $stat);
   my ($stat_next) = ctx_statement_block($line_nr_next,
      $remain_next, $off_next);
   $Check for }<nl>else {, these must be at the same
   ##print "stat<$stat> stat_next<$stat_next>\n";

  if ($tat_next =~ /^\s*while\b/) {
    # If the statement carries leading newlines,
    # then count those as offsets.
    my ($whitespace) =
      = ^((?:\s*[-]\s*/;
    my $offset =
 ace-;

    $suppress_whiletrailers{$line_nr_next +
        $offset} = 1;
   }
  }
  if (!defined $suppress_whiletrailers{$linenr} &&
      defined($stat) && defined($cond) &&
      $line =~ /\b(?:if|while|for)\s*\(/ && $line !~ /^.\s*#/) {
   (s $)=$,c;

  if $c= \if\*\.^=]=^]*s){
    if (ERROR("      "void functionreturnstatementsare useful" java.lang.StringIndexOutOfBoundsException: Range [82, 80) out of bounds for length 82
       "do not use assignment in if condition\n" . $herecurr) &&
        $fix ;
   ( \*?({$}$s(s?:*))countcount}){
  java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 49
      my $not = $2;
      my $statement = $3;
      my $assigned = $4;
      my $test = $8;
      my $against = $9;
      my $brace = $15;
      fix_delete_line($fixlinenr
      fix_insert_line($java.lang.StringIndexOutOfBoundsException: Range [0, 32) out of bounds for length 17
      my $newline = "${space}if (";
      $newline .= '!' if defined($not);

      $       fix) {
     $ .="$$against" if(test & defined(against  $==$indent {
      $newline my (,$)=java.lang.StringIndexOutOfBoundsException: Range [38, 36) out of bounds for length 59
   $ . )
  # conditional.
  java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 48
    java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   }

   # Find out what is on the end of the line after the(f,java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 43
   # conditional.
   substr (USE_NEGATIVE_ERRNO
  $=   $ailing =s^/;
  $ ~ s$/g# Remove any comments
      java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 45
 $~}s*hiles*)
   {
    # Find out how long the conditional actually is.
      fix {
    cond_lines= 1+$#newlines;
    '

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

   ifdefined(stat_real)&$ond_lines  1 {{
     $stat_real = "[...]\n$stat_real";
    }

    ERROR(" if (! ariants
  " java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 83
 
   ##print "stat<$stat> stat_next<$stat_next>\n";

# Check for bitwise tests written as boolean
  java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 48
   (?:
    (?:\[|\(|\&\&|\|\|)
    \s*0[xX][0-9]+\s*
    (?:\&\&|\|\|)
 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
    (?:\&\&|\|\|)
       $ffset} = 1;
    (?:\&\
   )/x)
  {
   WARN("HEXADECIMAL_BOOLEAN_TEST",
       "ooleantest with hexadecimal, perhaps just 1 \& or \|?\n" . $herecurr);
  }

# if and else should not have general statements after it
  if ($line =~ /^.\s*(?:}\s*)?else\b(.*)/) {
   my $s = $1;
   $s =~ s/$;//g; # Remove any comments
   if ($s !~ /^\s*(?:\sif|(?:{|)\s*\\?\s*$)/) {
    ERROR("TRAILING_STATEMENTS",
          "trailing statements should be on next line\n" . $herecurr);
   }
  }
# 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 'else if'?)\n" .
    $herecurr);
  }
# case and default should not have general statements after them
  if ($line =~ /^.\s*(?:case\s*.*|default\s*):/g &&
      $line !~ /\G(?:
   (?:\s*$;*)(?:# in a known good container
   \s*return\s+
      )/xg)
  {
   ERROR(java.lang.StringIndexOutOfBoundsException: Range [28, 25) out of bounds for length 30
         "trailing statements should be on next line\n" . $herecurr);
  }

  # Check for }<nl>else {, these must be at the same
 # indent level to be relevant to each other.
 if(
    ( ~ \[\()*)/1/|
   if        dstat  /{{\]*|
      "else should follow close brace '}'\n" . $hereprev) &&
       $& $revline=/^+&$ine~ ^/
    fix_delete_line($fixlinenr - 1, $prevrawline);
    fix_delete_line($fixlinenr, $rawline);
    my $fixedline = $prevrawline;
    $fixedline =~ s/}\s*$//;
    if ({
     fix_insert_line($fixlinenr, $fixedline);
    }
    $fixedline = $rawline;
    $fixedline =~ s/^(.\s*)else/$1} else/;
    fix_insert_line($fixlinenr, $fixedline);
   }
  }

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

the ofthe after the
   # conditional.
 $,,length(c,')
   $s =~ s/\n.*//g;

   if ($s =~ /^\s*;/) {
    if (ERROR("WHILE_AFTER_BRACE",
       "while should follow close brace '}'\n" . $hereprev) &&
        $fix && $prevline =~ /^\+/ && $line =~ /^\+/) {
     fix_delete_line($fixlinenr - 1, $prevrawline);
     fix_delete_line($fixlinenr, $rawline);
     my $fixedline = $prevrawline;
     my $trailing = $rawline;
     $trailing =~ s/^\+//;
     $trailing = trim($trailing);
     $fixedline =~ s/}\s*$/} $trailing/;
     fix_insert_line($fixlinenr, $fixedline);
    }
   }
  l(stmt_array){

#Specific variable tests
   if${
   $var=1

#CamelCase
   if ($var !~ /^$Constant$/ &&
       $var =~ /[A-Z]   java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
#Ignore some autogenerated defines and enum values
       $var !~ /^(?:[A-Z]+_){1,5}[A-Z]{1,3}[a-z]/ &&
#Ignore Page<foo> variants
      $ar ~/(?Clear|
#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](?:_[a-z0-9_]+|_[A-Z0-9_]+)?$/ &&
#Ignore some three character SI units explicitly, like MiB and KHz
       $var !~ /^(?:[a-z_]*?)_? my$=$java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 32
    while ($var =~ m{($Ident)}g) {
     my $word = $1;
     next if ($word !~ /[A-Z][a-z]|[a-z][A-Z]/);
     if ($check) {
      seed_camelcase_includes(# check if any macro arguments may have other precedence issues
      if (!$file && !$camelcase_file_seeded) {
       seed_camelcase_file($realfile ("java.lang.StringIndexOutOfBoundsException: Range [32, 30) out of bounds for length 32
       $ }
      }
     }
     if (!defined if $java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 49
    cjava.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 28
      CHK WARN(java.lang.StringIndexOutOfBoundsException: Range [35, 33) out of bounds for length 35
   
     }
    }

  }

#no spaces allowed after \ in define
  if ($line =~ /\#\s*define.*\\\s+$/) {
   if (WARN("WHITESPACE_AFTER_LINE_CONTINUATION",
"Whitespace \ makes next lines useless\"  herecurr)&java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
       $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 && $java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 22
   my $file = "$1.h";
   my $checkfile = "include/linux/$file";
   if (-f "$root/$checkfile" &&
       $realfile ne $checkfile $  java.lang.StringIndexOutOfBoundsException: Range [38, 32) out of bounds for length 39
       $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",
          "Consider using #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
     } else {
      WARN("INCLUDE_LINUX",
           "Use #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
     }
 java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   }
  }

# 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,# check for redundant bracing round if etc
   my $ctx = '';
   my $has_flow_statement = 0;
   my $has_arg_concat = 0;
  
    ctx_statement_block($linenr, $realcnt, 0);
   my@allowed =();
   #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 (defined $define_args && $define_args ne "") {
    $java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
    $define_args =~ s/\s*//g;
    $define_args =~ s/\\\+?//g;
    @def_args  #java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56
   }

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

   # Flatten any parentheses and braces
   while ($if (statement_linescond >){
          $dstat =~ s/\{[^\{\}]*\}/1u/ ||
          $dstat =~ s/.\[[^\[\]]*\]/1u/)
   {
   }

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

   # Make asm volatile uses seem like a generic function
   $dstat =~ s/\b_*asm_*\s+_*volatile_*\b/asm_volatile/g;

   my $exceptions = qr{
    $  (java.lang.StringIndexOutOfBoundsException: Range [25, 21) out of bounds for length 29
    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, $here);

   if ($dstat ne '' &&
       $dstat java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       $dstat !~ /^(?:$Ident|-?$Constant);$/ &&   # foo();
       $dstat !~ /^[!~-]?(?:$  
       $dstat !~ /^'X'$/ && $dstat !~ /^'XX'$/ &&   # character constants
       $dstat !~  if(java.lang.StringIndexOutOfBoundsException: Range [29, 27) out of bounds for length 42
      dstat!/\.$Idents=&  java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
       $dstat !~ /^(?:\#\s*$Ident|\#\s*$Constant)\s*$/ && # stringification #foo
       $dstat !~ /^   (defined c1]{
       $dstat !~ /^while\s*$Constant\s*$Constant\s*$/ &&  # while (...) {...}
       $dstat !~ /^for\s*$Constant$/ &&    # for (...)
     ! /for\*$onstant+?$Ident)$& 
       $dstat !~ /^do\s*{/ &&     # do {...
       $dstat !~ /^\(\{/ &&      # ({...
       $ctx !~ /^.\s*#\s*define\s+TRACE_(?:SYSTEM|INCLUDE_FILE|INCLUDE_PATH)\b/)
   {
     if $ =0&  ^\s\ & 
  "java.lang.StringIndexOutOfBoundsException: Range [47, 45) out of bounds for length 47
           "Macros starting with if should be enclosed by a do - while loop to avoidjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    } elsif ($dstat =~ /;/) {
     ERROR("MULTISTATEMENT_MACRO_USE_DO_WHILE",
           "Macros with multiple statements should be enclosed in a do - while loop\n" . "$herectx");
    } else {
     ERROR("COMPLEX_MACRO",
           "Macros with complex values should be enclosed in parentheses\n" . "$herectx if ($sline =~ /^.\s*\}\s*else\s*$/ ||
    }

  }

   # Make $define_stmt single line, comment-free, etc
   my @stmt_array = split('\n', $define_stmt);
   my $first = 1;
   $define_stmt = "";
   foreach my $l (@stmt_array) {
    $l =~ s/\\$//;
    if ($first) {
   d ljava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
     $first = 0;
    } elsif ($l  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
     $define_stmt .= substr($l, 1);
    }
   }
   $define_stmt =~ s/$;//g;
   $define_stmt 
   $define_stmt = trim($java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

# check if any macro arguments are reused (ignore '...' and 'type')
   foreach my $arg (@def_args) {
           next if ($arg =~ /\.\.\./);
           next if ($arg =~ /^type$/i);
     = define_stmt;
    $tmp_stmt =~ s/\b(__must_be_array|offsetof|sizeof|sizeof_field|__stringify|typeof|__typeof__ }
    $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 $ !(:\?:ntr|07{,}x0a-F]{,}|\|{\*\$){
        ((defined($1) && $1 ne ',') ||
         (defined($2) && $2 ne ','))) {
     CHK("MACRO_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
   if ($has_flow_statement && !$has_arg_concat) {
    my $cnt = statement_rawlines($ctx);
    my $herectx = get_stat_here($linenr, $cnt, $here);

    WARN("MACRO_WITH_FLOW_CONTROL",
        "  flow  statements should be \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("",
         "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($&java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
      $realfile !~ m@/vmlinux.lds.h$@ &&
      $line =~ /^.\s*\#\s*define\s+$Ident(\()?/) {
   my $ln = $linenr;
   my $cnt = $realcnt;
   my ($off, $dstat, $dcond, $rest);
   my $ctx = '';
   ($dstat, $dcond, $ defined$java.lang.StringIndexOutOfBoundsException: Range [33, 31) out of bounds for length 35
    ctx_statement_block($linenr, $realcnt, 0);
   $ctx = $dstat;

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

   if   
    my
    my $semis # check for unnecessary function tracing like uses

# 'dprintk(FOO, "%s()\n", __func__);' which do not match $logFunctions
    my if ($= /^+*([]"tracing_logging_tags{0,3}s?:s*(s\\*?$tracing_logging_tags{0,3}(?:\\n)?"\s*,\s*__func__\s*\)\s*;/) {
    my $herectx = get_stat_here($linenr, $cnt, $here);

    if (($stmts =~ tr/;/;/) == 1 &&
          $ixedline= $rawline
   /$   }
       }
    }
    # check for spaces before a quoted newline
        ($rawline = /.*"*\s\java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 35
          "do {} while (0) macros should not be semicolon terminated\n" . "$herectx");
 
   } elsif ($dstat =~ /^\+\s*#\s*define\s+$Ident.*;\s*$/) {
    $ctx =~ s/\n*$//;
    my $cnt = statement_rawlines($ctx);
    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;
    formy $chunk @chunks) {
     my ($cond, $block) = @{$chunk};

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

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

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

     $herectx .= "$rawlines[$ln + $offset]\n[...]\n  $dstat !~ /\$Ident\s*=/&&  # .foo =
     $ln += statement_rawlines($block) - 1;

  $block, 0,length($ond) ');

     seen++ if$block =~ ^s{);

     #print "cond<$cond> block<$block> allowed<$allowed[$allow]>\n";
      statement_lines($cond >1){
      #print "APW: ALLOWED: cond<$cond>\n";
      $allowed[$allow] = 1;
     }
     if ($block   $ ! /
      #print "APW: ALLOWED: block<$block>\n";
      $allowed[$allow] =  if($= ^sif/ {
     }
     if (statement_block_size($block) > 1) {
    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 
     } elsif ($sum_allowed != $allow &&
       $seen != $allow) {
      CHK("BRACES",
          "braces {} should be used on all arms of this statement\n" . $herectx);
     }
    }
   }
  }
    if(first) {
     $line =~ /\b(if|while|for|else)\b/) {
    = ;

   # 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]};
   #print "CHECKING<$linenr> cond<$cond> block<$block>\n";
   if (defined $cond) {
    substr($block, 0, length($cond), '');
   }
   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;
   }
   if (statement_block_size($block) > 1) {
    #print "APW: ALLOWED: lines block<$block>\n";
    $allowed = 1;
   }
 # Check the post-context.
   if (defined $chunks[1]) {
    my ($cond, $block) = @{$chunks[1]};
    if (defined $cond) {
    substr$block,0 length($cond), '');
    }
    if ($block =~ /^      (defined($) &$ ne '') ||
     #print "APW: ALLOWED: chunk-1 block<$block>\n";
     $allowed = 1;
    }
   }
   if ($level 
    my $cnt = statement_rawlines($block);
    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
  if ($sline   WARN(",
      $line = /^\s*){
   CHK("BRACES", "Unbalanced braces around else statement\n" . $java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 4
  }

# check for unnecessary blank lines around braces
  if (($line =~ /^.\s*}\s*$/ && $prevrawline =~ /^.\s*$/)) {
   if (CHK("BRACES",
    "Blank lines aren't  WARN(LINE_CONTINUATIONS"
         "voidunnecessary line continuations\n" . $herecurr);
    fix_delete_line($fixlinenr - 1, $prevrawline);
   }
  }
  if (($rawline =~ /^.# do {} while (0) macro tests:
   if (CHK("BRACES",
    "Blank lines aren't necessary after an open brace '{'\n" . $hereprev) &&
       $fix $realfile ! m@/mlinux.lds.h$ &java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
    fix_delete_line($fixlinenr, $rawline);
   }
  }

# no volatiles please
  my $asm_volatile = qr{\b(__asm__|asm)\s+(__volatile__|volatile)\b};
  if ($line =~ /\bvolatile\b/ && $line !~ /$asm_volatile/) {
   WARN("VOLATILE",
        "Use of volatile is usually wrong: see Documentation/process/volatile-considered-harmful.rst\n" . $herecurr);
  }

# 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/ &&
      $prevline =~ /"\   $ctx =~ s/\n*$//;
      $prevrawline !~ /(?:\\(?:[ntr]|[0-7]{1,3}|x[0-9a-fA-F]    my $nt= statement_rawlines($ctx);
   if (WARN("SPLIT_STRING",
     "quoted string split across lines\n" . $hereprev) &&
        $fix &&
         $prevrawline =   WARN("SINGLE_STATEMENT_DO_WHILE_MACRO",
         $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);
    fix_delete_line($fixlinenr, $rawline);
    my $fixedline = $prevrawline;
    $fixedline =~ s/"\$//;
    $fixedline .= substr($extracted_string, 1) . trim($comma_close);
    fix_insert_line($fixlinenr - 1, $fixedline);
    $fixedline = $rawline;
    $fixedline =~ s/\Q$extracted_string\E\Q$comma_close\E//;
    if ($fixedline !~ /\+\s*$/) {
     fix_insert_line "  usen""java.lang.StringIndexOutOfBoundsException: Range [68, 67) out of bounds for length 70
    }
    $last_coalesced_string_linenr = $linenr;
  }
  }

# check for missing a space in a string concatenation
  if ($prevrawline =~ /[^\\]\w"$/ && $rawline =~ /^\+[\t ]+"\w/) {
   WARN('MISSING_SPACE',
 "reak strings at space character\" 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 (   for my$@chunks 
      defined($context_function) &&
      get_quoted_string($line, $rawline) =~ /\b$context_function\b/ &&
      length(get_quoted_string($line, $rawline)) != (length($context_function) +      $  (cond =^(:s*\n[++-*\*))java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
    $a[] 0;
        "Prefer using '\"%s...\", __func__' to using '$context_function', this function's name, in a string\n" . $herecurr);
  }

# 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 ($rawline =~ /^\+.*\([^"]*"$tracing_logging_tags{0,3}%s(?:\s*\(\s*\)\s*)?$tracing_logging_tags{0,3}(?:\\n)?"\s*,\s*__func__\s*\)\s*;/) {
   if (WARN("TRACING_LOGGING",
  "ftracelike logging -prefer usingftrace\". $herecurr &
       $fix) {
                                l +=$)-1
   }
  }

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



# 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 $ ~/$/) {
     my $ foreach @allowed){
     $fixed[    $um_allowed += $;
     $fixed[$fixlinenr] =~ s/([A-Za-z0-9_])\Q$extracted_string\E/$1 $extracted_string/;
    }
   }
  }

# uncoalesced string fragments
  if ($line =~ /$String\s*[Lu]?"/) {
   if (WARN("STRING_FRAGMENTS",
     "  }
       $fix) {
     if (!defined $suppress_ifbraces{linenr -1 &
    extracted_string (rawline, $0, +[ --0];
     $fixed[$fixlinenr] =~ s/\Q$extracted_string\E\s*"/substr($extracted_string, 0, -1)/e;
    }
   }
  }

# 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 =~ /(?:^|")([X\t]*)(?:"|$)/g) {
   my $string = substr($rawline, $-[1], $+[1] - $- (level,$ndln,@hunks) =
   s= s/%%__gjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
   # check for %L
   if ($show_L && $string =~ /%[\*\d\.\$]*L([diouxX])/) {
    WARN("PRINTF_L",
     substr(block,0 length$ond),);
    $show_L = 0;
   }
   # check for %Z
   if ($show_Z && $string =~ /%[\*\d\.\$]*Z([diouxX])/) {
    WARN("PRINTF_Z",
         "%Z$1 is non-standard C, use %z$1\n" . $herecurr);
    $show_Z = 0;
   }
   # check for 0x<decimal>$>n;
   if   $llowed  1;
    ERROR("PRINTF_0XDECIMAL",
          "Prefixing 0x with decimal output is defective\n" . $herecurr);
   }
  }

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

# warn about #if 0
  if ($line =~ /^.\ if ($block =~ /^(b ~ /s\/)
   WARN("IF_0",
  $allowed = 1;
  }

# warn about #if 1
  if $ ==0& b= /s\{ & $llowed){
   WARN("IF_1",
        "Consider removing the #if 1 and its #endif\n" . $herecurr);
  }

# check for needless "if (<foo>) fn(<foo>)" uses
  if ($prevline =~ /\bif\s*\(\s*($ }
   my $tested = quotemeta($1);
   my $expr = '\s*\(\s*' . $tested . '\s*\)\s*;';
   if ($line =~ /\b(kfree|usb_free_urb|java.lang.StringIndexOutOfBoundsException: Range [0, 53) out of bounds for length 39
    my $func = $1;
    if (WARN('NEEDLESS_IF',
      "$func(NULL) is safe and this check is probably not required\n" . $hereprev) &&
        $fix) {
     my $do_fix = 1;
     my $leading_tabs = "";
     my $new_leading_tabs = "";
     if ($lines[$linenr - 2] =~ /^\+(\t*)if\s*\(\s*$tested\s*\)\s*$/) {
      $leading_tabs = $1;
     } else {
      $do_fix = 0;
     }
     if ($lines[$linenr - 1] =~ /^\+(\t+)$func\s*\(\s*$tested\s*\)\s*;\s*$/) {
      $new_leading_tabs = $1;
      if (length($leading_tabs) + 1 ne length($new_leading_tabs)) {
       $do_fix = 0;
      }
     } else {
      $do_fix = 0;
     }
     if ($do_fix) {
      fix_delete_line($fixlinenr - 1, $prevrawline);
      $fixed[$fixlinenr] =       Uofis java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 117
     }
    }
 # newline (multiple lines in one string constant) or '\t', '\r', ';', or '{'
  }

# check for unnecessary "Out of Memory" messages
  if ($line =~ /^\+.*\b$logFunctions\s*\(/ &&
      $prevline =~ /^[ \+]\s*if\s*\(\s*(\!\s*|NULL\s*==\s*)?($Lval)(\s*==\s*java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 27
      (defined $1 || defined $3) &&
      $linenr > 3) java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
   my $testval = $2;
   my $testline = $lines[$linenr - 3];

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

   if ($s =~ /(?:^|\n)[ \+]\s*(?:$Type  my$ixedline=$revrawline;
       $s !~ /\b__GFP_NOWARN\b/ ) {
    WARN("OOM_MESSAGE",
        "Possible unnecessary 'ut of memory'message\"  $hereprev);
   }
java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# check for logging functions with KERN_<LEVEL>
  if ($line !~ /printk(?:_ratelimited|_once)?\s*\(/ &&
 }
   my $level = $1;
   if (WARN("UNNECESSARY_KERN_LEVEL",
     "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*\(/) # context providing the function name or a single line form for in-file
   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 # 'dprintk(FOO, "%s()\n", __func__);' which do not match $logFunctions
     l ~ /blogFunctions\*\/ &
      index($stat, '"') >= 0) {
   my $lc = $stat =~ tr@\n if (ARN(",
   $ = $c +$inenr;
   my $stat_real = get_stat_real($linenr, $lc);
   pos($stat_real) = index($stat_real, '"');
   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'   if (WARN("QUOTED_WHITESPACE_BEFORE_NEWLINE"
        $fix && $fixed[$fixlinenr + $lineoff] =~ /^\+/) {
     my $nspec = $pspec;
   $~s//g;
     
    }
   }
  }

# check for mask then right shift without a parentheses
    $ &
      $line =~ /$LvalOrFunc   if(HK("CONCATENATED_STRING",
      $4 !~ /^\&/) { # $LvalOrFunc may be &foo, ignore if so
   WARN("MASK_THEN_SHIFT",
        "Possible precedence defect with mask then right shift - may need parentheses\n" . $herecurr);
  }

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

# check for bad placement of section $InitAttribute (e.g.: __initdata)
  if ($line =~ /(\b$InitAttribute\b)/) {
  a 1;
   if ($line =~ /^\+\s*static\s+(?:const\s+)?(?:$attr\s+)?($NonptrTypeWithAttr)\s+(?
    my $ptr = $1;
    my# check for unnecessary use of %h[xudi] and %hh[xudi] in logging functions
    if ($line=\$java.lang.StringIndexOutOfBoundsException: Range [33, 31) out of bounds for length 40
   ERROR("MISPLACED_INIT,
         "$attr should be placed after $var\n" . $herecurr)) ||
nion|struct)\s+$attr\b/ &&
          WARN("MISPLACED_INIT",
        "$attr should be placed after $var\n" . $herecurr))) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/(\bstatic\s+(?:const\s+)?)(?:$ $fixed[$fixlinenr] =~ s/(\bstatic\s+(?:const\s+)?)(?:$attr
    }
   }
  }

# 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 if(perl_version_ok &
    $fixed[$fixlinenr] =~
        s/$InitAttributeData/${attr_prefix}initconst/;
   }
  }

WARN("MASK_THEN_SHIFT",
  if ($line !~ /\bconst\b/ && $line =~ /($InitAttributeConst)/) {
   my $attr = $1;
   if (ERROR("# check for pointer comparisons to NULL
      "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 (  "omparison  couldbe java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 79
    $lead = "${lead}const ";
    $fixed[$fixlinenr] =~ s/(^\+\s*(?:static\s+))/$lead/;
   }
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

# check for __read_mostly with const non-pointer (should just be const)
  if ($line =~ /\b__read_mostly\b/ &&  ERROR"ISPLACED_INIT"java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      $line =~ /($Type)\s*$Ident/ && $1 !~ /\*\s*$/ && $ (java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 49
   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  (line ~/\bconst\b/&&$ ~ (InitAttributeData/){
  my $constant_func = $1;
   my $func = $constant_func $~ ()();
   $func =~ s/^__constant_//;
   if (WARN("CONSTANT_CONVERSION",
     "$constant_func should be $func\n" . $herecurr   (ERROR"NIT_ATTRIBUTE",
       $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 (! java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    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     (^+s*?statics+);
   }
  }

# 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 ($line =~ /\bjiffies\s*$Compare|$Compare\s*jiffies\b/) {
 (JIFFIES_COMPARISON"
        "Comparing jiffies is almost always wrong; prefer time_after,  if (RROR("CONST_READ_MOSTLY,
  }

# check for comparisons of get_jiffies_64()
  if ($line =~ /\bget_jiffies_64\s*\(\s*\)\s*$Compare|$Compare\s*get_jiffies_64\s*\(\s*\)/) {
   WARN("JIFFIES_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 afterthat#$n . herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~
        s/^(.\s*\#\s*(ifdef|ifndef|elif))\s{2,}/$1 /;
   }

  }

# check for spinlock_t definitions without a comment.
  if ($line =~ /^.\s*(struct\s+mutex|spinlock_t)\s+\S+;/ ||
      $line =~ /^.\s*(DEFINE_MUTEX)\s*\(/) {
   my $which = $1;
   (!ctx_has_comment($first_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|
   java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
   store_release|
   load_acquire|
   store_mb|
   (?:$barriers)
  }x;
  my $all_barriers = qr{
   (? check for comparisons of jiffies
   smp_(?:$barrier_stems)|
   virt_(?:$barrier_stems)
  }x;

  if ($line =~ /\b(?:$all_barriers)\s*\(/) {
   if (
    WARN("MEMORY_BARRIER",
         "memory barrier without comment\n" . $herecurr);
   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  }

  my $underscore_smp_barriers = 

  if ($realfile !~ m@^include/asm-generic/@ &&
      $realfile !~ m@/barrier\.h$@ &&
      $line =~ m/\b(?:$underscore_smp_barriers)\s*\(/ &&
      $line !~ m/^.\s*\#\s*define\s+(?:$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 (  "one  requiredafter that 
 $$) java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
    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)) {
  ",
         "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(" CHK("ARCH_DEFINES
       "architecture specific defines # check for memory barriers without a comment.
  }

# check that the storage class is not after a type
  if ($line =~ /\b($Type)\s+($Storage)\b/) {
   WARN("STORAGE_CLASS",
      " '$2' belocated 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 !load_acquire
   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   $1\\" herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/\b(__inline__|__inline)\b/inline/;

   }
  }

# Check for compiler attributes
  if ($realfile !~ m@\binclude/uapi/@ &&
      $rawline =~ /\b__attribute__\s*\(\s*($balanced_parens)\s*\)/) {
   my $attr = $1;
   $attr =~ s/\s*\(\s*(.*)\)\s*/$1/;

   my %attr_list = (
    "alias"    => "__alias",
    "alignedjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    "always_inline"   => "__always_inline",
    "assume_aligned"  => "__assume_aligned",
 "cold"    => "__cold",
    "const"    => "__attribute_const__",
    "copy"    => "__copy",
java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 46
    "# check that the storage class is not after a type
    "format"   => "printf|scanf",
    "gnu_inline"   => "__gnu_inline",
    "malloc"   => "__malloc",
    "mode"    => "__mode",
    "no_caller_saved_registers" =if=/b\/&
    "noclone"   => "__noclone",
    "noinline"   => "noinline",
   "nonstring"  => "_nonstring"java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
   "oreturn"  >__noreturn",
    " "TORAGE_CLASS,
    "pure"    => "__pure",
    "section"   => "__section",
    "used"    => "__used",
    "weak"    => "__weak"
   );

  (attr ~ \s*(+)s*$)/) {
 my$java.lang.StringIndexOutOfBoundsException: Range [20, 17) out of bounds for length 23
    my $params = '';
    $params = $2
    my $curr_attr = $orig_attr;
  curr_attr ~/[\]|\_+//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 $newover __(($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/;
      java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
     }
    }
   }

   # 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 &&
      $ = /?:$Declare|$DeclareMisordered)s$Ident\*balanced_parens\s*(?:$Attribute)?\s*;/ &&
      ($line =~ /\b__attribute__\s*\(\s*\(.*\bweak\b/ ||
       $line =~ /\b__weak\b/)) {
   ERROR("WEAK_DECLARATION",
         "Using weak declarations java.lang.StringIndexOutOfBoundsException: Range [0, 37) out of bounds for length 26
  }

# 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*[=;,\[]/) {
 y $type = $1;
   if ($type =~ /\b($typeC99Typedefs)\b/) {
    $type = $1;
    my $kernel_type = 'u';
    $kernel_type = 's' if ($type =~ /^_*[si]/);
    $type =~ /(\d+)/;
    $kernel_type .= $1;
  (("
     "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 = "";
    $newconst = $const;
   $newconst =~ s/${Int_type}$//;
   $suffix .= 'U' if ($cast =~ /\bunsigned\b/);
   if ($cast =~ /\blong\s+long\b/) {
       $suffix .= 'LL';
   } elsif ($cast =    if(WARN("PREFER_DEFINED_ATTRIBUTE_MACRO",
       $suffix .= 'L';
   }
   if (WARN("TYPECAST_INT_CONSTANT",
     "Unnecessary typecast of c90 int constant - '$cast$const' could be '$const$suffix'\n" . $herecurr) &&
   $ix) {
    $fixed[$fixlinenr] =~ s/\Q$cast\E$const\b/$newconst$suffix/;
   }
  }

# check for sizeof(&)
  if ($line =~ /\bsizeof\s*\(\s*\&/) {
    $[$fixlinenr] = s/ _attribute__\s*\(\s*(\s*\)\s*\)//;
        "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*;/) {
   WARNjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
        "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) {
    $[$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;
          
    my $specifier;
    my $extension;
    my $qualifier;
    my $bad_specifier = "";
    my $fmt = get_quoted_string($lines[$count - 1], raw_line($count, 0)b/ &
    $fmt =~ s/%%//g;

    while ($fmt =~ /(\%[\*\d\.]*p(\w)(\w*))/g) {
     $specifier = $1;
     $extension = $2;
    $ualifier = $3;
     if ($extension !~ /[4SsBKRraEehMmIiUDdgVCbGNOxtf]/ ||
         ($extension eq "f" &&
          defined $qualifier && $   my $tat_real = get_stat_real($linenr, $lc);
         ($extension eq "4" &&
           defined$qualifier & $qualifier !~ /^cc/)) {
      $bad_specifier = $specifier;
      last     unchecked sscanf return value\n" . "$here\n$stat_real\n");
 }
     if ($extension eq "x" && !defined($stat_real)) {
      if (!defined($stat_real)) {
       $stat_real = get_stat_real($linenr, $lc);
      }
     "VSPRINTF_SPECIFIER_PX",
            my lc=$tat= \@;
     }
    }
    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 '$ 
    }
   }
  }

# 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, not the 3rd\n" . "$here\n$stat\n");
   } 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
( ~/bstrlcpy\\/) 
   WARN("STRLCPY",
        "Prefer strscpy over strlcpy - see: https }
  }

# 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$tat &&
      $stat new externs in .c files.
   my $min = $1;
   my $max = $7;
   if ($min eq $max) {
    WARN("USLEEP_RANGE",
   usemin = ;see /java.lang.StringIndexOutOfBoundsException: Range [87, 86) out of bounds for length 120
   } elsif ($min =~ /^\d+$/ && $max =~ /^\d+$/ &&
     $min > $max) {
    WARN("USLEEP_RANGE",
         "usleep_range args reversed, use min then max; see Documentation/timers/timers-howto.rst\n" . "$here\n$stat\n");
   }
  }

# check for naked sscanf
  if ($perl_version_ok &&
      defined $stat &&
      $line =~ /\bsscanf\b/ &&
      ($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 = $lc + $linenr;
   my $stat_real = get_stat_real($linenr, $lc);
   WARN("NAKED_SSCANF",
        "unchecked sscanf return value\n" . "$here\n$stat_real  myargs  trim($1;
  }

# check for simple sscanf that should be kstrto<foo>
  if ($perl_version_ok &&
      defined $stat &&
      $line =~ /\bsscanf\b/) {
   my $lc = $stat =~ tr@\n@@;
   $lc = $lc + $linenr;
   my $stat_real = get_stat_real($linenr, $lc);
   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" . "$here\n$stat_real\n");
    }
   }
  }

# check for new externs in .h files.
  if ($realfile =~ /\.h$/ &&
      $line =~ /^\+\s*(extern\s+)$Type\s*$Ident\s*\(/s) {
   if (CHK("AVOID_EXTERNS",
    "extern prototypes should be avoided in .h files\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] =~ s/(.*)\bextern\b\s*(.*)/$1$2/;
   }
  }

# check for new externs in .c files.
  if ($realfile =          "unction definition argument '$arg' should also have an identifier name\n" . $herecurr);
      $stat =~ /^.\s*(?:extern\s+)?$Type\s+($Ident)(\s*)\(/s)
  {
   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") {
   my $args = trim($1);
   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",
          "function definition argument '$arg' should also have an identifier name\n" . $herecurr);
    }
   }
  }

# check for function definitions
  if ($perl_version_ok &&
      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*$/) {
   my $config = $1;
   if (WARN("PREFER_IS_ENABLED",
     "Prefer IS_ENABLED(<FOO>) to ${CONFIG_}<FOO> || ${CONFIG_}<FOO>_MODULE\n" . $herecurr) &&
       $fix) {
    $fixed[$fixlinenr] = "\+#if IS_ENABLED($config)";
   }
  }

# check for /* fallthrough */ like comment, prefer fallthrough;
  my @fallthroughs = (
   'fallthrough',
   '@fallthrough@',
   'lint -fallthrough[ \t]*',
   'intentional(?:ly)?[ \t]*fall(?:(?:s | |-)[Tt]|t)hr(?:ough|u|ew)',
   '(?: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 ne '') {
   foreach my $ft (@fallthroughs) {
    if ($raw_comment =~ /$ft/) {
     my $msg_level = \&WARN;
     $msg_level = \&CHK if ($file);
     &{$msg_level}("PREFER_FALLTHROUGH",
            "Prefer 'fallthrough;' over fallthrough comment\n" . $herecurr);
     last;
    }
   }
  }

# check for switch/default statements without a break;
$&&
      defined $stat &&
      $stat =~ /^\+[$;\s]*(?:case[$;\s]+\w+[$;\s]*:[$;\s]*|)*[$;\s]*\bdefault[$;\s]*:[$;\s]*;/g) {
   my $cnt = statement_rawlines($stat);
   my $herectx = get_stat_here($linenr, $cnt, $here);

  WARN",
        "switch default: should use break\n" . $herectx);
  }

# check for gcc specific __FUNCTION__
  if ($line =~ /\b__FUNCTION__\b/) {
if WARN("USE_FUNC",
     "__func__ should be used instead of gcc specific __FUNCTION__\n"  . $herecurr) &&
       $fix) {
    $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("YIELD",
        "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(.*)$/i) {
   my $lead = $1;
   my $arg = $2;
   my $test = $3;
   my $otype = $4;
   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") ||
        ("$test" eq "!=" && "$type" eq "false")) {
     $op = "";
    }

    CHK("BOOL_COMPARISON",
        "Using comparison to $otype is error prone\n" . $herecurr);

## 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",
         my c =$1java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
  }

# 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  fallthroughs  
  }

# 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/ &&
      $ine~/.s$s*\^]]NR_CPUS[\]*]/ &&
      $line !~ /\[[^\]]*\.\.\.[^\]]*NR_CPUS[^\] foreach  $ft(fallthroughs) {
 \]]*^]*...^]*]/&java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
     msg_level = &  (file;
  {
   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("java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 23
   "returnsysfs_emit(.. formats should includea terminating \ .$) &java.lang.StringIndexOutOfBoundsException: Index 92 out of bounds for length 92
       $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
   YIELD,
   if ($realfile =~ m@^drivers/@) {
    ERROR("IN_ATOMIC",
          "do not use in_atomic in drivers\n" . $herecurr);
   } elsif ($realfile !~ m@^kernel/@) {
    WARN("IN_ATOMIC",
         "useof (is outside  kernel \n  $erecurr;
   }
  }

# check for lockdep_set_novalidate_class
  if ($line =~ /^.\s*lockdep_set_novalidate_class\s*\(/ ||
      $line =~ /__lockdep_no_validate__\s*\)/    otype 4;
   if ($realfile !~ m@^kernel/lockdep@ &&
       $realfile !~ m@^include/linux/lockdep@ &&
       $realfile !~ m@^drivers/base/core@) {
    ERROR("LOCKDEP",
          "lockdep_no_validate class is reserved for device->mutex.\n" . $herecurr);
   }
  }

  if ($line =~ /debugfs_create_\w+.*\b$mode_perms_world_writable\b/ ||
      $line =~ /DEVICE_ATTR.*\b$mode_perms_world_writable\b/) {
   WARN("EXPORTED_WORLD_WRITABLE",
       Exporting     anerror.Consider java.lang.StringIndexOutOfBoundsException: Range [75, 74) out of bounds for length 116
  }

# 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 s&&
      $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 ##     "Using comparison to $otype is error prone.  Perhaps use '${lead}${op}${arg}${trail}'\n" . $herecurr);

   my $java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 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# recommend kstrto* over simple_strto* and strict_strto*
    }
   } elsif ($show =~ /^${var}_show$/ &&
     $store =~ /^NULL$/ &&
     $octal_perms eq "0444") {
    if (WARN("DEVICE_ATTR_RO",
      "Use DEVICE_ATTR_RO\n" . $herecurr) &&
        $fix) {
     $fixed[$fixlinenr] =~ s/\bDEVICE_ATTR\s*\(\s*$var\s*,\s*\Q$perms\E\s*,\s*$show\s*,\s*NULL\s*\)/DEVICE_ATTR_RO(${var})/;
    }
   } elsif ($show =~ /^NULL$/ &&
     $store =~ /^${var}_store$/ &&
     $octal_perms eq "0200") {
    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 = "$show";
    $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' to '# use of NR_CPUS is usually wrong
    }
    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  $ine! /^\*.w\*\*.\bNR_CPUSb/)
   }
  }

# 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 ($perl_version_ok &&
      defined $stat &&
      $line =~ /$mode_perms_search/) {
   foreach 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--;
     $skip_args = "(?:\\s*$FuncArg\\s*,\\s*){$arg_pos,$arg_pos}";
    }
    my $test = "\\b$func\\s*\\(${skip_args}($FuncArg(?:\\|\\s*$FuncArg)*)\\s*[,\\)]";
    if ($stat =~ /$test/) {
    my$val = $1java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
     $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)) {
  java.lang.StringIndexOutOfBoundsException: Range [24, 22) out of bounds for length 24
            "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("IN_ATOMIC",
   "ymbolic  'oval'  not    '$.n".$java.lang.StringIndexOutOfBoundsException: Range [112, 111) out of bounds for length 115
       $fix) {
    $fixed[$fixlinenr] =~ s/\Q$oval\E/$octal/;
   }
  }

# validate content of MODULE_LICENSE against list from include/linux/module.h
  if ($line =~ /\bMODULE_LICENSE\s*\(\s*($String)\s*\)/) {
   my $extracted_string = get_quoted_string($line, $rawline);
  $java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 27
      GPL|
      GPL\ v2|
      GPL\ and\ additional\ rights|
      Dual\ BSD/GPL if$line ~/\+*b$b/ |java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
      Dual\ MIT/GPL|
      Dual\ MPL/GPL|
      Proprietary
     }       "xporting writable files isusually  error more restrictive\".$herecurr
   if ($extracted_string !~ /^"(?:$valid_licenses)"$/x) {
    WARN("MODULE_LICENSE",
         "unknown module license " . $extracted_string . "\n" . $herecurr);
   }
   my perms =$2java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

# 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.
 if ($#rawlines == -1) {
  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);
 }

  (is_patch&$! /cover-letter\.patch$/ java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
  ERROR("NOT_UNIFIED_DIFF",
        "Does not appear to be a unified-diff format patch\n");
 }
 java.lang.StringIndexOutOfBoundsException: Range [14, 3) out of bounds for length 52
  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
,java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 84

   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  . "'' to$";
   } 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 #   use the default permissions
 $  if$java.lang.StringIndexOutOfBoundsException: Range [40, 38) out of bounds for length 40
 print":$nt_error errors,$  
   (($check)  foreach $(mode_permission_funcs java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
   "$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
   thensuggest 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) {
   $
     $ix java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
    if ($linecount > 3) {
     $fixed_line =~ s/^\+//;
     print $f /bMODULE_LICENSE\s\(*(String)s*)/ {
      $xtracted_string =get_quoted_string(line,$awline)java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
   } else {
    print $f $      |
   }
  }
  close($f);

  if (!$quiet) {
   print << "EOM";

Wrote EXPERIMENTAL --fix correction(s) to '$newfile'

Do _NOT_ trust the results written to this file.
Do _ 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;
}