parse-maintainers.pl is convenient, but currently hard-codes the filenames that are used. Allow user-specified filenames to simplify the use of the script.
Showing the changes to scripts (1 of 1 file). Show all
Unified · Split
| @@ -2,9 +2,44 @@ · 1 unmodified line | |||
| 2 | # SPDX-License-Identifier: GPL-2.0 | 2 | # SPDX-License-Identifier: GPL-2.0 |
| 3 | 3 | ||
| 4 | use strict; | 4 | use strict; |
| 5 | use Getopt::Long qw(:config no_auto_abbrev); | ||
| 6 | |||
| 7 | my $input_file = "MAINTAINERS"; | ||
| 8 | my $output_file = "MAINTAINERS.new"; | ||
| 9 | my $output_section = "SECTION.new"; | ||
| 10 | my $help = 0; | ||
| 5 | 11 | ||
| 6 | my $P = $0; | 12 | my $P = $0; |
| 7 | 13 | ||
| 14 | if (!GetOptions( | ||
| 15 | 'input=s' => \$input_file, | ||
| 16 | 'output=s' => \$output_file, | ||
| 17 | 'section=s' => \$output_section, | ||
| 18 | 'h|help|usage' => \$help, | ||
| 19 | )) { | ||
| 20 | die "$P: invalid argument - use --help if necessary\n"; | ||
| 21 | } | ||
| 22 | |||
| 23 | if ($help != 0) { | ||
| 24 | usage(); | ||
| 25 | exit 0; | ||
| 26 | } | ||
| 27 | |||
| 28 | sub usage { | ||
| 29 | print <<EOT; | ||
| 30 | usage: $P [options] <pattern matching regexes> | ||
| 31 | |||
| 32 | --input => MAINTAINERS file to read (default: MAINTAINERS) | ||
| 33 | --output => sorted MAINTAINERS file to write (default: MAINTAINERS.new) | ||
| 34 | --section => new sorted MAINTAINERS file to write to (default: SECTION.new) | ||
| 35 | |||
| 36 | If <pattern match regexes> exist, then the sections that match the | ||
| 37 | regexes are not written to the output file but are written to the | ||
| 38 | section file. | ||
| 39 | |||
| 40 | EOT | ||
| 41 | } | ||
| 42 | |||
| 8 | # sort comparison functions | 43 | # sort comparison functions |
| 9 | sub by_category($$) { | 44 | sub by_category($$) { |
| 10 | my ($a, $b) = @_; | 45 | my ($a, $b) = @_; |
| @@ -56,13 +91,20 @@ sub trim { · 45 unmodified lines | |||
| 56 | sub alpha_output { | 91 | sub alpha_output { |
| 57 | my ($hashref, $filename) = (@_); | 92 | my ($hashref, $filename) = (@_); |
| 58 | 93 | ||
| 94 | return if ! scalar(keys %$hashref); | ||
| 95 | |||
| 59 | open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n"; | 96 | open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n"; |
| 97 | my $separator; | ||
| 60 | foreach my $key (sort by_category keys %$hashref) { | 98 | foreach my $key (sort by_category keys %$hashref) { |
| 61 | if ($key eq " ") { | 99 | if ($key eq " ") { |
| 62 | chomp $$hashref{$key}; | ||
| 63 | print $file $$hashref{$key}; | 100 | print $file $$hashref{$key}; |
| 64 | } else { | 101 | } else { |
| 65 | print $file "\n" . $key . "\n"; | 102 | if (! defined $separator) { |
| 103 | $separator = "\n"; | ||
| 104 | } else { | ||
| 105 | print $file $separator; | ||
| 106 | } | ||
| 107 | print $file $key . "\n"; | ||
| 66 | foreach my $pattern (sort by_pattern split('\n', %$hashref{$key})) { | 108 | foreach my $pattern (sort by_pattern split('\n', %$hashref{$key})) { |
| 67 | print $file ($pattern . "\n"); | 109 | print $file ($pattern . "\n"); |
| 68 | } | 110 | } |
| @@ -112,7 +154,7 @@ sub file_input { · 43 unmodified lines | |||
| 112 | my %hash; | 154 | my %hash; |
| 113 | my %new_hash; | 155 | my %new_hash; |
| 114 | 156 | ||
| 115 | file_input(\%hash, "MAINTAINERS"); | 157 | file_input(\%hash, $input_file); |
| 116 | 158 | ||
| 117 | foreach my $type (@ARGV) { | 159 | foreach my $type (@ARGV) { |
| 118 | foreach my $key (keys %hash) { | 160 | foreach my $key (keys %hash) { |
| @@ -123,7 +165,7 @@ foreach my $type (@ARGV) { · 4 unmodified lines | |||
| 123 | } | 165 | } |
| 124 | } | 166 | } |
| 125 | 167 | ||
| 126 | alpha_output(\%hash, "MAINTAINERS.new"); | 168 | alpha_output(\%hash, $output_file); |
| 127 | alpha_output(\%new_hash, "SECTION.new"); | 169 | alpha_output(\%new_hash, $output_section); |
| 128 | 170 | ||
| 129 | exit(0); | 171 | exit(0); |