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.
Unified · Split
| @@ -2,9 +2,44 @@ · 1 unmodified line | ||
| 2 | 2 | # SPDX-License-Identifier: GPL-2.0 |
| 3 | 3 | |
| 4 | 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 | 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 | 43 | # sort comparison functions |
| 9 | 44 | sub by_category($$) { |
| 10 | 45 | my ($a, $b) = @_; |
| @@ -56,13 +91,20 @@ sub trim { · 45 unmodified lines | ||
| 56 | 91 | sub alpha_output { |
| 57 | 92 | my ($hashref, $filename) = (@_); |
| 58 | 93 | |
| 94 | + return if ! scalar(keys %$hashref); | |
| 95 | + | |
| 59 | 96 | open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n"; |
| 97 | + my $separator; | |
| 60 | 98 | foreach my $key (sort by_category keys %$hashref) { |
| 61 | 99 | if ($key eq " ") { |
| 62 | − chomp $$hashref{$key}; | |
| 63 | 100 | print $file $$hashref{$key}; |
| 64 | 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 | 108 | foreach my $pattern (sort by_pattern split('\n', %$hashref{$key})) { |
| 67 | 109 | print $file ($pattern . "\n"); |
| 68 | 110 | } |
| @@ -112,7 +154,7 @@ sub file_input { · 43 unmodified lines | ||
| 112 | 154 | my %hash; |
| 113 | 155 | my %new_hash; |
| 114 | 156 | |
| 115 | −file_input(\%hash, "MAINTAINERS"); | |
| 157 | +file_input(\%hash, $input_file); | |
| 116 | 158 | |
| 117 | 159 | foreach my $type (@ARGV) { |
| 118 | 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"); | |
| 127 | −alpha_output(\%new_hash, "SECTION.new"); | |
| 168 | +alpha_output(\%hash, $output_file); | |
| 169 | +alpha_output(\%new_hash, $output_section); | |
| 128 | 170 | |
| 129 | 171 | exit(0); |