#!/bin/sh
#-*- tcl -*- \
exec tclsh "$0" "$@"
#
#------------------------------------------------------------------------
#
#	ScienceArchive TK GUI interface
#
#       Peter Kunszt, August 6, 1999
#
#       Last Mod. 25 Jun 01 DCD
#------------------------------------------------------------------------
#
# (c) Copyright The Johns Hopkins University 1999
# All Rights Reserved
#
#-------------------------------------------------------------------------
#	Generate tclIndex for sxQT source files.
#-------------------------------------------------------------------------

#if { ![info exist env(SXQT_DIR)] } {
#    if { ![info exist env(SXGUI_DIR)] } {
#        puts "Set SXQT_DIR environment variable first."
#        exit
#    } else {
#        set d $env(SXGUI_DIR)
#    }
#} else {
#    set d $env(SXQT_DIR)
#}

# Mod to update SXQT to SDSSQT DCD 25 Jun 01

if { ![info exist env(SDSSQT_DIR)] } {
   if { ![info exist env(SXQT_DIR)] } {
      if { ![info exist env(SXGUI_DIR)] } {
        puts "Set SDSSQT_DIR environment variable first."
        exit
      } else {
        set d $env(SXGUI_DIR)
      }
   } else {
     set d $env(SXQT_DIR)
   }
} else {
    set d $env(SDSSQT_DIR)
}

set verbose 0
set debug 0
set filter 0
foreach arg $argv {
    set arg [string range $arg 1 end]
    switch $arg {
	verbose {
	    set verbose 1
	}
	debug {
	    set debug 1
	}
	filter {
	    set filter 1
	}
	{} {
	}
	default {
	    puts "Usage mkWWWDoc \[-verbose | -debug | -filter\]"
	    exit
	}
    }
}

set cwd [exec pwd]


#cd $d/doc/tex

# DCD 22 Jun 01 Used join below instead of syntax above to
# avoid pratform separator incompatibility.
# ie / UNIX \ Windows & : mac

set tmp71 [file join $d doc tex]

cd $tmp71

catch {exec latex2html sxQT.tex} msg
if {$debug == 1 || $verbose == 1} {
    puts $msg
}
puts "Processing done."
set docdir $d/doc/www/sxQT
set a1 [glob -nocomplain -- "$docdir/IMG*"]
set a2 [glob -nocomplain -- "$docdir/image*"]
set a3 [glob -nocomplain -- "$docdir/*.old"]
set dd [glob -nocomplain -- "$docdir/l2h*"]

set a [concat $a1 $a2 $a3]
foreach f $a {
    file delete -force -- $f
    if {$debug == 1 || $verbose == 1} {
	puts "Delete $f"
    }
}
if {$debug == 1 || $verbose == 1} {
    puts "Delete $dd"
}
file delete -force -- $dd


if { $filter } {
set htmlfile [glob -nocomplain -- "$d/doc/www/sxQT/node*.html"]

foreach f $htmlfile {
    set in [open $f r]
    set out [open ${f}_2 w]
    set changed 0
    while { [gets $in line] >= 0 } {
	if { [string first " WIDTH=" $line] == 0} continue
	if { [string first "SRC=\"img" $line] >= 0 && [string first "gif" $line] >= 0} {

	    set i 0
	    while { [gets $in l($i)] >= 0 } {
		set j [string first ".ps" $l($i)]
		if { $j < 0 && $i < 10 } {
		    incr i
		    continue
		}
		if { $i == 10 } {
		    break
		}
		set k [string wordstart $l($i) [expr $j-1]]
		set img [string range $l($i) $k [expr $j-1]]
		break
	    }
	    if { $i == 10 } {
		puts $out $line
	    } else {
		puts $out "SRC=../../../images/$img.gif"
	    }
	    for {set j 0} {$j <= $i} {incr j} {
		puts $out $l($i)
	    }

	} else {
	    if { [string first "_button.ps" $line] >= 0 } {
		set i [expr [string first "_button.ps" $line]-1]
		set j [string wordstart $line $i]
		set img [string range $line $j $i]
		set a [string range $line 0 [expr $j - 1]]
		set b [string range $line [expr $i + 11] end]
		set line "$a<img src=../../../images/$img.gif border=1>$b"
		set changed 1
	    }
	    puts $out $line
	}
    }
    close $in
    close $out
    if {$changed} {
	file delete $f
	file rename ${f}_2 $f
    } else {
	file delete ${f}_2
    }
}

}
