#!/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 cwd [exec pwd]
cd $d
auto_mkindex tcl
cd $cwd
