kvm-unit-tests/scripts/checkpatch.pl

205 			my $level = $types{$type};
206 			if ($level eq "ERROR") {
208 			} elsif ($level eq "WARN") {
210 			} elsif ($level eq "CHK") {
1689 	my $level = 0;
1718 			if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1719 				$level++;
1731 			push(@stack, [ $type, $level ]);
1733 			($type, $level) = @{$stack[$#stack - 1]};
1735 			($type, $level) = @{pop(@stack)};
1740 		if ($level == 0 && $c eq ';') {
1745 		if ($level == 0 && $coff_set == 0 &&
1756 			$level++;
1760 			$level--;
1761 			$type = ($level != 0)? '(' : '';
1763 			if ($level == 0 && $coff < $soff) {
1770 			$level++;
1774 			$level--;
1775 			$type = ($level != 0)? '{' : '';
1777 			if ($level == 0) {
1786 			$level--;
1809 			$line, $remain + 1, $off - $loff + 1, $level);
1857 	my ($statement, $condition, $level);
1862 	($statement, $condition, $linenr, $remain, $off, $level) =
1867 		return ($level, $linenr, @chunks);
1873 		($statement, $condition, $linenr, $remain, $off, $level) =
1881 	return ($level, $linenr, @chunks);
1893 	my $level = 0;
1894 	my @stack = ($level);
1903 			push(@stack, $level);
1905 			$level = $stack[$#stack - 1];
1907 			$level = pop(@stack);
1917 			if ($c eq $close && $level > 0) {
1918 				$level--;
1919 				last if ($level == 0);
1921 				$level++;
1925 		if (!$outer || $level <= 1) {
1929 		last if ($level == 0);
1932 	return ($level, @res);
1937 	my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1943 	my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1949 	my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
2340 	my ($level, $type, $msg) = @_;
2348 		if ($level eq 'ERROR') {
2350 		} elsif ($level eq 'WARNING') {
2356 	$output .= $prefix . $level . ':';
4336 			my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
4365 			if ($level == 0 && $pre_ctx !~ /}\s*while\s*\($/ &&
4880 			my $level = lc($orig);
4881 			$level = "warn" if ($level eq "warning");
4882 			my $level2 = $level;
4883 			$level2 = "dbg" if ($level eq "debug");
4884 			$level .= $modifier;
4887 …g: netdev]_$level2([subsystem]dev, ... then dev_$level2(dev, ... then pr_$level(...  to $printk(KE…
4893 			my $level = lc($orig);
4894 			$level = "warn" if ($level eq "warning");
4895 			$level = "dbg" if ($level eq "debug");
4897 			     "Prefer dev_$level(... to dev_printk(KERN_$orig, ...\n" . $herecurr);
6144 			my ($level, $endln, @chunks) =
6148 			if ($#chunks > 0 && $level == 0) {
6215 			my ($level, $endln, @chunks) =
6247 			if ($level == 0 && $block =~ /^\s*\{/ && !$allowed) {
6480 			my $level = $1;
6482 				 "Possible unnecessary $level\n" . $herecurr) &&
6484 				$fixed[$fixlinenr] =~ s/\s*$level\s*//;