#!/usr/local/bin/tcsh
#################################################################
#								#
#	Copyright 2001 Sanchez Computer Associates, 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.	#
#								#
#################################################################


if( $# != 2 ) then
	echo ""
	echo "	Usage: $0 <cms-directory> <release-directory>"
	echo ""
	exit 5
endif

set cms_dir = $1
set dst_dir = $2

set dst_top_dir = $dst_dir:h
set dst_ver = $dst_dir:t
set cms_ver = $cms_dir:t

if (-x $cms_dir/sr_unix/cms_load.csh) then
	$cms_dir/sr_unix/cms_load.csh $1 $2
	exit $status
endif

set platform_name = `uname | sed 's/-/_/g' | tr '[A-Z]' '[a-z]'`

unalias cp chmod mv ls grep
alias ls 'echo "ls \!:* 2>/dev/null" | sh'	# we want to redirect only stderr to /dev/null; can't do that in tcsh.
alias cp 'cp -f \!:* >& /dev/null'		# some copies may be null copies. we dont want error messages coming out.
alias mv 'mv -f \!:* >& /dev/null'		# some moves may be null moves. we dont want error messages coming out.
alias chmod 'chmod \!:* >& /dev/null'		# some chmods may be null chmods. we dont want error messages coming out.
if ($platform_name == "sunos") then
	alias grep /usr/xpg4/bin/grep		# for -E option to work on sparky
endif

set build_types        = "pro dbg bta"
set build_dirs         = "map obj"
set dir_structure      = "inc pct src tools log $build_types"
set gtcm_dir_structure = "inc src tools log $build_types"	# exclude pct for gtcm
set s_unix_cm          = "sr_port_cm sr_unix_cm"

############# Define mapping between file-types and directory-name ##################

set gtm_src_types = "c m64 s msg"
set gtm_inc_types = "h max mac si"
set gtm_pct_types = "mpt m hlp"
set gtm_tools_types = "gtc sed awk sh csh list txt"

#####################################################################################

if !(-e $cms_dir) then
	echo "CMS dir $cms_dir doesn't exist. Exiting..."
	exit 1
endif

if !(-e $dst_top_dir) then
	echo "Destination dir $dst_top_dir doesn't exist. Exiting..."
	exit 1
endif

cd $dst_top_dir
if (-e $dst_ver) then
	# Confirm deletion of released directories
	set delete = 1
	if ($dst_ver =~ V3* || $dst_ver =~ V4*) then
		echo "Not deleting $dst_top_dir/$dst_ver. Exiting..."
		exit 1
	endif
	# Verify if anybody is using this version before deleting
	if ($platform_name == "linux") then
		set psopt = "-ef --width 300"		# to get more screen output have a 300 column screen
	else
		set psopt = "-ef"
	endif
	/bin/ps $psopt | grep "$dst_top_dir/$dst_ver" | grep -vE "grep|$0" >& /dev/null
	if ($status == 0) then
		# This check does not cover all cases of usage. There is still a window where new processes might start.
		# But, this is better than not checking at all.
		echo "Following processes are still using $dst_ver; not deleting $dst_top_dir/$dst_ver"
		/bin/ps $psopt | grep "$dst_top_dir/$dst_ver" | grep -vE "grep|$0"
		exit 1
	endif
	echo "Deleting existing $dst_dir directory structure"
	rm -rf $dst_ver
	if ($status != 0) then
		exit $status
	endif
endif

############## Create $dst_dir and subdirectories ##################

echo "Creating -------> $dst_dir Directory Structure ..."
mkdir $dst_ver
if ($status != 0) then
	exit $status
endif
cd $dst_ver
set gtm_ver = `pwd`
mkdir gtcm
if ($status != 0) then
	exit $status
endif
foreach dir (. gtcm)
	cd $dir
	if ($dir == "gtcm") then
		mkdir $gtcm_dir_structure {`echo $build_types | sed 's/ /,/g'`}/{`echo $build_dirs | sed 's/ /,/g'`}
	else
		mkdir $dir_structure {`echo $build_types | sed 's/ /,/g'`}/{`echo $build_dirs | sed 's/ /,/g'`}
	endif
	if ($status != 0) then
		exit $status
	endif
end

cd $gtm_ver
cp $cms_dir/*/gtmsrc.csh .

############### Define platform-specific libraries ##################################

set gtm_s_aix   = "sr_port sr_unix sr_rs6000 sr_aix"
set gtm_s_osf1  = "sr_port sr_unix sr_alpha sr_dux"
set gtm_s_hp_ux = "sr_port sr_unix sr_hppa sr_hpux"
set gtm_s_linux = "sr_port sr_unix sr_i386 sr_linux"
set gtm_s_sunos = "sr_port sr_unix sr_sparc sr_sun"
set gtm_s_os390 = "sr_port sr_unix sr_s390 sr_os390"

########### Copy sources from platform-specific directories into appropriate version-subdirectories ############

cd $cms_dir
set ref_libs = `set | grep "^gtm_s_${platform_name}[ 	]" | sed 's/^gtm_s_'${platform_name}'[ 	][ 	]*//g'`
set gtm_tver = $gtm_ver
foreach ref_library ( $ref_libs $s_unix_cm)
	if ($ref_library =~ *_cm) then
		set gtm_ver = $gtm_tver/gtcm
	endif
	cd $ref_library
	foreach dir (src inc pct tools)
		foreach ftype (`set | grep "^gtm_${dir}_types[ 	]" | sed 's/^gtm_'$dir'_types[ 	][ 	]*//g'`)
			set nfiles=`ls -1 *.$ftype | wc -l | sed 's/^[ ]*//g'`
			if ($nfiles != 0) then
				echo "Copying $nfiles files of type .$ftype from $ref_library to ${gtm_ver}/${dir}"
				cp *.$ftype $gtm_ver/${dir}
			endif
			set nfiles=`ls -1 *.${ftype}nix | wc -l | sed 's/^[ ]*//g'`
			if ($nfiles != 0) then
				echo "Restoring $nfiles NIXed files of type .$ftype in directory ${gtm_ver}/${dir}"
				ls -1 *.${ftype}nix | awk '{printf "cp -f %s %s/%s\n", $1, '\"${gtm_ver}/${dir}\"', $1}' | sed 's/nix$//g' | sh
			endif
		end
	end
	cd ..
end
set gtm_ver = $gtm_tver		# get gtm_ver back to proper value once gtcm copies are done #

################ Do extra population for GT.CM directories ########################

echo "Copying makefiles for GTCM"
cd $cms_dir/sr_unix_cm
set gtm_ver = $gtm_ver/gtcm
foreach dir ($build_types)
	cp makefile $gtm_ver/$dir
end
cp makefile gtcm_gcore $gtm_ver/tools
cp makefile.* $gtm_ver/tools
set gtm_ver = $gtm_ver:h

######################## Rename .mpt files to _*.m files #######################

echo "Renaming .mpt files to _*.m in $gtm_ver/pct"
cd $gtm_ver/pct
ls -1 *.mpt | awk '{printf "mv %s _%s\n", $1, $1}' | sed 's/mpt$/m/g' | sh

######################## Edit release_name.h ####################################

if ($cms_ver != $dst_ver) then
	echo "Modifying release_name.h"
	$cms_tools/edrelnam.csh $dst_ver # Do we care if this fails?
endif

############## Set appropriate permissions on the files. For comments see $gtm_tools/comlist.csh ##############

set gtm_verno = $gtm_ver:t
switch ($gtm_verno)
	case "V990":
		set chmod_protect = 1
		breaksw
	case "V9*":
		set chmod_protect = 0
		breaksw
	default:
		set chmod_protect = 1
		breaksw
endsw
if ($chmod_protect == 1) then
        set chmod_conf = 755
        set chmod_src = 444
else
        set chmod_conf = 775
        set chmod_src = 664
endif
chmod 775 $gtm_ver
cd $gtm_ver
chmod $chmod_conf bta dbg pro inc pct src tools gtmsrc.csh
chmod 775 log
cd $gtm_ver/inc
chmod $chmod_src *
cd $gtm_ver/pct
chmod $chmod_src *
cd $gtm_ver/src
/bin/ls | xargs -n25 chmod $chmod_src
cd $gtm_ver/tools
chmod $chmod_src *
if ($chmod_protect} == 1 ) then
        chmod 555 *sh
else
        chmod 775 *sh
endif
if (-d $gtm_ver/gtcm) then
        chmod $chmod_conf $gtm_ver/gtcm

        cd $gtm_ver/gtcm
        chmod $chmod_conf bta dbg pro inc src tools

        cd $gtm_ver/gtcm/inc
        chmod $chmod_src *

        cd $gtm_ver/gtcm/src
        chmod $chmod_src *

        cd $gtm_ver/gtcm/tools
        chmod $chmod_src *
endif

echo ""
echo "Done"
echo ""
exit 0