Re: [MacOS X] consider useshrplib='false' by default
[perl.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 (/=item (\S+)/ and $1 ne '*') {
14         s/=item //; 
15         #$cur = "POSIX::" . $1;
16         $next{$cur} = $1;
17         $cur = $1;
18         $syn{$cur} .= $_;
19         next;
20     } else { 
21         #s,L</,L<POSIX/,g;
22         s,L</,L<perlfunc/,g;
23         push @{$pod{$cur}}, $_ if $cur;
24     }
25
26
27 for $f ( keys %syn ) {
28     next unless $Type{$f};
29     $flavor = $Flavor{$f};
30     $orig = $f;
31     ($name = $f) =~ s/\W//g;
32
33     # deal with several functions sharing a description
34     $func = $orig;
35     $func = $next{$func} until $pod{$func};
36     my $body = join "", @{$pod{$func}};
37
38     # deal with unbalanced =over and =back cause by the split
39     my $has_over = $body =~ /^=over/;
40     my $has_back = $body =~ /^=back/;
41     $body =~ s/^=over\s*//m if $has_over and !$has_back;
42     $body =~ s/^=back\s*//m if $has_back and !$has_over;
43     open (POD, "> $name.pod") || die "can't open $name.pod: $!";
44     print POD <<EOF;
45 =head1 NAME
46
47 $orig - $flavor
48
49 =head1 SYNOPSIS
50
51 $syn{$orig}
52
53 =head1 DESCRIPTION
54
55 $body
56
57 EOF
58
59     close POD;
60
61