qemu/scripts/get_maintainer.pl

150 	my $line = $_;
152 	$line =~ s/\s*\n?$//g;
153 	$line =~ s/^\s*//g;
154 	$line =~ s/\s+/ /g;
156 	next if ($line =~ m/^\s*#/);
157 	next if ($line =~ m/^\s*$/);
159 	my @words = split(" ", $line);
263     my $line = $_;
265     if ($line =~ m/^(.):\s*(.*)/) {
283 	$line =~ s/\n$//g;
284 	push(@typevalue, $line);
396 		foreach my $line (keys %keyword_hash) {
397 		    if ($text =~ m/$keyword_hash{$line}/x) {
398 			push(@keyword_tvi, $line);
435 		foreach my $line (keys %keyword_hash) {
436 		    if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
437 			push(@keyword_tvi, $line);
499 	my $line = $typevalue[$i];
500 	if ($line =~ m/^(.):\s*(.*)/) {
517 	my $line = $typevalue[$i];
518 	if ($line =~ m/^(.):\s*(.*)/) {
566 		my $line = $typevalue[$i];
567 		if ($line =~ m/^(.):\s*(.*)/) {
581 		    my $line = $typevalue[$i];
582 		    if ($line =~ m/^(.):\s*(.*)/) {
608 	foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
609 	    add_categories($line);
612 		my $start = find_starting_index($line);
613 		my $end = find_ending_index($line);
615 		    my $line = $typevalue[$i];
616 		    if ($line =~ /^[FX]:/) {		##Restore file patterns
617 			$line =~ s/([^\\])\.([^\*])/$1\?$2/g;
618 			$line =~ s/([^\\])\.$/$1\?/g;	##Convert . back to ?
619 			$line =~ s/\\\./\./g;       	##Convert \. to .
620 			$line =~ s/\.\*/\*/g;       	##Convert .* to *
622 		    $line =~ s/^([A-Z]):/$1:\t/g;
623 		    print("$line\n");
632 	foreach my $line (@keyword_tvi) {
633 	    add_categories($line);
1071     my ($line, $role) = @_;
1073     my ($name, $address) = parse_email($line);
1110     my ($line, $role) = @_;
1112     my ($name, $address) = parse_email($line);
1166     my ($line) = @_;
1168     my ($name, $address) = parse_email($line);
1196     foreach my $line (@addresses) {
1197 	push(@mapped_emails, mailmap_email($line));
1291     foreach my $line (@lines) {
1292 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1313     foreach my $line (@lines) {
1314 	if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1723     foreach my $line (@lines) {
1724 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1729 	push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1730 	push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1755     foreach my $line (@lines) {
1756 	$commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1757 	$subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1758 	if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1759 	    my @signatures = ($line);
1809     foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1810 	my $sign_offs = $hash{$line};
1818 	push_email_address($line, '');
1821 	    add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1823 	    add_role($line, $role);
1916 		foreach my $line (@lines) {
1917 		    if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2046 	foreach my $line (@parms) {
2047 	    print("${line}\n");