14887Schin######################################################################## 24887Schin# # 34887Schin# This software is part of the ast package # 4*8462SApril.Chin@Sun.COM# Copyright (c) 1982-2008 AT&T Intellectual Property # 54887Schin# and is licensed under the # 64887Schin# Common Public License, Version 1.0 # 7*8462SApril.Chin@Sun.COM# by AT&T Intellectual Property # 84887Schin# # 94887Schin# A copy of the License is available at # 104887Schin# http://www.opensource.org/licenses/cpl1.0.txt # 114887Schin# (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) # 124887Schin# # 134887Schin# Information and Software Systems Research # 144887Schin# AT&T Research # 154887Schin# Florham Park NJ # 164887Schin# # 174887Schin# David Korn <dgk@research.att.com> # 184887Schin# # 194887Schin######################################################################## 204887Schinfunction err_exit 214887Schin{ 224887Schin print -u2 -n "\t" 234887Schin print -u2 -r ${Command}[$1]: "${@:2}" 244887Schin let Errors+=1 254887Schin} 264887Schinalias err_exit='err_exit $LINENO' 274887Schin 284887Schinfunction abspath 294887Schin{ 304887Schin base=$(basename $SHELL) 314887Schin cd ${SHELL%/$base} 324887Schin newdir=$(pwd) 334887Schin cd ~- 344887Schin print $newdir/$base 354887Schin} 364887Schin#test for proper exit of shell 374887SchinCommand=${0##*/} 384887Schininteger Errors=0 394887Schinbuiltin getconf 404887SchinABSHELL=$(abspath) 414887Schinmkdir /tmp/ksh$$ || err_exit "mkdir /tmp/ksh$$ failed" 424887Schincd /tmp/ksh$$ || err_exit "cd /tmp/ksh$$ failed" 434887Schinprint exit 0 >.profile 444887Schin${ABSHELL} <<! 454887SchinHOME=$PWD \ 464887SchinPATH=$PATH \ 474887SchinSHELL=$ABSSHELL \ 484887Schin$( 494887Schin set --noglob 504887Schin ifs=$IFS 514887Schin IFS=, 524887Schin set -- $(getconf LIBPATH) 534887Schin IFS=$ifs 544887Schin for v 554887Schin do IFS=: 564887Schin set -- $v 574887Schin IFS=$ifs 584887Schin eval [[ \$$2 ]] && eval print -n \" \"\$2=\"\$$2\" 594887Schin done 604887Schin) \ 614887Schinexec -c -a -ksh ${ABSHELL} -c "exit 1" 1>/dev/null 2>&1 624887Schin! 634887Schinstatus=$(echo $?) 644887Schinif [[ -o noprivileged && $status != 0 ]] 654887Schinthen err_exit 'exit in .profile is ignored' 664887Schinelif [[ -o privileged && $status == 0 ]] 674887Schinthen err_exit 'privileged .profile not ignored' 684887Schinfi 694887Schinif [[ $(trap 'code=$?; echo $code; trap 0; exit $code' 0; exit 123) != 123 ]] 704887Schinthen err_exit 'exit not setting $?' 714887Schinfi 724887Schincat > run.sh <<- "EOF" 734887Schin trap 'code=$?; echo $code; trap 0; exit $code' 0 744887Schin ( trap 0; exit 123 ) 754887SchinEOF 764887Schinif [[ $($SHELL ./run.sh) != 123 ]] 774887Schinthen err_exit 'subshell trap on exit overwrites parent trap' 784887Schinfi 794887Schincd ~- || err_exit "cd back failed" 804887Schinrm -r /tmp/ksh$$ || err_exit "rm -r /tmp/ksh$$ failed" 81*8462SApril.Chin@Sun.COM$SHELL -c 'builtin -f cmd getconf; getconf --"?-version"; exit 0' >/dev/null 2>&1 || err_exit 'ksh plugin exit failed -- was ksh built with CCFLAGS+=$(CC.EXPORT.DYNAMIC)?' 824887Schinexit $((Errors)) 83