Commit | Line | Data |
---|---|---|
c25ce589 | 1 | #!/usr/bin/env perl |
5b229fbe MW |
2 | # SPDX-License-Identifier: GPL-2.0 |
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; |