cvs: Various fixes.
[ikiwiki] / mdwn2man
1 #!/usr/bin/perl
2 # Warning: hack
3
4 my $prog=shift;
5 my $section=shift;
6
7 print ".TH $prog $section\n";
8
9 while (<>) {
10         s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg;
11         s/\`//g;
12         s/^\s*\./\\&./g;
13         if (/^#\s/) {
14                 s/^#\s/.SH /;
15                 <>; # blank;
16         }
17         s/^[ \n]+//;
18         s/^\t/ /;
19         s/-/\\-/g;
20         s/^Warning:.*//g;
21         s/^$/.PP\n/;
22         s/^\*\s+(.*)/.IP "$1"/;
23         next if $_ eq ".PP\n" && $skippara;
24         if (/^.IP /) {
25                 $inlist=1;
26                 $spippara=0;
27         }
28         elsif (/.SH/) {
29                 $skippara=0;
30                 $inlist=0;
31         }
32         elsif (/^\./) {
33                 $skippara=1;
34         }
35         else {
36                 $skippara=0;
37         }
38         if ($inlist && $_ eq ".PP\n") {
39                 $_=".IP\n";
40         }
41
42         print $_;
43 }