Commit | Line | Data |
cb1a09d0 |
1 | #!/usr/bin/perl |
2 | |
3 | use PerlDoc::Functions; |
4 | |
5 | local $/ = ''; |
6 | |
7 | $cur = ''; |
8 | while (<>) { |
9 | |
10 | next unless /^=(?!cut)/ .. /^=cut/; |
11 | |
12 | if (s/=item (\S+)/$1/) { |
13 | #$cur = "POSIX::" . $1; |
14 | $cur = $1; |
15 | $syn{$cur} .= $_; |
16 | next; |
17 | } else { |
18 | #s,L</,L<POSIX/,g; |
19 | s,L</,L<perlfunc/,g; |
20 | $pod{$cur} .= $_ if $cur; |
21 | } |
22 | } |
23 | |
24 | for $f ( keys %syn ) { |
25 | $type = $Type{$f} || next; |
26 | $flavor = $Flavor{$f}; |
27 | $orig = $f; |
28 | ($name = $f) =~ s/\W//g; |
29 | open (POD, "> $name.pod") || die "can't open $name.pod: $!"; |
30 | print POD <<EOF; |
31 | =head1 NAME |
32 | |
33 | $orig - $flavor |
34 | |
35 | =head1 SYNOPSIS |
36 | |
37 | $syn{$orig} |
38 | |
39 | =head1 DESCRIPTION |
40 | |
41 | $pod{$orig} |
42 | |
43 | EOF |
44 | |
45 | close POD; |
46 | |
47 | } |