kvm-unit-tests/scripts/checkpatch.pl

1127 	my @lines = split('\n', $text);
1129 	foreach my $line (@lines) {
1241 	my @lines = split("\n", $output);
1243 	return ($id, $desc) if ($#lines < 0);
1245 	if ($lines[0] =~ /^error: short SHA1 $commit is ambiguous/) {
1255 …} elsif ($lines[0] =~ /^fatal: ambiguous argument '$commit': unknown revision or path not in the w…
1256 		 $lines[0] =~ /^fatal: bad object $commit/) {
1259 		$id = substr($lines[0], 0, 12);
1260 		$desc = substr($lines[0], 41);
1270 my @lines = ();
1291 		my $lines = `${git_command} log --no-color --no-merges --pretty=format:'%H %s' $git_range`;
1292 		foreach my $line (split(/\n/, $lines)) {
1348 	@lines = ();
1704 				last if (!defined $lines[$line]);
1705 				next if ($lines[$line] =~ /^-/);
1708 				$blk .= $lines[$line] . "\n";
1815 	# Strip the diff line prefixes and rip blank lines at start and end.
1902 		if ($lines[$line] =~ /^.\s*#\s*(?:ifndef|ifdef|if)\s/) {
1904 		} elsif ($lines[$line] =~ /^.\s*#\s*(?:else|elif)\b/) {
1906 		} elsif ($lines[$line] =~ /^.\s*#\s*endif\b/) {
1910 		foreach my $c (split(//, $lines[$line])) {
2365 		my @lines = split("\n", $output, -1);
2366 		splice(@lines, 1, 1);
2367 		$output = join("\n", @lines);
2413 	my @lines = ();
2431 			fixup_current_range(\$lines[$range_last_linenr], $delta_offset--, -1);
2435 			push(@lines, ${$inserted}{'LINE'});
2438 			fixup_current_range(\$lines[$range_last_linenr], $delta_offset++, 1);
2442 			push(@lines, $line);
2449 	return @lines;
2656 	my $in_commit_log = 0;		#Scanning lines before patch
2658 	my $has_commit_log = 0;		#Encountered lines before patch
2659 	my $commit_log_lines = 0;	#Number of commit log lines
2698 	# Pre-scan the patch sanitizing the lines.
2768 			# simplify matching -- only bother with positive lines.
2771 		push(@lines, $line);
2792 	foreach my $line (@lines) {
2837 # blank context lines so we need to count that too.
3179 				if (!defined $lines[$linenr]) {
3193 				if (!defined $lines[$linenr]) {
3331 # Check for lines starting with a #
3334 				 "Commit log lines starting with '#' are dropped by git as comments\n" . $herecurr) &&
3347 # A commit match can span multiple lines so this block attempts to find a
3348 # complete typical commit on a maximum of 3 lines
3385 					last if ($#lines < $linenr + $n);
3572 			# if it's a repeated word on consecutive lines in a comment block
3586 # ignore non-hunk lines and lines being removed
3632 			while (defined $lines[$ln]) {
3633 				my $f = $lines[$ln++];
3650 				next if ($f =~ /^$/);	# skip blank lines
3653 				# This only checks context lines in the patch
3829 # There are a few types of lines that may extend beyond $max_line_length:
3831 #	lines with a single string
3833 #	lines with an RFC3986 like URL
3838 # LONG_LINE		all other lines longer than $max_line_length
3854 			# lines with only strings (w/ possible termination)
3891 # check for adding lines without a newline.
3892 …if ($line =~ /^\+/ && defined $lines[$linenr] && $lines[$linenr] =~ /^\\ No newline at end of file…
4032 # Block comments use * on subsequent lines
4039 			     "Block comments use * on subsequent lines\n" . $hereprev);
4042 # Block comments use */ on trailing lines
4075 # check for missing blank lines after struct/union declarations
4095 # check for multiple consecutive blank lines
4100 				"Please don't use multiple blank lines\n" . $hereprev) &&
4108 # check for missing blank lines after declarations
4126 			# other possible extensions of declaration lines
4144 			# other possible extensions of declaration lines
4174 			    "Lines should not end with a '$1'\n" . $herecurr);
4195 			     defined $lines[$linenr] &&
4196 			     $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
4252 			    (!defined $lines[$realline_next - 1] ||
4253 			     substr($lines[$realline_next - 1], $off_next) =~ /^\s*$/)) {
4350 					defined $lines[$ctx_ln - 1] &&
4351 					$lines[$ctx_ln - 1] =~ /^-/)) {
4353 				$ctx_skip-- if (!defined $lines[$ctx_ln - 1] || $lines[$ctx_ln - 1] !~ /^-/);
4358 			#print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";
4360 			if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln - 1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
4367 			    defined $lines[$ctx_ln - 1])
4369 				my ($nlength, $nindent) = line_stats($lines[$ctx_ln - 1]);
4439 				#  1) blank lines, they should be at 0,
4440 				#  2) preprocessor lines, and
4456 			# Check if either of these lines are modified, else
4479 		# Track the 'values' across context and added lines.
4492 #ignore lines not being added
4506 # check for dereferences that span multiple lines
4617 #print "APW <$lines[$realline_next - 1]>\n";
4619 		    exists $lines[$realline_next - 1] &&
4621 		    ($lines[$realline_next - 1] =~ /EXPORT_SYMBOL.*\((.*)\)/)) {
4641 #print "FOO A<$lines[$realline_next - 1]> stat<$stat> name<$name>\n";
4650 #print "FOO B <$lines[$linenr - 1]>\n";
5451 ## # check for blank lines before declarations
5455 ##			     "No blank lines before declarations\n" . $hereprev);
5610 		    $lines[$linenr - 3] =~ /^[ +]/ &&
5611 		    $lines[$linenr - 3] !~ /^[ +]\s*$Ident\s*:/) {
5898 				 "Whitespace after \\ makes next lines useless\n" . $herecurr) &&
5941 			#print "LINE<$lines[$ln-1]> len<" . length($lines[$ln-1]) . "\n";
6184 						#print "APW: ALLOWED: lines block<$block>\n";
6233 				#print "APW: ALLOWED: lines block<$block>\n";
6262 # check for unnecessary blank lines around braces
6265 				"Blank lines aren't necessary before a close brace '}'\n" . $hereprev) &&
6272 				"Blank lines aren't necessary after an open brace '{'\n" . $hereprev) &&
6285 # Check for user-visible strings broken across lines, which breaks the ability
6287 # newline (multiple lines in one string constant) or '\t', '\r', ';', or '{'
6293 				 "quoted string split across lines\n" . $hereprev) &&
6438 					if ($lines[$linenr - 2] =~ /^\+(\t*)if\s*\(\s*$tested\s*\)\s*$/) {
6443 					if ($lines[$linenr - 1] =~ /^\+(\t+)$func\s*\(\s*$tested\s*\)\s*;\s*$/) {
6465 			my $testline = $lines[$linenr - 3];
6923 				my $fmt = get_quoted_string($lines[$count - 1], raw_line($count, 0));
7767 			"$cnt_lines lines checked\n";