Release 2.0.7

[gob-dx.git] / doc / makehtml.pl

diff --git a/doc/makehtml.pl b/doc/makehtml.pl
index 8b14c5d4b0d38feffc277ed8c52ab89382162974..003e9b5ade8f6454c6df42cf74e299a0c0b3762b 100755 (executable)
--- a/doc/makehtml.pl
+++ b/doc/makehtml.pl
@@ -2,9 +2,12 @@
 $printbr = 1;
 $printtable = 0;
 while (<>) {
+       s/\\&//g;
        s/&/&amp;/g;
        s/\</&lt;/g;
        s/\>/&gt;/g;
+       s/\\'/'/g;
+       s/\\-/-/g;
        if ($printtable == 1) {
                $printtable = 2;
        } elsif ($printtable == 2) {
@@ -38,8 +41,18 @@ while (<>) {
                        print "</TD></TR></TABLE>\n";
                }
                print "<P>\n";
+       } elsif (/^\.IP/) {
+               if ($printtable == 3) {
+                       $printtable = 0;
+                       print "</TD></TR></TABLE>\n";
+               }
+               print "<P>\n";
+       } elsif (/^\.B "(.*)"$/) {
+               print "<B>$1</B>\n";
        } elsif (/^\.B (.*)$/) {
                print "<B>$1</B>\n";
+       } elsif (/^\.I "(.*)"$/) {
+               print "<I>$1</I>\n";
        } elsif (/^\.I (.*)$/) {
                print "<I>$1</I>\n";
        } elsif (/^\.nf/) {
@@ -74,7 +87,8 @@ while (<>) {
        } else {
                s/\\fB([^\\]*)\\fR/<B>\1<\/B>/gm;
                s/\\fI([^\\]*)\\fR/<I>\1<\/I>/gm;
-               s/\\(.)/\1>/g;
+               s/&lt;([a-zA-Z0-9.]+\@[a-zA-Z0-9.]+)&gt;/&lt;<a href=\"mailto:\1\">\1<\/a>&gt;/g;
+               s/(http:\/\/[a-zA-Z0-9.\/~]+\.html)/<a href=\"\1\">\1<\/a>/g;
                print;
        }
 }