doc/web/htmlify

   1 #!/usr/bin/perl
   2 $q = 1;
   3
   4 while (<>){
   5         chop;
   6         if (/^\* (.*)$/){
   7                 print "<h1>$1</h1>\n";
   8         } elsif (/^\*\* (.*)$/) {
   9                 print "<h2>$1</h2>\n";
  10         } elsif (/^\*\*\* (.*)$/) {
  11                 print "<h3>$1</h3>\n";
  12         } elsif (/^\*\*\*\* (.*)$/) {
  13                 print "<h4>$1</h4>\n";
  14         } elsif (/^$/) {
  15                 print "<p>\n";
  16         } elsif (/^\t\t\* (.*)$/) {
  17                 print "<li>$1\n";
  18         } elsif (/^\@item (.*)$/){
  19                 $name = $link = $1;
  20                 $link =~ s/ //g;
  21                 print "<a name=\"$link\">\n";
  22                 print "<h2>$name</h2>\n";
  23         } elsif (/^Q: (.*)$/){
  24                 print "<p><a name=\"q$q\"></a><b>Question $q:</b> $1\n";
  25                 $q++;
  26         } elsif (/^A: (.*)$/){
  27                 print "$1\n";
  28         } elsif (/^TODO=(.*),$/){
  29                 print "<a name=\"$1\">\n";
  30         } else {
  31                 print "$_\n";
  32         }
  33 }