1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
|
#!/usr/local/bin/tcsh
#################################################################
# #
# Copyright (c) 2001-2018 Fidelity National Information #
# Services, Inc. and/or its subsidiaries. All rights reserved. #
# #
# 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"
$btc_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
|
