u-boot/scripts/checkpatch.pl

1086 	my @lines = split('\n', $text);
1088 	foreach my $line (@lines) {
1200 	my @lines = split("\n", $output);
1202 	return ($id, $desc) if ($#lines < 0);
1204 	if ($lines[0] =~ /^error: short SHA1 $commit is ambiguous/) {
1214 	} elsif ($lines[0] =~ /^fatal: ambiguous argument '$commit': unknown revision or path not in the working tree\./ ||
1215 		 $lines[0] =~ /^fatal: bad object $commit/) {
1218 		$id = substr($lines[0], 0, 12);
1219 		$desc = substr($lines[0], 41);
1228 my @lines = ();
1249 		my $lines = `${git_command} log --no-color --no-merges --pretty=format:'%H %s' $git_range`;
1250 		foreach my $line (split(/\n/, $lines)) {
1306 	@lines = ();
1662 				last if (!defined $lines[$line]);
1663 				next if ($lines[$line] =~ /^-/);
1666 				$blk .= $lines[$line] . "\n";
1773 	# Strip the diff line prefixes and rip blank lines at start and end.
1860 		if ($lines[$line] =~ /^.\s*#\s*(?:ifndef|ifdef|if)\s/) {
1862 		} elsif ($lines[$line] =~ /^.\s*#\s*(?:else|elif)\b/) {
1864 		} elsif ($lines[$line] =~ /^.\s*#\s*endif\b/) {
1868 		foreach my $c (split(//, $lines[$line])) {
2323 		my @lines = split("\n", $output, -1);
2324 		splice(@lines, 1, 1);
2325 		$output = join("\n", @lines);
2371 	my @lines = ();
2389 			fixup_current_range(\$lines[$range_last_linenr], $delta_offset--, -1);
2393 			push(@lines, ${$inserted}{'LINE'});
2396 			fixup_current_range(\$lines[$range_last_linenr], $delta_offset++, 1);
2400 			push(@lines, $line);
2407 	return @lines;
2728 	my $in_commit_log = 0;		#Scanning lines before patch
2730 	my $has_commit_log = 0;		#Encountered lines before patch
2731 	my $commit_log_lines = 0;	#Number of commit log lines
2770 	# Pre-scan the patch sanitizing the lines.
2840 			# simplify matching -- only bother with positive lines.
2843 		push(@lines, $line);
2864 	foreach my $line (@lines) {
2909 # blank context lines so we need to count that too.
3251 				if (!defined $lines[$linenr]) {
3313 # Check for lines starting with a #
3316 				 "Commit log lines starting with '#' are dropped by git as comments\n" . $herecurr) &&
3329 # A commit match can span multiple lines so this block attempts to find a
3330 # complete typical commit on a maximum of 3 lines
3367 					last if ($#lines < $linenr + $n);
3548 			# if it's a repeated word on consecutive lines in a comment block
3562 # ignore non-hunk lines and lines being removed
3610 			for (; $cnt > 0 && defined $lines[$ln - 1]; $ln++) {
3611 				$f = $lines[$ln - 1];
3612 				$cnt-- if ($lines[$ln - 1] !~ /^-/);
3613 				$is_end = $lines[$ln - 1] =~ /^\+/;
3618 				if ($lines[$ln - 1] =~ /^\+\s*(?:bool|tristate|prompt)\s*["']/) {
3620 				} elsif ($lines[$ln - 1] =~ /^\+\s*(?:---)?help(?:---)?$/) {
3629 				# This only checks context lines in the patch
3800 # There are a few types of lines that may extend beyond $max_line_length:
3802 #	lines with a single string
3804 #	lines with an RFC3986 like URL
3809 # LONG_LINE		all other lines longer than $max_line_length
3825 			# lines with only strings (w/ possible termination)
3862 # check for adding lines without a newline.
3863 		if ($line =~ /^\+/ && defined $lines[$linenr] && $lines[$linenr] =~ /^\\ No newline at end of file/) {
4007 # Block comments use * on subsequent lines
4014 			     "Block comments use * on subsequent lines\n" . $hereprev);
4017 # Block comments use */ on trailing lines
4050 # check for missing blank lines after struct/union declarations
4070 # check for multiple consecutive blank lines
4075 				"Please don't use multiple blank lines\n" . $hereprev) &&
4083 # check for missing blank lines after declarations
4101 			# other possible extensions of declaration lines
4119 			# other possible extensions of declaration lines
4170 			     defined $lines[$linenr] &&
4171 			     $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
4227 			    (!defined $lines[$realline_next - 1] ||
4228 			     substr($lines[$realline_next - 1], $off_next) =~ /^\s*$/)) {
4325 					defined $lines[$ctx_ln - 1] &&
4326 					$lines[$ctx_ln - 1] =~ /^-/)) {
4328 				$ctx_skip-- if (!defined $lines[$ctx_ln - 1] || $lines[$ctx_ln - 1] !~ /^-/);
4333 			#print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";
4335 			if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln - 1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
4342 			    defined $lines[$ctx_ln - 1])
4344 				my ($nlength, $nindent) = line_stats($lines[$ctx_ln - 1]);
4414 				#  1) blank lines, they should be at 0,
4415 				#  2) preprocessor lines, and
4431 			# Check if either of these lines are modified, else
4454 		# Track the 'values' across context and added lines.
4467 #ignore lines not being added
4481 # check for dereferences that span multiple lines
4592 #print "APW <$lines[$realline_next - 1]>\n";
4594 		    exists $lines[$realline_next - 1] &&
4596 		    ($lines[$realline_next - 1] =~ /EXPORT_SYMBOL.*\((.*)\)/)) {
4616 #print "FOO A<$lines[$realline_next - 1]> stat<$stat> name<$name>\n";
4625 #print "FOO B <$lines[$linenr - 1]>\n";
5426 ## # check for blank lines before declarations
5430 ##			     "No blank lines before declarations\n" . $hereprev);
5585 		    $lines[$linenr - 3] =~ /^[ +]/ &&
5586 		    $lines[$linenr - 3] !~ /^[ +]\s*$Ident\s*:/) {
5857 				 "Whitespace after \\ makes next lines useless\n" . $herecurr) &&
5900 			#print "LINE<$lines[$ln-1]> len<" . length($lines[$ln-1]) . "\n";
6133 						#print "APW: ALLOWED: lines block<$block>\n";
6182 				#print "APW: ALLOWED: lines block<$block>\n";
6211 # check for unnecessary blank lines around braces
6214 				"Blank lines aren't necessary before a close brace '}'\n" . $hereprev) &&
6221 				"Blank lines aren't necessary after an open brace '{'\n" . $hereprev) &&
6234 # Check for user-visible strings broken across lines, which breaks the ability
6236 # newline (multiple lines in one string constant) or '\t', '\r', ';', or '{'
6242 				 "quoted string split across lines\n" . $hereprev) &&
6387 					if ($lines[$linenr - 2] =~ /^\+(\t*)if\s*\(\s*$tested\s*\)\s*$/) {
6392 					if ($lines[$linenr - 1] =~ /^\+(\t+)$func\s*\(\s*$tested\s*\)\s*;\s*$/) {
6414 			my $testline = $lines[$linenr - 3];
6872 				my $fmt = get_quoted_string($lines[$count - 1], raw_line($count, 0));
7611 			"$cnt_lines lines checked\n";