This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fd38e51acf88aa23256de80b626c8249316f920d
[perl5.git] / pod / splitpod
1 #!/usr/bin/perl
2
3 use lib '../lib';  # If you haven't installed perl yet.
4 use Pod::Functions;
5
6 local $/ = '';
7
8 $cur = '';
9 while (<>) {
10
11     next unless /^=(?!cut)/ .. /^=cut/;
12
13     if (s/=item (\S+)/$1/) {
14         #$cur = "POSIX::" . $1;
15         $next{$cur} = $1;
16         $cur = $1;
17         $syn{$cur} .= $_;
18         next;
19     } else { 
20         #s,L</,L<POSIX/,g;
21         s,L</,L<perlfunc/,g;
22         push @{$pod{$cur}}, $_ if $cur;
23     }
24
25
26 for $f ( keys %syn ) {
27     next unless $Type{$f};
28     $flavor = $Flavor{$f};
29     $orig = $f;
30     ($name = $f) =~ s/\W//g;
31
32     # deal with several functions sharing a description
33     $func = $orig;
34     $func = $next{$func} until $pod{$func};
35     my $body = join "", @{$pod{$func}};
36
37     # deal with unbalanced =over and =back cause by the split
38     my $has_over = $body =~ /^=over/;
39     my $has_back = $body =~ /^=back/;
40     $body =~ s/^=over\s*//m if $has_over and !$has_back;
41     $body =~ s/^=back\s*//m if $has_back and !$has_over;
42     open (POD, "> $name.pod") || die "can't open $name.pod: $!";
43     print POD <<EOF;
44 =head1 NAME
45
46 $orig - $flavor
47
48 =head1 SYNOPSIS
49
50 $syn{$orig}
51
52 =head1 DESCRIPTION
53
54 $body
55
56 EOF
57
58     close POD;
59
60