FreeBSD/Linux Kernel Cross Reference
sys/scripts/split-man

     #!/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/&amp;(\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;

Cache object: 753a598705d008d920c3c0df0c2ba2f5