#!/usr/bin/perl
$printbr = 1;
$printtable = 0;
while (<>) {
s/\\&//g;
s/&/&/g;
s/\/>/g;
s/\\'/'/g;
s/\\-/-/g;
if ($printtable == 1) {
$printtable = 2;
} elsif ($printtable == 2) {
$printtable = 3;
print "";
}
#hack, we're inside .nf so highlight comments and
# other such stuff
if ($printbr == 0) {
s/\/\*/\/\*/g;
s/\*\//\*\/<\/FONT>/g;
}
if (/^\.\\"/) {
# comment ignore
} elsif (/^\.TH .*\"([^"]*)\"/) {
# must be at the front
print "$1 Manual page\n";
print "\n";
print "$1 Manual page\n";
} elsif (/^\.SH (.*)$/) {
if ($printtable == 3) {
$printtable = 0;
print " | \n";
}
print "$1
\n";
} elsif (/^\.PP/) {
if ($printtable == 3) {
$printtable = 0;
print "\n";
}
print "\n";
} elsif (/^\.IP/) {
if ($printtable == 3) {
$printtable = 0;
print "\n";
}
print "
\n";
} elsif (/^\.B "(.*)"$/) {
print "$1\n";
} elsif (/^\.B (.*)$/) {
print "$1\n";
} elsif (/^\.I "(.*)"$/) {
print "$1\n";
} elsif (/^\.I (.*)$/) {
print "$1\n";
} elsif (/^\.nf/) {
if ($printtable == 3) {
$printtable = 0;
print "\n";
}
print "
\n";
$printbr = 0;
} elsif (/^\.fi/) {
print "\n";
print " |
\n";
$printbr = 1;
} elsif (/^[ ]*$/) {
if ($printtable == 3) {
$printtable = 0;
print "\n";
}
if ($printbr) {
print "
\n";
} else {
print "\n";
}
} elsif (/^\.TP/) {
if ($printtable == 3) {
$printtable = 1;
print "\n| ";
} else {
$printtable = 1;
print " |