diff options
author | 2012-09-01 15:22:13 -0400 | |
---|---|---|
committer | 2012-09-01 15:22:22 -0400 | |
commit | 47b88bbd165c17a830955ef867b64d2d473c2e53 (patch) | |
tree | 89297458416a2da4bdd82e51666a6af571942118 /mdwn2man | |
parent | 87b9da70e6436bda534425b82553972c55208ac2 (diff) |
move build scripts
Diffstat (limited to 'mdwn2man')
-rwxr-xr-x | mdwn2man | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/mdwn2man b/mdwn2man deleted file mode 100755 index ad6d3c602..000000000 --- a/mdwn2man +++ /dev/null @@ -1,43 +0,0 @@ -#!/usr/bin/perl -# Warning: hack - -my $prog=shift; -my $section=shift; - -print ".TH $prog $section\n"; - -while (<>) { - s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg; - s/\`//g; - s/^\s*\./\\&./g; - if (/^#\s/) { - s/^#\s/.SH /; - <>; # blank; - } - s/^[ \n]+//; - s/^\t/ /; - s/-/\\-/g; - s/^Warning:.*//g; - s/^$/.PP\n/; - s/^\*\s+(.*)/.IP "$1"/; - next if $_ eq ".PP\n" && $skippara; - if (/^.IP /) { - $inlist=1; - $spippara=0; - } - elsif (/.SH/) { - $skippara=0; - $inlist=0; - } - elsif (/^\./) { - $skippara=1; - } - else { - $skippara=0; - } - if ($inlist && $_ eq ".PP\n") { - $_=".IP\n"; - } - - print $_; -} |