fis-gtm/sr_unix/comlist.csh

791 lines
23 KiB
Tcsh

#################################################################
# #
# Copyright 2001, 2011 Fidelity Infromation 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. #
# #
#################################################################
#
#####################################################################################
#
# comlist.csh - compile all sources, create object libraries, link executables.
# Should be kept in sync with similar code in mkutf8dir.csh
#
# arguments:
# $1 - assembler options
# $2 - C compiler options
# $3 - "gtm_bta" => build bta images ($gtm_vrt/bta)
# "gtm_dbg" => build dbg images ($gtm_vrt/dbg)
# "gtm_pro" => build pro images ($gtm_vrt/pro)
# $4 - version number (without punctuation) or code letter:
# e.g., "V123" => version "V1.2-3" or:
# "a" => current active (in current process) release
# "d" => current development release
# "p" => current production release
#
#####################################################################################
echo "Start of $0 `date`"
echo ""
echo "Built on $HOST"
echo ""
echo "arguments: '$1' '$2' '$3' '$4'"
echo ""
echo "-------------------------"
echo "locale output at start"
echo "-------------------------"
locale
echo ""
echo "Setting locale and LANG to C unconditionally"
unsetenv gtm_chset
setenv LC_ALL C
setenv LANG C
echo "-------------------------"
echo "locale output after reset"
echo "-------------------------"
locale
echo ""
echo "--------------------------------------------"
echo "Value at start : gtm_dist=$gtm_dist"
echo "Value at start : gtmroutines=""$gtmroutines"""
echo "--------------------------------------------"
echo ""
echo "Setting gtm_dist and gtmroutines to non-UTF8 unconditionally"
setenv gtm_dist $gtm_exe
setenv gtmroutines ". $gtm_exe"
echo ""
echo "--------------------------------------------"
echo "Value after reset : gtm_dist=$gtm_dist"
echo "Value after reset : gtmroutines=""$gtmroutines"""
echo "--------------------------------------------"
echo ""
set comlist_status = 0
set dollar_sign = \$
unalias ls rm
set comlist_start_directory = `pwd`
switch ( $gtm_verno )
case "V990":
# V990 is designated "most recent on the main line of descent in CMS"
# and should be protected from inadvertent change.
set comlist_chmod_protect = 1
breaksw
case "V99*":
# Other V9.9 releases are provided for the "private" use of developers to
# modify as they see fit for test purposes and should allow modification.
set comlist_chmod_protect = 0
breaksw
default:
# Anything else should be a configured release (i.e., should correspond to
# a CMS release class) and should be protected against inadvertent change.
set comlist_chmod_protect = 1
breaksw
endsw
set mach_type = `uname -m`
if ( $comlist_chmod_protect == 1 ) then
# Change the permissions on all of the source files to prevent inadvertent
# modification by developers.
set comlist_chmod_conf = 755
set comlist_chmod_src = 444
else
# Change the permissions on all of the source files to allow modification by developers.
set comlist_chmod_conf = 775
set comlist_chmod_src = 664
endif
# Change the permissions on the root directory for this version to allow
# others in this group (i.e., developers) to create new subdirectories. This
# is usually done for running tests or creating readme.txt files, although
# there may be other reasons.
chmod 775 $gtm_ver
# Change the permissions on the configured directories for this version to
# prevent inadvetent modification (creation / deletion of files) by developers
# or allow modification as appropriate.
cd $gtm_ver
chmod $comlist_chmod_conf bta dbg pro inc pct src tools gtmsrc.csh
chmod 775 log
# Change permisions on all source files to prevent inadvertent modification of
# source files corresponding to configured releases and allowing modification
# for development and test releases.
cd $gtm_inc
chmod $comlist_chmod_src *
cd $gtm_pct
chmod $comlist_chmod_src *
# In $gtm_src, use xargs because this directory has so many files that the
# command line expansion overflows the command length limits on some Unix
# implementations.
cd $gtm_src
/bin/ls | xargs -n25 chmod $comlist_chmod_src
cd $gtm_tools
chmod $comlist_chmod_src *
if ( $comlist_chmod_protect == 1 ) then
chmod 555 *sh # make the shell scripts executable, but protect against inadvertent modification
else
chmod 775 *sh # make the shell scripts exectuable and allow modification
endif
# Remove old error log.
rm $gtm_log/error.`basename $gtm_exe`.log
# Verify arguments:
set p1 = "$1"
set p2 = "$2"
setenv gt_as_options "$p1"
setenv gt_cc_options "$p2"
# Default to building the development version.
if ( $4 == "" ) then
set p4 = "d"
else
set p4 = $4
endif
# Define image type-specific information.
# Use environment variables for the assembler and C compiler because aliases aren't inherited.
set p3 = $3
switch ( $p3 )
case "gtm_bta":
setenv comlist_gt_as "`alias gt_as_bta` $p1"
setenv comlist_gt_cc "`alias gt_cc_bta` $p2"
version $p4 b
set p3 = $gtm_bta
breaksw
case "gtm_dbg":
setenv comlist_gt_as "`alias gt_as_dbg` $p1"
setenv comlist_gt_cc "`alias gt_cc_dbg` $p2"
version $p4 d
set p3 = $gtm_dbg
breaksw
case "gtm_pro":
setenv comlist_gt_as "`alias gt_as_pro` $p1"
setenv comlist_gt_cc "`alias gt_cc_pro` $p2"
version $p4 p
set p3 = $gtm_pro
breaksw
default:
echo "comlist-F-badp3, Third argument invalid, should be one of: gtm_bta, gtm_dbg, gtm_pro -- no action taken."
set comlist_status = -3
goto comlist.END
breaksw
endsw
echo ""
echo "Assembler-related aliases:"
echo ""
alias | grep gt_as | sort
echo ""
echo ""
echo "Assembler-related environment variables:"
echo ""
env | grep gt_as | sort
echo ""
echo ""
echo "C compiler-related aliases:"
echo ""
alias | grep gt_cc | sort
echo ""
echo ""
echo "C compiler-related environment variables:"
echo ""
env | grep gt_cc | sort
echo ""
echo ""
echo "Linker-related aliases:"
echo ""
alias | grep gt_ld | sort
echo ""
echo ""
echo "Linker-related environment variables:"
echo ""
env | grep gt_ld | sort
echo ""
echo ""
echo "Archiver-related aliases:"
echo ""
alias | grep gt_ar | sort
echo ""
echo ""
echo "Archiver-related environment variables:"
echo ""
env | grep gt_ar | sort
echo ""
echo ""
set p5 = $5
cd $p3
# Clean slate.
chmod +w * # this allows the rm to work without prompting for an override
rm *
cp $gtm_tools/lowerc.sh lowerc
cp $gtm_tools/lowerc_cp.sh lowerc_cp
cp $gtm_tools/upperc.sh upperc
cp $gtm_tools/upperc_cp.sh upperc_cp
if ( "$HOSTOS" == "SunOS" ) then
cp $gtm_tools/gtminstall_Solaris.sh gtminstall
else
cp $gtm_tools/gtminstall.sh gtminstall
endif
cp $gtm_tools/{lowerc,upperc}*.csh .
chmod +x {lowerc,upperc,gtminstall}*
cp $gtm_tools/*.gtc .
mv configure{.gtc,}
cp $gtm_inc/gtmxc_types.h .
cp $gtm_inc/gtm_descript.h .
cp $gtm_inc/gtm_sizeof.h .
#
# headers to support ASCII/EBCDIC independence
#
cp $gtm_inc/main_pragma.h .
cp $gtm_inc/gtm_limits.h .
cp $gtm_inc/gtm_stdio.h .
cp $gtm_inc/gtm_stdlib.h .
cp $gtm_inc/gtm_string.h .
cp $gtm_inc/gtm_strings.h .
if ( "$HOSTOS" == "OS/390disable" ) then
cp $gtm_inc/global_a.h .
cp $gtm_inc/gtm_unistd.h .
cp $gtm_inc/gtm_netdb.h .
cp $gtm_inc/gtm_stat.h .
endif
if ( "$HOSTOS" == "SunOS" ) then
# Support for RPC implementation of DAL's and ZCALL's.
# gtm_descript.h is already copied.
cp $gtm_inc/gtmidef.h .
endif
cp $gtm_pct/*.hlp .
# If this is a test version not being built in $gtm_exe
# (see value of $3), then make sure ./obj and ./map exist.
if ( ! -d ./obj ) then
mkdir ./obj
endif
if ( ! -d ./map ) then
mkdir ./map
endif
cd ./obj
# Remove anything that's not a library.
find . -type f -name '*.a' -prune -o -type f -print | sort | xargs -n25 rm
set gi = ($gtm_inc)
set gs = ($gtm_src)
# Irrespective of the gtm_chset value from the user environment, all
# M objects generated in $gtm_dist (GDE*.o, _*.o, ttt.o) must be
# compiled with gtm_chset="M".
unsetenv gtm_chset
#############################################################
#
# Generate the error message definition files and also ttt.c
#
#############################################################
if ( -x $gtm_root/$gtm_curpro/pro/mumps ) then
set comlist_ZPARSE_error_count = 0
pushd $gtm_src
# gtm_startup_chk requires gtm_dist setup
set real_gtm_dist = "$gtm_dist"
setenv gtm_dist "$gtm_root/$gtm_curpro/pro"
set old_gtmroutines = "$gtmroutines"
setenv gtmroutines "$gtm_obj($gtm_pct)"
foreach i ( *.msg )
set j = `basename $i .msg`
rm -f ${j}_ctl.c ${gtm_inc}${j}_ansi.h # in case an old version is lying around
# MSG.m converts a VMS-style error message MSG input file to a
# file with information about the messages.
# On unix, the C source file includes the message texts.
$gtm_root/$gtm_curpro/pro/mumps -run msg $i Unix
if ( ! -f ${j}_ctl.c ) then
echo "comlist-E-MSGfail, MSG.m failed to produce output file ${j}_ctl.c" \
>> $gtm_log/error.`basename $gtm_exe`.log
endif
if ( -f ${j}_ansi.h ) then
mv -f ${j}_ansi.h $gtm_inc
endif
end
# Generate ttt.c
$shell -f $gtm_tools/gen_ttt.csh
setenv gtmroutines "$old_gtmroutines"
unset old_gtmroutines
setenv gtm_dist "$real_gtm_dist"
unset real_gtm_dist
popd
else
echo "comlist-E-NoMUMPS, unable to regenerate merrors.c and ttt.c due to missing $gtm_curpro/pro/mumps" \
>> $gtm_log/error.`basename $gtm_exe`.log
endif
#############################################################
#
# Generate omi_sx_play.c from omi_srvc_xct.c
#
#############################################################
if (-e $gs[1]/omi_sx_play.c) then
chmod a+w $gs[1]/omi_sx_play.c
endif
cp $gs[1]/omi_srvc_xct.c $gs[1]/omi_sx_play.c
chmod a-w $gs[1]/omi_sx_play.c
#############################################################
#
# Copy over gtcm configuration files to the distribution directory
#
#############################################################
foreach file (gtcm_slist.gtc gtcm_run.gtc)
if ( -e $p3/$file ) then
chmod +w $p3/$file
endif
cp $gtm_tools/$file $p3
chmod a-wx $p3/$file
end
############################################## Compilations and Assemblies ###################################################
# C compilations first:
# For ia64 & x86_64, the file - xfer_desc.i - needs to be generated.
if ( "ia64" == $mach_type || "x86_64" == $mach_type ) then
pushd $gtm_src
$shell -f $gtm_tools/gen_xfer_desc.csh
popd
endif
# For all systems, the file gtm_threadgbl_deftypes.h needs to be generated (no -f as needs startup file)
$shell $gtm_tools/gen_gtm_threadgbl_deftypes.csh
if (0 != $status) then
echo "Failed to generate gtm_threadgbl_deftypes.h -- aborting build"
exit 1
endif
echo ""
echo "Start of C Compilation" # Do not change this string. $gtm_tools/buildwarn.awk relies on this to detect warnings.
echo ""
#Do not compile gtmcrypt_ref.c, maskpass.c, gtm_threadgbl_deftypes.c
#$gtm_tools/buildplugin.csh will take care of compilation and building of the reference plugin and the supporting files.
find $gs[1] \( -name 'gtmcrypt*_ref.c' -o -name 'maskpass.c' -o -name 'omi_sx_play.c' -o -name 'gtm_threadgbl_deftypes.c' \) -prune -o -name '*.c' -print | \
sort | xargs -n25 $shell $gtm_tools/gt_cc.csh
# Special compilation for omi_sx_play.c
set comlist_gt_cc_bak = "$comlist_gt_cc"
setenv comlist_gt_cc "$comlist_gt_cc -DFILE_TCP"
$shell $gtm_tools/gt_cc.csh $gtm_src/omi_sx_play.c
setenv comlist_gt_cc "$comlist_gt_cc_bak"
echo ""
echo "End of C Compilation" # Do not change this string. $gtm_tools/buildwarn.awk relies on this to detect warnings.
echo ""
if ( $?gt_xargs_insert == 0 ) setenv gt_xargs_insert "-i"
# Assembly language assemblies next so they can supersede the C sources by overwriting the object files:
echo "Start of Assembly" # Do not change this string. $gtm_tools/buildwarn.awk relies on this to detect warnings.
# AS - 2010/07/12
# No longer valid. Probably applied to sr_dux, but gt_as_inc_cvt.csh does
# not exist in the current revision or in CVS history
#if ( $gt_as_inc_convert == "true" ) then
# # Convert assembly language include files to native dialect:
# foreach cvt (${gi[1]}/*${gt_as_inc_from_suffix})
# $shell $gtm_tools/gt_as_inc_cvt.csh $cvt
# end
#endif
if ( "$HOSTOS" == "OS/390" ) then
$shell $gtm_tools/gt_os390_maclib.csh
endif
# AS - 2010/07/12 this applies to sr_dux only
if ( $gt_as_src_convert == "true" ) then
# Convert assembly language sources to native dialect in this directory:
foreach cvt (${gs[1]}/*${gt_as_src_from_suffix})
$shell $gtm_tools/gt_as_src_cvt.csh $cvt
end
endif
if ( $?gt_as_use_prebuilt == 0 ) then
# Finally assemble any sources originally in native dialect so they
# can supersede any conflicting non-native dialect sources:
foreach asm (${gs[1]}/*${gt_as_src_suffix})
$shell $gtm_tools/gt_as.csh $asm
end
else
cp -p $gtm_vrt/$gt_as_use_prebuilt/*.o .
endif
if ( $HOSTOS =~ "CYGWIN*" ) then
echo "Prefixing _ to .o in $gtm_exe to match Cygwin/Windows naming rules"
foreach x (${gs[1]}/*.s)
objcopy --prefix-symbols="_" $gtm_exe/obj/$x:r:t.o
end
endif
echo "End of Assembly" # Do not change this string. $gtm_tools/buildwarn.awk relies on this to detect warnings.
echo ""
############################################## Archiving object files ###################################################
pushd $gtm_tools >& /dev/null
set comlist_liblist = `ls *.list | sed 's/.list//' | sed 's/^lib//'`
set comlist_liblist = "$comlist_liblist mumps"
popd >& /dev/null
foreach i ( $comlist_liblist )
if ( -f lib$i.a ) then
mv lib$i.a lib$i.a.bak
endif
if ( -f ar$i.log ) then
mv ar$i.log ar$i.log.bak
endif
echo "Start of $i archive creation: `date`"
echo "archiver (ar) options: $gt_ar_option_create" > ar$i.log
echo "" >> ar$i.log
switch ( $i )
case "gtmrpc":
# Note: libgtmrpc.a must be built in $gtm_exe because it must also be shipped with the release.
gt_ar $gt_ar_option_create $gtm_exe/lib$i.a `sed -f $gtm_tools/lib_list_ar.sed $gtm_tools/lib$i.list` >>& ar$i.log
if ( 0 != $status ) then
@ comlist_status = $status
echo "comlist-E-ar${i}error, Error creating lib$i.a archive (see ${dollar_sign}gtm_obj/ar$i.log)" \
>> $gtm_log/error.`basename $gtm_exe`.log
endif
# retain_list.txt contains modules listed in *.list that also need to be
# included in libmumps.a (eg. getmaxfds, gtm_mumps_call_xdr)
rm -f `sed -f $gtm_tools/lib_list_ar.sed $gtm_tools/lib$i.list |egrep -v -f $gtm_tools/retain_list.txt`
breaksw
case "mumps":
# (Almost) everything else goes into libmumps.a, but the list is too long for a single command line so use xargs.
# This case must be executed last in the switch statement (because it picks up "everything else") and, hence,
# must appear last in the for statement.
#--------------------------------------------------------------------------------------
# While defining exclude files, please append "^" at the beginning of each file name to prevent
# other files from being excluded
#--------------------------------------------------------------------------------------
# Exclude files that define the same externals
# (e.g., "main" and the VMS CLI [command line interpreter] emulator arrays):
set exclude = "^gtm\.o|^gtm_main\.o|^gtm_svc\.o|^gtm_dal_svc\.o|^gtm_rpc_init\.o"
set exclude = "$exclude|^lke\.o|^lke_cmd\.o|^dse\.o|^dse_cmd\.o|^dbcertify\.o"
set exclude = "$exclude|^mupip\.o|^mupip_cmd\.o|^gtmsecshr\.o|^gtmsecshr_wrapper\.o|^geteuid\.o|^dtgbldir\.o"
set exclude = "$exclude|^semstat2\.o|^ftok\.o|^msg\.o|^gtcm_main\.o|^gtcm_play\.o|^gtcm_pkdisp\.o|^gtcm_shmclean\.o"
set exclude = "$exclude|^omi_srvc_xct\.o|^omi_sx_play\.o"
set exclude = "$exclude|^gtcm_gnp_server\.o|^dbcertify_cmd\.o"
set exclude = "$exclude|^dummy_gtmci\.o"
/bin/ls | egrep '\.o$' | egrep -v "$exclude" | \
xargs -n50 $shell $gtm_tools/gt_ar.csh $gt_ar_option_create lib$i.a >>& ar$i.log
if ( 0 != $status ) then
@ comlist_status = $status
echo "comlist-E-ar${i}error, Error creating lib$i.a archive (see ${dollar_sign}gtm_obj/ar$i.log)" \
>> $gtm_log/error.`basename $gtm_exe`.log
endif
breaksw
default:
gt_ar $gt_ar_option_create lib$i.a `sed -f $gtm_tools/lib_list_ar.sed $gtm_tools/lib$i.list` >>& ar$i.log
if ( 0 != $status ) then
@ comlist_status = $status
echo "comlist-E-ar${i}error, Error creating lib$i.a archive (see ${dollar_sign}gtm_obj/ar$i.log)" \
>> $gtm_log/error.`basename $gtm_exe`.log
endif
# retain_list.txt contains modules listed in *.list that also need to be
# included in libmumps.a (eg. getmaxfds, gtm_mumps_call_xdr)
rm -f `sed -f $gtm_tools/lib_list_ar.sed $gtm_tools/lib$i.list |egrep -v -f $gtm_tools/retain_list.txt`
breaksw
endsw
if ( $gt_ar_use_ranlib == "yes" ) then
ranlib lib$i.a
endif
if ( -f lib$i.a.bak ) then
rm lib$i.a.bak
endif
if ( -f ar$i.log.bak) then
rm ar$i.log.bak
endif
echo "" >> ar$i.log
echo "End of $i archive creation: `date`"
end
/bin/ls | egrep '\.o$' | egrep -v "$exclude" | xargs -n25 rm -f
switch ( $3 )
case "gtm_bta":
set bldtype = "Bta"
$shell $gtm_tools/buildbta.csh $p4
if (0 != $status) @ comlist_status = $status # done before each breaksw instead of after endsw
breaksw # as $status seems to be get reset in between
case "gtm_dbg":
set bldtype = "Dbg"
$shell $gtm_tools/builddbg.csh $p4
if (0 != $status) @ comlist_status = $status
breaksw
case "gtm_pro":
set bldtype = "Pro"
$shell $gtm_tools/buildpro.csh $p4
if (0 != $status) @ comlist_status = $status
breaksw
endsw
if ( ! -x $gtm_dist/mumps ) then
echo "comlist-E-nomumps, ${dollar_sign}gtm_dist/mumps is not executable" >> $gtm_log/error.`basename $gtm_exe`.log
echo "comlist-W-nomsgverify, unable to verify error message definition files" >> $gtm_log/error.`basename $gtm_exe`.log
echo "comlist-W-noonlinehelp, unable to generate on-line help files" >> $gtm_log/error.`basename $gtm_exe`.log
goto comlist.END
endif
set mupip_size = `ls -l $gtm_exe/mupip |awk '{print $5}'`
set gtmshr_size = `ls -l $gtm_exe/libgtmshr$gt_ld_shl_suffix |awk '{print $5}'`
if ( "$HOSTOS" != "SunOS" ) then
if ($mupip_size > $gtmshr_size) then
echo "comlist-E-mupip_size, ${dollar_sign}gtm_dist/mupip is larger than ${dollar_sign}gtm_dist/libgtmshr$gt_ld_shl_suffix" \
>> $gtm_log/error.`basename $gtm_exe`.log
endif
endif
cd $p3
# Generate Special Debug Files (z/OS specific at the moment)
if ( -e $gtm_tools/gtm_dbgld.csh ) then
$gtm_tools/gtm_dbgld.csh `echo $3 | sed 's/gtm_//'`
endif
# Build GTMDefinedTypesInit.m file but where to run the generation script from depends on whether our current working
# directory has a version of it or not.
rm -f obj/gengtmdeftypes.log* >& /dev/null
rm -f GTMDefinedTypesInit.m >& /dev/null
echo "Generating GTMDefinedTypesInit.m"
if ($?work_dir) then
if (-e $work_dir/tools/cms_tools/gengtmdeftypes.csh) then
$work_dir/tools/cms_tools/gengtmdeftypes.csh >& obj/gengtmdeftypes.log
else
$cms_tools/gengtmdeftypes.csh >& obj/gengtmdeftypes.log
endif
else
$cms_tools/gengtmdeftypes.csh >& obj/gengtmdeftypes.log
endif
if ((0 != $status) || (! -e GTMDefinedTypesInit.m)) then
@ savestatus = $status
if (`expr $gtm_verno \>= V900`) @ comlist_status = $savestatus # note no errors for development versions
echo "gengtmdeftypes.csh failed to create GTMDefinedTypesInit.m - see log in $gtm_obj/gengtmdeftypes.log" >> $gtm_log/error.`basename $gtm_exe`.log
endif
if (-e GTMDefinedTypesInit.m) then
cp -f GTMDefinedTypesInit.m $gtm_pct/GTMDefinedTypesInit${bldtype}.m # Need a different name for each build type as they can be different
./mumps GTMDefinedTypesInit.m
if (0 != $status) then
@ comlist_status = $status
echo "Failed to compile $gtm_exe/GTMDefinedTypes.m" >> $gtm_log/error.`basename $gtm_exe`.log
endif
# If we have a utf8 dir (created by buildaux.csh called from buildbdp.csh above), add a link to it for GTMDefinedTypesInit.m
if (-e $gtm_dist/utf8) then
ln -s $gtm_dist/GTMDefinedTypesInit.m $gtm_dist/utf8/GTMDefinedTypesInit.m
pushd utf8
# mumps executable not yet linked to utf8 dir so access it in parent directory
../mumps GTMDefinedTypesInit.m
if (0 != $status) then
@ comlist_status = $status
echo "Failed to compile $gtm_exe/GTMDefinedTypes.m" >> $gtm_log/error.`basename $gtm_exe`.log
endif
popd
endif
endif
# Create a default global directory.
setenv gtmgbldir ./mumps.gld
gde <<GDE_in1
exit
GDE_in1
if (0 != $status) @ comlist_status = $status
# Create the GT.M help database file.
setenv gtmgbldir $gtm_dist/gtmhelp.gld
gde <<GDE_in_gtmhelp
Change -segment DEFAULT -block=2048 -file=$gtm_dist/gtmhelp.dat
Change -region DEFAULT -record=1020 -key=255
GDE_in_gtmhelp
if (0 != $status) @ comlist_status = $status
mupip create
if (0 != $status) @ comlist_status = $status
gtm <<GTM_in_gtmhelp
Do ^GTMHLPLD
$gtm_dist/mumps.hlp
Halt
GTM_in_gtmhelp
if (0 != $status) @ comlist_status = $status
# Create the GDE help database file.
setenv gtmgbldir $gtm_dist/gdehelp.gld
gde <<GDE_in_gdehelp
Change -segment DEFAULT -block=2048 -file=$gtm_dist/gdehelp.dat
Change -region DEFAULT -record=1020 -key=255
GDE_in_gdehelp
if (0 != $status) @ comlist_status = $status
mupip create
if (0 != $status) @ comlist_status = $status
gtm <<GTM_in_gdehelp
Do ^GTMHLPLD
$gtm_dist/gde.hlp
GTM_in_gdehelp
if (0 != $status) @ comlist_status = $status
chmod 775 * # do not check $status here because we know it will be 1 since "gtmsecshr" permissions cannot be changed.
# Create the dump file for ZHELP.
touch $gtm_dist/gtmhelp.dmp
if (0 != $status) @ comlist_status = $status
chmod a+rw $gtm_dist/gtmhelp.dmp
if (0 != $status) @ comlist_status = $status
# Create a mirror image (using soft links) of $gtm_dist under $gtm_dist/utf8 if it exists.
if (-e $gtm_exe/utf8) then # would have been created by buildaux.csh while building GDE
pushd $gtm_exe
foreach file (*)
# Skip utf8 directory
if (-d $file && "utf8" == $file) then
continue
endif
# Skip soft linking .o files
set extension = $file:e
if ($extension == "o") then
continue
endif
# Soft link everything else
if (-e utf8/$file) then
rm -rf utf8/$file
if (0 != $status) @ comlist_status = $status
endif
ln -s ../$file utf8/$file
if (0 != $status) @ comlist_status = $status
end
popd
endif
comlist.END:
echo ""
echo ""
if ( -f $gtm_log/error.`basename $gtm_exe`.log ) then
echo "Error summary:"
echo ""
cat $gtm_log/error.`basename $gtm_exe`.log
else
echo "No errors were detected by comlist.csh"
endif
echo ""
# Return to starting directory:
cd $comlist_start_directory
# Clean up environment variables:
unsetenv comlist_gt_as
unsetenv comlist_gt_cc
# Clean up local shell variables:
unset comlist_chmod_conf
unset comlist_chmod_protect
unset comlist_chmod_src
unset comlist_liblist
unset comlist_start_directory
unset comlist_ZPARSE_error_count
unset p1
unset p2
unset p3
unset p4
echo ""
echo "Exit status (should be 0) is : $comlist_status"
echo ""
echo "End of $0 `date`"
exit $comlist_status