#!/proj/tcl/install/5.x-sparc/bin/tclsh7.5

 if [catch {

 # man2html.tcl --

 #

 # This file contains procedures that work in conjunction with the

 # man2tcl program to generate a HTML files from Tcl manual entries.

 #

 # Copyright (c) 1996 by Sun Microsystems, Inc.

 #

 # SCCS: @(#) man2html.tcl 1.5 96/04/11 20:21:43

 #

 set homeDir /home/rjohnson/Projects/tools/generic

 # sarray -

 #

 # Save an array to a file so that it can be sourced.

 #

 # Arguments:

 # file -		Name of the output file

 # args -		Name of the arrays to save

 #

 proc sarray {file args} {

     set file [open $file w]

     foreach a $args {

 	upvar $a array

 	if ![array exists array] {

 	    puts "sarray: \"$a\" isn't an array"

 	    break

 	}	

 	foreach name [lsort [array names array]] {

 	    regsub -all " " $name "\\ " name1

 	    puts $file "set ${a}($name1) \{$array($name)\}"

 	}

     }

     close $file

 }

 # footer --

 #

 # Builds footer info for HTML pages

 #

 # Arguments:

 # None

 proc footer {packages} {

     lappend f "<HR>"

     set h {[}

     foreach package $packages {

 	lappend h "<A HREF=\"../$package/contents.html\">$package</A>"

 	lappend h "|"

     }

     lappend f [join [lreplace $h end end {]} ] " "]

     lappend f "<HR>"

     lappend f "<PRE>Copyright &#169; 1989-1994 The Regents of the University of California."

     lappend f "Copyright © 1994-1996 Sun Microsystems, Inc."

     lappend f "</PRE>"

     return [join $f "\n"]

 }

 # doDir --

 #

 # Given a directory as argument, translate all the man pages in

 # that directory.

 #

 # Arguments:

 # dir -			Name of the directory.

 proc doDir dir {

     foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {

 	do $f	;# defined in man2html1.tcl & man2html2.tcl

     }

 }

 if {$argc < 2} {

     puts stderr "usage: $argv0 html_dir tcl_dir packages..."

     puts stderr "usage: $argv0 -clean html_dir"

     exit 1

 }

 if {[lindex $argv 0] == "-clean"} {

     set html_dir [lindex $argv 1]

     puts -nonewline "recursively remove: $html_dir? "

     flush stdout

     if {[gets stdin] == "y"} {

 	puts "removing: $html_dir"

 	exec rm -r $html_dir

     }

     exit 0

 }

 set html_dir [lindex $argv 0]

 set tcl_dir  [lindex $argv 1]

 set packages [lrange $argv 2 end]

 #### need to add glob capability to packages ####

 # make sure there are doc directories for each package

 foreach i $packages {

     if ![file exists $tcl_dir/$i/doc] {

 	puts stderr "Error: doc directory for package $i is missing"

 	exit 1

     }

     if ![file isdirectory $tcl_dir/$i/doc] {

 	puts stderr "Error: $tcl_dir/$i/doc is not a directory"

 	exit 1

     }

 }

 # we want to start with a clean sheet

 if [file exists $html_dir] {

     puts stderr "Error: HTML directory already exists"

     exit 1

 } else {

     exec mkdir $html_dir

 }

 set footer [footer $packages]

 # make the hyperlink arrays and contents.html for all packages

 foreach package $packages {

     global homeDir

     exec mkdir $html_dir/$package

     # build hyperlink database arrays: NAME_file and KEY_file

     #

     puts "\nScanning man pages in $tcl_dir/$package/doc..."

     source $homeDir/man2html1.tcl

     doDir $tcl_dir/$package/doc

     # clean up the NAME_file and KEY_file database arrays

     #

     catch {unset KEY_file()}

     foreach name [lsort [array names NAME_file]] {

 	set file_name $NAME_file($name)

 	if {[llength $file_name] > 1} {

 	    set file_name [lsort $file_name]

 	    puts stdout "Warning: '$name' multiply defined in: $file_name; using last"

 	    set NAME_file($name) [lindex $file_name end]

 	}

     }

 #   sarray $html_dir/$package/xref.tcl NAME_file KEY_file

     # build the contents file from NAME_file

     #

     puts "\nGenerating contents.html for $package"

     doContents $html_dir/$package/contents.html $lib ;# defined in man2html1.tcl

     # now translate the man pages to HTML pages

     #

     source $homeDir/man2html2.tcl

     puts "\nBuilding html pages from man pages in $tcl_dir/$package/doc..."

     doDir $tcl_dir/$package/doc

     unset NAME_file

 }

 } result] {

     global errorInfo

     puts stderr $result

     puts stderr "in"

     puts stderr $errorInfo

 }