#!/usr/bin/tclsh
#------------------------------>  Tcl - script  <-----------------------------#
#- Copyright (C) 199x by International Computer Science Institute            -#
#- This file is part of the GNU Sather package. It is free software; you may -#
#- redistribute  and/or modify it under the terms of the  GNU General Public -#
#- License (GPL)  as  published  by the  Free  Software  Foundation;  either -#
#- version 2 of the license, or (at your option) any later version.          -#
#- This  program  is distributed  in the  hope that it will  be  useful, but -#
#- WITHOUT ANY WARRANTY without even the implied warranty of MERCHANTABILITY -#
#- or FITNESS FOR A PARTICULAR PURPOSE. See Doc/GPL for more details.        -#
#- The license text is also available from:  Free Software Foundation, Inc., -#
#- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA                     -#
#------------->  Please email comments to <bug-sather@gnu.org>  <-------------#

puts "Generating an index file: index.html. Point your browser to this file"
set f [open "index.html" w]
puts $f "<TITLE> Sather Class Index </TITLE>"
puts $f "<frameset cols=\"20%,*\">"
puts $f "  <frame src=\"Classes_index.html\">"
puts $f "  <frameset=\"95%,*\">"
puts $f "      <frame src=\"about.html\" name = \"source\">"
puts $f "      <frame src=\"footer.html\" scrolling = no name = \"footer\">"
puts $f "   </frameset>"
puts $f "</frameset>"
puts $f "<noframe>"
puts $f "This document uses frames."
puts $f "You will need Netscape 2.0 or later to view this document properly. "
puts $f "But you can browse the <a href=\"Classes_index.html\">class listing</a> directly anyway."
puts $f "But what do you expect? You're in the dark ages anyhow!"
puts $f "</noframe>"
close $f


set f2 [open "footer.html" w]
puts $f2 "<body bgcolor=#ffffff>
<font color=red face=\"helvetica\"><a href=\"http://www.icsi.berkeley.edu/~sather/\" target=\"_top\">Sather Home</a>|<a href=\"../../index.html\" target=\"_top\">Sather Documentation</a>|<a href=\"about.html\" target=\"source\">Browser Usage</a>"
close $f2

