11 if ($printtable == 1) {
13 } elsif ($printtable == 2) {
15 print "</TD><TD ALIGN=\"left\">";
18 #hack, we're inside .nf so highlight comments and
21 s/\/\*/<FONT COLOR="#5555ff">\/\*/g;
22 s/\*\//\*\/<\/FONT>/g;
27 } elsif (/^\.TH .*\"([^"]*)\"/) {
28 # must be at the front
29 print "<HTML><HEAD><TITLE>$1 Manual page</TITLE></HEAD>\n";
30 print "<BODY BGCOLOR=\"#ffffff\">\n";
31 print "<H1>$1 Manual page</H1>\n";
32 } elsif (/^\.SH (.*)$/) {
33 if ($printtable == 3) {
35 print "</TD></TR></TABLE>\n";
37 print "<H3>$1</H3>\n";
39 if ($printtable == 3) {
41 print "</TD></TR></TABLE>\n";
45 if ($printtable == 3) {
47 print "</TD></TR></TABLE>\n";
50 } elsif (/^\.B "(.*)"$/) {
52 } elsif (/^\.B (.*)$/) {
54 } elsif (/^\.I "(.*)"$/) {
56 } elsif (/^\.I (.*)$/) {
59 if ($printtable == 3) {
61 print "</TD></TR></TABLE>\n";
63 print "<TABLE WIDTH=100%><TR><TD BGCOLOR=\"#dddddd\"><PRE>\n";
67 print "</TD></TR></TABLE>\n";
70 if ($printtable == 3) {
72 print "</TD></TR></TABLE>\n";
80 if ($printtable == 3) {
82 print "</TD></TR><TR>\n<TD ALIGN=\"left\">";
85 print "<TABLE BORDER><TR>\n<TD ALIGN=\"left\">";
88 s/\\fB([^\\]*)\\fR/<B>\1<\/B>/gm;
89 s/\\fI([^\\]*)\\fR/<I>\1<\/I>/gm;
90 s/<([a-zA-Z0-9.]+\@[a-zA-Z0-9.]+)>/<<a href=\"mailto:\1\">\1<\/a>>/g;
91 s/(http:\/\/[a-zA-Z0-9.\/~]+\.html)/<a href=\"\1\">\1<\/a>/g;
96 print "</BODY></HTML>\n";