Lines Matching refs:line
162 my $line = $_;
164 $line =~ s/\s*\n?$//g;
165 $line =~ s/^\s*//g;
166 $line =~ s/\s+/ /g;
168 next if ($line =~ m/^\s*#/);
169 next if ($line =~ m/^\s*$/);
171 my @words = split(" ", $line);
274 my $line = $_;
276 if ($line =~ m/^(\C):\s*(.*)/) {
294 $line =~ s/\n$//g;
295 push(@typevalue, $line);
407 foreach my $line (keys %keyword_hash) {
408 if ($text =~ m/$keyword_hash{$line}/x) {
409 push(@keyword_tvi, $line);
446 foreach my $line (keys %keyword_hash) {
447 if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
448 push(@keyword_tvi, $line);
511 my $line = $typevalue[$i];
512 if ($line =~ m/^(\C):\s*(.*)/) {
529 my $line = $typevalue[$i];
530 if ($line =~ m/^(\C):\s*(.*)/) {
578 my $line = $typevalue[$i];
579 if ($line =~ m/^(\C):\s*(.*)/) {
593 my $line = $typevalue[$i];
594 if ($line =~ m/^(\C):\s*(.*)/) {
620 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
621 add_categories($line);
624 my $start = find_starting_index($line);
625 my $end = find_ending_index($line);
627 my $line = $typevalue[$i];
628 if ($line =~ /^[FX]:/) { ##Restore file patterns
629 $line =~ s/([^\\])\.([^\*])/$1\?$2/g;
630 $line =~ s/([^\\])\.$/$1\?/g; ##Convert . back to ?
631 $line =~ s/\\\./\./g; ##Convert \. to .
632 $line =~ s/\.\*/\*/g; ##Convert .* to *
634 $line =~ s/^([A-Z]):/$1:\t/g;
635 print("$line\n");
644 foreach my $line (@keyword_tvi) {
645 add_categories($line);
1079 my ($line, $role) = @_;
1081 my ($name, $address) = parse_email($line);
1118 my ($line, $role) = @_;
1120 my ($name, $address) = parse_email($line);
1174 my ($line) = @_;
1176 my ($name, $address) = parse_email($line);
1204 foreach my $line (@addresses) {
1205 push(@mapped_emails, mailmap_email($line));
1307 foreach my $line (@lines) {
1308 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1329 foreach my $line (@lines) {
1330 if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1739 foreach my $line (@lines) {
1740 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1745 push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1746 push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1771 foreach my $line (@lines) {
1772 $commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1773 $subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1774 if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1775 my @signatures = ($line);
1825 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1826 my $sign_offs = $hash{$line};
1834 push_email_address($line, '');
1837 add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1839 add_role($line, $role);
1936 foreach my $line (@lines) {
1937 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2066 foreach my $line (@parms) {
2067 print("${line}\n");