Release 2.0.7

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

diff --git a/doc/makehtml.pl b/doc/makehtml.pl
index 5b77ed2c4ce0a829b941ca8f5ec4fd82294dd7bf..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,6 +41,12 @@ 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 (.*)$/) {
@@ -78,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;
        }
 }