[linux-block.git] / scripts / split-man.pl

#!/usr/bin/env perl
# SPDX-License-Identifier: GPL-2.0
#
# Author: Mauro Carvalho Chehab <mchehab+samsung@kernel.org>
#
# Produce manpages from kernel-doc.
# See Documentation/doc-guide/kernel-doc.rst for instructions

if ($#ARGV < 0) {
   die "where do I put the results?\n";
}

mkdir $ARGV[0],0777;
$state = 0;
while (<STDIN>) {
    if (/^\.TH \"[^\"]*\" 9 \"([^\"]*)\"/) {
	if ($state == 1) { close OUT }
	$state = 1;
	$fn = "$ARGV[0]/$1.9";
	print STDERR "Creating $fn\n";
	open OUT, ">$fn" or die "can't open $fn: $!\n";
	print OUT $_;
    } elsif ($state != 0) {
	print OUT $_;
    }
}

close OUT;
Commit	Line	Data
c25ce589	1	#!/usr/bin/env perl
5b229fbe MW	2	# SPDX-License-Identifier: GPL-2.0
5b229fbe MW	3	#
32590819	4	# Author: Mauro Carvalho Chehab <mchehab+samsung@kernel.org>
5b229fbe MW	5	#
	6	# Produce manpages from kernel-doc.
	7	# See Documentation/doc-guide/kernel-doc.rst for instructions
	8
	9	if ($#ARGV < 0) {
	10	die "where do I put the results?\n";
	11	}
	12
	13	mkdir $ARGV[0],0777;
	14	$state = 0;
	15	while (<STDIN>) {
	16	if (/^\.TH \"[^\"]\" 9 \"([^\"])\"/) {
	17	if ($state == 1) { close OUT }
	18	$state = 1;
	19	$fn = "$ARGV[0]/$1.9";
	20	print STDERR "Creating $fn\n";
	21	open OUT, ">$fn" or die "can't open $fn: $!\n";
	22	print OUT $_;
	23	} elsif ($state != 0) {
	24	print OUT $_;
	25	}
	26	}
	27
	28	close OUT;