| Finn Behrens | c25ce58 | 2020-11-23 15:15:33 +0100 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| Matthew Wilcox | 5b229fb | 2018-02-13 13:15:35 -0800 | [diff] [blame] | 2 | # SPDX-License-Identifier: GPL-2.0 |
| 3 | # |
| Mauro Carvalho Chehab | 3259081 | 2018-04-25 05:34:48 -0400 | [diff] [blame] | 4 | # Author: Mauro Carvalho Chehab <mchehab+samsung@kernel.org> |
| Matthew Wilcox | 5b229fb | 2018-02-13 13:15:35 -0800 | [diff] [blame] | 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; |