Lines Matching full:line
65 --append-dot append a dot to the first line of each commit message if
80 this includes the "cherry picked from commit ..." line,
93 at the beginning of a log message line. They are not copied to the output.
107 a line) referring to a commit in the current project, and CODE refers to one
109 more blank line.
150 # (alone on a line) referring to a commit in the current project, and
152 # Pairs must be separated by one or more blank line.
164 while (defined (my $line = <F>))
166 $line =~ /^\#/
168 chomp $line;
169 $line eq ''
174 $line =~ /^([0-9a-fA-F]{40})$/
175 or (warn "$ME: $f:$.: invalid line; expected an SHA1\n"),
186 $h->{$sha} .= "$line\n";
267 or die "$ME:$.: Invalid line (expected log size):\n$in";
309 my @line = split "\n", $rest;
310 my $author_line = shift @line;
314 or die "$ME:$.: Invalid line "
319 my $tiny = (grep (/^Copyright-paperwork-exempt:\s+[Yy]es$/, @line)
325 my @coauthors = grep /^Co-authored-by:.*$/, @line;
327 @line = grep !/^(?:Signed-off-by:[ ].*>$
330 )/x, @line;
333 if (@line)
335 while ($line[0] =~ /^\s*$/) { shift @line; }
336 while ($line[$#line] =~ /^\s*$/) { pop @line; }
340 my $multi_paragraph = grep /^\s*$/, @line;
375 if (@line == 0)
383 # If the first line of the message has enough room, then
384 if (length $line[0] < 72)
388 $line[0] =~ /[[:punct:]\s]$/
389 or $line[0] .= '.';
393 # Remove one additional leading TAB from each line.
395 and map { s/^\t// } @line;
397 # Prefix each non-empty line with a TAB.
398 @line = map { length $_ ? "\t$_" : '' } @line;
400 print "\n", join ("\n", @line), "\n";
406 and die "$ME:$.: unexpected line:\n$in";
