rk3399_rockchip-uboot/scripts/get_maintainer.pl

177 	my $line = $_;
179 	$line =~ s/\s*\n?$//g;
180 	$line =~ s/^\s*//g;
181 	$line =~ s/\s+/ /g;
183 	next if ($line =~ m/^\s*#/);
184 	next if ($line =~ m/^\s*$/);
186 	my @words = split(" ", $line);
202 	my $line = $_;
204 	$line =~ s/\s*\n?$//;
205 	$line =~ s/^\s*//;
206 	$line =~ s/\s+$//;
207 	$line =~ s/#.*$//;
209 	next if ($line =~ m/^\s*$/);
210 	if (rfc822_valid($line)) {
211 	    push(@ignore_emails, $line);
319 	my $line = $_;
321 	if ($line =~ m/^([A-Z]):\s*(.*)/) {
339 	    $line =~ s/\n$//g;
340 	    push(@typevalue, $line);
488 		foreach my $line (keys %keyword_hash) {
489 		    if ($text =~ m/$keyword_hash{$line}/x) {
490 			push(@keyword_tvi, $line);
527 		foreach my $line (keys %keyword_hash) {
528 		    if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
529 			push(@keyword_tvi, $line);
601 	my $line = $typevalue[$i];
602 	if ($line =~ m/^([A-Z]):\s*(.*)/) {
619 	my $line = $typevalue[$i];
620 	if ($line =~ m/^([A-Z]):\s*(.*)/) {
668 		my $line = $typevalue[$i];
669 		if ($line =~ m/^([A-Z]):\s*(.*)/) {
683 		    my $line = $typevalue[$i];
684 		    if ($line =~ m/^([A-Z]):\s*(.*)/) {
714 	foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
715 	    add_categories($line);
718 		my $start = find_starting_index($line);
719 		my $end = find_ending_index($line);
721 		    my $line = $typevalue[$i];
722 		    if ($line =~ /^[FX]:/) {		##Restore file patterns
723 			$line =~ s/([^\\])\.([^\*])/$1\?$2/g;
724 			$line =~ s/([^\\])\.$/$1\?/g;	##Convert . back to ?
725 			$line =~ s/\\\./\./g;       	##Convert \. to .
726 			$line =~ s/\.\*/\*/g;       	##Convert .* to *
728 		    my $count = $line =~ s/^([A-Z]):/$1:\t/g;
730 			print("$line\n");
740 	foreach my $line (@keyword_tvi) {
741 	    add_categories($line);
1200     my ($line, $role) = @_;
1202     my ($name, $address) = parse_email($line);
1239     my ($line, $role) = @_;
1241     my ($name, $address) = parse_email($line);
1295     my ($line) = @_;
1297     my ($name, $address) = parse_email($line);
1325     foreach my $line (@addresses) {
1326 	push(@mapped_emails, mailmap_email($line));
1439     foreach my $line (@lines) {
1440 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1461     foreach my $line (@lines) {
1462 	if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1871     foreach my $line (@lines) {
1872 	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1877 	push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1878 	push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1903     foreach my $line (@lines) {
1904 	$commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1905 	$subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1906 	if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1907 	    my @signatures = ($line);
1957     foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1958 	my $sign_offs = $hash{$line};
1962 	next if (ignore_email_address($line));
1967 	push_email_address($line, '');
1970 	    add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1972 	    add_role($line, $role);
2132 		foreach my $line (@lines) {
2133 		    if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
2280 	foreach my $line (@parms) {
2281 	    print("${line}\n");