Gecko [ tsuru-no-tsurugi.tokyo ]

Name	Size	Permission	Date
atomic	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
basic	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
clang-tools	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
coccinelle	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
dtc	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
dummy-tools	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
gcc-plugins	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
gdb	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
genksyms	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
kconfig	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
ksymoops	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
mod	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
package	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
selinux	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
tracing	[ DIR ]	drwxr-xr-x	2026-06-27 06:50
.gitignore	160 B	-rw-r--r--	2021-11-01 05:53
Kbuild.include	10.15 KB	-rw-r--r--	2026-06-20 00:54
Kconfig.include	2.57 KB	-rw-r--r--	2026-06-20 00:54
Lindent	502 B	-rwxr-xr-x	2021-11-01 05:53
Makefile	1.64 KB	-rw-r--r--	2026-06-20 00:54
Makefile.asm-generic	1.82 KB	-rw-r--r--	2021-11-01 05:53
Makefile.build	19.66 KB	-rw-r--r--	2026-06-20 00:54
Makefile.clang	1.56 KB	-rw-r--r--	2026-06-20 00:54
Makefile.clean	2.2 KB	-rw-r--r--	2021-11-01 05:53
Makefile.compiler	2.74 KB	-rw-r--r--	2026-06-20 00:54
Makefile.dtbinst	1007 B	-rw-r--r--	2026-06-20 00:54
Makefile.extrawarn	3.02 KB	-rw-r--r--	2026-06-20 00:54
Makefile.gcc-plugins	2.71 KB	-rw-r--r--	2026-06-20 00:54
Makefile.headersinst	2.88 KB	-rw-r--r--	2021-11-01 05:53
Makefile.host	4.63 KB	-rw-r--r--	2021-11-01 05:53
Makefile.kasan	1.67 KB	-rw-r--r--	2021-11-01 05:53
Makefile.kcov	333 B	-rw-r--r--	2021-11-01 05:53
Makefile.kcsan	739 B	-rw-r--r--	2021-11-01 05:53
Makefile.lib	18.02 KB	-rw-r--r--	2026-06-20 00:54
Makefile.modfinal	2.73 KB	-rw-r--r--	2026-06-20 00:54
Makefile.modinst	2.52 KB	-rw-r--r--	2026-06-20 00:54
Makefile.modpost	4.37 KB	-rw-r--r--	2026-06-20 00:54
Makefile.package	6.61 KB	-rw-r--r--	2021-11-01 05:53
Makefile.ubsan	770 B	-rw-r--r--	2026-06-20 00:54
Makefile.userprogs	1.57 KB	-rw-r--r--	2021-11-01 05:53
adjust_autoksyms.sh	2.07 KB	-rwxr-xr-x	2021-11-01 05:53
as-version.sh	2.03 KB	-rwxr-xr-x	2026-06-20 00:54
asn1_compiler.c	35.33 KB	-rw-r--r--	2026-06-20 00:54
bin2c.c	743 B	-rw-r--r--	2021-11-01 05:53
bloat-o-meter	3.36 KB	-rwxr-xr-x	2021-11-01 05:53
bootgraph.pl	5.64 KB	-rwxr-xr-x	2021-11-01 05:53
bpf_doc.py	24.98 KB	-rwxr-xr-x	2026-06-20 00:54
cc-can-link.sh	166 B	-rwxr-xr-x	2021-11-01 05:53
cc-version.sh	1.51 KB	-rwxr-xr-x	2021-11-01 05:53
check-sysctl-docs	4.37 KB	-rwxr-xr-x	2021-11-01 05:53
check_extable.sh	4.93 KB	-rwxr-xr-x	2021-11-01 05:53
checkdeclares.pl	1.1 KB	-rwxr-xr-x	2021-11-01 05:53
checkincludes.pl	1.94 KB	-rwxr-xr-x	2021-11-01 05:53
checkkconfigsymbols.py	15.75 KB	-rwxr-xr-x	2026-06-20 00:54
checkpatch.pl	223.76 KB	-rwxr-xr-x	2026-06-20 00:54
checkstack.pl	5.86 KB	-rwxr-xr-x	2026-06-20 00:54
checksyscalls.sh	7.42 KB	-rwxr-xr-x	2021-11-01 05:53
checkversion.pl	2.16 KB	-rwxr-xr-x	2021-11-01 05:53
cleanfile	3.46 KB	-rwxr-xr-x	2021-11-01 05:53
cleanpatch	5.06 KB	-rwxr-xr-x	2021-11-01 05:53
coccicheck	7.89 KB	-rwxr-xr-x	2021-11-01 05:53
config	4.78 KB	-rwxr-xr-x	2026-06-20 00:54
const_structs.checkpatch	1009 B	-rw-r--r--	2021-11-01 05:53
decode_stacktrace.sh	7.51 KB	-rwxr-xr-x	2026-06-20 00:54
decodecode	2.88 KB	-rwxr-xr-x	2021-11-01 05:53
depmod.sh	1.41 KB	-rwxr-xr-x	2021-11-01 05:53
dev-needs.sh	6.07 KB	-rwxr-xr-x	2021-11-01 05:53
diffconfig	4.12 KB	-rwxr-xr-x	2026-06-20 00:54
documentation-file-ref-check	5.55 KB	-rwxr-xr-x	2021-11-01 05:53
export_report.pl	4.5 KB	-rwxr-xr-x	2021-11-01 05:53
extract-cert.c	3.63 KB	-rw-r--r--	2026-06-20 00:54
extract-ikconfig	1.69 KB	-rwxr-xr-x	2021-11-01 05:53
extract-module-sig.pl	3.66 KB	-rwxr-xr-x	2021-11-01 05:53
extract-sys-certs.pl	3.75 KB	-rwxr-xr-x	2021-11-01 05:53
extract-vmlinux	1.66 KB	-rwxr-xr-x	2021-11-01 05:53
extract_xc3028.pl	44.62 KB	-rwxr-xr-x	2021-11-01 05:53
faddr2line	8.17 KB	-rwxr-xr-x	2026-06-20 00:54
file-size.sh	86 B	-rwxr-xr-x	2021-11-01 05:53
find-unused-docs.sh	1.27 KB	-rwxr-xr-x	2021-11-01 05:53
gcc-goto.sh	511 B	-rwxr-xr-x	2021-11-01 05:53
gcc-ld	711 B	-rwxr-xr-x	2021-11-01 05:53
gcc-x86_32-has-stack-protector.sh	405 B	-rwxr-xr-x	2026-06-20 00:54
gcc-x86_64-has-stack-protector.sh	195 B	-rwxr-xr-x	2026-06-20 00:54
gen_autoksyms.sh	1.47 KB	-rwxr-xr-x	2021-11-01 05:53
gen_ksymdeps.sh	556 B	-rwxr-xr-x	2021-11-01 05:53
generate_initcall_order.pl	5.95 KB	-rwxr-xr-x	2021-11-01 05:53
get_abi.pl	15.1 KB	-rwxr-xr-x	2026-06-20 00:54
get_dvb_firmware	24.54 KB	-rwxr-xr-x	2021-11-01 05:53
get_feat.pl	14.34 KB	-rwxr-xr-x	2021-11-01 05:53
get_maintainer.pl	67.13 KB	-rwxr-xr-x	2021-11-01 05:53
gfp-translate	1.69 KB	-rwxr-xr-x	2021-11-01 05:53
headerdep.pl	3.5 KB	-rwxr-xr-x	2021-11-01 05:53
headers_check.pl	3.73 KB	-rwxr-xr-x	2021-11-01 05:53
headers_install.sh	3.35 KB	-rwxr-xr-x	2021-11-01 05:53
insert-sys-cert.c	13.08 KB	-rw-r--r--	2026-06-20 00:54
jobserver-exec	2.16 KB	-rwxr-xr-x	2021-11-01 05:53
kallsyms.c	18.06 KB	-rw-r--r--	2021-11-01 05:53
kernel-doc	68.74 KB	-rwxr-xr-x	2026-06-20 00:54
ld-version.sh	1.82 KB	-rwxr-xr-x	2026-06-20 00:54
leaking_addresses.pl	12.8 KB	-rwxr-xr-x	2026-06-20 00:54
link-vmlinux.sh	10.92 KB	-rwxr-xr-x	2026-06-20 00:54
makelst	808 B	-rwxr-xr-x	2021-11-01 05:53
markup_oops.pl	7.92 KB	-rwxr-xr-x	2021-11-01 05:53
min-tool-version.sh	558 B	-rwxr-xr-x	2021-11-01 05:53
mkcompile_h	2.48 KB	-rwxr-xr-x	2021-11-01 05:53
mksysmap	1.34 KB	-rwxr-xr-x	2026-06-20 00:54
mkuboot.sh	414 B	-rwxr-xr-x	2021-11-01 05:53
module.lds.S	1.65 KB	-rw-r--r--	2026-06-20 00:54
modules-check.sh	427 B	-rwxr-xr-x	2021-11-01 05:53
nsdeps	1.72 KB	-rw-r--r--	2021-11-01 05:53
objdiff	2.84 KB	-rwxr-xr-x	2021-11-01 05:53
pahole-flags.sh	749 B	-rwxr-xr-x	2026-06-20 00:54
pahole-version.sh	269 B	-rwxr-xr-x	2026-06-20 00:54
parse-maintainers.pl	4.54 KB	-rwxr-xr-x	2021-11-01 05:53
patch-kernel	9.95 KB	-rwxr-xr-x	2021-11-01 05:53
profile2linkerlist.pl	414 B	-rwxr-xr-x	2021-11-01 05:53
prune-kernel	708 B	-rwxr-xr-x	2021-11-01 05:53
recordmcount.c	16.75 KB	-rw-r--r--	2026-06-20 00:54
recordmcount.h	19.37 KB	-rw-r--r--	2021-11-01 05:53
recordmcount.pl	17.63 KB	-rwxr-xr-x	2026-06-20 00:54
remove-stale-files	1.3 KB	-rwxr-xr-x	2021-11-01 05:53
setlocalversion	3.5 KB	-rwxr-xr-x	2021-11-01 05:53
show_delta	3.01 KB	-rwxr-xr-x	2021-11-01 05:53
sign-file.c	9.93 KB	-rw-r--r--	2026-06-20 00:54
sorttable.c	8.74 KB	-rw-r--r--	2026-06-20 00:54
sorttable.h	9.83 KB	-rw-r--r--	2026-06-20 00:54
spdxcheck-test.sh	277 B	-rw-r--r--	2021-11-01 05:53
spdxcheck.py	10.09 KB	-rwxr-xr-x	2021-11-01 05:53
spelling.txt	31.88 KB	-rw-r--r--	2021-11-01 05:53
sphinx-pre-install	24.45 KB	-rwxr-xr-x	2026-06-20 00:54
split-man.pl	604 B	-rwxr-xr-x	2021-11-01 05:53
stackdelta	1.84 KB	-rwxr-xr-x	2021-11-01 05:53
stackusage	794 B	-rwxr-xr-x	2021-11-01 05:53
subarch.include	619 B	-rw-r--r--	2021-11-01 05:53
syscallhdr.sh	1.89 KB	-rwxr-xr-x	2021-11-01 05:53
syscallnr.sh	1.45 KB	-rwxr-xr-x	2021-11-01 05:53
syscalltbl.sh	1.45 KB	-rwxr-xr-x	2021-11-01 05:53
tags.sh	9.87 KB	-rwxr-xr-x	2026-06-20 00:54
tools-support-relr.sh	546 B	-rwxr-xr-x	2021-11-01 05:53
ubuntu-retpoline-extract-one	7.26 KB	-rw-r--r--	2026-06-20 00:54
unifdef.c	34.8 KB	-rw-r--r--	2021-11-01 05:53
ver_linux	2.59 KB	-rwxr-xr-x	2021-11-01 05:53
xen-hypercalls.sh	386 B	-rwxr-xr-x	2021-11-01 05:53
xz_wrap.sh	563 B	-rwxr-xr-x	2021-11-01 05:53

Rename

#!/usr/bin/perl -w
# SPDX-License-Identifier: GPL-2.0

use strict;
use Getopt::Long qw(:config no_auto_abbrev);

my $input_file = "MAINTAINERS";
my $output_file = "MAINTAINERS.new";
my $output_section = "SECTION.new";
my $help = 0;
my $order = 0;
my $P = $0;

if (!GetOptions(
		'input=s' => \$input_file,
		'output=s' => \$output_file,
		'section=s' => \$output_section,
		'order!' => \$order,
		'h|help|usage' => \$help,
	    )) {
    die "$P: invalid argument - use --help if necessary\n";
}

if ($help != 0) {
    usage();
    exit 0;
}

sub usage {
    print <<EOT;
usage: $P [options] <pattern matching regexes>

--input => MAINTAINERS file to read (default: MAINTAINERS)
  --output => sorted MAINTAINERS file to write (default: MAINTAINERS.new)
  --section => new sorted MAINTAINERS file to write to (default: SECTION.new)
  --order => Use the preferred section content output ordering (default: 0)
    Preferred ordering of section output is:
      M:  Person acting as a maintainer
      R:  Person acting as a patch reviewer
      L:  Mailing list where patches should be sent
      S:  Maintenance status
      W:  URI for general information
      Q:  URI for patchwork tracking
      B:  URI for bug tracking/submission
      C:  URI for chat
      P:  URI or file for subsystem specific coding styles
      T:  SCM tree type and location
      F:  File and directory pattern
      X:  File and directory exclusion pattern
      N:  File glob
      K:  Keyword - patch content regex

If <pattern match regexes> exist, then the sections that match the
regexes are not written to the output file but are written to the
section file.

EOT
}

# sort comparison functions
sub by_category($$) {
    my ($a, $b) = @_;

$a = uc $a;
    $b = uc $b;

# This always sorts last
    $a =~ s/THE REST/ZZZZZZ/g;
    $b =~ s/THE REST/ZZZZZZ/g;

return $a cmp $b;
}

sub by_pattern($$) {
    my ($a, $b) = @_;
    my $preferred_order = 'MRLSWQBCPTFXNK';

my $a1 = uc(substr($a, 0, 1));
    my $b1 = uc(substr($b, 0, 1));

my $a_index = index($preferred_order, $a1);
    my $b_index = index($preferred_order, $b1);

$a_index = 1000 if ($a_index == -1);
    $b_index = 1000 if ($b_index == -1);

if (($a1 =~ /^F$/ && $b1 =~ /^F$/) ||
	($a1 =~ /^X$/ && $b1 =~ /^X$/)) {
	return $a cmp $b;
    }

if ($a_index < $b_index) {
	return -1;
    } elsif ($a_index == $b_index) {
	return 0;
    } else {
	return 1;
    }
}

sub trim {
    my $s = shift;
    $s =~ s/\s+$//;
    $s =~ s/^\s+//;
    return $s;
}

sub alpha_output {
    my ($hashref, $filename) = (@_);

return if ! scalar(keys %$hashref);

open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n";
    my $separator;
    foreach my $key (sort by_category keys %$hashref) {
	if ($key eq " ") {
	    print $file $$hashref{$key};
	} else {
	    if (! defined $separator) {
		$separator = "\n";
	    } else {
		print $file $separator;
	    }
	    print $file $key . "\n";
	    if ($order) {
		foreach my $pattern (sort by_pattern split('\n', %$hashref{$key})) {
		    print $file ($pattern . "\n");
		}
	    } else {
		foreach my $pattern (split('\n', %$hashref{$key})) {
		    print $file ($pattern . "\n");
		}
	    }
	}
    }
    close($file);
}

sub file_input {
    my ($hashref, $filename) = (@_);

my $lastline = "";
    my $case = " ";
    $$hashref{$case} = "";

open(my $file, '<', "$filename") or die "$P: $filename: open failed - $!\n";

while (<$file>) {
        my $line = $_;

# Pattern line?
        if ($line =~ m/^([A-Z]):\s*(.*)/) {
            $line = $1 . ":\t" . trim($2) . "\n";
            if ($lastline eq "") {
                $$hashref{$case} = $$hashref{$case} . $line;
                next;
            }
            $case = trim($lastline);
            exists $$hashref{$case} and die "Header '$case' already exists";
            $$hashref{$case} = $line;
            $lastline = "";
            next;
        }

if ($case eq " ") {
            $$hashref{$case} = $$hashref{$case} . $lastline;
            $lastline = $line;
            next;
        }
        trim($lastline) eq "" or die ("Odd non-pattern line '$lastline' for '$case'");
        $lastline = $line;
    }
    $$hashref{$case} = $$hashref{$case} . $lastline;
    close($file);
}

my %hash;
my %new_hash;

file_input(\%hash, $input_file);

foreach my $type (@ARGV) {
    foreach my $key (keys %hash) {
	if ($key =~ /$type/ || $hash{$key} =~ /$type/) {
	    $new_hash{$key} = $hash{$key};
	    delete $hash{$key};
	}
    }
}

alpha_output(\%hash, $output_file);
alpha_output(\%new_hash, $output_section);

exit(0);