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