Lines Matching refs:line
170 my $line = $_;
172 $line =~ s/\s*\n?$//g;
173 $line =~ s/^\s*//g;
174 $line =~ s/\s+/ /g;
176 next if ($line =~ m/^\s*#/);
177 next if ($line =~ m/^\s*$/);
179 my @words = split(" ", $line);
284 my $line = $_;
286 if ($line =~ m/^(\C):\s*(.*)/) {
304 $line =~ s/\n$//g;
305 push(@typevalue, $line);
417 foreach my $line (keys %keyword_hash) {
418 if ($text =~ m/$keyword_hash{$line}/x) {
419 push(@keyword_tvi, $line);
456 foreach my $line (keys %keyword_hash) {
457 if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
458 push(@keyword_tvi, $line);
520 my $line = $typevalue[$i];
521 if ($line =~ m/^(\C):\s*(.*)/) {
538 my $line = $typevalue[$i];
539 if ($line =~ m/^(\C):\s*(.*)/) {
587 my $line = $typevalue[$i];
588 if ($line =~ m/^(\C):\s*(.*)/) {
602 my $line = $typevalue[$i];
603 if ($line =~ m/^(\C):\s*(.*)/) {
633 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
634 add_categories($line);
637 my $start = find_starting_index($line);
638 my $end = find_ending_index($line);
640 my $line = $typevalue[$i];
641 if ($line =~ /^[FX]:/) { ##Restore file patterns
642 $line =~ s/([^\\])\.([^\*])/$1\?$2/g;
643 $line =~ s/([^\\])\.$/$1\?/g; ##Convert . back to ?
644 $line =~ s/\\\./\./g; ##Convert \. to .
645 $line =~ s/\.\*/\*/g; ##Convert .* to *
647 $line =~ s/^([A-Z]):/$1:\t/g;
648 print("$line\n");
657 foreach my $line (@keyword_tvi) {
658 add_categories($line);
1109 my ($line, $role) = @_;
1111 my ($name, $address) = parse_email($line);
1148 my ($line, $role) = @_;
1150 my ($name, $address) = parse_email($line);
1204 my ($line) = @_;
1206 my ($name, $address) = parse_email($line);
1234 foreach my $line (@addresses) {
1235 push(@mapped_emails, mailmap_email($line));
1348 foreach my $line (@lines) {
1349 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1370 foreach my $line (@lines) {
1371 if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1780 foreach my $line (@lines) {
1781 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1786 push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1787 push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1812 foreach my $line (@lines) {
1813 $commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1814 $subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1815 if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1816 my @signatures = ($line);
1866 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1867 my $sign_offs = $hash{$line};
1875 push_email_address($line, '');
1878 add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1880 add_role($line, $role);
2040 foreach my $line (@lines) {
2041 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2170 foreach my $line (@parms) {
2171 print("${line}\n");