home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / Shareware City / Utilities / setext2html / setext2html.pl < prev   
Encoding:
Perl Script  |  1995-06-05  |  16.8 KB  |  774 lines  |  [TEXT/R*ch]
  1. #!/usr/bin/perl
  2.   eval "exec /usr/bin/perl -S $0 $*"
  3.   if $running_under_some_shell;
  4. # 
  5. # Copyright Hans Verbrugge 1995
  6. # hans@solair1.inter.nl.net
  7. #
  8. # $Id: setext2html.pl,v 1.4 1995/06/04 13:20:39 hans Exp hans $
  9. #
  10. # this script translates setext formatted files
  11. # to html formatted files
  12. #
  13. #
  14. #
  15. # YOU, THE USER OF THIS SOFTWARE WILL USE THIS SOFTWARE AT YOUR OWN RISK.
  16. # IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  17. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  18. # DAMAGES.
  19. #
  20. # based on setext.pl,v 2.8
  21. # by Tony Sanders <sanders@earth.com>
  22. # 
  23.  
  24. #_______ NOT SUPPORTED (YET) _______
  25. # digests
  26. # multisetext
  27. # href_tt
  28. # hot_tt, will only be diplayed as strong emphasized.
  29.  
  30. #_______ TODO ________
  31. # be more economical on memory usage
  32.  
  33.  
  34. #_______ HISTORY ________
  35.  
  36. ######
  37. # v1.0, Hans Verbrugge
  38. # - initial version, never made it public
  39. #
  40.  
  41. ######
  42. # v1.1b1, Hans Verbrugge
  43. # - implemented chapter (on title_tt) splitting
  44.  
  45.  
  46.  
  47. ######
  48. # v1.1b2, Hans Verbrugge
  49. # - when splitting chapters , overview file gets the title of the 
  50. #   first chapter + "Overview"
  51. # - when splitting chapters, prefixes for output files 
  52. #   and the name of the index file
  53. #   are userdefined
  54.  
  55. ######
  56. # v1.1b3, Hans Verbrugge
  57. # - made preparations to make this run under Unix
  58.  
  59. ######
  60. # v1.1b4, Hans Verbrugge
  61. # - url's are translated properly
  62.  
  63. ######
  64. # v1.1b5, Hans Verbrugge
  65. # - url's are not properly translated when it contains a ':portnumber'.
  66. #   fixed
  67. # - handle url's first, translate setext special chars
  68. #   like '_' into escape sequences so that further parsing
  69. #   leaves the url alone
  70.  
  71. ######
  72. # v1.1, Robert A. Lentz <lentz@annie.astro.nwu.edu>
  73. #       Hans Verbrugge
  74. # - fixed argument parsing
  75. # - fixed chdir bug 
  76.  
  77. ######
  78. # v1.2, Hans Verbrugge
  79. # - my perl version for linux (v5.000) goes bananas 
  80. #   when feeded large regular expression substitutions.
  81. #   Those are now splitted into seperate subroutines.
  82. #   (DoUrl/SubstUrl/DoMail/SubstMail)
  83.  
  84. ######
  85. # v1.3, Hans Verbrugge
  86. # - when no files are specified on commandline
  87. #   read from stdin
  88.  
  89. ######
  90. # v1.4, Hans Verbrugge
  91. # - implemented quote-tt handling
  92.  
  93. #_______ GLOBALS _______
  94. # comment if you're not running this on a mac
  95. $MACINTOSH=1;
  96.  
  97. #_______ OPTIONS _______
  98.  
  99. if (defined ($MACINTOSH)) {
  100.   require "StandardFile.pl";
  101.   
  102.   # CONFIGURABLE PARAMETERS FOR MAC USERS
  103.    
  104.   # set to '0' if you don't want your chapters
  105.   # stored into separate files
  106.   $SPLIT_ON_CHAPTERS=0;
  107.  
  108.   # set to '0' if you don't want
  109.   # mail addresses to be translated to the MAILTO: url
  110.   $DO_MAIL = 1;
  111.    
  112.   # set to '0' if you don't want
  113.   # url's to be translated.
  114.   $DO_URL = 1;
  115.  
  116.   # set to '0' if you don't care what's going on :-)
  117.   $VERBOSE = 1;
  118.   
  119.   # when splitting on chapters, this becomes the overview file,
  120.   # rename it if you want another name
  121.   $INDEX_FILE_PREFIX="index";
  122.   
  123.   # when splitting on chapters, this becomes the prefix name of
  124.   # the output file, so in this case chapter 1 gets stored in ch-1.html
  125.   # rename it if you want another name
  126.   $CHAPTER_PREFIX="ch-";
  127.   
  128. }
  129. else {
  130.   # default settings for unix
  131.   $SPLIT_ON_CHAPTERS=0;
  132.   $DO_MAIL = 0;
  133.   $DO_URL = 0;
  134.   $VERBOSE = 0;
  135.   $INDEX_FILE_PREFIX="index";
  136.   $CHAPTER_PREFIX="ch-";
  137.   
  138.   #get current directory
  139.   $DIR = `pwd`;
  140.   chop ($DIR);
  141.  
  142.   
  143. }
  144. $SECTION=0;
  145. $CHAPTER_NO=0;
  146.  
  147. $title="";
  148. $firstchapter="";
  149. $stylechange="";
  150.  
  151. #_______ arrays _______
  152. %FILES=();
  153. %SPLITTED_CHAPTERS=();
  154. $lines="";
  155. $hrefs="";
  156.  
  157.  
  158. #_______ states _______
  159.  
  160. $INDENT = 1;
  161. $MONO =2;
  162. $PREFORMAT = 3;
  163. $STATE = $INDENT;
  164. $UNFOLDING = 0;
  165.  
  166.  
  167. # html styles
  168. $html_addr=                         "ADDRES";
  169. $html=                              "HTML";
  170. $html_head=                         "HEAD";
  171. $html_body=                         "BODY";
  172. $html_title=                        "TITLE";
  173. $html_bold=                         "B";
  174. $html_italic=                       "I";
  175. $html_uline=                        "EM";
  176. $html_emph=                         "EM";
  177. $html_strongemph=                   "STRONG";
  178. $html_block=                        "BLOCKQUOTE";
  179. $html_preformat=                    "PRE";
  180. $html_paragraphbreak=               "P";
  181.  
  182. #_______ setext styles _______
  183. $title_tt=                          "^(={2,})\\s*\$";
  184. $subhead_tt=                        "^(-{2,})\\s*\$";
  185. $indent_tt=                         "^  ";
  186. $bold_tt=                           "\\*\\*([^\\*]*)\\*\\*";
  187. $italic_tt=                         "~([^\\s]*)~";
  188. $underline_tt=                      "_([^\\s]*)_";
  189. $hot_tt=                            "\\b([^\\s]*)_\\b";
  190. $include_tt=                        "^>\\s*(.*)";
  191. $bullet_tt=                         "^\\*\\s+(.*)";
  192. $quote_tt=                          "`_(\\b+)_`";
  193.  
  194.  
  195.  
  196. #### MAIN ####
  197. while ($ARGV[0] =~ /^[^-].*/) {
  198.   $_ = shift @ARGV;
  199.   $FILES{$_}="";
  200.  
  201. }
  202.  
  203. if (! defined ($MACINTOSH)) {
  204.   &parseopts();
  205. }
  206.  
  207. # on a mac ask for input if no files were found in @ARGV
  208. if (! %FILES && defined ($MACINTOSH)) {
  209.    $ifile = &StandardFile'GetFile("open source file:", "TEXT", "TEXT");
  210.    $ifile eq '' && &Fail ("no input file given!\n");
  211.    $FILES{$ifile} = "bla";
  212. }
  213.  
  214. # on a mac set stderr unbuffered if we are in verbose mode
  215. if ($VERBOSE == 1 && defined ($MACINTOSH)) {
  216.   select (stderr); $| = 1; select (stderr);
  217. }
  218.  
  219. # on a mac let user choose a folder to save splitted files,
  220. # on unixbox directory was given on the commandline
  221. if ($SPLIT_ON_CHAPTERS == 1) {
  222.   if (defined $MACINTOSH) {
  223.     $DIR = &MacChooseOuput();
  224.   }
  225.   # split the chapters in directory $DIR
  226.   &SplitChapters($DIR);
  227.   
  228.   # now change directory to $DIR 
  229.   chdir ($DIR) || &Fail ("cd $DIR: $!\n");
  230. }
  231. else {
  232.   # force a loop when reading from stdin
  233.   if (! %FILES) {$FILES{"USE SINPUT"} = "";}
  234. }
  235.  
  236. print STDERR "parsing ...\n" if $VERBOSE;
  237.  
  238. foreach $file (sort keys %FILES) {
  239.   local ($ofile) = $FILES{$file};
  240.   
  241.   if (defined $MACINTOSH && ! $SPLIT_ON_CHAPTERS) {
  242.     $ofile = &MacChooseOuput($file);
  243.   }
  244.   &do_it ($file, $ofile);
  245. }
  246. if ($SPLIT_ON_CHAPTERS) {
  247.   foreach $file (sort keys %FILES) {
  248.     unlink $file;
  249.   }
  250.   &BuildContents(); 
  251. }
  252.  
  253. print STDERR "done\n" if $VERBOSE;
  254. exit 0;
  255.  
  256. ############## 
  257.  
  258. sub parseopts
  259. {
  260.   while (@ARGV) {
  261.     $_ = shift (@ARGV);
  262.  
  263.     if    (/^-v$/) {$VERBOSE = 1;}
  264.     elsif (/^-m$/) {$DO_MAIL = 1;}
  265.     elsif (/^-u$/) {$DO_URL = 1;}
  266.     elsif (/^-s$/) {$SPLIT_ON_CHAPTERS = 1;}
  267.     elsif (/^-d(.*)/) {$DIR = $1 ? $1 : shift(@ARGV);}
  268.     elsif (/^-i(.*)/) {$INDEX_FILE_PREFIX = $1 ? $1 : shift(@ARGV);}
  269.     elsif (/^-p(.*)/) {$CHAPTER_PREFIX = $1 ? $1 : shift(@ARGV);}
  270.     elsif (/^-(.)/) {
  271.       print STDERR "unrecognized option: $_\n";
  272.       &Usage;
  273.       exit (1);
  274.     }
  275.     else {
  276.       print STDERR "unrecognized token: $_\n";
  277.       &Usage();
  278.       exit (1);
  279.     }
  280.   }
  281. }
  282.  
  283.  
  284. # build the contents file when splitting on chapters
  285. sub BuildContents 
  286. {
  287.   print STDERR "building ${INDEX_FILE_PREFIX}.html...\n" if $VERBOSE;
  288.   
  289.   open (CONTENTS,">${INDEX_FILE_PREFIX}.html") || 
  290.     &Fail ("${INDEX_FILE_PREFIX}.html:$!\n");
  291.   print CONTENTS <<"EOF";
  292. <${html}>
  293. <${html_head}>
  294. <${html_title}>${firstchapter} Overview</${html_title}>
  295. </${html_head}>
  296. <${html_body}>
  297. <H2><CENTER>${firstchapter} Overview</CENTER></H2><P>
  298. <HR>
  299. <UL>
  300. EOF
  301.  
  302.   # translate funny chars back to html   
  303.   grep (do {&XlateSpecialChars} && 0,%SPLITTED_CHAPTERS);
  304.  
  305.   foreach $key (sort bynumber keys %SPLITTED_CHAPTERS) {
  306.     $file = ${CHAPTER_PREFIX} . ${key};
  307.     print CONTENTS "  <LI><A HREF=\"${file}.html\">$SPLITTED_CHAPTERS{$key}</A>\n";
  308.   }
  309.   print CONTENTS <<"EOF";
  310. </UL>
  311. <P>
  312. <HR>
  313. </${html_body}>
  314. </${html}>
  315. EOF
  316. }
  317.  
  318.  
  319.  
  320. # do_it; parse input ifile and write to output file ofile
  321. sub do_it
  322. {
  323.   local ($ifile,$ofile) = @_;
  324.   local ($i);
  325.   local ($key);
  326.   
  327.   if ($ifile eq "USE SINPUT") {
  328.     open (IFILE, "<&STDIN") || &Fail ("couldn't dup stdin:$!\n");
  329.   }
  330.   else {
  331.     open (IFILE,$ifile) || &Fail ("$file:$!\n");
  332.   }
  333.  
  334.   # fill lines array; 
  335.     
  336.   $lines = "";
  337.   $#lines=0;
  338.  
  339.   while (<IFILE>) {
  340.     chop;
  341.     # eat white
  342.     $_=~s/\s+$//go;     
  343.     $lines[$.-1]=$_;
  344.   }
  345.   close (IFILE);
  346.   
  347.   if ($ofile eq '') {
  348.     open (OUTFILE, ">&STDOUT") || &Fail ("couldn't dup stdout:$!\n");
  349.   }
  350.   else {
  351.     open (OUTFILE,">${ofile}") || &Fail ("Couldn't create ${ofile}:$!\n");
  352.   }
  353.  
  354.   # translate special characters in
  355.   # their html counterparts
  356.   grep (do {&TranslateSpecialChars} && 0,@lines);  
  357.  
  358.   # process subheads & titles
  359.   &HandleSubheads;
  360.  
  361.   print "      $title...\n" if $VERBOSE;
  362.  
  363.   # translate funny chars back to html    
  364.   grep (do {&TranslateSpecialCharsBack} && 0,@hrefs);
  365.   # build the header
  366.   &MakeHeader;
  367.  
  368.   print OUTFILE "<${html_body}>\n";
  369.   print OUTFILE "<H2><CENTER>$title</CENTER></H2><P>\n";
  370.   print OUTFILE "<HR>";
  371.   print OUTFILE "<UL>\n";
  372.   for ($i = 0; $i <= $#hrefs; $i++) {
  373.     print OUTFILE "  <LI>$hrefs[$i]\n";
  374.   }
  375.   print OUTFILE "</UL>\n";
  376.   print OUTFILE "<P>";
  377.   #print OUTFILE "<HR>";
  378.  
  379.   &ParseSetext;
  380.  
  381.   # translate special characters in
  382.   # their html counterparts
  383.   #&TranslateSpecialCharsBack;
  384.   grep (do {&TranslateSpecialCharsBack} && 0,@lines);
  385.  
  386.   for ($i = 0; $i <= $#lines; $i++) {
  387.   $_ = $lines[$i];
  388.     print OUTFILE "$_\n" unless /^\.\. /; 
  389.   }
  390.   print OUTFILE "</${html_body}>\n";
  391.   close (OUTFILE);
  392. }
  393.  
  394. sub CheckForSetext
  395. {
  396.   local ($file) = @_;
  397.   
  398.   open (IFILE,$file) || &Fail ("Couldn't open $file:\n$!");
  399.   
  400.   while (<IFILE>) {
  401.     if (/^==*/ || /^--*/) {
  402.       close (IFILE);
  403.       return 1;
  404.     }
  405.   }
  406.   return 0;
  407. }
  408.   
  409. sub Fail
  410. {
  411.   local ($why)=@_;
  412.  
  413.   if (defined ($MACINTOSH))
  414.   {
  415.     &MacPerl'Answer ("$why", "Bye");
  416.     exit;
  417.   }
  418.   else 
  419.   {
  420.     die "$why";
  421.   }
  422. }
  423.  
  424. # open the input file, if script runs on a Mac
  425. # ask the user where to save the new file
  426. # otherwise print open STDOUT
  427.  
  428. sub MacChooseOuput
  429. {
  430.   local ($ifile) = @_;
  431.   
  432.   if (defined ($MACINTOSH))
  433.   {
  434.        local ($file,$ofile);
  435.     
  436.     if ($SPLIT_ON_CHAPTERS != 1) {
  437.       $file = $1 if $ifile =~ /([^:]*)$/;  # basename
  438.  
  439.       $ofile = &StandardFile'PutFile("Save htmlized version as:", "$file.html");
  440.       exit unless $ofile;
  441.       return $ofile;
  442.     }
  443.     else {
  444.       local ($folder) = &StandardFile'GetFolder("save chapters where?");
  445.       exit unless $folder;
  446.       return $folder;
  447.     }
  448.   }
  449. }
  450.  
  451. # translate special characters to a nonprintable char
  452. # so we can recognize it later.
  453. # primary use is to *not* screw up HREFS in chapter overviews
  454.  
  455. sub XlateSpecialChars
  456. {
  457.   s/&/&/go;
  458.   s/</</go;
  459.   s/>/>/go unless /^>/;
  460.   s/"/"/go;
  461.   s/ö/ö/go;
  462.   s/ñ/ñ/go;
  463.   s/È/È/go;
  464.   
  465. }
  466.  
  467. sub TranslateSpecialChars
  468. {
  469.   s/&/\01/go;
  470.   s/</\02/go;
  471.   s/>/\03/go unless /^>/;
  472.   s/"/\04/go;
  473.   s/ö/\05/go;
  474.   s/ñ/\06/go;
  475.   s/È/\07/go;
  476.   
  477. }
  478.  
  479. sub TranslateSpecialCharsBack
  480. {
  481.   s/\01/&/go;
  482.   s/\02/</go;
  483.   s/\03/>/go;
  484.   s/\04/"/go;
  485.   s/\05/ö/go;
  486.   s/\06/ñ/go;
  487.   s/\07/È/go;
  488. }
  489.  
  490.  
  491. sub SplitChapters
  492. {
  493.   local ($dir) = @_;
  494.   local ($file) = "";
  495.   local ($i,$_);
  496.   local ($firstLineIsChapter);
  497.   local ($currentdir) = `pwd`;
  498.   
  499.   chop ($currentdir);
  500.     
  501.   print STDERR "splitting...\n" if $VERBOSE;
  502.  
  503.   # force a loop when no input files where given
  504.   if (! %FILES) {$FILES{"USE SINPUT"} = "";}
  505.   
  506.   foreach $file (sort keys %FILES) {
  507.     if ($file eq "USE SINPUT") {
  508.       open (IFILE, "&STDIN") || &Fail ("couldn't dup stdin:$!\n");
  509.     }
  510.     else {
  511.       open (IFILE,$file) || &Fail ("$file:$!\n");
  512.     }
  513.     chdir $dir || &Fail ("cd $dir:$!\n");
  514.  
  515.     # fill lines array; 
  516.        while (<IFILE>) {
  517.          chop;
  518.          # eat white
  519.          $_=~s/\s+$//go;     
  520.          $lines[$.-1]=$_;
  521.        }
  522.        close (IFILE);
  523.        $firstLineIsChapter = 0;
  524.  
  525.        for ($i = 0; $i <= $#lines; $i++) {
  526.          $_ = $lines[$i];
  527.     
  528.          # check for title_tt
  529.       if (/$title_tt/) {
  530.            if (length ($_) == length ($lines[$i-1])) {
  531.              # got a title_tt 
  532.            
  533.              $i == 1 && ($firstLineIsChapter = 1);
  534.              (($i > 1) && ($firstLineIsChapter == 0)) &&
  535.                &Fail("$file: when splitting on chapters,\nfirst line in the file should be title_tt\n");
  536.            
  537.              $firstchapter = $lines[$i-1] unless $firstchapter;
  538.              $lines[$i-1] = "\033\036" . $lines[$i-1];
  539.     
  540.              print STDERR "      ", substr ($lines[$i-1],2), "\n" if $VERBOSE;
  541.            } 
  542.          }
  543.        }
  544.        for ($i = 0; $i <= $#lines; $i++) {
  545.        $_ = $lines[$i];
  546.     
  547.        if (s#^\033\036(.*)#$1#go) {
  548.          close (CHAPTER) if ($CHAPTER_NO++ > 1);
  549.          local ($splittedfile) = "${CHAPTER_PREFIX}${CHAPTER_NO}";
  550.            open (CHAPTER,">${splittedfile}") || &Fail ("${splittedfile}:$!\n");
  551.          $SPLITTED_CHAPTERS{"$CHAPTER_NO"}=$_;
  552.        }
  553.        print CHAPTER $_,"\n";
  554.     }
  555.     close (CHAPTER);
  556.  
  557.        # back to working direcory
  558.        chdir($currentdir);
  559.   }
  560.   # rebuild %FILES array
  561.   %FILES=();
  562.     
  563.   foreach $key (sort bynumber keys %SPLITTED_CHAPTERS) {
  564.     $file = ${CHAPTER_PREFIX} . ${key};
  565.     $FILES{$file} = "${file}.html"
  566.   }
  567. }
  568.  
  569.  
  570.  
  571. # handle subheads & titles;
  572. # the lines are stripped from trailing whitespace,
  573. # if a line is followed by a line containing a equal
  574. # number of '=' or '-' starting at position 1,
  575. # then that line is a valid title_tt or subhead_tt.
  576. sub HandleSubheads
  577. {
  578.   local ($issetext)=0;
  579.   local ($y)=0;
  580.   local ($i,$_);
  581.  
  582.   $title="";
  583.   $#hrefs=0;
  584.   $SECTION = 0;
  585.   
  586.   for ($i = 0; $i <= $#lines; $i++) {
  587.     $_ = $lines[$i];
  588.  
  589.     # check for title_tt
  590.     if (/$title_tt/) {
  591.       if (length ($_) == length ($lines[$i-1])) {
  592.         $SECTION++;
  593.         $issetext = 1;
  594.         $title = $lines[$i-1] unless $title ne "";
  595.         $hrefs[$y++]="<A HREF=\"\#sub${SECTION}\">$lines[$i-1]</A>";
  596.         $lines[$i-1]=~s#(.*)#  <HR>\n  <H2><A NAME=\"sub${SECTION}\">$1</A></H2>#;     
  597.         $lines[$i] = '.. ';
  598.         next;        
  599.       }
  600.     }
  601.      
  602.     # check for subhead_tt
  603.     elsif (/$subhead_tt/) {
  604.       if (length ($_) == length ($lines[$i-1])) {
  605.         $SECTION++;
  606.         $issetext = 1;
  607.         $hrefs[$y++]="<A HREF=\"\#sub${SECTION}\">$lines[$i-1]</A>";
  608.         $lines[$i-1]=~s#(.*)#  <HR>\n  <H3><A NAME=\"sub${SECTION}\">$1</A></H3>#;
  609.         $lines[$i] = '.. ';
  610.         next;
  611.       }
  612.     }
  613.   }
  614.  
  615.   # if we don't have a setext file, die!
  616.   &Fail ("not a setext file!\n") unless $issetext == 1;
  617.  
  618. }
  619.  
  620. sub MakeHeader
  621. {
  622.   print OUTFILE "<${html_head}>\n";
  623.   &PrintHtmlStyle ($html_title, $title) unless ($title eq "");
  624.   print OUTFILE "</${html_head}>\n";
  625. }
  626.  
  627. sub ParseSetext
  628. {
  629.   local ($i, $_);
  630.  
  631.   for ($i = 0; $i <= $#lines; $i++) {
  632.     $_ = $lines[$i];
  633.     
  634.     next if (/^\.\. /);
  635.  
  636.     if ($STATE == $INDENT && /^$/) {
  637.       $lines[$i] .= "\n<${html_paragraphbreak}>\n" unless $UNFOLDING++;
  638.       #print OUTFILE "<${html_paragraphbreak}>\n" unless $UNFOLDING++;
  639.       next;
  640.     }
  641.     $UNFOLDING = 0;
  642.    
  643.     # state transitions
  644.     if (/^>\s/) { &to_mono; }
  645.     elsif (/^  [^ ]/) { &to_fmt; }
  646.     else { &to_pre; }
  647.  
  648.     s/^>\s*//;                                      # fix quote-tt
  649.     s/^  ([^ ])/\1/;                                # fix indent-tt
  650.  
  651.      # quote-tt
  652.       &DoQuote();
  653.   
  654.     # urls
  655.     $DO_URL == 1 && &DoUrl();
  656.    
  657.     # mail adresses
  658.     $DO_MAIL == 1 && &DoMail();
  659.  
  660.  
  661.     
  662.     # bullet_tt
  663.       s#^\*\s+(.*)#<UL><LI>$1</UL>#o;
  664.  
  665.     # bold_tt
  666.       s#\*\*([^\*]*)\*\*#<$html_bold>$1</$html_bold>#go;
  667.  
  668.     # italic_tt
  669.       s#~([^\s]*)~#<$html_italic>$1</$html_italic>#go; 
  670.  
  671.     # underline_tt                                                
  672.       s#_([^\s]*)_#($a = $1) =~ s,_, ,g; "\<$html_uline\>$a\<\/$html_uline\>"; #ge;
  673.  
  674.     # hot_tt
  675.         s#\b([^\s]*)_\b#<$html_strongemph>$1</$html_strongemph>#go;  
  676.  
  677.     s,\0331,_,go;
  678.     s,\0332,~,go;
  679.     s,\0333,",go;
  680.     s,\0334,*,go;
  681.     $lines[$i] = join ('',$stylechange,$_);
  682.   }
  683. }
  684.  
  685. sub DoUrl 
  686. {
  687.   s#(ftp|http|wais|telnet|gopher|news)(://[\w-\+]+)(([\.~][\w-\+/\*:\?_\#]+){0,})#&SubstUrl();#ge;
  688. }
  689.  
  690. sub SubstUrl
  691. {
  692.   local ($a) = join ('',$1,$2,$3);
  693.   $a =~ s,_,\0331,go; 
  694.   $a =~ s,~,\0332,go;
  695.   return "<A HREF=\0333$a\0333>$a</A>";
  696. }
  697.  
  698. sub DoMail
  699. {
  700.   s#([\w-\+.!]+[@!][\w-\+]+)((\.[\w-\+]+){0,})#&SubstMail();#ge;
  701. }
  702.  
  703. sub SubstMail
  704. {
  705.   local ($a) = join ('',$1,$2);
  706.   $a =~ s,_,\0331,go;
  707.   $a =~ s,~,\0332,go;
  708.   return "<A HREF=\0333mailto:$a\0333>$a</A>";
  709. }
  710.  
  711.  
  712. sub DoQuote
  713. {
  714.   # quoted typotags should be passed unmodified,
  715.   # change typetags special chars to escape sequences
  716.  
  717.   s#'_(.*)!_'#&SubstQuote();#ge;
  718. }
  719.  
  720.  
  721. sub SubstQuote
  722. {
  723.   local ($a) = $1;
  724.   $a =~ s,_,\0331,go;
  725.   $a =~ s,~,\0332,go;
  726.   $a =~ s,\*,\0334,go;
  727.  
  728.   return "$a"; 
  729. }
  730.  
  731. sub PrintHtmlStyle
  732. {
  733.   local ($style, $what) = @_;
  734.   
  735.   print OUTFILE "\<$style\>$what\<\/$style\>\n";
  736. }
  737.  
  738. sub to_fmt {
  739.   $STATE == $INDENT && do {$stylechange = ""; return};
  740.   
  741.   $stylechange = "</PRE>\n" if $STATE == $PREFORMAT;
  742.   $stylechange = "</PRE></BLOCKQUOTE>\n" if $STATE == $MONO;
  743.  
  744.   $STATE = $INDENT;
  745. }
  746. sub to_pre {
  747.   $STATE == $PREFORMAT && do {$stylechange = ""; return};
  748.  
  749.   $stylechange = "<PRE>\n" if $STATE == $INDENT;
  750.   $stylechange = "</PRE></BLOCKQUOTE><PRE>\n" if $STATE == $MONO;
  751.  
  752.   $STATE = $PREFORMAT;
  753. }
  754. sub to_mono {
  755.   $STATE == $MONO && do {$stylechange = ""; return};
  756.  
  757.   $stylechange = "<BLOCKQUOTE><PRE>\n" if $STATE == $INDENT;
  758.   $stylechange = "</PRE><BLOCKQUOTE><PRE>\n" if $STATE == $PREFORMAT;
  759.  
  760.   $STATE = $MONO;
  761. }
  762.  
  763. sub bynumber {$a <=> $b}
  764.  
  765. sub Usage
  766. {
  767.   $0 = $1 if $0 =~ /([^\/]*)$/;  # basename
  768.  
  769.   print STDERR <<"EOF";
  770. $0 usage: $0 [file(s)] [-v] [-m] [-u]
  771.              [-s [-d directory -i indexprefix -p filesprefix]]
  772. EOF
  773. }
  774.