#!/bin/echo Usage: source
#-----------------------------------------------------------------------------
# prompt: .prompt file to set window frame labels for C-like shells
#-----------------------------------------------------------------------------
# Copyright (C) 1992-1994,1996,1997
# Associated Universities, Inc. Washington DC, USA.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
# Correspondence concerning AIPS++ should be addressed as follows:
# Internet email: aips2-request@nrao.edu.
# Postal address: AIPS++ Project Office
# National Radio Astronomy Observatory
# Charlottesville, VA 22903-2475 USA
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
# Sends an escape sequence to identify the current working directory in the
# Recognizes 'xterm' windows, and Sun 'cmdtool' and 'shelltool' windows. For
# other windows it sets the subprocess level in the "prompt" shell variable.
# Some versions of 'csh' strip escape sequences from the prompt variable as
# the prompt is printed; Solaris 5.2 is an example. In this case, the
# "noAutoWinLabel" shell variable may be set to cause the window label to be
# updated whenever this script is invoked. This behaves correctly most of the
# time, the one exception being that the label is not updated after logging
# out of a remote session.
# Original: 1992/05/01 by Mark Calabretta, ATNF.
#=============================================================================
# Applicable only to interactive shells.
# Set the subprocess level.
if (! $?PRLVL) setenv PRLVL 0
# Encode an escape sequence in "prompt" to change the window label.
set aipspath = "$CASAPATH"