Home | History | Annotate | Line # | Download | only in mantools 
      1 #!/usr/bin/perl
      2 
      3 # postconf2man - convert postconf2html to nroff
      4 
      5 # Basic operation: 
      6 #
      7 # - Process input as blocks of text separated by one or more empty
      8 # (or all whitespace) lines. 
      9 #
     10 # - Process <nroffescape> pass-through requests for things that this
     11 # script cannot do automatically.
     12 #
     13 # Caution: this depends heavily on the postconf2html output format.
     14 
     15 #use Getopt::Std;
     16 
     17 #$opt_h = undef;
     18 #$opt_v = undef;
     19 #getopts("hv");
     20 
     21 #die "Usage: $0 [-hv]\n" if ($opt_h);
     22 
     23 #push @ARGV, "/dev/null"; # XXX
     24 
     25 while(<>) {
     26 
     27     # Skip blank lines before text block.
     28     next unless (/\S/);
     29 
     30     # Gobble up the next text block.
     31     $block = "";
     32     do {
     33 	$_ =~ s/\s+\n$/\n/;
     34 	$block .= $_;
     35     } while(($_ = <>) && /\S/);
     36 
     37     # How the %!#$^@ do I get a backslash substituted into a string?
     38     # Even \134 comes out as \e. What brain damage is this?
     39     #$block =~ s/\n\./\n\\\&./g;
     40     $block =~ s/\n\./\n\134\&./g;
     41     $block =~ s/\n'/\n\134\&'/g;
     42     $block =~ s/(<(p|dd|br)+>\s*)([.'])/$1\134\&$3/g;
     43     if ($block =~ /<H2>/) {
     44 	$block =~ s/<H2><a[^>]+>([^<]+)<\/a><\/H2>/\n.SH \1\n/g;
     45 	$block =~ tr/a-z/A-Z/;
     46     }
     47     $block =~ s/<DT><b><a[^>]+>([^<]+)<\/a>\n(.*)<\/b><\/DT><DD>/\n.SH \1 \2\n/g;
     48     $block =~ s/<[Aa][ \n]+[Hh][Rr][Ee][Ff]="[^"]+">//g;
     49     $block =~ s/<[Aa][ \n]+[Nn][Aa][Mm][Ee]="[^"]+">//g;
     50     $block =~ s/<\/[Aa]>//g;
     51     $block =~ s/<\/DD>/\n/g;
     52     $block =~ s/<DL>/\n/g;
     53     $block =~ s/<\/DL>/\n/g;
     54     $block =~ s/\\/\\e/g;
     55     $block =~ s/<b>/\\fB/g;
     56     $block =~ s/<i>/\\fI/g;
     57     $block =~ s/<\/b>/\\fR/g;
     58     $block =~ s/<\/i>/\\fR/g;
     59     $block =~ s/\s*<\/p>\s*<pre>\s*\n/\n.sp\n.nf\n.na\n/g;
     60     $block =~ s/\s*<\/pre>\s*<p>\s*/\n.sp\n.fi\n.ad\n/g;
     61     $block =~ s/\s*<\/pre>\s*<pre>\s*\n/\n.sp\n/g;
     62     $block =~ s/\s*<\/p>\s*<p>\s*/\n.sp\n/g;
     63     $block =~ s/^(<p(re)?>)/.PP\n\1/ if ($wantpp);
     64     $block =~ s/<p> */\n/g;
     65     $block =~ s/ *<\/p>/\n/g;
     66     $block =~ s/<pre>/\n.nf\n.na\n/g;
     67     $block =~ s/<\/pre>/\n.fi\n.ad\n/g;
     68     $block =~ s/<dl[^>]*>/\n/g;
     69     $block =~ s/<ul>/\n/g;
     70     #$block =~ s/<\/dl>/\n.PP\n/g;
     71     #$block =~ s/<\/ul>/\n.PP\n/g;
     72     $block =~ s/<\/dl>/\n.br\n/g;
     73     $block =~ s/<\/ul>/\n.br\n/g;
     74     $block =~ s/<dd>\s*/\n/g;
     75     $block =~ s/<\/dd>/\n.br\n/g;
     76     $block =~ s/<li>\s*/\n.IP \\(bu\n/g;
     77     $block =~ s/<dt>\s*/\n.IP "/g;
     78     $block =~ s/\s*<\/dt>/"/g;
     79     $block =~ s/<tt>\s*//g;
     80     $block =~ s/\s*<\/tt>//g;
     81     # Munge "-" here, so that we don't screw up ".in -4".
     82     $block =~ s/-/\\-/g;
     83     $block =~ s/<blockquote>/\n.sp\n.in +4\n/g;
     84     $block =~ s/<\/blockquote>/\n.in -4\n/g;
     85     $block =~ s/\n<br>\s*/\n.br\n/g;
     86     $block =~ s/<br>\s*/\n.br\n/g;
     87     $block =~ s/&le;/<=/g;
     88     $block =~ s/&lt;/</g;
     89     $block =~ s/&ge;/>=/g;
     90     $block =~ s/&gt;/>/g;
     91     $block =~ s/&amp;/\&/g;
     92     $block =~ s/&ndash;/-/g;
     93     $block =~ s/&mdash;/-/g;
     94     $block =~ s/<sup>/^/g;
     95     $block =~ s;</sup>;;g;
     96     $block =~ s/\s+\n/\n/g;
     97     $block =~ s/^\n//g;
     98     $block =~ s/\s*<\s*nroffescape\s+([^ >]+)\s*>\s*/\n\1\n/g;
     99     $block =~ s/([A-Za-z][_a-zA-Z0-9-]*)(\([0-9]\))/\\fB\1\\fR\2/g;
    100     print $block;
    101     $wantpp = !($block =~ /^\.(SH|IP)/);
    102 }
    103