Gecko [ theprintave.ca ]

Name	Size	Permission	Date
atomic	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
basic	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
clang-tools	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
coccinelle	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
dtc	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
dummy-tools	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
gcc-plugins	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
gdb	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
genksyms	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
kconfig	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
ksymoops	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
mod	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
package	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
selinux	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
tracing	[ DIR ]	drwxr-xr-x	2025-05-06 06:30
Kbuild.include	10.1 KB	-rw-r--r--	2024-03-10 20:38
Kconfig.include	2.65 KB	-rw-r--r--	2025-04-15 13:08
Lindent	502 B	-rwxr-xr-x	2024-03-10 20:38
Makefile	1.87 KB	-rw-r--r--	2024-03-10 20:38
Makefile.asm-generic	1.82 KB	-rw-r--r--	2024-03-10 20:38
Makefile.btf	638 B	-rw-r--r--	2024-03-10 20:38
Makefile.build	17.2 KB	-rw-r--r--	2025-04-15 13:08
Makefile.clang	1.61 KB	-rw-r--r--	2024-03-10 20:38
Makefile.clean	1.87 KB	-rw-r--r--	2024-03-10 20:38
Makefile.compiler	2.74 KB	-rw-r--r--	2024-03-10 20:38
Makefile.debug	1.12 KB	-rw-r--r--	2024-03-10 20:38
Makefile.defconf	1.17 KB	-rw-r--r--	2024-03-10 20:38
Makefile.dtbinst	1.03 KB	-rw-r--r--	2025-04-15 13:08
Makefile.extrawarn	7.1 KB	-rw-r--r--	2025-04-15 13:08
Makefile.gcc-plugins	2.59 KB	-rw-r--r--	2024-03-10 20:38
Makefile.headersinst	2.88 KB	-rw-r--r--	2024-03-10 20:38
Makefile.host	5.91 KB	-rw-r--r--	2024-03-10 20:38
Makefile.kasan	2.45 KB	-rw-r--r--	2024-03-10 20:38
Makefile.kcov	333 B	-rw-r--r--	2024-03-10 20:38
Makefile.kcsan	1004 B	-rw-r--r--	2024-03-10 20:38
Makefile.kmsan	208 B	-rw-r--r--	2024-03-10 20:38
Makefile.lib	21.1 KB	-rw-r--r--	2025-04-15 13:08
Makefile.modfinal	2.63 KB	-rw-r--r--	2025-04-15 13:08
Makefile.modinst	4.02 KB	-rw-r--r--	2025-04-15 13:08
Makefile.modpost	4.69 KB	-rw-r--r--	2024-03-10 20:38
Makefile.package	8.73 KB	-rw-r--r--	2025-04-15 13:08
Makefile.randstruct	511 B	-rw-r--r--	2024-03-10 20:38
Makefile.ubsan	779 B	-rw-r--r--	2024-03-10 20:38
Makefile.userprogs	1.59 KB	-rw-r--r--	2024-03-10 20:38
Makefile.vdsoinst	1.15 KB	-rw-r--r--	2025-04-15 13:08
Makefile.vmlinux	1.48 KB	-rw-r--r--	2024-03-10 20:38
Makefile.vmlinux_o	3.27 KB	-rw-r--r--	2024-03-10 20:38
as-version.sh	2.03 KB	-rwxr-xr-x	2024-03-10 20:38
asn1_compiler	34.25 KB	-rwxr-xr-x	2025-04-15 13:08
asn1_compiler.c	35.32 KB	-rw-r--r--	2024-03-10 20:38
bloat-o-meter	3.77 KB	-rwxr-xr-x	2024-03-10 20:38
bootgraph.pl	5.64 KB	-rwxr-xr-x	2024-03-10 20:38
bpf_doc.py	31.73 KB	-rwxr-xr-x	2025-04-15 13:08
cc-can-link.sh	166 B	-rwxr-xr-x	2024-03-10 20:38
cc-version.sh	1.36 KB	-rwxr-xr-x	2024-03-10 20:38
check-git	298 B	-rwxr-xr-x	2024-03-10 20:38
check-sysctl-docs	3.66 KB	-rwxr-xr-x	2024-03-10 20:38
check-uapi.sh	15.05 KB	-rwxr-xr-x	2024-03-10 20:38
check_extable.sh	4.93 KB	-rwxr-xr-x	2024-03-10 20:38
checkdeclares.pl	1.1 KB	-rwxr-xr-x	2024-03-10 20:38
checkincludes.pl	1.94 KB	-rwxr-xr-x	2024-03-10 20:38
checkkconfigsymbols.py	15.75 KB	-rwxr-xr-x	2024-03-10 20:38
checkpatch.pl	233.78 KB	-rwxr-xr-x	2025-04-15 13:08
checkstack.pl	5.96 KB	-rwxr-xr-x	2024-03-10 20:38
checksyscalls.sh	7.51 KB	-rwxr-xr-x	2024-03-10 20:38
checkversion.pl	2.16 KB	-rwxr-xr-x	2024-03-10 20:38
cleanfile	3.46 KB	-rwxr-xr-x	2024-03-10 20:38
cleanpatch	5.06 KB	-rwxr-xr-x	2024-03-10 20:38
coccicheck	7.9 KB	-rwxr-xr-x	2024-03-10 20:38
config	4.67 KB	-rwxr-xr-x	2024-03-10 20:38
const_structs.checkpatch	1.4 KB	-rw-r--r--	2024-03-10 20:38
decode_stacktrace.sh	7.58 KB	-rwxr-xr-x	2024-03-10 20:38
decodecode	4.86 KB	-rwxr-xr-x	2024-03-10 20:38
depmod.sh	697 B	-rwxr-xr-x	2024-03-10 20:38
dev-needs.sh	6.07 KB	-rwxr-xr-x	2024-03-10 20:38
diffconfig	4.12 KB	-rwxr-xr-x	2024-03-10 20:38
documentation-file-ref-check	5.67 KB	-rwxr-xr-x	2024-03-10 20:38
export_report.pl	4.5 KB	-rwxr-xr-x	2024-03-10 20:38
extract-ikconfig	1.74 KB	-rwxr-xr-x	2024-03-10 20:38
extract-module-sig.pl	3.66 KB	-rwxr-xr-x	2024-03-10 20:38
extract-sys-certs.pl	3.75 KB	-rwxr-xr-x	2024-03-10 20:38
extract-vmlinux	1.66 KB	-rwxr-xr-x	2024-03-10 20:38
extract_xc3028.pl	44.62 KB	-rwxr-xr-x	2024-03-10 20:38
faddr2line	8.63 KB	-rwxr-xr-x	2024-03-10 20:38
file-size.sh	86 B	-rwxr-xr-x	2024-03-10 20:38
find-unused-docs.sh	1.27 KB	-rwxr-xr-x	2024-03-10 20:38
gcc-x86_32-has-stack-protector.sh	405 B	-rwxr-xr-x	2025-04-15 13:08
gcc-x86_64-has-stack-protector.sh	195 B	-rwxr-xr-x	2025-04-15 13:08
gen-randstruct-seed.sh	228 B	-rwxr-xr-x	2024-03-10 20:38
generate_initcall_order.pl	5.95 KB	-rwxr-xr-x	2024-03-10 20:38
generate_rust_analyzer.py	4.8 KB	-rwxr-xr-x	2024-03-10 20:38
generate_rust_target.rs	5.58 KB	-rw-r--r--	2024-03-10 20:38
get_abi.pl	25.36 KB	-rwxr-xr-x	2024-03-10 20:38
get_dvb_firmware	24.54 KB	-rwxr-xr-x	2024-03-10 20:38
get_feat.pl	14.61 KB	-rwxr-xr-x	2024-03-10 20:38
get_maintainer.pl	67.63 KB	-rwxr-xr-x	2024-03-10 20:38
gfp-translate	2.08 KB	-rwxr-xr-x	2025-04-15 13:08
git.orderFile	564 B	-rw-r--r--	2024-03-10 20:38
head-object-list.txt	1.36 KB	-rw-r--r--	2024-03-10 20:38
headerdep.pl	3.5 KB	-rwxr-xr-x	2024-03-10 20:38
headers_install.sh	2.76 KB	-rwxr-xr-x	2024-03-10 20:38
insert-sys-cert	21.46 KB	-rwxr-xr-x	2025-04-15 13:08
insert-sys-cert.c	13.08 KB	-rw-r--r--	2025-04-15 13:08
install.sh	986 B	-rwxr-xr-x	2024-03-10 20:38
jobserver-exec	2.56 KB	-rwxr-xr-x	2024-03-10 20:38
kallsyms	21.63 KB	-rwxr-xr-x	2025-04-15 13:08
kallsyms.c	17.75 KB	-rw-r--r--	2025-04-15 13:08
kernel-doc	77.13 KB	-rwxr-xr-x	2025-04-15 13:08
ld-version.sh	1.82 KB	-rwxr-xr-x	2025-04-15 13:08
leaking_addresses.pl	12.84 KB	-rwxr-xr-x	2024-03-10 20:38
link-vmlinux.sh	7.66 KB	-rwxr-xr-x	2025-04-15 13:08
makelst	808 B	-rwxr-xr-x	2024-03-10 20:38
markup_oops.pl	7.92 KB	-rwxr-xr-x	2024-03-10 20:38
min-tool-version.sh	630 B	-rwxr-xr-x	2025-04-15 13:08
misc-check	509 B	-rwxr-xr-x	2024-03-10 20:38
mkcompile_h	642 B	-rwxr-xr-x	2024-03-10 20:38
mksysmap	2.08 KB	-rwxr-xr-x	2025-04-15 13:08
mkuboot.sh	414 B	-rwxr-xr-x	2024-03-10 20:38
module.lds	615 B	-rw-r--r--	2025-04-15 13:08
module.lds.S	1.43 KB	-rw-r--r--	2025-04-15 13:08
modules-check.sh	443 B	-rwxr-xr-x	2024-03-10 20:38
nsdeps	1.63 KB	-rw-r--r--	2024-03-10 20:38
objdiff	2.83 KB	-rwxr-xr-x	2024-03-10 20:38
objdump-func	848 B	-rwxr-xr-x	2024-03-10 20:38
orc_hash.sh	316 B	-rw-r--r--	2024-03-10 20:38
pahole-version.sh	269 B	-rwxr-xr-x	2024-03-10 20:38
parse-maintainers.pl	4.54 KB	-rwxr-xr-x	2024-03-10 20:38
patch-kernel	9.95 KB	-rwxr-xr-x	2024-03-10 20:38
profile2linkerlist.pl	414 B	-rwxr-xr-x	2024-03-10 20:38
prune-kernel	912 B	-rwxr-xr-x	2024-03-10 20:38
recordmcount.c	17.51 KB	-rw-r--r--	2024-03-10 20:38
recordmcount.h	19.37 KB	-rw-r--r--	2024-03-10 20:38
recordmcount.pl	17.34 KB	-rwxr-xr-x	2024-03-10 20:38
relocs_check.sh	717 B	-rwxr-xr-x	2024-03-10 20:38
remove-stale-files	1.29 KB	-rwxr-xr-x	2024-03-10 20:38
rust_is_available.sh	9.48 KB	-rwxr-xr-x	2025-04-15 13:08
rust_is_available_bindgen_libclang.h	91 B	-rw-r--r--	2024-03-10 20:38
rust_is_available_test.py	17.7 KB	-rwxr-xr-x	2024-03-10 20:38
rustdoc_test_builder.rs	3.25 KB	-rw-r--r--	2024-03-10 20:38
rustdoc_test_gen.rs	9.48 KB	-rw-r--r--	2024-03-10 20:38
setlocalversion	5.18 KB	-rwxr-xr-x	2025-04-15 13:08
show_delta	3.04 KB	-rwxr-xr-x	2024-03-10 20:38
sign-file	25.81 KB	-rwxr-xr-x	2025-04-15 13:08
sign-file.c	9.93 KB	-rw-r--r--	2024-03-10 20:38
sorttable	21.26 KB	-rwxr-xr-x	2025-04-15 13:08
sorttable.c	7.68 KB	-rw-r--r--	2024-03-10 20:38
sorttable.h	12.85 KB	-rw-r--r--	2024-03-10 20:38
spdxcheck-test.sh	284 B	-rw-r--r--	2024-03-10 20:38
spdxcheck.py	15.23 KB	-rwxr-xr-x	2024-03-10 20:38
spdxexclude	417 B	-rw-r--r--	2024-03-10 20:38
spelling.txt	34.18 KB	-rw-r--r--	2024-03-10 20:38
sphinx-pre-install	25.07 KB	-rwxr-xr-x	2024-03-10 20:38
split-man.pl	604 B	-rwxr-xr-x	2024-03-10 20:38
stackdelta	1.84 KB	-rwxr-xr-x	2024-03-10 20:38
stackusage	794 B	-rwxr-xr-x	2024-03-10 20:38
subarch.include	647 B	-rw-r--r--	2024-03-10 20:38
syscallhdr.sh	1.89 KB	-rwxr-xr-x	2024-03-10 20:38
syscallnr.sh	1.45 KB	-rwxr-xr-x	2024-03-10 20:38
syscalltbl.sh	1.82 KB	-rwxr-xr-x	2025-04-15 13:08
tags.sh	10.73 KB	-rwxr-xr-x	2024-03-10 20:38
test_fortify.sh	2.23 KB	-rw-r--r--	2024-03-10 20:38
tools-support-relr.sh	726 B	-rwxr-xr-x	2024-03-10 20:38
unifdef.c	34.8 KB	-rw-r--r--	2024-03-10 20:38
ver_linux	2.59 KB	-rwxr-xr-x	2024-03-10 20:38
xen-hypercalls.sh	386 B	-rwxr-xr-x	2024-03-10 20:38
xz_wrap.sh	516 B	-rwxr-xr-x	2024-03-10 20:38

Rename

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

use strict;
use Pod::Usage;
use Getopt::Long;
use File::Find;
use Fcntl ':mode';
use Cwd 'abs_path';

my $help;
my $man;
my $debug;
my $arch;
my $feat;
my $enable_fname;

my $basename = abs_path($0);
$basename =~ s,/[^/]+$,/,;

my $prefix=$basename . "../Documentation/features";

# Used only at for full features output. The script will auto-adjust
# such values for the minimal possible values
my $status_size = 1;
my $description_size = 1;

GetOptions(
	"debug|d+" => \$debug,
	"dir=s" => \$prefix,
	'help|?' => \$help,
	'arch=s' => \$arch,
	'feat=s' => \$feat,
	'feature=s' => \$feat,
	"enable-fname" => \$enable_fname,
	man => \$man
) or pod2usage(2);

pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;

pod2usage(1) if (scalar @ARGV < 1 || @ARGV > 2);

my ($cmd, $arg) = @ARGV;

pod2usage(2) if ($cmd ne "current" && $cmd ne "rest" && $cmd ne "validate"
		&& $cmd ne "ls" && $cmd ne "list");

require Data::Dumper if ($debug);

my %data;
my %archs;

#
# Displays an error message, printing file name and line
#
sub parse_error($$$$) {
	my ($file, $ln, $msg, $data) = @_;

$data =~ s/\s+$/\n/;

print STDERR "Warning: file $file#$ln:\n\t$msg";

if ($data ne "") {
		print STDERR ". Line\n\t\t$data";
	} else {
	    print STDERR "\n";
	}
}

#
# Parse a features file, storing its contents at %data
#

my $h_name = "Feature";
my $h_kconfig = "Kconfig";
my $h_description = "Description";
my $h_subsys = "Subsystem";
my $h_status = "Status";
my $h_arch = "Architecture";

my $max_size_name = length($h_name);
my $max_size_kconfig = length($h_kconfig);
my $max_size_description = length($h_description);
my $max_size_subsys = length($h_subsys);
my $max_size_status = length($h_status);

my $max_size_arch = 0;
my $max_size_arch_with_header;
my $max_description_word = 0;

sub parse_feat {
	my $file = $File::Find::name;

my $mode = (stat($file))[2];
	return if ($mode & S_IFDIR);
	return if ($file =~ m,($prefix)/arch-support.txt,);
	return if (!($file =~ m,arch-support.txt$,));

if ($enable_fname) {
		printf ".. FILE %s\n", abs_path($file);
	}

my $subsys = "";
	$subsys = $2 if ( m,.*($prefix)/([^/]+).*,);

if (length($subsys) > $max_size_subsys) {
		$max_size_subsys = length($subsys);
	}

my $name;
	my $kconfig;
	my $description;
	my $comments = "";
	my $last_status;
	my $ln;
	my %arch_table;

print STDERR "Opening $file\n" if ($debug > 1);
	open IN, $file;

while(<IN>) {
		$ln++;

if (m/^\#\s+Feature\s+name:\s*(.*\S)/) {
			$name = $1;
			if (length($name) > $max_size_name) {
				$max_size_name = length($name);
			}
			next;
		}
		if (m/^\#\s+Kconfig:\s*(.*\S)/) {
			$kconfig = $1;
			if (length($kconfig) > $max_size_kconfig) {
				$max_size_kconfig = length($kconfig);
			}
			next;
		}
		if (m/^\#\s+description:\s*(.*\S)/) {
			$description = $1;
			if (length($description) > $max_size_description) {
				$max_size_description = length($description);
			}

foreach my $word (split /\s+/, $description) {
				if (length($word) > $max_description_word) {
					$max_description_word = length($word);
				}
			}

next;
		}
		next if (m/^\\s*$/);
		next if (m/^\s*\-+\s*$/);
		next if (m/^\s*\|\s*arch\s*\|\s*status\s*\|\s*$/);

if (m/^\#\s*(.*)/) {
			$comments .= "$1\n";
			next;
		}
		if (m/^\s*\|\s*(\S+):\s*\|\s*(\S+)\s*\|\s*$/) {
			my $a = $1;
			my $status = $2;

if (length($status) > $max_size_status) {
				$max_size_status = length($status);
			}
			if (length($a) > $max_size_arch) {
				$max_size_arch = length($a);
			}

$status = "---" if ($status =~ m/^\.\.$/);

$archs{$a} = 1;
			$arch_table{$a} = $status;
			next;
		}

#Everything else is an error
		parse_error($file, $ln, "line is invalid", $_);
	}
	close IN;

if (!$name) {
		parse_error($file, $ln, "Feature name not found", "");
		return;
	}

parse_error($file, $ln, "Subsystem not found", "") if (!$subsys);
	parse_error($file, $ln, "Kconfig not found", "") if (!$kconfig);
	parse_error($file, $ln, "Description not found", "") if (!$description);

if (!%arch_table) {
		parse_error($file, $ln, "Architecture table not found", "");
		return;
	}

$data{$name}->{where} = $file;
	$data{$name}->{subsys} = $subsys;
	$data{$name}->{kconfig} = $kconfig;
	$data{$name}->{description} = $description;
	$data{$name}->{comments} = $comments;
	$data{$name}->{table} = \%arch_table;

$max_size_arch_with_header = $max_size_arch + length($h_arch);
}

#
# Output feature(s) for a given architecture
#
sub output_arch_table {
	my $title = "Feature status on $arch architecture";

print "=" x length($title) . "\n";
	print "$title\n";
	print "=" x length($title) . "\n\n";

print "=" x $max_size_subsys;
	print "  ";
	print "=" x $max_size_name;
	print "  ";
	print "=" x $max_size_kconfig;
	print "  ";
	print "=" x $max_size_status;
	print "  ";
	print "=" x $max_size_description;
	print "\n";
	printf "%-${max_size_subsys}s  ", $h_subsys;
	printf "%-${max_size_name}s  ", $h_name;
	printf "%-${max_size_kconfig}s  ", $h_kconfig;
	printf "%-${max_size_status}s  ", $h_status;
	printf "%-${max_size_description}s\n", $h_description;
	print "=" x $max_size_subsys;
	print "  ";
	print "=" x $max_size_name;
	print "  ";
	print "=" x $max_size_kconfig;
	print "  ";
	print "=" x $max_size_status;
	print "  ";
	print "=" x $max_size_description;
	print "\n";

foreach my $name (sort {
				($data{$a}->{subsys} cmp $data{$b}->{subsys}) ||
				("\L$a" cmp "\L$b")
			       } keys %data) {
		next if ($feat && $name ne $feat);

my %arch_table = %{$data{$name}->{table}};
		printf "%-${max_size_subsys}s  ", $data{$name}->{subsys};
		printf "%-${max_size_name}s  ", $name;
		printf "%-${max_size_kconfig}s  ", $data{$name}->{kconfig};
		printf "%-${max_size_status}s  ", $arch_table{$arch};
		printf "%-s\n", $data{$name}->{description};
	}

#
# list feature(s) for a given architecture
#
sub list_arch_features {
	print "#\n# Kernel feature support matrix of the '$arch' architecture:\n#\n";

foreach my $name (sort {
				($data{$a}->{subsys} cmp $data{$b}->{subsys}) ||
				("\L$a" cmp "\L$b")
			       } keys %data) {
		next if ($feat && $name ne $feat);

my %arch_table = %{$data{$name}->{table}};

my $status = $arch_table{$arch};
		$status = " " x ((4 - length($status)) / 2) . $status;

printf " %${max_size_subsys}s/ ", $data{$name}->{subsys};
		printf "%-${max_size_name}s: ", $name;
		printf "%-5s|   ", $status;
		printf "%${max_size_kconfig}s # ", $data{$name}->{kconfig};
		printf " %s\n", $data{$name}->{description};
	}
}

#
# Output a feature on all architectures
#
sub output_feature {
	my $title = "Feature $feat";

print "=" x length($title) . "\n";
	print "$title\n";
	print "=" x length($title) . "\n\n";

print ":Subsystem: $data{$feat}->{subsys} \n" if ($data{$feat}->{subsys});
	print ":Kconfig: $data{$feat}->{kconfig} \n" if ($data{$feat}->{kconfig});

my $desc = $data{$feat}->{description};
	$desc =~ s/^([a-z])/\U$1/;
	$desc =~ s/\.?\s*//;
	print "\n$desc.\n\n";

my $com = $data{$feat}->{comments};
	$com =~ s/^\s+//;
	$com =~ s/\s+$//;
	if ($com) {
		print "Comments\n";
		print "--------\n\n";
		print "$com\n\n";
	}

print "=" x $max_size_arch_with_header;
	print "  ";
	print "=" x $max_size_status;
	print "\n";

printf "%-${max_size_arch}s  ", $h_arch;
	printf "%-${max_size_status}s", $h_status . "\n";

print "=" x $max_size_arch_with_header;
	print "  ";
	print "=" x $max_size_status;
	print "\n";

my %arch_table = %{$data{$feat}->{table}};
	foreach my $arch (sort keys %arch_table) {
		printf "%-${max_size_arch}s  ", $arch;
		printf "%-${max_size_status}s\n", $arch_table{$arch};
	}

print "=" x $max_size_arch_with_header;
	print "  ";
	print "=" x $max_size_status;
	print "\n";
}

#
# Output all features for all architectures
#

sub matrix_lines($$$) {
	my $desc_size = shift;
	my $status_size = shift;
	my $header = shift;
	my $fill;
	my $ln_marker;

if ($header) {
		$ln_marker = "=";
	} else {
		$ln_marker = "-";
	}

$fill = $ln_marker;

print "+";
	print $fill x $max_size_name;
	print "+";
	print $fill x $desc_size;
	print "+";
	print $ln_marker x $status_size;
	print "+\n";
}

sub output_matrix {
	my $title = "Feature status on all architectures";
	my $notcompat = "Not compatible";

print "=" x length($title) . "\n";
	print "$title\n";
	print "=" x length($title) . "\n\n";

my $desc_title = "$h_kconfig / $h_description";

my $desc_size = $max_size_kconfig + 4;
	if (!$description_size) {
		$desc_size = $max_size_description if ($max_size_description > $desc_size);
	} else {
		$desc_size = $description_size if ($description_size > $desc_size);
	}
	$desc_size = $max_description_word if ($max_description_word > $desc_size);

$desc_size = length($desc_title) if (length($desc_title) > $desc_size);

$max_size_status = length($notcompat) if (length($notcompat) > $max_size_status);

# Ensure that the status will fit
	my $min_status_size = $max_size_status + $max_size_arch + 6;
	$status_size = $min_status_size if ($status_size < $min_status_size);

my $cur_subsys = "";
	foreach my $name (sort {
				($data{$a}->{subsys} cmp $data{$b}->{subsys}) or
				("\L$a" cmp "\L$b")
			       } keys %data) {

if ($cur_subsys ne $data{$name}->{subsys}) {
			if ($cur_subsys ne "") {
				printf "\n";
			}

$cur_subsys = $data{$name}->{subsys};

my $title = "Subsystem: $cur_subsys";
			print "$title\n";
			print "=" x length($title) . "\n\n";

matrix_lines($desc_size, $status_size, 0);

printf "|%-${max_size_name}s", $h_name;
			printf "|%-${desc_size}s", $desc_title;

printf "|%-${status_size}s|\n", "Status per architecture";
			matrix_lines($desc_size, $status_size, 1);
		}

my %arch_table = %{$data{$name}->{table}};
		my $cur_status = "";

my (@lines, @descs);
		my $line = "";
		foreach my $arch (sort {
					($arch_table{$b} cmp $arch_table{$a}) or
					("\L$a" cmp "\L$b")
				       } keys %arch_table) {

my $status = $arch_table{$arch};

if ($status eq "---") {
				$status = $notcompat;
			}

if ($status ne $cur_status) {
				if ($line ne "") {
					push @lines, $line;
					$line = "";
				}
				$line = "- **" . $status . "**: " . $arch;
			} elsif (length($line) + length ($arch) + 2 < $status_size) {
				$line .= ", " . $arch;
			} else {
				push @lines, $line;
				$line = "  " . $arch;
			}
			$cur_status = $status;
		}
		push @lines, $line if ($line ne "");

my $description = $data{$name}->{description};
		while (length($description) > $desc_size) {
			my $d = substr $description, 0, $desc_size;

# Ensure that it will end on a space
			# if it can't, it means that the size is too small
			# Instead of aborting it, let's print what we have
			if (!($d =~ s/^(.*)\s+.*/$1/)) {
				$d = substr $d, 0, -1;
				push @descs, "$d\\";
				$description =~ s/^\Q$d\E//;
			} else {
				push @descs, $d;
				$description =~ s/^\Q$d\E\s+//;
			}
		}
		push @descs, $description;

# Ensure that the full description will be printed
		push @lines, "" while (scalar(@lines) < 2 + scalar(@descs));

my $ln = 0;
		for my $line(@lines) {
			if (!$ln) {
				printf "|%-${max_size_name}s", $name;
				printf "|%-${desc_size}s", "``" . $data{$name}->{kconfig} . "``";
			} elsif ($ln >= 2 && scalar(@descs)) {
				printf "|%-${max_size_name}s", "";
				printf "|%-${desc_size}s", shift @descs;
			} else {
				printf "|%-${max_size_name}s", "";
				printf "|%-${desc_size}s", "";
			}

printf "|%-${status_size}s|\n", $line;

$ln++;
		}
		matrix_lines($desc_size, $status_size, 0);
	}
}

#
# Parses all feature files located at $prefix dir
#
find({wanted =>\&parse_feat, no_chdir => 1}, $prefix);

print STDERR Data::Dumper->Dump([\%data], [qw(*data)]) if ($debug);

#
# Handles the command
#
if ($cmd eq "current") {
	$arch = qx(uname -m | sed 's/x86_64/x86/' | sed 's/i386/x86/');
	$arch =~s/\s+$//;
}

if ($cmd eq "ls" or $cmd eq "list") {
	if (!$arch) {
		$arch = qx(uname -m | sed 's/x86_64/x86/' | sed 's/i386/x86/');
		$arch =~s/\s+$//;
	}

list_arch_features;

exit;
}

if ($cmd ne "validate") {
	if ($arch) {
		output_arch_table;
	} elsif ($feat) {
		output_feature;
	} else {
		output_matrix;
	}
}

__END__

=head1 NAME

get_feat.pl - parse the Linux Feature files and produce a ReST book.

=head1 SYNOPSIS

B<get_feat.pl> [--debug] [--man] [--help] [--dir=<dir>] [--arch=<arch>]
	       [--feature=<feature>|--feat=<feature>] <COMAND> [<ARGUMENT>]

Where <COMMAND> can be:

=over 8

B<current>               - output table in ReST compatible ASCII format
			   with features for this machine's architecture

B<rest>                  - output table(s)  in ReST compatible ASCII format
			   with features in ReST markup language. The output
			   is affected by --arch or --feat/--feature flags.

B<validate>              - validate the contents of the files under
			   Documentation/features.

B<ls> or B<list>         - list features for this machine's architecture,
			   using an easier to parse format.
			   The output is affected by --arch flag.

=back

=head1 OPTIONS

=over 8

=item B<--arch>

Output features for an specific architecture, optionally filtering for
a single specific feature.

=item B<--feat> or B<--feature>

Output features for a single specific feature.

=item B<--dir>

Changes the location of the Feature files. By default, it uses
the Documentation/features directory.

=item B<--enable-fname>

Prints the file name of the feature files. This can be used in order to
track dependencies during documentation build.

=item B<--debug>

Put the script in verbose mode, useful for debugging. Can be called multiple
times, to increase verbosity.

=item B<--help>

Prints a brief help message and exits.

=item B<--man>

Prints the manual page and exits.

=back

=head1 DESCRIPTION

Parse the Linux feature files from Documentation/features (by default),
optionally producing results at ReST format.

It supports output data per architecture, per feature or a
feature x arch matrix.

When used with B<rest> command, it will use either one of the tree formats:

If neither B<--arch> or B<--feature> arguments are used, it will output a
matrix with features per architecture.

If B<--arch> argument is used, it will output the features availability for
a given architecture.

If B<--feat> argument is used, it will output the content of the feature
file using ReStructured Text markup.

=head1 BUGS

Report bugs to Mauro Carvalho Chehab <mchehab+samsung@kernel.org>

=head1 COPYRIGHT

License GPLv2: GNU GPL version 2 <http://gnu.org/licenses/gpl.html>.

This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

=cut