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