summaryrefslogtreecommitdiff
path: root/mdwn2man
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-01 15:22:13 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-01 15:22:22 -0400
commit47b88bbd165c17a830955ef867b64d2d473c2e53 (patch)
tree89297458416a2da4bdd82e51666a6af571942118 /mdwn2man
parent87b9da70e6436bda534425b82553972c55208ac2 (diff)
move build scripts
Diffstat (limited to 'mdwn2man')
-rwxr-xr-xmdwn2man43
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 $_;
-}