URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [scripts/] [split-man] - Rev 1774
Go to most recent revision | Compare with Previous | Blame | View Log
#!/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;
Go to most recent revision | Compare with Previous | Blame | View Log