Commit | Line | Data |
cb1a09d0 |
1 | #!/usr/bin/perl |
2 | |
6ec7a3ca |
3 | use lib '../lib'; # If you haven't installed perl yet. |
4 | use Pod::Functions; |
cb1a09d0 |
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 | $cur = $1; |
16 | $syn{$cur} .= $_; |
17 | next; |
18 | } else { |
19 | #s,L</,L<POSIX/,g; |
20 | s,L</,L<perlfunc/,g; |
21 | $pod{$cur} .= $_ if $cur; |
22 | } |
23 | } |
24 | |
25 | for $f ( keys %syn ) { |
26 | $type = $Type{$f} || next; |
27 | $flavor = $Flavor{$f}; |
28 | $orig = $f; |
29 | ($name = $f) =~ s/\W//g; |
30 | open (POD, "> $name.pod") || die "can't open $name.pod: $!"; |
31 | print POD <<EOF; |
32 | =head1 NAME |
33 | |
34 | $orig - $flavor |
35 | |
36 | =head1 SYNOPSIS |
37 | |
38 | $syn{$orig} |
39 | |
40 | =head1 DESCRIPTION |
41 | |
42 | $pod{$orig} |
43 | |
44 | EOF |
45 | |
46 | close POD; |
47 | |
48 | } |