Switch core maintainer to Tom Rini. Add support for reading MAINTAINERS and MAINTAINERS.board. Adapt directory layout for git tree detection.
Signed-off-by: Daniel Schwierzeck daniel.schwierzeck@gmail.com ---
scripts/get_maintainer.pl | 81 +++++++++++++++++++++++++++-------------------- 1 file changed, 47 insertions(+), 34 deletions(-)
diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl index 4198788..8653502 100755 --- a/scripts/get_maintainer.pl +++ b/scripts/get_maintainer.pl @@ -61,9 +61,7 @@ my %commit_author_hash; my %commit_signer_hash;
my @penguin_chief = (); -push(@penguin_chief, "Linus Torvalds:torvalds@linux-foundation.org"); -#Andrew wants in on most everything - 2009/01/14 -#push(@penguin_chief, "Andrew Morton:akpm@linux-foundation.org"); +push(@penguin_chief, "Tom Rini:trini@ti.com");
my @penguin_chief_names = (); foreach my $chief (@penguin_chief) { @@ -275,34 +273,46 @@ if (!top_of_kernel_tree($lk_path)) { my @typevalue = (); my %keyword_hash;
-open (my $maint, '<', "${lk_path}MAINTAINERS") +my $maint; +open ($maint, '<', "${lk_path}MAINTAINERS.boards") + or die "$P: Can't open MAINTAINERS.boards: $!\n"; +read_maintainers($maint); +close($maint); + +open ($maint, '<', "${lk_path}MAINTAINERS") or die "$P: Can't open MAINTAINERS: $!\n"; -while (<$maint>) { - my $line = $_; - - if ($line =~ m/^(\C):\s*(.*)/) { - my $type = $1; - my $value = $2; - - ##Filename pattern matching - if ($type eq "F" || $type eq "X") { - $value =~ s@.@\.@g; ##Convert . to . - $value =~ s/*/.*/g; ##Convert * to .* - $value =~ s/?/./g; ##Convert ? to . - ##if pattern is a directory and it lacks a trailing slash, add one - if ((-d $value)) { - $value =~ s@([^/])$@$1/@; +read_maintainers($maint); +close($maint); + +sub read_maintainers { + my ($maint) = @_; + + while (<$maint>) { + my $line = $_; + + if ($line =~ m/^(\C):\s*(.*)/) { + my $type = $1; + my $value = $2; + + ##Filename pattern matching + if ($type eq "F" || $type eq "X") { + $value =~ s@.@\.@g; ##Convert . to . + $value =~ s/*/.*/g; ##Convert * to .* + $value =~ s/?/./g; ##Convert ? to . + ##if pattern is a directory and it lacks a trailing slash, add one + if ((-d $value)) { + $value =~ s@([^/])$@$1/@; + } + } elsif ($type eq "K") { + $keyword_hash{@typevalue} = $value; } - } elsif ($type eq "K") { - $keyword_hash{@typevalue} = $value; + push(@typevalue, "$type:$value"); + } elsif (!/^(\s)*$/) { + $line =~ s/\n$//g; + push(@typevalue, $line); } - push(@typevalue, "$type:$value"); - } elsif (!/^(\s)*$/) { - $line =~ s/\n$//g; - push(@typevalue, $line); } } -close($maint);
# @@ -817,22 +827,25 @@ sub top_of_kernel_tree { if ($lk_path ne "" && substr($lk_path,length($lk_path)-1,1) ne "/") { $lk_path .= "/"; } - if ( (-f "${lk_path}COPYING") - && (-f "${lk_path}CREDITS") + if ( (-f "${lk_path}CREDITS") && (-f "${lk_path}Kbuild") && (-f "${lk_path}MAINTAINERS") && (-f "${lk_path}Makefile") && (-f "${lk_path}README") - && (-d "${lk_path}Documentation") && (-d "${lk_path}arch") - && (-d "${lk_path}include") + && (-d "${lk_path}board") + && (-d "${lk_path}common") + && (-d "${lk_path}doc") && (-d "${lk_path}drivers") + && (-d "${lk_path}dts") && (-d "${lk_path}fs") - && (-d "${lk_path}init") - && (-d "${lk_path}ipc") - && (-d "${lk_path}kernel") && (-d "${lk_path}lib") - && (-d "${lk_path}scripts")) { + && (-d "${lk_path}include") + && (-d "${lk_path}net") + && (-d "${lk_path}post") + && (-d "${lk_path}scripts") + && (-d "${lk_path}spl") + && (-d "${lk_path}tools")) { return 1; } return 0;