#################################################################
#								#
#	Copyright 2001, 2005 Fidelity Information Services, Inc	#
#								#
#	This source code contains the intellectual property	#
#	of its copyright holder(s), and is made available	#
#	under a license.  If you do not know the terms of	#
#	the license, please stop and do not read further.	#
#								#
#################################################################

#
###############################################################################################
#
#	setactive1.csh - auxiliary script for setactive.csh
#			 (based on the VMS script GTM$COM:SETACTIVE.COM)
#
#	Because setactive.csh must set environment variables, it cannot be run as a subproces,
#	but rather must be source'd.  Unfortunately, the logic required is too complex (due,
#	apparently to problems buffering the command input stream), so setactive.csh invokes
#	this shell script as a subprocess to deal with the logic.  In order to pass information
#	back to the parent process, setactive1.csh writes a shell script to be source'd by the
#	parent process on completion.
#
#	Arguments:
#		$1 - new version (a, d, p, or specific version number)
#		$2 - image type (b, d, or p for bta, dbg, or pro)
#		$3 - 1 => interactive invocation, prompt for input and correcctions
#		     0 => non-interactive invocation
#		$4 - name of file to which to write setenv commands
#			(probably somewhere in /tmp)
#
#	At exit:
#		$status	== 0 => success
#			!= 0 => failure
#
#		If $status == 0, then the file named in $4 contains the necessary set and
#		setenv commands to effect a change of GT.M version.  This file should be
#		source'd by setactive.csh.
#
#	N. B. Most of the labels aren't actually used; they're just for cross-reference with
#	the VMS GTM$COM:SETACTIVE.COM file.
#
###############################################################################################

# Echo is modified for R-F test: Layek - 2/16/99
# Some times GROUP may be undefined
if ($?GROUP == 0) setenv GROUP ""

set setactive_status = 1	# not found yet

if ( $?gtm_ver_noecho == 0 ) then
	echo "Versions:"
	echo " Active      " $gtm_verno
	echo " Production  " $gtm_curpro
endif


set setactive_p1 = `echo $1 | tr '[a-z]' '[A-Z]'`
set setactive_p2 = "$2"
set setactive_interact = "$3"

set setactive_gtmdev = ( $gtm_gtmdev )

set setactive_prompt_for_type = "0"

unset setactive_found_version
unset setactive_doesnt_exist

GETVER:
while ( $?setactive_found_version == "0"  &&  $?setactive_doesnt_exist == "0" )

	if ( $setactive_interact == "1"  &&  $setactive_p1 == ""  &&  $setactive_p2 == "" ) then
		echo -n "Enter A, P, D, <version number> or <CR>: "
		set setactive_p1 = $<
		set setactive_prompt_for_type = "1"	# setactive_p1 won't be null anymore, but we can test for this
	endif

	switch ($setactive_p1)
	case "":
	case "[Aa]":
		echo "Version not changed"	# no change if unspecified or
		set setactive_found_version	# specified as currently active version
		breaksw

	case "[Dd]":
	case "[Pp]":
		setenv gtm_verno $gtm_curpro	# production version
		set setactive_found_version
		breaksw

	default:
		# It's not a code letter so assume it's a version name; check for existence of directory.

		# Convert first argument to its corresponding development directory name.
		set setactive_version = "`$shell -f $gtm_tools/gtm_version_dirname.csh $setactive_p1`"

VER_LOOP:
		# Now look for a matching release directory.
		# First look through all devices on which it might reside:
		foreach setactive_device ($gtm_gtmdev)

			if ( "$setactive_device" == "NULL" ) then
				set setactive_device = "~"
			endif
			set setactive_topdir = $setactive_device/$gtm_topdir

			if ( -d $setactive_topdir/$setactive_version ) then

			    	if ( -f $setactive_topdir/$setactive_version/gtmsrc.csh ) then
					setenv gtm_verno $setactive_version	# directory name, not input argument value
					set setactive_found_version

				else
					echo "$setactive_topdir/$setactive_version exists, but there's no gtmsrc.csh"
					set setactive_doesnt_exist		# actually, just isn't set up properly

				endif

				break
			endif
		end

		if ( $?setactive_found_version == "0"  ||  $?setactive_doesnt_exist == "1" ) then

			echo "Version $setactive_p1 is not available"
			set setactive_p1 = ""

			if ( $setactive_interact == "0" ) then
				echo "No action taken"
				set setactive_doesnt_exist
				set setactive_status = 2
				goto FINI
			else
				# Interactive invocation -- prompt for corrections.

				# First, list existing versions:
				echo ""
				echo "Available versions are:"
				echo ""

INDEX_LOOP:
				foreach setactive_device ($gtm_gtmdev)

DIR_LOOP:
					foreach setactive_verdir ($setactive_device/$gtm_topdir/V[0-9][0-9]*)

						if ( -d $setactive_verdir ) then
							set setactive_version = `basename $setactive_verdir`
							echo $setactive_version
						endif
					end
				end
			endif
		endif

		breaksw
	endsw
end

if ( $?setactive_found_version == "1" ) then
	set setactive_status = 0	# success

	if ( $?setactive_device == "0" ) then
LOOP_INDEX:
		# Since setactive_device is unset, we have not located the root directory for the release
		# named in gtm_verno (the version was probably specified by a code letter); look for it now.
		foreach setactive_device ($gtm_gtmdev)
			if ( "$setactive_device" == "NULL" ) then
				set setactive_device = "$gtm_gtmdev/"
			endif

			if ( -d $setactive_device/$gtm_topdir/$gtm_verno ) then
				break
			endif

		end
	endif

	# Note we set gtm_ver and gtm_vrt to the same value on Unix.  On VMS, these must be
	# separate logicals, one more-or-less normal and the other concealed.  For compatibility,
	# we should keep both environment variables distinct on Unix even though they have the
	# same value.
	setenv	gtm_ver	$setactive_device/$gtm_topdir/$gtm_verno
	setenv	gtm_vrt	$gtm_ver

	if ( -d $gtm_ver ) then
		if ( -f $gtm_ver/gtmsrc.csh ) then
			source $gtm_ver/gtmsrc.csh
			if ( $?gtm_ver_noecho == 0 ) echo "Version is now $gtm_verno"
		else
			echo "$gtm_ver exists, but $gtm_ver/gtmsrc.csh does not exist"
			set setactive_status = 3
		endif
	else
		echo "$gtm_ver does not exist"
		set setactive_status = 4
	endif
endif


set setactive_old_gtm_exe = `basename $gtm_exe`
switch ($setactive_old_gtm_exe)
case "[Bb][Tt][Aa]":
	set setactive_binary_desc = "optimized, with asserts, and without debugger information"
	breaksw

case "[Dd][Bb][Gg]":
	set setactive_binary_desc = "unoptimized, with asserts, and with debugger information"
	breaksw

case "[Pp][Rr][Oo]":
	set setactive_binary_desc = "optimized, without asserts, and without debugger information"
	breaksw

default:
	set setactive_binary_desc = "with unknown options"
	breaksw
endsw
if ( $?gtm_ver_noecho == 0 ) then
	echo ""
	echo "The previous binaries in use were from $gtm_exe"
	echo "which were compiled, assembled, and linked $setactive_binary_desc."
endif


unset setactive_found_type_code

# GETTYPE:
while ( $?setactive_found_type_code == "0" )

	if ( $setactive_prompt_for_type == "1" ) then
		echo -n "Enter b for beta (bta), d for debug (dbg), p production (pro), or <CR> for no change: "
		set setactive_p2 = $<
	endif

	if ( "$setactive_p2" == "" ) then
		setenv gtm_exe $gtm_vrt/$setactive_old_gtm_exe	# whatever it used to be
		set setactive_found_type_code		# a null at this point is intentional and means no change of binary type

	else
		switch ($setactive_p2)
		case "[Bb]*":
			setenv gtm_exe $gtm_ver/bta		# BTA
			set setactive_found_type_code
			breaksw

		case "[Dd]*":
			setenv gtm_exe $gtm_ver/dbg		# DBG
			set setactive_found_type_code
			breaksw

		case "[Pp]*":
			setenv gtm_exe $gtm_ver/pro		# PRO
			set setactive_found_type_code
			breaksw

		default:
			echo "Image type code $setactive_p2 is not known."
			if ( $setactive_interact == "1" ) then
				set setactive_p2 = ""		# throw away invalid value
			else
				setenv gtm_exe $gtm_vrt/$setactive_old_gtm_exe	# whatever it used to be
				set setactive_found_type_code	# can't correct it, just give up and take leave as is
				echo "Image types in use have not been changed."
			endif
			breaksw

		endsw
	endif
end

switch (`basename $gtm_exe`)
case "[Bb][Tt][Aa]":
	set setactive_binary_desc = "optimized, with asserts, and without debugger information"
	breaksw

case "[Dd][Bb][Gg]":
	set setactive_binary_desc = "unoptimized, with asserts, and with debugger information"
	breaksw

case "[Pp][Rr][Oo]":
	set setactive_binary_desc = "optimized, without asserts, and without debugger information"
	breaksw

default:
	set setactive_binary_desc = "with unknown options"
	breaksw
endsw
if ( $?gtm_ver_noecho == 0 ) then
	echo ""
	echo "The binaries in use are now from $gtm_exe"
	echo "which were compiled, assembled, and linked $setactive_binary_desc."
endif

echo "setenv gtm_verno	$gtm_verno"	>> $4
echo "setenv gtm_ver	$gtm_ver"	>> $4
echo "setenv gtm_vrt	$gtm_vrt"	>> $4
echo "setenv gtm_bta	$gtm_vrt/bta"	>> $4
echo "setenv gtm_dbg	$gtm_vrt/dbg"	>> $4
echo "setenv gtm_pro	$gtm_vrt/pro"	>> $4
if (-w $gtm_vrt/log ) then
	echo "setenv gtm_log    $gtm_vrt/log"   >> $4
else
	echo "SETACTIVE1-E-LOGPERM : $gtm_vrt/log does not have group write permissions. Please fix that."
        echo "setenv gtm_log    $gtm_log_path/$gtm_verno"   >> $4
endif
echo "setenv gtm_misc	$gtm_vrt/misc"	>> $4
echo "setenv gtm_tags	$gtm_vrt/misc/tags"	>> $4
echo "setenv gtm_exe	$gtm_exe"	>> $4
echo "setenv gtm_dist	$gtm_exe"	>> $4
echo "setenv gtm_lint	$gtm_exe/lint"	>> $4
echo "setenv gtm_map	$gtm_exe/map"	>> $4
echo "setenv gtm_obj	$gtm_exe/obj"	>> $4

FINI:

exit $setactive_status