diff options
Diffstat (limited to '')
| -rwxr-xr-x | mantools/postconf2man | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/mantools/postconf2man b/mantools/postconf2man new file mode 100755 index 0000000..cf5e161 --- /dev/null +++ b/mantools/postconf2man @@ -0,0 +1,95 @@ +#!/usr/bin/perl + +# postconf2man - convert postconf2html to nroff + +# Basic operation: +# +# - Process input as blocks of text separated by one or more empty +# (or all whitespace) lines. +# +# - Process <nroffescape> pass-through requests for things that this +# script cannot do automatically. +# +# Caution: this depends heavily on the postconf2html output format. + +#use Getopt::Std; + +#$opt_h = undef; +#$opt_v = undef; +#getopts("hv"); + +#die "Usage: $0 [-hv]\n" if ($opt_h); + +#push @ARGV, "/dev/null"; # XXX + +while(<>) { + + # Skip blank lines before text block. + next unless (/\S/); + + # Gobble up the next text block. + $block = ""; + do { + $_ =~ s/\s+\n$/\n/; + $block .= $_; + } while(($_ = <>) && /\S/); + + # How the %!#$^@ do I get a backslash substituted into a string? + # Even \134 comes out as \e. What brain damage is this? + #$block =~ s/\n\./\n\\\&./g; + $block =~ s/\n\./\n\134\&./g; + $block =~ s/\n'/\n\134\&'/g; + if ($block =~ /<H2>/) { + $block =~ s/<H2><a[^>]+>([^<]+)<\/a><\/H2>/\n.SH \1\n/g; + $block =~ tr/a-z/A-Z/; + } + $block =~ s/<DT><b><a[^>]+>([^<]+)<\/a>\n(.*)<\/b><\/DT><DD>/\n.SH \1 \2\n/g; + $block =~ s/<[Aa][ \n]+[Hh][Rr][Ee][Ff]="[^"]+">//g; + $block =~ s/<[Aa][ \n]+[Nn][Aa][Mm][Ee]="[^"]+">//g; + $block =~ s/<\/[Aa]>//g; + $block =~ s/<\/DD>/\n/g; + $block =~ s/<DL>/\n/g; + $block =~ s/<\/DL>/\n/g; + $block =~ s/\\/\\e/g; + $block =~ s/<b>/\\fB/g; + $block =~ s/<i>/\\fI/g; + $block =~ s/<\/b>/\\fR/g; + $block =~ s/<\/i>/\\fR/g; + $block =~ s/^(<p(re)?>)/.PP\n\1/ if ($wantpp); + $block =~ s/<p> */\n/g; + $block =~ s/ *<\/p>/\n/g; + $block =~ s/<pre>/\n.nf\n.na\n.ft C\n/g; + $block =~ s/<\/pre>/\n.fi\n.ad\n.ft R\n/g; + $block =~ s/<dl[^>]*>/\n/g; + $block =~ s/<ul>/\n/g; + #$block =~ s/<\/dl>/\n.PP\n/g; + #$block =~ s/<\/ul>/\n.PP\n/g; + $block =~ s/<\/dl>/\n.br\n/g; + $block =~ s/<\/ul>/\n.br\n/g; + $block =~ s/<dd>\s*/\n/g; + $block =~ s/<\/dd>/\n.br\n/g; + $block =~ s/<li>\s*/\n.IP \\(bu\n/g; + $block =~ s/<dt>\s*/\n.IP "/g; + $block =~ s/\s*<\/dt>/"/g; + $block =~ s/<tt>\s*//g; + $block =~ s/\s*<\/tt>//g; + # Munge "-" here, so that we don't screw up ".in -4". + $block =~ s/-/\\-/g; + $block =~ s/<blockquote>/\n.sp\n.in +4\n/g; + $block =~ s/<\/blockquote>/\n.in -4\n/g; + $block =~ s/\n<br>\s*/\n.br\n/g; + $block =~ s/<br>\s*/\n.br\n/g; + $block =~ s/≤/<=/g; + $block =~ s/</</g; + $block =~ s/≥/>=/g; + $block =~ s/>/>/g; + $block =~ s/&/\&/g; + $block =~ s/–/-/g; + $block =~ s/—/-/g; + $block =~ s/\s+\n/\n/g; + $block =~ s/^\n//g; + $block =~ s/\s*<\s*nroffescape\s+([^ >]+)\s*>\s*/\n\1\n/g; + $block =~ s/([A-Za-z][_a-zA-Z0-9-]*)(\([0-9]\))/\\fB\1\\fR\2/g; + print $block; + $wantpp = !($block =~ /^\.(SH|IP)/); +} |