############################################################################
#
#	File:     conhtml.icn
#
#	Subject:  Program to produce HTML page for Analyst contents
#
#	Author:   Ralph E. Griswold
#
#	Date:     February 20, 1999
#
############################################################################
#
#  This program reads iatoc.txt in ftp/doc in the Icon Web area and
#  creates contents.htm.
#
############################################################################

procedure main()
   local input, output, line

   input := open("/cs/www/icon/ftp/doc/iatoc.txt") |	# One hopes ...
      stop("*** cannot open iatoc.txt")

   output := open("/cs/www/icon/analyst/contents.htm", "w") |
      stop("*** cannot open contents.htm")

   write(output, "<HTML><HEAD><TITLE>Icon Analyst Contents</TITLE>")
   write(output, "<LINK REL=\"STYLESHEET\" TYPE=\"text/css\" HREF=\"../istyle.css\">")
   write(output, "</HEAD><BODY>")

   while line := read(input) do {
      line ? {
         write(output, "<H3>", ="Issue", tab(0), "</H3>") |
         write(output, tab(many('\t ')) & tab(0), "<BR>")
         }
      }

   write(output, "<P><HR><P>")
   write(output, "<A HREF=\"ia.htm\">Icon Analyst</A><P>")
   write(output, "<A HREF=\"../index.htm\">Icon home page</A>")
   write(output, "</BODY></HTML>")

end