#!/bin/tcsh -f
# NCL.CSH -- Startup the version of the CL executable compiled for the
# architecture or floating point hardware appropriate for the current
# machine.
#
# Taken loosely from ASSIST.CSH by E. Mandel, 7/92
#

# initialize SAORD variables
if ( $?SAORD_ROOT == 0 ) then
  setenv SAORD_ROOT /scisoft/saord
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`"
# end of SAORD initialization

# make sure we have the program
if ( $?CLEXE == 0 ) then
  setenv CLEXE ${SAORD_BIN}/ncl.e
else
  echo "Using alternate IRAF ncl.e program: ${CLEXE}"
endif
if (! -e $CLEXE) then
  echo " "
  echo "Warning: could not find '$CLEXE' ... "
  echo "Switching to the NOAO-supplied IRAF cl ..."
  echo " "
  exec cl
endif

# IRAF requires these to be set ...
set ERR1 = "The ncl requires the 'iraf' and 'IRAFARCH' environment variables to be set."
set ERR2 = "'iraf' points to the IRAF installation directory (e.g. /usr/iraf/)."
set ERR3 = "'IRAFARCH' is the IRAF architecture type (e.g. sparc)."
set ERR4 = "Your system manager or IRAF installer can help you determine the"
set ERR5 = "proper values for these variables. Set them in your .login file."
set ERR6 = "Please try again ..."
if ( ( $?iraf == 0  ) || ( $?IRAFARCH == 0  ) ) then
  echo ""
  echo $ERR1
  echo ""
  echo $ERR2
  echo $ERR3
  echo ""
  echo $ERR4
  echo $ERR5
  echo ""
  echo $ERR6
  echo ""
  exit(1)
else
  setenv arch .$IRAFARCH
  setenv IRAFBIN ${iraf}bin$arch/
  if ( $?host == 0  ) setenv host "${iraf}unix/"
  if ( $?hbin == 0  ) setenv hbin "${host}bin/"
  if ( $?hlib == 0  ) setenv hlib "${host}hlib/"
endif

# Make sure we can find the IRAF system ...
set ERR1 = "We could not find the IRAF system directory: $IRAFBIN."
set ERR2 = "Please check the value of the 'iraf' and 'IRAFARCH' environment"
set ERR3 = "variables (which make up this dir name) and try again."
if ( ! -d $IRAFBIN ) then
  echo ""
  echo $ERR1
  echo ""
  echo $ERR2
  echo $ERR3
  echo ""
  exit(1)
endif

# Try to get to the right place for the user ...
set ERR1 = "Please set the UPARM variable to your uparm dir or restart in your IRAF dir."
if ( "1" == "1" ) then
    if (-e login.cl) then
	if ($?UPARM == 0) then
	    if ( -d ./uparm ) then
		setenv UPARM `pwd`/uparm/
		echo "Setting UPARM environment variable to $UPARM ..."
	    else
		echo $ERR1
		exit(1)
	    endif
	endif
    else if ($?UPARM != 0) then
	if (-e $UPARM/../login.cl) then
	    cd $UPARM/..
	    echo "Changing current dir to `pwd` ..."
	else
	    echo "No login.cl was found and the UPARM variable did not point to its location."
	    echo $ERR1
	    exit(1)
	endif
    else
	echo "No login.cl was found and no UPARM variable was available to guess its location."
	echo $ERR1
	exit(1)
    endif
endif

# this version of the cl absolutely requires that the EDITOR variable is set
# might as well make it emacs
if ($?EDITOR == 0) then
    setenv EDITOR emacs
endif

# look for the CLTTYSIZE progam
if (-e ${SAORD_BIN}/ttysize) then
    setenv CLTTYSIZE ${SAORD_BIN}/ttysize
else
    setenv CLTTYSIZE NONE
endif

# This is what is was all about ...
exec $CLEXE