rk3399_rockchip-uboot/scripts/checkpatch.pl

1281 	my $level = 0;
1310 			if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1311 				$level++;
1323 			push(@stack, [ $type, $level ]);
1325 			($type, $level) = @{$stack[$#stack - 1]};
1327 			($type, $level) = @{pop(@stack)};
1332 		if ($level == 0 && $c eq ';') {
1337 		if ($level == 0 && $coff_set == 0 &&
1348 			$level++;
1352 			$level--;
1353 			$type = ($level != 0)? '(' : '';
1355 			if ($level == 0 && $coff < $soff) {
1362 			$level++;
1366 			$level--;
1367 			$type = ($level != 0)? '{' : '';
1369 			if ($level == 0) {
1378 			$level--;
1401 			$line, $remain + 1, $off - $loff + 1, $level);
1449 	my ($statement, $condition, $level);
1454 	($statement, $condition, $linenr, $remain, $off, $level) =
1459 		return ($level, $linenr, @chunks);
1465 		($statement, $condition, $linenr, $remain, $off, $level) =
1473 	return ($level, $linenr, @chunks);
1485 	my $level = 0;
1486 	my @stack = ($level);
1495 			push(@stack, $level);
1497 			$level = $stack[$#stack - 1];
1499 			$level = pop(@stack);
1509 			if ($c eq $close && $level > 0) {
1510 				$level--;
1511 				last if ($level == 0);
1513 				$level++;
1517 		if (!$outer || $level <= 1) {
1521 		last if ($level == 0);
1524 	return ($level, @res);
1529 	my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1535 	my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1541 	my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1902 	my ($level, $type, $msg) = @_;
1910 		if ($level eq 'ERROR') {
1912 		} elsif ($level eq 'WARNING') {
1918 	$output .= $prefix . $level . ':';
3351 			my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
3380 			if ($level == 0 && $pre_ctx !~ /}\s*while\s*\($/ &&
3857 			my $level = lc($orig);
3858 			$level = "warn" if ($level eq "warning");
3859 			my $level2 = $level;
3860 			$level2 = "dbg" if ($level eq "debug");
3862 …g: netdev]_$level2([subsystem]dev, ... then dev_$level2(dev, ... then pr_$level(...  to printk(KER…
3876 			my $level = lc($orig);
3877 			$level = "warn" if ($level eq "warning");
3878 			$level = "dbg" if ($level eq "debug");
3880 			     "Prefer dev_$level(... to dev_printk(KERN_$orig, ...\n" . $herecurr);
5050 			my ($level, $endln, @chunks) =
5054 			if ($#chunks > 0 && $level == 0) {
5121 			my ($level, $endln, @chunks) =
5153 			if ($level == 0 && $block =~ /^\s*\{/ && !$allowed) {
5360 			my $level = $1;
5362 				 "Possible unnecessary $level\n" . $herecurr) &&
5364 				$fixed[$fixlinenr] =~ s/\s*$level\s*//;