Lines Matching refs:lines
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";