cannam@127: ## HTML output cannam@127: # Copyright (C) 1993-1995 Ian Jackson. cannam@127: cannam@127: # This file is free software; you can redistribute it and/or modify cannam@127: # it under the terms of the GNU General Public License as published by cannam@127: # the Free Software Foundation; either version 2, or (at your option) cannam@127: # any later version. cannam@127: cannam@127: # It is distributed in the hope that it will be useful, cannam@127: # but WITHOUT ANY WARRANTY; without even the implied warranty of cannam@127: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the cannam@127: # GNU General Public License for more details. cannam@127: cannam@127: # You should have received a copy of the GNU General Public License cannam@127: # along with GNU Emacs; see the file COPYING. If not, write to cannam@127: # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, cannam@127: # Boston, MA 02111-1307, USA. cannam@127: cannam@127: # (Note: I do not consider works produced using these BFNN processing cannam@127: # tools to be derivative works of the tools, so they are NOT covered cannam@127: # by the GPL. However, I would appreciate it if you credited me if cannam@127: # appropriate in any documents you format using BFNN.) cannam@127: cannam@127: %saniarray= ('<','lt', '>','gt', '&','amp', '"','quot'); cannam@127: cannam@127: sub html_init { cannam@127: $html_prefix = './'.$prefix; cannam@127: $html_prefix =~ s:^\.//:/:; cannam@127: system('rm','-r',"$html_prefix.html"); cannam@127: system('mkdir',"$html_prefix.html"); cannam@127: open(HTML,">$html_prefix.html/index.html"); cannam@127: print HTML "\n"; cannam@127: print HTML "\n"; cannam@127: $html_needpara= -1; cannam@127: $html_end=''; cannam@127: chop($html_date=`date '+%d %B %Y'`); cannam@127: chop($html_year=`date '+%Y'`); cannam@127: } cannam@127: cannam@127: sub html_startup { cannam@127: print HTML < cannam@127: $user_title cannam@127: cannam@127: cannam@127: cannam@127: cannam@127: cannam@127: cannam@127: cannam@127: cannam@127:

cannam@127: $user_title cannam@127:

cannam@127: END cannam@127: &html_readrefs($_[0]); cannam@127: if (length($user_copyrightref)) { cannam@127: local ($refn) = $qrefn{$user_copyrightref}; cannam@127: if (!length($refn)) { cannam@127: warn "unknown question (copyright) `$user_copyrightref'"; cannam@127: } cannam@127: $refn =~ m/(\d+)\.(\d+)/; cannam@127: local ($s,$n) = ($1,$2); cannam@127: $html_copyrighthref= ($s == $html_sectionn)?'':"section$s.html"; cannam@127: $html_copyrighthref.= "#$qn2ref{$s,$n}"; cannam@127: } cannam@127: } cannam@127: cannam@127: sub html_close { cannam@127: print HTML $html_end,"
\n$user_author\n"; cannam@127: print HTML "- $html_date\n

\n"; cannam@127: print HTML "Extracted from $user_title,\n"; cannam@127: print HTML "" if length($html_copyrighthref); cannam@127: print HTML "Copyright © $html_year $user_copyholder."; cannam@127: print HTML "" if length($html_copyrighthref); cannam@127: print HTML "\n\n"; cannam@127: close(HTML); cannam@127: } cannam@127: cannam@127: sub html_startmajorheading { cannam@127: local ($ref, $this,$next,$back) = @_; cannam@127: local ($nextt,$backt); cannam@127: $this =~ s/^Section /section/; $html_sectionn= $ref; cannam@127: $next =~ s/^Section /section/ && ($nextt= $sn2title{$'}); cannam@127: $back =~ s/^Section /section/ ? ($backt= $sn2title{$'}) : ($back=''); cannam@127: if ($html_sectionn) { cannam@127: &html_close; cannam@127: open(HTML,">$html_prefix.html/$this.html"); cannam@127: print HTML "\n"; cannam@127: print HTML "\n"; cannam@127: $html_end= "
\n"; cannam@127: $html_end.= "Next: $nextt.
\n" cannam@127: if $next; cannam@127: $html_end.= "Back: $backt.
\n" cannam@127: if $back; cannam@127: $html_end.= ""; cannam@127: $html_end.= "Return to contents.

\n"; cannam@127: print HTML < cannam@127: $user_brieftitle - Section $html_sectionn cannam@127: cannam@127: cannam@127: cannam@127: cannam@127: END cannam@127: print HTML "" if $next; cannam@127: print HTML "" if $back; cannam@127: print HTML < cannam@127:

cannam@127: $user_brieftitle - Section $html_sectionn
cannam@127: END cannam@127: $html_needpara= -1; cannam@127: } cannam@127: else { cannam@127: print HTML "\n

\n"; cannam@127: $html_needpara=-1; cannam@127: } cannam@127: } cannam@127: cannam@127: sub html_endmajorheading { cannam@127: print HTML "\n

\n\n"; cannam@127: $html_needpara=-1; cannam@127: } cannam@127: cannam@127: sub html_startminorheading { cannam@127: local ($ref, $this) = @_; cannam@127: $html_needpara=0; cannam@127: $this =~ m/^Question (\d+)\.(\d+)/; cannam@127: local ($s,$n) = ($1,$2); cannam@127: print HTML "\n

\n"; cannam@127: } cannam@127: cannam@127: sub html_endminorheading { cannam@127: print HTML "\n

\n\n"; cannam@127: $html_needpara=-1; cannam@127: } cannam@127: cannam@127: sub html_newsgroup { &arg('newsgroup'); } cannam@127: sub html_endnewsgroup { &endarg('newsgroup'); } cannam@127: sub html_do_newsgroup { cannam@127: print HTML "$_[0]"; cannam@127: } cannam@127: cannam@127: sub html_email { &arg('email'); } cannam@127: sub html_endemail { &endarg('email'); } cannam@127: sub html_do_email { cannam@127: print HTML "$_[0]"; cannam@127: } cannam@127: cannam@127: sub html_courier { print HTML "" ; } cannam@127: sub html_endcourier { print HTML ""; } cannam@127: sub html_italic { print HTML "" ; } cannam@127: sub html_enditalic { print HTML "" ; } cannam@127: cannam@127: sub html_docref { &arg('docref'); } cannam@127: sub html_enddocref { &endarg('docref'); } cannam@127: sub html_do_docref { cannam@127: if (!defined($html_refval{$_[0]})) { cannam@127: warn "undefined HTML reference $_[0]"; cannam@127: $html_refval{$n}='UNDEFINED'; cannam@127: } cannam@127: print HTML ""; cannam@127: &recurse($_[0]); cannam@127: print HTML ""; cannam@127: } cannam@127: cannam@127: sub html_readrefs { cannam@127: local ($p); cannam@127: open(HTMLREFS,"<$_[0]") || (warn("failed to open HTML refs $_[0]: $!"),return); cannam@127: while() { cannam@127: next if m/^\\\s/; cannam@127: s/\s*\n$//; cannam@127: if (s/^\\prefix\s*//) { cannam@127: $p= $'; next; cannam@127: } elsif (s/^\s*(\S.*\S)\s*\\\s*//) { cannam@127: $_=$1; $v=$'; cannam@127: s/\\\\/\\/g; cannam@127: $html_refval{$_}= $p.$v; cannam@127: } else { cannam@127: warn("ununderstood line in HTML refs >$_<"); cannam@127: } cannam@127: } cannam@127: close(HTMLREFS); cannam@127: } cannam@127: cannam@127: sub html_ftpsilent { &arg('ftpsilent'); } cannam@127: sub html_endftpsilent { &endarg('ftpsilent'); } cannam@127: sub html_do_ftpsilent { cannam@127: if ($_[0] =~ m/:/) { cannam@127: $html_ftpsite= $`; cannam@127: $html_ftpdir= $'.'/'; cannam@127: } else { cannam@127: $html_ftpsite= $_[0]; cannam@127: $html_ftpdir= ''; cannam@127: } cannam@127: } cannam@127: cannam@127: sub html_ftpon { &arg('ftpon'); } cannam@127: sub html_endftpon { &endarg('ftpon'); } cannam@127: sub html_do_ftpon { cannam@127: #print STDERR "ftpon($_[0])\n"; cannam@127: $html_ftpsite= $_[0]; $html_ftpdir= ''; cannam@127: print HTML ""; cannam@127: &recurse($_[0]); cannam@127: print HTML ""; cannam@127: } cannam@127: cannam@127: sub html_ftpin { &arg('ftpin'); } cannam@127: sub html_endftpin { &endarg('ftpin'); } cannam@127: sub html_do_ftpin { cannam@127: #print STDERR "ftpin($_[0])\n"; cannam@127: print HTML ""; cannam@127: &recurse($_[0]); cannam@127: print HTML ""; cannam@127: } cannam@127: cannam@127: sub html_text { cannam@127: print HTML "\n

\n" if $html_needpara > 0; cannam@127: $html_needpara=0; cannam@127: $html_stuff= &html_sanitise($_[0]); cannam@127: while ($html_stuff =~ s/^(.{40,70}) //) { cannam@127: print HTML "$1\n"; cannam@127: } cannam@127: print HTML $html_stuff; cannam@127: } cannam@127: cannam@127: sub html_tab { cannam@127: $htmltabignore++ || warn "html tab ignored"; cannam@127: } cannam@127: cannam@127: sub html_newline { print HTML "
\n" ; } cannam@127: sub html_startverbatim { print HTML "

\n"   ;                       }
cannam@127: sub html_verbatim      { print HTML &html_sanitise($_[0]),"\n";         }
cannam@127: sub html_endverbatim   { print HTML "
\n" ; $html_needpara= -1; } cannam@127: cannam@127: sub html_endpara { cannam@127: $html_needpara || $html_needpara++; cannam@127: } cannam@127: cannam@127: sub html_finish { cannam@127: &html_close; cannam@127: } cannam@127: cannam@127: sub html_startindex { cannam@127: print HTML "
\n"; cannam@127: } cannam@127: cannam@127: sub html_startindexitem { cannam@127: local ($ref,$qval) = @_; cannam@127: $qval =~ m/Q(\d+)\.(\d+)/; cannam@127: local ($s,$n) = ($1,$2); cannam@127: print HTML "
  • Q$s.$n. "; cannam@127: $html_indexunhead=''; cannam@127: } cannam@127: cannam@127: sub html_startindexmainitem { cannam@127: local ($ref,$s) = @_; cannam@127: $s =~ m/\d+/; $s= $&; cannam@127: print HTML "

    " if ($s > 1); cannam@127: print HTML "
  • Section $s. "; cannam@127: $html_indexunhead=''; cannam@127: } cannam@127: cannam@127: sub html_endindexitem { cannam@127: print HTML "$html_indexunhead\n"; cannam@127: } cannam@127: cannam@127: sub html_startlist { cannam@127: print HTML "\n"; cannam@127: $html_itemend="
      "; cannam@127: } cannam@127: cannam@127: sub html_endlist { cannam@127: print HTML "$html_itemend\n
    \n"; cannam@127: $html_needpara=-1 cannam@127: } cannam@127: cannam@127: sub html_item { cannam@127: print HTML "$html_itemend\n
  • "; cannam@127: $html_itemend=""; cannam@127: $html_needpara=-1; cannam@127: } cannam@127: cannam@127: sub html_startpackedlist { cannam@127: print HTML "\n"; cannam@127: $html_itemend=""; cannam@127: } cannam@127: cannam@127: sub html_endpackedlist { cannam@127: print HTML "$html_itemend\n\n"; cannam@127: $html_needpara=-1; cannam@127: } cannam@127: cannam@127: sub html_packeditem { cannam@127: print HTML "$html_itemend\n
  • "; cannam@127: $html_itemend=""; cannam@127: $html_needpara=-1; cannam@127: } cannam@127: cannam@127: sub html_startindent { print HTML "
    \n"; } cannam@127: sub html_endindent { print HTML "
    \n"; } cannam@127: cannam@127: sub html_pageref { cannam@127: local ($ref,$sq) = @_; cannam@127: $sq =~ m/(\d+)\.(\d+)/; cannam@127: local ($s,$n) = ($1,$2); cannam@127: print HTML "Q$sq \`"; cannam@127: } cannam@127: cannam@127: sub html_endpageref { cannam@127: print HTML "'"; cannam@127: } cannam@127: cannam@127: sub html_sanitise { cannam@127: local ($in) = @_; cannam@127: local ($out); cannam@127: while ($in =~ m/[<>&"]/) { cannam@127: $out.= $`. '&'. $saniarray{$&}. ';'; cannam@127: $in=$'; cannam@127: } cannam@127: $out.= $in; cannam@127: $out; cannam@127: } cannam@127: cannam@127: 1;