GNU Linux-libre 4.19.211-gnu1
[releases.git] / scripts / split-man.pl
1 #!/usr/bin/env perl
2 # SPDX-License-Identifier: GPL-2.0
3 #
4 # Author: Mauro Carvalho Chehab <mchehab+samsung@kernel.org>
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;