MYSHELL
XCOMM ASSIST.CSH -- start the ASSIST GUI
XCOMM Eric Mandel 9/24/92
XCOMM
set noglob

XCOMM initialize SAORD variables
if ( $?SAORD_ROOT == 0 ) then
  setenv SAORD_ROOT HERE
endif
if ( -e ${SAORD_ROOT}/xpa1 ) then
  setenv XPA_VERSION 1
else
  setenv XPA_VERSION 2
endif
if ( $?SAORD_BIN == 0 ) then
  setenv SAORD_BIN ${SAORD_ROOT}/bin.`${SAORD_ROOT}/getarch`
endif
if ( $?SAORD_TMPDIR == 0 ) then
  setenv SAORD_TMPDIR /tmp
endif
setenv SAORD_VERSION "`cat ${SAORD_ROOT}/VERSION`"
XCOMM end of SAORD initialization

XCOMM This initialization variable was used for older X programs
if ( $?SAORD_GUIFLAVOR == 0 )   setenv SAORD_GUIFLAVOR DEFAULT

XCOMM use param buttons
if ( $?SAORD_BUTTONSTYLE == 0 )	setenv SAORD_BUTTONSTYLE "Xaw"

XCOMM make sure we have a program
if ( $?ASSISTEXE == 0 ) then
  setenv ASSISTEXE ${SAORD_BIN}/ASSIST
else
  echo "Using alternate ASSIST program: ${ASSISTEXE}"
endif
if (! -e $ASSISTEXE) then
  echo "$ASSISTEXE program could not be found ... exiting ..."
  exit(1)
endif

if ( $?ASSIST == 0 )	     setenv ASSIST	   ASSIST
if ( $?ASSIST_TITLE == 0 )   setenv ASSIST_TITLE   ${ASSIST}
if ( $?ASSIST_NODES == 0 )   setenv ASSIST_NODES   ${SAORD_ROOT}/AGNodes
if ( $?ASSIST_PFILES == 0 )  setenv ASSIST_PFILES  ${SAORD_ROOT}/PFILES
if ( $?ASSIST_APPDEFS == 0 ) setenv ASSIST_APPDEFS ${SAORD_ROOT}/app-defaults
if ( $?ASSIST_HELPDIR == 0 ) setenv ASSIST_HELPDIR ${SAORD_ROOT}/ASSISTHelp/

XCOMM default welcome message
if ( $?ASSIST_WELCOME == 0 ) then
  set ASSIST_WELCOME = "Welcome to ASSIST $SAORD_VERSION"
endif
echo " "
echo "${ASSIST_WELCOME}"
echo " "

XCOMM get args from command line
set AGDIR = ""
set ROOTGRAPHER = ""
set STARTLIST = ""
set WINDOWS = ""
set XRM = ""
set FILETRIES = ""
set n = 1
set i = 1

XCOMM These should go away eventually ...
set doiraf = True
set doparamedit = True

while ("$n" <= "$#argv")
    if ( "$argv[$n]" == "-echo" ) then
	set echo
    else if ( "$argv[$n]" == "-activate" ) then
	@ n++
	set STARTLIST = "$argv[$n] ${STARTLIST}"
    else if ( "$argv[$n]" == "-display" ) then
	@ n++
	setenv DISPLAY "$argv[$n]"
    else if ( "$argv[$n]" == "-iraf" ) then
	set STARTLIST = "iraf iraftop ${STARTLIST}"
    else if ( "$argv[$n]" == "-nclxterm" ) then
	@ n++
	setenv NCLXTERM "$argv[$n]"
    else if ( "$argv[$n]" == "-nodedir" ) then
	@ n++
	setenv USER_NODES_$i "$argv[$n]"
	@ i++
    else if ( "$argv[$n]" == "-project" ) then
	@ n++
	setenv USER_NODES_$i "$argv[$n]"
	@ i++
    else if ( "$argv[$n]" == "-Project" ) then
	@ n++
	set AGDIR = "$argv[$n]"
    else if ( "$argv[$n]" == "-rootgrapher" ) then
	@ n++
	set ROOTGRAPHER = "$argv[$n]"
    else if ( "$argv[$n]" == "-sysdir" ) then
	@ n++
	set AGDIR = "$argv[$n]"
    else if ( "$argv[$n]" == "-top" ) then
	@ n++
	set ROOTGRAPHER = "$argv[$n]"
    else if ( "$argv[$n]" == "-windows" ) then
	@ n++
	set WINDOWS = "$argv[$n]"
    else if ( "$argv[$n]" == "-title" ) then
	@ n++
	setenv ASSIST "$argv[$n]"
	setenv ASSIST_TITLE "$ASSIST"
    else if ( "$argv[$n]" == "-filetries" ) then
	@ n++
	set FILETRIES = "$argv[$n]"
    else if ( "$argv[$n]" == "-xrm" ) then
	@ n++
	set XRM = "${XRM} -xrm $argv[$n]"
    endif	
    @ n++
end

XCOMM look for xpa1 name conflict
if ( "$XPA_VERSION" == "1" ) then
if ( `${SAORD_BIN}/xpaaccess ${ASSIST_TITLE}` == "yes" ) then
  echo "You can run only 1 ASSIST with the title '${ASSIST_TITLE}' on a given machine."
  echo "Please use -title to run a second ASSIST on the same machine ..."
  exit(1)
endif
endif

XCOMM set the stack depth
if ( "$WINDOWS" != "" ) then
    if ( $WINDOWS < 1 ) then
	echo "You must have at least 1 window per stack - resetting to 1 ..."
	set WINDOWS = 1
    endif
    set WINDOWS2 = $WINDOWS
    set STACK = "-xrm AGS*stack1*maxOnScreen:$WINDOWS2  -xrm AGS*stack2*maxOnScreen:$WINDOWS  -xrm AGS*stack3*maxOnScreen:$WINDOWS  -xrm AGS*stack4*maxOnScreen:$WINDOWS  -xrm AGS*stack5*maxOnScreen:$WINDOWS"
else
    set STACK = ""
endif

XCOMM make sure the UPARM environment variable is set
if ($?UPARM == 0) then
    echo "You must set the UPARM environment variable to run ASSIST."
    echo "This usually is done in your .login file."
    echo ""
    echo "IRAF users should set UPARM to point to their uparm directory."
    echo "Users of the SAO/IRAF param interface can set UPARM to a PFILES directory".
    echo "Other users should specify a directory into which param files will be written."
    echo ""
    echo "Please include a trailing slash in the directory specification."
    echo "For example: setenv UPARM /home/eric/uparm/"
    echo ""
    exit(1)
endif
XCOMM make sure we have a uparm directory, or else we get into trouble
if (! -d $UPARM ) then
    echo "The UPARM variable is set to a non-existent dir: $UPARM"
    if ( -d ./uparm ) then
	setenv UPARM `pwd`/uparm/
	echo "Resetting UPARM variable to $UPARM ..."
    else
	exit(1)
    endif
endif

XCOMM get AG directory from user, if specified
if ( "$AGDIR" == "" ) set AGDIR = $ASSIST_NODES/
if ( "$ROOTGRAPHER" == "" ) set ROOTGRAPHER = "ASSISTGrapher"

if ( $?HDB == 0 )	setenv HDB ${ASSIST_NODES}/iraf.hdb
if ( $?HDBCORR == 0 )	setenv HDBCORR ${ASSIST_NODES}/hdb.corrections
if ( $?ASSIST_EXPERTS == 0 )	setenv ASSIST_EXPERTS ${ASSIST_NODES}/experts.list
if ( $?HDBCMD == 0 ) setenv HDBCMD "${SAORD_BIN}x_hdb.e hdb helpdb=helpdb verbose=no"
if ( $?IRAF_QUICKREF == 0 ) setenv IRAF_QUICKREF ${ASSIST_NODES}/iraf.qref
if ( $?CLERRLOG == 0 )	setenv CLERRLOG ${UPARM}/agerr.log
#ifndef LinuxArchitecture
if ( $?LYNX_CFG == 0 ) then
  if ( -f ${SAORD_BIN}/lynx.cfg ) then
    setenv LYNX_CFG ${SAORD_BIN}/lynx.cfg
  endif
#endif
#ifndef LinuxArchitecture
if ( "$FILETRIES" == "" ) set FILETRIES = 5
#else
if ( "$FILETRIES" == "" ) set FILETRIES = 15
#endif

XCOMM either set PFILES, or add the ASSIST PFILES directory
if ($?PFILES == 0) then
    setenv PFILES "${UPARM};${ASSIST_PFILES}"
else
    echo $PFILES | grep -s ";" >& /dev/null
    if ( $status == 0 ) then
        setenv PFILES "${PFILES}:${ASSIST_PFILES}"
    else
        setenv PFILES "${PFILES};${ASSIST_PFILES}"
    endif
endif

XCOMM set ASSISTMANPATH to contain user's MANPATH and ASSIST man directory
XCOMM we can't simply change the MANPATH, because the target window might
XCOMM change it back
if ($?MANPATH == 0) then
    setenv ASSISTMAN "/usr/man:${SAORD_ROOT}/man"
else
    setenv ASSISTMAN "${MANPATH}:${SAORD_ROOT}/man"
endif

XCOMM set up some convenience variables to make
XCOMM command lines shorter in ASSIST
if ($?QADIR == 0) setenv QADIR	"${SAORD_ROOT}/QAREPORTS/"
if ($?QARDB == 0) setenv QARDB	"${SAORD_ROOT}/QAREPORTS/QA.rdb"
if ($?ROW == 0) setenv ROW	"${SAORD_BIN}row"
if ($?QAREP == 0) setenv QAREP	"${SAORD_BIN}reportqa -doag"
if ($?DISPQA == 0) setenv DISPQA "${SAORD_BIN}dispqa"

XCOMM make sure these saord programs are accessible for ASSIST
if ($?XPASET == 0) 	setenv XPASET	"${SAORD_BIN}/xpaset"
if ($?XPAGET == 0)	setenv XPAGET	"${SAORD_BIN}/xpaget"
if ($?PSET == 0) 	setenv PSET	"${SAORD_BIN}/pset"
if ($?PGET == 0)	setenv PGET	"${SAORD_BIN}/pget"
if ($?PLIST == 0)	setenv PLIST	"${SAORD_BIN}/plist"
if ($?PQUERY == 0)	setenv PQUERY	"${SAORD_BIN}/pquery"
if ($?PUNLEARN == 0)	setenv PUNLEARN "${SAORD_BIN}/punlearn"
if ($?XWINID == 0)	setenv XWINID 	"${SAORD_BIN}/xwinid"
if ($?KILLP == 0)	setenv KILLP 	"${SAORD_BIN}/killp"
if ($?IRAFXTERM == 0)	setenv IRAFXTERM "${SAORD_BIN}/irafxterm"

XCOMM  bring up ASSIST, pointing to version specific files
if ($?XFILESEARCHPATH == 0) then
    setenv XFILESEARCHPATH "${ASSIST_APPDEFS}/%N%S"
else
    setenv XFILESEARCHPATH "${XFILESEARCHPATH}:${ASSIST_APPDEFS}/%N%S"
endif
if ($?XAPPLRESDIR == 0) then
    setenv XAPPLRESDIR "${ASSIST_APPDEFS}"
else
  if ( ! -e ${XAPPLRESDIR}/AGS ) then
    setenv XAPPLRESDIR "${ASSIST_APPDEFS}"
  endif
endif

XCOMM get rid of temp files
rm -f ${UPARM}*Grapher ${UPARM}*Browser ${UPARM}*.hp ${UPARM}ref.ag >& /dev/null

set noglob
${ASSISTEXE} \
	-title ${ASSIST_TITLE}		\
	-xrm "AGS*Directory: ${AGDIR}" \
	-xrm "AGS*rootGrapher: ${ROOTGRAPHER}" \
	-xrm "AGS*startList: ${STARTLIST}" \
	-xrm 'AGS*qardb: ${QARDB}' \
	-xrm 'AGS*qascript: ${QAREP}' \
	-xrm 'AGS*row: ${ROW}' \
	-xrm 'AGS*pset: ${PSET}' \
	-xrm 'AGS*pget: ${PGET}' \
	-xrm 'AGS*plist: ${PLIST}' \
	-xrm 'AGS*pquery: ${PQUERY}' \
	-xrm 'AGS*punlearn: ${PUNLEARN}' \
	-xrm "AGS*helpdir: ${ASSIST_HELPDIR}" \
	-xrm "AGS*hdb: $HDB" \
	-xrm "AGS*hdbcmd: $HDBCMD" \
	-xrm "AGS*hdbcorr: $HDBCORR" \
	-xrm "AGS*expertlist: ${ASSIST}_EXPERTS" \
	-xrm "AGS*quickref: $IRAF_QUICKREF" \
	-xrm "AGS*useiraf: $doiraf" \
	-xrm "AGS*useparamedit: $doparamedit" \
	-xrm "AGS*clerrlog: $CLERRLOG" \
	-xrm "AGS*filetries: $FILETRIES" \
	$STACK $XRM
unset noglob

XCOMM clean up grapher files from this session
rm -f "${UPARM}/*Grapher" "${UPARM}/*Browser" "${UPARM}/*.hp" "${UPARM}/ref.ag" >& /dev/null

echo "All done\!"
exit(0)