1 #!/usr/bin/env perl
2 # SPDX-License-Identifier: GPL-2.0
3 #
4 # Author: Mauro Carvalho Chehab <mchehab+samsun
5 #
6 # Produce manpages from kernel-doc.
7 # See Documentation/doc-guide/kernel-doc.rst f
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 $f
22 print OUT $_;
23 } elsif ($state != 0) {
24 print OUT $_;
25 }
26 }
27
28 close OUT;
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.