mirror of
https://github.com/VincentWei/MiniGUI.git
synced 2025-05-11 17:19:23 +08:00
34 lines
693 B
Perl
34 lines
693 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# split-man: create man pages from kernel-doc -man output
|
|
#
|
|
# Author: Tim Waugh <twaugh@redhat.com>
|
|
# Modified by: Christoph Hellwig <hch@infradead.org>
|
|
#
|
|
|
|
use strict;
|
|
|
|
die "$0: where do I put the results?\n" unless ($#ARGV >= 0);
|
|
die "$0: can't create $ARGV[0]: $!\n" unless mkdir $ARGV[0], 0777;
|
|
|
|
my $state = 0;
|
|
|
|
while (<STDIN>) {
|
|
s/&(\w+)/\\fB\1\\fP/g; # fix smgl uglinesses
|
|
if (/^\.TH \"[^\"]*\" 9 \"([^\"]*)\"/) {
|
|
close OUT unless ($state++ == 0);
|
|
my $fn = "$ARGV[0]/$1.9";
|
|
if (open OUT, ">$fn") {
|
|
print STDERR "creating $fn\n";
|
|
} else {
|
|
die "can't open $fn: $!\n";
|
|
}
|
|
|
|
print OUT $_;
|
|
} elsif ($state != 0) {
|
|
print OUT $_;
|
|
}
|
|
}
|
|
|
|
close OUT;
|