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