| #!/usr/bin/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; |