forked from Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
604 B
28 lines
604 B
#!/usr/bin/env perl |
|
# SPDX-License-Identifier: GPL-2.0 |
|
# |
|
# Author: Mauro Carvalho Chehab <[email protected]> |
|
# |
|
# 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;
|
|
|