Merge commit '97ef0077f06cef6f6bb93b0dae22441078647486' as 'cde/programs/dtksh/ksh93'
This commit is contained in:
Jon Trulson
15
cde/programs/dtksh/ksh93/src/Mamfile
Normal file
15
cde/programs/dtksh/ksh93/src/Mamfile
Normal file
@@ -0,0 +1,15 @@
|
||||
note *
|
||||
note * This build file is in the Make Abstract Machine (MAM) language. It was
|
||||
note * first generated by nmake, but in the ksh 93u+m distribution we maintain
|
||||
note * it manually because nmake had too many problems to keep using. The
|
||||
note * Mamfiles are processed by mamake (src/cmd/INIT/mamake.c); we added
|
||||
note * indentation to improve readability. The language is documented in
|
||||
note * src/cmd/INIT/README-mamake.md.
|
||||
note *
|
||||
make test
|
||||
make install
|
||||
make all
|
||||
exec - ${MAMAKE} -r '*/*' ${MAMAKEARGS}
|
||||
done all virtual
|
||||
done install virtual
|
||||
done test virtual
|
||||
870
cde/programs/dtksh/ksh93/src/cmd/INIT/C+probe
Normal file
870
cde/programs/dtksh/ksh93/src/cmd/INIT/C+probe
Normal file
@@ -0,0 +1,870 @@
|
||||
:
|
||||
### this script contains archaic constructs that work with all sh variants ###
|
||||
# Glenn Fowler
|
||||
# AT&T Research
|
||||
#
|
||||
# @(#)C probe (AT&T Research) 2012-02-29
|
||||
#
|
||||
# probe [ -d ] c-compiler-path [ attributes ]
|
||||
#
|
||||
# common C probe preamble for the tool specific probes
|
||||
#
|
||||
# NOTE: some cc -E's do syntax analysis!
|
||||
|
||||
#
|
||||
# probe_* are first eval'd and then attempted from left to right
|
||||
#
|
||||
|
||||
probe_binding="-dy -dn -Bdynamic -Bstatic '-Wl,-ashared -Wl,+s' -Wl,-aarchive -call_shared -non_shared -dynamic -static -bshared -bstatic '' -static"
|
||||
probe_env="CC_OPTIONS CCOPTS LD_OPTIONS LDOPTS LIBPATH LPATH"
|
||||
probe_include="stdio.h iostream.h complex.h ctype.h plot.h stdarg.h varargs.h ranlib.h hash.h sys/types.h stab.h cmath cstdio iostream string"
|
||||
probe_longlong="long 'long long'"
|
||||
probe_longlong_t="__int64_t _int64_t __int64 _int64 int64"
|
||||
probe_l="l yyreject m sin mopt sin"
|
||||
probe_lxx="C exit ++ exit g++ exit"
|
||||
probe_ppprefix="a n"
|
||||
probe_size="size"
|
||||
probe_src="cxx C cc c"
|
||||
probe_sa=".sa"
|
||||
probe_sd=".dll .lib .dll .x"
|
||||
probe_sdb=".pdb"
|
||||
probe_so=".dylib .so .sl"
|
||||
probe_symprefix="_"
|
||||
probe_verbose="'-v -v' '-# -#' '-d -d' -dryrun '-V -V'"
|
||||
probe_version="--version -V -version -v"
|
||||
|
||||
#
|
||||
# the following are set by the preamble for the tool specific probe
|
||||
#
|
||||
|
||||
cc=cc
|
||||
debug=
|
||||
dir=.
|
||||
dll=.dll
|
||||
dynamic=
|
||||
exe=exe
|
||||
executable="test -x"
|
||||
hosted=
|
||||
ifs=${IFS-'
|
||||
'}
|
||||
obj=o
|
||||
ppenv=
|
||||
ppopt=
|
||||
predef=
|
||||
prepred=
|
||||
sa=
|
||||
sd=
|
||||
sdb=
|
||||
so=
|
||||
sov=
|
||||
static=
|
||||
stdlib=
|
||||
stdpp=
|
||||
suffix_command=
|
||||
if test "" != "$TMPDIR" -a -d "$TMPDIR"
|
||||
then tmpdir=$TMPDIR
|
||||
else tmpdir=/tmp
|
||||
fi
|
||||
tmpdir=$tmpdir/probe$$
|
||||
undef="define defined elif else endif error if ifdef ifndef include line pragma undef __STDC__ __ARGC__ __BASE__ __BASE_FILE__ __DATE__ __FILE__ __FUNCTION__ __INCLUDE_LEVEL__ __LINE__ __PATH__ __TIME__ __TIMESTAMP__ __VERSION__"
|
||||
version_flags=
|
||||
version_stamp=
|
||||
version_string=
|
||||
|
||||
#
|
||||
# constrain the environment
|
||||
#
|
||||
|
||||
DISPLAY=
|
||||
LC_ALL=C
|
||||
export DISPLAY LC_ALL
|
||||
|
||||
#
|
||||
# now the common probes
|
||||
#
|
||||
|
||||
while :
|
||||
do case $1 in
|
||||
-d) debug=1 ;;
|
||||
-*) set ''; break ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
|
||||
cc=$1
|
||||
case $cc in
|
||||
[\\/]*|[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:\\*)
|
||||
;;
|
||||
*) echo "Usage: $0 [ -d ] c-compiler-path [ attributes ]" >&2
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
ATTRIBUTES=
|
||||
eval $2
|
||||
_probe_PATH=$PATH
|
||||
PATH=/usr/bin:/bin:$PATH
|
||||
|
||||
case $0 in
|
||||
*[\\/]*) dir=`echo $0 | sed -e 's,[\\/][\\/]*[^\\/]*\$,,'` ;;
|
||||
esac
|
||||
|
||||
$executable . 2>/dev/null || executable='test -r'
|
||||
|
||||
case $SHELL in
|
||||
[\\/]*|[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:\\*)
|
||||
sh=$SHELL
|
||||
;;
|
||||
*) sh=/bin/sh
|
||||
;;
|
||||
esac
|
||||
|
||||
trap 'code=$?; cd ..; rm -rf $tmpdir; exit $code' 0 1 2 3
|
||||
mkdir $tmpdir
|
||||
cd $tmpdir
|
||||
|
||||
exec 3>&1 4>&2 </dev/null
|
||||
case $debug in
|
||||
"") exec >/dev/null 2>&1
|
||||
(ulimit -c 0) >/dev/null 2>&1 && ulimit -c 0
|
||||
;;
|
||||
*) PS4='+$LINENO+ '
|
||||
set -x
|
||||
;;
|
||||
esac
|
||||
|
||||
if (xxx=xxx; unset xxx)
|
||||
then UNSET=1
|
||||
else UNSET=
|
||||
fi
|
||||
eval set x $probe_env
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
eval x='$'$1
|
||||
case $x in
|
||||
'') continue ;;
|
||||
esac
|
||||
case $1 in
|
||||
*PATH) _probe_export="$_probe_export $1='$x'" ;;
|
||||
esac
|
||||
case $UNSET in
|
||||
'') eval $1=
|
||||
export $1
|
||||
;;
|
||||
*) unset $1
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
if test -f "$dir/probe.ini"
|
||||
then . "$dir/probe.ini"
|
||||
IFS=$ifs
|
||||
fi
|
||||
|
||||
mkdir suffix
|
||||
cd suffix
|
||||
for src in $probe_src
|
||||
do echo "int main(){return 0;}" > ../test.$src
|
||||
rm -f test*
|
||||
if $cc -c ../test.$src
|
||||
then set test.*
|
||||
if test -f "$1"
|
||||
then o="$*"
|
||||
mv $* ..
|
||||
for i in $o
|
||||
do if $cc -o test.exe ../$i
|
||||
then obj=`echo "$i" | sed -e 's,test.,,'`
|
||||
$executable test.exe || executable="test -r"
|
||||
set test*
|
||||
rm *
|
||||
if $cc -o test ../$i
|
||||
then rm $*
|
||||
set test.*
|
||||
if $executable "$1"
|
||||
then exe=`echo "$1" | sed -e 's,test.,,'`
|
||||
suffix_command=.$exe
|
||||
fi
|
||||
fi
|
||||
break 2
|
||||
fi
|
||||
done
|
||||
fi
|
||||
fi
|
||||
done
|
||||
cd ..
|
||||
|
||||
case $src in
|
||||
c) ;;
|
||||
*) echo '// (
|
||||
int
|
||||
main()
|
||||
{
|
||||
class { public: int i; } j;
|
||||
j.i = 0;
|
||||
int k = j.i + 1;
|
||||
return k;
|
||||
}' > dialect.$src
|
||||
if $cc -c dialect.$src && $cc -o dialect.$exe dialect.$obj && $executable dialect.$exe
|
||||
then mv dialect.$src dialect.c
|
||||
rm -f dialect.$obj dialect.$exe
|
||||
if $cc -c dialect.c && $cc -o dialect.$exe dialect.$obj && $executable dialect.$exe
|
||||
then src=c
|
||||
else set x $cc
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
*=*) continue ;;
|
||||
esac
|
||||
case `echo $1 | sed -e 's,.*/,,'` in
|
||||
*CC*|*++*|*[xX][xX]*|*[pP][lL][uU][sS]*) ;;
|
||||
*) src=c ;;
|
||||
esac
|
||||
break
|
||||
done
|
||||
fi
|
||||
else src=c
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
|
||||
set x x '(' 1 'int x;' 0
|
||||
while :
|
||||
do shift
|
||||
shift
|
||||
case $# in
|
||||
[01]) break ;;
|
||||
esac
|
||||
rm -f test.$obj
|
||||
echo "$1" > test.$src
|
||||
$cc -c test.$src
|
||||
r=$?
|
||||
case $r in
|
||||
0) test -f test.$obj || r=1 ;;
|
||||
*) r=1 ;;
|
||||
esac
|
||||
case $2:$r in
|
||||
0:0) ;;
|
||||
0:1) echo "$cc: not a C compiler: failed to compile \`\`$1''" >&4
|
||||
exit 1
|
||||
;;
|
||||
1:0) echo "$cc: not a C compiler: successfully compiled \`\`$1''" >&4
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
hosttype=`package CC="$cc" || $SHELL -c "package CC='$cc'"`
|
||||
case $hosttype in
|
||||
*[Uu][Ss][Aa][Gg][Ee]:*)
|
||||
hosttype=`PATH=$_probe_PATH; export PATH; package CC="$cc" || $SHELL -c "package CC='$cc'"`
|
||||
;;
|
||||
esac
|
||||
|
||||
echo '#include <stdio.h>
|
||||
int main(){printf("hello");return 0;}' > dynamic.$src
|
||||
echo 'extern int sfclose() { return 0; }' > fun.$src
|
||||
if $cc -c dynamic.$src && $cc -c fun.$src
|
||||
then eval set x $probe_so
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
for i in foo junk
|
||||
do rm -f dynamic.$exe
|
||||
if $cc -L. -o dynamic.$exe dynamic.$obj -l$i
|
||||
then : "there's really a -l$i"?
|
||||
else rm -f dynamic.$exe
|
||||
cat fun.$obj > lib$i$1
|
||||
$cc -L. -o dynamic.$exe dynamic.$obj -l$i && $executable dynamic.$exe
|
||||
x=$?
|
||||
rm lib$i$1
|
||||
case $x in
|
||||
0) so=$1
|
||||
rm -f dynamic.$exe > lib$i$1.1
|
||||
$cc -L. -o dynamic.$exe dynamic.$obj -l$i && $executable dynamic.$exe
|
||||
x=$?
|
||||
rm lib$i$1.1
|
||||
case $x in
|
||||
0) sov=1 ;;
|
||||
esac
|
||||
break 2
|
||||
;;
|
||||
*) break
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
done
|
||||
k=
|
||||
for i in "" .1 .2 .3 .4 .5 .6 .7 .8 .9
|
||||
do rm -f dynamic.$exe > libc$1$i
|
||||
$cc -L. -o dynamic.$exe dynamic.$obj && $executable dynamic.$exe
|
||||
x=$?
|
||||
(cd ..; rm $tmpdir/libc$1$i)
|
||||
case $x in
|
||||
0) ;;
|
||||
*) k=X$k
|
||||
case $k in
|
||||
XXX) break ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
done
|
||||
case $k in
|
||||
XXX) so=$1
|
||||
sov=1
|
||||
break
|
||||
;;
|
||||
?*) so=$1
|
||||
break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
rm -f dynamic.$exe
|
||||
if $cc -o dynamic.$exe dynamic.$obj 2>e && $executable dynamic.$exe
|
||||
then e=`wc -l e`
|
||||
maybe=
|
||||
eval set x x $probe_binding
|
||||
while :
|
||||
do shift
|
||||
shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
rm -f dynamic.$exe
|
||||
$cc -o dynamic.$exe $1 dynamic.$obj 2>e && $executable dynamic.$exe || continue
|
||||
case $1 in
|
||||
?*) case $maybe in
|
||||
"") maybe=$1 ;;
|
||||
*) maybe=-- ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
case `wc -l e` in
|
||||
$e) ;;
|
||||
*) continue ;;
|
||||
esac
|
||||
d=`ls -s dynamic.$exe`
|
||||
rm -f dynamic.$exe
|
||||
$cc -o dynamic.$exe $2 dynamic.$obj 2>e && $executable dynamic.$exe || continue
|
||||
case `wc -l e` in
|
||||
$e) ;;
|
||||
*) continue ;;
|
||||
esac
|
||||
case `ls -s dynamic.$exe` in
|
||||
$d) ;;
|
||||
*) dynamic=$1
|
||||
static=$2
|
||||
maybe=
|
||||
break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
case $maybe in
|
||||
""|--) ;;
|
||||
*) rm -f dynamic.$exe
|
||||
if $cc -o dynamic.$exe $maybe dynamic.$obj 2>e && $executable dynamic.$exe
|
||||
then e=`wc -l e`
|
||||
if $cc -o dynamic.$exe $maybe-bogus-bogus-bogus dynamic.$obj 2>e && $executable dynamic.$exe
|
||||
then case `wc -l e` in
|
||||
$e) ;;
|
||||
*) dynamic=$maybe ;;
|
||||
esac
|
||||
else dynamic=$maybe
|
||||
fi
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
fi
|
||||
|
||||
eval set x $probe_version
|
||||
shift
|
||||
for o in "$@"
|
||||
do if $cc $o > version.out 2>&1
|
||||
then version_string=`sed -e '/ is /d' -e 's/;/ /g' version.out | sed -e 1q`
|
||||
case $version_string in
|
||||
''|*[Ee][Rr][Rr][Oo][Rr]*|*[Ff][Aa][Tt][Aa][Ll]*|*[Ww][Aa][Rr][Nn][Ii][Nn][Gg]*|*[Oo][Pp][Tt][Ii][Oo][Nn]*)
|
||||
;;
|
||||
*) version_flags=$o
|
||||
version_stamp=";VERSION;$o;$version_string;PATH;$cc"
|
||||
break
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
done
|
||||
case $version_stamp in
|
||||
'') eval set x $probe_version
|
||||
shift
|
||||
echo 'int main() { return 0; }' > version.i
|
||||
for o in "$@"
|
||||
do if $cc -c $o version.i > version.out 2>&1
|
||||
then version_string=`sed -e '/ is /d' -e 's/;/ /g' version.out | sed -e 1q`
|
||||
case $version_string in
|
||||
''|*[Ee][Rr][Rr][Oo][Rr]*|*[Ff][Aa][Tt][Aa][Ll]*|*[Ww][Aa][Rr][Nn][Ii][Nn][Gg]*|*[Oo][Pp][Tt][Ii][Oo][Nn]*)
|
||||
;;
|
||||
*) version_flags=$o
|
||||
break
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
echo 'int main(){return 0;}' > hosted.$src
|
||||
$cc -o hosted.$exe hosted.$src && ./hosted.$exe && hosted=1
|
||||
|
||||
echo '#!'$sh'
|
||||
echo "" $@' > cpp
|
||||
chmod +x cpp
|
||||
case `./cpp -Dprobe` in
|
||||
*-Dprobe*)
|
||||
;;
|
||||
*) cp /bin/echo cpp
|
||||
chmod u+w cpp
|
||||
;;
|
||||
esac
|
||||
for prefix in $probe_ppprefix `echo $cc | sed -e '/cc\$/!d' -e 's,cc\$,,' -e 's,.*/,,'`
|
||||
do cp cpp ${prefix}cpp
|
||||
done
|
||||
|
||||
echo "" > flags.$src
|
||||
echo '#pragma pp:version' > libpp.$src
|
||||
|
||||
if test `realcppC=./cpp $cc -Dprobe -E flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppenv='realcppC=${ppcmd}'
|
||||
elif test `cppC=./cpp $cc -Dprobe -E flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppenv='cppC=${ppcmd}'
|
||||
elif test `_CPPNAME=./cpp $cc -Dprobe -E flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppenv='_CPPNAME=${ppcmd}'
|
||||
elif test `_CPP=./cpp $cc -Dprobe -E flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppenv='_CPP=${ppcmd}'
|
||||
elif test `$cc -Dprobe -E -%p+. flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1 && test `$cc -Dprobe -E -%p+. flags.$src | wc -l` -eq 1
|
||||
then ppopt='-%p+${ppdir}'
|
||||
elif test `$cc -Dprobe -E -Yp,. flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppopt='-Yp,${ppdir}'
|
||||
elif test `$cc -Dprobe -E -Qpath $tmpdir flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppopt='-Qpath ${ppdir}'
|
||||
elif test `$cc -Dprobe -E -tp -B./ flags.$src 2>err.out | tee cpp.out | grep -c '[-]Dprobe'` -eq 1 -a ! -s err.out
|
||||
then ppopt='-tp -B${ppdir}/'
|
||||
elif test `$cc -Dprobe -E -B./ flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppopt='-B${ppdir}/'
|
||||
elif test `$cc -Dprobe -E -tp -h./ -B flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppopt='-tp -h${ppdir}/ -B'
|
||||
elif test `$cc -Dprobe -E -t p,./cpp flags.$src | tee cpp.out | grep -c '[-]Dprobe'` -eq 1
|
||||
then ppopt='-t p,${ppcmd}'
|
||||
else {
|
||||
eval set x $probe_verbose
|
||||
shift
|
||||
for o in "$@"
|
||||
do $cc -E $o flags.$src
|
||||
done
|
||||
} 2>&1 | sed -e "s/['\"]//g" > cpp.out
|
||||
fi
|
||||
|
||||
set x `sed -e 's,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:\\\\,/,g' -e 's,\\\\,/,g' cpp.out`
|
||||
def=
|
||||
definclude="-I+C -I-H"
|
||||
stdinclude=$definclude
|
||||
case $hosted in
|
||||
"") usrinclude= ;;
|
||||
esac
|
||||
cmdinclude=
|
||||
while :
|
||||
do case $# in
|
||||
0|1) break ;;
|
||||
esac
|
||||
shift
|
||||
case $1 in
|
||||
-A) case $2 in
|
||||
*\(*\)) shift
|
||||
prepred="$prepred `echo $1 | sed 's/\(.*\)(\(.*\))/\1 \2/'`"
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-A\(*\))
|
||||
prepred="$prepred `echo $1 | sed 's/-A\(.*\)(\(.*\))/\1 \2/'`"
|
||||
;;
|
||||
-[DI][-+][ABCDEFGHIJKLMNOPQRSTUVWXYZ]*)
|
||||
stdpp=1
|
||||
case $1 in
|
||||
-I?[CH]) case $def in
|
||||
?*) definclude="$definclude $1" ;;
|
||||
*) stdinclude="$stdinclude $1" ;;
|
||||
esac
|
||||
;;
|
||||
-I-S*|-YI,*) usrinclude="`echo $1 | sed 's/....//'`" ;;
|
||||
-Y?,*) ;;
|
||||
-Y*) usrinclude="`echo $1 | sed 's/..//'`" ;;
|
||||
esac
|
||||
;;
|
||||
-D) shift
|
||||
case $1 in
|
||||
[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]*=*)
|
||||
predef="$predef
|
||||
`echo $1 | sed -e 's/=.*//'`"
|
||||
;;
|
||||
[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]*)
|
||||
predef="$predef
|
||||
$1"
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-Dprobe);;
|
||||
-D*) case $1 in
|
||||
-D[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]*=*)
|
||||
predef="$predef
|
||||
`echo $1 | sed -e 's/^-D//' -e 's/=.*//'`"
|
||||
;;
|
||||
-D[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]*)
|
||||
predef="$predef
|
||||
`echo $1 | sed -e 's/^-D//'`"
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-I) shift
|
||||
case $1 in
|
||||
/*) case $def in
|
||||
?*) definclude="$definclude $1" ;;
|
||||
*) stdinclude="$stdinclude $1" ;;
|
||||
esac
|
||||
cmdinclude="$cmdinclude $1"
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-I/*) f=`echo X$1 | sed 's/X-I//'`
|
||||
case $def in
|
||||
?*) definclude="$definclude $f" ;;
|
||||
*) stdinclude="$stdinclude $f" ;;
|
||||
esac
|
||||
cmdinclude="$cmdinclude $f"
|
||||
;;
|
||||
-U) shift
|
||||
undef="$undef $1"
|
||||
;;
|
||||
-U*) undef="$undef `echo $1 | sed 's/^-U//'`"
|
||||
;;
|
||||
flags.$src)def=
|
||||
;;
|
||||
esac
|
||||
done
|
||||
stdinclude="$stdinclude $definclude"
|
||||
case " $stdinclude " in
|
||||
*\ $usrinclude\ *)
|
||||
case $usrinclude in
|
||||
/usr/include)
|
||||
usrinclude=
|
||||
;;
|
||||
*) case " $stdinclude " in
|
||||
*\ /usr/include\ *)
|
||||
usrinclude=
|
||||
;;
|
||||
*) usrinclude=/usr/include
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
tstinclude=`$cc -v -E flags.$src 2>&1 | sed -e '1,/[iI][nN][cC][lL][uU][dD][eE][ ]*<[.][.][.]>/d' -e '/^[eE][nN][dD] [oO][fF] [sS][eE][aA][rR][cC][hH]/,\$d'`
|
||||
j=$tstinclude
|
||||
case $j in
|
||||
*/*) ;;
|
||||
*) j=$cmdinclude ;;
|
||||
esac
|
||||
tstinclude=
|
||||
good=
|
||||
nogood=
|
||||
c_hdr="stdio.h ctype.h"
|
||||
C_hdr="libc.h"
|
||||
for i in $j
|
||||
do if test -d "$i"
|
||||
then tstinclude="$tstinclude $i"
|
||||
h=
|
||||
for f in $c_hdr
|
||||
do if test -f "$i/$f"
|
||||
then case $i in
|
||||
*/CC) nogood=1 ;;
|
||||
*) good=1 ;;
|
||||
esac
|
||||
else h="$h $f"
|
||||
fi
|
||||
done
|
||||
c_hdr=$h
|
||||
h=
|
||||
for f in $C_hdr
|
||||
do if test -f "$i/$f"
|
||||
then case $i in
|
||||
*/CC) nogood=1 ;;
|
||||
*) good=1 ;;
|
||||
esac
|
||||
else h="$h $f"
|
||||
fi
|
||||
done
|
||||
C_hdr=$h
|
||||
fi
|
||||
done
|
||||
case $nogood in
|
||||
1) good=0 ;;
|
||||
esac
|
||||
case $good in
|
||||
1) case $c_hdr in
|
||||
?*) bad=1
|
||||
usrinclude=/usr/include
|
||||
set '' $tstinclude /usr/include
|
||||
;;
|
||||
*) set '' $tstinclude
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
stdinclude=$*
|
||||
echo "#include <sys/types.h>" > include.$src
|
||||
$cc -E include.$src | sed -e '/# 1 "[\\/]/!d' -e 's,[^"]*",,' -e 's,[\\/][^\\/]*".*,,' -e 's,[\\/]sys,,' > include.out
|
||||
for f in `cat include.out`
|
||||
do if test -d "$f"
|
||||
then g=`echo $f | sed -e 's,[\\/][\\/]*[^\\/]*$,,'`
|
||||
case " $stdinclude " in
|
||||
*\ $f\ *|*\ $g\ *)
|
||||
;;
|
||||
*) stdinclude="$stdinclude $f"
|
||||
case $f in
|
||||
/usr/include) usrinclude=$f ;;
|
||||
esac
|
||||
bad=1
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
done
|
||||
;;
|
||||
*) case $ppopt$ppenv in
|
||||
?*) echo '#!'$sh'
|
||||
echo $VIRTUAL_ROOT | sed "s/:.*//"' > cpp
|
||||
chmod +x cpp
|
||||
ppcmd=cpp
|
||||
ppdir=.
|
||||
eval x='`'$ppenv '$'cc -E $ppopt flags.$src'`'
|
||||
case $x in
|
||||
?*) tstinclude=$x/usr/include
|
||||
;;
|
||||
esac
|
||||
cp /bin/echo cpp
|
||||
chmod u+w cpp
|
||||
;;
|
||||
esac
|
||||
|
||||
eval set x $probe_include
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
echo "#include <$1>" > include.$src
|
||||
$cc -E include.$src
|
||||
done > include.out
|
||||
|
||||
ccinclude=
|
||||
x=$stdinclude
|
||||
stdinclude=
|
||||
subinclude=
|
||||
for f in $x $tstinclude `sed -e 's,\\\\,/,g' -e 's,///*,/,g' -e 's,"[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:/,"/,g' -e '/^#[line ]*[0123456789][0123456789]*[ ][ ]*"[\\/]/!d' -e 's/^#[line ]*[0123456789][0123456789]*[ ][ ]*"\(.*\)[\\/].*".*/\1/' include.out | sort -u`
|
||||
do case $f in
|
||||
-*) ;;
|
||||
*/) f=`echo $f | sed -e 's,//*\$,,'` ;;
|
||||
*/.) f=`echo $f | sed -e 's,//*.\$,,'` ;;
|
||||
esac
|
||||
case $f in
|
||||
-I*) ;;
|
||||
*/cc) ccinclude=1
|
||||
;;
|
||||
*/sys) continue
|
||||
;;
|
||||
*/include/*/*)
|
||||
;;
|
||||
*/include/*)
|
||||
subinclude="$subinclude $f"
|
||||
continue
|
||||
;;
|
||||
esac
|
||||
if test -d "$f"
|
||||
then case " $stdinclude " in
|
||||
*\ $f\ *) ;;
|
||||
*) stdinclude="$stdinclude $f" ;;
|
||||
esac
|
||||
fi
|
||||
done
|
||||
rm include.out
|
||||
case $ccinclude in
|
||||
?*) eval set x $probe_include
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
echo "#include <cc/$1>" > include.$src
|
||||
if $cc -E include.$src > /dev/null
|
||||
then break
|
||||
fi
|
||||
done
|
||||
case $# in
|
||||
0) ;;
|
||||
*) x=$stdinclude
|
||||
stdinclude=
|
||||
for f in $x
|
||||
do case $f in
|
||||
*/cc) ;;
|
||||
*) stdinclude="$stdinclude $f" ;;
|
||||
esac
|
||||
done
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
case $subinclude in
|
||||
?*) for i in $subinclude
|
||||
do for j in $stdinclude
|
||||
do case $i in
|
||||
$j/*/*) ;;
|
||||
$j/*) both=
|
||||
eval set x $probe_include
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) for k in $both
|
||||
do echo "#include <$k>" > include.$src
|
||||
$cc -E include.$src > include.out
|
||||
I=`grep -c $i/$k < include.out`
|
||||
J=`grep -c $j/$k < include.out`
|
||||
case $I:$J in
|
||||
0:*) ;;
|
||||
*:0) stdinclude="$i $stdinclude"
|
||||
break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
continue 3
|
||||
;;
|
||||
esac
|
||||
if test -f $i/$1
|
||||
then if test ! -f $j/$1
|
||||
then break 2
|
||||
fi
|
||||
both="$both $1"
|
||||
fi
|
||||
done
|
||||
;;
|
||||
$j) continue 2
|
||||
;;
|
||||
esac
|
||||
done
|
||||
stdinclude="$i $stdinclude"
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
{
|
||||
|
||||
for i in $stdinclude
|
||||
do
|
||||
case $i in
|
||||
$usrinclude) ;;
|
||||
*) echo $i $i ;;
|
||||
esac
|
||||
done
|
||||
|
||||
eval set x $probe_include
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
echo "#include <$1>" > t.c
|
||||
p=
|
||||
for j in `$cc -E t.c | grep "$1" | sed -e 's,\\\\,/,g' -e 's,"[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]:/,"/,g' -e '/^#[line ]*1[ ][ ]*"[\\/]/!d' -e 's/^#[line ]*1[ ][ ]*"\(.*\)[\\/].*".*/\1/'`
|
||||
do j=`echo $j | sed -e 's,///*,/,g' -e 's,/$,,'`
|
||||
case $p in
|
||||
?*) echo $p $j ;;
|
||||
esac
|
||||
p=$j
|
||||
done
|
||||
done
|
||||
|
||||
case $usrinclude in
|
||||
?*) echo $usrinclude $usrinclude ;;
|
||||
esac
|
||||
|
||||
} | tsort > tmp.tmp
|
||||
tstinclude=`cat tmp.tmp`
|
||||
bad=
|
||||
for i in $stdinclude
|
||||
do case "
|
||||
$tstinclude
|
||||
" in
|
||||
*"
|
||||
$i
|
||||
"*) ;;
|
||||
*) bad=1
|
||||
break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
case $bad in
|
||||
"") x=$stdinclude
|
||||
stdinclude=
|
||||
z=
|
||||
for i in $tstinclude
|
||||
do case " $x " in
|
||||
*" $i "*)
|
||||
stdinclude="$stdinclude $i"
|
||||
z=$i
|
||||
;;
|
||||
esac
|
||||
done
|
||||
case $usrinclude in
|
||||
'') usrinclude=$z ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
case $hosted in
|
||||
"") case $usrinclude in
|
||||
/usr/include) usrinclude= ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
case $usrinclude in
|
||||
?*) case " $stdinclude " in
|
||||
*\ $usrinclude\ *)
|
||||
x=$stdinclude
|
||||
stdinclude=
|
||||
for f in $x
|
||||
do case $f in
|
||||
$usrinclude) ;;
|
||||
*) stdinclude="$stdinclude $f" ;;
|
||||
esac
|
||||
done
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
# drop dups -- they creep in somehow
|
||||
|
||||
x=$stdinclude
|
||||
stdinclude=
|
||||
for f in $x
|
||||
do case " $stdinclude $usrinclude " in
|
||||
*" $f "*) ;;
|
||||
*) stdinclude="$stdinclude $f" ;;
|
||||
esac
|
||||
done
|
||||
1070
cde/programs/dtksh/ksh93/src/cmd/INIT/Mamfile
Normal file
1070
cde/programs/dtksh/ksh93/src/cmd/INIT/Mamfile
Normal file
File diff suppressed because it is too large
Load Diff
170
cde/programs/dtksh/ksh93/src/cmd/INIT/README-mamake.md
Normal file
170
cde/programs/dtksh/ksh93/src/cmd/INIT/README-mamake.md
Normal file
@@ -0,0 +1,170 @@
|
||||
## mamake and the MAM language ##
|
||||
|
||||
MAM (Make Abstract Machine) is a simple rule-based make language
|
||||
that is implemented in just six four-letter commands and five attributes,
|
||||
yet allows unlimited flexibility as it can execute arbitrary shell code.
|
||||
The program implementing MAM, `mamake`,
|
||||
is a portable C90 program written in a single file, `mamake.c`.
|
||||
This allows ksh 93u+m,
|
||||
or other programs using this build system,
|
||||
to be built using only a standard C compiler and utilities installation
|
||||
without any other dependencies or complications.
|
||||
|
||||
MAM was designed by Glenn Fowler at AT&T.
|
||||
The [original documentation](http://web.archive.org/web/20041227143022/http://www2.research.att.com/~gsf/mam/mam.html)
|
||||
for MAM specified a more extensive language than was actually implemented in `mamake.c`,
|
||||
while the `ignore` attribute is not documented there.
|
||||
This file documents the MAM implementation that we are actually using.
|
||||
|
||||
`mamake` processes make files called `Mamfile`.
|
||||
These were originally generated by a complex AT&T make system called `nmake`.
|
||||
The intention was for `mamake` to process generated Mamfiles only
|
||||
and not for it to replace `make`.
|
||||
Yet, we are using it as our `make` in the ksh 93u+m distribution.
|
||||
`nmake` was slow, brittle, and did not work on some modern systems, e.g. macOS.
|
||||
It was not worth fixing because it is about as complex as ksh itself --
|
||||
whereas `mamake` is simple and portable, and offers all the same flexibility.
|
||||
|
||||
Compared to the 2012-08-01 AT&T distribution,
|
||||
ksh 93u+m made a few minor changes to `mamake` that make it easier to maintain Mamfiles by hand:
|
||||
* All Mamfiles have been indented for legibility. (See `bin/Mamfile_indent` in the distribution.)
|
||||
* Indentation and word separators may use any whitespace (e.g. tabs), not only spaces.
|
||||
* Unrecognized commands and rule attributes throw an error instead of being silently ignored.
|
||||
* Fixed some crashing bugs and memory leaks.
|
||||
|
||||
## Commands ##
|
||||
|
||||
MAM commands have the following basic form:
|
||||
|
||||
*command* [ *argument* [ *operand string* ] ]
|
||||
|
||||
The *command* name consists of four lower-case letters.
|
||||
Unrecognized commands or attributes are an error.
|
||||
The *argument* is a single word.
|
||||
The *operand string* is any arbitrary text until the end of the line.
|
||||
|
||||
### Comments ###
|
||||
|
||||
`note` is the comment command and is ignored.
|
||||
For historical reasons, `info` and `meta` are also ignored.
|
||||
|
||||
### Rules ###
|
||||
|
||||
`make` *rule* [ *attribute* ... ]
|
||||
`done` *rule* [ *attribute* ... ]
|
||||
|
||||
A `make`...`done` block defines the target rule named *rule* using the other commands described here.
|
||||
Unless the `virtual` attribute is used, *rule* names the pathname of the file generated or referenced by the rule.
|
||||
|
||||
Dependencies may be defined in two ways:
|
||||
1. By nesting `make`...`done` blocks:
|
||||
the enclosing *rule* is the parent
|
||||
and the enclosed *rule*s are the prerequisites.
|
||||
2. By using the `prev` command (see **Referencing previously defined rules** below)
|
||||
to reference a previous `make`...`done` block.
|
||||
The dependency is defined as if that block were repeated at the `prev` command's location.
|
||||
|
||||
If the block contains one or more `exec` commands (see **Shell actions** below),
|
||||
the `done` command executes the shell script defined by them.
|
||||
|
||||
One or more of the following *attribute*s may be specified
|
||||
by appending them to the `make` or `done` command:
|
||||
* `archive`: Ignored.
|
||||
Historically used to mark the generation of an `ar`(1) archive.
|
||||
* `dontcare`: Marks files that do not need to exist.
|
||||
If the file exists then its last-modified timestamp is checked and propagated,
|
||||
otherwise it is silently ignored.
|
||||
* `generated`: Marks rules that produce output files generated by a shell action.
|
||||
The `exec` command implicitly assigns this attribute, but it is customary to specify it regardless.
|
||||
* `ignore`: The timestamp associated with *rule* is ignored in dependency resolution.
|
||||
* `implicit`: Marks the current rule as an implicit prerequisite of the enclosing parent rule.
|
||||
An implicit prerequisite can make the parent rule out of date without triggering the parent action.
|
||||
Implicit prerequisites usually correspond to `#include` prerequisites.
|
||||
For example, if `foo.o` is generated from `foo.c` and `foo.c` includes `foo.h`,
|
||||
then `foo.h` should be marked as an implicit prerequisite of `foo.c`
|
||||
so that touching `foo.h` does not make `foo.c` out of date while making `foo.o` out of date.
|
||||
* `joint`: Ignored.
|
||||
Historically used to mark one of a group of rules that are built by a single shell action.
|
||||
* `virtual`: Marks a rule that is not associated with any file.
|
||||
The commands within are executed every time the Mamfile is processed.
|
||||
By convention, a virtual rule named `all` makes everything,
|
||||
and a virtual rule named `install` performs installation.
|
||||
|
||||
### Referencing previously defined rules ###
|
||||
|
||||
`prev` *rule* [ *attribute* ... ]
|
||||
|
||||
This command references a rule that has previously been defined by `make`...`done`,
|
||||
regardless of block nesting level.
|
||||
It can be used to make a rule a prerequisite of multiple `make`...`done` blocks without repeating the rule.
|
||||
By convention, the *attribute*s of the referenced block are repeated in the `prev` command.
|
||||
However, `mamake` ignores anything after *rule*.
|
||||
|
||||
### MAM variables ###
|
||||
|
||||
`setv` *variable* [ *defaultvalue* ]
|
||||
|
||||
Defines a new MAM *variable*, optionally assigning the initial *defaultvalue*.
|
||||
If the *defaultvalue* begins and ends with double quotes (`"`), those are discarded.
|
||||
If the variable already has a value, the `setv` command is ignored; assigning a new value is not possible.
|
||||
When `mamake` starts, it imports all environment variables as MAM variables,
|
||||
so any variable's default value can be overridden by exporting an environment variable by its name.
|
||||
|
||||
MAM variables are referenced using the sh-style `${`...`}` syntax, though the braces are *not* optional.
|
||||
Any reference to an undefined variable is silently left unexpanded (and not replaced by the empty string).
|
||||
Expansion of MAM variable references is recursive, i.e., the value may itself contain other variable references.
|
||||
Beware: there is no reference loop detection.
|
||||
|
||||
[`TODO`: figure out and document advanced expansion syntax supported by `substitute()` in `mamake.c`]
|
||||
|
||||
### Shell actions ###
|
||||
|
||||
`exec` `-` *code*
|
||||
|
||||
One or more `exec` commands within a `make`...`done` block
|
||||
define a shell script that is executed for *rule*.
|
||||
The word following `exec` is ignored; by convention it is `-`.
|
||||
Each `exec` command appends a line of code to the shell script for the current rule.
|
||||
It is customary for a rule's `exec` commands to be contiguous, but not necessary.
|
||||
Before adding each line of code to the script,
|
||||
MAM variable references (see **MAM variables** above)
|
||||
are expanded; their literal values are inserted into the *code* line
|
||||
(beware: no quoting is applied!).
|
||||
When `mamake` encounters the `done` command,
|
||||
the script is executed by the shell whose path is in the `SHELL` environment variable
|
||||
or, absent that, by `/bin/sh`.
|
||||
The `exec` command assigns the `generated` attribute to the current rule, even if it was not specified.
|
||||
|
||||
### Binding libraries ###
|
||||
|
||||
`bind` `-l`*libraryname* [ `dontcare` ]
|
||||
|
||||
An argument of `-l`*libraryname* (or `+l`*libraryname*)
|
||||
causes a MAM variable `mam_lib`*libraryname* to be defined (see **MAM variables** above).
|
||||
The variable will contain either the compiler argument for linking to the library *libraryname*
|
||||
(either the `-l`*libraryname* flag, or the full path in case of a static library)
|
||||
or, if the `dontcare` attribute is specified, possibly the empty string.
|
||||
This can be used both for AST libraries shipped with the distribution and for system libraries.
|
||||
If the library file is found in the distribution,
|
||||
its time stamp is checked and the current target is marked as outdated if it is newer.
|
||||
|
||||
There is also a mechanism to communicate library dependency information across Mamfiles and `mamake` invocations.
|
||||
If a file named *libraryname* in the current directory
|
||||
or an `${INSTALLROOT}/lib/lib/`*libraryname*`.req` file
|
||||
exists, `mamake` processes each of the words in the form `-l`*libraryname* in its contents
|
||||
as if they were arguments to `bind` commands
|
||||
and the resulting values are appended to the value of `mam_lib`*libraryname*
|
||||
as dependencies separated by spaces.
|
||||
`mamake` does not create these dependency files;
|
||||
they are expected to be generated by Mamfile shell actions (see **Shell actions** above).
|
||||
|
||||
If no such dependency file exists, and the `dontcare` attribute is added,
|
||||
then `mamake` compiles a small test program on the fly to check if the library exists;
|
||||
if this fails, the `mam_lib`*libraryname* variable will be emptied.
|
||||
|
||||
Any `bind` command whose argument does not start with `-l` or `+l` is ignored.
|
||||
|
||||
[`TODO`: `bind` is not yet fully understood; more `mamake.c` code analysis is required.
|
||||
In `require()` in `mamake.c` there is some special handling for dynamic libraries.
|
||||
Note that the `bind` functionality implemented in `mamake.c`
|
||||
is completely different from that described in the original documentation.]
|
||||
938
cde/programs/dtksh/ksh93/src/cmd/INIT/RELEASE
Normal file
938
cde/programs/dtksh/ksh93/src/cmd/INIT/RELEASE
Normal file
@@ -0,0 +1,938 @@
|
||||
This file is of historical interest only. For recent changes in both ksh 93u+m
|
||||
and the accompanying libraries, see the file NEWS in the top-level directory.
|
||||
____
|
||||
|
||||
12-07-17 iffe.sh: add C code NOTE("...") to amend --verbose output
|
||||
12-06-26 iffe.sh: fix "npt foo" to handle function-like macro foo()
|
||||
12-06-20 package.sh: use $KSH for rt in "results test"
|
||||
12-06-15 Makefile: add PLUGIN_LIB to $INSTALLROOT/bin/.paths and BUILTIN_LIB => PLUGIN_LIB
|
||||
12-06-15 package.sh: add PLUGIN_LIB to $INSTALLROOT/bin/.paths and BUILTIN_LIB => PLUGIN_LIB
|
||||
12-06-13 package.sh: handle admin.db column output
|
||||
12-06-08 iffe.sh: fix 12-06-06 typo
|
||||
12-06-06 iffe.sh: check for -l* in reverse and accumulative order (e.g., for -last & -lm)
|
||||
12-06-04 package.sh: always check $INSTALLROOT/lib/package/profile
|
||||
12-05-31 Makefile: ID=ast; $(INSTALLROOT)/prototyped.h => $(INSTALLROOT)/$(ID)/prototyped.h
|
||||
12-05-28 iffe.sh: API foo YYYYMMDD => FOOAPI(rel) test macro
|
||||
12-05-24 package.sh: change admin.db comment => owner attributes
|
||||
12-04-25 ratz.c: add sear -k option to keep installation tmp dir on exit
|
||||
12-04-17 package.sh: skip sh version logic for ``use''
|
||||
12-04-17 cc.ibm.risc*: _LARGEFILE64_SOURCE => _LARGE_FILE_API moved to libast/features
|
||||
12-04-09 cc.ibm.risc*: speak aixese for _LARGEFILE64_SOURCE
|
||||
12-02-29 cc.darwin.i386*: handle default cc vs kernel bittedness
|
||||
12-02-29 C+probe: add __TIMESTAMP__ to the nopredefined list
|
||||
12-02-29 package.sh: don't assume grep -q or /usr/local/lib in LD_LIBRARY_PATH
|
||||
12-02-29 package.sh: fix ksh vs -lcmd compatibility checks
|
||||
12-02-23 iffe.sh: checkcc() before checkread() for sensible diagnostics
|
||||
12-02-14 package.mk: { --clobber --compare --link=lib*.a* } for --mam=static
|
||||
12-02-14 package.mk: export LICENSEFILEDEFAULT instead of LICENSEFILE
|
||||
12-02-14 package.sh: handle @(cc|ld).${HOSTTYPE}* intercepts
|
||||
12-02-07 package.sh: add { clean clobber } actions
|
||||
12-02-02 regress.sh: fix ulimit -c defaults for --nokeep
|
||||
12-01-18 regress.sh: add INPUT|OUTPUT|ERROR -e 'filter' to filter before comparison
|
||||
12-01-21 package.sh: fix `admin make' bug that created unused $INSTALLROOT/lib
|
||||
12-01-21 Makefile: :PACKAGE: license=ast -- oops
|
||||
12-01-20 cc.darwin,cc.mvs.390: tmp=/tmp/cc.${USER:-$LOGNAME}.$$.err
|
||||
12-01-12 package.sh: add admin make share closure to handle alternate HOSTTYPEs
|
||||
11-12-13 iffe.sh: add /*<NOSTDIO>*/ test code comment to disable default #include <stdio.h>
|
||||
11-11-11 C+probe: test for .so before .sl
|
||||
11-10-26 package.sh: don't forget about *.pkg for admin update
|
||||
11-10-18 cc.*-icc: update and add more
|
||||
11-10-11 package.sh: handle package make|view when no source installed
|
||||
11-09-11 package.sh: count admin '*** termination code' errors
|
||||
11-08-31 mamake.c: add -e, ignore use recursive prereq timestamps
|
||||
11-08-29 iffe.sh: add ``set stdio try1.h - try2.h ...''
|
||||
11-08-29 iffe.sh: trap EXIT => trap 0 for ancient sh
|
||||
11-08-11 iffe.sh: handle ancient sort that doesn't have -k
|
||||
11-06-01 make.probe: add more /lib64 logic
|
||||
11-05-01 package.sh: fix admin ditto to sync LICENSES too
|
||||
11-03-25 package.sh: initialize { $SED $TR } before first use!
|
||||
11-03-21 package.sh: fix vpath probes
|
||||
11-03-17 iffe.sh: fix cleanup to rm $tmp* instead of $tmp*.*
|
||||
11-02-24 package.sh: change curl usage to "curl -L ..."
|
||||
11-02-11 package.sh,C+probe,make.probe,mamprobe.sh: add ###.*archaic.*###
|
||||
11-02-02 Makefile: add :MAPLIB: check for ancient -lw
|
||||
11-02-02 make.probe: handle -print-multi-directory => 64 => /usr/lib64 /lib64
|
||||
11-02-02 package.sh: HOSTTYPE=*,*cc*[,-*,...] sets CC [ and CCFLAGS ]
|
||||
11-02-02 make.probe: handle gcc $ORIGIN link but exec failure -- gee thanks
|
||||
11-01-25 cc.hp.ia64: bundled cc is a pile of shaving cream
|
||||
11-01-07 iffe.sh: check debug==3 for is_hdr() failure
|
||||
10-11-22 ditto.sh: fix timing problem between |& and exec &p
|
||||
10-11-10 package.sh: fix cc cross compile check to use checkcc absolute path
|
||||
10-10-10 package.sh: list main env vars at start of make action
|
||||
10-10-10 ratz.c: tweak windows delays
|
||||
10-09-10 ratz.c: add _SEAR_ARGS for _SEAR_EXEC
|
||||
10-09-01 package.sh: fix ratz from source logic
|
||||
10-08-25 package.mk: consolidate license file search in .package.licenses.
|
||||
10-08-22 ratz.c: run sear bootstrap command detached
|
||||
10-08-20 C+probe: version_stamp only if version_flags works
|
||||
10-08-17 package.sh: unset makerules *DIR variables in env
|
||||
10-08-15 package.sh: "make" action now lists some env values
|
||||
10-08-11 mktest.sh: add "DO command ..."
|
||||
10-07-27 rt.sh: handle "rt X=Y ..."
|
||||
10-06-29 ratz.c: non-option sear args passed to sear_exec()
|
||||
10-06-25 iffe.sh: "api" op changed to not do "map-libc" type mappings
|
||||
10-06-25 package.sh: "force admin ditto" => no ditto --update option
|
||||
10-06-22 C+probe: handle cc that require .[ci] input for version info
|
||||
10-06-21 ditto.sh: change default remote access to ssh (about time)
|
||||
10-06-12 regress.sh: DIAGNOSTICS [ 1 | 0 | pattern ] and fix EXIT for all
|
||||
10-06-09 package.sh: add AT&T to usable nmake check
|
||||
10-06-06 iffe.sh,iffe.tst: add { api ver } ops
|
||||
10-04-22 package.sh: update "html binary|source" NAME/PASSWORD info
|
||||
10-04-15 iffe.sh: don't forget candidate headers for hdr|sys!
|
||||
10-04-11 WWW.mk: disable man page metarule -- now done by admin-man(1)
|
||||
10-02-14 package.sh: $CC verification needs $INSTALLROOT/bin in PATH
|
||||
10-02-11 package.sh: fix package admin make report error count
|
||||
10-02-02 package.sh: fix write binary bug that did scp on local fs
|
||||
10-02-02 package.mk: up to date binary targets must still be in PACKAGE.*.lst
|
||||
10-01-01 package.sh: fix premature $INSTALLROOT/bin during cross compile check
|
||||
10-01-01 make.probe: handle ['"] in CC.VERSION.STRING
|
||||
09-12-04 iffe.sh: add "opt name" to check for name in $PACKAGE_OPTIONS
|
||||
09-11-30 mktest.sh: change RESET to STATE.RESET to make it global
|
||||
09-11-14 make.probe: use gcc { -print-multi-directory -print-search-dirs }
|
||||
09-11-11 package.sh: re-order and combine cc checks
|
||||
09-10-27 C+probe,make.probe,probe.win32: add CC.SUFFIX.DEBUG
|
||||
09-10-21 iffe.sh,Makefile: test -e is not in ksh88!
|
||||
09-10-06 iffe.sh: handle cc -E #error with 0 exit status (sgi)
|
||||
09-10-06 package.sh: stub in ar intercept checks -- not used yet
|
||||
09-10-06 ar.ibm.risc: add ar intercept because some AIX require -Xfoo first!!
|
||||
09-09-24 regress.sh: fix UMASK logic to create test support files before umask
|
||||
09-08-28 release.c: change docs to mention stdin if no file operands
|
||||
09-08-24 package.sh: fix isascii() bug that failed on od(1) trailing space
|
||||
09-08-20 make.probe: add CC.SHARED.NAME
|
||||
09-08-20 regress.sh: add { JOB CONTINUE EXITED KILL FIFO }
|
||||
09-08-11 package.sh: filter lines containing : for package results
|
||||
09-07-31 make.probe: add CC.AR.ARFLAGS (for AIX ar -xany)
|
||||
09-07-31 package.sh,cc.*: fix -dumpmachine to handle 32/64/* bit options
|
||||
09-06-24 package.sh: fix admin.db output formatting
|
||||
09-05-05 package.sh: export dll hackery environment vars
|
||||
09-05-05 package.sh: handle non-identifier hostnames
|
||||
09-05-05 mamake.c: pass undefined ${...} identifiers to the shell
|
||||
09-05-05 mamake.rt: add macro expansion regression tests
|
||||
09-05-01 iffe.sh: fix output initialization *again*
|
||||
09-04-28 package.sh: handle admin.db contact field $9
|
||||
09-04-15 iffe.sh: add implicit "ini" op to initialize io for subsequent ops
|
||||
09-03-31 regress.sh: EXPORT before test => global ENVIRON[]
|
||||
09-03-26 package.sh: test fail pattern is 'fail[es]'
|
||||
09-03-26 UNIT - ... appends (options) to command line
|
||||
09-03-19 TEST.mk: x.tst => x only if x is command target
|
||||
09-03-15 regress.sh: add ${MAIN} for base name of main unit
|
||||
09-03-10 TEST.mk: add .SOURCE:tests if tests is a dir
|
||||
09-03-03 regress.sh: allow command line unit to override UNIT
|
||||
09-03-03 mktest.sh: handle IO == $'\n'
|
||||
09-02-02 package.sh: delay $INSTALLROOT/bin/.paths generation until mamprobe runs
|
||||
09-01-30 cc.mvs.390: c89 balks at [ ()] in -Dname="..."!
|
||||
09-01-27 package.sh: add isascii() to use ratz instead of tar
|
||||
09-01-20 hurl.sh: add --size=bytes option
|
||||
09-01-08 TEST.mk: add test.* prereqs, multiple arg lists with :T=*: binding
|
||||
09-01-03 regress.sh: fix UNIT to allow command line override
|
||||
09-01-03 mktest.sh: handle TWD
|
||||
08-12-24 package.sh: fix cross-compile HOSTTYPE logic
|
||||
08-12-15 package.sh,hurl.sh: handle http codes { 301 302 303 }
|
||||
08-10-16 make.probe '-fno-stack-protector -fno-stack-protector-all' to cop out!!
|
||||
08-09-30 rt.sh: fix ksh93 regression test signal count
|
||||
08-09-26 regress.sh: ignore SIGPIPE for SET pipe-input
|
||||
08-09-24 package.sh: package only test foo => make --recurse=only recurse tests foo
|
||||
08-09-20 make.probe: handle another /usr/bin/file shared lib description
|
||||
08-09-20 regress.sh: add --pipefail for SET pipe-input ...
|
||||
08-09-17 Makefile: add gdbm1.c for <gdbm-ndbm.h>
|
||||
08-09-10 make.probe: add CC.NOPROTECT
|
||||
08-08-08 mktest.sh: add --width=width
|
||||
08-08-05 dbm.req: favor sleepycat ndbm compatibility
|
||||
08-08-04 C+probe: fix stdlib initialization logic
|
||||
08-06-24 package.sh: fix $INSTALLROOT/bin/cc intercept time stamp file typo
|
||||
08-06-20 TEST.mk: make the localyunit before *.rt => *.tst -- doh
|
||||
08-06-20 mktest.sh: prepend $PWD onto PATH for local units -- doh^2
|
||||
08-06-11 regress.sh: fix bug that skipped the last test
|
||||
08-05-20 regress.sh: add --local to put *.tmp dir in local fs
|
||||
08-05-05 regress.sh: add IF command ... ELIF command ... ELSE ... FI
|
||||
08-05-01 package.sh: package test => ulimit -c 0
|
||||
08-04-28 regress.sh: fix EXPORT quoting
|
||||
08-04-28 regress.sh: fix UNIT set check args too
|
||||
08-04-24 rt.sh: exit code > 256 => signal termination
|
||||
08-04-10 C+probe: change probe_so order to check .so last (Mac OS X ld workaround)
|
||||
08-04-01 package.sh: handle multiple admin HOSTTYPEs per HOST
|
||||
08-03-28 C+probe: add C++ #include <iostream> (no extension) dir probes
|
||||
08-03-17 regress.sh: fix trap on EXIT, add terminated note to final tally
|
||||
08-02-28 make.probe: fix probe_warn to include ld!
|
||||
08-02-02 make.probe: add CC.RUNPATH to match default -L order
|
||||
08-01-31 package.sh: check lib64 for LD_LIBRARY_PATH
|
||||
08-01-31 iffe.sh: tweak ancient /bin/sh workarounds
|
||||
08-01-28 make.probe: Darwin ld export dynamic is -force_flat_namespace
|
||||
08-01-28 C+probe: handle SGI cc error message but exit 0 botch(es)
|
||||
08-01-23 package.sh: fix checksum doc typo
|
||||
08-01-09 C+probe: add __FUNCTION__ to the undef (don't check) list
|
||||
07-12-14 iffe.sh: add set nooptimize
|
||||
07-12-03 package.sh: add LC_ALL=C
|
||||
07-11-27 package.sh: fix overaggressive *.md5 cleanup
|
||||
07-11-20 iffe.sh: treat exit status >= 250 as normal error with no signal
|
||||
07-11-05 package.sh: fix write op error count pattern
|
||||
07-11-05 package.mk: fix $(~req) .ver binding
|
||||
07-08-11 probe.win32: add cl.exe setuid workaround, CC.VERSION[.STRING]
|
||||
07-08-01 package.sh: handle 'package read lcl|tgz'
|
||||
07-05-08 regress.sh: execute basename instead of absolute path for short $0
|
||||
07-04-27 cc.sgi.mips[34]: for #error to exit non-zero -- a no brainer
|
||||
07-04-20 mktest.sh: defer to systems without 'grep -q' -- sigh
|
||||
07-04-11 mamprobe.sh: handle $(CC.*) => ${mam_cc_*}, $(...) => ${...}
|
||||
07-04-11 make.probe: fix CC.PICBIG probe, default { CC.PIC CC.DLL } to BIG
|
||||
07-04-04 iffe.sh: prepend ${tst}${ext} to each .c probe
|
||||
07-03-28 package.sh: fix binary tgz architecture type duplication
|
||||
07-03-28 package.mk: add binary write PACKAGE.$HOSTTYPE.lst
|
||||
07-03-28 iffe.sh: add -F header to mac test
|
||||
07-03-23 make.probe: handle file(1) that returns 'archive' for .so
|
||||
07-03-22 mamprobe.sh: fix STDED probe for implementations that ignore EOF
|
||||
07-03-11 package.sh: add nocopyright and tst => nocopyright
|
||||
07-03-11 package.mk: add copyright=0
|
||||
07-03-08 C+probe: restore IFS after probe.ini
|
||||
07-02-26 mamake.c: expand first of ${mam_lib*} for ${AR}
|
||||
07-01-05 package.sh: fix "admin write binary" logic
|
||||
07-01-01 iffe.sh: add "cmd" --verbose trace
|
||||
07-01-01 iffe.sh: sort => LC_ALL=C sort
|
||||
07-01-01 C+probe: LC_ALL=C
|
||||
06-12-22 make.probe: lean on gcc -v for stdlib, but preserve /usr/local!
|
||||
06-11-23 package.sh: *.md5 are not tarballs -- doh
|
||||
06-11-23 iffe.sh: add -F, --features=feature-test-header
|
||||
06-11-11 make.probe: favor lib64 over lib for hosttype==*64
|
||||
06-10-31 make.probe: add "-ignore-source-dir -iquote" test
|
||||
06-10-31 iffe.sh: add status{...} code block
|
||||
06-10-11 regress.sh: fix DO to handle {...} (time for regress.tst?)
|
||||
06-10-11 package.sh: handle already gunzip'd *.tgz
|
||||
06-10-06 iffe.sh: add reference for header content tests
|
||||
06-09-27 regress.sh: fix UMASK to do DO too (duh)
|
||||
06-09-22 iffe.sh: drop -O for npt tests (for msvc intrinsics)
|
||||
06-09-14 cc.darwin: drop -O until gcc 4.* gets its act together
|
||||
06-09-11 package.sh: { cc ld ldd } intercepts check ${HOSTTYPE%.*} too
|
||||
06-09-08 regress.sh: add PIPE INPUT|OUTPUT for pipe io
|
||||
06-09-05 C+probe: add { probe_version version_stamp version_string }
|
||||
06-09-05 make.probe: add version stamp comment, CC.VERSION[.STRING]
|
||||
06-08-27 regress.sh,mktest.sh: add UMASK
|
||||
06-08-25 regress.sh: add -b,--ignore-space,IGNORESPACE
|
||||
06-08-25 mktest.sh: add IGNORESPACE
|
||||
06-08-24 mktest.sh: handle \000 in data
|
||||
06-08-24 regress.sh: handle -f* for INPUT|OUTPUT|ERROR
|
||||
06-08-16 package.sh: fix 'install flat' logic
|
||||
06-08-11 rt.sh: handle style=shell %K date format
|
||||
06-07-17 ratz.c: fix __MVS__ FAR definition
|
||||
06-07-17 iffe.sh: "header x.h" -- deprecate "include x.h" for .SCAN.iffe
|
||||
06-07-17 package.sh: differentiate urls vs. assignments
|
||||
06-06-27 rt.sh: add --failed, --heading
|
||||
06-06-27 C+probe,TEST.mk,make.probe,mktest.sh,regress.sh: 'ulimit -c 0'
|
||||
06-06-26 cc.darwin.ppc: handle -lcc_dynamic disappearance
|
||||
06-06-25 mktest.sh: implement PROG
|
||||
06-06-11 Makefile: add -ldbm :MAPLIB:, provide public MAPLIB.mk
|
||||
06-05-06 package.sh: add PACKAGE_admin_tail_timeout
|
||||
06-05-22 ratz.c: upgrade to zlib-1.2.3
|
||||
06-05-09 package.sh: fix admin.db docs
|
||||
06-03-11 package.sh: fix `package use - command ...'
|
||||
06-03-05 make.probe: work around pedantic bash 3.1 mismatched " in `.`
|
||||
06-02-14 package.sh: "results failed test" == "results test failed"
|
||||
cc.sgi.*: add _AST_cc_OPTIONS parameterization, -OPT:Olimit=0
|
||||
cc.linux.ia64-icc: add for Intel cc
|
||||
06-02-02 package.sh: FreeBSD stuck with OS version for all arch
|
||||
06-02-01 package.mk: fix locale logic (tw -d requires dir arg)
|
||||
06-01-31 package.sh: require $CC only for make|test
|
||||
06-01-30 package.sh,hurl.sh: use the backwards-compatible --http-passwd
|
||||
package.sh: add more pdksh => /bin/sh checks
|
||||
06-01-26 package.sh: wget --http-pass => --http-password
|
||||
package.sh: fix wget error logic
|
||||
hurl.sh: wget --http-pass => --http-password
|
||||
06-01-11 package.mk: pass package.license.class to make --mam too
|
||||
package.mk: variants=pattern => --variants=pattern
|
||||
package.sh: Darwin rel<=7 => darwin7.ppc
|
||||
package.sh: FreeBSD rel<=4 => freebsd4
|
||||
package.sh: FreeBSD rel<=5 => freebsd5
|
||||
05-12-07 iffe.sh: don't emit <stdio.h> if <sfio.h>|<ast.h> (XXX)
|
||||
05-12-05 make.probe: disable readonly.exe core dump via ulimit -c 0
|
||||
05-09-22 mktest.sh: add EXEC [ ++NOOUTPUT ++NOERROR ++NOEXIT ]
|
||||
05-09-21 mktest.sh: fix --style=shell compare to ignore \r
|
||||
05-09-12 TEST.mk: all --force to force %.rt regeneration
|
||||
05-09-05 TEST.mk: regenerate from %.rt only if newer, :SAVE: %.tst
|
||||
05-08-25 mktest.sh: add
|
||||
TEST.mk: add %.rt=>%.tst for mktest
|
||||
05-08-18 package.sh: 'package host cpu' now checks $NPROC first
|
||||
05-07-17 iffe.sh: add { define extern include print } ops
|
||||
iffe.sh: accept output{...}end output on success only -- doh
|
||||
05-07-01 package.sh: add TARPROBE for tar B flag probe
|
||||
05-06-24 package.sh: fix binary read chmod via *.sum
|
||||
05-06-06 package.sh: fix KEEP_HOSTTYPE logic to handle synthesized types
|
||||
05-06-01 make.probe: verify that cc_pic works for hosted cc
|
||||
cc.lynxos.ppc: make -mshared the default
|
||||
package.sh: note $INSTALLROOT/bin/@(cc|ld|ldd) installation
|
||||
05-05-25 make.probe: add CC.INCLUDE.LOCAL instead of -I- in CC.DIALECT
|
||||
05-05-24 iffe.sh: really fix grouping logic -- with tests this time
|
||||
package.sh: pipe/socket configuration mismatches => use /bin/sh
|
||||
05-04-28 TEST.mk: add $(TESTS)
|
||||
05-04-19 package.sh: package results test uses rt if possible
|
||||
iffe.sh: fix 'op var - ... - ...' grouping logic
|
||||
05-04-15 rt.sh: handle autom4ate style
|
||||
05-04-11 regress.sh: fix unit name when command line unit also specified
|
||||
rt.sh: handle all AST package test output formats
|
||||
package.sh: fix make docs for options passed to underlying make
|
||||
05-04-08 package.sh: cp -p makerules.mo to $OK to preserve mtime
|
||||
regress.sh: add "TITLE name" to change TEST output title
|
||||
05-04-01 rt.sh: add pretty make test + regress.sh wrapper
|
||||
05-03-29 package.sh: test -e path => test -f path -o -d path
|
||||
05-03-24 make.probe: fix CC.PICBIG probe to prefer -fPIC over -fpic -- doh
|
||||
05-03-19 mamake.c: command line name=var also defines name.FORCE=var
|
||||
05-03-11 regress.sh: unset LC_ALL when LC_* EXPORT'd
|
||||
package.sh: old make.out saved in circular make.out.[1-9]
|
||||
mamake.c: sync with nmake :W=O:
|
||||
05-03-01 package.sh: fix flat hierarchy initialization
|
||||
package.sh: admin action now properly resets sibling remote logs
|
||||
package.mk: relax unknown/unwritten package messages to warnings
|
||||
package.sh: handle space in command line name=value
|
||||
make.probe: add MVS -Wc,dll,exportall,longname,rent to CC.DLL probe
|
||||
05-02-24 package.sh: hosttype *.powerpc => *.ppc
|
||||
cc.lynxos.ppc,ldd.lynxos.ppc: add
|
||||
05-02-22 mamake.c: fix { -G --debug-symbols -S --strip-symbols } MAMAKEFLAGS bug
|
||||
05-02-20 probe.win32: handle /platformsdk mount
|
||||
05-02-19 package.sh,package.mk: add write tst for tgz in tst subdir
|
||||
05-02-18 package.sh: accept cc -dumpmachine with 0 or 1 -
|
||||
05-02-14 package.sh: handle multiple architectures per host in admin.db
|
||||
Makefile,package.sh: honor $INSTALLROOT/bin/.paths overrides
|
||||
package.sh: normalize trailing [-_]bits in host type
|
||||
iffe.sh: some ksh-compatible shells don't do *(pattern)
|
||||
05-02-11 iffe.sh: back out 05-01-11 child process stdin hijack
|
||||
cc.lynxos.i386: -dynamic instead of -static default
|
||||
05-02-10 package.sh: cyg usr/doc => usr/share/doc
|
||||
05-02-08 package.sh: drop -m with pax -- delta bug fixed 2005-02-08
|
||||
iffe.sh: work around old bash 0<... redirection bug
|
||||
05-02-06 package.mk: source.tgz: update generated files only when they change
|
||||
05-02-02 *.sh,*probe: IFS may be unset and { ash bsh } don't on startup -- wow
|
||||
05-01-11 package.sh: update setup docs to include authorize+password
|
||||
package.mk: fix .source.cyg final directory edit
|
||||
package.mk: notice=1 for conspicuous empty NOTICE file
|
||||
WWW.mk: fix *-index.html installation
|
||||
filter.sh: retain input file suffix in tmp copy
|
||||
mamexec.c: fix non-contiguous "exec" bug that skipped lines
|
||||
iffe.sh: fix candidate lib test to try grouping subsequent libs
|
||||
iffe.sh: fix child process stdin hijack that skipped input lines
|
||||
iffe.sh: --shell=osh to force read -r compatibility command
|
||||
iffe.sh: chop iffe input leading space before # for KnR compatibility
|
||||
05-01-05 package.sh: add ${TAR} ${TARFLAGS} and tar B flag for pipes
|
||||
mamake.c: fix makefile scan to ignore lib*.[hH]
|
||||
iffe.sh: immunize function/symbol tests from aggressive -O
|
||||
04-12-28 WWW.mk: add :WWWPAGE: faq.*.mm index generator
|
||||
04-12-21 ratz.c: make sure tmp dir is writable -- doh
|
||||
04-12-08 iffe.sh: fix dat test for aggressive -O
|
||||
04-12-01 iffe.sh: add `include file' to pull in #define's for `exp'
|
||||
04-11-11 package.sh: default MAKESKIP is "*[-.]*"
|
||||
04-10-22 ratz.c: change docs to note zlib license
|
||||
mamake.c: handle --debug-symbols and --strip-symbols
|
||||
package.sh: make (debug|strip)=1 => --(debug|strip)-symbols
|
||||
package.mk: add :LICENSE: => package.license.class
|
||||
mamake.c: fix recursive order logic
|
||||
04-10-18 package.mk: add :LICENSE:, :OMIT: to omit package subdirs
|
||||
04-10-11 package.sh: add 'authorize name' and 'password password'
|
||||
04-10-01 iffe.sh: double check $static link with ! $static
|
||||
Makefile: add BUILTIN_LIB to $INSTALLROOT/bin/.paths
|
||||
make.probe: add CC.DIALECT EXPORT={ALL,REF,EXT,DLL}
|
||||
package.sh: add BUILTIN_LIB to $INSTALLROOT/bin/.paths
|
||||
04-09-21 package.mk: $(init)$(name) is now an implicit prereq
|
||||
04-09-09 package.sh: copy makerules.mo to $INSTALLROOT/bin/ok
|
||||
04-09-01 package.mk,package.sh: rename *.txt => *.README
|
||||
package.mk: add the runtime package type (no *.[ah])
|
||||
iffe.sh: fix key test reports
|
||||
04-08-26 Makefile: { add m2.c m3.c } -lm tests for { frexp[l] ldexp[l] }
|
||||
04-08-11 package.mk: handle HOSTTYPE for Solaris > 9
|
||||
package.sh: add `checkaout proto' for { make view }
|
||||
package.sh: check for { md5sum md5 }
|
||||
iffe.sh: add {if|elif|else|endif} test ...
|
||||
iffe.sh: add 'exp - expression' and '( expression )'
|
||||
iffe.sh: add 'name = test ...' user defined macros
|
||||
iffe.sh: add '! test ...' negation
|
||||
TEST.mk: add implied { .c .sh } generated prereq
|
||||
cc.darwin.ppc: handle 10.3 -dylib mess
|
||||
04-08-01 package.mk: let include handle nested requirements -- duh
|
||||
04-07-31 package.sh: attempt a second ping before admin assumes host down
|
||||
04-07-26 package.sh: fix hp.ia64 HOSTTYPE
|
||||
04-07-23 probe.win32: generalize #include dir order search
|
||||
04-07-17 regress.sh: add INPUT -x for chmod +x
|
||||
04-07-01 regress.sh: TMP => TWD
|
||||
04-06-29 regress.sh: put COMMAND in $TWD too
|
||||
04-06-21 regress.sh: mkdir -p INPUT and OUTPUT intermediate dirs
|
||||
TEST.mk: add :TEST: -- to disable .c .sh search
|
||||
04-06-18 TEST.mk: add .SCAN.tst
|
||||
04-06-17 regress.sh: TEST returns true if active, false otherwise
|
||||
regress.sh: add CD to change test pwd from $TWD
|
||||
04-06-16 regress.sh: add TWD for ./unit.tmp override
|
||||
regress.sh: DO now flushes previous test
|
||||
regress.sh: INPUT and OUTPUT handle -f for printf instead of print
|
||||
04-06-11 package.sh: make sure $INSTALLROOT/bin is in front of $PATH
|
||||
package.sh: skip nmake if older than 2000-10-31
|
||||
04-05-20 package.sh: fix arg vs. package parse with - or '' to disambiguate
|
||||
04-05-11 package.sh: package verbose update lists closure for package setup
|
||||
package.sh: add src/lib/libardir to nmake proto bootstrap
|
||||
regress.sh: probe for rm -u vs. chmod -R u+rwx
|
||||
04-05-01 package.sh: $CC must be C, not C++; allow release command on $PATH
|
||||
04-04-15 make.probe: check probe_libdir false positives
|
||||
package.sh: add lib/package/*.lic src package subdirs
|
||||
package.mk: add mamfile=0 to inhibit Mamfile generation
|
||||
iffe.sh: config name_DECLARED => HAVE_name_DECL
|
||||
iffe.sh: fix mac to handle default value
|
||||
04-04-11 iffe.sh: normalize sed [\\\\/] quoting
|
||||
04-04-04 package.mk: only checksum generated tarballs
|
||||
mamprobe.sh: add STDCHMOD
|
||||
04-04-01 C+probe: set export LANG=C for uniform error messages
|
||||
make.probe: another CC.STDLIB tweak
|
||||
package.sh: fix regress core dump pattern, expand [a-z] match ranges
|
||||
04-03-31 Makefile: add intl :MAPLIB: test
|
||||
make.probe: fix CC.STDLIB search; drop CC.* path duplicates
|
||||
04-03-28 iffe.sh: drop unused exec $stdin<&0 dup
|
||||
04-03-25 Makefile: add iconv :MAPLIB:
|
||||
package.sh: use ${PING:-ping -c 1 -w 4}, allowing admin.db override
|
||||
04-03-24 package.mk: add *.md5 checksum for each *.(c|exe|tgz)
|
||||
package.sh: update base change on md5 sum instead of size
|
||||
iffe.sh: adjust case label \ and keyword quoting for ancient /bin/sh
|
||||
04-03-22 probe.win32: ncc => nld
|
||||
04-03-19 CONVERT.mk: change the instructions and old source dir default
|
||||
package.mk: fix recurse=list check
|
||||
package.mk: add *.md5 checksum for each *.(c|exe|tgz)
|
||||
package.sh: fix update base/delta/sync existence check
|
||||
04-03-18 iffe.sh: -d2 does not remove core dumps on exit
|
||||
04-03-17 package.sh: fix make recurse arg/action order
|
||||
04-02-29 package.sh: add regress action to compare current and previous tests
|
||||
package.sh: fix sgi.mips[23] HOSTTYPE test for old IRIX cc
|
||||
package.sh: add `export variable ...'
|
||||
package.sh: admin action now handles host name with non-id chars
|
||||
package.sh: non-numeric M T W in admin.db disables that action
|
||||
package.sh: fix admin write binary local vs. shared clash
|
||||
cc.hp.pa: add _AST_CC_hp_pa_DEFAULT=+DAportable
|
||||
cc.hp.pa64: sync with cc.hp.pa
|
||||
cc.ibm.risc: -bnolibpath => -blibpath:/usr/lib:/lib
|
||||
probe.win32: sync with make.probe
|
||||
make.probe: fix last chance dynamic test
|
||||
make.probe: add hp.pa CC.EXPORT.DYNAMIC -Wl,-E
|
||||
make.probe: add ibm.risc CC.EXPORT.DYNAMIC -bexpall
|
||||
make.probe: move probe_dll_def to the end of probe_dll
|
||||
package.mk: capture subcomponent mamfile recursion
|
||||
04-02-24 make.probe: strip "..." from cc/ld traces
|
||||
iffe.sh: add ``set [no]define'' to disable macro #define/#undef
|
||||
04-02-23 make.probe: rework CC.LD search
|
||||
04-02-14 make.probe: add CC.EXPORT.DYNAMIC for main dynamic sym export
|
||||
make.probe: resurrect CC.PIC with separate semantics from CC.DLL
|
||||
make.probe: add CC.SHARED.LD for CC.SHARED linker
|
||||
C+probe: clear DISPLAY to stifle interactive windows
|
||||
04-02-11 iffe.sh: handle ``siz void*'', add cross{ ... }end
|
||||
make.probe: add { CC.AR CC.SIZE }, fix cross command search
|
||||
cc.darwin.ppc: change $cc => $CC for old ksh + libast conf bug
|
||||
04-02-09 make.probe: drop -nostartfiles from CC.SHARED for C++
|
||||
04-02-04 package.sh: fix cross compilation bug that mixed binary formats
|
||||
04-02-02 package.sh: package admin now ditto's bin/package too
|
||||
04-01-30 cc.sgi.mips3: drop warning 3421
|
||||
04-01-11 regress.sh: output label#count for tests in loops
|
||||
04-01-05 regress.sh: fix bug that ignored the first SAME
|
||||
04-01-04 crossexec.sh: fix typo that did not recognize rcp
|
||||
03-12-19 mamake.c: add `foolib:foo:libfoo' to recurse()
|
||||
03-10-11 regress.sh: add EXPORT, export COLUMNS=80 for message consistency
|
||||
03-09-23 ratz.c: fix tar header number parse bug that skipped to next number
|
||||
regress.sh: rm cleanup now handles files matching -*
|
||||
03-09-11 iffe.sh: add unnamed { ... } blocks
|
||||
regress.sh: add COPY from to, like MOVE but comparison still done
|
||||
regress.sh: rm -rfu to handle test dirs w/o u+rwx
|
||||
03-08-14 Makefile: add hello.c to the manifest
|
||||
03-08-11 package.sh: fix `html binary' generation
|
||||
03-06-21 package.sh: fix INITROOT initialization bug
|
||||
package.sh: make sure admin logs exists before tail'ing
|
||||
03-06-11 probe.win32: fix $(BINDIR) typo that expanded in sh instead of make
|
||||
cc.mvs.390: return code 4 yields exit code 3 but it's *really* ok
|
||||
package.sh: fix onpath function global var conflict
|
||||
make.probe: add CC.DIALECT { GNU -dD }
|
||||
package.mk: add Mamfile to lcl manifest
|
||||
03-06-10 package.sh: fix setup action typo that only checked the INIT package
|
||||
package.sh: *.s390x => *.s390-64
|
||||
03-06-09 package.mk: add cyg :POSTINSTALL:
|
||||
03-06-08 make.probe: fix CC.STDLIB logic
|
||||
hurl.sh: add User-Agent identification
|
||||
package.sh: tweak source and binary installation instructions
|
||||
cc.hp.pa,ld.hp.pa: +-Wl,+cdp,${INSTALLROOT}/lib/: drops abs lib paths
|
||||
ldd.hp.pa: add
|
||||
03-06-06 package.sh: fix $INSTALLROOT/bin/ldd check
|
||||
make.probe: add CC.STDLIB verification
|
||||
03-06-04 make.probe: add +forceread +noforceread
|
||||
03-05-11 hurl.sh: handle http://host:port/path
|
||||
03-05-06 package.sh: fix setup action PACKAGEROOT and INIT logic
|
||||
03-05-05 package.mk: fix Cygwin tarball names
|
||||
03-04-30 package.sh: move (cc|ld|ldd).$HOSTTYPE updates from Makefile
|
||||
03-04-27 make.probe: fix MVS CC.PREFIX.SHARED "lib" => ""
|
||||
make.probe: add CC.DLL.DIR = $(BINDIR) or $(LIBDIR)
|
||||
make.probe: add { CC.LD.LAZY CC.LD.NOLAZY CC.LD.RECORD CC.LD.NORECORD }
|
||||
probe.win32: sync with latest CC.*
|
||||
03-04-25 mamprobe.sh: add args to `. $makeprobe' for ancient sh
|
||||
03-04-23 package.mk: fix dup "covered by" licenses
|
||||
03-04-22 probe.win32: CC.DIALECT += "LIBPP -I-" for all cc's
|
||||
package.sh: fix admin write binary tarball snarf
|
||||
03-04-21 package.mk: package covered *.@(pkg|lic) too
|
||||
03-04-15 package.mk: don't generate incremental archives for lcl
|
||||
package.mk: add incremental=[source:1 binary:0] archive control
|
||||
package.sh: generate $INSTALLROOT/bin/cc wrapper for CC != cc
|
||||
package.sh: admin must ditto lib/package/*.@(pkg|lic) too
|
||||
mamake.c: ignore time of ignore prereqs
|
||||
mamake.c: -D2 lists propagated times
|
||||
03-04-11 package.mk: tidy up cyg tarballs
|
||||
package.sh: fix old shell clash between get() and $get
|
||||
03-04-05 package.mk: restore *.inx generation somehow lost during cyg additions
|
||||
package.sh: add pthread_num_processors_np() last resort for CPU count
|
||||
package.sh: use `make believe' to accept mamake generated files
|
||||
package.sh: handle `make [make-flags] [target ...]'
|
||||
mamake.c: ignore -e
|
||||
03-03-21 package.mk: fix cyg old make typo
|
||||
package.sh: switch to `package setup' instructions
|
||||
03-03-19 package.sh: add registry checks for `host cpu'
|
||||
package.sh: `results failed' now lists core dump messages
|
||||
03-03-17 package.sh: on Cygwin verify 'ntsec binmode' in $CYGWIN or die
|
||||
Makefile: install gcc wrapper if no cc
|
||||
package.mk: add :DETAILS: { :README: :EXPORT: :INSTALL: :TEST: } ops
|
||||
03-03-12 package.mk: add :DETAILS: for style-specific details
|
||||
03-03-11 package.sh: add beta setup/update support
|
||||
TEST.mk: add (TESTCC) prereq for .sh tests
|
||||
03-03-07 hurl.sh: add
|
||||
03-03-06 iffe.sh: fix lib Win32 test Cygwin vs native incompatibility
|
||||
iffe.sh: change internal stdio.h guard to handle C++ inline vs. macro
|
||||
03-03-03 package.sh: check for curl or wget for update
|
||||
package.sh: add setup action == update read make
|
||||
package.sh: fix packageroot() typo that showed up in non ~user shells
|
||||
mamake.c: treat name+=value args like name=value
|
||||
mamake.c: add ${var?*|value?match?no-match?}
|
||||
mamake.c: fix archive vs. dynamic bind logic
|
||||
03-02-28 package.sh: add the "cyg" (Cygwin) package type
|
||||
package.mk: add "cyg" stubs, :CATEGORY: for category name(s)
|
||||
03-02-25 mamake.c: add -D4 system(3) debug trace
|
||||
03-02-24 package.mk: change --mismatch to --corrupt=accept
|
||||
03-02-14 ratz.c: add _WIN32 setmode([01],O_BINARY) and fopen "rb"/"wb"
|
||||
03-02-12 Makefile: handle getconf LIBPATH with host pattern
|
||||
03-01-31 package.mk: fix .lic search
|
||||
03-01-30 package.sh: handle { INIT ksh nmake } already installed elsewhere
|
||||
package.sh: admin handles command outside of $PACKAGEROOT/bin
|
||||
Makefile: install $(INSTALLROOT)/lib/make/package.mk
|
||||
03-01-28 package.sh: admin remote commands on one line to please syslog
|
||||
03-01-23 probe.win32: borland and mingw32 tweaks
|
||||
03-01-22 package.sh: fix $CC test to ignore set -x trace -- duh
|
||||
03-01-16 ditto.sh: tw --chop on by default
|
||||
03-01-14 package.sh: use /bin/cp to copy previous binaries to bin/ok/
|
||||
package.sh: admin now initiates remote exec and copy from local host
|
||||
03-01-12 package.sh: handle admin "xxx:" default root
|
||||
03-01-03 probe.win32: add /usr/include/borland path truncation workaround
|
||||
02-12-10 iffe.sh: add <&$nullin >&$nullout to checkread() $cc
|
||||
02-12-06 probe.win32: fix inlcude => include typo, add lcc lib
|
||||
probe.win32: CC.MAKE.OPTIONS = nativepp=0
|
||||
02-12-04 mamake.c: fix ${foo-bar} to expand foo if defined
|
||||
02-11-28 probe.win32: add C++ and -I- CC.DIALECT checks
|
||||
02-11-26 package.sh: package release now checks for second level files
|
||||
02-11-22 package.sh: update action now uses HTTP/1.0
|
||||
02-11-21 probe.win32: update the vc include dir test
|
||||
02-11-20 make.probe: fix CC.LD.ORIGIN typo that expanded make var
|
||||
02-11-13 packahe.mk: fix list.install => list.installed typo
|
||||
02-11-12 make.probe: add CC.LD.ORIGIN for a.out origin dir relative dll search
|
||||
make.probe: add CC.LD.STRIP for link time a.out strip
|
||||
package.sh: fix package_use vs. PACKAGE_USE check
|
||||
02-10-24 WWW.mk: fix bug that required a :WWWBIN: assertion to post
|
||||
02-10-23 mamake.c: fix uninitialized time in make()
|
||||
ratz.c: fix meter buffer overflow
|
||||
02-10-20 package.sh: fix lib/probe/C/make/probe update test
|
||||
02-10-18 probe.win32: update for mingw
|
||||
make.probe: add bash workaround to SHELLMAGIC test
|
||||
package.sh: work around yet another Cygwin hassle
|
||||
02-10-17 iffe.sh: short circuit ID check for *[-+/\\]*
|
||||
02-10-08 regress.sh: unset FIGNORE to avoid rm . errors
|
||||
package.sh: unset FIGNORE to avoid rm . errors
|
||||
package.sh: $CC must at least compile and executable hello world
|
||||
02-10-04 package.sh: $INSTALLROOT/lib/package/tgz=>$PACKAGEROOT/lib/package/tgz
|
||||
package.mk: $(ED) => $(STDED), $(EDFLAGS) => $(STDEDFLAGS)
|
||||
iffe.sh: add identifier checks for tests that (implicitly) require them
|
||||
iffe.sh: disambiguate a few --config macros
|
||||
02-10-02 iffe.sh: fix shell=bsh `hdr a/b'
|
||||
02-09-30 package.sh: handle chmod of -* files
|
||||
package.sh: verify that $SHELL is Bourne compatible
|
||||
package.sh: tighten PACKAGE_USE logic PATH,LIBPATH,etc. validation
|
||||
iffe.sh: fix bug that didn't define mac variable on success
|
||||
02-09-22 package.sh: handle admin_action=ditto
|
||||
iffe.sh: --config sizeof(foo) macro is SIZEOF_foo
|
||||
iffe.sh: fix long.long test so it doesn't defeat UWIN "typ long.long"
|
||||
mamprobe.sh: convert $("foo") nmake string constants
|
||||
02-09-21 mamprobe.sh: "-" info-path writes probe info to stdout
|
||||
02-09-11 make.probe: move from nmake src to be part of mamprobe.sh
|
||||
mamprobe: generate from mamprobe.beg C.probe make.probe mamprobe.end
|
||||
mamake.c: pass cc absolute path to mamprobe
|
||||
package.sh: generate mamprobe -- yuk (at least it's confined to INIT)
|
||||
iffe.sh: lcl,nxt: drop default sys/ check
|
||||
ditto.sh: tw --logical by default; add --physical
|
||||
02-09-10 package.sh: SHELLMAGIC creeps into package too -- duh and fooey
|
||||
02-09-09 ditto.sh: test that remote .profile exists before sourcing
|
||||
02-09-06 package.sh: don't ditto nfs junk
|
||||
ditto.sh: --show now lists directory ops instead of enumerating all
|
||||
02-09-05 ditto.sh: add --remote={rsh|ssh}
|
||||
package.sh: add admin [[{rsh|ssh|-}]:]directory
|
||||
02-09-02 iffe.sh: change 'print -r --' to 'print -r -' for ksh86 compatibility
|
||||
02-09-01 cc.unix.mc68k: add for ancient 3b1
|
||||
02-08-22 package.sh: fix component() to test for components -- duh
|
||||
Makefile: add LICENSE:.DONTCARE to workaround mam
|
||||
02-08-11 iffe.sh: provide defaults for LD_* additions
|
||||
02-08-07 ratz.c: change -m to use * instead of non-portable inverse video
|
||||
02-07-17 mamprobe.sh: close tmp file in trap before rm for Cygwin
|
||||
package.sh: fix "type" to handle i1586 (P4)
|
||||
package.sh: add the view action
|
||||
02-06-28 package.sh: handle multiple packages for release action
|
||||
02-06-27 package.sh: catch sol*.sparc=>sol*.sun4 when CC=gcc
|
||||
02-06-14 package.sh: fix admin_action to not include qualifiers
|
||||
package.sh: fix help/html doc typo
|
||||
02-06-11 package.sh: fix ditto update doc to `PACKAGEROOT field matching *:*'
|
||||
02-06-07 WWW.mk: change substitute $("\n") to \n
|
||||
02-06-06 package.sh: clarify output streams for help/html
|
||||
02-05-22 mamake.c: fix executable file check to use (S_IXUSR|S_IXGRP|S_IXOTH)
|
||||
02-04-04 package.sh: fix update to differentiate *.sun4 and sun4
|
||||
02-03-27 package.sh: yacc/bison warning only if both missing
|
||||
02-03-24 mamake.c: all shell actions wrapped with -c to avoid #! problems
|
||||
02-03-23 package.sh: recover $PACKAGEROOT/bin/package if not in INIT package
|
||||
package.sh: precheck $CC, not `cc'
|
||||
package.sh: fix install to use pax -ps to preserve setuid/setgid
|
||||
package.sh: fix install to use list.installed for existing files only
|
||||
02-03-17 package.sh: fix PAX initialization that was sometimes omitted for read
|
||||
package.sh: fix update delta sync fetch
|
||||
02-02-14 iffe.sh: fix macro{ }end docs to include "
|
||||
iffe.sh: add dfn to extract #define from headers
|
||||
iffe.sh: handle nxt #include ok but no line sync
|
||||
iffe.sh: drop local header clash logic
|
||||
iffe.sh: add -X, --exclude=dir to exclude -I dirs
|
||||
iffe.sh: lcl,nxt now generate <...> headers instead of "..."
|
||||
package.sh: admin.db root dir matching -* disables host
|
||||
package.mk: fix package.src.pat typo -- too many )
|
||||
package.mk: add { :COVERS: :DESCRIPTION: :REQUIRES: }
|
||||
package.sh: handle { :COVERS: :DESCRIPTION: :REQUIRES: }
|
||||
Makefile: move proto.c generation to the proto component dir
|
||||
02-02-02 execrate.sh: add for .exe challenged Win32 systems/commands
|
||||
mamprobe.sh: add STD* commands/flags
|
||||
mamake.c: update mamprobe info when older than mamprobe executable
|
||||
package.sh: move ed/ex workaround to mamprobe.sh
|
||||
package.sh: fix `host type' bug that incorrectly assumed sun4 for sol
|
||||
package.sh: add execrate(1) hooks for challenged systems
|
||||
package.sh: add check for { cc ar nm yacc/bison } before make
|
||||
ratz.c: fix "rb" vs. "r" macro tests
|
||||
iffe.sh: add nxt, similar to lcl but defines _nxt_foo for #include
|
||||
iffe.sh,package.sh: remove variable from sccs,cvs ident strings -- duh
|
||||
02-01-24 C+probe: check CC.DYNAMIC to handle cc that accept but ignore -B*
|
||||
iffe.sh: handle 'mem struct.a.b'
|
||||
02-01-22 iffe.sh: cache (internal) `foo vs. struct foo' test results
|
||||
package.sh: uts.370 => uts.390
|
||||
02-01-18 package.sh: fix uts hosttype
|
||||
02-01-17 package.sh: add 'results failed ...' to list failures only
|
||||
package.sh: change ARCH internal var to all_types to avoid env conflict
|
||||
iffe.sh: fix hdr/lib precheck that missed some -- ouch
|
||||
iffe.sh: fix noexecute test that forgot to check compile first!
|
||||
02-01-15 ratz.c: fix path[] type typo
|
||||
02-01-01 package.mk: tighten license search
|
||||
02-01-08 package.sh: `pwd` => ${PWD:-`pwd`}
|
||||
package.mk: expand license file pattern match
|
||||
02-01-04 iffe.sh: fix `exp name "value"' bug that duped "value"
|
||||
iffe.sh: fix initial <sys/types.h> check to honor --config
|
||||
01-12-25 iffe.sh: fix bug where -o file restored old file
|
||||
01-12-23 package.mk: uniq the closure lists
|
||||
01-12-07 ratz.c: fix --meter to retain paths containing " -- "
|
||||
01-11-30 ratz.c: use sear_system() to execute; should work on all windows
|
||||
01-11-28 ratz.c: fix sear_rm_r() to check SetCurrentDirectory() status
|
||||
01-11-26 ditto.sh: drop n+=v for ksh compatibility
|
||||
01-11-21 ditto.sh: add rsync script replacement [hey, it works!]
|
||||
package.sh: add [ditto]:directory notation to admin.db
|
||||
01-10-31 package.sh: handle *.sum paths with embedded space
|
||||
package.sh: change executable() to onpath()
|
||||
package.sh: executable([!] foo) replaces test [!] -x foo (.exe hack)
|
||||
package.sh: add os2 fix to `host type'
|
||||
mamake.c: add .exe hack
|
||||
iffe.sh: fix intrinsic function lib test
|
||||
mamprobe.sh: update pic probe to match make.probe for linux.ia64
|
||||
01-10-30 package.sh: make action skeleton view now checks subdirs
|
||||
01-10-20 package.sh: don't recurse into leaf dirs matching $MAKESKIP
|
||||
package.mk: tarball package.notice replaces `license accepted' prompt
|
||||
package.sh: eliminate `license accepted' prompt
|
||||
package.sh: add update to download latest from a url
|
||||
package.sh: use builtin arithmetic when we know it's ksh
|
||||
iffe.sh: unkown -> unknown
|
||||
01-10-18 package.sh: convert to YYYY-MM-DD delta releases instead of NNNN
|
||||
package.mk: convert to YYYY-MM-DD delta releases instead of NNNN
|
||||
ratz.c: fix -m for paths containing \f\n\r\v
|
||||
01-10-16 ratz.c: _SEA_* => SEAR_*
|
||||
ratz.c: preserve stdin for sear_exec()
|
||||
ratz.c: add recursive sear_rm_r() to sear_exec() tmp dir cleanup
|
||||
01-10-10 mamprobe.sh: add mam_cc_SHELLMAGIC
|
||||
package.sh: add nfs wakeup call to admin to avoid stale file handles
|
||||
01-10-04 cc.darwin.ppc: -flat_namespace is not longer the default (huh)
|
||||
01-10-01 package make: prepend $INSTALLROOT/bin/ok to PATH
|
||||
package read: save cpy of bin/package when reading the INIT package
|
||||
mamprobe.sh: allow cc path with optional arguments
|
||||
01-09-24 Makefile,package.sh: add $INSTALLROOT/bin/.paths initialization
|
||||
01-09-19 package.mk: add recurse to list.package.*
|
||||
package.sh: bootstrap build nmake with _BLD_STATIC for _WIN32
|
||||
01-09-11 ratz.c: add _SEA_SKIP & _SEA_COMMAND for self extracting archives
|
||||
01-09-07 package.mk: fix output capture to not generate files names with spaces
|
||||
01-09-07 package.mk: fix delta release number search
|
||||
01-08-11 package.mk: handle single gz executable packages (e.g., for ksh)
|
||||
package.sh: fix package install to require nmake only if no *.sum
|
||||
iffe.sh: drop ancient menu and prompt actions; check ./hdr.h clash
|
||||
01-07-17 package: fix use cross compile test to generate files in /tmp
|
||||
01-06-27 ratz: handle hard and soft links if possible
|
||||
01-06-07 Makefile: fix :MAPLIB: for sco
|
||||
01-05-31 crossexec.sh: add
|
||||
iffe.sh: add -x crosstype to run crossexec
|
||||
iffe.sh: exp test now handles pass{}end fail{}end yes{}end no{}end
|
||||
package.sh: add package host canon external-host-type-name
|
||||
package.sh: fix `use USER' lookup for shells that support ~USER
|
||||
cc.*: add -dumpmachine to dump target HOSTTYPE
|
||||
01-05-18 iffe.sh: drop $HOME/tmp/t.sh debug trace -- oops
|
||||
01-05-01 mamake.c: scan() now handles :PACKAGE: foo:command
|
||||
01-04-26 *.sh: expand [a-z][A-Z][0-9] for non-contiguous character codes
|
||||
iffe.sh: fix run *.sh for shells that don't $* across . command
|
||||
cc.mvs.390: recode for /bin/sh
|
||||
01-04-25 package.mk: include non cc-g variants by default
|
||||
package.sh: *[._]* => *?[_.]* for mvs.390 /bin/sh
|
||||
01-04-24 TEST.mk: no tests for VARIANT=="DLL"
|
||||
01-04-22 package.mk,package.sh: tarball text members are ASCII encoded
|
||||
01-04-18 package.mk: allow package name to be the same as one of its components
|
||||
cc.mvs.390: handle .C .cpp .cxx
|
||||
cc.mvs.390: compensate for -o that does not overwrite
|
||||
01-04-01 regress: fix SAME that just skipped it -- we should regress regress!
|
||||
iffe: fix bug that didn't emit _hdr_foo for internal hdr tests
|
||||
iffe: fix lcl bug for cc -E that doesn't emit line syncs
|
||||
ratz: add ASCII=>EBCDIC conversion for text archive members
|
||||
mamake: fix buffer overlap bug that clobbered the probe file path
|
||||
01-03-17 iffe: handle : separator as first arg
|
||||
01-03-15 mamake.c,ratz.c,release.c: add <stdlib.h> and <string.h>
|
||||
01-02-26 iffe.sh: fix bug that omitted runtime #define for `mac' op
|
||||
01-02-22 cc.ibm.risc: handle SF_CLOSE clash in <sfio.h>
|
||||
01-02-14 cc.sgi.mips3,cc.sgi.mips4: handle -mips2 -mips3 -mips4 for cross cc
|
||||
C+probe: quote "$cc" when it's an argument!
|
||||
mamake: execute actions with $SHELL, ignored signals back to default
|
||||
package.sh: nmake check error output to /dev/null
|
||||
package.sh: fix INIT a.out updates for knr cc
|
||||
package.sh: package list now handles large tgz dirs
|
||||
package.sh: *-ok executables moved to ok/* for *.dll systems
|
||||
iffe.sh: change "exec >&-" to "exec >/dev/null" else Linux mkdir fails!
|
||||
mamake: handle `bind -lx [dontcare]'
|
||||
01-02-12 ratz.c: fix _PACKAGE_ast includes
|
||||
package.sh: $HOSTTYPE env overrides if $PACKAGEROOT/arch/$HOSTTYPE/
|
||||
package.sh: $CC ^HOSTTYPE=[A-Za-z_0-9.]*$ overrides HOSTTYPE
|
||||
iffe.sh: fix dat code that used previous $tmp.exe
|
||||
iffe.sh: fix dat code for _DLL imports
|
||||
01-02-09 iffe.sh: add copy() for shells with the disappearing here doc bug
|
||||
01-02-08 Makefile: guard against null $(CC.HOSTTYPE)
|
||||
01-02-06 Makefile: separate out cc,ld,ldd workarounds (so they will be packaged)
|
||||
01-02-02 package.sh: fix package use for $INSTALLROOT != */$HOSTTYPE
|
||||
package.sh: create intermediate recursion makefiles when needed
|
||||
package.sh: add $SECONDS to the DEBUG trace prompt
|
||||
01-01-01 ratz.c: #ifdef for UWIN ncc
|
||||
iffe.sh,package.sh: check PACKAGE_PATH for local installations
|
||||
package.sh: add psrinfo for osf.alpha host cpu
|
||||
package.sh: change pax --meter probe; some hang on /dev/tty
|
||||
package.sh: fix `install flat ARCH'
|
||||
mamake: eliminate loops from scan order
|
||||
C+probe: add probe_verbose -V for AIX cc=xlc
|
||||
cc.ibm.risc,ldd.ibm.risc: add
|
||||
package.mk: list refs to top-level licenses only
|
||||
package.mk: add local link table to change log html
|
||||
00-12-25 package.sh: `no package archives' is a hard error, duh
|
||||
package.sh: reorder host type logic for lame shells
|
||||
mamake.c: getcwd => getwd for NeXT -- how about posix==default guys
|
||||
iffe.sh: really gross workaround for NeXT -lposix stdout null's
|
||||
iffe.sh: handle cc -E that insists on compiling
|
||||
00-12-15 iffe.sh: ancient sh function call blows $*; call only when $# == 0
|
||||
*.sh: `getopts 2>/dev/null` => `(getopts)2>/dev/null` for ancient sh
|
||||
package.sh: fix LD_LIBRARY*_PATH initialization
|
||||
cc.next.m68k: add for _POSIX_SOURCE and linker multiply defined syms
|
||||
00-12-12 ratz: add --meter
|
||||
package.sh: a few VPATH fixes
|
||||
Makefile: don't override *.mips* cc if -version not accepted
|
||||
00-12-11 package.mk: *.inx now contains name=value
|
||||
00-12-07 package.sh: handle PC netscape . => _ pathname mangle
|
||||
WWW.mk: .tar.gz => .tgz
|
||||
00-11-27 package.sh: add checklicense() to do license checks at read time
|
||||
package.mk: change component list from preformat to table
|
||||
00-10-31 package.mk: *.pkg must assert closure
|
||||
package.mk: add cc- variants to list.package.binary
|
||||
package.sh: omit dups from package list
|
||||
package.sh: invalid arg gives one line Usage
|
||||
package.sh: relax checkaout checks for non-owners
|
||||
package.sh: package use sets NPROC if not already set or [01]
|
||||
proto.c: add $(INSTALLROOT)/include/ast hack
|
||||
00-10-26 WWW.mk: add .SOURCE rhs to :WWWPAGE:
|
||||
00-10-25 package: fix install
|
||||
package.mk: add list.install
|
||||
00-10-22 regress: fix VIEW to skip empty dirs
|
||||
00-10-19 package.mk: $(PACKAGEROOT)/bin/nmake => $(PACKAGEROOT)/bin/manmake
|
||||
iffe: validate #define identifiers
|
||||
00-10-18 C+probe: Mac OS X additions
|
||||
package: add DYLD_LIBRARY_PATH initialization
|
||||
add ldd.$(CC.HOSTTYPE)
|
||||
00-10-01 iffe: handle -I* -L* options
|
||||
00-09-21 mamake: add libxxx and xxx to makefile ordered prereqs
|
||||
00-09-19 C+probe: add probe_longlong
|
||||
00-09-11 package: drop manmake and $PACKAGEROOT/bin/nmake
|
||||
00-09-08 iffe: verify that $cc is a C compiler
|
||||
00-06-14 mamprobe: fix win32.* probe
|
||||
mamake: fix bug that used lower view path for generation
|
||||
package: don't clobber $PACKAGEROOT/bin/nmake
|
||||
00-06-01 C+probe: fix stdinclude *again*
|
||||
package: fix write delta source to use default pax format
|
||||
package: add disambiguating bias for sgi.mips3 over sgi.mips4
|
||||
package.mk: fix for directory content packages lib ast-locale
|
||||
00-05-01 iffe: fix invalid _LIB_ macro identifier
|
||||
00-04-11 C+probe: uniq stdinclude and stdlib, fix usrinclude
|
||||
00-04-01 regress: fix explicit OUTPUT bug that didn't compare with expected
|
||||
00-03-17 package: all archives are .tgz for binary download
|
||||
package: $(PACKAGEROOT)/LICENSES/* in source and binary archives
|
||||
package: implement install and verify actions
|
||||
iffe: add exp, pth file dir ..., fix lib - -lfoo, fix lib - - -la -lb
|
||||
iffe: -L* must affect LD_LIBRARY* hacks for .exe tests -- yuk
|
||||
package.mk: add *.pkg :INDEX:
|
||||
00-03-07 package: add admin action
|
||||
00-03-06 makefile: install optional make probe override script C+make+probe.lcl
|
||||
00-02-14 --- release 1.0 ---
|
||||
ratz: treat "foo/" as a dir, not a regular file
|
||||
package: clarify source and binary installation instructions
|
||||
package: fix so binary packages can install without cc
|
||||
package: "ratz" now a non-archive package (the only one) for bootstrap
|
||||
package: handle VPATH=a:b arg
|
||||
package.mk: "ratz" package adjustments
|
||||
Makefile: use :PACKAGE_INIT: to support binary INIT packages
|
||||
WWW.mk: add :WWWALL:
|
||||
C.probe: fix .so check that let .dll slip through
|
||||
iffe: fix config sh var assignment for HAVE_member_IN_struct
|
||||
iffe: fix config sh var assignment for symbol_DECLARED
|
||||
package: delay PATH export until dll hack exports complete
|
||||
package: don't forget binary package $(INSTALLROOT)/lib(32|64)
|
||||
package: add delta change log for source packages
|
||||
00-02-10 mamprobe: add mam_cc_DLLBIG
|
||||
package: fix spelling typos
|
||||
package: add html help output
|
||||
package.mk: beef up source and binary help => html
|
||||
00-02-08 package: mkdir man/man[138] in the new arch to cover MAM bug
|
||||
00-01-28 package,release: add -rcount to release
|
||||
package: fix Linux "host cpu" and "host rating"
|
||||
package: copy *.lic to $PACKAGEBIN for "make" and "write binary"
|
||||
package: fix 'release change log' case match
|
||||
00-01-24 package: add copyright action
|
||||
mamprobe: add -D_BLD_DLL to mam_cc_DLL
|
||||
00-01-11 package: tsort for package write
|
||||
package: early verification that $CC works
|
||||
package: add non-interactive command arg for use action
|
||||
proto: fix -C intermediate mkdir()
|
||||
mamprobe: unixware.i386 ksh workaround
|
||||
C.probe: move hosttype to C.probe (with unixware.i386 workaround)
|
||||
WWW.mk: fix mm2html option quoting
|
||||
WWW.mk: add .SCAN.mm
|
||||
WWW.mk: don't force static=1; grab dll's instead
|
||||
*.sh: fix getopts test to handle botched implementations like osf.alpha
|
||||
iffe.sh: fix read -r test
|
||||
99-12-25 iffe: tweak verbose messages
|
||||
iffe: hand code non-optget getopts parse
|
||||
iffe: fix bash quoting bug again
|
||||
iffe: do test -w . after option parse
|
||||
package: fix PACKAGEROOT search
|
||||
99-11-19 --- release 0.2 ---
|
||||
99-11-19 first working package & friends
|
||||
99-10-31 change from lib0ast to INIT; add MAM and package bootstrap
|
||||
hostinfo: gobbled by package
|
||||
99-10-01 iffe: add --config, yes{...}end no{...}end, fix read -r workaround
|
||||
99-09-27 iffe: add --all --verbose, --* set options
|
||||
99-09-22 regress: -v disables long line truncation
|
||||
99-09-11 WWW.mk: WWWDIR and MM2HTMLINFO are now lists searched in $(HOME)
|
||||
99-08-11 hostinfo: fix type sgi.mips4
|
||||
99-06-24 WWW.mk: add
|
||||
99-06-08 hostinfo.sh: ${TMPDIR:-/tmp}
|
||||
99-06-07 TEST.mk: add
|
||||
99-06-01 iffe: add `siz type' for _siz_type == sizeof(type)
|
||||
99-05-11 hostinfo,iffe,regress,use: long options
|
||||
99-05-01 C.probe: fix over aggressive stdinclude, e.g., /usr/include/machine
|
||||
99-04-01 hostinfo: sgi.mips? -o32 and -n32 checks
|
||||
iffe: check that . is writable
|
||||
99-03-17 hostinfo: fix for cc not found
|
||||
dl.c,hello.c,m.c: headers in conditionals to force .DONTCARE
|
||||
C.probe: extra check for include dirs pulled in by <sys/types.h>
|
||||
99-03-03 regress: add `UNIT - ...' for extra args
|
||||
Makefile: add (_hosttype_) prereq for cc
|
||||
99-01-23 hostinfo: tweak rating, use /proc/cpuinfo if there
|
||||
99-01-11 C.probe: shlib before lib, /usr before /
|
||||
98-12-25 iffe: work around win32.alpha intrinsic clash with -O
|
||||
98-11-11 regress: fix UNIT PATH lookup
|
||||
98-11-01 regress: add PROG
|
||||
98-10-01 hostinfo: add unixware.*
|
||||
use: export PACKAGE_*
|
||||
98-08-11 C.probe: add /usr/include check (for sco CC)
|
||||
hostinfo: handle UWIN uname update
|
||||
98-05-01 regress: fix bug sometimes didn't list last test
|
||||
98-04-01 hostinfo: add cc path arg
|
||||
hostinfo: now works with /bin/sh
|
||||
Makefile: strengthen -lm probe
|
||||
98-01-23 Makefile: check for -ldl -lm
|
||||
C.probe: handle gcc -v -E phony include dirs
|
||||
iffe: fix lcl by dropping sort -u -- we need the real first
|
||||
iffe: `mem x' to test if x is a non-opaque struct
|
||||
98-01-11 $(INSTALLROOT)/lib32 for sgi.mips3
|
||||
$(INSTALLROOT)/lib64 for sgi.mips4
|
||||
add cc.hp.pa
|
||||
98-01-01 cc.sgi.mips*: turn off ld library multiply defined
|
||||
97-10-11 regress: add VIEW function for locating data
|
||||
97-10-01 Makefile: -ldl test moved to libdll Makefile
|
||||
97-08-11 regress: add MOVE
|
||||
regress: add SAME
|
||||
regress: use getopts
|
||||
regress: `EXEC' repeats previous test
|
||||
97-07-17 use: tweak PATH and LIBPATH bootstrap order
|
||||
iffe: fix lcl bug that botched pathnames with embedded spaces
|
||||
97-06-12 iffe: add npt `needs prototype' test
|
||||
97-05-09 hostinfo: mvs.* => mvs.390
|
||||
Makefile: cc.$(_hosttype_) workaround installed here
|
||||
iffe: fix nolink{ ... }end
|
||||
iffe: add [no]static{ ... }end for static link test
|
||||
C.probe: _probe_PATH => _probe_export which must be eval'd
|
||||
97-04-01 use: _RLD_ROOT set too
|
||||
97-03-17 mm2html: changed inner loop
|
||||
mm2html: handle .if|.ie|.el, .so
|
||||
mm2html: handle different man styles
|
||||
mm2html: differentiate mm/man in some non-obvious cases
|
||||
hostinfo: r5000 is not mips4
|
||||
97-02-14 hostinfo: validate type with cc
|
||||
96-12-25 C.probe: UWIN tweaks
|
||||
iffe: use `...` instead of $(...) for alpha /bin/sh
|
||||
iffe: fix `typ' divide by 0
|
||||
iffe: `lcl' now drops X: prefix
|
||||
iffe: +l* -> -l*
|
||||
iffe: eval around ${...#%...} for BSD /bin/sh
|
||||
use: add sgi.mips LD_LIBRARY<abi>_PATH variants
|
||||
use: add -e to list exports
|
||||
iffe: lcl leaves leading [a-zA-Z]: for DOS
|
||||
iffe: fix no{link|output|execute} logic
|
||||
C.probe: don't automatically add /usr/include for non-hosted compilers
|
||||
C.probe: don't automatically place /usr/include last
|
||||
C.probe: check gcc style -v -E for stdinclude usrinclude
|
||||
96-11-28 iffe: check BASH_VERSION for IFS botch
|
||||
iffe: typ long.xxx only if sizeof(long xxx) != sizeof(xxx)
|
||||
hostinfo: fix sgi.mips[234] tests
|
||||
hostinfo: fix ncr.i386 tests
|
||||
96-10-31 iffe: work around old bsh here doc bug by running separate sh
|
||||
96-10-11 iffe: *.iffe and *.iff for iffe src files
|
||||
hostinfo: tighten sgi.mips CPU type check
|
||||
96-10-01 C.probe: add probe_libdir to catch alpha /usr/shlib
|
||||
96-09-17 iffe: fix typ bug that failed for single ID types!
|
||||
96-08-31 hostinfo: handle recent SGI hinv CPU changes
|
||||
96-07-17 make sure sizeof(long xxx)>sizeof(xxx) for typ long.xxx
|
||||
96-05-09 C.probe: drop multiple / in stdinclude
|
||||
96-02-29 use: package root must have bin and lib subdir
|
||||
mm2html: add
|
||||
C.probe: probe_members += -whole-archive for gcc
|
||||
iffe: add + fix the blasted `...'...\\...'...`
|
||||
96-01-31 use: add pkg dir
|
||||
hostinfo: add tandem
|
||||
96-01-01 hostinfo: windows_nt|windows[0-9][0-9] -> win32
|
||||
95-11-24 hostinfo: linux-aout.* for non-ELF Linux
|
||||
95-11-11 use: add AIX LIBPATH
|
||||
95-10-11 hostinfo: no args prints type
|
||||
95-08-11 use: add
|
||||
95-05-09 save original PATH in _probe_PATH
|
||||
beef up library dir probe
|
||||
95-04-01 use c source suffix if it still preserves the dialect
|
||||
add hostinfo
|
||||
add lib/hostinfo/typemap user type map
|
||||
add sol.sun4 CPU count
|
||||
fix C.probe to properly handle C/C++ combined compiler drivers
|
||||
add NeXT to hostinfo
|
||||
bummer: mach has /usr/bin/hostinfo
|
||||
95-03-19 fix dialect executable test
|
||||
95-03-19 --- release 0.0 ---
|
||||
9
cde/programs/dtksh/ksh93/src/cmd/INIT/ar.ibm.risc
Executable file
9
cde/programs/dtksh/ksh93/src/cmd/INIT/ar.ibm.risc
Executable file
@@ -0,0 +1,9 @@
|
||||
: ar requires a non-standard option to work : 2009-10-06 :
|
||||
|
||||
op=$1
|
||||
shift
|
||||
case $op in
|
||||
-*) ;;
|
||||
*) op=-$op ;;
|
||||
esac
|
||||
/usr/bin/ar -Xany "$op" "$@"
|
||||
9
cde/programs/dtksh/ksh93/src/cmd/INIT/ar.ibm.risc-64
Executable file
9
cde/programs/dtksh/ksh93/src/cmd/INIT/ar.ibm.risc-64
Executable file
@@ -0,0 +1,9 @@
|
||||
: ar requires a non-standard option to work : 2022-01-14 :
|
||||
|
||||
op=$1
|
||||
shift
|
||||
case $op in
|
||||
-*) ;;
|
||||
*) op=-$op ;;
|
||||
esac
|
||||
/usr/bin/ar -X64 "$op" "$@"
|
||||
13
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.hp.ia64
Executable file
13
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.hp.ia64
Executable file
@@ -0,0 +1,13 @@
|
||||
: hp.ia64 cc wrapper for reasonable ANSI C defaults : 2011-01-25 :
|
||||
|
||||
[ /usr/bin/cc -ef /usr/ccs/bin/cc ] || exit 1
|
||||
|
||||
: bundled cc -- really, in the face of gcc you ship a subpar /usr/bin/cc? :
|
||||
|
||||
HOSTTYPE=hp.ia64
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
/usr/bin/cc -D_HPUX_SOURCE -D_INCLUDE__STDC_A1_SOURCE -D_INCLUDE_XOPEN_SOURCE_500 "$@"
|
||||
13
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.hp.pa
Executable file
13
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.hp.pa
Executable file
@@ -0,0 +1,13 @@
|
||||
: hp.pa cc wrapper for reasonable ANSI C defaults : 2004-02-29 :
|
||||
|
||||
HOSTTYPE=hp.pa
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
_AST_CC_hp_pa_DEFAULT=${_AST_CC_hp_pa_DEFAULT-"+DAportable"}
|
||||
|
||||
/opt/ansic/bin/cc -Ae +e -Wl,+s $_AST_CC_hp_pa_DEFAULT \
|
||||
${INSTALLROOT:+-Wl,+cdp,${INSTALLROOT}/lib/:} \
|
||||
-Wl,+vnocompatwarnings "$@"
|
||||
11
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.hp.pa64
Executable file
11
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.hp.pa64
Executable file
@@ -0,0 +1,11 @@
|
||||
: hp.pa64 cc wrapper for reasonable ANSI C defaults : 2001-02-11 :
|
||||
|
||||
HOSTTYPE=hp.pa64
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
/opt/ansic/bin/cc +D2.0W -Ae +e -Wl,+s \
|
||||
${INSTALLROOT:+-Wl,+cdp,${INSTALLROOT}/lib/:} \
|
||||
-Wl,+vnocompatwarnings "$@"
|
||||
63
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.ibm.risc
Executable file
63
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.ibm.risc
Executable file
@@ -0,0 +1,63 @@
|
||||
: cc wrapper for AIX RISC xlc : 2012-04-17 :
|
||||
|
||||
hosttype=ibm.risc
|
||||
|
||||
case $HOSTTYPE in
|
||||
$hosttype-64)
|
||||
case " $* " in
|
||||
*" -q64 "*) ;;
|
||||
*) set -- -q64 "$@" ;;
|
||||
esac
|
||||
;;
|
||||
*) case " $* " in
|
||||
*" -q64 "*) HOSTTYPE=$hosttype-64 ;;
|
||||
*) HOSTTYPE=$hosttype ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*)
|
||||
echo $HOSTTYPE
|
||||
exit
|
||||
;;
|
||||
esac
|
||||
|
||||
bin=/usr/vac/bin
|
||||
cc=$bin/xlc
|
||||
|
||||
ccflags="-brtl -qhalt=e -qsuppress=1506-224:1506-507"
|
||||
case " $@ " in
|
||||
*" -G "*)
|
||||
ccflags="$ccflags -berok"
|
||||
;;
|
||||
esac
|
||||
if test -x $bin/c99
|
||||
then # the xlc optimizer vintage that supports c99 is flawed and causes the AST build to fail #
|
||||
case " $* " in
|
||||
*" -O "*)
|
||||
set '' "$@" ''
|
||||
shift
|
||||
while :
|
||||
do a=$1
|
||||
shift
|
||||
case $a in
|
||||
'') break ;;
|
||||
-O) ;;
|
||||
*) set '' "$@" $a ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
;;
|
||||
esac
|
||||
$cc $ccflags "$@"
|
||||
code=$?
|
||||
else export PATH=/bin:$PATH LIBPATH=/usr/lib:/lib
|
||||
ccflags="$ccflags -blibpath:$LIBPATH"
|
||||
fi
|
||||
$cc $ccflags "$@"
|
||||
code=$?
|
||||
case $code in
|
||||
127|255) code=1 ;;
|
||||
esac
|
||||
exit $code
|
||||
36
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.ibm.risc.gcc
Executable file
36
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.ibm.risc.gcc
Executable file
@@ -0,0 +1,36 @@
|
||||
: cc wrapper for AIX RISC gcc : 2012-04-17 :
|
||||
|
||||
hosttype=ibm.risc
|
||||
|
||||
case $HOSTTYPE in
|
||||
$hosttype-64)
|
||||
case " $* " in
|
||||
*" -maix64 "*) ;;
|
||||
*) set -- -maix64 "$@" ;;
|
||||
esac
|
||||
;;
|
||||
*) case " $* " in
|
||||
*" -maix64 "*) HOSTTYPE=$hosttype-64 ;;
|
||||
*) HOSTTYPE=$hosttype ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*)
|
||||
echo $HOSTTYPE
|
||||
exit
|
||||
;;
|
||||
esac
|
||||
|
||||
cc=gcc
|
||||
ccflags=
|
||||
|
||||
case " $@ " in
|
||||
*" -shared "*)
|
||||
ccflags="$ccflags -shared -Wl,-G -Wl,-berok"
|
||||
;;
|
||||
*) ccflags="-Wl,-brtl"
|
||||
;;
|
||||
esac
|
||||
$cc $ccflags "$@"
|
||||
81
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.lynxos.i386
Executable file
81
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.lynxos.i386
Executable file
@@ -0,0 +1,81 @@
|
||||
: lynxos.i386 cc wrapper with -dynamic default : 2005-02-14 :
|
||||
|
||||
HOSTTYPE=lynxos.i386
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=gcc
|
||||
|
||||
link=1
|
||||
static=0
|
||||
set . "$@" /../
|
||||
while :
|
||||
do shift
|
||||
case $1 in
|
||||
/../) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
*.[cChHiI]|*.[cChHiI][pPxX][pPxX])
|
||||
set . -D__NO_INCLUDE_WARN__ -I/sys/include/kernel -I/sys/include/family/x86 "$@"
|
||||
shift
|
||||
break
|
||||
;;
|
||||
-o) case $2 in
|
||||
/../) ;;
|
||||
*) x=$1
|
||||
shift
|
||||
set . "$@" "$x"
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-static)static=1
|
||||
;;
|
||||
-l*) case $static in
|
||||
0) static=n
|
||||
set . -L/lib/shlib "$@"
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-[cE]) link=0
|
||||
;;
|
||||
esac
|
||||
x=$1
|
||||
shift
|
||||
set . "$@" "$x"
|
||||
done
|
||||
while :
|
||||
do case $1 in
|
||||
/../) shift
|
||||
break
|
||||
;;
|
||||
-l*) case $static in
|
||||
0) static=n
|
||||
set . -L/lib/shlib "$@"
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-[cE]) link=0
|
||||
;;
|
||||
esac
|
||||
x=$1
|
||||
shift
|
||||
set . "$@" "$x"
|
||||
shift
|
||||
done
|
||||
case $link:$static in
|
||||
1:0) static=n ;;
|
||||
esac
|
||||
case $static in
|
||||
n) specs=/tmp/cc$$.specs
|
||||
trap 'status=$?; rm -f $specs; exit $status' 0 1 2
|
||||
echo '*link: %{shared:-shared} %{static:-static} %{mshared|shared: %{static: %eerror: -shared and -static may not be combined. }}' > $specs
|
||||
$cc -specs=$specs "$@"
|
||||
;;
|
||||
*) $cc "$@"
|
||||
;;
|
||||
esac
|
||||
85
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.lynxos.ppc
Executable file
85
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.lynxos.ppc
Executable file
@@ -0,0 +1,85 @@
|
||||
: lynxos.ppc cc wrapper with -mshared default : 2005-06-01 :
|
||||
|
||||
HOSTTYPE=lynxos.ppc
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=gcc
|
||||
|
||||
link=1
|
||||
static=0
|
||||
set . "$@" /../
|
||||
while :
|
||||
do shift
|
||||
case $1 in
|
||||
/../) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
*.[cChHiI]|*.[cChHiI][pPxX][pPxX])
|
||||
set . -D__NO_INCLUDE_WARN__ -I/sys/include/kernel -I/sys/include/family/ppc "$@"
|
||||
shift
|
||||
break
|
||||
;;
|
||||
-o) case $2 in
|
||||
/../) ;;
|
||||
*) x=$1
|
||||
shift
|
||||
set . "$@" "$x"
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-static)static=1
|
||||
;;
|
||||
-mshared)
|
||||
static=n
|
||||
continue
|
||||
;;
|
||||
-l*) case $static in
|
||||
0) static=n
|
||||
set . -L/lib/shlib "$@"
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-[cE]) link=0
|
||||
;;
|
||||
esac
|
||||
x=$1
|
||||
shift
|
||||
set . "$@" "$x"
|
||||
done
|
||||
while :
|
||||
do case $1 in
|
||||
/../) shift
|
||||
break
|
||||
;;
|
||||
-l*) case $static in
|
||||
0) static=n
|
||||
set . -L/lib/shlib "$@"
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-[cE]) link=0
|
||||
;;
|
||||
esac
|
||||
x=$1
|
||||
shift
|
||||
set . "$@" "$x"
|
||||
shift
|
||||
done
|
||||
case $link:$static in
|
||||
1:0) static=n ;;
|
||||
esac
|
||||
case $static in
|
||||
n) specs=/tmp/cc$$.specs
|
||||
trap 'status=$?; rm -f $specs; exit $status' 0 1 2
|
||||
echo '*link: %{shared:-shared} %{static:-static} %{mshared|shared: %{static: %eerror: -shared and -static may not be combined. }}' > $specs
|
||||
$cc -specs=$specs -mshared "$@"
|
||||
;;
|
||||
*) $cc "$@"
|
||||
;;
|
||||
esac
|
||||
279
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.mvs.390
Executable file
279
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.mvs.390
Executable file
@@ -0,0 +1,279 @@
|
||||
: mvs.390 cc wrapper for Unix message and exit code semantics : 2012-01-20 :
|
||||
|
||||
HOSTTYPE=mvs.390
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
ar=ar
|
||||
cc=/bin/c89
|
||||
CC=/bin/c++
|
||||
ccflags="-D_ALL_SOURCE -Wc,dll"
|
||||
objmax=60
|
||||
tmpfiles=
|
||||
unbotch=
|
||||
|
||||
# -n as *first* arg shows but does not do
|
||||
# -Wc,exportall => -Wl,dll
|
||||
# -Bdynamic => .c,.o dynamic
|
||||
# -Bstatic => .c,.o static
|
||||
# *.C => cc=$CC
|
||||
# *.cpp => cc=$CC
|
||||
# *.cxx => cc=$CC
|
||||
# no optimization until the optimizer is fixed:
|
||||
# -O dropped (no optimization)
|
||||
# -0 dropped (no optimization)
|
||||
# -1 -O (default level 1 optimization)
|
||||
# -2 -2 (maximal level 2 optimization)
|
||||
|
||||
let argc=0 cmp=0 dll=0 libc=0 dynamic=1 dynamic_objc=0 static_objc=0 relc=0 botched=0
|
||||
case $1 in
|
||||
-n) exec=print
|
||||
shift
|
||||
;;
|
||||
*) exec=
|
||||
;;
|
||||
esac
|
||||
export _CC_ACCEPTABLE_RC=1
|
||||
export _C89_ACCEPTABLE_RC=$_CC_ACCEPTABLE_RC
|
||||
export _CXX_ACCEPTABLE_RC=$_CC_ACCEPTABLE_RC
|
||||
case " $* " in
|
||||
*.C" "*)let dll=2
|
||||
cc=$CC
|
||||
export _CXXSUFFIX=C
|
||||
;;
|
||||
*.cpp" "*)let dll=2
|
||||
cc=$CC
|
||||
export _CXXSUFFIX=cpp
|
||||
;;
|
||||
*.cxx" "*)let dll=2
|
||||
cc=$CC
|
||||
export _CXXSUFFIX=cxx
|
||||
;;
|
||||
esac
|
||||
exe=
|
||||
xxx=
|
||||
while :
|
||||
do case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
arg=$1
|
||||
case $arg in
|
||||
-1) arg=-O
|
||||
;;
|
||||
-Bdynamic)
|
||||
let dynamic=1
|
||||
;;
|
||||
-Bstatic)
|
||||
let dynamic=0
|
||||
;;
|
||||
-c) let cmp=1
|
||||
;;
|
||||
-D_ALL_SOURCE|-D_ALL_SOURCE=*)
|
||||
arg=
|
||||
;;
|
||||
-D*[\ \(\)]*)
|
||||
arg=${arg#-D}
|
||||
botch_macro[botched]=${arg%%=*}
|
||||
botch_value[botched]=${arg#*=}
|
||||
let botched=botched+1
|
||||
arg=
|
||||
;;
|
||||
-o) argv[argc]=$arg
|
||||
let argc=argc+1
|
||||
shift
|
||||
arg=$1
|
||||
exe=$arg
|
||||
rm -f "$exe"
|
||||
;;
|
||||
-[O0]) arg=
|
||||
;;
|
||||
-Wc,dll)arg=
|
||||
;;
|
||||
-Wc,exportall)
|
||||
let dll=1
|
||||
;;
|
||||
-Wl,dll)arg=
|
||||
let dll=1
|
||||
;;
|
||||
*.c) if [[ $botched != 0 ]]
|
||||
then src=$arg
|
||||
arg=${arg##*/}
|
||||
unbotch="$unbotch ${arg%.c}.o"
|
||||
arg=__$arg
|
||||
tmpfiles="$tmpfiles $arg"
|
||||
{
|
||||
while [[ $botched != 0 ]]
|
||||
do let botched=botched-1
|
||||
print -r -- "#define ${botch_macro[botched]} ${botch_value[botched]}"
|
||||
done
|
||||
cat $src
|
||||
} > $arg
|
||||
fi
|
||||
;;
|
||||
*.o) if test 0 != $dynamic
|
||||
then let dynamic_objc=dynamic_objc+1
|
||||
else let static_objc=static_objc+1
|
||||
fi
|
||||
;;
|
||||
*.x) a=${arg%.x}.a
|
||||
if test -f $a
|
||||
then argv[argc]=$a
|
||||
let argc=argc+1
|
||||
xxx=-Wl,dll
|
||||
case $a in
|
||||
ast.a|*/ast.a)
|
||||
cc="$CC -u_ast_init"
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
case $arg in
|
||||
?*) argv[argc]=$arg
|
||||
let argc=argc+1
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
|
||||
tmp=/tmp/cc.${USER:-$LOGNAME}.$$.err
|
||||
tmpfiles="$tmp $tmpfiles"
|
||||
|
||||
# if any dll .o's are in .a then a .x gets generated
|
||||
# but the native cc doesn't jcl for the .x
|
||||
# -Wl,dll does that, so we nuke the .x and keep the exe
|
||||
|
||||
test 0 != $dll && xxx=
|
||||
case $xxx in
|
||||
?*) case $exe in
|
||||
?*) a=${exe##*/}
|
||||
a=${a%.*}
|
||||
case $exe in
|
||||
*/*) tmpfiles="$tmpfiles ${exe%/*}/${a}.x" ;;
|
||||
*) tmpfiles="$tmpfiles ${a}.x" ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
if test 0 != $dll
|
||||
then if test 0 != $cmp
|
||||
then xxx="-D_SHARE_EXT_VARS $xxx"
|
||||
else xxx="-Wl,dll $xxx"
|
||||
fi
|
||||
fi
|
||||
set -- $xxx "${argv[@]}"
|
||||
|
||||
# can't handle more than objmax .o's
|
||||
# -r into intermediates doesn't work, but the cat trick does
|
||||
# also, the runtime dll file must be executable but cc -Wl,dll forgets
|
||||
|
||||
if test 0 != $dll -a \( $dynamic_objc -ge $objmax -o 0 != $static_objc \)
|
||||
then unset argv
|
||||
argc=0 libc=0 dynamic=1 dynamic_objc=0 static_objc=0 endc=0
|
||||
while :
|
||||
do case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
-Bdynamic)
|
||||
let dynamic=1
|
||||
;;
|
||||
-Bstatic)
|
||||
let dynamic=0
|
||||
;;
|
||||
*.o) if test 0 != $dynamic
|
||||
then dynamic_objv[dynamic_objc]=$1
|
||||
let dynamic_objc=dynamic_objc+1
|
||||
else static_objv[static_objc]=$1
|
||||
let static_objc=static_objc+1
|
||||
fi
|
||||
;;
|
||||
-l*) libv[libc]=$1
|
||||
let libc=libc+1
|
||||
;;
|
||||
-o) argv[argc]=$1
|
||||
let argc=argc+1
|
||||
shift
|
||||
argv[argc]=$1
|
||||
let argc=argc+1
|
||||
exe=$1
|
||||
;;
|
||||
*) argv[argc]=$1
|
||||
let argc=argc+1
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
if test 0 != $static_objc
|
||||
then case $exe in
|
||||
?*) $exec $ar cr ${exe%.*}.a "${static_objv[@]}" ;;
|
||||
esac
|
||||
fi
|
||||
if test 0 != $dynamic_objc
|
||||
then cat=0.0.o
|
||||
tmpfiles="$tmpfiles $cat"
|
||||
cat "${dynamic_objv[@]}" > $cat || exit
|
||||
else cat=
|
||||
fi
|
||||
set -- "${argv[@]}" $cat "${libv[@]}"
|
||||
fi
|
||||
|
||||
# grep through the warning/error messages to get the true exit code
|
||||
# some annoying messages are dropped while we're at it
|
||||
|
||||
trap 'rm -f $tmpfiles' 0 1 2 15
|
||||
$exec $cc $ccflags "$@" 2> $tmp
|
||||
code=$?
|
||||
for i in $unbotch
|
||||
do test -f __$i && mv __$i $i
|
||||
done
|
||||
typeset -l lc
|
||||
while :
|
||||
do if read line
|
||||
then lc=$line
|
||||
case $lc in
|
||||
*'#include file'*'not found'*)
|
||||
code=1
|
||||
;;
|
||||
*'#pragma ignored'*)
|
||||
continue
|
||||
;;
|
||||
*'definition side file is not defined'*)
|
||||
continue
|
||||
;;
|
||||
*'step ended with return code 4'*)
|
||||
code=0
|
||||
continue
|
||||
;;
|
||||
*'step ended with return code'*)
|
||||
code=1
|
||||
continue
|
||||
;;
|
||||
*'try again'*)
|
||||
code=1
|
||||
continue
|
||||
;;
|
||||
*'unknown preprocessing directive'*)
|
||||
code=1
|
||||
case $lc in
|
||||
'warning '*)
|
||||
set -- $line
|
||||
shift
|
||||
line=$*
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
*'unresolved writable static references are detected'*)
|
||||
test 0 != $dll && continue
|
||||
;;
|
||||
esac
|
||||
else case $code:$exe in
|
||||
0:?*) $exec chmod +x $exe ;;
|
||||
esac
|
||||
exit $code
|
||||
fi
|
||||
echo "$line" >&2
|
||||
done < $tmp
|
||||
158
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.next.i386
Executable file
158
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.next.i386
Executable file
@@ -0,0 +1,158 @@
|
||||
: next.i386 cc wrapper for Unix message and exit code semantics : 1995-05-09 :
|
||||
|
||||
HOSTTYPE=next.i386
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
# 1995-05-09 -lposix termios.o waitpid.o setpgid.o *do* work
|
||||
# 1994-11-04 -posix has old redirection hole bug
|
||||
# -D_POSIX_SOURCE requires <sys/dirent.h> manual fixes
|
||||
# libexpr/exeval.c bombs -O, no -O ok
|
||||
|
||||
command=cc
|
||||
cc="/bin/cc -D_POSIX_SOURCE"
|
||||
nooptimize="exeval"
|
||||
|
||||
# first check $INSTALLROOT/botch
|
||||
|
||||
case $INSTALLROOT in
|
||||
"") echo "$command: INSTALLROOT: must be defined and exported" >&2; exit 1 ;;
|
||||
esac
|
||||
if test ! -d $INSTALLROOT/botch -a -dryrun != "$1"
|
||||
then if mkdir $INSTALLROOT/botch
|
||||
then : ok to initialize
|
||||
else echo "$command: $INSTALLROOT/botch must be initialized by the owner of $INSTALLROOT" 2>&1
|
||||
exit 1
|
||||
fi
|
||||
(
|
||||
cd $INSTALLROOT/botch
|
||||
dir=.
|
||||
for i in lib . include sys
|
||||
do case $i in
|
||||
.) dir=.
|
||||
;;
|
||||
*) case $i in
|
||||
/*) dir=$i ;;
|
||||
*) dir=$dir/$i ;;
|
||||
esac
|
||||
test -d $dir || mkdir $dir
|
||||
;;
|
||||
esac
|
||||
done
|
||||
if test ! -f include/sys/dirent.h
|
||||
then echo "#include <dirent.h>" > tmp.c
|
||||
header=`$cc -E tmp.c | sed -e '/^#[ ]*1[ ].*\/sys\/dirent\.h"/!d' -e 's/.*"\(.*\)".*/\1/'`
|
||||
sed -e 's/[ ]off_t[ ][ ]*d_off[ ]*;//' $header > include/sys/dirent.h
|
||||
fi
|
||||
if test ! -f lib/libbotch.a
|
||||
then lipo /usr/lib/libposix.a -thin i386 -output tmp.a
|
||||
ar x tmp.a termios.o waitpid.o setpgid.o
|
||||
ar cr lib/libbotch.a *.o
|
||||
ranlib lib/libbotch.a
|
||||
fi
|
||||
rm -f *.[aco]
|
||||
)
|
||||
fi
|
||||
|
||||
# now slip in our args
|
||||
|
||||
case $nooptimize in
|
||||
"") nooptimize=.
|
||||
;;
|
||||
*) optimize=
|
||||
for arg in $nooptimize
|
||||
do case $optimize in
|
||||
?*) optimize="$optimize|" ;;
|
||||
esac
|
||||
optimize="$optimize$arg.[ci]|*/$arg.[ci]"
|
||||
done
|
||||
nooptimize=$optimize
|
||||
;;
|
||||
esac
|
||||
set . "$@" .
|
||||
noexec=
|
||||
library=
|
||||
local=
|
||||
optimize=
|
||||
verbose=
|
||||
while :
|
||||
do shift
|
||||
arg=$1
|
||||
shift
|
||||
case $arg in
|
||||
.) break
|
||||
;;
|
||||
-[cES]) library=1
|
||||
;;
|
||||
-O) optimize=1
|
||||
;;
|
||||
-v) verbose=1
|
||||
;;
|
||||
-dryrun)noexec=1
|
||||
verbose=1
|
||||
;;
|
||||
-I-) case $local in
|
||||
"") local=1
|
||||
set . "$@" -I$INSTALLROOT/botch/include -I- -I$INSTALLROOT/botch/include
|
||||
;;
|
||||
*) set . "$@" -I- -I$INSTALLROOT/botch/include
|
||||
;;
|
||||
esac
|
||||
continue
|
||||
;;
|
||||
-I*|*.[cChHiI]|*.[cChHiI][pPxX][pPxX])
|
||||
case $optimize in
|
||||
1) eval "
|
||||
case \$arg in
|
||||
$nooptimize)
|
||||
optimize=0
|
||||
;;
|
||||
esac
|
||||
"
|
||||
;;
|
||||
esac
|
||||
case $local in
|
||||
"") local=1
|
||||
set . "$@" -I$INSTALLROOT/botch/include "$arg"
|
||||
continue
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
-last|*/libast.a)
|
||||
case $library in
|
||||
"") library=1
|
||||
set . "$@" $INSTALLROOT/botch/lib/libbotch.a "$arg" $INSTALLROOT/botch/lib/libbotch.a
|
||||
continue
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
set . "$@" "$arg"
|
||||
done
|
||||
case $library in
|
||||
"") set . "$@" $INSTALLROOT/botch/lib/libbotch.a
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
case $optimize in
|
||||
0) set . "$@" .
|
||||
while :
|
||||
do shift
|
||||
arg=$1
|
||||
shift
|
||||
case $arg in
|
||||
.) break ;;
|
||||
-O) set . "$@" ;;
|
||||
*) set . "$@" "$arg" ;;
|
||||
esac
|
||||
done
|
||||
;;
|
||||
esac
|
||||
case $verbose in
|
||||
?*) echo $cc "$@" ;;
|
||||
esac
|
||||
case $noexec in
|
||||
"") $cc "$@" ;;
|
||||
esac
|
||||
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.next.m68k
Executable file
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.next.m68k
Executable file
@@ -0,0 +1,9 @@
|
||||
: next.m68k cc wrapper that enables POSIX : 2000-12-15 :
|
||||
|
||||
HOSTTYPE=next.m68k
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
/bin/cc -posix -Xlinker -m "$@"
|
||||
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.osf.alpha
Executable file
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.osf.alpha
Executable file
@@ -0,0 +1,9 @@
|
||||
: osf.alpha cc wrapper with reasonable namespace defaults : 1998-02-04 :
|
||||
|
||||
HOSTTYPE=osf.alpha
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
/usr/bin/cc -std -Dnoshare=_noshare_ -Dreadonly=_readonly_ "$@"
|
||||
26
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.pentium4
Executable file
26
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.pentium4
Executable file
@@ -0,0 +1,26 @@
|
||||
: linux.pentium4 gcc wrapper : 2005-10-24 :
|
||||
|
||||
HOSTTYPE=linux.pentium4
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
case " $* " in
|
||||
*" -O "*)
|
||||
set -A argv -- "$@"
|
||||
set -A nargv
|
||||
integer i j
|
||||
for ((i = j = 0; i < ${#argv[@]}; i++))
|
||||
do if [[ ${argv[i]} == -O ]]
|
||||
then nargv[j++]=-O3
|
||||
nargv[j++]=-march=pentium4
|
||||
else nargv[j++]=${argv[i]}
|
||||
fi
|
||||
done
|
||||
gcc "${nargv[@]}"
|
||||
exit
|
||||
;;
|
||||
esac
|
||||
|
||||
gcc "$@"
|
||||
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sco.i386
Executable file
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sco.i386
Executable file
@@ -0,0 +1,9 @@
|
||||
: sco.i386 cc wrapper with reasonable binary and namespace : 1998-02-04 :
|
||||
|
||||
HOSTTYPE=sco.i386
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
/bin/cc -b elf -D_SVID3 "$@"
|
||||
68
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips2
Executable file
68
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips2
Executable file
@@ -0,0 +1,68 @@
|
||||
: sgi.mips2 cc wrapper that generates MIPS II binaries : 2006-02-14 :
|
||||
|
||||
HOSTTYPE=sgi.mips2
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=/usr/bin/cc
|
||||
debug=
|
||||
dynamic=-G0
|
||||
flags=-OPT:Olimit=0
|
||||
ignore=1685,733,1048,1155,1171,1184,1209,1343,3169,3170,3433
|
||||
ldignore=15,84,85,13
|
||||
optimize=
|
||||
|
||||
case $_AST_cc_OPTIONS in
|
||||
?*) eval $_AST_cc_OPTIONS ;;
|
||||
esac
|
||||
case $ignore in
|
||||
?*) ignore="-woff $ignore" ;;
|
||||
esac
|
||||
case $ldignore in
|
||||
?*) ifs=$IFS
|
||||
IFS=,
|
||||
v=$ldignore
|
||||
ldignore=
|
||||
for i in $v
|
||||
do ldignore="$ldignore -Wl,-woff,$i"
|
||||
done
|
||||
IFS=$ifs
|
||||
;;
|
||||
esac
|
||||
case $debug in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-g*) case $debug in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$debug
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
case $optimize in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-O*) case $optimize in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$optimize
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
|
||||
if test -d /usr/lib32
|
||||
then LD_LIBRARYN32_PATH=/lib32 $cc -32 -mips2 $flags $dynamic $ldignore $ignore "$@"
|
||||
else $cc -mips2 $flags $ignore "$@"
|
||||
fi
|
||||
110
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips3
Executable file
110
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips3
Executable file
@@ -0,0 +1,110 @@
|
||||
: sgi.mips3 cc wrapper that generates MIPS III binaries : 2007-04-27 :
|
||||
|
||||
HOSTTYPE=sgi.mips3
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
# ld:
|
||||
# 15
|
||||
# 84
|
||||
# 85
|
||||
# 134
|
||||
# cc:
|
||||
# 1685 (first!!) Invalid error number: X.
|
||||
# 1035 cpp #error -- 0 exit status by default - botch botch botch
|
||||
# 1048
|
||||
# 1155
|
||||
# 1171 The indicated expression has no effect.
|
||||
# 1184 "=" is used where where "==" may have been intended.
|
||||
# 1209 The controlling expression is constant.
|
||||
# 1343
|
||||
# 3169 X not marked as intrinsic because it is not yet declared
|
||||
# 3170 X not marked as intrinsic because it is not yet declared
|
||||
# 3421 expecting function name #pragma intrinsic (X)
|
||||
# 3433 X not marked as intrinsic because it is not yet declared
|
||||
# 3434 X not marked as intrinsic because it is not yet declared
|
||||
|
||||
cc=/usr/bin/cc
|
||||
debug=
|
||||
dynamic=-G0
|
||||
flags=-OPT:Olimit=0
|
||||
fatal=1035
|
||||
ignore=1685,733,1048,1155,1171,1184,1209,1343,3169,3170,3421,3433,3434
|
||||
ldignore=15,84,85,13
|
||||
optimize=
|
||||
|
||||
case $_AST_cc_OPTIONS in
|
||||
?*) eval $_AST_cc_OPTIONS ;;
|
||||
esac
|
||||
case $fatal in
|
||||
?*) fatal="-diag_error $fatal" ;;
|
||||
esac
|
||||
case $ignore in
|
||||
?*) ignore="-woff $ignore" ;;
|
||||
esac
|
||||
case $ldignore in
|
||||
?*) ifs=$IFS
|
||||
IFS=,
|
||||
v=$ldignore
|
||||
ldignore=
|
||||
for i in $v
|
||||
do ldignore="$ldignore -Wl,-woff,$i"
|
||||
done
|
||||
IFS=$ifs
|
||||
;;
|
||||
esac
|
||||
case $debug in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-g*) case $debug in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$debug
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
case $optimize in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-O*) case $optimize in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$optimize
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
|
||||
case $1 in
|
||||
-mips2) if test -d /usr/lib32
|
||||
then LD_LIBRARYN32_PATH=/lib32 $cc -32 -mips2 $flags $dynamic $ldignore $ignore "$@"
|
||||
else $cc -mips2 $flags $ignore "$@"
|
||||
fi
|
||||
;;
|
||||
-mips4) case " $* " in
|
||||
*" -ldl "*)
|
||||
integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-ldl) ;;
|
||||
*) a[n++]=$i ;;
|
||||
esac
|
||||
done
|
||||
set -- ${a[@]}
|
||||
esac
|
||||
$cc -64 -mips4 $flags $dynamic $fatal $ldignore $ignore "$@"
|
||||
;;
|
||||
*) $cc -n32 -mips3 $flags $dynamic $fatal $ldignore $ignore "$@"
|
||||
;;
|
||||
esac
|
||||
65
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips3-o32
Executable file
65
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips3-o32
Executable file
@@ -0,0 +1,65 @@
|
||||
: sgi.mips3-o32 cc wrapper that generates MIPS III O32 binaries : 2006-02-14 :
|
||||
|
||||
HOSTTYPE=sgi.mips3-o32
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=/usr/bin/cc
|
||||
debug=
|
||||
dynamic=-G0
|
||||
flags=
|
||||
ignore=1685,733,1048,1155,1171,1184,1209,1343,3169,3170,3433
|
||||
ldignore=15,84,85,13
|
||||
optimize=
|
||||
|
||||
case $_AST_cc_OPTIONS in
|
||||
?*) eval $_AST_cc_OPTIONS ;;
|
||||
esac
|
||||
case $ignore in
|
||||
?*) ignore="-woff $ignore" ;;
|
||||
esac
|
||||
case $ldignore in
|
||||
?*) ifs=$IFS
|
||||
IFS=,
|
||||
v=$ldignore
|
||||
ldignore=
|
||||
for i in $v
|
||||
do ldignore="$ldignore -Wl,-woff,$i"
|
||||
done
|
||||
IFS=$ifs
|
||||
;;
|
||||
esac
|
||||
case $debug in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-g*) case $debug in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$debug
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
case $optimize in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-O*) case $optimize in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$optimize
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
|
||||
$cc -o32 -mips3 $flags $dynamic $ldignore $ignore "$@"
|
||||
90
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips4
Executable file
90
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips4
Executable file
@@ -0,0 +1,90 @@
|
||||
: sgi.mips4 cc wrapper that generates MIPS IV binaries : 2007-04-27 :
|
||||
|
||||
HOSTTYPE=sgi.mips4
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=/usr/bin/cc
|
||||
debug=
|
||||
dynamic=-G0
|
||||
flags=-OPT:Olimit=0
|
||||
fatal=1035
|
||||
ignore=1685,733,1048,1155,1171,1184,1209,1343,3169,3170,3433
|
||||
ldignore=15,84,85,13
|
||||
optimize=
|
||||
|
||||
case $_AST_cc_OPTIONS in
|
||||
?*) eval $_AST_cc_OPTIONS ;;
|
||||
esac
|
||||
case $fatal in
|
||||
?*) fatal="-diag_error $fatal" ;;
|
||||
esac
|
||||
case $ignore in
|
||||
?*) ignore="-woff $ignore" ;;
|
||||
esac
|
||||
case $ldignore in
|
||||
?*) ifs=$IFS
|
||||
IFS=,
|
||||
v=$ldignore
|
||||
ldignore=
|
||||
for i in $v
|
||||
do ldignore="$ldignore -Wl,-woff,$i"
|
||||
done
|
||||
IFS=$ifs
|
||||
;;
|
||||
esac
|
||||
case $debug in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-g*) case $debug in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$debug
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
case $optimize in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-O*) case $optimize in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$optimize
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
|
||||
case $1 in
|
||||
-mips2) if test -d /usr/lib32
|
||||
then LD_LIBRARYN32_PATH=/lib32 $cc -32 -mips2 $flags $dynamic $ldignore $ignore "$@"
|
||||
else $cc -mips2 $flags $ignore "$@"
|
||||
fi
|
||||
;;
|
||||
-mips3) $cc -n32 -mips3 $flags $dynamic $fatal $ldignore $ignore "$@"
|
||||
;;
|
||||
*) case " $* " in
|
||||
*" -ldl "*)
|
||||
integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-ldl) ;;
|
||||
*) a[n++]=$i ;;
|
||||
esac
|
||||
done
|
||||
set -- ${a[@]}
|
||||
esac
|
||||
$cc -64 -mips4 $flags $dynamic $fatal $ldignore $ignore "$@"
|
||||
;;
|
||||
esac
|
||||
65
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips4-n32
Executable file
65
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.sgi.mips4-n32
Executable file
@@ -0,0 +1,65 @@
|
||||
: sgi.mips4-n32 cc wrapper that generates MIPS IV N32 binaries : 2006-02-14 :
|
||||
|
||||
HOSTTYPE=sgi.mips4-n32
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=/usr/bin/cc
|
||||
debug=
|
||||
dynamic=-G0
|
||||
flags=
|
||||
ignore=1685,733,1048,1155,1171,1184,1209,1343,3169,3170,3433
|
||||
ldignore=15,84,85,13
|
||||
optimize=
|
||||
|
||||
case $_AST_cc_OPTIONS in
|
||||
?*) eval $_AST_cc_OPTIONS ;;
|
||||
esac
|
||||
case $ignore in
|
||||
?*) ignore="-woff $ignore" ;;
|
||||
esac
|
||||
case $ldignore in
|
||||
?*) ifs=$IFS
|
||||
IFS=,
|
||||
v=$ldignore
|
||||
ldignore=
|
||||
for i in $v
|
||||
do ldignore="$ldignore -Wl,-woff,$i"
|
||||
done
|
||||
IFS=$ifs
|
||||
;;
|
||||
esac
|
||||
case $debug in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-g*) case $debug in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$debug
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
case $optimize in
|
||||
?*) integer n=0
|
||||
for i
|
||||
do case $i in
|
||||
-O*) case $optimize in
|
||||
-) continue ;;
|
||||
esac
|
||||
i=$optimize
|
||||
;;
|
||||
esac
|
||||
a[n++]=$i
|
||||
done
|
||||
set -- ${a[@]}
|
||||
;;
|
||||
esac
|
||||
|
||||
$cc -n32 -mips4 $flags $dynamic $ldignore $ignore "$@"
|
||||
35
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.specialize
Executable file
35
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.specialize
Executable file
@@ -0,0 +1,35 @@
|
||||
: -O* specialization cc wrapper : 2011-11-11 :
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
cc=cc
|
||||
|
||||
CCREPLACE='' # these (possibly empty) options replace -O*
|
||||
CCALWAYS='' # these (possibly empty) options always set
|
||||
|
||||
case $CCREPLACE in
|
||||
'') ;;
|
||||
*) case " $* " in
|
||||
*" -O"*)
|
||||
set '' "$@" ''
|
||||
shift
|
||||
while :
|
||||
do a=$1
|
||||
shift
|
||||
case $a in
|
||||
'') break
|
||||
;;
|
||||
-O*) set '' "$@" $CCREPLACE
|
||||
;;
|
||||
*) set '' "$@" "$a"
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
$cc $CCALWAYS "$@"
|
||||
76
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.unix.mc68k
Executable file
76
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.unix.mc68k
Executable file
@@ -0,0 +1,76 @@
|
||||
: 3B1/PC7300 unix.mc68k cc wrapper for ANSI C : 2002-09-01 :
|
||||
|
||||
HOSTTYPE=unix.mc68k
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
# /bin/cc predates ANSI C; use gcc
|
||||
# some headers depend on SYSTEM5 or mc68k being defined
|
||||
# headers for Ethernet software are under /usr/ethernet/include
|
||||
# both /usr/lib/libnet.a and /usr/lib/libcurses.a define select()
|
||||
# -lcurses uses a version of select for napms(), but that
|
||||
# implementation always returns an error if given file
|
||||
# descriptors to watch
|
||||
# the one in -lnet must be used if fds (instead of or in addition to
|
||||
# a timeout) are of interest therefore, -lnet should be
|
||||
# specified before -lcurses
|
||||
# rename(old, new) in /usr/lib/libnet.a fails if new exists
|
||||
# (permitted by ANSI/ISO C-1990 7.9.4.2)
|
||||
# gcc -fpic doesn't work as there's no _GLOBAL_OFFSET_TABLE symbol
|
||||
|
||||
cc="gcc"
|
||||
|
||||
exec=
|
||||
show=:
|
||||
inc=0
|
||||
lib=0
|
||||
set '' -DSYSTEM5 -Dmc68k "$@" ''
|
||||
shift
|
||||
while :
|
||||
do a=$1
|
||||
shift
|
||||
case $a in
|
||||
'') break
|
||||
;;
|
||||
-lcurses|libcurses.a|*/libcurses.a)
|
||||
lib=1
|
||||
set '' "$@" -lnet
|
||||
shift
|
||||
;;
|
||||
-lnet|libnet.a|*/libnet.a)
|
||||
lib=1
|
||||
;;
|
||||
-o) a=$1
|
||||
shift
|
||||
set '' "$@" -o
|
||||
shift
|
||||
;;
|
||||
-fpic) continue
|
||||
;;
|
||||
-n) exec=:
|
||||
continue
|
||||
;;
|
||||
-v) show=echo
|
||||
continue
|
||||
;;
|
||||
-*) ;;
|
||||
*) case $inc in
|
||||
0) inc=1
|
||||
set '' "$@" -I/usr/ethernet/include
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
set '' "$@" "$a"
|
||||
shift
|
||||
done
|
||||
case $lib in
|
||||
0) set '' "$@" -lnet
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
$show $cc "$@"
|
||||
$exec $cc "$@"
|
||||
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.unixware.i386
Executable file
9
cde/programs/dtksh/ksh93/src/cmd/INIT/cc.unixware.i386
Executable file
@@ -0,0 +1,9 @@
|
||||
: unixware.i386 cc wrapper
|
||||
|
||||
HOSTTYPE=unixware.i386
|
||||
|
||||
case " $* " in
|
||||
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
|
||||
esac
|
||||
|
||||
/bin/cc -D_XOPEN_UNIX -D_XOPEN_SOURCE_EXTENDED "$@"
|
||||
140
cde/programs/dtksh/ksh93/src/cmd/INIT/crossexec.sh
Normal file
140
cde/programs/dtksh/ksh93/src/cmd/INIT/crossexec.sh
Normal file
@@ -0,0 +1,140 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
: cross compiler a.out execution
|
||||
|
||||
(command set -o posix) 2>/dev/null && set -o posix
|
||||
|
||||
command=crossexec
|
||||
|
||||
tmp=/tmp/cross$$
|
||||
|
||||
case `(getopts '[-][123:xyz]' opt --xyz; echo 0$opt) 2>/dev/null` in
|
||||
0123) ARGV0="-a $command"
|
||||
USAGE=$'
|
||||
[-?
|
||||
@(#)$Id: crossexec (AT&T Labs Research) 2004-01-04 $
|
||||
]
|
||||
[-author?Glenn Fowler <gsf@research.att.com>]
|
||||
[-copyright?Copyright (c) 1994-2012 AT&T Intellectual Property]
|
||||
[-license?https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html]
|
||||
[+NAME?crossexec - cross compiler a.out execution]
|
||||
[+DESCRIPTION?\bcrossexec\b runs a cross-compiled \acommand\a in an environment
|
||||
that supports a cross-compilation architecture different from the
|
||||
current host. The cross environment is determined by \acrosstype\a,
|
||||
usually a host type name produced by \bpackage\b(1). \acrosstype\a
|
||||
is used to find an entry in \b$HOME/.crossexec\b that specifies
|
||||
the cross compiler host and access details.]
|
||||
[+?The exit status of \bcrossexec\b is the exit status of \acommand\a.]
|
||||
[+CROSS ENVIRONMENT FILE?\b$HOME/.crossexec\b contains one line for each
|
||||
supported \acrosstype\a. Each line contains 5 tab separated fields.
|
||||
Field default values are specified as \b-\b. The fields are:]{
|
||||
[+crosstype?The host type produced by \bpackage\b(1).]
|
||||
[+host?The host name.]
|
||||
[+user?The user name on \ahost\a. The default is the current user.]
|
||||
[+dir?The directory to copy \acommand\a and execute it. The default
|
||||
is the \auser\a \b$HOME\b on \ahost\a.]
|
||||
[+shell?The command used to get shell access to \ahost\a. Currently
|
||||
only \brsh\b and \bssh\b are supported.]
|
||||
[+copy?The command used to copy \acommand\a to \ahost\a. Currently
|
||||
only \brcp\b and \bscp\b are supported.]
|
||||
}
|
||||
[n:show?Show the underlying commands but do not execute.]
|
||||
|
||||
crosstype command [ option ... ] [ file ... ]
|
||||
|
||||
[+SEE ALSO?\brcp\b(1), \brsh\b(1), \bscp\b(1), \bssh\b(1)]
|
||||
'
|
||||
;;
|
||||
*) ARGV0=""
|
||||
USAGE="crosstype command [ option ... ] [ file ... ]"
|
||||
;;
|
||||
esac
|
||||
|
||||
usage()
|
||||
{
|
||||
OPTIND=0
|
||||
getopts $ARGV0 "$USAGE" OPT '-?'
|
||||
exit 2
|
||||
}
|
||||
|
||||
exec=
|
||||
|
||||
# get the options and operands
|
||||
|
||||
while getopts $ARGV0 "$USAGE" OPT
|
||||
do case $OPT in
|
||||
n) exec=echo ;;
|
||||
*) usage ;;
|
||||
esac
|
||||
done
|
||||
shift $OPTIND-1
|
||||
case $# in
|
||||
[01]) usage ;;
|
||||
esac
|
||||
|
||||
type=$1
|
||||
shift
|
||||
cmd=$1
|
||||
shift
|
||||
|
||||
# get the host info
|
||||
|
||||
info=$HOME/.$command
|
||||
if test ! -r $info
|
||||
then echo "$command: $info: not found" >&2
|
||||
exit 1
|
||||
fi
|
||||
ifs=${IFS-'
|
||||
'}
|
||||
while :
|
||||
do IFS=' '
|
||||
read hosttype hostname usr dir sh cp
|
||||
code=$?
|
||||
IFS=$ifs
|
||||
case $code in
|
||||
0) ;;
|
||||
*) echo "$command: $type: unknown cross compiler host type" >&2
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
case $hosttype in
|
||||
$type) break ;;
|
||||
esac
|
||||
done < $info
|
||||
|
||||
# fill in the defaults
|
||||
|
||||
case $usr in
|
||||
-) cpu= shu= ;;
|
||||
*) cpu=${usr}@ shu="-l $usr" ;;
|
||||
esac
|
||||
case $dir in
|
||||
-) dir= ;;
|
||||
esac
|
||||
case $sh in
|
||||
''|-) sh=ssh ;;
|
||||
esac
|
||||
case $cp in
|
||||
''|-) cp=scp ;;
|
||||
scp) cp="$cp -q" ;;
|
||||
esac
|
||||
|
||||
trap "rm -f $tmp" 0 1 2 3 15
|
||||
$exec $cp $cmd $cpu$hostname:$dir </dev/null || exit 1
|
||||
cmd=./${cmd##*/}
|
||||
$exec $sh $shu $hostname "cd $dir; LD_LIBRARY_PATH=: $cmd $@ </dev/null 2>/dev/null; code=\$?; rm -f $cmd; echo $command: exit \$code >&2" </dev/null 2>$tmp
|
||||
exit `sed -e '/^'$command': exit [0-9][0-9]*$/!d' -e 's/.* //' $tmp`
|
||||
34
cde/programs/dtksh/ksh93/src/cmd/INIT/db.c
Normal file
34
cde/programs/dtksh/ksh93/src/cmd/INIT/db.c
Normal file
@@ -0,0 +1,34 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for sleepycat dbm compatibility
|
||||
*/
|
||||
|
||||
#define DB_DBM_HSEARCH 1
|
||||
|
||||
#if DB_DBM_HSEARCH
|
||||
#include <db.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
DBM* dbm = 0;
|
||||
|
||||
dbm_close(dbm);
|
||||
return 0;
|
||||
}
|
||||
30
cde/programs/dtksh/ksh93/src/cmd/INIT/dl.c
Normal file
30
cde/programs/dtksh/ksh93/src/cmd/INIT/dl.c
Normal file
@@ -0,0 +1,30 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for -ldl
|
||||
*/
|
||||
|
||||
#ifndef dlopen
|
||||
#include <dlfcn.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
dlopen("libdl.so",0);
|
||||
return 0;
|
||||
}
|
||||
186
cde/programs/dtksh/ksh93/src/cmd/INIT/execrate.sh
Normal file
186
cde/programs/dtksh/ksh93/src/cmd/INIT/execrate.sh
Normal file
@@ -0,0 +1,186 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
: wrapper for .exe challenged Win32 systems/commands
|
||||
|
||||
(command set -o posix) 2>/dev/null && set -o posix
|
||||
|
||||
command=execrate
|
||||
|
||||
bins=`
|
||||
(
|
||||
userPATH=$PATH
|
||||
PATH=/run/current-system/sw/bin:/usr/xpg7/bin:/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin:$PATH
|
||||
getconf PATH 2>/dev/null && echo "$userPATH" || echo /bin:/usr/bin:/sbin:/usr/sbin:"$userPATH"
|
||||
) | sed 's/:/ /g'
|
||||
` || exit
|
||||
|
||||
case `(getopts '[-][123:xyz]' opt --xyz; echo 0$opt) 2>/dev/null` in
|
||||
0123) ARGV0="-a $command"
|
||||
USAGE=$'
|
||||
[-?
|
||||
@(#)$Id: execrate (AT&T Labs Research) 2002-02-02 $
|
||||
]
|
||||
[-author?Glenn Fowler <gsf@research.att.com>]
|
||||
[-copyright?Copyright (c) 2002-2012 AT&T Intellectual Property]
|
||||
[-license?https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html]
|
||||
[+NAME?execrate - wrapper for .exe challenged commands]
|
||||
[+DESCRIPTION?\bexecrate\b runs \acommand\a after checking the \afile\a
|
||||
operands for standard semantics with respect to \bWin32\b \b.exe\b
|
||||
suffix conventions. This command is only needed on \bWin32\b
|
||||
systems that inconsistently handle \b.exe\b across library and
|
||||
command interfaces. \acommand\a may be one of \bcat\b(1), \bchmod\b(1),
|
||||
\bcmp\b(1), \bcp\b(1), \bln\b(1), \bmv\b(1), or \brm\b(1).
|
||||
Only the 2 argument forms of \bcp\b, \bln\b and \bmv\b are handled.
|
||||
Unsupported commands and commands requiring no change are
|
||||
silently executed.]
|
||||
[+?With no arguments \bexecrate\b exits with status 0 if the current system
|
||||
is \b.exe\b challenged, 1 if the current system is normal.]
|
||||
[n:show?Show the underlying commands but do not execute.]
|
||||
|
||||
command [ option ... ] file ...
|
||||
|
||||
[+SEE ALSO?\bwebster\b(1)]
|
||||
'
|
||||
usage()
|
||||
{
|
||||
OPTIND=0
|
||||
getopts $ARGV0 "$USAGE" OPT '-?'
|
||||
exit 2
|
||||
}
|
||||
exec=1
|
||||
while getopts $ARGV0 "$USAGE" OPT
|
||||
do case $OPT in
|
||||
n) exec=0 ;;
|
||||
*) usage ;;
|
||||
esac
|
||||
done
|
||||
shift `expr $OPTIND - 1`
|
||||
;;
|
||||
*) usage()
|
||||
{
|
||||
echo "Usage: execrate [ -n ] [ command [ option ... ] file ... ]" >&2
|
||||
exit 2
|
||||
}
|
||||
exec=1
|
||||
while :
|
||||
do case $1 in
|
||||
-n) exec=0 ;;
|
||||
-*) usage ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
;;
|
||||
esac
|
||||
case $# in
|
||||
0) if test ! -x /bin/cat.exe
|
||||
then exit 1 # normal
|
||||
fi
|
||||
if /bin/cat /bin/cat >/dev/null 2>&1
|
||||
then exit 1 # normal
|
||||
fi
|
||||
exit 0 # challenged
|
||||
;;
|
||||
1) usage
|
||||
;;
|
||||
esac
|
||||
case $1 in
|
||||
*cat|*rm)
|
||||
NUM=0
|
||||
;;
|
||||
*chgrp|*chmod)
|
||||
NUM=1
|
||||
;;
|
||||
*cmp|*cp|*ln|*mv)
|
||||
NUM=2
|
||||
;;
|
||||
*) case $exec in
|
||||
0) echo "$@" ;;
|
||||
*) "$@" ;;
|
||||
esac
|
||||
exit
|
||||
;;
|
||||
esac
|
||||
CMD=$1
|
||||
shift
|
||||
case $CMD in
|
||||
*/*) ;;
|
||||
*) for d in $bins
|
||||
do if test -x $d/$1 -o -x $d/$1.exe
|
||||
then CMD=$d/$1
|
||||
break
|
||||
fi
|
||||
done
|
||||
;;
|
||||
esac
|
||||
while :
|
||||
do case $1 in
|
||||
-*) CMD="$CMD $1" ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
case $exec in
|
||||
0) CMD="echo $CMD" ;;
|
||||
esac
|
||||
case $NUM:$# in
|
||||
*:0) ;;
|
||||
1:*) CMD="$CMD $1"
|
||||
NUM=0
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
case $NUM:$# in
|
||||
0:*) status=0
|
||||
for f
|
||||
do if test "$f" -ef "$f".exe
|
||||
then f=$f.exe
|
||||
fi
|
||||
$CMD "$f"
|
||||
case $? in
|
||||
0) ;;
|
||||
*) status=$? ;;
|
||||
esac
|
||||
done
|
||||
exit $status
|
||||
;;
|
||||
2:2) f=$1
|
||||
case $f in
|
||||
*.exe) ;;
|
||||
*) if test "$f" -ef "$f".exe
|
||||
then f=$f.exe
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
case $f in
|
||||
*.exe) if test -d "$2"
|
||||
then t=$2/$f
|
||||
else t=$2
|
||||
fi
|
||||
case $t in
|
||||
*/*) b=`basename "$t"` ;;
|
||||
*) b=$t ;;
|
||||
esac
|
||||
case $b in
|
||||
*.*) $CMD "$f" "$t"; exit ;;
|
||||
*) $CMD "$f" "$t".exe; exit ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
$CMD "$@"
|
||||
101
cde/programs/dtksh/ksh93/src/cmd/INIT/filter.sh
Normal file
101
cde/programs/dtksh/ksh93/src/cmd/INIT/filter.sh
Normal file
@@ -0,0 +1,101 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
: convert command that operates on file args to pipeline filter
|
||||
|
||||
(command set -o posix) 2>/dev/null && set -o posix
|
||||
|
||||
command=filter
|
||||
|
||||
TMPDIR=${TMPDIR:-/tmp}
|
||||
export TMPDIR
|
||||
tmp=$TMPDIR/$command$$
|
||||
suf=
|
||||
|
||||
case `(getopts '[-][123:xyz]' opt --xyz; echo 0$opt) 2>/dev/null` in
|
||||
0123) ARGV0="-a $command"
|
||||
USAGE=$'
|
||||
[-?
|
||||
@(#)$Id: filter (AT&T Labs Research) 2001-05-31 $
|
||||
]
|
||||
[-author?Glenn Fowler <gsf@research.att.com>]
|
||||
[-copyright?Copyright (c) 1994-2012 AT&T Intellectual Property]
|
||||
[-license?https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html]
|
||||
[+NAME?filter - run a command in stdin/stdout mode]
|
||||
[+DESCRIPTION?\bfilter\b runs \acommand\a in a mode that takes input from
|
||||
the \afile\a operands, or from the standard input if no \afile\a
|
||||
operands are specified, and writes the results to the standard output.
|
||||
It can be used to run commands like \bsplit\b(1), that normally modify
|
||||
\afile\a operands in-place, in pipelines. The \afile\a operands are
|
||||
not modified; \acommand\a is run on copies in \b/tmp\b.]
|
||||
|
||||
command [ option ... ] [ file ... ]
|
||||
|
||||
[+SEE ALSO?\bstrip\b(1)]
|
||||
'
|
||||
;;
|
||||
*) ARGV0=""
|
||||
USAGE="command [ option ... ] [ file ... ]"
|
||||
;;
|
||||
esac
|
||||
|
||||
usage()
|
||||
{
|
||||
OPTIND=0
|
||||
getopts $ARGV0 "$USAGE" OPT '-?'
|
||||
exit 2
|
||||
}
|
||||
|
||||
while getopts $ARGV0 "$USAGE" OPT
|
||||
do case $OPT in
|
||||
*) usage ;;
|
||||
esac
|
||||
done
|
||||
shift `expr $OPTIND - 1`
|
||||
case $# in
|
||||
0) usage ;;
|
||||
esac
|
||||
|
||||
cmd=$1
|
||||
while :
|
||||
do shift
|
||||
case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
-*) cmd="$cmd $1" ;;
|
||||
*) break ;;
|
||||
esac
|
||||
done
|
||||
trap 'rm -f $tmp$suf' 0 1 2 3 15
|
||||
case $# in
|
||||
0) cat > $tmp
|
||||
$cmd $tmp
|
||||
;;
|
||||
*) for file
|
||||
do suf=${file##*/}
|
||||
case $suf in
|
||||
*.*) suf=.${suf#*.} ;;
|
||||
*) suf= ;;
|
||||
esac
|
||||
cp $file $tmp$suf || exit 1
|
||||
chmod u+rwx $tmp$suf || exit 1
|
||||
$cmd $tmp$suf || exit 1
|
||||
cat $tmp$suf
|
||||
rm -f $tmp$suf
|
||||
done
|
||||
;;
|
||||
esac
|
||||
34
cde/programs/dtksh/ksh93/src/cmd/INIT/gdbm.c
Normal file
34
cde/programs/dtksh/ksh93/src/cmd/INIT/gdbm.c
Normal file
@@ -0,0 +1,34 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for -lgdbm
|
||||
*/
|
||||
|
||||
#define _hdr_gdbm_ndbm 1
|
||||
|
||||
#if _hdr_gdbm_ndbm
|
||||
#include <gdbm/ndbm.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
DBM* dbm = 0;
|
||||
|
||||
dbm_close(dbm);
|
||||
return 0;
|
||||
}
|
||||
34
cde/programs/dtksh/ksh93/src/cmd/INIT/gdbm1.c
Normal file
34
cde/programs/dtksh/ksh93/src/cmd/INIT/gdbm1.c
Normal file
@@ -0,0 +1,34 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for -lgdbm
|
||||
*/
|
||||
|
||||
#define _hdr_gdbm_ndbm 1
|
||||
|
||||
#if _hdr_gdbm_ndbm
|
||||
#include <gdbm-ndbm.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
DBM* dbm = 0;
|
||||
|
||||
dbm_close(dbm);
|
||||
return 0;
|
||||
}
|
||||
34
cde/programs/dtksh/ksh93/src/cmd/INIT/gdbm2.c
Normal file
34
cde/programs/dtksh/ksh93/src/cmd/INIT/gdbm2.c
Normal file
@@ -0,0 +1,34 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for -lgdbm
|
||||
*/
|
||||
|
||||
#define _hdr_ndbm 1
|
||||
|
||||
#if _hdr_ndbm
|
||||
#include <ndbm.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
DBM* dbm = 0;
|
||||
|
||||
dbm_close(dbm);
|
||||
return 0;
|
||||
}
|
||||
20
cde/programs/dtksh/ksh93/src/cmd/INIT/hello.c
Normal file
20
cde/programs/dtksh/ksh93/src/cmd/INIT/hello.c
Normal file
@@ -0,0 +1,20 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#ifndef printf
|
||||
#include <stdio.h>
|
||||
#endif
|
||||
int main() { int new = 0; printf("hello world\n"); return new;}
|
||||
6
cde/programs/dtksh/ksh93/src/cmd/INIT/hosttype.tst
Normal file
6
cde/programs/dtksh/ksh93/src/cmd/INIT/hosttype.tst
Normal file
@@ -0,0 +1,6 @@
|
||||
hp.pa hostname 9000/730 hp9000s700 HP-UX hostname A.09.01 A
|
||||
linux-aout.i386 hostname i586 i386 linux hostname 1.1.59 #1
|
||||
sgi.mips2 hostname.domain IP22 mips IRIX hostname 5.2 02282016
|
||||
osf.alpha hostname.domain alpha alpha OSF1 hostname.domain V3.2 62
|
||||
sun4 hostname.domain sun4 sparc SunOS hostname.domain 4.1.1 1 sun4c
|
||||
sol.sun4 hostname.domain sun4 sparc SunOS hostname.domain 5.4 Generic_101945-13
|
||||
26
cde/programs/dtksh/ksh93/src/cmd/INIT/iconv.c
Normal file
26
cde/programs/dtksh/ksh93/src/cmd/INIT/iconv.c
Normal file
@@ -0,0 +1,26 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#ifndef iconv
|
||||
#include <iconv.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
iconv(0, 0, 0, 0, 0);
|
||||
return 0;
|
||||
}
|
||||
4401
cde/programs/dtksh/ksh93/src/cmd/INIT/iffe.sh
Normal file
4401
cde/programs/dtksh/ksh93/src/cmd/INIT/iffe.sh
Normal file
File diff suppressed because it is too large
Load Diff
1881
cde/programs/dtksh/ksh93/src/cmd/INIT/iffe.tst
Normal file
1881
cde/programs/dtksh/ksh93/src/cmd/INIT/iffe.tst
Normal file
File diff suppressed because it is too large
Load Diff
33
cde/programs/dtksh/ksh93/src/cmd/INIT/ignore.sh
Normal file
33
cde/programs/dtksh/ksh93/src/cmd/INIT/ignore.sh
Normal file
@@ -0,0 +1,33 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
# non-ksh script for the nmake ignore prefix
|
||||
# @(#)ignore (ksh 93u+m) 2021-12-31
|
||||
|
||||
while :
|
||||
do case $# in
|
||||
0) exit 0 ;;
|
||||
esac
|
||||
case $1 in
|
||||
*=*) export "$1"
|
||||
shift
|
||||
;;
|
||||
*) break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
"$@"
|
||||
exit 0
|
||||
26
cde/programs/dtksh/ksh93/src/cmd/INIT/intl.c
Normal file
26
cde/programs/dtksh/ksh93/src/cmd/INIT/intl.c
Normal file
@@ -0,0 +1,26 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#ifndef gettext
|
||||
#include <libintl.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
gettext(0);
|
||||
return 0;
|
||||
}
|
||||
5
cde/programs/dtksh/ksh93/src/cmd/INIT/ld.hp.pa
Executable file
5
cde/programs/dtksh/ksh93/src/cmd/INIT/ld.hp.pa
Executable file
@@ -0,0 +1,5 @@
|
||||
: hp.pa ld wrapper for reasonable warning defaults
|
||||
|
||||
# @(#)ld.hp.pa (AT&T Labs Research) 1998-01-23
|
||||
|
||||
/bin/ld +s +vnocompatwarnings "$@"
|
||||
22
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.cygwin.i386
Executable file
22
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.cygwin.i386
Executable file
@@ -0,0 +1,22 @@
|
||||
#!/bin/env sh
|
||||
: cygwin.i386 ldd -- how many ways does this confirm the Windows bias?
|
||||
for f
|
||||
do case $f in
|
||||
*.exe) ;;
|
||||
*) f=$f.exe ;;
|
||||
esac
|
||||
p=$(type $f)
|
||||
case $p in
|
||||
*" not found"*)
|
||||
;;
|
||||
*) p=${p##* }
|
||||
case $p in
|
||||
?*) f=$p ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
cygcheck $(cygpath -aw $f) |
|
||||
for w in $(sed -e 's/^[[:space:]]*//' -e '/^$/d' -e '/^Use /d')
|
||||
do cygpath -u "$w"
|
||||
done
|
||||
done
|
||||
2
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.darwin
Executable file
2
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.darwin
Executable file
@@ -0,0 +1,2 @@
|
||||
: Mac OS X ldd
|
||||
otool -L "$@"
|
||||
21
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.hp.pa
Executable file
21
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.hp.pa
Executable file
@@ -0,0 +1,21 @@
|
||||
: hp.pa ldd
|
||||
while :
|
||||
do case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
-*|+*) ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
trap ':' 15
|
||||
for cmd
|
||||
do case $# in
|
||||
1) ;;
|
||||
*) echo $cmd: ;;
|
||||
esac
|
||||
_HP_DLDOPTS=-ldd "$cmd" < /dev/null 2> /dev/null | sort -u
|
||||
# chatr "$cmd" |
|
||||
# sed -e '/^[ ]*dynamic[ ][ ]*/!d' -e 's// /'
|
||||
done
|
||||
16
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.ibm.risc
Executable file
16
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.ibm.risc
Executable file
@@ -0,0 +1,16 @@
|
||||
: ibm.risc ldd
|
||||
case $# in
|
||||
1) header=0 ;;
|
||||
*) header=1 ;;
|
||||
esac
|
||||
for file
|
||||
do case $header in
|
||||
1) echo "$file:"
|
||||
header=2
|
||||
;;
|
||||
2) echo
|
||||
echo "$file:"
|
||||
;;
|
||||
esac
|
||||
dump -H "$file" | sed '1,/\*\*\*Import/d'
|
||||
done
|
||||
1
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.lynxos
Executable file
1
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.lynxos
Executable file
@@ -0,0 +1 @@
|
||||
elflook -L "$@" | sed -e '/^NEEDED:/!d' -e 's/.*: *//'
|
||||
18
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.mvs.390
Executable file
18
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.mvs.390
Executable file
@@ -0,0 +1,18 @@
|
||||
: mvs.390 ldd
|
||||
case $# in
|
||||
1) header=0 ;;
|
||||
*) header=1 ;;
|
||||
esac
|
||||
for file
|
||||
do case $header in
|
||||
1) echo "$file:"
|
||||
header=2
|
||||
;;
|
||||
2) echo
|
||||
echo "$file:"
|
||||
;;
|
||||
esac
|
||||
strings $file |
|
||||
sed -e '/\<[[:lower:]][[:alnum:]]*\.dll\>/!d' -e 's/^/ /' |
|
||||
sort -u
|
||||
done
|
||||
2
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.sgi
Executable file
2
cde/programs/dtksh/ksh93/src/cmd/INIT/ldd.sgi
Executable file
@@ -0,0 +1,2 @@
|
||||
: sgi.mips ldd
|
||||
odump -Dl "$@"
|
||||
31
cde/programs/dtksh/ksh93/src/cmd/INIT/m.c
Normal file
31
cde/programs/dtksh/ksh93/src/cmd/INIT/m.c
Normal file
@@ -0,0 +1,31 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* -lm test #1
|
||||
*/
|
||||
|
||||
#ifndef sin
|
||||
#include <math.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
sin(0.0);
|
||||
fmod(100.234, 11.0);
|
||||
return 0;
|
||||
}
|
||||
33
cde/programs/dtksh/ksh93/src/cmd/INIT/m2.c
Normal file
33
cde/programs/dtksh/ksh93/src/cmd/INIT/m2.c
Normal file
@@ -0,0 +1,33 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* -lm test #2
|
||||
*/
|
||||
|
||||
#include <math.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
double value = 0;
|
||||
int exp = 0;
|
||||
int r = 0;
|
||||
|
||||
r |= ldexp(value, exp) != 0;
|
||||
r |= frexp(value, &exp) != 0;
|
||||
return r;
|
||||
}
|
||||
33
cde/programs/dtksh/ksh93/src/cmd/INIT/m3.c
Normal file
33
cde/programs/dtksh/ksh93/src/cmd/INIT/m3.c
Normal file
@@ -0,0 +1,33 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* -lm test #3
|
||||
*/
|
||||
|
||||
#include <math.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
long double value = 0;
|
||||
int exp = 0;
|
||||
int r = 0;
|
||||
|
||||
r |= ldexpl(value, exp) != 0;
|
||||
r |= frexpl(value, &exp) != 0;
|
||||
return r;
|
||||
}
|
||||
29
cde/programs/dtksh/ksh93/src/cmd/INIT/m4.c
Normal file
29
cde/programs/dtksh/ksh93/src/cmd/INIT/m4.c
Normal file
@@ -0,0 +1,29 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* -lm test #4
|
||||
*/
|
||||
|
||||
#include <math.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
double value = 0;
|
||||
|
||||
return isnan(value);
|
||||
}
|
||||
29
cde/programs/dtksh/ksh93/src/cmd/INIT/m5.c
Normal file
29
cde/programs/dtksh/ksh93/src/cmd/INIT/m5.c
Normal file
@@ -0,0 +1,29 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* -lm test #5
|
||||
*/
|
||||
|
||||
#include <math.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
long double value = 0;
|
||||
|
||||
return isnanl(value);
|
||||
}
|
||||
31
cde/programs/dtksh/ksh93/src/cmd/INIT/m6.c
Normal file
31
cde/programs/dtksh/ksh93/src/cmd/INIT/m6.c
Normal file
@@ -0,0 +1,31 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* -lm test #6
|
||||
*/
|
||||
|
||||
#define _ISOC99_SOURCE 1
|
||||
|
||||
#include <math.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
double value = -0.0;
|
||||
|
||||
return !signbit(value);
|
||||
}
|
||||
2145
cde/programs/dtksh/ksh93/src/cmd/INIT/make.probe
Normal file
2145
cde/programs/dtksh/ksh93/src/cmd/INIT/make.probe
Normal file
File diff suppressed because it is too large
Load Diff
2464
cde/programs/dtksh/ksh93/src/cmd/INIT/mamake.c
Normal file
2464
cde/programs/dtksh/ksh93/src/cmd/INIT/mamake.c
Normal file
File diff suppressed because it is too large
Load Diff
40
cde/programs/dtksh/ksh93/src/cmd/INIT/mamake.rt
Normal file
40
cde/programs/dtksh/ksh93/src/cmd/INIT/mamake.rt
Normal file
@@ -0,0 +1,40 @@
|
||||
NOTE regression tests for the mamake command
|
||||
|
||||
UNIT mamake
|
||||
|
||||
TEST macros
|
||||
|
||||
DATA Mamfile <<'!'
|
||||
info mam static 00000 1994-07-17 make (AT&T Research) 5.3 2009-05-05
|
||||
setv DEFINED defined
|
||||
setv EMPTY
|
||||
make all
|
||||
|
||||
exec - echo DEFINED ${DEFINED}
|
||||
exec - echo DEFINED:VALUE ${DEFINED:VALUE}
|
||||
exec - echo DEFINED:-VALUE ${DEFINED:-VALUE}
|
||||
exec - echo DEFINED=VALUE ${DEFINED=VALUE}
|
||||
exec - echo DEFINED[VALUE] ${DEFINED[VALUE]}
|
||||
exec - echo DEFINED.COMPONENT ${DEFINED.COMPONENT}
|
||||
exec - echo DEFINED.COMPONENT[VALUE] ${DEFINED.COMPONENT[VALUE]}
|
||||
|
||||
exec - echo EMPTY ${EMPTY}
|
||||
exec - echo EMPTY:VALUE ${EMPTY:VALUE}
|
||||
exec - echo EMPTY:-VALUE ${EMPTY:-VALUE}
|
||||
exec - echo EMPTY=VALUE ${EMPTY=VALUE}
|
||||
exec - echo EMPTY[VALUE] ${EMPTY[VALUE]}
|
||||
exec - echo EMPTY.COMPONENT ${EMPTY.COMPONENT}
|
||||
exec - echo EMPTY.COMPONENT[VALUE] ${EMPTY.COMPONENT[VALUE]}
|
||||
|
||||
exec - echo __NoT_DeFiNeD__ ${__NoT_DeFiNeD__}
|
||||
exec - echo __NoT_DeFiNeD__:VALUE ${__NoT_DeFiNeD__:VALUE}
|
||||
exec - echo __NoT_DeFiNeD__:-VALUE ${__NoT_DeFiNeD__:-VALUE}
|
||||
exec - echo __NoT_DeFiNeD__=VALUE ${__NoT_DeFiNeD__=VALUE}
|
||||
exec - echo __NoT_DeFiNeD__[VALUE] ${__NoT_DeFiNeD__[VALUE]}
|
||||
exec - echo __NoT_DeFiNeD__.COMPONENT ${__NoT_DeFiNeD__.COMPONENT}
|
||||
exec - echo __NoT_DeFiNeD__.COMPONENT[VALUE] ${__NoT_DeFiNeD__.COMPONENT[VALUE]}
|
||||
|
||||
done all generated virtual
|
||||
!
|
||||
|
||||
EXEC -n
|
||||
63
cde/programs/dtksh/ksh93/src/cmd/INIT/mamake.tst
Normal file
63
cde/programs/dtksh/ksh93/src/cmd/INIT/mamake.tst
Normal file
@@ -0,0 +1,63 @@
|
||||
# : : generated from mamake.rt by mktest : : #
|
||||
|
||||
# regression tests for the mamake command
|
||||
|
||||
UNIT mamake
|
||||
|
||||
TEST 01 macros
|
||||
|
||||
EXEC -n
|
||||
INPUT -n -
|
||||
INPUT Mamfile $'info mam static 00000 1994-07-17 make (AT&T Research) 5.3 2009-05-05
|
||||
setv DEFINED defined
|
||||
setv EMPTY
|
||||
make all
|
||||
|
||||
exec - echo DEFINED ${DEFINED}
|
||||
exec - echo DEFINED:VALUE ${DEFINED:VALUE}
|
||||
exec - echo DEFINED:-VALUE ${DEFINED:-VALUE}
|
||||
exec - echo DEFINED=VALUE ${DEFINED=VALUE}
|
||||
exec - echo DEFINED[VALUE] ${DEFINED[VALUE]}
|
||||
exec - echo DEFINED.COMPONENT ${DEFINED.COMPONENT}
|
||||
exec - echo DEFINED.COMPONENT[VALUE] ${DEFINED.COMPONENT[VALUE]}
|
||||
|
||||
exec - echo EMPTY ${EMPTY}
|
||||
exec - echo EMPTY:VALUE ${EMPTY:VALUE}
|
||||
exec - echo EMPTY:-VALUE ${EMPTY:-VALUE}
|
||||
exec - echo EMPTY=VALUE ${EMPTY=VALUE}
|
||||
exec - echo EMPTY[VALUE] ${EMPTY[VALUE]}
|
||||
exec - echo EMPTY.COMPONENT ${EMPTY.COMPONENT}
|
||||
exec - echo EMPTY.COMPONENT[VALUE] ${EMPTY.COMPONENT[VALUE]}
|
||||
|
||||
exec - echo __NoT_DeFiNeD__ ${__NoT_DeFiNeD__}
|
||||
exec - echo __NoT_DeFiNeD__:VALUE ${__NoT_DeFiNeD__:VALUE}
|
||||
exec - echo __NoT_DeFiNeD__:-VALUE ${__NoT_DeFiNeD__:-VALUE}
|
||||
exec - echo __NoT_DeFiNeD__=VALUE ${__NoT_DeFiNeD__=VALUE}
|
||||
exec - echo __NoT_DeFiNeD__[VALUE] ${__NoT_DeFiNeD__[VALUE]}
|
||||
exec - echo __NoT_DeFiNeD__.COMPONENT ${__NoT_DeFiNeD__.COMPONENT}
|
||||
exec - echo __NoT_DeFiNeD__.COMPONENT[VALUE] ${__NoT_DeFiNeD__.COMPONENT[VAL'\
|
||||
$'UE]}
|
||||
|
||||
done all generated virtual'
|
||||
OUTPUT - $'echo DEFINED defined
|
||||
echo DEFINED:VALUE
|
||||
echo DEFINED:-VALUE
|
||||
echo DEFINED=VALUE defined
|
||||
echo DEFINED[VALUE] ${DEFINED[VALUE]}
|
||||
echo DEFINED.COMPONENT
|
||||
echo DEFINED.COMPONENT[VALUE] ${DEFINED.COMPONENT[VALUE]}
|
||||
echo EMPTY
|
||||
echo EMPTY:VALUE ${EMPTY:VALUE}
|
||||
echo EMPTY:-VALUE ${EMPTY:-VALUE}
|
||||
echo EMPTY=VALUE
|
||||
echo EMPTY[VALUE] ${EMPTY[VALUE]}
|
||||
echo EMPTY.COMPONENT
|
||||
echo EMPTY.COMPONENT[VALUE] ${EMPTY.COMPONENT[VALUE]}
|
||||
echo __NoT_DeFiNeD__ ${__NoT_DeFiNeD__}
|
||||
echo __NoT_DeFiNeD__:VALUE ${__NoT_DeFiNeD__:VALUE}
|
||||
echo __NoT_DeFiNeD__:-VALUE ${__NoT_DeFiNeD__:-VALUE}
|
||||
echo __NoT_DeFiNeD__=VALUE ${__NoT_DeFiNeD__=VALUE}
|
||||
echo __NoT_DeFiNeD__[VALUE] ${__NoT_DeFiNeD__[VALUE]}
|
||||
echo __NoT_DeFiNeD__.COMPONENT
|
||||
echo __NoT_DeFiNeD__.COMPONENT[VALUE] ${__NoT_DeFiNeD__.COMPONENT[VALUE]}'
|
||||
ERROR -n -
|
||||
270
cde/programs/dtksh/ksh93/src/cmd/INIT/mamprobe.sh
Normal file
270
cde/programs/dtksh/ksh93/src/cmd/INIT/mamprobe.sh
Normal file
@@ -0,0 +1,270 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
### this script contains archaic constructs that work with all sh variants ###
|
||||
# mamprobe - generate MAM cc probe info
|
||||
# Glenn Fowler <gsf@research.att.com>
|
||||
|
||||
(command set -o posix) 2>/dev/null && set -o posix
|
||||
|
||||
command=mamprobe
|
||||
|
||||
bins=`
|
||||
(
|
||||
userPATH=$PATH
|
||||
PATH=/run/current-system/sw/bin:/usr/xpg7/bin:/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin:$PATH
|
||||
getconf PATH 2>/dev/null && echo "$userPATH" || echo /bin:/usr/bin:/sbin:/usr/sbin:"$userPATH"
|
||||
) | sed 's/:/ /g'
|
||||
` || exit
|
||||
|
||||
# check the options
|
||||
|
||||
opt=
|
||||
|
||||
case `(getopts '[-][123:xyz]' opt --xyz; echo 0$opt) 2>/dev/null` in
|
||||
0123) USAGE=$'
|
||||
[-?
|
||||
@(#)$Id: mamprobe (AT&T Labs Research) 2011-02-11 $
|
||||
]
|
||||
[+NAME?mamprobe - generate MAM cc probe info]
|
||||
[+DESCRIPTION?\bmamprobe\b generates MAM (make abstract machine) \bcc\b(1)
|
||||
probe information for use by \bmamake\b(1). \acc-path\a is the
|
||||
absolute path of the probed compiler and \ainfo-file\a is where
|
||||
the information is placed. \ainfo-file\a is usually
|
||||
\b$INSTALLROOT/lib/probe/C/mam/\b\ahash\a, where \ahash\a is a hash
|
||||
of \acc-path\a. Any \ainfo-file\a directories are created if needed.
|
||||
If \ainfo-file\a is \b-\b then the probe information is written to
|
||||
the standard output.]
|
||||
[+?\bmamprobe\b and \bmamake\b are used in the bootstrap phase of
|
||||
\bpackage\b(1) installation before \bnmake\b(1) is built. The
|
||||
probed variable names are the \bnmake\b(1) names with a \bmam_\b
|
||||
prefix, \bCC\b converted to \bcc\b, and \b.\b converted to \b_\b.
|
||||
Additional variables are:]{
|
||||
[+_hosttype_?the \bpackage\b(1) host type]
|
||||
[+mam_cc_L?\b-L\b\adir\a supported]
|
||||
[+STDCAT?command to execute for \bcat\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
[+STDCHMOD?command to execute for \bchmod\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
[+STDCMP?command to execute for \bcmp\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
[+STDCP?command to execute for \bcp\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
[+STDED?command to execute for \bed\b(1) or \bex\b(1)]
|
||||
[+STDEDFLAGS?flags for \bSTDED\b]
|
||||
[+STDLN?command to execute for \bln\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
[+STDMV?command to execute for \bmv\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
[+STDRM?command to execute for \brm\b(1); prefixed by
|
||||
\bexecrate\b(1) on \b.exe\b challenged systems]
|
||||
}
|
||||
[d:debug?Enable probe script debug trace.]
|
||||
|
||||
info-file cc-path
|
||||
|
||||
[+SEE ALSO?\bexecrate\b(1), \bpackage\b(1), \bmamake\b(1), \bnmake\b(1),
|
||||
\bprobe\b(1)]
|
||||
'
|
||||
while getopts -a "$command" "$USAGE" OPT
|
||||
do case $OPT in
|
||||
d) opt=-d ;;
|
||||
esac
|
||||
done
|
||||
shift `expr $OPTIND - 1`
|
||||
;;
|
||||
*) while :
|
||||
do case $# in
|
||||
0) break ;;
|
||||
esac
|
||||
case $1 in
|
||||
--) shift
|
||||
break
|
||||
;;
|
||||
-) break
|
||||
;;
|
||||
-d) opt=-d
|
||||
;;
|
||||
-*) echo $command: $1: unknown option >&2
|
||||
;;
|
||||
*) break
|
||||
;;
|
||||
esac
|
||||
set ''
|
||||
break
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
# check the args
|
||||
|
||||
case $1 in
|
||||
-) ;;
|
||||
/*) ;;
|
||||
*) set '' ;;
|
||||
esac
|
||||
case $2 in
|
||||
/*) ;;
|
||||
*) set '' ;;
|
||||
esac
|
||||
case $# in
|
||||
0|1) echo "Usage: $command info-file cc-path" >&2; exit 2 ;;
|
||||
esac
|
||||
info=$1
|
||||
shift
|
||||
cc=$*
|
||||
|
||||
# find the make probe script
|
||||
|
||||
ifs=${IFS-'
|
||||
'}
|
||||
IFS=:
|
||||
set $PATH
|
||||
IFS=$ifs
|
||||
script=lib/probe/C/make/probe
|
||||
while :
|
||||
do case $# in
|
||||
0) echo "$0: ../$script: probe script not found on PATH" >&2
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
case $1 in
|
||||
'') continue ;;
|
||||
esac
|
||||
makeprobe=`echo $1 | sed 's,[^/]*$,'$script,`
|
||||
if test -x $makeprobe
|
||||
then break
|
||||
fi
|
||||
shift
|
||||
done
|
||||
|
||||
# create the info dir if necessary
|
||||
|
||||
case $info in
|
||||
/*) i=X$info
|
||||
ifs=${IFS-'
|
||||
'}
|
||||
IFS=/
|
||||
set $i
|
||||
IFS=$ifs
|
||||
while :
|
||||
do i=$1
|
||||
shift
|
||||
case $i in
|
||||
X) break ;;
|
||||
esac
|
||||
done
|
||||
case $info in
|
||||
//*) path=/ ;;
|
||||
*) path= ;;
|
||||
esac
|
||||
while :
|
||||
do case $# in
|
||||
0|1) break ;;
|
||||
esac
|
||||
comp=$1
|
||||
shift
|
||||
case $comp in
|
||||
'') continue ;;
|
||||
esac
|
||||
path=$path/$comp
|
||||
if test ! -d $path
|
||||
then mkdir $path || exit
|
||||
fi
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
# generate info in a tmp file and rename when finished
|
||||
|
||||
case $info in
|
||||
-) ;;
|
||||
*) tmp=${TMPDIR:-/tmp}/mam$$
|
||||
trap "exec >/dev/null; rm -f $tmp" 0 1 2 3 15
|
||||
exec > $tmp
|
||||
echo "probing C language processor $cc for mam information" >&2
|
||||
;;
|
||||
esac
|
||||
|
||||
echo "note generated by $0 for $cc"
|
||||
|
||||
(
|
||||
set '' $opt $cc
|
||||
shift
|
||||
. $makeprobe "$@"
|
||||
|
||||
case " $CC_DIALECT " in
|
||||
*" -L "*) echo "CC.L = 1" ;;
|
||||
esac
|
||||
|
||||
) | sed \
|
||||
-e '/^CC\./!d' \
|
||||
-e 's/^CC./setv mam_cc_/' \
|
||||
-e 's/^\([^=.]*\)\./\1_/' \
|
||||
-e 's/^\([^=.]*\)\./\1_/' \
|
||||
-e 's/ =//' \
|
||||
-e 's/\$("\([^"]*\)")/\1/g' \
|
||||
-e 's/\$(\([^)]*\))/${\1}/g' \
|
||||
-e 's/\${CC\./${mam_cc_}/g'
|
||||
|
||||
echo 'setv _hosttype_ ${mam_cc_HOSTTYPE}'
|
||||
|
||||
# STD* are standard commands/flags with possible execrate(1)
|
||||
|
||||
if (
|
||||
ed <<!
|
||||
q
|
||||
!
|
||||
) < /dev/null > /dev/null 2>&1
|
||||
then STDED=ed
|
||||
else STDED=ex
|
||||
fi
|
||||
STDEDFLAGS=-
|
||||
set STDCAT cat STDCHMOD chmod STDCMP cmp STDCP cp STDLN ln STDMV mv STDRM rm
|
||||
while :
|
||||
do case $# in
|
||||
0|1) break ;;
|
||||
esac
|
||||
p=$2
|
||||
for d in $bins
|
||||
do if test -x $d/$p
|
||||
then p=$d/$p
|
||||
break
|
||||
fi
|
||||
done
|
||||
eval $1=\$p
|
||||
shift
|
||||
shift
|
||||
done
|
||||
if execrate
|
||||
then for n in STDCAT STDCHMOD STDCMP STDCP STDLN STDMV STDRM
|
||||
do eval $n=\"execrate \$$n\"
|
||||
done
|
||||
fi
|
||||
for n in STDCAT STDCHMOD STDCMP STDCP STDED STDEDFLAGS STDLN STDMV STDRM
|
||||
do eval echo setv \$n \$$n
|
||||
done
|
||||
|
||||
# all done
|
||||
|
||||
case $info in
|
||||
-) ;;
|
||||
*) exec >/dev/null
|
||||
test -f "$info" && rm -f "$info"
|
||||
cp "$tmp" "$info"
|
||||
chmod -w "$info"
|
||||
;;
|
||||
esac
|
||||
78
cde/programs/dtksh/ksh93/src/cmd/INIT/mkdir.sh
Normal file
78
cde/programs/dtksh/ksh93/src/cmd/INIT/mkdir.sh
Normal file
@@ -0,0 +1,78 @@
|
||||
#!/bin/sh
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# #
|
||||
########################################################################
|
||||
: mkdir for systems that do not support -p : 2002-09-01 :
|
||||
|
||||
(command set -o posix) 2>/dev/null && set -o posix
|
||||
|
||||
MKDIR=mkdir
|
||||
CHMOD=chmod
|
||||
mode=
|
||||
parents=
|
||||
while :
|
||||
do case $1 in
|
||||
-m) case $# in
|
||||
1) echo "mkdir: -m: mode argument expected" >&2
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
mode=$1
|
||||
;;
|
||||
-m*) mode=`echo X$1 | sed 's/X-m//'`
|
||||
;;
|
||||
-p) parents=1
|
||||
;;
|
||||
*) break
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
if test "" != "$parents"
|
||||
then for d
|
||||
do if test ! -d $d
|
||||
then ifs=${IFS-'
|
||||
'}
|
||||
IFS=/
|
||||
set '' $d
|
||||
IFS=$ifs
|
||||
shift
|
||||
dir=$1
|
||||
shift
|
||||
if test -n "$dir" -a ! -d "$dir"
|
||||
then $MKDIR "$dir" || exit 1
|
||||
if test "" != "$mode"
|
||||
then $CHMOD "$mode" "$dir" || exit 1
|
||||
fi
|
||||
fi
|
||||
for d
|
||||
do dir=$dir/$d
|
||||
if test ! -d "$dir"
|
||||
then $MKDIR "$dir" || exit 1
|
||||
if test "" != "$mode"
|
||||
then $CHMOD "$mode" "$dir" || exit 1
|
||||
fi
|
||||
fi
|
||||
done
|
||||
fi
|
||||
done
|
||||
else $MKDIR "$@" || exit 1
|
||||
if test "" != "$mode"
|
||||
then for d
|
||||
do $CHMOD "$mode" "$d" || exit 1
|
||||
done
|
||||
fi
|
||||
fi
|
||||
exit 0
|
||||
641
cde/programs/dtksh/ksh93/src/cmd/INIT/mktest.sh
Executable file
641
cde/programs/dtksh/ksh93/src/cmd/INIT/mktest.sh
Executable file
@@ -0,0 +1,641 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# Johnothan King <johnothanking@protonmail.com> #
|
||||
# #
|
||||
########################################################################
|
||||
: mktest - generate regress or shell regression test scripts
|
||||
|
||||
command=mktest
|
||||
stdin=8
|
||||
stdout=9
|
||||
PREFIX=test
|
||||
STYLE=regress
|
||||
WIDTH=80
|
||||
|
||||
eval "exec $stdout>&1"
|
||||
|
||||
case $(getopts '[-][123:xyz]' opt --xyz 2>/dev/null; echo 0$opt) in
|
||||
0123) ARGV0="-a $command"
|
||||
USAGE=$'
|
||||
[-?
|
||||
@(#)$Id: mktest (AT&T Labs Research) 2010-08-11 $
|
||||
]
|
||||
[-author?Glenn Fowler <gsf@research.att.com>]
|
||||
[-copyright?Copyright (c) 2005-2012 AT&T Intellectual Property]
|
||||
[-license?https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html]
|
||||
[+NAME?mktest - generate a regression test scripts]
|
||||
[+DESCRIPTION?\bmktest\b generates regression test scripts from test
|
||||
template commands in the \aunit\a.\brt\b file. The generated test
|
||||
script writes temporary output to '$PREFIX$'\aunit\a.tmp and compares
|
||||
it to the expected output in '$PREFIX$'\aunit\a.out. Run the test
|
||||
script with the \b--accept\b option to (re)generate
|
||||
'$PREFIX$'\aunit\a.out.]
|
||||
[s:style?The script style:]:[style:='$STYLE$']
|
||||
{
|
||||
[+regress?\bregress\b(1) command input.]
|
||||
[+shell?Standalone test shell script.]
|
||||
}
|
||||
[w:width?Set the output format width to approximately
|
||||
\awidth\a.]:[width:='$WIDTH$']
|
||||
|
||||
unit.rt [ unit [ arg ... ] ]
|
||||
|
||||
[+INPUT FILES?The regression test command file \aunit\a\b.rt\b is a
|
||||
\bksh\b(1) script that makes calls to the following functions:]
|
||||
{
|
||||
[+DATA \afile\a [ - | [ options ]] data]]?Create input data
|
||||
\afile\a that is empty (-) or contains \adata\a subject to
|
||||
\bprint\b(1) \aoptions\a or that is a copy of the DATA command
|
||||
standard input. Set \afile\a to \b-\b to name the standard
|
||||
input.]
|
||||
[+DIAGNOSTICS?Diagnostic messages of unspecified format are
|
||||
expected.]
|
||||
[+DO \acommand\a [ \aarg\a ... ]]?Execute \acommand\a if the
|
||||
current test is active.]
|
||||
[+EXEC [ \aarg\a ... ]]?Run the command under test with
|
||||
optional arguments. If the standard input is not specified then
|
||||
the standard input of the previous EXEC is used. The standard
|
||||
input of the first EXEC in a TEST group is an empty regular
|
||||
file.]
|
||||
[+EXPORT \aname\a=\avalue\a ...?Export list for subsequent
|
||||
commands in the TEST group or for all TEST groups if before
|
||||
the first TEST group.]
|
||||
[+IGNORESPACE [ 0 | 1 ]
|
||||
?Ignore space differences when comparing expected output.]
|
||||
[+KEEP \apattern\a ...?File match patterns of files to retain
|
||||
between TEST groups.]
|
||||
[+NOTE \acomment\a?\acomment\a is added to the current test
|
||||
script.]
|
||||
[+PROG \acommand\a [ \aarg\a ... ]]?Run \acommand\a with
|
||||
optional arguments.]
|
||||
[+TEST [ \anumber\a ]] [ \adescription\a ... ]]?Define a new
|
||||
test group with optional \anumber\a and \adescription\a.]
|
||||
[+TWD [ \adir\a ... ]]?Set the temporary test dir to \adir\a.
|
||||
The default is \aunit\a\b.tmp\b, where \aunit\a is the test
|
||||
input file sans directory and suffix. If \adir\a matches \b/*\b
|
||||
then it is the directory name; if \adir\a is non-null then the
|
||||
prefix \b${TMPDIR:-/tmp}\b is added; otherwise if \adir\a is
|
||||
omitted then
|
||||
\b${TMPDIR:-/tmp}/tst-\b\aunit\a-$$-$RANDOM.\b\aunit\a is
|
||||
used.]
|
||||
[+UMASK [ \amask\a ]]?Run subsequent tests with \bumask\b(1)
|
||||
\amask\a. If \amask\a is omitted then the original \bumask\b is
|
||||
used.]
|
||||
[+UNIT \acommand\a [ \aarg\a ... ]]?Define the command and
|
||||
optional default arguments to be tested. \bUNIT\b explicitly
|
||||
overrides the default command name derived from the test script
|
||||
file name.]
|
||||
[+WIDTH \awidth\a?Set the output format width to approximately
|
||||
\awidth\a.]
|
||||
}
|
||||
[+SEE ALSO?\bregress\b(1), \bksh\b(1)]
|
||||
'
|
||||
;;
|
||||
*) ARGV0=""
|
||||
USAGE='s: unit.rt [ arg ... ]'
|
||||
;;
|
||||
esac
|
||||
|
||||
typeset ARG SCRIPT UNIT TEMP=${TMPDIR:-/tmp}/$command.$$.tmp WORK
|
||||
typeset IO INPUT INPUT_N OUTPUT OUTPUT_N ERROR ERROR_N KEEP
|
||||
typeset -C STATE
|
||||
typeset -A DATA STATE.RESET REMOVE FORMAT
|
||||
integer KEEP_UNIT=0 SCRIPT_UNIT=0 TEST=0 CODE=0 EXIT=0 ACCEPT=0 DIAGNOSTICS=0 code
|
||||
|
||||
while getopts $ARGV0 "$USAGE" OPT
|
||||
do case $OPT in
|
||||
s) case $OPTARG in
|
||||
regress|shell)
|
||||
STYLE=$OPTARG
|
||||
;;
|
||||
*) print -u2 -r -- $command: --style=$OPTARG: regress or shell expected
|
||||
exit 1
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
w) WIDTH=$OPTARG
|
||||
;;
|
||||
*) OPTIND=0
|
||||
getopts $ARGV0 "$USAGE" OPT '-?'
|
||||
exit 2
|
||||
;;
|
||||
esac
|
||||
done
|
||||
shift $OPTIND-1
|
||||
|
||||
typeset SINGLE= quote='%${SINGLE}..${WIDTH}q'
|
||||
|
||||
if [[ $1 == - ]]
|
||||
then shift
|
||||
fi
|
||||
if (( ! $# ))
|
||||
then
|
||||
print -u2 -r -- $command: test command script path expected
|
||||
exit 1
|
||||
fi
|
||||
SCRIPT=$1
|
||||
shift
|
||||
if [[ ! -r $SCRIPT ]]
|
||||
then print -u2 -r -- $command: $SCRIPT: cannot read
|
||||
exit 1
|
||||
fi
|
||||
(ulimit -c 0) >/dev/null 2>&1 && ulimit -c 0
|
||||
if (( $# ))
|
||||
then set -A UNIT -- "$@"
|
||||
KEEP_UNIT=1
|
||||
else ARG=${SCRIPT##*/}
|
||||
set -A UNIT -- "${ARG%.*}"
|
||||
fi
|
||||
WORK=${UNIT[0]}.tmp
|
||||
rm -rf $WORK
|
||||
mkdir $WORK || exit
|
||||
export PATH=$PWD:$PATH
|
||||
|
||||
function LINE
|
||||
{
|
||||
if [[ $STYLE == regress ]]
|
||||
then print -u$stdout
|
||||
fi
|
||||
}
|
||||
|
||||
function NOTE
|
||||
{
|
||||
case $STYLE in
|
||||
regress)LINE
|
||||
print -u$stdout -r -- '#' "$@"
|
||||
;;
|
||||
shell) print -u$stdout -r -f ": $QUOTE"$'\n' -- "$*"
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
function UNIT
|
||||
{
|
||||
(( KEEP_UNIT )) || set -A UNIT -- "$@"
|
||||
case $STYLE in
|
||||
regress)LINE
|
||||
print -u$stdout -r -f $'UNIT'
|
||||
for ARG in "$@"
|
||||
do print -u$stdout -r -f " $QUOTE" -- "$ARG"
|
||||
done
|
||||
print -u$stdout
|
||||
;;
|
||||
shell) print -u$stdout -r -f $'set x'
|
||||
for ARG in "$@"
|
||||
do print -u$stdout -r -f " $QUOTE" -- "$ARG"
|
||||
done
|
||||
print -u$stdout
|
||||
print -u$stdout shift
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
function TEST
|
||||
{
|
||||
typeset i
|
||||
typeset -A REM
|
||||
if (( ${#STATE.RESET[@]} ))
|
||||
then unset ${!STATE.RESET[@]}
|
||||
case $STYLE in
|
||||
shell) print -u$stdout -r -- unset ${!STATE.RESET[@]} ;;
|
||||
esac
|
||||
unset STATE.RESET
|
||||
typeset -A STATE.RESET
|
||||
fi
|
||||
if (( ${#REMOVE[@]} ))
|
||||
then rm -f -- "${!REMOVE[@]}"
|
||||
case $STYLE in
|
||||
shell) print -u$stdout -r -f $'rm -f'
|
||||
for i in ${!REMOVE[@]}
|
||||
do print -u$stdout -r -f " $QUOTE" "$i"
|
||||
done
|
||||
print -u$stdout
|
||||
;;
|
||||
esac
|
||||
for i in ${!REMOVE[@]}
|
||||
do unset REMOVE[$i]
|
||||
done
|
||||
fi
|
||||
rm -rf $WORK/*
|
||||
if [[ $1 == +([0-9]) ]]
|
||||
then TEST=${1##0}
|
||||
shift
|
||||
else ((TEST++))
|
||||
fi
|
||||
LINE
|
||||
case $STYLE in
|
||||
regress)print -u$stdout -r -f "TEST %02d $QUOTE"$'\n' -- $TEST "$*"
|
||||
;;
|
||||
shell) print -u$stdout -r -f ": TEST %02d $QUOTE"$'\n' -- $TEST "$*"
|
||||
;;
|
||||
esac
|
||||
: > $TEMP.INPUT > $TEMP.in
|
||||
INPUT=
|
||||
INPUT_N=
|
||||
OUTPUT=
|
||||
OUTPUT_N=
|
||||
ERROR=
|
||||
ERROR_N=
|
||||
UMASK=$UMASK_ORIG
|
||||
UMASK_DONE=$UMASK
|
||||
CODE=0
|
||||
}
|
||||
|
||||
function TWD
|
||||
{
|
||||
case $STYLE in
|
||||
regress)LINE
|
||||
print -u$stdout -r -f $'TWD'
|
||||
for ARG in "$@"
|
||||
do print -u$stdout -r -f " $QUOTE" -- "$ARG"
|
||||
done
|
||||
print -u$stdout
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
function RUN
|
||||
{
|
||||
typeset i n p op unit sep output=1 error=1 exitcode=1
|
||||
op=$1
|
||||
shift
|
||||
while :
|
||||
do case $1 in
|
||||
++NOOUTPUT) output= ;;
|
||||
++NOERROR) error= ;;
|
||||
++NOEXIT) exitcode= ;;
|
||||
++*) print -u2 -r -- $command: $0: $1: unknown option; exit 1 ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
if [[ $op == PROG ]]
|
||||
then unit=$1
|
||||
shift
|
||||
elif (( ! ${#UNIT[@]} ))
|
||||
then print -u2 -r -- $command: $SCRIPT: UNIT statement or operand expected
|
||||
exit 1
|
||||
fi
|
||||
LINE
|
||||
case $STYLE in
|
||||
regress)if [[ $op == PROG ]]
|
||||
then print -u$stdout -r -f $'\t'"$op"$'\t'"$unit"
|
||||
sep=$' '
|
||||
else print -u$stdout -r -f $'\t'"$op"
|
||||
sep=$'\t'
|
||||
fi
|
||||
for ARG in "$@"
|
||||
do LC_CTYPE=C print -u$stdout -r -f "$sep$QUOTE" -- "$ARG"
|
||||
sep=$' '
|
||||
done
|
||||
print -u$stdout
|
||||
[[ ${DATA[-]} || /dev/fd/0 -ef /dev/fd/$stdin ]] || cat > $TEMP.in
|
||||
IO=$(cat $TEMP.in; print :)
|
||||
if [[ $IO == ?*$'\n:' ]]
|
||||
then IO=${IO%??}
|
||||
n=
|
||||
else IO=${IO%?}
|
||||
n=-n
|
||||
fi
|
||||
{
|
||||
[[ $UMASK != $UMASK_ORIG ]] && umask $UMASK
|
||||
cd $WORK
|
||||
if [[ $op == PROG ]]
|
||||
then "$unit" "$@"
|
||||
code=$?
|
||||
else "${UNIT[@]}" "$@"
|
||||
code=$?
|
||||
fi
|
||||
cd ..
|
||||
[[ $UMASK != $UMASK_ORIG ]] && umask $UMASK_ORIG
|
||||
} < $TEMP.in > $TEMP.out 2> $TEMP.err
|
||||
if [[ $IO != "$INPUT" || $n != "$INPUT_N" ]]
|
||||
then INPUT=$IO
|
||||
INPUT_N=$n
|
||||
if [[ ${FORMAT[-]} ]]
|
||||
then print -u$stdout -n -r -- $'\t\tINPUT'
|
||||
print -u$stdout -r -f " $QUOTE" -- "${FORMAT[-]}"
|
||||
print -u$stdout -r -f " $QUOTE" -- -
|
||||
unset FORMAT[-]
|
||||
else print -u$stdout -n -r -- $'\t\tINPUT' $n -
|
||||
[[ $IO ]] && LC_CTYPE=C print -u$stdout -r -f " $QUOTE" -- "$IO"
|
||||
fi
|
||||
print -u$stdout
|
||||
unset DATA[-]
|
||||
fi
|
||||
for i in ${!DATA[@]}
|
||||
do if [[ ${FORMAT[$i]} ]]
|
||||
then print -u$stdout -n -r -- $'\t\tINPUT'
|
||||
print -u$stdout -r -f " $QUOTE" -- "${FORMAT[$i]}"
|
||||
print -u$stdout -r -f " $QUOTE" -- "$i"
|
||||
unset FORMAT[$i]
|
||||
else case $i in
|
||||
-) p=$TEMP.in ;;
|
||||
*) p=$WORK/$i ;;
|
||||
esac
|
||||
IO=$(cat $p; print :)
|
||||
if [[ $IO == ?*$'\n:' ]]
|
||||
then IO=${IO%??}
|
||||
n=
|
||||
else IO=${IO%?}
|
||||
n=-n
|
||||
fi
|
||||
print -u$stdout -n -r -- $'\t\tINPUT' $n
|
||||
print -u$stdout -r -f " $QUOTE" -- "$i"
|
||||
[[ $IO ]] && LC_CTYPE=C print -u$stdout -r -f " $QUOTE" -- "$IO"
|
||||
fi
|
||||
print -u$stdout
|
||||
unset DATA[$i]
|
||||
done
|
||||
IO=$(cat $TEMP.out; print :)
|
||||
if [[ $IO == ?*$'\n:' ]]
|
||||
then IO=${IO%??}
|
||||
n=
|
||||
else IO=${IO%?}
|
||||
n=-n
|
||||
fi
|
||||
if [[ $IO != "$OUTPUT" || $n != "$OUTPUT_N" ]]
|
||||
then OUTPUT=$IO
|
||||
OUTPUT_N=$n
|
||||
if [[ $output ]]
|
||||
then if [[ ! -s $TEMP.out ]]
|
||||
then print -u$stdout -n -r -- $'\t\tOUTPUT' -
|
||||
elif cmp -s $TEMP.in $TEMP.out
|
||||
then OUTPUT=not-$OUTPUT
|
||||
print -u$stdout -n -r -- $'\t\tSAME OUTPUT INPUT'
|
||||
else print -u$stdout -n -r -- $'\t\tOUTPUT' $n -
|
||||
[[ $IO ]] && LC_CTYPE=C print -u$stdout -r -f " $QUOTE" -- "$IO"
|
||||
fi
|
||||
print -u$stdout
|
||||
fi
|
||||
fi
|
||||
IO=$(cat $TEMP.err; print :)
|
||||
IO=${IO//$command\[*([0-9])\]:\ .\[*([0-9])\]:\ @(EXEC|PROG)\[*([0-9])\]:\ /}
|
||||
if [[ $IO == ?*$'\n:' ]]
|
||||
then IO=${IO%??}
|
||||
n=
|
||||
else IO=${IO%?}
|
||||
n=-n
|
||||
fi
|
||||
if [[ $IO != "$ERROR" || $n != "$ERROR_N" ]]
|
||||
then ERROR=$IO
|
||||
ERROR_N=$n
|
||||
if [[ $error ]]
|
||||
then print -u$stdout -n -r -- $'\t\tERROR' $n -
|
||||
[[ $IO ]] && LC_CTYPE=C print -u$stdout -r -f " $QUOTE" -- "$IO"
|
||||
print -u$stdout
|
||||
fi
|
||||
fi
|
||||
case $output:$error in
|
||||
:) OUTPUT=
|
||||
OUTPUT_N=
|
||||
ERROR=
|
||||
ERROR_N=
|
||||
print -u$stdout -r -- $'\t\tIGNORE OUTPUT ERROR'
|
||||
;;
|
||||
:1) OUTPUT=
|
||||
OUTPUT_N=
|
||||
print -u$stdout -r -- $'\t\tIGNORE OUTPUT'
|
||||
;;
|
||||
1:) ERROR=
|
||||
ERROR_N=
|
||||
print -u$stdout -r -- $'\t\tIGNORE ERROR'
|
||||
;;
|
||||
esac
|
||||
if [[ $UMASK_DONE != $UMASK ]]
|
||||
then UMASK_DONE=$UMASK
|
||||
print -u$stdout -r -f $'\t\tUMASK %s\n' $UMASK
|
||||
fi
|
||||
if (( code != CODE ))
|
||||
then (( CODE=code ))
|
||||
if [[ $exitcode ]]
|
||||
then print -u$stdout -r -f $'\t\tEXIT %d\n' $CODE
|
||||
fi
|
||||
fi
|
||||
;;
|
||||
shell) [[ $UMASK != $UMASK_ORIG ]] && print -u$stdout -r -f "{ umask $UMASK; "
|
||||
if [[ $op == PROG ]]
|
||||
then print -u$stdout -r -f $'"'"$unit"$'"'
|
||||
else print -u$stdout -r -f $'"$@"'
|
||||
fi
|
||||
for ARG in "$@"
|
||||
do print -u$stdout -r -f " $QUOTE" -- "$ARG"
|
||||
done
|
||||
[[ $UMASK != $UMASK_ORIG ]] && print -u$stdout -r -f "umask $UMASK_ORIG; } "
|
||||
if [[ ! $output ]]
|
||||
then print -u$stdout -r -f " >/dev/null"
|
||||
fi
|
||||
if [[ ! $error ]]
|
||||
then if [[ ! $output ]]
|
||||
then print -u$stdout -r -f " 2>&1"
|
||||
else print -u$stdout -r -f " 2>/dev/null"
|
||||
fi
|
||||
fi
|
||||
IO=$(cat)
|
||||
if [[ $IO ]]
|
||||
then print -u$stdout -r -- "<<'!TEST-INPUT!'"
|
||||
print -u$stdout -r -- "$IO"
|
||||
print -u$stdout -r -- !TEST-INPUT!
|
||||
else print -u$stdout
|
||||
fi
|
||||
if [[ $exitcode ]]
|
||||
then print -u$stdout -r -- $'CODE=$?\ncase $CODE in\n0) ;;\n*) echo exit status $CODE ;;\nesac'
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
function DO
|
||||
{
|
||||
LINE
|
||||
print -r $'\t'DO "$@"
|
||||
}
|
||||
|
||||
function EXEC
|
||||
{
|
||||
RUN EXEC "$@"
|
||||
}
|
||||
|
||||
function DATA
|
||||
{
|
||||
typeset f p o
|
||||
f=$1
|
||||
shift
|
||||
case $f in
|
||||
-) p=$TEMP.in ;;
|
||||
*) p=$WORK/$f ;;
|
||||
esac
|
||||
case $1 in
|
||||
'') cat ;;
|
||||
-) ;;
|
||||
*) print -r "$@" ;;
|
||||
esac > $p
|
||||
DATA[$f]=1
|
||||
if (( $# == 1 )) && [[ $1 == -?* ]]
|
||||
then FORMAT[$f]=$1
|
||||
else FORMAT[$f]=
|
||||
fi
|
||||
if [[ $f != $KEEP ]]
|
||||
then REMOVE[$f]=1
|
||||
fi
|
||||
if [[ $STYLE == shell ]]
|
||||
then {
|
||||
print -r -f "cat > $QUOTE <<'!TEST-INPUT!'"$'\n' -- "$f"
|
||||
cat "$p"
|
||||
print -r -- !TEST-INPUT!
|
||||
} >&$stdout
|
||||
fi
|
||||
}
|
||||
|
||||
function KEEP
|
||||
{
|
||||
typeset p
|
||||
for p
|
||||
do if [[ $KEEP ]]
|
||||
then KEEP=$KEEP'|'
|
||||
fi
|
||||
KEEP=$KEEP$p
|
||||
done
|
||||
}
|
||||
|
||||
function DIAGNOSTICS
|
||||
{
|
||||
LINE
|
||||
case $STYLE in
|
||||
regress) print -u$stdout -r $'DIAGNOSTICS' ;;
|
||||
shell) DIAGNOSTICS=1 ;;
|
||||
esac
|
||||
}
|
||||
|
||||
function EXPORT
|
||||
{
|
||||
typeset x n v
|
||||
LINE
|
||||
case $STYLE in
|
||||
regress) print -u$stdout -r -f $'EXPORT' ;;
|
||||
shell) print -u$stdout -r -f $'export' ;;
|
||||
esac
|
||||
for x
|
||||
do n=${x%%=*}
|
||||
v=${x#*=}
|
||||
export "$x"
|
||||
print -u$stdout -r -f " %s=$QUOTE" "$n" "$v"
|
||||
(( TEST )) && STATE.RESET["$n"]=1
|
||||
done
|
||||
print -u$stdout
|
||||
}
|
||||
|
||||
function PROG
|
||||
{
|
||||
RUN PROG "$@"
|
||||
}
|
||||
|
||||
function WIDTH
|
||||
{
|
||||
WIDTH=${1:-80}
|
||||
eval QUOTE='"'$quote'"'
|
||||
}
|
||||
|
||||
function IGNORESPACE
|
||||
{
|
||||
IGNORESPACE=-b
|
||||
LINE
|
||||
print -u$stdout -r IGNORESPACE
|
||||
}
|
||||
|
||||
function UMASK # [ mask ]
|
||||
{
|
||||
[[ $UMASK_ORIG ]] || UMASK_ORIG=$(umask)
|
||||
UMASK=$1
|
||||
[[ $UMASK ]] || UMASK=$UMASK_ORIG
|
||||
}
|
||||
|
||||
trap 'CODE=$?; rm -rf $TEMP.* $WORK; exit $CODE' 0 1 2 3 15
|
||||
|
||||
typeset IGNORESPACE UMASK UMASK_ORIG UMASK_DONE
|
||||
UMASK_ORIG=$(umask)
|
||||
IFS=$IFS$'\n'
|
||||
|
||||
print -u$stdout -r "# : : generated from $SCRIPT by $command : : #"
|
||||
case $STYLE in
|
||||
shell) cat <<!
|
||||
ACCEPT=0
|
||||
while :
|
||||
do case \$1 in
|
||||
-a|--accept)
|
||||
ACCEPT=1
|
||||
;;
|
||||
--help|--man)
|
||||
cat 1>&2 <<!!
|
||||
Usage: \\\$SHELL $PREFIX${UNIT[0]}.sh [ --accept ] [ unit ... ]
|
||||
|
||||
${UNIT[0]} regression test script. Run this script to generate new
|
||||
results in $PREFIX${UNIT[0]}.tmp and compare with expected results in
|
||||
$PREFIX${UNIT[0]}.out. The --accept option generates $PREFIX${UNIT[0]}.tmp
|
||||
and moves it to $PREFIX${UNIT[0]}.out.
|
||||
!!
|
||||
exit 2
|
||||
;;
|
||||
-*) echo \$0: \$1: invalid option >&2
|
||||
exit 1
|
||||
;;
|
||||
*) break
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
export COLUMNS=80
|
||||
{
|
||||
!
|
||||
;;
|
||||
esac
|
||||
|
||||
export COLUMNS=80
|
||||
|
||||
case $STYLE in
|
||||
shell) SINGLE='#'
|
||||
eval QUOTE='"'$quote'"'
|
||||
. $SCRIPT < /dev/null | sed -e $'s,\\\\n,\n,g' -e $'s,\\\\t,\t,g' -e $'s,\\$\',\',g'
|
||||
;;
|
||||
*) eval QUOTE='"'$quote'"'
|
||||
: > $TEMP.INPUT > $TEMP.in
|
||||
eval "exec $stdin<$TEMP.INPUT"
|
||||
. $SCRIPT <&$stdin
|
||||
;;
|
||||
esac
|
||||
|
||||
case $STYLE in
|
||||
shell) cat <<!
|
||||
} > $PREFIX${UNIT[0]}.tmp 2>&1 < /dev/null
|
||||
case \$ACCEPT in
|
||||
0) if grep '
|
||||
$' $PREFIX${UNIT[0]}.tmp >/dev/null
|
||||
then mv $PREFIX${UNIT[0]}.tmp $PREFIX${UNIT[0]}.junk
|
||||
sed 's/
|
||||
$//' < $PREFIX${UNIT[0]}.junk > $PREFIX${UNIT[0]}.tmp
|
||||
rm -f $PREFIX${UNIT[0]}.junk
|
||||
fi
|
||||
if cmp -s $PREFIX${UNIT[0]}.tmp $PREFIX${UNIT[0]}.out
|
||||
then echo ${UNIT[0]} tests PASSED
|
||||
rm -f $PREFIX${UNIT[0]}.tmp
|
||||
else echo ${UNIT[0]} tests FAILED
|
||||
diff $IGNORESPACE $PREFIX${UNIT[0]}.tmp $PREFIX${UNIT[0]}.out
|
||||
fi
|
||||
;;
|
||||
|
||||
*) mv $PREFIX${UNIT[0]}.tmp $PREFIX${UNIT[0]}.out
|
||||
;;
|
||||
esac
|
||||
!
|
||||
27
cde/programs/dtksh/ksh93/src/cmd/INIT/mprobe.sh
Normal file
27
cde/programs/dtksh/ksh93/src/cmd/INIT/mprobe.sh
Normal file
@@ -0,0 +1,27 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
: mam probe script
|
||||
opt=
|
||||
while :
|
||||
do case $1 in
|
||||
-d) opt=-d ;;
|
||||
-*) ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
mamprobe $opt - "$1"
|
||||
28
cde/programs/dtksh/ksh93/src/cmd/INIT/nsl.c
Normal file
28
cde/programs/dtksh/ksh93/src/cmd/INIT/nsl.c
Normal file
@@ -0,0 +1,28 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for -lnsl
|
||||
*/
|
||||
|
||||
|
||||
extern void* gethostbyname();
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
return gethostbyname(0) == 0;
|
||||
}
|
||||
21
cde/programs/dtksh/ksh93/src/cmd/INIT/p.c
Normal file
21
cde/programs/dtksh/ksh93/src/cmd/INIT/p.c
Normal file
@@ -0,0 +1,21 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for prototyping cc
|
||||
*/
|
||||
|
||||
int main(int argc, char** argv) { return argc || argv; }
|
||||
3511
cde/programs/dtksh/ksh93/src/cmd/INIT/package.sh
Normal file
3511
cde/programs/dtksh/ksh93/src/cmd/INIT/package.sh
Normal file
File diff suppressed because it is too large
Load Diff
262
cde/programs/dtksh/ksh93/src/cmd/INIT/probe.win32
Normal file
262
cde/programs/dtksh/ksh93/src/cmd/INIT/probe.win32
Normal file
@@ -0,0 +1,262 @@
|
||||
:
|
||||
# @(#)probe.win32 (AT&T Research) 2010-01-01
|
||||
#
|
||||
# Win32 specific make C probe initialization
|
||||
# wrapped cc's are easy on UWIN
|
||||
#
|
||||
# 2> easy.err to avoid mysterious hang with bcc
|
||||
|
||||
# begin preamble shared with the pp probe.ini
|
||||
|
||||
IFS=$'\n'
|
||||
|
||||
chmod 777 . # cl.exe setuid workaround
|
||||
|
||||
typeset -A header version
|
||||
|
||||
# we are probing on behalf of libpp and nmake
|
||||
# so the native preprocessor must be forced in
|
||||
# order to bootstrap libpp and nmake
|
||||
|
||||
nativepp=-1
|
||||
export nativepp
|
||||
|
||||
probe_header="
|
||||
stddef.h
|
||||
"
|
||||
for inc in syslimits.h winerror.h ostream bits/ctype_base.h stream.h
|
||||
do echo "#include <$inc>" > easy.c
|
||||
if $cc -E easy.c > /dev/null 2> easy.err
|
||||
then probe_header="$probe_header
|
||||
$inc
|
||||
"
|
||||
fi
|
||||
done
|
||||
|
||||
{
|
||||
for i in $probe_header
|
||||
do echo "#include <$i>"
|
||||
done
|
||||
echo '#ifdef __BORLANDC__'
|
||||
echo "int _Pr0b3_version_BORLAND=__BORLANDC__;"
|
||||
echo '#endif'
|
||||
echo '#ifdef __DMC__'
|
||||
echo "int _Pr0b3_version_DM=__DMC__;"
|
||||
echo '#endif'
|
||||
echo '#ifdef _MSC_VER'
|
||||
echo "int _Pr0b3_version_MS=_MSC_VER;"
|
||||
echo '#endif'
|
||||
echo '#ifdef __ICL'
|
||||
echo "int _Pr0b3_version_ICL=__ICL;"
|
||||
echo '#endif'
|
||||
echo '#ifdef __LCC__'
|
||||
echo "int _Pr0b3_version_LCC=0+__LCC__;"
|
||||
echo '#endif'
|
||||
echo '#ifdef __MINGW32__'
|
||||
echo "int _Pr0b3_version_MINGW=__MINGW32__;"
|
||||
echo '#endif'
|
||||
echo '#ifdef __INTERIX'
|
||||
echo "int _Pr0b3_version_INTERIX=__INTERIX;"
|
||||
echo '#endif'
|
||||
echo '#ifdef __WATCOMC__'
|
||||
echo "int _Pr0b3_version_WATCOM=__WATCOMC__;"
|
||||
echo '#endif'
|
||||
} > easy.c
|
||||
|
||||
include=
|
||||
|
||||
$cc -E easy.c 2>&1 |
|
||||
egrep -i '^(#(line)? 1 .*\.[hH]| *int +_Pr0b3_[a-zA-Z_]* *= *[0-9])' |
|
||||
sed -e 's,_Pr0b3_,,' \
|
||||
-e 's/.*"\(.*\)".*/\1/' \
|
||||
-e 's,^ *,,' \
|
||||
-e 's, *$,,' \
|
||||
-e 's, *= *,=,' \
|
||||
-e 's,^\(.\):[\\/]*,/\1/,' \
|
||||
-e 's,[\\/][\\/]*,/,g' \
|
||||
-e 's,^\(/.*\)/\(.*\)$,header[\2]="\1",' \
|
||||
-e 's, *int *\(.*\);.*,\1,' \
|
||||
-e 's,^version_\(.*\)=,version[\1]=,' \
|
||||
> easy.sh
|
||||
. ./easy.sh
|
||||
|
||||
include=
|
||||
for i in $probe_header
|
||||
do d=${header[$i]}
|
||||
if [[ $d ]]
|
||||
then include="$include
|
||||
$d"
|
||||
elif [[ $i == */* ]]
|
||||
then d=${header[${i##*/}]}
|
||||
if [[ $d == */${i%/*} ]]
|
||||
then include="$include
|
||||
${d%/${i%/*}}"
|
||||
fi
|
||||
fi
|
||||
done
|
||||
|
||||
i=$($cc -V 2> easy.err)
|
||||
if test "" != "$i" -a -d "$i/include"
|
||||
then include="$i/include
|
||||
$include"
|
||||
fi
|
||||
|
||||
stdinclude=
|
||||
for inc in $include
|
||||
do if [[ ${inc%/*} -ef /msdev/platformsdk ]]
|
||||
then inc=/msdev/platformsdk/${inc##*/}
|
||||
elif [[ ${inc%/*} -ef /platformsdk ]]
|
||||
then inc=/platformsdk/${inc##*/}
|
||||
fi
|
||||
for dup in $stdinclude
|
||||
do [[ $inc -ef $dup ]] && continue 2
|
||||
done
|
||||
stdinclude="$stdinclude
|
||||
$inc"
|
||||
done
|
||||
|
||||
# end preamble shared with the pp probe.ini
|
||||
|
||||
if [[ ${version[@]} == [0-9]* && $stdinclude ]]
|
||||
then : the payoff
|
||||
set -- $cc
|
||||
cmd=$1
|
||||
shift
|
||||
set -- $(whence $cmd) "$@"
|
||||
typ=$(package)
|
||||
dialect="ANSI CLOSURE DYNAMIC EXPORT=DLL LIBPP -I-"
|
||||
ld=${cc%cc}ld
|
||||
if [[ ! -x $ld ]]
|
||||
then ld=${cc%/*}/ld
|
||||
if [[ ! -x $ld ]]
|
||||
then case $cc in
|
||||
*/ncc) ld=/usr/bin/nld ;;
|
||||
*) ld=/usr/bin/ld ;;
|
||||
esac
|
||||
fi
|
||||
fi
|
||||
{
|
||||
if $cc -v >/dev/null 2>&1
|
||||
then v=$($cc -v 2>/dev/null)
|
||||
if [[ $v ]]
|
||||
then print "# ;VERSION;-v;$v;PATH;$cc"
|
||||
fi
|
||||
else v=
|
||||
fi
|
||||
cat <<!
|
||||
CC.CC = $*
|
||||
CC.NATIVE = $*
|
||||
CC.EXECTYPE = $typ
|
||||
CC.HOSTTYPE = $typ
|
||||
CC.ALTPP.FLAGS = -Yp,\$(CPP:D)
|
||||
CC.ALTPP.ENV =
|
||||
CC.AR = ar
|
||||
CC.ARFLAGS =
|
||||
CC.DEBUG = -g
|
||||
CC.DIALECT = $dialect
|
||||
CC.DLL = -D_BLD_DLL
|
||||
CC.DLLBIG = -D_BLD_DLL
|
||||
CC.DLL.DEF = -D_BLD_DLL
|
||||
CC.DLL.DIR = \$(BINDIR)
|
||||
CC.DLL.LIBRARIES =
|
||||
CC.DLL.VARIANTS =
|
||||
CC.DYNAMIC =
|
||||
CC.EXPORT.DYNAMIC =
|
||||
CC.LD = $ld
|
||||
CC.LD.DYNAMIC = -Bdynamic
|
||||
CC.LD.LAZY =
|
||||
CC.LD.NOLAZY =
|
||||
CC.LD.ORIGIN =
|
||||
CC.LD.RECORD =
|
||||
CC.LD.NORECORD =
|
||||
CC.LD.RUNPATH =
|
||||
CC.LD.STATIC = -Bstatic
|
||||
CC.LD.STRIP =
|
||||
CC.LIB.DLL = option
|
||||
CC.LIB.ALL = -Bwhole-archive
|
||||
CC.LIB.UNDEF = -Bno-whole-archive
|
||||
CC.MAKE.OPTIONS = nativepp=0
|
||||
CC.NM = nm
|
||||
CC.NMEDIT =
|
||||
CC.NMFLAGS =
|
||||
CC.OPTIMIZE = -O
|
||||
CC.PIC =
|
||||
CC.PICBIG =
|
||||
CC.READONLY =
|
||||
CC.REPOSITORY =
|
||||
CC.SHARED = -G
|
||||
CC.SHARED.LD = $ld
|
||||
CC.SHARED.REGISTRY =
|
||||
CC.SHARED.REGISTRY.PATH =
|
||||
CC.SHELLMAGIC =
|
||||
CC.SIZE = size
|
||||
CC.STATIC = -Bstatic
|
||||
!
|
||||
inc=
|
||||
lib=
|
||||
if [[ ${version[LCC]} ]]
|
||||
then lib=/lcc
|
||||
fi
|
||||
if [[ $stdinclude == *' '* ]]
|
||||
then stdinclude=${stdinclude//' '/''}
|
||||
fi
|
||||
stdinc=
|
||||
stdlib=
|
||||
for inc in $stdinclude
|
||||
do stdinc="$stdinc $inc"
|
||||
d=${inc%/*}/lib
|
||||
if [[ -d $d ]]
|
||||
then stdlib="$stdlib $d"
|
||||
fi
|
||||
done
|
||||
cat <<!
|
||||
CC.STDINCLUDE = $stdinc
|
||||
CC.STDLIB = $stdlib
|
||||
!
|
||||
cat <<!
|
||||
CC.STRICT =
|
||||
CC.STRIP = strip
|
||||
CC.STRIP.FLAGS =
|
||||
CC.PREFIX.ARCHIVE = lib
|
||||
CC.PREFIX.DYNAMIC =
|
||||
CC.PREFIX.SHARED =
|
||||
CC.PREFIX.SYMBOL = _
|
||||
CC.SUFFIX.ARCHIVE = .a
|
||||
CC.SUFFIX.COMMAND =
|
||||
CC.SUFFIX.DEBUG = .pdb
|
||||
CC.SUFFIX.DYNAMIC = .dll
|
||||
CC.SUFFIX.LD = .def .exp .ign .res
|
||||
CC.SUFFIX.OBJECT = .o
|
||||
CC.SUFFIX.SHARED = .lib
|
||||
CC.SUFFIX.SOURCE = .c
|
||||
CC.SUFFIX.STATIC =
|
||||
!
|
||||
if [[ $v ]]
|
||||
then case $v in
|
||||
*\"*) v=$(print -r -- | sed -e 's,",\\",g' -e 's,^ ,,' -e 's,.*,"&",') ;;
|
||||
*\'*) v=\"$v\" ;;
|
||||
esac
|
||||
cat <<!
|
||||
CC.VERSION = -v
|
||||
CC.VERSION.STRING = $v
|
||||
!
|
||||
else cat <<!
|
||||
CC.VERSION =
|
||||
CC.VERSION.STRING =
|
||||
!
|
||||
fi
|
||||
if [[ ${version[MINGW]} || ${version[MS]} ]]
|
||||
then cat <<!
|
||||
CC.WARN = -Wall
|
||||
!
|
||||
else cat <<!
|
||||
CC.WARN =
|
||||
!
|
||||
fi
|
||||
cat <<!
|
||||
CC.PREROOT =
|
||||
CC.UNIVERSE = att
|
||||
!
|
||||
} >&3
|
||||
exit 0
|
||||
fi
|
||||
35
cde/programs/dtksh/ksh93/src/cmd/INIT/proto.sh
Normal file
35
cde/programs/dtksh/ksh93/src/cmd/INIT/proto.sh
Normal file
@@ -0,0 +1,35 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This file is part of the ksh 93u+m package #
|
||||
# Copyright (c) 2021 Contributors to ksh 93u+m #
|
||||
# <https://github.com/ksh93/ksh> #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
|
||||
# proto(1) has been removed. This is a backwards compatibility stub that allows
|
||||
# compiling older AST code (with Mamfiles containing proto commands) using the
|
||||
# current INIT system. This stub ignores all options, then invokes 'cat'.
|
||||
|
||||
while getopts ':dfhinprstvzPSC:e:l:o:L:' opt
|
||||
do case $opt in
|
||||
\?) case $OPTARG in
|
||||
+) ;;
|
||||
*) echo "proto: $OPTARG: unknown option"
|
||||
echo 'Usage: proto [-dfhinprstvzP+S] [-C directory] [-e package] [-l file]'
|
||||
echo ' [-o "name='\''value'\'' ..."] [-L file] file ...'
|
||||
exit 2
|
||||
;;
|
||||
esac >&2
|
||||
;;
|
||||
esac
|
||||
done
|
||||
shift $((OPTIND - 1))
|
||||
exec cat -- "$@"
|
||||
1463
cde/programs/dtksh/ksh93/src/cmd/INIT/regress.sh
Normal file
1463
cde/programs/dtksh/ksh93/src/cmd/INIT/regress.sh
Normal file
File diff suppressed because it is too large
Load Diff
32
cde/programs/dtksh/ksh93/src/cmd/INIT/silent.sh
Normal file
32
cde/programs/dtksh/ksh93/src/cmd/INIT/silent.sh
Normal file
@@ -0,0 +1,32 @@
|
||||
########################################################################
|
||||
# #
|
||||
# This software is part of the ast package #
|
||||
# Copyright (c) 1994-2011 AT&T Intellectual Property #
|
||||
# Copyright (c) 2020-2022 Contributors to ksh 93u+m #
|
||||
# and is licensed under the #
|
||||
# Eclipse Public License, Version 2.0 #
|
||||
# #
|
||||
# A copy of the License is available at #
|
||||
# https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html #
|
||||
# (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) #
|
||||
# #
|
||||
# Glenn Fowler <gsf@research.att.com> #
|
||||
# Martijn Dekker <martijn@inlv.org> #
|
||||
# #
|
||||
########################################################################
|
||||
# non-ksh stub for the nmake silent prefix
|
||||
# @(#)silent (ksh 93u+m) 2021-12-31
|
||||
|
||||
while :
|
||||
do case $# in
|
||||
0) exit 0 ;;
|
||||
esac
|
||||
case $1 in
|
||||
*=*) export "$1"
|
||||
shift
|
||||
;;
|
||||
*) break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
"$@"
|
||||
30
cde/programs/dtksh/ksh93/src/cmd/INIT/socket.c
Normal file
30
cde/programs/dtksh/ksh93/src/cmd/INIT/socket.c
Normal file
@@ -0,0 +1,30 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* small test for -lnsl
|
||||
*/
|
||||
|
||||
#ifndef socket
|
||||
#include <sys/types.h>
|
||||
#include <sys/socket.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
return socket(0, 0, 0) < 0;
|
||||
}
|
||||
27
cde/programs/dtksh/ksh93/src/cmd/INIT/w.c
Normal file
27
cde/programs/dtksh/ksh93/src/cmd/INIT/w.c
Normal file
@@ -0,0 +1,27 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#ifndef DONTCARE
|
||||
#include <wchar.h>
|
||||
#include <wctype.h>
|
||||
#endif
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
wchar_t w = ' ';
|
||||
return iswspace(w) == 0;
|
||||
}
|
||||
24
cde/programs/dtksh/ksh93/src/cmd/INIT/w2.c
Normal file
24
cde/programs/dtksh/ksh93/src/cmd/INIT/w2.c
Normal file
@@ -0,0 +1,24 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1994-2011 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* Glenn Fowler <gsf@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#include <wchar.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
wchar_t w = ' ';
|
||||
return iswspace(w) == 0;
|
||||
}
|
||||
15
cde/programs/dtksh/ksh93/src/cmd/Mamfile
Normal file
15
cde/programs/dtksh/ksh93/src/cmd/Mamfile
Normal file
@@ -0,0 +1,15 @@
|
||||
note *
|
||||
note * This build file is in the Make Abstract Machine (MAM) language. It was
|
||||
note * first generated by nmake, but in the ksh 93u+m distribution we maintain
|
||||
note * it manually because nmake had too many problems to keep using. The
|
||||
note * Mamfiles are processed by mamake (src/cmd/INIT/mamake.c); we added
|
||||
note * indentation to improve readability. The language is documented in
|
||||
note * src/cmd/INIT/README-mamake.md.
|
||||
note *
|
||||
make test
|
||||
make install
|
||||
make all
|
||||
exec - ${MAMAKE} -r '*' ${MAMAKEARGS}
|
||||
done all virtual
|
||||
done install virtual
|
||||
done test virtual
|
||||
66
cde/programs/dtksh/ksh93/src/cmd/builtin/Mamfile
Normal file
66
cde/programs/dtksh/ksh93/src/cmd/builtin/Mamfile
Normal file
@@ -0,0 +1,66 @@
|
||||
note *
|
||||
note * This build file is in the Make Abstract Machine (MAM) language. It was
|
||||
note * first generated by nmake, but in the ksh 93u+m distribution we maintain
|
||||
note * it manually because nmake had too many problems to keep using. The
|
||||
note * Mamfiles are processed by mamake (src/cmd/INIT/mamake.c); we added
|
||||
note * indentation to improve readability. The language is documented in
|
||||
note * src/cmd/INIT/README-mamake.md.
|
||||
note *
|
||||
setv INSTALLROOT ../../..
|
||||
setv PACKAGE_ast_INCLUDE ${INSTALLROOT}/include/ast
|
||||
setv PACKAGE_cmd ${INSTALLROOT}
|
||||
setv PACKAGEROOT ../../../../..
|
||||
setv CC cc
|
||||
setv mam_cc_FLAGS
|
||||
setv CCFLAGS ${-debug-symbols?1?${mam_cc_DEBUG} -D_BLD_DEBUG?${mam_cc_OPTIMIZE}?}
|
||||
setv CCLDFLAGS ${-strip-symbols?1?${mam_cc_LD_STRIP}??}
|
||||
setv IFFEFLAGS
|
||||
setv LDFLAGS
|
||||
make .INIT
|
||||
make ${PACKAGE_ast_INCLUDE}/cmdlist.h
|
||||
done ${PACKAGE_ast_INCLUDE}/cmdlist.h
|
||||
exec - sed -e '/^CMDLIST(.*)$/!d' -e 's/CMDLIST(\(.*\))/\1/' -e '/^getconf$/d' -e '/^ln$/d' -e '/^mv$/d' -e '/^md5sum$/d' -e '/^sum$/d' ${PACKAGE_ast_INCLUDE}/cmdlist.h
|
||||
bind -lcmd
|
||||
done .INIT dontcare virtual
|
||||
make install
|
||||
make pty
|
||||
make pty.o
|
||||
make pty.c
|
||||
make FEATURE/pty implicit
|
||||
make features/pty
|
||||
done features/pty
|
||||
exec - iffe ${IFFEFLAGS} -v -c "${CC} ${mam_cc_FLAGS} ${CCFLAGS} ${LDFLAGS}" ref ${mam_cc_L+-L${INSTALLROOT}/lib} -I${PACKAGE_ast_INCLUDE} -I${INSTALLROOT}/include ${mam_libast} ${mam_libcmd} : run features/pty
|
||||
done FEATURE/pty generated
|
||||
make ${PACKAGE_ast_INCLUDE}/ast_time.h implicit
|
||||
done ${PACKAGE_ast_INCLUDE}/ast_time.h
|
||||
prev ${PACKAGE_ast_INCLUDE}/vmalloc.h implicit
|
||||
prev ${PACKAGE_ast_INCLUDE}/regex.h implicit
|
||||
make ${PACKAGE_ast_INCLUDE}/proc.h implicit
|
||||
prev ${PACKAGE_ast_INCLUDE}/ast.h implicit
|
||||
done ${PACKAGE_ast_INCLUDE}/proc.h
|
||||
prev ${PACKAGE_ast_INCLUDE}/error.h implicit
|
||||
prev ${PACKAGE_ast_INCLUDE}/cmd.h implicit
|
||||
done pty.c
|
||||
prev pty.c
|
||||
exec - ${CC} ${mam_cc_FLAGS} ${CCFLAGS} -I. -I${PACKAGE_ast_INCLUDE} -DERROR_CATALOG=\""builtin"\" -D_PACKAGE_ast -DCMD_STANDALONE=b_pty -c pty.c
|
||||
done pty.o generated
|
||||
bind -lutil dontcare
|
||||
exec - ${CC} ${CCLDFLAGS} ${mam_cc_FLAGS} ${CCFLAGS} ${LDFLAGS} ${mam_cc_L+-L.} ${mam_cc_L+-L${INSTALLROOT}/lib} -o pty pty.o ${mam_libutil} ${mam_libast} -lm ${mam_libcmd}
|
||||
done pty generated
|
||||
make ${INSTALLROOT}/bin
|
||||
exec - if silent test ! -d ${INSTALLROOT}/bin
|
||||
exec - then mkdir -p ${INSTALLROOT}/bin
|
||||
exec - fi
|
||||
done ${INSTALLROOT}/bin generated
|
||||
make ${INSTALLROOT}/bin/pty
|
||||
prev pty
|
||||
exec - ${STDCMP} 2>/dev/null -s pty ${INSTALLROOT}/bin/pty || { ${STDMV} ${INSTALLROOT}/bin/pty ${INSTALLROOT}/bin/pty.old 2>/dev/null || true; ${STDCP} pty ${INSTALLROOT}/bin/pty ;}
|
||||
done ${INSTALLROOT}/bin/pty generated
|
||||
make ${INSTALLROOT}/bin
|
||||
exec - if silent test ! -d ${INSTALLROOT}/bin
|
||||
exec - then mkdir -p ${INSTALLROOT}/bin
|
||||
exec - fi
|
||||
done ${INSTALLROOT}/bin virtual
|
||||
done install virtual
|
||||
make test
|
||||
done test dontcare virtual
|
||||
14
cde/programs/dtksh/ksh93/src/cmd/builtin/RELEASE
Normal file
14
cde/programs/dtksh/ksh93/src/cmd/builtin/RELEASE
Normal file
@@ -0,0 +1,14 @@
|
||||
This file is of historical interest only. For recent changes in both ksh 93u+m
|
||||
and the accompanying libraries, see the file NEWS in the top-level directory.
|
||||
____
|
||||
|
||||
12-02-28 pty.c: change --verbose[=level] to --debug=level
|
||||
12-01-26 pty.c: fix --man docs
|
||||
10-06-21 pty.c: add 4 sec timeout for initial handshake -- fix me!!
|
||||
10-04-12 pty: fix sfpoll() result read/write bug
|
||||
10-04-01 pty: add --tty='stty-settings'
|
||||
10-03-19 pty: add --dialogue
|
||||
10-03-15 pty: fix select() fd management
|
||||
09-03-31 features/pty,Makefile: add pty.h and -lutil refs for Linux -- great, another util library
|
||||
09-01-30 pty.c: add <ast_time.h> (for fd_set!! on mvs.390)
|
||||
06-07-20 pty.c: add
|
||||
63
cde/programs/dtksh/ksh93/src/cmd/builtin/features/pty
Normal file
63
cde/programs/dtksh/ksh93/src/cmd/builtin/features/pty
Normal file
@@ -0,0 +1,63 @@
|
||||
header sys/types.h
|
||||
header pty.h
|
||||
header libutil.h
|
||||
header sys/pty.h
|
||||
header sys/ptyio.h
|
||||
header sys/vty.h
|
||||
header sys/ioctl.h
|
||||
header stropts.h
|
||||
|
||||
lib openpty,_getpty,ptsname -lutil
|
||||
lib grantpt,unlockpt,posix_openpt stdlib.h
|
||||
lib cfmakeraw termios.h
|
||||
|
||||
# try once with -lm, once without
|
||||
tst - -lm - - output{
|
||||
#include <fcntl.h>
|
||||
#if _lib_ptsname
|
||||
#include <stdlib.h>
|
||||
#endif
|
||||
#include <unistd.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sfio.h>
|
||||
int main()
|
||||
{
|
||||
int i;
|
||||
struct stat statb;
|
||||
static char* pty[] = { "/dev/ptyp0000", "/dev/ptym/ptyp0", "/dev/ptyp0" };
|
||||
#if _lib_ptsname
|
||||
int fd;
|
||||
static char* ptc[] = { "/dev/ptmx", "/dev/ptc", "/dev/ptmx_bsd" };
|
||||
|
||||
for (i = 0; i < sizeof(ptc) / sizeof(ptc[0]); i++)
|
||||
if((fd = open(ptc[i], 2))>=0)
|
||||
{
|
||||
if (ptsname(fd))
|
||||
{
|
||||
sfprintf(sfstdout, "#define _pty_clone\t\"%s\"\n", ptc[i]);
|
||||
close(fd);
|
||||
break;
|
||||
}
|
||||
close(fd);
|
||||
}
|
||||
#endif
|
||||
for (i = 0;; i++)
|
||||
if(i >= (sizeof(pty) / sizeof(pty[0]) - 1) || stat(pty[i], &statb)>=0)
|
||||
{
|
||||
sfprintf(sfstdout, "#define _pty_first\t\"%s\"\n", pty[i]);
|
||||
break;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
}end fail{
|
||||
case ${_features_pty_TRIEDONCE-no} in
|
||||
no) _features_pty_TRIEDONCE=yes ;;
|
||||
*) echo "$0: Output block failed to compile. Export IFFEFLAGS=-d1 to debug." >&2
|
||||
exit 1 ;;
|
||||
esac
|
||||
}end
|
||||
|
||||
extern _getpty char* (int*, int, mode_t, int)
|
||||
extern openpty int (int*, int*, char*, struct termios*, struct winsize*)
|
||||
extern ptsname char* (int)
|
||||
1146
cde/programs/dtksh/ksh93/src/cmd/builtin/pty.c
Normal file
1146
cde/programs/dtksh/ksh93/src/cmd/builtin/pty.c
Normal file
File diff suppressed because it is too large
Load Diff
320
cde/programs/dtksh/ksh93/src/cmd/ksh93/COMPATIBILITY
Normal file
320
cde/programs/dtksh/ksh93/src/cmd/ksh93/COMPATIBILITY
Normal file
@@ -0,0 +1,320 @@
|
||||
ksh 93u+m/1.0.0 vs. ksh 93u+
|
||||
|
||||
The following is a list of changes between ksh 93u+ 2012-08-01 and the new
|
||||
ksh 93u+m reboot that could cause incompatibilities in rare corner cases.
|
||||
Fixes of clear bugs in ksh 93u+ are not included here, even though any bugfix
|
||||
could potentially cause an incompatibility in a script that relies on the bug.
|
||||
For more details, see the NEWS file and for complete details, see the git log.
|
||||
|
||||
0. A new '-o posix' shell option has been added to ksh 93u+m that makes
|
||||
the ksh language more compatible with other shells by following the
|
||||
POSIX standard more closely. See the manual page for details. It is
|
||||
enabled by default if ksh is invoked as sh.
|
||||
|
||||
1. Bytecode compiled by shcomp 93u+m will not run on older ksh versions.
|
||||
(However, bytecode compiled by older shcomp will run on ksh 93u+m.)
|
||||
|
||||
2. Pathname expansion (a.k.a. filename generation, a.k.a. globbing) now
|
||||
never matches the special navigational names '.' (current directory)
|
||||
and '..' (parent directory). This change makes a pattern like .*
|
||||
useful; it now matches all hidden 'dotfiles' in the current directory.
|
||||
|
||||
3. The bash-style &>foo redirection operator (shorthand for >foo 2>&1) can
|
||||
now always be used if -o posix is off, and not only in profile scripts.
|
||||
|
||||
4. Redirections that store a file descriptor > 9 in a variable, such as
|
||||
{var}>file, now continue to work if brace expansion is turned off.
|
||||
|
||||
5. Most predefined aliases have been converted to regular built-in
|
||||
commands that work the same way. 'unalias' no longer removes these.
|
||||
To remove a built-in command, use 'builtin -d'. The 'history' and 'r'
|
||||
predefined aliases remain, but are now only set on interactive shells.
|
||||
There are some minor changes in behavior in some former aliases:
|
||||
- 'redirect' now checks if all arguments are valid redirections
|
||||
before performing them. If an error occurs, it issues an error
|
||||
message instead of terminating the shell.
|
||||
- 'suspend' now refuses to suspend a login shell, as there is probably
|
||||
no parent shell to return to and the login session would freeze.
|
||||
If you really want to suspend a login shell, use 'kill -s STOP $$'.
|
||||
- 'times' now gives high precision output in a POSIX compliant format.
|
||||
|
||||
6. 'command' and 'nohup' no longer expand aliases in their first argument,
|
||||
as this is no longer required after the foregoing change. In the
|
||||
unlikely event that you still need this behavior, you can set:
|
||||
alias command='command '
|
||||
alias nohup='nohup '
|
||||
|
||||
7. The 'login' and 'newgrp' special built-in commands have been removed,
|
||||
so it is no longer an error to define shell functions by these names.
|
||||
These built-ins replaced your shell session with the external commands
|
||||
by the same name, as in 'exec'. If an error occurred (e.g. due to a
|
||||
typo), you would end up immediately logged out, except on a few
|
||||
commercial Unix systems whose 'login' and 'newgrp' cope with this
|
||||
by starting a new shell session upon error. If you do want the old
|
||||
behavior, you can restore it by setting:
|
||||
alias login='exec login'
|
||||
alias newgrp='exec newgrp'
|
||||
|
||||
8. 'case' no longer retries to match patterns as literal strings if they
|
||||
fail to match as patterns. This undocumented behaviour broke validation
|
||||
use cases that are expected to work. For example:
|
||||
n='[0-9]'
|
||||
case $n in
|
||||
[0-9]) echo "$n is a digit" ;;
|
||||
esac
|
||||
would output "[0-9] is a digit". In the unlikely event that a script
|
||||
does rely on this behavior, it can be fixed like this:
|
||||
case $n in
|
||||
[0-9] | "[0-9]")
|
||||
echo "$n is a digit or the digit pattern" ;;
|
||||
esac
|
||||
|
||||
9. If 'set -u'/'set -o nounset' is active, then the shell now errors out
|
||||
if a nonexistent positional parameter such as $1, $2, ... is accessed.
|
||||
(This does *not* apply to "$@" and "$*".)
|
||||
|
||||
10. If 'set -u'/'set -o nounset' is active, then the shell now errors out
|
||||
if $! is accessed before the shell has launched any background process.
|
||||
|
||||
11. The 'print', 'printf' and 'echo' built-in commands now return a nonzero
|
||||
exit status if an input/output error occurs.
|
||||
|
||||
12. Four obsolete date format specifiers for 'printf %(format)T' were
|
||||
changed to make them compatible with modern date(1) commands:
|
||||
- %k and %l now return a blank-padded hour (24-hour and 12-hour clock).
|
||||
- %f now returns a date with the format '%Y.%m.%d-%H:%M:%S'.
|
||||
- %q now returns the quarter of the current year.
|
||||
|
||||
13. The 'typeset' built-in now properly detects and reports options that
|
||||
cannot be used together if they are given as part of the same command.
|
||||
|
||||
14. The DEBUG trap has reverted to pre-93t behavior. It is now once again
|
||||
reset like other traps upon entering a subshell or ksh-style function,
|
||||
as documented, and it is no longer prone to crash or get corrupted.
|
||||
|
||||
15. 'command -x' now always runs an external command, bypassing built-ins.
|
||||
|
||||
16. Unbalanced quotes and backticks now correctly produce a syntax error
|
||||
in -c scripts, 'eval', and backtick-style command substitutions.
|
||||
|
||||
17. -G/--globstar: Symbolic links to directories are now followed if they
|
||||
match a normal (non-**) glob pattern. For example, if '/lnk' is a
|
||||
symlink to a directory, '/lnk/**' and '/l?k/**' now work as expected.
|
||||
|
||||
18. The variable name search expansions ${!prefix@} and ${!prefix*} now
|
||||
also include the variable 'prefix' itself in the possible results.
|
||||
|
||||
19. [[ -v var ]] is now properly equivalent to [[ -n ${var+set} ]].
|
||||
Undocumented special-casing for numeric types has been removed.
|
||||
For example, the following no longer produces an unexpected error:
|
||||
$ ksh -o nounset -c 'float n; [[ -v n ]] && echo $n'
|
||||
|
||||
20. If the HOME variable is unset, the bare tilde ~ now expands to the
|
||||
current user's system home directory instead of merely the username.
|
||||
|
||||
21. On Windows/Cygwin, globbing is no longer case-insensitive by default.
|
||||
Turning on the new --globcasedetect shell option restores
|
||||
case-insensitive globbing for case-insensitive file systems.
|
||||
|
||||
22. If $PWD or $OLDPWD are passed as invocation-local assignments to cd,
|
||||
their values are no longer altered in the outer scope when cd finishes.
|
||||
For example:
|
||||
ksh -c 'OLDPWD=/bin; OLDPWD=/tmp cd - > /dev/null; echo $OLDPWD'
|
||||
ksh -c 'cd /var; PWD=/tmp cd /usr; echo $PWD'
|
||||
now prints '/bin' followed by '/var'.
|
||||
|
||||
23. Path-bound built-ins (such as /opt/ast/bin/cat) can now be executed
|
||||
by invoking the canonical path, so the following will now work:
|
||||
$ /opt/ast/bin/cat --version
|
||||
version cat (AT&T Research) 2012-05-31
|
||||
$ (PATH=/opt/ast/bin:$PATH; "$(whence -p cat)" --version)
|
||||
version cat (AT&T Research) 2012-05-31
|
||||
In the event an external command by that path exists, the path-bound
|
||||
built-in will now override it when invoked using the canonical path.
|
||||
To invoke a possible external command at that path, you can still use
|
||||
a non-canonical path, e.g.: /opt//ast/bin/cat or /opt/ast/./bin/cat
|
||||
|
||||
24. The readonly attribute of ksh variables is no longer imported from
|
||||
or exported to other ksh shell instances through the environment.
|
||||
|
||||
25. Subshells (even if non-forked) now keep a properly separated state
|
||||
of the pseudorandom generator used for $RANDOM, so that using
|
||||
$RANDOM in a non-forked subshell no longer influences a reproducible
|
||||
$RANDOM sequence in the parent environment. In addition, upon
|
||||
invoking a subshell, $RANDOM is now reseeded (as mksh and bash do).
|
||||
|
||||
26. The built-in arithmetic function int() has changed to round towards
|
||||
zero instead of negative infinity. Previously, int() was an alias to
|
||||
floor(), but now it behaves like trunc().
|
||||
|
||||
27. The '!' logical negation operator in the '[[' compound command now
|
||||
correctly negates another '!', e.g., [[ ! ! 1 -eq 1 ]] now returns
|
||||
0/true. Note that this has always been the case for 'test'/'['.
|
||||
|
||||
28. By default, arithmetic expressions in ksh no longer interpret a number
|
||||
with a leading zero as octal in any context. Use 8#octalnumber instead.
|
||||
Before, ksh would arbitrarily recognize the leading octal zero in some
|
||||
contexts but not others. One of several examples is:
|
||||
x=010; echo "$((x)), $(($x))"
|
||||
would output '10, 8'. This now outputs '10, 10'. Arithmetic
|
||||
expressions now also behave identically within and outside ((...))
|
||||
and $((...)). Setting the --posix compliance option turns on the
|
||||
recognition of the leading octal zero for all arithmetic contexts.
|
||||
|
||||
29. It is now an error for arithmetic expressions to assign an out-of-range
|
||||
index value to a variable of an enumeration type created with 'enum'.
|
||||
|
||||
30. For the 'return' built-in command, you can now freely specify any
|
||||
return value that fits in a signed integer, typically a 32-bit value.
|
||||
Note that $? is truncated to 8 bits when the current (sub)shell exits.
|
||||
|
||||
31. The 'enum' and 'typeset -T' commands are no longer allowed to
|
||||
override and replace special built-in commands, except for type
|
||||
definition commands previously created by these commands.
|
||||
|
||||
32. The .sh.level variable is now read-only except inside a DEBUG trap.
|
||||
The current level/scope is now restored when the DEBUG trap run ends.
|
||||
|
||||
____________________________________________________________________________
|
||||
|
||||
KSH-93 VS. KSH-88
|
||||
|
||||
(Written by David Korn for ksh 93u+ 2012-08-01)
|
||||
|
||||
The following is a list of known incompatibilities between ksh-93 and ksh-88.
|
||||
I have not included cases that are clearly bugs in ksh-88. I also have
|
||||
omitted features that are completely upward compatible.
|
||||
|
||||
1. Functions, defined with name() with ksh-93 are compatible with
|
||||
the POSIX standard, not with ksh-88. No local variables are
|
||||
permitted, and there is no separate scope. Functions defined
|
||||
with the function name syntax have local variables as in ksh-88,
|
||||
but are statically scoped as in C so that a function does not
|
||||
automatically have access to local variables of the caller.
|
||||
This change also affects function traces.
|
||||
|
||||
2. ! is now a reserved word. As a result, any command by that
|
||||
name will no longer work with ksh-93.
|
||||
|
||||
3. The -x attribute of alias and typeset -f is no longer
|
||||
effective and the ENV file is only read for interactive
|
||||
shells. You need to use FPATH to make function definitions
|
||||
visible to scripts.
|
||||
|
||||
4. A built-in command named command has been added which is
|
||||
always found before the PATH search. Any script which uses
|
||||
this name as the name of a command (or function) will not
|
||||
be compatible.
|
||||
|
||||
5. The output format for some built-ins has changed. In particular
|
||||
the output format for set, typeset and alias now have single
|
||||
quotes around values that have special characters. The output
|
||||
for trap without arguments has a format that can be used as input.
|
||||
|
||||
6. With ksh-88, a dollar sign ($') followed by a single quote was
|
||||
interpreted literally. Now it is an ANSI C string. You
|
||||
must quote the dollar sign to get the previous behavior.
|
||||
Also, a $ in front of a " indicates that the string needs
|
||||
to be translated for locales other than C or POSIX. The $
|
||||
is ignored in the C and POSIX locale.
|
||||
|
||||
7. With ksh-88, tilde expansion did not take place inside ${...}.
|
||||
with ksh-93, ${foo-~} will cause tilde expansion if foo is
|
||||
not set. You need to escape the ~ for the previous behavior.
|
||||
|
||||
8. Some changes in the tokenizing rules were made that might
|
||||
cause some scripts with previously ambiguous use of quoting
|
||||
to produce syntax errors.
|
||||
|
||||
9. Programs that rely on specific exit values for the shell,
|
||||
(rather than 0 or non-zero) may not be compatible. The
|
||||
exit status for many shell failures has been changed.
|
||||
|
||||
10. Built-ins in ksh-88 were always executed before looking for
|
||||
the command in the PATH variable. This is no longer true.
|
||||
Thus, with ksh-93, if you have the current directory first
|
||||
in your PATH, and you have a program named test in your
|
||||
directory, it will be executed when you type test; the
|
||||
built-in version will be run at the point /bin is found
|
||||
in your PATH.
|
||||
|
||||
11. Some undocumented combinations of argument passing to ksh
|
||||
builtins no longer works since ksh-93 is getopts conforming
|
||||
with respect to its built-ins. For example, typeset -8i
|
||||
previously would work as a synonym for typeset -i8.
|
||||
|
||||
12. Command substitution and arithmetic expansion are now performed
|
||||
on PS1, PS3, and ENV when they are expanded. Thus, ` and $(
|
||||
as part of the value of these variables must be preceded by a \
|
||||
to preserve their previous behavior.
|
||||
|
||||
13. The ERRNO variable has been dropped.
|
||||
|
||||
14. If the file name following a redirection symbol contain pattern
|
||||
characters they will only be expanded for interactive shells.
|
||||
|
||||
15. The arguments to a dot script will be restored when it completes.
|
||||
|
||||
16. The list of tracked aliases is not displayed with alias unless
|
||||
the -t option is specified.
|
||||
|
||||
17. The POSIX standard requires that test "$arg" have exit status
|
||||
of 0, if and only if $arg is null. However, since this breaks
|
||||
programs that use test -t, ksh-93 treats an explicit test -t
|
||||
as if the user had entered test -t 1.
|
||||
|
||||
18. The ^T directive of emacs mode has been changed to work the
|
||||
way it does in gnu-emacs.
|
||||
|
||||
19. ksh-88 allowed unbalanced parentheses within ${name op val} whereas
|
||||
ksh-93 does not. Thus, ${foo-(} needs to be written as ${foo-\(}
|
||||
which works with both versions.
|
||||
[2021 UPDATE: This is now once again allowed in ksh 93u+m. Note that
|
||||
balanced parentheses ${foo-()} were also broken and are now fixed.]
|
||||
|
||||
20. kill -l in ksh-93 lists only the signal names, not their numerical
|
||||
values.
|
||||
|
||||
21. Local variables defined by typeset are statically scoped in
|
||||
ksh-93. In ksh-88 they were dynamically scoped although this
|
||||
behavior was never documented.
|
||||
|
||||
22. The value of the variable given to getopts is set to ? when
|
||||
the end-of-options is reached to conform to the POSIX standard.
|
||||
|
||||
23. Since the POSIX standard requires that octal constants be
|
||||
recognized, doing arithmetic on typeset -Z variables can
|
||||
yield different results that with ksh-88. Most of these
|
||||
differences were eliminated in ksh-93o. Starting in ksh-93u+, the
|
||||
let command no longer recognizes octal constants starting with 0
|
||||
for compatibility with ksh-88 unless the option letoctal is on.
|
||||
|
||||
24. Starting after ksh-93l, If you run ksh name, where name does
|
||||
not contain a /, the current directory will be searched
|
||||
before doing a path search on name as required by the POSIX
|
||||
shell standard.
|
||||
|
||||
25. In ksh-93, cd - will output the directory that it changes
|
||||
to on standard output as required by X/Open. With ksh-88,
|
||||
this only happened for interactive shells.
|
||||
|
||||
26. As an undocumented feature of ksh-88, a leading 0 to an
|
||||
assignment of an integer variable caused that variable
|
||||
to be treated as unsigned. This behavior was removed
|
||||
starting in ksh-93p.
|
||||
|
||||
27. The getopts builtin in ksh-93 requires that optstring contain
|
||||
a leading + to allow options to begin with a +.
|
||||
|
||||
28. In emacs/gmacs mode, control-v will not display the version when
|
||||
the stty lnext character is set to control-v or is unset.
|
||||
The sequence escape control-v will display the shell version.
|
||||
|
||||
29. In ksh-88, DEBUG traps were executed after each command. In ksh-93
|
||||
DEBUG traps are executed before each command.
|
||||
|
||||
30. In ksh-88, a redirection to a file name given by an empty string was
|
||||
ignored. In ksh-93, this is an error.
|
||||
|
||||
I am interested in expanding this list so please let me know if you
|
||||
uncover any others.
|
||||
168
cde/programs/dtksh/ksh93/src/cmd/ksh93/DESIGN
Normal file
168
cde/programs/dtksh/ksh93/src/cmd/ksh93/DESIGN
Normal file
@@ -0,0 +1,168 @@
|
||||
Here is an overview of the source code organization for ksh93.
|
||||
|
||||
Directory layout:
|
||||
|
||||
The directory include contains header files for ksh93.
|
||||
The files nval.h and shell.h are intended to be public
|
||||
headers and can be used to add runtime builtin command.
|
||||
The remainder are private.
|
||||
|
||||
The directory data contains readonly data files for ksh93.
|
||||
The man pages for built-ins are in builtins.c rather
|
||||
than included as statics with the implementations in the
|
||||
bltins directory because some systems don't make static const
|
||||
data readonly and we want these to be shared by all running
|
||||
shells.
|
||||
|
||||
The directory edit contains the code for command line
|
||||
editing and history.
|
||||
|
||||
The fun directory contains some shell function such as
|
||||
pushd, popd, and dirs.
|
||||
|
||||
The directory features contains files that are used to generate
|
||||
header files in the FEATURE directory. Most of these files
|
||||
are in a format that is processed by iffe.
|
||||
|
||||
The directory bltins contains code for most of the built-in
|
||||
commands. Additional built-in commands are part of libcmd.
|
||||
|
||||
The directory sh contains most of the code for ksh93.
|
||||
|
||||
The directory tests contains a number of regression tests.
|
||||
In most cases, when a bug gets fixed, a test is added to
|
||||
one of these files. The regression tests can be run by
|
||||
going to this directory and running
|
||||
SHELL=shell_path shell_path shtests
|
||||
where shell_path is an absolute pathname for the shell to
|
||||
be tested.
|
||||
|
||||
The top level directory contains the nmake Makefile, the
|
||||
RELEASE file, the ksh93 man file (sh.1) and nval.3 and shell.3
|
||||
documentation files. The RELEASE file contains the list of bug
|
||||
fixes and new features since the original ksh93 release. The file
|
||||
COMPATIBILITY is a list of all known incompatibilities with ksh88.
|
||||
|
||||
Include directory:
|
||||
1. argnod.h contains the type definitions for command
|
||||
nodes, io nodes, argument nodes, and for positional
|
||||
parameters. It defines the prototypes for
|
||||
all the positional parameters functions.
|
||||
2. builtins.h contains prototypes for builtins as well
|
||||
as symbolic constants that refer to the name-pairs
|
||||
that are associated with some of the built-ins.
|
||||
It also contains prototypes for many of the strings.
|
||||
3. defs.h is the catch all for all definitions that
|
||||
don't fit elsewhere and it includes several other
|
||||
headers. It defines a structure that contains ksh
|
||||
global data, sh, and a structure that contains per
|
||||
function data, sh.st.
|
||||
4. edit.h contains definitions that are common to both
|
||||
vi and emacs edit modes.
|
||||
5. fault.h contains prototypes for signal related
|
||||
functions and trap and fault handling.
|
||||
6. fcin.h contains macro and function definitions for
|
||||
reading from a file or string.
|
||||
7. history.h contains macros and functions definitions
|
||||
related to history file processing.
|
||||
8. jobs.h contains the definitions relating to job
|
||||
processing and control.
|
||||
9. lexstates.h contains the states associated with
|
||||
lexical processing.
|
||||
10. name.h contains the internal definitions related
|
||||
to name-value pair processing.
|
||||
11. national.h contains a few I18N definitions, mostly
|
||||
obsolete.
|
||||
12. nval.h is the public interface to the name-value
|
||||
pair library that is documented with nval.3.
|
||||
13. path.h contains the interface for pathname processing
|
||||
and pathname searching.
|
||||
14. shell.h is the public interface for shell functions
|
||||
that are documented int shell.3.
|
||||
15. shlex.h contains the lexical token definitions and
|
||||
interfaces for lexical analysis.
|
||||
16. shnodes.h contains the definition of the structures
|
||||
for each of the parse nodes and flags for the attributes.
|
||||
17. shtable.h contains some interfaces and functions for
|
||||
table lookup.
|
||||
18. streval.h contains the interface to the arithmetic
|
||||
functions.
|
||||
19. terminal.h is a header file that includes the appropriate
|
||||
terminal include.
|
||||
20. test.h contains the definitions for the test and [[ ... ]]
|
||||
commands.
|
||||
21. timeout.h contains the define constant for the maximum
|
||||
shell timeout.
|
||||
22. ulimit.h includes the appropriate resource header.
|
||||
23. variables.h contains symbolic constants for the built-in
|
||||
shell variables.
|
||||
24. version.h contains the version string for this release.
|
||||
|
||||
sh directory:
|
||||
1. args.c contains functions for parsing shell options
|
||||
and for processing positional parameters.
|
||||
2. arith.c contains callback functions for the streval.c
|
||||
library and the interface to shell arithmetic.
|
||||
3. array.c contains the code for indexed and associative
|
||||
arrays.
|
||||
4. defs.c contains the data definitions for global symbols.
|
||||
5. (removed)
|
||||
6. expand.c contains code for file name expansion and
|
||||
pathname expansion.
|
||||
7. fault.c contains code for signal processing, trap
|
||||
handling and termination.
|
||||
8. fcin.c contains code for reading and writing a character
|
||||
at a time from a file or string.
|
||||
9. init.c contains initialization code and callbacks
|
||||
for get and set functions for built-in variables.
|
||||
10. io.o contains code for redirections and managing file
|
||||
descriptors and file streams.
|
||||
11. jobs.c contains the code for job management.
|
||||
12. lex.c contains the code for the lexical analyzer.
|
||||
13. macro.c contains code for the $ macro expansions, including
|
||||
here-documents.
|
||||
14. main.c contains the calls to initialization, profile
|
||||
processing and the main evaluation loop as well as
|
||||
mail processing.
|
||||
15. name.c contains the name-value pair routines that are
|
||||
built on the hash library in libast.
|
||||
16. nvdisc.c contains code related to name-value pair disciplines.
|
||||
17. nvtree.c contains code for compound variables and for
|
||||
walking the namespace.
|
||||
18. nvtype.c contains most of the code related to types that
|
||||
are created with typeset -T.
|
||||
19. parse.c contains the code for the shell parser.
|
||||
20. path.c contains the code for pathname lookup and
|
||||
some path functions. It also contains the code
|
||||
that executes commands and scripts.
|
||||
21. pmain.c is just a calls sh_main() so that all of the
|
||||
rest of the shell can be in a shared library.
|
||||
22. shcomp.c contains the main program to the shell
|
||||
compiler. This program parses a script and creates
|
||||
a file that the shell can read containing the parse tree.
|
||||
23. streval.c is an C arithmetic evaluator.
|
||||
24. string.c contains some string related functions.
|
||||
25. subshell.c contains the code to save and restore
|
||||
environments so that subshells can run without creating
|
||||
a new process.
|
||||
26. suid_exec.c contains the program from running execute
|
||||
only and/or setuid/setgid scripts.
|
||||
27. tdump.c contains the code to dump a parse tree into
|
||||
a file.
|
||||
28. timers.c contains code for multiple event timeouts.
|
||||
29. trestore contains the code for restoring the parse
|
||||
tree from the file created by tdump.
|
||||
30. waitevent.c contains the sh_waitnotify function so
|
||||
that builtins can handle processing events when the
|
||||
shell is waiting for input or for process completion.
|
||||
31. xec.c is the main shell execution loop.
|
||||
|
||||
edit directory:
|
||||
1. completion.c contains code for command and file generation and
|
||||
completion.
|
||||
2. edit.c contains common editing and terminal code for vi and
|
||||
emacs.
|
||||
3. emacs.c contains code for the emacs editor.
|
||||
4. hexpand.c contains code for C-shell style history expansions.
|
||||
5. history.c contains code for creating managing the history file.
|
||||
6. vi.c contains the code for the vi editor.
|
||||
1483
cde/programs/dtksh/ksh93/src/cmd/ksh93/Mamfile
Normal file
1483
cde/programs/dtksh/ksh93/src/cmd/ksh93/Mamfile
Normal file
File diff suppressed because it is too large
Load Diff
152
cde/programs/dtksh/ksh93/src/cmd/ksh93/OBSOLETE
Normal file
152
cde/programs/dtksh/ksh93/src/cmd/ksh93/OBSOLETE
Normal file
@@ -0,0 +1,152 @@
|
||||
.sp 3
|
||||
.tl ''Ksh Features That Are Obsolete in Ksh93''
|
||||
.sp 2
|
||||
.AL 1
|
||||
.LI
|
||||
Using a pair of grave accents \^\fB\(ga\fR ... \fB\(ga\fR\^
|
||||
for command substitution. Use \fB$(\fR ... \fB)\fR instead.
|
||||
.LI
|
||||
.B FCEDIT
|
||||
is an obsolete name for
|
||||
the default editor name for the
|
||||
.B hist
|
||||
command.
|
||||
.B FCEDIT
|
||||
is not used when
|
||||
.B HISTEDIT
|
||||
is set. Use
|
||||
.B HISTEDIT
|
||||
instead.
|
||||
.LI
|
||||
The newtest (\fB[[\fR ... \fB]]\fR) operator
|
||||
\fB\-a\fP \fIfile\fP
|
||||
is obsolete. Use
|
||||
\fB\-e\fP instead.
|
||||
.LI
|
||||
The newtest (\fB[[\fR ... \fB]]\fR) operator
|
||||
.BR = ,
|
||||
as used in
|
||||
\fIstring\fP \fB=\fP \fIpattern\fP
|
||||
is obsolete. Use
|
||||
\fB==\fP instead.
|
||||
.LI
|
||||
The following obsolete arithmetic comparisons are also permitted:
|
||||
.in +5
|
||||
.VL 20
|
||||
.LI "\fIexp1\fP \fB\-eq\fP \fIexp2\fP"
|
||||
True, if
|
||||
.I exp1
|
||||
is equal to
|
||||
.IR exp2 .
|
||||
.LI "\fIexp1\fP \fB\-ne\fP \fIexp2\fP"
|
||||
True, if
|
||||
.I exp1
|
||||
is not equal to
|
||||
.IR exp2 .
|
||||
.LI "\fIexp1\fP \fB\-lt\fP \fIexp2\fP"
|
||||
True, if
|
||||
.I exp1
|
||||
is less than
|
||||
.IR exp2 .
|
||||
.LI "\fIexp1\fP \fB\-gt\fP \fIexp2\fP"
|
||||
True, if
|
||||
.I exp1
|
||||
is greater than
|
||||
.IR exp2 .
|
||||
.LI "\fIexp1\fP \fB\-le\fP \fIexp2\fP"
|
||||
True, if
|
||||
.I exp1
|
||||
is less than or equal to
|
||||
.IR exp2 .
|
||||
.LI "\fIexp1\fP \fB\-ge\fP \fIexp2\fP"
|
||||
True, if
|
||||
.I exp1
|
||||
is greater than or equal to
|
||||
.IR exp2 .
|
||||
.LE \" End .VL
|
||||
.in -5
|
||||
.LI
|
||||
Using test -t or [ -t ] without specifying the file unit number.
|
||||
.LI
|
||||
The
|
||||
.B \-k
|
||||
option to the \fBset\fR builtin is obsolete. It causes
|
||||
.I all\^
|
||||
variable assignment arguments are placed in the environment,
|
||||
even if they occur after the command name.
|
||||
The following
|
||||
first prints
|
||||
.B "a=b c"
|
||||
and then
|
||||
.BR c :
|
||||
There is no alternative.
|
||||
.LI
|
||||
The obsolete
|
||||
.B \-xf
|
||||
option of the
|
||||
.B typeset
|
||||
command allows a function to be exported
|
||||
to scripts that are executed without a separate
|
||||
invocation of the shell.
|
||||
Functions that need to be defined across separate
|
||||
invocations of the shell should
|
||||
be placed in a directory and the
|
||||
.B FPATH
|
||||
variable should contains the name of this directory.
|
||||
They may also
|
||||
be specified in the
|
||||
.B ENV
|
||||
file with the
|
||||
.B \-xf
|
||||
option of
|
||||
.BR typeset .
|
||||
.LI
|
||||
The shell environment variable
|
||||
.B FCEDIT
|
||||
is obsolete. Use
|
||||
.B HISTEDIT
|
||||
instead.
|
||||
.LI
|
||||
In the
|
||||
.B \-s
|
||||
option
|
||||
(to \fBfc\fR or \fBhist\fR command???)
|
||||
(
|
||||
and in obsolete versions, the editor name
|
||||
.B \-
|
||||
)
|
||||
is used to skip the editing phase and
|
||||
to re-execute the command.
|
||||
.LI
|
||||
The
|
||||
.B \-t
|
||||
option to \fBalias\fR builtin is obsolete. It
|
||||
is used to set and list tracked aliases.
|
||||
There is no replacement.
|
||||
.LI
|
||||
The shell command line option
|
||||
.B \-t
|
||||
is obsolete. This option causes the shell to exit after reading
|
||||
and executing one command. The is no replacement (although ending
|
||||
\&"command" with the exit builtin should have the same effect).
|
||||
.LI
|
||||
As an obsolete feature of the "set" builtin,
|
||||
if the first
|
||||
.I arg\^
|
||||
is
|
||||
.B \-
|
||||
then the
|
||||
.B \-x
|
||||
and
|
||||
.B \-v
|
||||
options are turned off and the next
|
||||
.I arg
|
||||
is treated as the first argument.
|
||||
Using
|
||||
.B \+
|
||||
rather than
|
||||
.B \-
|
||||
causes these options to be turned off.
|
||||
These options can also be used upon invocation of the shell.
|
||||
.LE
|
||||
|
||||
141
cde/programs/dtksh/ksh93/src/cmd/ksh93/PROMO.mm
Normal file
141
cde/programs/dtksh/ksh93/src/cmd/ksh93/PROMO.mm
Normal file
@@ -0,0 +1,141 @@
|
||||
.H 1 ksh93
|
||||
KSH-93 is the most recent version of the KornShell Language
|
||||
described in
|
||||
"The KornShell Command and Programming Language,"
|
||||
by Morris Bolsky and David Korn of AT&T Bell Laboratories, ISBN 0-13-182700-6.
|
||||
The KornShell is a shell programming language,
|
||||
which is upward compatible with "sh" (the Bourne Shell),
|
||||
and is intended to conform to the IEEE P1003.2/ISO 9945.2 Shell and
|
||||
Utilities standard.
|
||||
KSH-93 provides an enhanced programming environment in
|
||||
addition to the major command-entry features of the BSD
|
||||
shell "csh". With KSH-93, medium-sized programming tasks can be
|
||||
performed at shell-level without a significant loss in performance.
|
||||
In addition, "sh" scripts can be run on KSH-93 without modification.
|
||||
.P
|
||||
The code should conform to the IEEE POSIX 1003.1 standard and to the
|
||||
proposed ANSI C standard so that it should be portable to all
|
||||
such systems. Like the previous version, KSH-88,
|
||||
it is designed to accept eight bit character sets
|
||||
transparently, thereby making it internationally compatible.
|
||||
It can support multi-byte characters sets with some characteristics
|
||||
of the character set given at run time.
|
||||
.P
|
||||
KSH-93 provides the following features, many of which were also inherent
|
||||
in KSH-88:
|
||||
.BL
|
||||
.LI
|
||||
Enhanced Command Re-entry Capability: The KSH-93 history
|
||||
function records commands entered at any shell level and stores
|
||||
them, up to a user-specified limit, even after you log off.
|
||||
This allows you to re-enter long commands with a few keystrokes
|
||||
- even those commands you entered yesterday.
|
||||
The history file allows for eight bit characters in
|
||||
commands and supports essentially unlimited size histories.
|
||||
.LI
|
||||
In-line Editing: In "sh", the only way to fix mistyped
|
||||
commands is to backspace or retype the line. KSH-93 allows you
|
||||
to edit a command line using a choice of EMACS-TC or "vi"
|
||||
functions.
|
||||
You can use the in-line editors to complete filenames as
|
||||
you type them.
|
||||
You may also use this editing feature when entering
|
||||
command lines from your history file.
|
||||
A user can capture keystrokes and rebind keys to customize the
|
||||
editing interface.
|
||||
.LI
|
||||
Extended I/O Capabilities: KSH-93 provides several I/O
|
||||
capabilities not available in "sh", including the ability to:
|
||||
.BL
|
||||
.LI
|
||||
specify a file descriptor for input and output
|
||||
.LI
|
||||
start up and run co-processes
|
||||
.LI
|
||||
produce a prompt at the terminal before a read
|
||||
.LI
|
||||
easily format and interpret responses to a menu
|
||||
.LI
|
||||
echo lines exactly as output without escape processing
|
||||
.LI
|
||||
format output using printf formats.
|
||||
.LI
|
||||
read and echo lines ending in "\e".
|
||||
.LE
|
||||
.LI
|
||||
Improved performance: KSH-93 executes many scripts faster
|
||||
than the System V Bourne shell. A major reason for this is
|
||||
that many of the standard utilities are built-in.
|
||||
To reduce the time to initiate a command, KSH-93 allows
|
||||
commands to be added as built-ins at run time
|
||||
on systems that support dynamic loading such as System V Release 4.
|
||||
.LI
|
||||
Arithmetic: KSH-93 allows you to do integer arithmetic in any
|
||||
base from two to sixty-four. You can also do double
|
||||
precision floating point arithmetic.
|
||||
Almost the complete set of C language operators are available
|
||||
with the same syntax and precedence.
|
||||
Arithmetic expressions can be used to as an argument expansion
|
||||
or as a separate command.
|
||||
In addition there is an arithmetic for command that works
|
||||
like the for statement in C.
|
||||
.LI
|
||||
Arrays: KSH-93 supports both indexed and associative arrays.
|
||||
The subscript for an indexed array is an arithmetic expression,
|
||||
whereas, the subscript for an associative array is a string.
|
||||
.LI
|
||||
Shell Functions and Aliases: Two mechanisms - functions and
|
||||
aliases - can be used to assign a user-selected identifier to
|
||||
an existing command or shell script.
|
||||
Functions allow local variables and provide scoping
|
||||
for exception handling.
|
||||
Functions can be searched for and loaded on first reference the
|
||||
way scripts are.
|
||||
.LI
|
||||
Substring Capabilities: KSH-93 allows you to create a
|
||||
substring of any given string either by specifying the starting
|
||||
offset and length, or by stripping off leading
|
||||
or trailing substrings during parameter expansion.
|
||||
You can also specify attributes, such as upper and lower case,
|
||||
field width, and justification to shell variables.
|
||||
.LI
|
||||
More pattern matching capabilities: KSH-93 allows you to specify
|
||||
extended regular expressions for file and string matches.
|
||||
.LI
|
||||
KSH-93 uses a hierarchical name space for variables.
|
||||
Compound variables can be defined and variables can
|
||||
be passed by reference. In addition, each variable
|
||||
can have one or more disciplines associated with
|
||||
it to intercept assignments and references.
|
||||
.LI
|
||||
Improved debugging: KSH-93 can generate line numbers on execution
|
||||
traces. Also, I/O redirections are now traced.
|
||||
There is a DEBUG trap that gets evaluated before each command
|
||||
so that errors can be localized.
|
||||
.LI
|
||||
Job Control: On systems that support job control, including
|
||||
System V Release 4, KSH-93
|
||||
provides a job-control mechanism almost identical to that of
|
||||
the BSD "csh", version 4.1.
|
||||
This feature allows you
|
||||
to stop and restart programs, and to move programs between the
|
||||
foreground and the background.
|
||||
.LI
|
||||
Added security:
|
||||
KSH-93 can execute scripts which do not have read permission
|
||||
and scripts which have the setuid and/or setgid set when
|
||||
invoked by name, rather than as an argument to the shell.
|
||||
It is possible to log or control the execution of setuid and/or
|
||||
setgid scripts.
|
||||
The noclobber option prevents you from accidentally erasing
|
||||
a file by redirecting to an existing file.
|
||||
.LI
|
||||
KSH-93 can be extended by adding built-in commands at run time.
|
||||
In addition, KSH-93 can be used as a library that can
|
||||
be embedded into an application to allow scripting.
|
||||
.LE
|
||||
Documentation for KSH-93 consists of an "Introduction to KSH-93",
|
||||
"Compatibility with the Bourne Shell" and a manual page and a
|
||||
README file. In addition, the "New KornShell Command and Programming
|
||||
Language" book is available from Prentice Hall.
|
||||
|
||||
318
cde/programs/dtksh/ksh93/src/cmd/ksh93/README
Normal file
318
cde/programs/dtksh/ksh93/src/cmd/ksh93/README
Normal file
@@ -0,0 +1,318 @@
|
||||
This directory, and its subdirectories contain the source code
|
||||
for ksh-93; the language described in the second edition of
|
||||
the book, "The KornShell Command and Programming Language," by
|
||||
Morris Bolsky and David Korn which is published by Prentice Hall.
|
||||
ksh-93 has been compiled and run on several machines with several
|
||||
operating systems. The end of this file contains a partial list of
|
||||
operating systems and machines that ksh-93 has been known to run on.
|
||||
|
||||
Most of the source code for ksh is in the src/cmd/ksh93/sh
|
||||
directory. For information on what's where, see the file DESIGN.
|
||||
|
||||
#### COMPILE-TIME OPTIONS ####
|
||||
|
||||
The SHOPT.sh file contains several compilation options that can be set
|
||||
before compiling ksh. Options are of the form SHOPT_option and become
|
||||
#define inside the code. These options are set to their recommended
|
||||
value and some of these may disappear as options in future releases.
|
||||
A value of 0 represents off, 1 represents on, no value means probe. For
|
||||
options where no feature probe is available, probe is the same as off.
|
||||
|
||||
The options have the following defaults and meanings:
|
||||
|
||||
ACCT off Shell accounting.
|
||||
Noted by "L" in the version string when enabled.
|
||||
See README-AUDIT.md.
|
||||
|
||||
ACCTFILE off Enable per user accounting info.
|
||||
See README-AUDIT.md.
|
||||
|
||||
AUDIT on For auditing specific users.
|
||||
Noted by "A" in the version string when enabled.
|
||||
See README-AUDIT.md.
|
||||
|
||||
AUDITFILE "/etc/ksh_audit"
|
||||
See README-AUDIT.md.
|
||||
|
||||
BGX on Enables background job extensions. Noted by "J" in the
|
||||
version string when enabled. (1) JOBMAX=n limits the
|
||||
number of concurrent background jobs to n; the (n+1)th
|
||||
background job will block until a running background job
|
||||
completes. (2) SIGCHLD traps are queued so that each
|
||||
completing background job gets its own trap; $! is set to
|
||||
the job PID and $? is set to the job exit status at the
|
||||
beginning of the trap.
|
||||
|
||||
BRACEPAT on Brace expansion. Expands abc{d,e}f to abcdf abcef.
|
||||
This feature was inspired by the C shell.
|
||||
|
||||
CMDLIB_HDR "<cmdlist.h>"
|
||||
The header in which you can provide a custom list of
|
||||
libcmd commands to provide as path-bound built-ins.
|
||||
|
||||
CMDLIB_DIR "\"/opt/ast/bin\""
|
||||
The default virtual directory prefix for path-bound
|
||||
built-ins. The value must include double quotes.
|
||||
|
||||
CRNL off <cr><nl> treated as <nl> in shell grammar.
|
||||
|
||||
DEVFD Use the more secure /dev/fd mechanism instead of FIFOs for
|
||||
process substitutions. On by default on OSs with /dev/fd.
|
||||
|
||||
DYNAMIC off Dynamic loading of builtins. Requires dlopen() interface
|
||||
and dynamic libshell, libdll and libast libraries.
|
||||
|
||||
ECHOPRINT off Make echo equivalent to print.
|
||||
|
||||
EDPREDICT off Enables history pattern search menu. As you begin a line
|
||||
with a #, the following characters are treated as a shell
|
||||
pattern and cause matching lines from the history file to
|
||||
be displayed as a numbered list as you type. You can
|
||||
scroll up and down this list or you can use <ESC>nTAB to
|
||||
make this the current line (n defaults to 1 if omitted).
|
||||
Experimental. Bugs: https://github.com/ksh93/ksh/issues/233
|
||||
|
||||
ESH on Compile with emacs command line editing. The original
|
||||
emacs line editor code was provided by Mike Veach at IH.
|
||||
|
||||
FILESCAN on Allows fast reading of files using:
|
||||
while < file; do ...; done
|
||||
Each line is stored in $REPLY and fields in each
|
||||
line can be accessed as positional parameters.
|
||||
|
||||
FIXEDARRAY on When using typeset, a name in the format NAME[N]
|
||||
creates a fixed-size array and any attempt to access a
|
||||
subscript N or higher is an error. Multidimensional
|
||||
fixed-size arrays NAME[N1][N2]... are also supported.
|
||||
|
||||
GLOBCASEDET Adds the 'globcasedetect' shell option. When this shell
|
||||
option is turned on, pathname expansion (globbing)
|
||||
and file name listing and completion automatically become
|
||||
case-insensitive on file systems where the difference
|
||||
between upper- and lowercase is ignored for file names.
|
||||
This compile-time option is enabled by default on operating
|
||||
systems that can support case-insensitive file systems.
|
||||
|
||||
HISTEXPAND on Enable !-style history expansion similar to csh(1).
|
||||
This is turned on by the -H/--histexpand shell option and
|
||||
can be modified using --histreedit and --histverify.
|
||||
|
||||
KIA off Allow generation of shell cross-reference database with -R.
|
||||
As of 2021-05-10, no tool that can parse this database is
|
||||
known. If you know of any, please contact us.
|
||||
|
||||
MULTIBYTE Multibyte character handling. This is on by default unless
|
||||
the flag -DAST_NOMULTIBYTE is passed to the compiler via
|
||||
CCFLAGS. The UTF-8 character set is fully supported.
|
||||
|
||||
NAMESPACE on Adds a 'namespace' reserved word that allows defining name
|
||||
spaces. Variables and functions defined within a block like
|
||||
namespace ExampleSpace { commandlist; }
|
||||
all have their names automatically prefixed with
|
||||
'.ExampleSpace.' when defining or using them, creating a
|
||||
separate space of names unique to the block. Outside of
|
||||
the namespace block, they can be accessed using
|
||||
.ExampleSpace.function or ${.ExampleSpace.variable}.
|
||||
Name spaces within name spaces are also supported.
|
||||
|
||||
MKSERVICE off Enables the 'mkservice' builtin which creates a TCP or UDP
|
||||
server that is implemented by shell functions, and the
|
||||
'eloop' builtin which causes the shell to block waiting for
|
||||
events to process. Experimental and probably insecure.
|
||||
|
||||
NOECHOE off Disable the '-e' option to the 'echo' command,
|
||||
unless SHOPT_ECHOPRINT is enabled.
|
||||
|
||||
OLDTERMIO off Use either termios or termio at runtime.
|
||||
|
||||
OPTIMIZE on Optimize loop invariants for with for and while loops.
|
||||
|
||||
P_SUID 0 If set, all real UIDs greater than or equal to this value
|
||||
will require the -p option to run the shell setuid/setgid.
|
||||
|
||||
RAWONLY on Turn on if the vi line mode doesn't work right unless
|
||||
you do a set -o viraw.
|
||||
|
||||
REGRESS off Enable the __regress__ built-in command and instrumented
|
||||
intercepts for testing.
|
||||
|
||||
REMOTE off Set --rc (read profile scripts) even if ksh was invoked
|
||||
with standard input on a socket, i.e. as a remote shell.
|
||||
|
||||
SPAWN on Use posix_spawn(3) as combined fork/exec if job control
|
||||
is not active. Improves speed.
|
||||
|
||||
STATS on Add .sh.stats compound variable.
|
||||
|
||||
SUID_EXEC on Execute /etc/suid_exec for setuid, setgid script.
|
||||
|
||||
SYSRC Source /etc/ksh.kshrc on initializing an interactive
|
||||
shell. This is on by default if /etc/ksh.kshrc or
|
||||
/etc/bash.bashrc exists at compile time.
|
||||
|
||||
TEST_L Add 'test -l' as an alias for 'test -L'. This is on by
|
||||
default if the OS's external 'test' command supports it.
|
||||
|
||||
TIMEOUT off Set this to the number of seconds for timing out and
|
||||
exiting the shell when you don't enter a command. If
|
||||
non-zero, TMOUT can not be set larger than this value.
|
||||
|
||||
VSH on Compile with vi command line editing. The original vi
|
||||
line editor code was provided by Pat Sullivan at CB.
|
||||
|
||||
#### BUILDING KSH 93U+M ####
|
||||
|
||||
To build ksh (as well as libcmd and libast libraries on which ksh depends),
|
||||
cd to the top directory and run:
|
||||
|
||||
bin/package make
|
||||
|
||||
The compiled binaries are stored in the arch directory, in a subdirectory
|
||||
that corresponds to your architecture. The command 'bin/package host type'
|
||||
outputs the name of this subdirectory.
|
||||
|
||||
If you have trouble or want to tune the binaries, you may pass additional
|
||||
compiler and linker flags. It is usually best to export these as environment
|
||||
variables before running bin/package as they could change the name of the
|
||||
build subdirectory of the arch directory, so exporting them is a convenient
|
||||
way to keep them consistent between build and test commands. Note that this
|
||||
system uses CCFLAGS instead of the usual CFLAGS. An example that makes
|
||||
Solaris Studio cc produce a 64-bit binary:
|
||||
|
||||
export CCFLAGS="-m64 -O" LDFLAGS="-m64"
|
||||
bin/package make
|
||||
|
||||
Alternatively you can append these to the command, and they will only be
|
||||
used for that command. You can also specify an alternative shell in which to
|
||||
run the build scripts this way. For example:
|
||||
|
||||
bin/package make SHELL=/bin/bash CCFLAGS="-O2 -I/opt/local/include" \
|
||||
LDFLAGS="-L/opt/local/lib"
|
||||
|
||||
Note: Do not add compiler flags that cause the compiler to emit terminal
|
||||
escape codes, such as -fdiagnostics-color=always; this will cause the build
|
||||
to fail as the probing code greps compiler diagnostics.
|
||||
|
||||
If you are certain that you don't need support for UTF-8 and other multibyte
|
||||
character locales and really want to save some memory and CPU cycles, add
|
||||
'-DAST_NOMULTIBYTE' to CCFLAGS to compile out all multibyte character
|
||||
handling in ksh and supporting libraries. Not recommended for most users.
|
||||
|
||||
To install, use: bin/package install DESTINATION_DIRECTORY [ COMMAND ... ]
|
||||
|
||||
Any command from the arch directory can be installed. If no COMMAND is
|
||||
specified, ksh and shcomp are assumed.
|
||||
|
||||
The DESTINATION_DIRECTORY is created if it does not exist. Commands are
|
||||
installed in its bin subdirectory and each command's manual page, if
|
||||
available, is installed in share/man.
|
||||
|
||||
Destination directories with whitespace or shell pattern characters in their
|
||||
pathnames are not yet supported.
|
||||
|
||||
For more information, run:
|
||||
|
||||
bin/package help
|
||||
|
||||
Many other commands in this repo self-document via the --help, --man and
|
||||
--html options; those that do have no separate manual page.
|
||||
|
||||
The build should also generate shcomp, a program that will precompile
|
||||
a script. ksh93 is able to recognize files in this format and process
|
||||
them as scripts. You can use shcomp to send out scripts when you
|
||||
don't want to give away the original script source.
|
||||
|
||||
To be able to run setuid/setgid shell scripts, or scripts without read
|
||||
permission, the SUID_EXEC compile option must be on, and ksh must be installed
|
||||
in the /bin directory, the /usr/bin directory, the /usr/lbin directory,
|
||||
or the /usr/local/bin directory and the name must end in sh. The program
|
||||
suid_exec must be installed in the /etc directory, must be owned by root,
|
||||
and must be an SUID program. If you must install ksh in some other directory
|
||||
and want to be able to run setuid/setgid and execute only scripts, then
|
||||
you will have to change the source code file sh/suid_exec.c explicitly.
|
||||
If you do not have ksh in one of these secure locations, /bin/sh will
|
||||
be invoked with the -p options and will fail when you execute a setuid/setgid
|
||||
and/or execute only script. Note that ksh does not read the .profile
|
||||
or $ENV file when the real and effective user/group IDs are not equal.
|
||||
|
||||
#### TESTING KSH ####
|
||||
|
||||
The tests subdirectory contains a number of regression tests for ksh.
|
||||
To run all these tests with the shell you just built, run the command
|
||||
bin/shtests
|
||||
For help and more options, type
|
||||
bin/shtests --man
|
||||
|
||||
#### OTHER DOCUMENTATION ####
|
||||
|
||||
The file PROMO.mm is an advertisement that extolls the virtues of ksh.
|
||||
The file sh.1 contains the troff (man) description of this Shell.
|
||||
The file nval.3 contains the troff (man) description of the name-value
|
||||
pair library that is needed for writing built-ins that need to
|
||||
access shell variables.
|
||||
|
||||
The file sh.memo contains a draft troff (mm) memo describing ksh. The
|
||||
file builtins.mm is a draft troff (mm) memo describing how to write
|
||||
built-in commands that can be loaded at run time.
|
||||
|
||||
The file NEWS in the top-level directory contains bug fixes and other
|
||||
changes made in the ksh 93u+m fork and supporting libraries. The file
|
||||
COMPATIBILITY contains a list of potential incompatibilities.
|
||||
|
||||
#### TESTED SYSTEMS ####
|
||||
|
||||
ksh 93u+m 1.0.0.beta-1 has been compiled and tested on the following.
|
||||
An asterisk signifies minor regression test failures (one or two minor
|
||||
things amiss), two asterisks signify moderate regression test failures
|
||||
(some functionality does not work), and three asterisks signify serious
|
||||
failures (crashes, and/or important functionality does not work).
|
||||
|
||||
* AIX 7.1 on RISC (PowerPC)
|
||||
* DragonFly BSD 5.8 on x86_64
|
||||
FreeBSD 12.2 on x86_64
|
||||
FreeBSD 13.0 on x86_64
|
||||
FreeBSD 12.2 on arm64 (thanks to hyenias for donating access to a Pi)
|
||||
GNU/Linux: Alpine 3.12.3 (musl C library) on x86_64
|
||||
GNU/Linux: CentOS 8.2 on x86_64
|
||||
GNU/Linux: Debian 10.7 on x86_64
|
||||
GNU/Linux: Gentoo 2.7 on i386
|
||||
GNU/Linux: NixOS 19.09 on x86_64
|
||||
GNU/Linux: Slackware 14.2 on x86_64
|
||||
GNU/Linux: Ubuntu 16.04 on x86_64
|
||||
GNU/Linux: Ubuntu 18.04 on armv7l (32-bit)
|
||||
GNU/Linux: Ubuntu 20.04 on arm64
|
||||
GNU/Linux: Void Linux (musl C library) on x86_64
|
||||
*** Haiku R1/beta3 on x86_64
|
||||
*** HP-UX B.11.11 on pa-risc
|
||||
* illumos: OmniOS 2020-08-19 (gcc) on x86_64
|
||||
illumos: OmniOS r151040 (gcc) on x86_64
|
||||
macOS 10.13.6 (High Sierra) on x86_64
|
||||
macOS 10.14.6 (Mojave) on x86_64
|
||||
* macOS 12.0.1 (Monterey) on arm64
|
||||
* NetBSD 8.1 on x86_64
|
||||
* NetBSD 9.2 on x86_64
|
||||
* OpenBSD 6.8 on x86_64
|
||||
OpenBSD 7.0 on x86_64
|
||||
* QNX Neutrino 6.5.0 on i386
|
||||
* Solaris 11.4 (gcc) on x86_64
|
||||
Solaris 11.4 (Solaris Studio 12.5 cc) on x86_64
|
||||
* UnixWare 7.1.4 on x86
|
||||
*** Windows 7 using Cygwin on x86
|
||||
*** Windows 10 using Cygwin on x86_64
|
||||
*** Windows 11 using Cygwin on x86_64
|
||||
Windows 11 using WSL 2 with Ubuntu 20.04 on x86_64
|
||||
|
||||
#### REPORTING BUGS ####
|
||||
|
||||
Please report any problems or suggestions by opening an issue at:
|
||||
https://github.com/ksh93/ksh
|
||||
Alternatively, email martijn@inlv.org (timely response *not* promised).
|
||||
|
||||
Good luck!!
|
||||
|
||||
The ksh 93u+m contributors
|
||||
https://github.com/ksh93/ksh
|
||||
|
||||
Originally written by:
|
||||
David Korn
|
||||
dgk@research.att.com
|
||||
201
cde/programs/dtksh/ksh93/src/cmd/ksh93/README-AUDIT.md
Normal file
201
cde/programs/dtksh/ksh93/src/cmd/ksh93/README-AUDIT.md
Normal file
@@ -0,0 +1,201 @@
|
||||
# Korn Shell 93 Auditing and Accounting #
|
||||
|
||||
This documentation was adapted from a 2008 blog post by Finnbarr P. Murphy
|
||||
and was added to the ksh 93u+m distribution under the same license as ksh
|
||||
by permission from the author, given on 24th Jan 2021.
|
||||
[Original](https://blog.fpmurphy.com/2008/12/ksh93-auditing-and-accounting.html).
|
||||
The responsibility for any errors in this file lies with the current
|
||||
ksh 93u+m maintainers and not with the original author.
|
||||
|
||||
## Introduction ##
|
||||
|
||||
Korn Shell 93 (ksh93) is the only UNIX or GNU/Linux shell that I am aware
|
||||
of that, with proper setup, supports a modicum of per-user accounting and
|
||||
auditing. This post attempts to explain these facilities and show you how
|
||||
to access and manipulate the resulting accounting and auditing records.
|
||||
|
||||
Per-user accounting has been a feature of ksh93 since the earliest days of this
|
||||
shell. It is a fairly primitive facility which writes out a record for each
|
||||
user command that is executed. By default, it is not compiled in to the shell.
|
||||
|
||||
An auditing facility was added in July 2008. This is somewhat more
|
||||
sophisticated than the accounting facility in that it is configurable and
|
||||
writes out a more detailed record either locally or to a remote system for
|
||||
each user command that is executed. This facility can be used to monitor,
|
||||
track, record, and audit the activities of one or more users on an system,
|
||||
including system administrators. As of ksh 93u+ 2012-06-12, this is compiled
|
||||
in to the shell by default.
|
||||
|
||||
Both facilities only work for interactive users.
|
||||
|
||||
To enable or disable one or both facilities, you need to modify the compile
|
||||
time options in `src/cmd/ksh93/SHOPT.sh` as follows. Use `0` to disable and
|
||||
`1` to enable (except for `SHOPT_AUDITFILE`). Then recompile the sources;
|
||||
see `README` for building instructions.
|
||||
|
||||
SHOPT ACCT=1 # accounting
|
||||
SHOPT ACCTFILE=1 # per-user accounting info
|
||||
SHOPT AUDIT=1 # enable auditing per SHOPT_AUDITFILE
|
||||
SHOPT AUDITFILE='\"/etc/ksh_audit\"' # auditing file
|
||||
|
||||
After you have recompiled the sources, the new ksh executable is located in the
|
||||
`arch/`...`/bin` subdirectory. To see what options have actually been compiled
|
||||
into a particular executable, just print out the shell version string.
|
||||
|
||||
$ arch/darwin.i386-64/bin/ksh -c 'echo ${.sh.version}'
|
||||
Version AJLM 93u+m/1.1.0-alpha+dev 2022-01-20
|
||||
$ arch/darwin.i386-64/bin/ksh -c 'echo $KSH_VERSION'
|
||||
Version AJLM 93u+m/1.1.0-alpha+dev 2022-01-20
|
||||
|
||||
The option string AJLM means that
|
||||
(A) auditing is supported (`SHOPT_AUDIT`),
|
||||
(J) one SIGCHLD trap per completed job is supported (`SHOPT_BGX`),
|
||||
(L) accounting is supported (`SHOPT_ACCT`), and
|
||||
(M) multibyte characters are supported (`SHOPT_MULTIBYTE`).
|
||||
|
||||
## Accounting ##
|
||||
|
||||
After recompiling the shell to enable this facility, per-user accounting is
|
||||
enabled using the `SHACCT` environment variable. To turn on per-user
|
||||
accounting, simply set `SHACCT` to the name of the file where you wish to
|
||||
store the accounting records.
|
||||
|
||||
export SHACCT="/tmp/ksh_acctfile"
|
||||
|
||||
Here is part of the resulting file. Note that the time is stored as
|
||||
hexadecimal seconds since the Unix epoch (00:00:00 UTC on 1 January 1970).
|
||||
|
||||
$ cat /tmp/ksh_acctfile
|
||||
echo ${.sh.version} fpm 495990d8
|
||||
pwd fpm 495990da
|
||||
id fpm 495990dd
|
||||
date fpm 495990e3
|
||||
exit fpm 495990e5
|
||||
|
||||
The following shell script can be used to access the records in this file
|
||||
and output them in a more useful format.
|
||||
|
||||
#!/bin/ksh93
|
||||
ACCTFILE="/tmp/ksh_acctfile"
|
||||
printf "DATE TIME LOGIN COMMAMD\n\n"
|
||||
# set IFS to TAB only
|
||||
while IFS=$'\t' read cmdstr name hexseconds
|
||||
do
|
||||
printf -v longsecs "%ld" "0x${hexseconds}"
|
||||
printf "%(%Y-%m-%d %H:%M:%S)T, %s, %s\n" "#${longsecs}" "$name" "$cmdstr"
|
||||
done < $ACCTFILE
|
||||
|
||||
Invoking this script gives the following output for the above accounting
|
||||
records.
|
||||
|
||||
$ ./parse_acctfile
|
||||
DATE TIME LOGIN COMMAMD
|
||||
|
||||
2008-12-29 22:09:12, fpm, echo ${.sh.version}
|
||||
2008-12-29 22:09:14, fpm, pwd
|
||||
2008-12-29 22:09:17, fpm, id
|
||||
2008-12-29 22:09:23, fpm, date
|
||||
2008-12-29 22:09:25, fpm, exit
|
||||
|
||||
## Auditing ##
|
||||
|
||||
Next we turn our attention to the auditing facility. Assuming ksh has been
|
||||
compiled with the `SHOPT_AUDIT` option (the default), you must create an audit
|
||||
configuration file on each system to tell ksh93 where to store the audit
|
||||
records and to specify which users are to be audited. The configuration file
|
||||
must be readable by the users whose activities are audited. Its default
|
||||
location is `/etc/ksh_audit` but that can be changed in the `SHOPT.sh` file.
|
||||
The configuration file should contain a line that defines the file to write
|
||||
the audit records to, followed by the UID of each user whose commands are to
|
||||
generate audit records. Here is the configuration file used to generate the
|
||||
audit records for this part of this post.
|
||||
|
||||
$ cat /etc/ksh_audit
|
||||
/tmp/ksh_auditfile;500
|
||||
|
||||
This configuration file specifies that audit records are to be written to
|
||||
`/tmp/ksh_auditfile` for the user whose UID is 500. Note that the field
|
||||
delimiter is a semicolon.
|
||||
|
||||
Here are the audit records stored in `/tmp/ksh_auditfile` which match the
|
||||
accounting records shown previously in this post. The field separator is a
|
||||
semicolon. The first field is the UID of the user executing the command.
|
||||
The second field is the time in seconds since the Epoch. The third field is
|
||||
the terminal device on which the command was executed, and the final field
|
||||
is the actual command executed by the user.
|
||||
|
||||
500;1230606552;/dev/pts/2; echo ${.sh.version}
|
||||
500;1230606554;/dev/pts/2; pwd
|
||||
500;1230606557;/dev/pts/2; id
|
||||
500;1230606563;/dev/pts/2; date
|
||||
500;1230606565;/dev/pts/2; exit
|
||||
|
||||
As before, here is a simple ksh93 script which parses this audit file,
|
||||
replaces the UID with the actual user's name and seconds since the Epoch
|
||||
with the actual date and time, and outputs the enhanced records in a comma
|
||||
separated value (CSV) format.
|
||||
|
||||
#!/bin/ksh93
|
||||
AUDITFILE="/tmp/ksh_auditfile"
|
||||
while IFS=";" read uid sec tty cmdstr
|
||||
do
|
||||
printf '%(%Y-%m-%d %H:%M:%S)T, %s, %d, %s, %s\n' \
|
||||
"#$sec" "$(id -un $uid)" "$uid" "$tty" "$cmdstr"
|
||||
done < $AUDITFILE
|
||||
|
||||
Here is the output for the above audit records.
|
||||
|
||||
2008-12-29 22:09:12, fpm, 500, /dev/pts/2, echo ${.sh.version}
|
||||
2008-12-29 22:09:14, fpm, 500, /dev/pts/2, pwd
|
||||
2008-12-29 22:09:17, fpm, 500, /dev/pts/2, id
|
||||
2008-12-29 22:09:23, fpm, 500, /dev/pts/2, date
|
||||
2008-12-29 22:09:25, fpm, 500, /dev/pts/2, exit
|
||||
|
||||
The audit file must be writable by all users whose activities are audited,
|
||||
presenting an obvious security problem. However, the Korn shell supports
|
||||
networking using the `/dev/udp/`*host*`/`*port* or `/dev/tcp/`*host*`/`*port*
|
||||
syntax, so audit records can be sent across a network to another system.
|
||||
This mechanism could be used to store audit records on a secured centralized
|
||||
system to which only specific personnel have access. As an example, the
|
||||
following audit configuration file line designates that audit records for
|
||||
the user whose UID is 500 should be sent using UDP to the syslog network
|
||||
port (514) on a remote system whose IP is 192.168.0.99.
|
||||
|
||||
/dev/udp/192.168.0.99/514;500
|
||||
|
||||
Here are the same audit records stored by the syslog daemon on the remote system.
|
||||
|
||||
2008-12-29 22:09:12 192,169.0.115 500;1230606552;/dev/pts/2; echo ${.sh.version}
|
||||
2008-12-29 22:09:14 192.169.0.115 500;1230606554;/dev/pts/2; pwd
|
||||
2008-12-29 22:09:17 192.169.0.115 500;1230606557;/dev/pts/2; id
|
||||
2008-12-29 22:09:23 192.169.0.115 500;1230606563;/dev/pts/2; date
|
||||
2008-12-29 22:09:25 192.169.0.115 500;1230606565;/dev/pts/2; exit
|
||||
|
||||
Depending on the configuration of the syslog daemon on your particular
|
||||
system, the first part of the record may contain more or less information or
|
||||
be formatted differently but the final part of the record, i.e. the audit
|
||||
record sent by ksh93 should be in the standard audit record format.
|
||||
|
||||
## Afterword ##
|
||||
|
||||
Note that while the auditing and accounting facilities within ksh93 can
|
||||
provide you with much useful information regarding the actions of one or
|
||||
more users on a system or systems, these facilities should not be regarded
|
||||
as providing enhanced security akin to the Trusted Computing Base (TCB).
|
||||
There are many ways of circumventing these facilities. For example, a
|
||||
knowledgeable user could switch to a different shell such as bash where
|
||||
their actions will not be recorded. There are a number of other ways but I
|
||||
will not discuss them here.
|
||||
|
||||
Most of the information provided in this post is not documented in a single
|
||||
place anywhere that I can find by searching the Internet. The ksh93 man page
|
||||
does not mention either the accounting or auditing facilities. Even the
|
||||
ksh93 source code is somewhat vague. I gleaned most of this information by
|
||||
studying the code in
|
||||
[`src/cmd/ksh93/edit/history.c`](https://github.com/ksh93/ksh/blob/dev/src/cmd/ksh93/edit/history.c).
|
||||
|
||||
*Martijn Dekker adds:* I would like to thank the author Finnbarr P. Murphy
|
||||
for his permission to use his ksh93-related blog posts in the ksh 93u+m
|
||||
distribution. As of 2022, this is still the only documentation available for
|
||||
the facilities described. If you find any errors or omissions, please
|
||||
[file an issue](https://github.com/ksh93/ksh).
|
||||
3114
cde/programs/dtksh/ksh93/src/cmd/ksh93/RELEASE
Normal file
3114
cde/programs/dtksh/ksh93/src/cmd/ksh93/RELEASE
Normal file
File diff suppressed because it is too large
Load Diff
426
cde/programs/dtksh/ksh93/src/cmd/ksh93/RELEASE88
Normal file
426
cde/programs/dtksh/ksh93/src/cmd/ksh93/RELEASE88
Normal file
@@ -0,0 +1,426 @@
|
||||
This file is of historic interest. For recent changes in both ksh 93u+m and
|
||||
the accompanying libraries, see the file NEWS in the top-level directory.
|
||||
____
|
||||
|
||||
This is a list of changes that have been made since the 11/16/88 version
|
||||
of ksh.
|
||||
|
||||
1. New features in 12/28/93
|
||||
a. Associative arrays. The new version of ksh supports both
|
||||
associative arrays and the older indexed arrays with the same
|
||||
array syntax. A new -A option of typeset is used to declare
|
||||
an array to be associative. As with indexed arrays, $name is
|
||||
equivalent to ${name[0]}. The prefix operator ! was added
|
||||
to the parameter expansion syntax to expand to the list of
|
||||
indices. For example, ${!name[@]} expands to the list of array
|
||||
indices for variable name.
|
||||
|
||||
b. Several additions have been made to shell arithmetic:
|
||||
1. The shell now performs floating point arithmetic. The
|
||||
typeset options -F and -E have been added for floating
|
||||
point and scientific notation respectively.
|
||||
2. The prefix and postfix ++ and -- operators.
|
||||
3. The comma and ?: operators.
|
||||
4. The math library functions.
|
||||
5. An arithmetic for statement of the form
|
||||
for ((expr1; expr2; expr3))
|
||||
do ...
|
||||
done
|
||||
6. Integer arithmetic extended up to base 64.
|
||||
|
||||
c. Some additions to the macro expansion syntax have been made
|
||||
to specify substrings and sub-arrays:
|
||||
1. ${name:expr} expands to the substring of ${name} starting at
|
||||
the character position defined by arithmetic expression expr.
|
||||
2. ${name:expr1:expr2} expands to the substring of ${name} starting
|
||||
at expr1 and consisting of at most expr2 characters.
|
||||
3. ${name[@]:expr} expands to the values of ${name[@]} starting at
|
||||
the element defined by arithmetic expression expr.
|
||||
4. ${name[@]:expr1:expr2} expands to at most expr2 values of
|
||||
${name} starting at expr1.
|
||||
5. ${@:expr} expands the positional parameters starting at expr.
|
||||
6. ${@:expr1:expr2} expands to at most expr2 positional parameters
|
||||
starting at expr1.
|
||||
7. ${!name} expands to the name of the variable named by name.
|
||||
It will expand to name unless name is a reference variable.
|
||||
8. ${!name[sub]} expands to the name of the subscript of the
|
||||
given variable. If sub is @ or * the list of subscripts
|
||||
is generated.
|
||||
9. ${!prefix*} and ${!prefix@} expand to the list of variable
|
||||
names beginning with prefix.
|
||||
10. The substring operators, # and % can be now be applied
|
||||
with aggregates (@ or *) and are applied to each.
|
||||
11. ${name/pattern/string} expands to the value of name with
|
||||
the first occurrence of pattern replaced by string.
|
||||
With aggregates (@ or *) this operation is applied to each.
|
||||
12. ${name/#pattern/string} Same as above but the pattern
|
||||
to be replaced must match at the beginning.
|
||||
13. ${name/%pattern/string} Same as above but the pattern
|
||||
to be replaced must match at the end.
|
||||
14. ${name//pattern/string} expands to the value of name with
|
||||
each occurrence of pattern replaced by string.
|
||||
With aggregates (@ or *) this operation is applied to each.
|
||||
|
||||
d. The name space for variables has been extended. The character '.'
|
||||
can be used at the beginning of a name, and to separate identifiers
|
||||
within a name. However, to create a name of the form, foo.bar,
|
||||
the variable foo must exist. The namespace starting with .sh
|
||||
is reserved for shell implementation variables. Exported
|
||||
variables cannot contain a '.'.
|
||||
|
||||
e. Compound assignments. The assignment syntax, varname=value,
|
||||
has been extended to allow assignments of the form
|
||||
varname=(assignment_list). As elsewhere in the shell
|
||||
spaces or tabs are optional around the parentheses, and
|
||||
no space is permitted between the varname and the =. The
|
||||
assignment_list can be one of the following:
|
||||
1. A list of words. In this case each word is expanded as
|
||||
in a for list and the resulting items become elements
|
||||
of the indexed array varname.
|
||||
2. A list of subscript assignments in the form
|
||||
[subscript]=value. In this, these elements become
|
||||
elements of the associative array varname.
|
||||
3. A list of assignments; simple or compound. In this
|
||||
case, each assignment is made to varname.name, where
|
||||
name is the name of the enclosed assignment.
|
||||
4. Assignments in the form of readonly or typeset
|
||||
statements. In this case each assignment is made as
|
||||
in 3 above, and the attributes are given to the
|
||||
corresponding variable.
|
||||
In case 3 and 4 above, the value of "$varname" after
|
||||
the above assignment is (assignment_list), where the
|
||||
assignment_list produced would reproduce all of the
|
||||
variables under varname.*.
|
||||
|
||||
f. Function names of the form variable.action (called discipline
|
||||
functions) can be defined where variable is any valid variable
|
||||
name and action is get, set, or unset. The function variable.get
|
||||
is invoked each time the variable is referenced. The set
|
||||
discipline is invoked each time the variable is assigned to.
|
||||
The unset discipline is invoked when a variable is unset.
|
||||
The new variables .sh.name, .sh.subscript, and .sh.value are
|
||||
defined inside the function body. Other shell extensions
|
||||
may have their own set of discipline functions.
|
||||
|
||||
g. The compound command !, which negates the return value of the
|
||||
following pipeline, has been added.
|
||||
|
||||
h. On systems that support dynamic loading with dlopen(), it is
|
||||
now possible to add built-in commands at runtime with the
|
||||
builtin command named 'builtin'.
|
||||
|
||||
i. The following builtins have been added:
|
||||
1. command name [ ... ]
|
||||
2. sleep [decimal-seconds]
|
||||
3. builtin [-ds] [-f file] [name...]
|
||||
4. getconf name [pathname]
|
||||
5. disown [job...]
|
||||
|
||||
j. An addition format for literal strings, $'....' can
|
||||
be used where ever literal strings are valid. The string
|
||||
inside the single quotes will be converted using the ANSI C
|
||||
escape conventions. Additionally, the escape sequence \E
|
||||
expands to the escape character (default \033) whenever ANSI C
|
||||
escape sequences are recognized.
|
||||
|
||||
k. A typeset -n option has been added which causes the value of a
|
||||
variable to be treated as a reference to another variable so that
|
||||
variables can be indirectly named. For example, if $1 contains
|
||||
the name of a variable, then typeset -n foo=$1 causes the variable
|
||||
foo to be synonymous with the variable whose name is $1. A builtin
|
||||
alias, nameref='typeset -n' has been added to aid mnemonics.
|
||||
Reference names cannot contain a '.'. Whenever that portion of
|
||||
a variable up to the first '.' matches a reference name, the
|
||||
reference value is substituted. For example, with nameref foo=.top,
|
||||
then ${foo.bar} is equivalent to ${.top.bar}. When used as the
|
||||
index of a for or select loop, each assignment causes a
|
||||
new name reference to occur.
|
||||
|
||||
l. The KEYBD trap has been added which is triggered when a key
|
||||
or escape sequence is typed while reading from the keyboard
|
||||
in an edit mode. This, combined with some new variables
|
||||
makes it possible to program your key bindings in ksh.
|
||||
|
||||
m. New variables have been added:
|
||||
1. FIGNORE defines a set of file names to be ignored in each
|
||||
directory when performing pathname expansion, replacing
|
||||
the rule that requires that a leading . be matched explicitly.
|
||||
2. Variable sh.edchar contains the value of the keyboard character
|
||||
that has been entered when processing a KEYBD trap. If the value
|
||||
is changed as part of the trap action, then the new value replaces
|
||||
the key or keys that caused the trap.
|
||||
3. Variable sh.edcol is set to the character position of the cursor
|
||||
within the input buffer during a KEYBD trap.
|
||||
4. Variable sh.edmode is set to the escape character when in vi
|
||||
insert mode.
|
||||
5. Variable sh.edtext is set to the contents of the input buffer
|
||||
during a KEYBD trap.
|
||||
6. HISTEDIT is checked before FCEDIT. FCEDIT is obsolete.
|
||||
7. HISTCMD is the number of the current command in the history
|
||||
file.
|
||||
8. Variable .sh.version is set to the version string for
|
||||
this shell.
|
||||
9. Variable .sh.name is set to the name of the variable
|
||||
that was referenced or assigned to when executing a get
|
||||
or set discipline function.
|
||||
10. Variable .sh.subscript is set to the subscript for the variable
|
||||
that was referenced or assign to when executing a get or
|
||||
set discipline function.
|
||||
11. Variable .sh.value is set to the new value for the variable
|
||||
that was assigned to when executing the set discipline function.
|
||||
|
||||
n. New invocation and set -o options have been added:
|
||||
1. set -o notify (or set -b) causes background completion messages
|
||||
to be displayed as soon as the job completes.
|
||||
2. There is a compile time option named KIA which enables
|
||||
creation of a relational database for commands, variables
|
||||
and functions defined and referenced by a script. The
|
||||
option -I <filename>, causes the database to be generated
|
||||
in <filename>. The database format can be queried via
|
||||
the cql command.
|
||||
o. ksh93 can read and evaluate pre-compiled scripts generated by
|
||||
a separate program called shcomp.
|
||||
p. More work on internationalization has been added:
|
||||
1. The decimal point character is processed per locale
|
||||
2. A $ can be placed in front of each string to indicate
|
||||
that the string needs translation but is otherwise ignored.
|
||||
This means that if a message catalog of all $"..." strings
|
||||
is generated, then a program such as print $"hello world"
|
||||
could display "bonjour monde" in the French locale.
|
||||
q. Backreferences have been added to pattern matching. The sequence
|
||||
\d, where d is a digit from 1-9, matches the same string as
|
||||
the d-th previous parenthesis group. Backreferences
|
||||
can be used within patterns, and within replacement strings
|
||||
with any of the ${name/...} operators.
|
||||
|
||||
2. Changes made in 12/28/93
|
||||
a. The output format of many commands has changed as follows:
|
||||
1. System error messages are displayed whenever a failure
|
||||
is caused by a system call.
|
||||
2. The exit status has changed in many cases:
|
||||
a. USAGE messages cause an exit status of 2.
|
||||
b. Commands not found cause exit - 127.
|
||||
c. Command found, but not executable - 126.
|
||||
d. Terminated because of signal - 256+sig
|
||||
3. The output of values from built-ins that contain special
|
||||
characters are quoted in a manner that then can be re-input.
|
||||
4. The trace output puts quotes around the output so that it
|
||||
can be reused as input.
|
||||
5. The output for trap is in a format that can be reinput to
|
||||
the shell to restore the traps.
|
||||
6. kill -l lists the signal names without numbers as
|
||||
required by the POSIX standard.
|
||||
|
||||
b. The following changes have been made to shell functions:
|
||||
1. The semantics of functions declared with name() has changed
|
||||
to conform with the IEEE-POSIX 1003.2 standard. In particular,
|
||||
these functions are executed in a dot script environment rather
|
||||
than a separated function environment so that there are no
|
||||
local variables and no scoping for traps.
|
||||
2. Functions declared as function name, preserve the old ksh
|
||||
semantics can be also used as the first argument to the dot (.)
|
||||
command to have them executed in a dot script environment.
|
||||
|
||||
c. The command search rules have changed as follows:
|
||||
1. Special built-ins (those with a dagger in front of them) are
|
||||
executed first.
|
||||
2. Functions are executed next.
|
||||
3. Other built-ins that do not require an executable version
|
||||
(for example cd and read) come next.
|
||||
4. If the command name contains a slash, the pathname corresponding
|
||||
to the command name is executed.
|
||||
5. If name corresponds to a previously encountered pathname
|
||||
on the PATH variable, the corresponding command is executed.
|
||||
6. If the command name does not contain a slash, then the PATH
|
||||
variable is used to find an executable by that name. If
|
||||
the directory that the command is found is also contained in
|
||||
the FPATH variable, then the command treated as a function.
|
||||
If the shell has a built-in version of the command corresponding
|
||||
to this command, then the built-in version of this command
|
||||
is executed. Otherwise, the shell remembers that pathname
|
||||
corresponding to this command name and executes this pathname.
|
||||
7. If the name is not found on PATH, then the directories in
|
||||
FPATH are searched. If found, then the command is executed
|
||||
as a function.
|
||||
|
||||
d. Built-in commands options now conform to the IEEE-POSIX 1003.2
|
||||
conventions with some additions. In particular,
|
||||
name -?
|
||||
will now print a Usage line for name, except for true, false,
|
||||
colon, login, newgrp, echo, [, and command.
|
||||
|
||||
e. Tilde expansion is now performed as part of the word expansions.
|
||||
The effect of this is that if word begins with ~ in ${name op word},
|
||||
it will be expanded unless escaped.
|
||||
|
||||
f. Pathname expansion is no longer performed on redirection words
|
||||
unless the shell is interactive.
|
||||
|
||||
g. Changes to shell and options:
|
||||
1. The -n option has been enhanced to produce more warning and
|
||||
portability messages.
|
||||
2. The -C option is equivalent to -o noclobber. Files are
|
||||
created with O_EXCL when -C is on.
|
||||
|
||||
h. The following changes have been made to [[ ... ]]:
|
||||
1. A string by itself is equivalent to -n string.
|
||||
2. -e has been added as equivalent to -a.
|
||||
3. == has been added as equivalent =.
|
||||
4. -a and = are now considered obsolete.
|
||||
5. Arithmetic comparisons are now considered obsolete.
|
||||
|
||||
i. kill has been changed as follows:
|
||||
1. Signal names can be upper case or lower case.
|
||||
2. Numerical arguments to kill -l cause the given signal names to
|
||||
be displayed.
|
||||
3. String arguments to kill -l cause the given signal numbers to
|
||||
be displayed.
|
||||
4. Synopsis changed for getopts conformance.
|
||||
|
||||
j. print has a -f format option which is equivalent to
|
||||
the IEEE POSIX printf. Both print -f format, and
|
||||
printf have the following extensions from IEEE POSIX:
|
||||
1. Floating point formats are supported.
|
||||
2. Size and precision specifications can be *.
|
||||
3. The %d option can take an argument after precision to
|
||||
specify the base that the number will be displayed.
|
||||
4. A %q format can be used to output a string quoted so
|
||||
that it can be re-input to the shell.
|
||||
5. A %P format can be used to output the shell pattern which
|
||||
corresponds to the give extended regular expression.
|
||||
6. For numerical fields, the arguments can be arithmetic
|
||||
expressions which will be evaluated.
|
||||
7. The %n format works as described in ANSI C.
|
||||
|
||||
k. The following changes have been made to fc:
|
||||
1. It has been renamed hist. fc is now a predefined alias.
|
||||
2. hist uses ${HISTEDIT:-$FCEDIT}. FCEDIT is obsolete.
|
||||
3. A new -s option is equivalent to the obsolete -e -.
|
||||
4. If the first argument refers to a command earlier than the
|
||||
first accessible command, it now implies the first accessible
|
||||
command, so that hist -l 1 lists all accessible history commands.
|
||||
|
||||
l. The dot command (.) has changed as follows:
|
||||
1. The argument can be the name of a function declared as
|
||||
function name. The function will execute without creating a
|
||||
new scope.
|
||||
2. If there are arguments to the given script or function,
|
||||
the positional parameters are restored to their original
|
||||
value when . completes.
|
||||
|
||||
m. The read built-in has been changed as follows:
|
||||
1. A -A option to read has been added to allow the fields to be
|
||||
read into an indexed array.
|
||||
2. A -t n option has been added which causes read to
|
||||
timeout after n seconds when reading from a slow device.
|
||||
3. A -d char option has been added which causes the read
|
||||
to terminate at char rather than at new-line.
|
||||
|
||||
n. The trap command has been changed as follows:
|
||||
1. Trap names can be either upper case or lower case.
|
||||
2. Trap -p only causes the specified trap values to be displayed.
|
||||
3. The value of trap in a subshell will be the value in the parent
|
||||
shell until a call to trap which changes the trap settings has
|
||||
been made. Thus, savetraps=$(trap) works as required by the
|
||||
POSIX standard.
|
||||
|
||||
o. The exec command has been extended as follows:
|
||||
1. The -c option clears the environment first.
|
||||
2. The -a name option sets argv[0] to name for the program.
|
||||
|
||||
p. true and false are built-ins, not aliases to built-ins.
|
||||
|
||||
q. test has been modified to conform to the IEEE-POSIX 1003.2
|
||||
standard when there are three or less arguments.
|
||||
|
||||
r. umask -S option displays the mask in a symbolic format.
|
||||
|
||||
s. wait now returns the correct exit status of any previous
|
||||
background job that has not been waited for, not just
|
||||
the most recent one.
|
||||
|
||||
t. The whence built-in has an option -a which causes all
|
||||
uses for the given command name to be reported.
|
||||
|
||||
u. unalias has -a option to clear all the aliases.
|
||||
|
||||
v. The times built-in command has been removed. The time
|
||||
reserved word, without a command, gives time cumulative
|
||||
time for the shell and its children. A built-in alias
|
||||
for times should enable scripts using times to continue
|
||||
to run.
|
||||
|
||||
w. Command substitution and arithmetic substitution will now be
|
||||
performed for PS1, ENV, and PS4 evaluation in addition to
|
||||
parameter expansion.
|
||||
|
||||
x. The SECONDS variable now displays elapsed time in floating
|
||||
point seconds with 3 places after the decimal point by
|
||||
default.
|
||||
|
||||
y. The getopts built-in now handles the complete libast optget
|
||||
functionality. If any errors have occurred with getopts
|
||||
when it has reached the end of arguments, then the Usage
|
||||
message will be generated from the option string and the
|
||||
exit status from getopts will be 2 rather than 1. The
|
||||
usage message will be stored in the OPTARG variable if
|
||||
the option string contains a leading colon; otherwise
|
||||
it will be printed on standard error automatically.
|
||||
|
||||
z. THE ENV file is only processed for interactive shell
|
||||
invocations. In addition, the -x attributes for
|
||||
aliases and functions is ignored.
|
||||
|
||||
aa. The built-in edit modes have been changed as follows:
|
||||
1. The pathname completion and pathname listing options
|
||||
now perform command completion and command listing
|
||||
when applied to a word in the command position.
|
||||
2. In emacs mode ^N as the first related command after
|
||||
the prompt will move to the next command relative to the
|
||||
last known history position.
|
||||
3. In emacs mode, successive kill and delete commands will
|
||||
accumulate their data in the kill buffer, by appending or
|
||||
prepending as appropriate. This mode will be reset by any
|
||||
command not adding something to the kill buffer.
|
||||
4. The control-T of emacs mode has been changed to behave like
|
||||
control-T in gnu-emacs.
|
||||
bb. The TMOUT variable also sets a limit for select timeouts
|
||||
and default timeouts for read.
|
||||
|
||||
|
||||
4. The source code has undergone significant modification.
|
||||
a. Much of the code has been rewritten, In many cases this has
|
||||
resulted in significant performance improvement.
|
||||
|
||||
b. The code is organized differently. See the README files
|
||||
for more details.
|
||||
|
||||
c. Most configuration parameters now get generated using
|
||||
the FEATURE mechanism of nmake. Other options are set
|
||||
in the OPTIONS file.
|
||||
|
||||
c. There are several new compile time options. See the README
|
||||
file for details. Some of the old ones have been removed.
|
||||
|
||||
d. The install script is a Mamfile that is generated by
|
||||
nmake and processed by a script that comes with the
|
||||
distribution.
|
||||
|
||||
e. There are far fewer global names. This should make it
|
||||
must easier to add built-in commands without worrying
|
||||
about conflicts.
|
||||
|
||||
f. The code uses the sfio library which makes it possible
|
||||
to mix with stdio.
|
||||
|
||||
g. The code is written in ANSI C with full prototypes.
|
||||
The code is based on the IEEE POSIX 1003.1 standard.
|
||||
The code can be compiled with K&R C and with C++ by
|
||||
using the ANSI cpp that comes with nmake or running
|
||||
the code through the proto filter before pre-processing.
|
||||
This happens automatically with our shipping system.
|
||||
|
||||
h. There is a programming interface for capturing references
|
||||
and assignment to shell variables. It is also possible
|
||||
to intercept variable creation and supply the array processing
|
||||
function for that variable. See nval.3 for a description.
|
||||
458
cde/programs/dtksh/ksh93/src/cmd/ksh93/RELEASE93
Normal file
458
cde/programs/dtksh/ksh93/src/cmd/ksh93/RELEASE93
Normal file
@@ -0,0 +1,458 @@
|
||||
This file is of historic interest. For recent changes in both ksh 93u+m and
|
||||
the accompanying libraries, see the file NEWS in the top-level directory.
|
||||
____
|
||||
|
||||
This is a list of changes that have been made since the 12/28/93 version
|
||||
of ksh.
|
||||
|
||||
1. New features in 12/28/93b
|
||||
a. If IFS contains two consecutive identical characters belonging
|
||||
to the [:space:] class, then this character is treated as
|
||||
a non-space delimiter so that each instance will delimit
|
||||
a field. For example, IFS=$'\t\t' will cause two consecutive
|
||||
tabs to delimit a null field.
|
||||
b. The getopts command has a -a name option that specifies a
|
||||
name that will be used for usage messages.
|
||||
|
||||
2. New features in 12/28/93e
|
||||
a. The math functions, atan2, hypot, fmod, and pow were added.
|
||||
b. When a shared library is loaded, if the function lib_init()
|
||||
is defined in the library, it is invoked the first time that
|
||||
the library is loaded with builtin -f library.
|
||||
|
||||
3. New features in 12/28/93f
|
||||
a. Hostnames in addition to host addresses can be given in
|
||||
/dev/tcp/host/port virtual file names.
|
||||
b. File name completion and expansion now quotes special
|
||||
characters in file names from both emacs and vi edit modes.
|
||||
|
||||
4. New features in 12/28/93g
|
||||
a. The pipefail option has been added. With pipefail
|
||||
enabled, a pipeline will not complete until all
|
||||
commands are complete, and the return value will
|
||||
be that of the last command to fail, or zero if
|
||||
all complete successfully.
|
||||
b. When an executable is found on a given path,
|
||||
the appropriate library path variable is prepended
|
||||
with a corresponding library directory.
|
||||
5. New features in 12/28/93h
|
||||
a. The PATH search algorithm has been modified to look
|
||||
for a file named .fpath in each bin directory and if
|
||||
found, to search for functions in this directory if
|
||||
it cannot find the command in that directory.
|
||||
b. When performing pathname expansion, the shell checks
|
||||
to see whether each directory it reads is case sensitive
|
||||
or not, and performs the matching accordingly.
|
||||
c. The %T format for printing formatted date/time.
|
||||
6. New features in 12/28/93i
|
||||
a. Most of the built-in commands and ksh itself are now
|
||||
self documenting. Running command --man will produce
|
||||
screen output. Running command --html produces the
|
||||
man page in html format.
|
||||
b. The getopts builtin can process command description
|
||||
strings to produce man pages.
|
||||
|
||||
7. Bugs fixed in 12/28/93a for default OPTIONS
|
||||
a. An expansion bug which causes portions of a word after
|
||||
a $((...)) expansion that contains a nested $var expansion
|
||||
to be lost has been fixed.
|
||||
b. A bug that caused a core dump when a script that did not
|
||||
have PWD set and did a cd inside command substitution
|
||||
has been fixed.
|
||||
c. A bug which caused a core dump on some machines when
|
||||
the LANG variable was assigned to has been fixed.
|
||||
d. A bug which incorrectly handled set disciplines that
|
||||
performed arithmetic evaluation when the discipline
|
||||
was called from the arithmetic evaluator has been fixed.
|
||||
e. A bug caused by an EXIT trap inside a function that
|
||||
was executed in a subshell was fixed.
|
||||
f. If foo is a function, and not a program, then command foo
|
||||
now reports that foo isn't found rather than invoking foo.
|
||||
g. The previous version incorrectly listed -A as an
|
||||
invocation option. The -A option is only for set.
|
||||
h. A bug was fixed which caused ksh to loop when execution trace
|
||||
was enabled and the PS4 prompt required command substitution.
|
||||
i. A bug which could cause the job control switch character
|
||||
to be disabled when a script that enabled monitor mode
|
||||
terminated was fixed.
|
||||
j. A bug in the macro expansion global replacement operator //,
|
||||
when the pattern began with a [ or +( has been fixed.
|
||||
k. A bug which prevented ~ expansion from occurring when
|
||||
it was terminated with a colon inside an assignment
|
||||
has been fixed.
|
||||
l. A bug in the dot command which prevented autoload functions
|
||||
from working has been fixed.
|
||||
m. A bug which caused a variable to be unset if the
|
||||
its value were expanded inside a set discipline has
|
||||
been fixed.
|
||||
n. Whence -a now longer reports that a defined function
|
||||
is undefined.
|
||||
o. A bug on some systems in which $0 would be incorrect
|
||||
in scripts invoked by name has been fixed.
|
||||
p. Here documents with an empty body now work.
|
||||
1. A bug which disabled argument passing and resetting
|
||||
of options for a script invoked by name inside a
|
||||
function has been fixed.
|
||||
r. A bug in which an EXIT trap set the caller of a function
|
||||
would be executed if a command called inside a function
|
||||
was not found has been fixed.
|
||||
s. A bug which allowed a script to trap signals that are
|
||||
ignored at the time that the shell was invoked has
|
||||
been fixed.
|
||||
t. A bug which caused 2<&1- when applied to a shell built-in
|
||||
to leave standard input closed has been fixed.
|
||||
u. A bug which caused the shell to incorrectly parse
|
||||
$() command substitutions with nested case statements
|
||||
has been fixed.
|
||||
|
||||
8. Bugs fixed in 12/28/93b for default OPTIONS
|
||||
a. A bug which caused unset RANDOM to dump core has been
|
||||
fixed.
|
||||
b. A bug which prevented return for terminating a profile
|
||||
or ENV file has been fixed.
|
||||
c. A bug which prevented standard input from being
|
||||
directed to /dev/null for background jobs when
|
||||
monitor mode was turned off has been fixed.
|
||||
d. Statements of the form typeset -options var[expr]=value
|
||||
did not perform substitutions on expr as expected.
|
||||
e. A bug which prevented the shell from sending a HUP
|
||||
signal to some background jobs that were not disowned
|
||||
has been fixed.
|
||||
f. A bug which allowed a script to trap signals that are
|
||||
ignored at the time that the shell was invoked by exec
|
||||
has been fixed.
|
||||
g. A bug which could cause a core dump when a discipline
|
||||
function was unset within a discipline was fixed.
|
||||
h. The typeset builtin now accepts a first argument of
|
||||
+ or - for compatibility with ksh88.
|
||||
i. For compatibility with ksh88, the results of expansions
|
||||
of command arguments will treat the extended character
|
||||
match characters ()|& as ordinary characters.
|
||||
j. A bug which caused read to fail on a file that was
|
||||
open for read/write with <> when the first operation
|
||||
was print or printf has been fixed.
|
||||
k. When a job is suspended, it is put on the top of
|
||||
the job list as required by the POSIX standard.
|
||||
l. The value of OPTARG when an option that required
|
||||
an argument but didn't have one was incorrect in the
|
||||
case the option string began with a :.
|
||||
m. A bug which caused the terminal to get into a bad
|
||||
state with some KEYBD traps in vi-mode has been fixed.
|
||||
n. A bug which caused an invalid trap to cause a script
|
||||
to terminate, rather than just return an error, has
|
||||
been fixed.
|
||||
o. Backreferencing sub-expressions in patterns and replacement
|
||||
strings now works.
|
||||
p. A bug in chmod which caused the -R option to fail has
|
||||
been fixed.
|
||||
|
||||
9. Bugs fixed in 12/28/93c for default OPTIONS
|
||||
a. The expansion of "$@" was incorrect when $1 was the null
|
||||
string.
|
||||
b. A bug which could incorrectly report a syntax error in
|
||||
a backquoted expression when a $ was preceded by \\
|
||||
has been fixed.
|
||||
c. A bug which prevented the shell from exiting after
|
||||
reporting an error when failing to open a script
|
||||
has been fixed.
|
||||
d. A bug that could lead to memory corruption when a
|
||||
large here document that required parameter or command
|
||||
substitution was expanded has been fixed.
|
||||
e. A bug that could cause a core dump on some systems
|
||||
after ksh detected an error when reading a function
|
||||
has been fixed.
|
||||
f. A bug which could cause a coprocess to hang when
|
||||
reading from a process that has terminated has been fixed.
|
||||
g. A bug which caused a script to terminate when set -e
|
||||
was on and the first command of and && or || list
|
||||
failed has been fixed.
|
||||
h. A bug with here documents inside $(...) when the delimiter
|
||||
word is an identifier has been fixed.
|
||||
i. A bug which caused $0 to display the wrong value when
|
||||
a script was invoked as an argument to the . command
|
||||
and the eval command has been fixed.
|
||||
j. A bug that could cause the built-in sleep to hang
|
||||
has been fixed.
|
||||
k. A bug introduces in 12/28/93b which caused the backslash
|
||||
to be removed when it was followed by digit inside double
|
||||
quotes in some instances has been fixed.
|
||||
l. A bug which could cause a core dump if ksh was invoked with
|
||||
standard input closed has been fixed.
|
||||
m. A bug which could cause a core dump if typeset -A was
|
||||
specified for an existing variable has been fixed.
|
||||
n. Variables that were unset but had attributes such as readonly
|
||||
and export were not listed with readonly, export and typeset.
|
||||
o. Several problems with signals have been fixed.
|
||||
p. A bug which prevented ulimit -t from working has been fixed.
|
||||
Also, a bug in which failed ulimits could cause a core dump
|
||||
has also been fixed.
|
||||
q. A bug in expansion of the form ${name/#pattern/string} and
|
||||
${name/%pattern/string} has been fixed.
|
||||
r. A bug which caused read -r on a line that contained only
|
||||
blanks to get a non-null value has been fixed.
|
||||
s. A bug introduced in the 'a' point release in which
|
||||
${x='\\'} expanded to \ when x was unset has been fixed.
|
||||
t. A bug which prevented a trap on EXIT from being executed
|
||||
when the last command in a script was a function invocation
|
||||
has been fixed.
|
||||
u. A bug which caused an interactive shell ignore input when
|
||||
standard error was redirected to a file with exec,
|
||||
and then restored with exec 2>&1 has been fixed.
|
||||
v. An interactive shell turns on monitor mode even when
|
||||
standard error has been redirected to a file.
|
||||
w. A bug which could cause standard input to be incorrectly
|
||||
positioned for the last command of a script has been fixed.
|
||||
y. A bug in the edit modes which allowed walking back in
|
||||
the history file for more than HISTSIZE commands has
|
||||
been fixed.
|
||||
z. A bug which could cause a core dump if variable TMPDIR was
|
||||
changed between two command substitutions has been fixed.
|
||||
aa. A bug which prevented a trap on EXIT from being cleared
|
||||
has been fixed.
|
||||
|
||||
10. Bugs fixed in 12/28/93d for default OPTIONS
|
||||
a. The \ character was not handled correctly in replacement
|
||||
patterns with ${x/pattern/replace}.
|
||||
b. A bug with read in which the line did not end with
|
||||
a new-line has been fixed.
|
||||
c. A bug in file name generation which sometimes
|
||||
appended a . for filenames that ended in / has
|
||||
been fixed.
|
||||
d. If a process is waited for after a status has
|
||||
been returned by a previous wait, wait now
|
||||
returns 127.
|
||||
e. A bug with hist (fc) -e which prevented a command
|
||||
to re-executed after it had been edited has been fixed.
|
||||
f. A bug which prevented quoting from removing the meaning
|
||||
of unary test operators has been fixed.
|
||||
|
||||
11. Bugs fixed in 12/28/93e for default OPTIONS
|
||||
a. Empty command substitutions of the form $() now work.
|
||||
b. whence -v foo now gives the correct result after calling
|
||||
builtin -d foo.
|
||||
c. A bug in right to left arithmetic assignment for which
|
||||
the arithmetic expression (( y = x = 1.5 )) did not
|
||||
yield 1 for y when x was declared typeset -i was fixed.
|
||||
d. printf has been fixed to handle format containing \0
|
||||
and/or \0145 correctly. In addition, characters following
|
||||
%b in the format string are no longer displayed when
|
||||
the operand contains \c.
|
||||
e. A bug in printf that could cause the %E format to
|
||||
produce unnormalized results has been fixed.
|
||||
f. A bug which causes some arithmetic expressions to be
|
||||
incorrectly evaluated as integer expressions rather
|
||||
that floating point has been fixed.
|
||||
g. Functions defined inside a subshell no longer remain
|
||||
defined when the subshell completes.
|
||||
h. The error message from sh -c ';echo foo' has been
|
||||
corrected.
|
||||
i. The format for umask -S has been changed to agree
|
||||
with the specification in the POSIX standard.
|
||||
j. A bug that caused side effects in subscript evaluation
|
||||
when tracing was enabled for subscripts using ++ or --
|
||||
has been fixed.
|
||||
k. To conform to the POSIX standard getopts has been changed
|
||||
so that the option char is set to ? when it returns with
|
||||
a non-zero exit status.
|
||||
l. The handling of \} inside ${name...} has been fixed so
|
||||
that the \ quotes the }.
|
||||
m. A bug that caused the read builtin to resume execution
|
||||
after processing a trap has been fixed.
|
||||
n. [[ -s file ]] has been fixed so that if file is open
|
||||
by ksh, it is flushed first.
|
||||
o. In some cases attributes and sizes for non exported
|
||||
variables weren't being reset before running a script.
|
||||
p. The value of TMOUT was affected by changes make to
|
||||
it in a subshell.
|
||||
q. The jobs command did not reflect changes make by
|
||||
sending the CONT signal to a command.
|
||||
r. The error message for ksh -o unknown was incorrect.
|
||||
s. Functions invoked as name=value name, did not use
|
||||
values from the calling scope when evaluating value.
|
||||
t. A bug in which the shell would re-execute previously
|
||||
executed code when a shell script or coprocess was
|
||||
run in the background has been fixed.
|
||||
u. A bug in which an empty here-document would leave
|
||||
a file descriptor open has been fixed.
|
||||
v. A bug in which $(set -A array ...) would leave a
|
||||
side effect has been fixed.
|
||||
w. A discipline function for a global variable defined
|
||||
within a function defined with the function keyword,
|
||||
incorrectly created a local variable of the same name
|
||||
and applied the discipline to it.
|
||||
|
||||
12. Bugs fixed in 12/28/93f for default OPTIONS
|
||||
a. A bug which would cause the secondary prompt to be
|
||||
displayed when a user entered a literal carriage
|
||||
return has been fixed.
|
||||
b. I bug which caused ksh read -s name to core dump was
|
||||
fixed.
|
||||
c. I bug with the expansion of \} and \] inside double
|
||||
quoted strings that also contained variable expansions
|
||||
has been fixed
|
||||
d. Changes in the 'e' point release caused autoload
|
||||
functions invoked from within command substitution
|
||||
to fail. This has been fixed.
|
||||
e. A bug in the processing of here-documents that could
|
||||
prevent variable substitution to occur after $(...) command
|
||||
substitution for long here documents has been fixed.
|
||||
f. A bug caused by a race condition that could cause SIGTERM
|
||||
to be ignored by a child process has been fixed.
|
||||
g. A bug which prevented the startup of a coprocess immediately
|
||||
after killing a running coprocess has been fixed.
|
||||
h. ulimit foobar, where foobar is not an arithmetic
|
||||
expression, now gives an error message as it did with ksh88
|
||||
instead of setting the file size limit to 0.
|
||||
i. A bug which could cause an interactive shell to terminate when
|
||||
the last process of a pipeline was a POSIX function was fixed.
|
||||
j. A bug which could cause command substitution of a shell script
|
||||
to core dump has been fixed.
|
||||
k. A security hole was fixed in suid_exec.
|
||||
l. Arithmetic functions such as pow() that take more than
|
||||
one argument, did not work if arguments other than the
|
||||
first contained parenthesized sub-expression.
|
||||
m. The error message from a script containing an incomplete
|
||||
arithmetic expression has been corrected.
|
||||
n. A bug which caused a core dump on some machines when
|
||||
the value of a name reference contained a positional
|
||||
parameter and the name reference was not defined inside
|
||||
a function has been fixed.
|
||||
o. Arithmetic expressions now correctly handle hexadecimal
|
||||
constants.
|
||||
p. A bug in which integer variables could be expanded
|
||||
with a leading 10# when declared with typeset -i
|
||||
multiple times has been corrected.
|
||||
q. A bug in which IFS wasn't correctly restored when
|
||||
set within command substitution has been fixed.
|
||||
r. The _ character is now considered as part of a word
|
||||
with the M-f and M-b emacs directives as it was in ksh88.
|
||||
|
||||
13. Bugs fixed in 12/28/93g for default OPTIONS
|
||||
a. A bug in which a name reference could be created to
|
||||
itself and later cause the shell to get into an infinite
|
||||
loop has been fixed.
|
||||
b. A bug in shcomp relating to compound variables was fixed.
|
||||
c. A bug introduced in 'e' in which leading 0's in -Z
|
||||
fields caused the value to be treated as octal for arithmetic
|
||||
evaluation has been fixed.
|
||||
d. A bug when a name reference with a shorter name than
|
||||
the variable it references was the subject of a compound
|
||||
assignment has been fixed.
|
||||
e. A bug which in which assignment to array variables in
|
||||
a subshell could affect the parent shell has been
|
||||
fixed.
|
||||
f. read name?prompt was putting a 0 byte at the end of the
|
||||
prompt on standard error.
|
||||
g. A bug in [[ string1 > string2 ]] when ksh was run with -x
|
||||
has been fixed.
|
||||
k. A bug in which the escape character was not processed
|
||||
correctly inside {...} when brace expansion is enabled
|
||||
has been fixed, for example {\$foo}.
|
||||
l. A bug in line continuation in here-documents has been
|
||||
fixed.
|
||||
m. The default base when not specified with typeset -i is
|
||||
10 in accordance with the documentation. Previously,
|
||||
the value was determined by the first assignment.
|
||||
n. A parsing bug in which a # preceded alphanumeric
|
||||
characters inside a command substitution caused
|
||||
a syntax error to be reported has been fixed.
|
||||
o. A bug in which a decimal constant represented as 10#ddd
|
||||
where ddd was more than five digits generated a syntax
|
||||
error has been fixed.
|
||||
p. A bug in here document expansion in which ${...} expansions
|
||||
were split across buffer boundaries has been fixed.
|
||||
|
||||
14. Bugs fixed in 12/28/93h for default OPTIONS
|
||||
a. I bug in shcomp for compilation of unary operators with [[ ... ]]
|
||||
has been fixed.
|
||||
b. A bug in which the value of $? was changed when executing
|
||||
a keyboard trap has been fixed.
|
||||
c. The handling of SIGCHLD has been changed so that the
|
||||
trap is not triggered while executing trap commands
|
||||
to avoid recursive trap calls.
|
||||
d. I bug in which a local variable in a function declared readonly
|
||||
would generated an error when the function went out of
|
||||
scope has been fixed.
|
||||
e. I bug in which \<new_line> entered from the keyboard
|
||||
with the KEYBD trap enabled has been fixed.
|
||||
f. The error message for a misplaced ((, for example print ((3),
|
||||
was often garbled and has been fixed.
|
||||
g. I bug in the KEYBD trap in which escape sequences of the form
|
||||
<ESC>[#~ were not being handled as a unit has been fixed.
|
||||
h. A bug in which ksh would consider expressions like [[ (a) ]]
|
||||
as syntax errors has been fixed.
|
||||
i. A function defined as foo() without a function body
|
||||
was not reported as a syntax error.
|
||||
j. A bug in which ksh could run out of file descriptors when
|
||||
a stream was repeatedly opened with exec and read from
|
||||
has been fixed.
|
||||
k. A bug introduced when fixing item n from the 'g' point
|
||||
release has been fixed.
|
||||
|
||||
15. Bugs fixed in 12/28/93i for default OPTIONS
|
||||
a. A bug in which a script could terminate when getopts
|
||||
encountered an error when invoked inside a function
|
||||
has been fixed.
|
||||
b. When a symbolic link was specified as the name of
|
||||
the script to invoke by name, the value of $0 was
|
||||
set to the real file name rather than the link name
|
||||
in some cases and this has been fixed.
|
||||
|
||||
16. Bug fixes for specific non-default option combinations.
|
||||
a. More signal names have been added for Solaris
|
||||
b. A bug fixed for the v directive in vi MULTIBYTE has been
|
||||
fixed.
|
||||
c. Code to for IFS handling of multibyte characters has
|
||||
been added.
|
||||
d. The displaying of multibyte strings in export, readonly,
|
||||
typeset, and execution traces has been fixed.
|
||||
e. A bug with type ahead and KEYBOARD traps with the
|
||||
MULTIBYTE option set has been fixed.
|
||||
f. The k-shell information abstraction database option, KIA,
|
||||
has been revamped for the 'e' point release.
|
||||
g. A bug in brace pattern expansions that caused expressions
|
||||
such as {foo\,bar,bam} to expand incorrectly have been fixed.
|
||||
h. On the U/WIN version for Window 95 and Windows NT,
|
||||
when a directory beginning with a letter followed by
|
||||
a colon is given to cd, it is assumed to be an absolute
|
||||
directory.
|
||||
i. There was a bug in the compile option that does not
|
||||
use fork() in which the current option settings where
|
||||
not propagated to sub-shells.
|
||||
j. A bug in setting .sh.editchar during the KEYBD trap
|
||||
for the MULTIBYTE option was fixed in release 'h'.
|
||||
k. A bug in which the precision given as an argument
|
||||
to printf was not working has been fixed.
|
||||
|
||||
17. Other changes to 12/28/93[abcdefghi]
|
||||
a. A couple of minor changes to make adding built-ins easier.
|
||||
b. Variables inside functions are now statically scoped.
|
||||
The previous behavior was never documented.
|
||||
c. A few changes have been made to the name-value library
|
||||
that affect built-ins that use disciplines. The
|
||||
changes allow disciplines to be shared by variables
|
||||
and should make it possible to add new disciplines
|
||||
without recompilation.
|
||||
d. The name-value library interface has undergone significant
|
||||
change for this revision. See the new nval.3 man page.
|
||||
e. Builtin functions can take a third argument which is
|
||||
a void*.
|
||||
f. The nv_scan() function can restrict the scope of a walk
|
||||
to the top scope. Starting in 'f', nv_scan() has an
|
||||
additional pointer argument that is passed to each invoked
|
||||
function.
|
||||
g. Starting with release 'f', an empty for list behave like
|
||||
a for list with null expansions. It produces a warning
|
||||
message with sh -n.
|
||||
h. Starting with release 'f' the code has been modified to
|
||||
work with EBCDIC as well as ASCII.
|
||||
i. Starting with the release 'g', the name-value pair library
|
||||
uses the cdt library rather than the hash library.
|
||||
j. The sh_fun() function now takes third argument which
|
||||
is an argument list for the invoked discipline function
|
||||
or built-in.
|
||||
k. A callback function can be installed which will give
|
||||
notification of file duplications and file closes.
|
||||
|
||||
18. Incompatibilities with 12/28/93 version.
|
||||
None intentional.
|
||||
43
cde/programs/dtksh/ksh93/src/cmd/ksh93/SHOPT.sh
Normal file
43
cde/programs/dtksh/ksh93/src/cmd/ksh93/SHOPT.sh
Normal file
@@ -0,0 +1,43 @@
|
||||
#
|
||||
# Compile-time SHOPT_* options for ksh93.
|
||||
# 1 to enable, 0 to disable, empty value to probe.
|
||||
#
|
||||
# For a more complete description of the options, see src/cmd/ksh93/README.
|
||||
#
|
||||
|
||||
SHOPT ACCT=0 # accounting
|
||||
SHOPT ACCTFILE=0 # per-user accounting info
|
||||
SHOPT AUDIT=1 # enable auditing per SHOPT_AUDITFILE
|
||||
SHOPT AUDITFILE='"/etc/ksh_audit"' # auditing file
|
||||
SHOPT BGX=1 # one SIGCHLD trap per completed job
|
||||
SHOPT BRACEPAT=1 # C-shell {...,...} expansions (, required)
|
||||
SHOPT CMDLIB_HDR= # '<cmdlist.h>' # custom -lcmd list for path-bound builtins
|
||||
SHOPT CMDLIB_DIR= # '"/opt/ast/bin"' # virtual directory prefix for path-bound builtins
|
||||
SHOPT CRNL= # accept MS Windows newlines (<cr><nl>) for <nl>
|
||||
SHOPT DEVFD= # use /dev/fd instead of FIFOs for process substitutions
|
||||
SHOPT DYNAMIC=0 # dynamic loading for builtins
|
||||
SHOPT ECHOPRINT= # make echo equivalent to print
|
||||
SHOPT EDPREDICT=0 # History pattern search menu (type #<pattern>, then ESC <number> TAB). Experimental.
|
||||
SHOPT ESH=1 # emacs/gmacs edit mode
|
||||
SHOPT FILESCAN=1 # fast file scan: while <file; do [use $REPLY or positional parameters]; done
|
||||
SHOPT FIXEDARRAY=1 # fixed dimension indexed array
|
||||
SHOPT GLOBCASEDET= # -o globcasedetect: adapt globbing/completion to case-insensitive file systems
|
||||
SHOPT HISTEXPAND=1 # csh-style history file expansions
|
||||
SHOPT KIA= # ksh -R <outfile> <script> generates cross-ref database from script
|
||||
SHOPT MKSERVICE=0 # enable the mkservice and eloop builtins
|
||||
SHOPT MULTIBYTE= # multibyte character handling
|
||||
SHOPT NAMESPACE=1 # allow namespaces
|
||||
SHOPT NOECHOE=0 # turn off 'echo -e' when SHOPT_ECHOPRINT is disabled
|
||||
SHOPT OLDTERMIO= # support both TCGETA and TCGETS
|
||||
SHOPT OPTIMIZE=1 # optimize loop invariants
|
||||
SHOPT P_SUID=0 # real UIDs >= this value require -p for set[ug]id (to turn off, use empty, not 0)
|
||||
SHOPT RAWONLY=1 # make viraw the only vi mode
|
||||
SHOPT REGRESS= # enable __regress__ builtin and instrumented intercepts for testing
|
||||
SHOPT REMOTE= # enable --rc if running as a remote shell
|
||||
SHOPT SPAWN= # use spawnveg for fork/exec
|
||||
SHOPT STATS=1 # add .sh.stats variable
|
||||
SHOPT SUID_EXEC=1 # allow (safe) SUID/SGID shell scripts
|
||||
SHOPT SYSRC= # attempt . /etc/ksh.kshrc if interactive
|
||||
SHOPT TEST_L= # add 'test -l' as an alias for 'test -L'
|
||||
SHOPT TIMEOUT= # number of seconds for shell timeout
|
||||
SHOPT VSH=1 # vi edit mode
|
||||
182
cde/programs/dtksh/ksh93/src/cmd/ksh93/TYPES
Normal file
182
cde/programs/dtksh/ksh93/src/cmd/ksh93/TYPES
Normal file
@@ -0,0 +1,182 @@
|
||||
|
||||
The ability for users to define types has been added to ksh93t.
|
||||
Here is a quick summary of how types are defined and used in ksh93t.
|
||||
This is still a work in progress so some changes and additions
|
||||
are likely.
|
||||
|
||||
A type can be defined either by a shared library or by using the new
|
||||
typeset -T option to the shell. The method for defining types via
|
||||
a shared library is not described here. However, the source file
|
||||
bltins/enum.c is an example of a builtin that creates enumeration types.
|
||||
|
||||
By convention, typenames begin with a capital letter and end in _t.
|
||||
To define a type, use
|
||||
typeset -T Type_t=(
|
||||
definition
|
||||
)
|
||||
where definition contains assignment commands, declaration commands,
|
||||
and function definitions. A declaration command (for example typeset,
|
||||
readonly, and export), is a built-in that differs from other builtins in
|
||||
that tilde expansion is performed on arguments after an =, assignments
|
||||
do not have to precede the command name, and field splitting and pathname
|
||||
expansion is not performed on the arguments.
|
||||
For example,
|
||||
typeset -T Pt_t=(
|
||||
float -h 'length in inches' x=1
|
||||
float -h 'width in inches' y=0
|
||||
integer -S count=0
|
||||
len()
|
||||
{
|
||||
print -r $((sqrt(_.x*_.x + _.y*_.y)))
|
||||
}
|
||||
set()
|
||||
{
|
||||
(( _.count++))
|
||||
}
|
||||
)
|
||||
|
||||
defines a type Pt_t that has three variables x, y, and count defined as well
|
||||
as the discipline functions len and set. The variable x has an initial value
|
||||
of 1 and the variable y has an initial value of 0. The new -h option argument,
|
||||
is used for documentations purposes as described later and is ignored outside
|
||||
of a type definition.
|
||||
|
||||
|
||||
The variable count has the new -S attribute which means that it is shared
|
||||
between all instances of the type. The -S option to typeset is ignored
|
||||
outside of a type definition. Note the variable named _ that is used inside
|
||||
the function definition for len and set. It will be a reference to the
|
||||
instance of Pt_t that invoked the function. The functions len and set
|
||||
could also have been defined with function len and function set, but
|
||||
since there are no local variables, the len() and set() form are more
|
||||
efficient since they don't need to set up a context for local variables
|
||||
and for saving and restoring traps.
|
||||
|
||||
If the discipline function named create is defined it will be
|
||||
invoked when creating each instance for that type. A function named
|
||||
create cannot be defined by any instance.
|
||||
|
||||
When a type is defined, a declaration built-in command by this name
|
||||
is added to ksh. As with other shell builtins, you can get the man page
|
||||
for this newly added command by invoking Pt_t --man. The information from
|
||||
the -h options will be embedded in this man page. Any functions that
|
||||
use getopts to process arguments will be cross-referenced on the generated
|
||||
man page.
|
||||
|
||||
Since Pt_t is now a declaration command it can be used in the definition
|
||||
of other types, for example
|
||||
typeset -T Rect_t=( Pt_t ur ll)
|
||||
|
||||
Because a type definition is a command, it can be loaded on first reference
|
||||
by putting the definition into a file that is found on FPATH.
|
||||
Thus, if this definition is in a file named Pt_t on FPATH, then
|
||||
a program can create instances of Pt_t without first including
|
||||
the definition.
|
||||
|
||||
A type definition is readonly and cannot be unset. Unsetting non-shared
|
||||
elements of a type restores them to their default value. Unsetting a
|
||||
shared element has no effect.
|
||||
|
||||
The Pt_t command is used to create an instance of Pt_t.
|
||||
Pt_t p1
|
||||
creates an instance named p1 with the initial value for p1.x set to 1
|
||||
and the initial value of p1.y set to 0.
|
||||
Pt_t p2=(x=3 y=4)
|
||||
creates an instance with the specified initial values. The len function
|
||||
gives the distance of the point to the origin. Thus, p1.len will output
|
||||
1 and p2.len will output 5.
|
||||
|
||||
ksh93t also introduces a more efficient command substitution mechanism.
|
||||
Instead of $(command), the new command substitution ${ command;}
|
||||
can be used. Unlike (and ) which are always special, the { and } are
|
||||
reserved words and require the space after { and a newline or ; before }.
|
||||
Unlike $(), the ${ ;} command substitution executes the command in
|
||||
the current shell context saving the need to save and restore
|
||||
changes, therefore also allowing side effects.
|
||||
|
||||
When trying to expand an element of a type, if the element does not exist,
|
||||
ksh will look for a discipline function with that name and treat this as if
|
||||
it were the ${ ;} command substitution. Thus, ${p1.len} is equivalent to
|
||||
${ p1.len;} and within an arithmetic expression, p1.len will be expanded
|
||||
via the new command substitution method.
|
||||
|
||||
The type of any variable can be obtained from the new prefix
|
||||
operator @. Thus, ${@p1} will output Pt_t.
|
||||
|
||||
By default, each instance inherits all the discipline functions defined
|
||||
by the type definition other than create. However, each instance can define
|
||||
a function by the same name that will override this definition.
|
||||
However, only discipline functions with the same name as those defined
|
||||
by the type or the standard get, set, append, and unset disciplines
|
||||
can be defined by each instance.
|
||||
|
||||
Each instance of the type Pt_t behaves like a compound variable except
|
||||
that only the variables defined by the type can be referenced or set.
|
||||
Thus, p2.x=9 is valid, but p2.z=9 is not. Unless a set discipline function
|
||||
does otherwise, the value of $p1 will be expanded to the form of a compound
|
||||
variable that can be used for reinput into ksh.
|
||||
|
||||
If the variables var1 and var2 are of the same type, then the assignment
|
||||
var2=var1
|
||||
will create a copy of the variable var1 into var2. This is equivalent to
|
||||
eval var2="$var1"
|
||||
but is faster since the variable does not need to get expanded or reparsed.
|
||||
|
||||
The type Pt_t can be referenced as if it were a variable using the name
|
||||
.sh.type.Pt_t. To change the default point location for subsequent
|
||||
instances of Pt_t, you can do
|
||||
.sh.type.Pt_t=(x=5 y=12)
|
||||
so that
|
||||
Pt_t p3
|
||||
p3.len
|
||||
would be 13.
|
||||
|
||||
Types can be defined for simple variables as well as for compound
|
||||
objects such as Pt_t. In this case, the variable named . inside
|
||||
the definition refers to the real value for the variable. For example,
|
||||
the type definition
|
||||
typeset -T Time_t=(
|
||||
integer .=0
|
||||
_='%H:%M:%S'
|
||||
get()
|
||||
{
|
||||
.sh.value=$(printf "%(${_._})T" "#$((_))" )
|
||||
}
|
||||
set()
|
||||
{
|
||||
.sh.value=$(printf "%(%#)T" "${.sh.value}")
|
||||
|
||||
}
|
||||
)
|
||||
|
||||
The sub-variable name _ is reserved for data used by discipline functions
|
||||
and will not be included with data written with the %B option to printf.
|
||||
In this case it is used to specify a date format.
|
||||
|
||||
In this case
|
||||
Time_t t1 t2=now
|
||||
will define t1 as the time at the beginning of the epoch and t2
|
||||
as the current time. Unlike the previous case, $t2 will output
|
||||
the current time in the date format specified by the value t2._.
|
||||
However, the value of ${t2.} will expand the instance to a form
|
||||
that can be used as input to the shell.
|
||||
|
||||
Finally, types can be derived from an existing type. If the first
|
||||
element in a type definition is named _, then the new type
|
||||
consists of all the elements and discipline functions from the
|
||||
type of _ extended by elements and discipline functions defined
|
||||
by new type definition. For example,
|
||||
|
||||
typeset -T Pq_t=(
|
||||
Pt_t _
|
||||
float z=0.
|
||||
len()
|
||||
{
|
||||
print -r $((sqrt(_.x*_.x + _.y*_.y + _.z*_.z)))
|
||||
}
|
||||
)
|
||||
|
||||
defines a new type Pq_t which is based on Pq_t and contains an additional
|
||||
field z and a different len discipline function. It is also possible
|
||||
to create a new type Pt_t based on the original Pt_t. In this case
|
||||
the original Pt_t is no longer accessible.
|
||||
297
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/cd_pwd.c
Normal file
297
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/cd_pwd.c
Normal file
@@ -0,0 +1,297 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* cd [-L] [-Pe] [dirname]
|
||||
* cd [-L] [-Pe] [old] [new]
|
||||
* pwd [-LP]
|
||||
*
|
||||
* David Korn
|
||||
* AT&T Labs
|
||||
* research!dgk
|
||||
*
|
||||
*/
|
||||
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
#include <stak.h>
|
||||
#include <error.h>
|
||||
#include "variables.h"
|
||||
#include "path.h"
|
||||
#include "name.h"
|
||||
#include "builtins.h"
|
||||
#include <ls.h>
|
||||
#include "test.h"
|
||||
|
||||
/*
|
||||
* Invalidate path name bindings to relative paths
|
||||
*/
|
||||
static void rehash(register Namval_t *np,void *data)
|
||||
{
|
||||
Pathcomp_t *pp = (Pathcomp_t*)np->nvalue.cp;
|
||||
if(pp && *pp->name!='/')
|
||||
nv_rehash(np,data);
|
||||
}
|
||||
|
||||
int b_cd(int argc, char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register char *dir;
|
||||
Pathcomp_t *cdpath = 0;
|
||||
register const char *dp;
|
||||
int saverrno=0;
|
||||
int rval,pflag=0,eflag=0,ret=1;
|
||||
char *oldpwd;
|
||||
Namval_t *opwdnod, *pwdnod;
|
||||
NOT_USED(context);
|
||||
while((rval = optget(argv,sh_optcd))) switch(rval)
|
||||
{
|
||||
case 'e':
|
||||
eflag = 1;
|
||||
break;
|
||||
case 'L':
|
||||
pflag = 0;
|
||||
break;
|
||||
case 'P':
|
||||
pflag = 1;
|
||||
break;
|
||||
case ':':
|
||||
if(sh_isoption(SH_RESTRICTED))
|
||||
break;
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
if(sh_isoption(SH_RESTRICTED))
|
||||
break;
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(pflag && eflag)
|
||||
ret = 2; /* exit status is 2 if -eP are both on and chdir failed */
|
||||
if(sh_isoption(SH_RESTRICTED))
|
||||
{
|
||||
/* restricted shells cannot change the directory */
|
||||
errormsg(SH_DICT,ERROR_exit(ret),e_restricted+4);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
argc -= opt_info.index;
|
||||
dir = argv[0];
|
||||
if(error_info.errors>0 || argc>2)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
oldpwd = path_pwd();
|
||||
opwdnod = sh_scoped(OLDPWDNOD);
|
||||
pwdnod = sh_scoped(PWDNOD);
|
||||
if(sh.subshell)
|
||||
{
|
||||
/* clone $OLDPWD and $PWD into the subshell's scope */
|
||||
sh_assignok(opwdnod,1);
|
||||
sh_assignok(pwdnod,1);
|
||||
}
|
||||
if(argc==2)
|
||||
dir = sh_substitute(oldpwd,dir,argv[1]);
|
||||
else if(!dir)
|
||||
dir = nv_getval(HOME);
|
||||
else if(*dir == '-' && dir[1]==0)
|
||||
dir = nv_getval(opwdnod);
|
||||
if(!dir || *dir==0)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(ret),argc==2?e_subst+4:e_direct);
|
||||
UNREACHABLE();
|
||||
}
|
||||
/*
|
||||
* If sh_subshell() in subshell.c cannot use fchdir(2) to restore the PWD using a saved file descriptor,
|
||||
* we must fork any virtual subshell now to avoid the possibility of ending up in the wrong PWD on exit.
|
||||
*/
|
||||
if(sh.subshell && !sh.subshare)
|
||||
{
|
||||
#if _lib_fchdir
|
||||
if(!test_inode(sh.pwd,e_dot))
|
||||
#endif
|
||||
sh_subfork();
|
||||
}
|
||||
/*
|
||||
* Do $CDPATH processing, except if the path is absolute or the first component is '.' or '..'
|
||||
*/
|
||||
if(dir[0] != '/'
|
||||
#if _WINIX
|
||||
&& dir[1] != ':' /* on Windows, an initial drive letter plus ':' denotes an absolute path */
|
||||
#endif /* _WINIX */
|
||||
&& !(dir[0]=='.' && (dir[1]=='/' || dir[1]==0))
|
||||
&& !(dir[0]=='.' && dir[1]=='.' && (dir[2]=='/' || dir[2]==0)))
|
||||
{
|
||||
if((dp=sh_scoped(CDPNOD)->nvalue.cp) && !(cdpath = (Pathcomp_t*)sh.cdpathlist))
|
||||
{
|
||||
if(cdpath=path_addpath((Pathcomp_t*)0,dp,PATH_CDPATH))
|
||||
sh.cdpathlist = (void*)cdpath;
|
||||
}
|
||||
}
|
||||
if(*dir!='/')
|
||||
{
|
||||
/* check for leading .. */
|
||||
char *cp;
|
||||
sfprintf(sh.strbuf,"%s",dir);
|
||||
cp = sfstruse(sh.strbuf);
|
||||
pathcanon(cp, 0);
|
||||
if(cp[0]=='.' && cp[1]=='.' && (cp[2]=='/' || cp[2]==0))
|
||||
{
|
||||
if(!sh.strbuf2)
|
||||
sh.strbuf2 = sfstropen();
|
||||
sfprintf(sh.strbuf2,"%s/%s",oldpwd,cp);
|
||||
dir = sfstruse(sh.strbuf2);
|
||||
pathcanon(dir, 0);
|
||||
}
|
||||
}
|
||||
rval = -1;
|
||||
do
|
||||
{
|
||||
dp = cdpath?cdpath->name:"";
|
||||
cdpath = path_nextcomp(cdpath,dir,0);
|
||||
#if _WINIX
|
||||
if(*stakptr(PATH_OFFSET+1)==':' && isalpha(*stakptr(PATH_OFFSET)))
|
||||
{
|
||||
*stakptr(PATH_OFFSET+1) = *stakptr(PATH_OFFSET);
|
||||
*stakptr(PATH_OFFSET)='/';
|
||||
}
|
||||
#endif /* _WINIX */
|
||||
if(*stakptr(PATH_OFFSET)!='/')
|
||||
{
|
||||
char *last=(char*)stakfreeze(1);
|
||||
stakseek(PATH_OFFSET);
|
||||
stakputs(oldpwd);
|
||||
/* don't add '/' of oldpwd is / itself */
|
||||
if(*oldpwd!='/' || oldpwd[1])
|
||||
stakputc('/');
|
||||
stakputs(last+PATH_OFFSET);
|
||||
stakputc(0);
|
||||
}
|
||||
if(!pflag)
|
||||
{
|
||||
register char *cp;
|
||||
stakseek(PATH_MAX+PATH_OFFSET);
|
||||
if(*(cp=stakptr(PATH_OFFSET))=='/')
|
||||
if(!pathcanon(cp,PATH_DOTDOT))
|
||||
continue;
|
||||
}
|
||||
if((rval=chdir(path_relative(stakptr(PATH_OFFSET)))) >= 0)
|
||||
goto success;
|
||||
if(errno!=ENOENT && saverrno==0)
|
||||
saverrno=errno;
|
||||
}
|
||||
while(cdpath);
|
||||
if(rval<0 && *dir=='/' && *(path_relative(stakptr(PATH_OFFSET)))!='/')
|
||||
rval = chdir(dir);
|
||||
/* use absolute chdir() if relative chdir() fails */
|
||||
if(rval<0)
|
||||
{
|
||||
if(saverrno)
|
||||
errno = saverrno;
|
||||
errormsg(SH_DICT,ERROR_system(ret),"%s:",dir);
|
||||
UNREACHABLE();
|
||||
}
|
||||
success:
|
||||
if(dir == nv_getval(opwdnod) || argc==2)
|
||||
dp = dir; /* print out directory for cd - */
|
||||
if(pflag)
|
||||
{
|
||||
dir = stakptr(PATH_OFFSET);
|
||||
if (!(dir=pathcanon(dir,PATH_PHYSICAL)))
|
||||
{
|
||||
dir = stakptr(PATH_OFFSET);
|
||||
errormsg(SH_DICT,ERROR_system(ret),"%s:",dir);
|
||||
UNREACHABLE();
|
||||
}
|
||||
stakseek(dir-stakptr(0));
|
||||
}
|
||||
dir = (char*)stakfreeze(1)+PATH_OFFSET;
|
||||
if(*dp && (*dp!='.'||dp[1]) && strchr(dir,'/'))
|
||||
sfputr(sfstdout,dir,'\n');
|
||||
nv_putval(opwdnod,oldpwd,NV_RDONLY);
|
||||
free((void*)sh.pwd);
|
||||
if(*dir == '/')
|
||||
{
|
||||
size_t len = strlen(dir);
|
||||
/* delete trailing '/' */
|
||||
while(--len>0 && dir[len]=='/')
|
||||
dir[len] = 0;
|
||||
nv_putval(pwdnod,dir,NV_RDONLY);
|
||||
nv_onattr(pwdnod,NV_EXPORT);
|
||||
sh.pwd = sh_strdup(dir);
|
||||
}
|
||||
else
|
||||
{
|
||||
/* pathcanon() failed to canonicalize the directory, which happens when 'cd' is invoked from a
|
||||
nonexistent PWD with a relative path as the argument. Reinitialize $PWD as it will be wrong. */
|
||||
sh.pwd = NIL(const char*);
|
||||
path_pwd();
|
||||
if(*sh.pwd != '/')
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_system(ret),e_direct);
|
||||
UNREACHABLE();
|
||||
}
|
||||
}
|
||||
nv_scan(sh_subtracktree(1),rehash,(void*)0,NV_TAGGED,NV_TAGGED);
|
||||
path_newdir(sh.pathlist);
|
||||
path_newdir(sh.cdpathlist);
|
||||
if(pflag && eflag)
|
||||
{
|
||||
/* Verify the current working directory matches $PWD */
|
||||
return(!test_inode(e_dot,nv_getval(pwdnod)));
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
int b_pwd(int argc, char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register int n, flag = 0;
|
||||
register char *cp;
|
||||
NOT_USED(argc);
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv,sh_optpwd))) switch(n)
|
||||
{
|
||||
case 'L':
|
||||
flag = 0;
|
||||
break;
|
||||
case 'P':
|
||||
flag = 1;
|
||||
break;
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(*(cp = path_pwd()) != '/' || !test_inode(cp,e_dot))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_system(1), e_pwd);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(flag)
|
||||
{
|
||||
cp = strcpy(stakseek(strlen(cp)+PATH_MAX),cp);
|
||||
pathcanon(cp,PATH_PHYSICAL);
|
||||
}
|
||||
sfputr(sfstdout,cp,'\n');
|
||||
return(0);
|
||||
}
|
||||
134
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/cflow.c
Normal file
134
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/cflow.c
Normal file
@@ -0,0 +1,134 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* break [n]
|
||||
* continue [n]
|
||||
* return [n]
|
||||
* exit [n]
|
||||
*
|
||||
* David Korn
|
||||
* AT&T Labs
|
||||
* dgk@research.att.com
|
||||
*
|
||||
*/
|
||||
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
#include <ast.h>
|
||||
#include <error.h>
|
||||
#include "shnodes.h"
|
||||
#include "builtins.h"
|
||||
|
||||
/*
|
||||
* return and exit
|
||||
*/
|
||||
#if 0
|
||||
/* for the dictionary generator */
|
||||
int b_exit(int n, register char *argv[],Shbltin_t *context){}
|
||||
#endif
|
||||
int b_return(register int n, register char *argv[],Shbltin_t *context)
|
||||
{
|
||||
/* 'return' outside of function, dotscript and profile behaves like 'exit' */
|
||||
char do_exit = **argv=='e' || sh.fn_depth==0 && sh.dot_depth==0 && !sh_isstate(SH_PROFILE);
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv, **argv=='e' ? sh_optexit : sh_optreturn))) switch(n)
|
||||
{
|
||||
case ':':
|
||||
if(!strmatch(argv[opt_info.index],"[+-]+([0-9])"))
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
goto done;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(0), "%s", opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
done:
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if(*argv)
|
||||
{
|
||||
long l = strtol(*argv, NIL(char**), 10);
|
||||
if(do_exit)
|
||||
n = (int)(l & SH_EXITMASK); /* exit: apply bitmask before conversion to avoid undefined int overflow */
|
||||
else if((long)(n = (int)l) != l) /* return: convert to int and check for overflow (should be safe enough) */
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_warn(0),"%s: out of range",*argv);
|
||||
n = 128; /* overflow is undefined, so use a consistent status for this */
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
n = sh.savexit; /* no argument: pass down $? */
|
||||
if(do_exit)
|
||||
n &= SH_EXITMASK;
|
||||
}
|
||||
((struct checkpt*)sh.jmplist)->mode = do_exit ? SH_JMPEXIT : SH_JMPFUN;
|
||||
sh_exit(sh.savexit = n);
|
||||
UNREACHABLE();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* break and continue
|
||||
*/
|
||||
#if 0
|
||||
/* for the dictionary generator */
|
||||
int b_continue(int n, register char *argv[],Shbltin_t *context){}
|
||||
#endif
|
||||
int b_break(register int n, register char *argv[],Shbltin_t *context)
|
||||
{
|
||||
char *arg;
|
||||
register int cont= **argv=='c';
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv,cont?sh_optcont:sh_optbreak))) switch(n)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(0), "%s", opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
n=1;
|
||||
if(arg= *argv)
|
||||
{
|
||||
n = (int)strtol(arg,&arg,10);
|
||||
if(n<=0 || *arg)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_nolabels,*argv);
|
||||
UNREACHABLE();
|
||||
}
|
||||
}
|
||||
if(sh.st.loopcnt)
|
||||
{
|
||||
sh.st.breakcnt = n;
|
||||
if(sh.st.breakcnt > sh.st.loopcnt)
|
||||
sh.st.breakcnt = sh.st.loopcnt;
|
||||
if(cont)
|
||||
sh.st.breakcnt = -sh.st.breakcnt;
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
324
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/enum.c
Normal file
324
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/enum.c
Normal file
@@ -0,0 +1,324 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
|
||||
#define ENUM_ID "enum (ksh 93u+m) 2022-03-05"
|
||||
|
||||
const char sh_optenum[] =
|
||||
"[-?@(#)$Id: " ENUM_ID " $\n]"
|
||||
"[--catalog?" ERROR_CATALOG "]"
|
||||
"[+NAME?enum - create an enumeration type]"
|
||||
"[+DESCRIPTION?\benum\b is a declaration command that creates one or more "
|
||||
"enumeration type declaration commands named \atypename\a. Variables "
|
||||
"of the created type can only store any one of the \avalue\as given. "
|
||||
"For example, \benum bool=(false true)\b creates a Boolean variable "
|
||||
"type of which variables may be declared like \bbool x=true y=false\b.]"
|
||||
"[+?If the list of \avalue\as is omitted, then \atypename\a must name an "
|
||||
"indexed array variable with at least two elements.]"
|
||||
"[+?For more information, create a type, then use \atypename\a \b--man\b.]"
|
||||
"[+USE IN ARITHMETIC EXPRESSIONS?When an enumeration variable is used in an "
|
||||
"arithmetic expression, its value is the index into the array that "
|
||||
"defined it, starting from 0. Taking the \bbool\b type from the "
|
||||
"example above, if a variable of this type is used in an arithmetic "
|
||||
"expression, \bfalse\b translates to 0 and \btrue\b to 1.]"
|
||||
"[+?Enumeration values may also be used directly in an arithmetic expression "
|
||||
"that refers to a variable of an enumeration type. "
|
||||
"To continue our example, for a \bbool\b variable \bv\b, "
|
||||
"\b((v==true))\b is the same as \b((v==1))\b and "
|
||||
"if a variable named \btrue\b exists, it is ignored.]"
|
||||
"[i:ignorecase?The values are case insensitive.]"
|
||||
"\n"
|
||||
"\n\atypename\a[\b=(\b \avalue\a ... \b)\b] ...\n"
|
||||
"\n"
|
||||
"[+EXIT STATUS]"
|
||||
"{"
|
||||
"[+0?Successful completion.]"
|
||||
"[+>0?An error occurred.]"
|
||||
"}"
|
||||
"[+SEE ALSO?\bksh\b(1), \btypeset\b(1).]"
|
||||
;
|
||||
|
||||
static const char enum_type[] =
|
||||
"[-?@(#)$Id: " ENUM_ID " $\n]"
|
||||
"[--catalog?" ERROR_CATALOG "]"
|
||||
"[+NAME?\f?\f - create an instance of type \b\f?\f\b]"
|
||||
"[+DESCRIPTION?The \b\f?\f\b declaration command creates a variable for "
|
||||
"each \aname\a with enumeration type \b\f?\f\b, a type that has been "
|
||||
"created with the \benum\b(1) command.]"
|
||||
"[+?The variable can have one of the following values: \fvalues\f. "
|
||||
"The values are \fcase\fcase sensitive. "
|
||||
"If \b=\b\avalue\a is omitted, the default is \fdefault\f.]"
|
||||
"[+?Within arithmetic expressions, these values translate to index numbers "
|
||||
"from \b0\b (for \fdefault\f) to \flastn\f (for \flastv\f). "
|
||||
"It is an error for an arithmetic expression to assign a value "
|
||||
"outside of that range. Decimal fractions are ignored.]"
|
||||
"[+?If no \aname\as are specified then the names and values of all "
|
||||
"variables of this type are written to standard output.]"
|
||||
"[+?\b\f?\f\b is built in to the shell as a declaration command so that "
|
||||
"field splitting and pathname expansion are not performed on "
|
||||
"the arguments. Tilde expansion occurs on \avalue\a.]"
|
||||
"[r?Enables readonly. Once enabled, the value cannot be changed or unset.]"
|
||||
"[a?Indexed array. Each \aname\a is converted to an indexed "
|
||||
"array of type \b\f?\f\b. If a variable already exists, the current "
|
||||
"value will become index \b0\b.]"
|
||||
"[A?Associative array. Each \aname\a is converted to an associative "
|
||||
"array of type \b\f?\f\b. If a variable already exists, the current "
|
||||
"value will become subscript \b0\b.]"
|
||||
"[h]:[string?Used within a type definition to provide a help string "
|
||||
"for variable \aname\a. Otherwise, it is ignored.]"
|
||||
"[S?Used with a type definition to indicate that the variable is shared by "
|
||||
"each instance of the type. When used inside a function defined "
|
||||
"with the \bfunction\b reserved word, the specified variables "
|
||||
"will have function static scope. Otherwise, the variable is "
|
||||
"unset prior to processing the assignment list.]"
|
||||
"\n"
|
||||
"\n[name[=value]...]\n"
|
||||
"\n"
|
||||
"[+EXIT STATUS?]{"
|
||||
"[+0?Successful completion.]"
|
||||
"[+>0?An error occurred.]"
|
||||
"}"
|
||||
|
||||
"[+SEE ALSO?\benum\b(1), \btypeset\b(1)]"
|
||||
;
|
||||
|
||||
extern const char is_spcbuiltin[];
|
||||
|
||||
struct Enum
|
||||
{
|
||||
Namfun_t hdr;
|
||||
short nelem;
|
||||
short iflag;
|
||||
const char *values[1];
|
||||
};
|
||||
|
||||
/*
|
||||
* For range checking in arith.c
|
||||
*/
|
||||
short b_enum_nelem(Namfun_t *fp)
|
||||
{
|
||||
return(((struct Enum *)fp)->nelem);
|
||||
}
|
||||
|
||||
static int enuminfo(Opt_t* op, Sfio_t *out, const char *str, Optdisc_t *fp)
|
||||
{
|
||||
Namval_t *np;
|
||||
struct Enum *ep;
|
||||
int n=0;
|
||||
const char *v;
|
||||
np = *(Namval_t**)(fp+1);
|
||||
ep = (struct Enum*)np->nvfun;
|
||||
if(!ep)
|
||||
return(0);
|
||||
if(strcmp(str,"default")==0)
|
||||
sfprintf(out,"\b%s\b",ep->values[0]);
|
||||
else if(strncmp(str,"last",4)==0)
|
||||
{
|
||||
while(ep->values[++n])
|
||||
;
|
||||
n--;
|
||||
if(str[4]=='v')
|
||||
sfprintf(out,"\b%s\b",ep->values[n]);
|
||||
else
|
||||
sfprintf(out,"\b%d\b",n);
|
||||
}
|
||||
else if(strcmp(str,"case")==0)
|
||||
{
|
||||
if(ep->iflag)
|
||||
sfprintf(out,"not ");
|
||||
}
|
||||
else while(v=ep->values[n])
|
||||
sfprintf(out, n++ ? ", \b%s\b" : "\b%s\b", v);
|
||||
return(0);
|
||||
}
|
||||
|
||||
static Namfun_t *clone_enum(Namval_t* np, Namval_t *mp, int flags, Namfun_t *fp)
|
||||
{
|
||||
struct Enum *ep, *pp=(struct Enum*)fp;
|
||||
ep = sh_newof(0,struct Enum,1,pp->nelem*sizeof(char*));
|
||||
memcpy((void*)ep,(void*)pp,sizeof(struct Enum)+pp->nelem*sizeof(char*));
|
||||
return(&ep->hdr);
|
||||
}
|
||||
|
||||
static void put_enum(Namval_t* np,const char *val,int flags,Namfun_t *fp)
|
||||
{
|
||||
struct Enum *ep = (struct Enum*)fp;
|
||||
register const char *v;
|
||||
unsigned short i=0;
|
||||
int n;
|
||||
if(!val)
|
||||
{
|
||||
nv_putv(np, val, flags,fp);
|
||||
nv_disc(np,&ep->hdr,NV_POP);
|
||||
if(!ep->hdr.nofree)
|
||||
free((void*)ep);
|
||||
return;
|
||||
}
|
||||
if(flags&NV_INTEGER)
|
||||
{
|
||||
nv_putv(np,val,flags,fp);
|
||||
return;
|
||||
}
|
||||
while(v=ep->values[i])
|
||||
{
|
||||
if(ep->iflag)
|
||||
n = strcasecmp(v,val);
|
||||
else
|
||||
n = strcmp(v,val);
|
||||
if(n==0)
|
||||
{
|
||||
nv_putv(np, (char*)&i, NV_UINT16, fp);
|
||||
return;
|
||||
}
|
||||
i++;
|
||||
}
|
||||
error(ERROR_exit(1), "%s: invalid value %s",nv_name(np),val);
|
||||
UNREACHABLE();
|
||||
}
|
||||
|
||||
static char* get_enum(register Namval_t* np, Namfun_t *fp)
|
||||
{
|
||||
static char buff[6];
|
||||
struct Enum *ep = (struct Enum*)fp;
|
||||
long n = nv_getn(np,fp);
|
||||
if(n < ep->nelem)
|
||||
return((char*)ep->values[n]);
|
||||
sfsprintf(buff,sizeof(buff),"%u%c",n,0);
|
||||
return(buff);
|
||||
}
|
||||
|
||||
static Sfdouble_t get_nenum(register Namval_t* np, Namfun_t *fp)
|
||||
{
|
||||
return(nv_getn(np,fp));
|
||||
}
|
||||
|
||||
const Namdisc_t ENUM_disc = { 0, put_enum, get_enum, get_nenum, 0,0,clone_enum };
|
||||
|
||||
#ifdef STANDALONE
|
||||
static int enum_create(int argc, char** argv, Shbltin_t *context)
|
||||
#else
|
||||
int b_enum(int argc, char** argv, Shbltin_t *context)
|
||||
#endif
|
||||
{
|
||||
int sz,i,n,iflag = 0;
|
||||
Namval_t *np, *tp;
|
||||
Namarr_t *ap;
|
||||
char *cp,*sp;
|
||||
struct Enum *ep;
|
||||
struct {
|
||||
Optdisc_t opt;
|
||||
Namval_t *np;
|
||||
} optdisc;
|
||||
|
||||
cmdinit(argc, argv, context, ERROR_CATALOG, ERROR_NOTIFY);
|
||||
for (;;)
|
||||
{
|
||||
switch (optget(argv, sh_optenum))
|
||||
{
|
||||
case 'i':
|
||||
iflag = 'i';
|
||||
continue;
|
||||
case '?':
|
||||
error(ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
case ':':
|
||||
error(2, "%s", opt_info.arg);
|
||||
break;
|
||||
}
|
||||
break;
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if (error_info.errors || !*argv)
|
||||
{
|
||||
error(ERROR_USAGE|2, "%s", optusage(NiL));
|
||||
return 1;
|
||||
}
|
||||
#ifndef STANDALONE
|
||||
if(sh.subshell && !sh.subshare)
|
||||
sh_subfork();
|
||||
#endif
|
||||
while(cp = *argv++)
|
||||
{
|
||||
/* Do not allow 'enum' to override special built-ins -- however, exclude
|
||||
* previously created type commands from this search as that is handled elsewhere. */
|
||||
if((tp=nv_search(cp,sh.bltin_tree,0)) && nv_isattr(tp,BLT_SPC) && !nv_search(cp,sh.typedict,0))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),"%s:%s",cp,is_spcbuiltin);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(!(np = nv_open(cp, (void*)0, NV_VARNAME|NV_NOADD)) || !(ap=nv_arrayptr(np)) || ap->fun || (sz=ap->nelem&(((1L<<ARRAY_BITS)-1))) < 2)
|
||||
{
|
||||
error(ERROR_exit(1), "%s must name an array containing at least two elements",cp);
|
||||
UNREACHABLE();
|
||||
}
|
||||
n = staktell();
|
||||
sfprintf(stkstd,"%s.%s%c",NV_CLASS,np->nvname,0);
|
||||
tp = nv_open(stakptr(n), sh.var_tree, NV_VARNAME);
|
||||
stakseek(n);
|
||||
n = sz;
|
||||
i = 0;
|
||||
nv_onattr(tp, NV_UINT16);
|
||||
nv_putval(tp, (char*)&i, NV_INTEGER);
|
||||
nv_putsub(np, (char*)0, ARRAY_SCAN);
|
||||
do
|
||||
{
|
||||
sz += strlen(nv_getval(np));
|
||||
}
|
||||
while(nv_nextsub(np));
|
||||
sz += n*sizeof(char*);
|
||||
ep = sh_newof(0,struct Enum,1,sz);
|
||||
ep->iflag = iflag;
|
||||
ep->nelem = n;
|
||||
cp = (char*)&ep->values[n+1];
|
||||
nv_putsub(np, (char*)0, ARRAY_SCAN);
|
||||
ep->values[n] = 0;
|
||||
i = 0;
|
||||
do
|
||||
{
|
||||
ep->values[i++] = cp;
|
||||
sp = nv_getval(np);
|
||||
n = strlen(sp);
|
||||
memcpy(cp,sp,n+1);
|
||||
cp += n+1;
|
||||
}
|
||||
while(nv_nextsub(np));
|
||||
ep->hdr.dsize = sizeof(struct Enum)+sz;
|
||||
ep->hdr.disc = &ENUM_disc;
|
||||
ep->hdr.type = tp;
|
||||
nv_onattr(tp, NV_RDONLY);
|
||||
nv_disc(tp, &ep->hdr,NV_FIRST);
|
||||
memset(&optdisc,0,sizeof(optdisc));
|
||||
optdisc.opt.infof = enuminfo;
|
||||
optdisc.np = tp;
|
||||
nv_addtype(tp, enum_type, &optdisc.opt, sizeof(optdisc));
|
||||
}
|
||||
return error_info.errors != 0;
|
||||
}
|
||||
|
||||
#ifdef STANDALONE
|
||||
void lib_init(int flag, void* context)
|
||||
{
|
||||
Namval_t *mp,*bp;
|
||||
NOT_USED(context);
|
||||
if(flag)
|
||||
return;
|
||||
bp = sh_addbuiltin("Enum", enum_create, (void*)0);
|
||||
mp = nv_search("typeset",sh.bltin_tree,0);
|
||||
nv_onattr(bp,nv_isattr(mp,NV_PUBLIC));
|
||||
}
|
||||
#endif
|
||||
200
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/getopts.c
Normal file
200
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/getopts.c
Normal file
@@ -0,0 +1,200 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* getopts [-a name] optstring name [args...]
|
||||
*
|
||||
* David Korn
|
||||
* AT&T Labs
|
||||
* research!dgk
|
||||
*
|
||||
*/
|
||||
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
#include "variables.h"
|
||||
#include <error.h>
|
||||
#include <nval.h>
|
||||
#include "builtins.h"
|
||||
|
||||
static int infof(Opt_t* op, Sfio_t* sp, const char* s, Optdisc_t* dp)
|
||||
{
|
||||
Stk_t *stkp = sh.stk;
|
||||
#if SHOPT_NAMESPACE
|
||||
if((sh.namespace && sh_fsearch(s,0)) || nv_search(s,sh.fun_tree,0))
|
||||
#else
|
||||
if(nv_search(s,sh.fun_tree,0))
|
||||
#endif /* SHOPT_NAMESPACE */
|
||||
{
|
||||
int savtop = stktell(stkp);
|
||||
char *savptr = stkfreeze(stkp,0);
|
||||
sfputc(stkp,'$');
|
||||
sfputc(stkp,'(');
|
||||
sfputr(stkp,s,')');
|
||||
sfputr(sp,sh_mactry(stkfreeze(stkp,1)),-1);
|
||||
stkset(stkp,savptr,savtop);
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
|
||||
int b_getopts(int argc,char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register char *options=error_info.context->id;
|
||||
register Namval_t *np;
|
||||
register int flag, mode;
|
||||
char value[2], key[2];
|
||||
int jmpval;
|
||||
volatile int extended, r= -1;
|
||||
struct checkpt buff, *pp;
|
||||
Optdisc_t disc;
|
||||
memset(&disc, 0, sizeof(disc));
|
||||
disc.version = OPT_VERSION;
|
||||
disc.infof = infof;
|
||||
value[1] = 0;
|
||||
key[1] = 0;
|
||||
while((flag = optget(argv,sh_optgetopts))) switch(flag)
|
||||
{
|
||||
case 'a':
|
||||
options = opt_info.arg;
|
||||
break;
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
argc -= opt_info.index;
|
||||
if(error_info.errors || argc<2)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
error_info.context->flags |= ERROR_SILENT;
|
||||
error_info.id = options;
|
||||
options = argv[0];
|
||||
np = nv_open(argv[1],sh.var_tree,NV_VARNAME);
|
||||
if(argc>2)
|
||||
{
|
||||
argv +=1;
|
||||
argc -=1;
|
||||
}
|
||||
else
|
||||
{
|
||||
argv = sh.st.dolv;
|
||||
argc = sh.st.dolc;
|
||||
}
|
||||
opt_info.index = sh.st.optindex;
|
||||
opt_info.offset = sh.st.optchar;
|
||||
if(mode= (*options==':'))
|
||||
options++;
|
||||
extended = *options=='\n' && *(options+1)=='[' || *options=='[' && *(options+1)=='-';
|
||||
sh_pushcontext(&buff,1);
|
||||
jmpval = sigsetjmp(buff.buff,0);
|
||||
if(jmpval)
|
||||
{
|
||||
sh_popcontext(&buff);
|
||||
sh.st.opterror = 1;
|
||||
if(r==0)
|
||||
return(2);
|
||||
pp = (struct checkpt*)sh.jmplist;
|
||||
pp->mode = SH_JMPERREXIT;
|
||||
sh_exit(2);
|
||||
}
|
||||
opt_info.disc = &disc;
|
||||
switch(opt_info.index>=0 && opt_info.index<=argc?(opt_info.num= LONG_MIN,flag=optget(argv,options)):0)
|
||||
{
|
||||
case '?':
|
||||
if(mode==0)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
opt_info.option[1] = '?';
|
||||
/* FALLTHROUGH */
|
||||
case ':':
|
||||
key[0] = opt_info.option[1];
|
||||
if(strmatch(opt_info.arg,"*unknown*"))
|
||||
flag = '?';
|
||||
if(mode)
|
||||
opt_info.arg = key;
|
||||
else
|
||||
{
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
opt_info.arg = 0;
|
||||
flag = '?';
|
||||
}
|
||||
*(options = value) = flag;
|
||||
sh.st.opterror = 1;
|
||||
if (opt_info.offset != 0 && !argv[opt_info.index][opt_info.offset])
|
||||
{
|
||||
opt_info.offset = 0;
|
||||
opt_info.index++;
|
||||
}
|
||||
break;
|
||||
case 0:
|
||||
if(sh.st.opterror)
|
||||
{
|
||||
char *com[2];
|
||||
com[0] = "-?";
|
||||
com[1] = 0;
|
||||
flag = opt_info.index;
|
||||
opt_info.index = 0;
|
||||
optget(com,options);
|
||||
opt_info.index = flag;
|
||||
if(!mode && strchr(options,' '))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
}
|
||||
opt_info.arg = 0;
|
||||
options = value;
|
||||
*options = '?';
|
||||
r=1;
|
||||
opt_info.offset = 0;
|
||||
break;
|
||||
default:
|
||||
options = opt_info.option + (*opt_info.option!='+');
|
||||
}
|
||||
if(r<0)
|
||||
r = 0;
|
||||
error_info.context->flags &= ~ERROR_SILENT;
|
||||
sh.st.optindex = opt_info.index;
|
||||
sh.st.optchar = opt_info.offset;
|
||||
nv_putval(np, options, 0);
|
||||
np = nv_open(nv_name(OPTARGNOD),sh.var_tree,0);
|
||||
if(opt_info.num == LONG_MIN)
|
||||
nv_putval(np, opt_info.arg, NV_RDONLY);
|
||||
else if (opt_info.arg && opt_info.num > 0 && isalpha((char)opt_info.num) && !isdigit(opt_info.arg[0]) && opt_info.arg[0] != '-' && opt_info.arg[0] != '+')
|
||||
{
|
||||
key[0] = (char)opt_info.num;
|
||||
key[1] = 0;
|
||||
nv_putval(np, key, NV_RDONLY);
|
||||
}
|
||||
else if(extended)
|
||||
{
|
||||
Sfdouble_t d;
|
||||
d = opt_info.number;
|
||||
nv_putval(np, (char*)&d, NV_LDOUBLE|NV_RDONLY);
|
||||
}
|
||||
else
|
||||
nv_putval(np, opt_info.arg, NV_RDONLY);
|
||||
sh_popcontext(&buff);
|
||||
opt_info.disc = 0;
|
||||
return(r);
|
||||
}
|
||||
322
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/hist.c
Normal file
322
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/hist.c
Normal file
@@ -0,0 +1,322 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
#include <stak.h>
|
||||
#include <ls.h>
|
||||
#include <error.h>
|
||||
#include "variables.h"
|
||||
#include "io.h"
|
||||
#include "name.h"
|
||||
#include "history.h"
|
||||
#include "builtins.h"
|
||||
#if SHOPT_HISTEXPAND
|
||||
# include "edit.h"
|
||||
#endif
|
||||
|
||||
#define HIST_RECURSE 5
|
||||
|
||||
static void hist_subst(const char*, int fd, char*);
|
||||
|
||||
#if 0
|
||||
/* for the benefit of the dictionary generator */
|
||||
int b_fc(int argc,char *argv[], Shbltin_t *context){}
|
||||
#endif
|
||||
int b_hist(int argc,char *argv[], Shbltin_t *context)
|
||||
{
|
||||
register History_t *hp;
|
||||
register char *arg;
|
||||
register int flag,fdo;
|
||||
Sfio_t *outfile;
|
||||
char *fname;
|
||||
int range[2], incr, index2, indx= -1;
|
||||
char *edit = 0; /* name of editor */
|
||||
char *replace = 0; /* replace old=new */
|
||||
int lflag = 0, nflag = 0, rflag = 0;
|
||||
#if SHOPT_HISTEXPAND
|
||||
int pflag = 0;
|
||||
#endif
|
||||
Histloc_t location;
|
||||
NOT_USED(argc);
|
||||
NOT_USED(context);
|
||||
if(!sh_histinit())
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_system(1),e_histopen);
|
||||
UNREACHABLE();
|
||||
}
|
||||
hp = sh.hist_ptr;
|
||||
while((flag = optget(argv,sh_opthist))) switch(flag)
|
||||
{
|
||||
case 'e':
|
||||
edit = opt_info.arg;
|
||||
break;
|
||||
case 'n':
|
||||
nflag++;
|
||||
break;
|
||||
case 'l':
|
||||
lflag = 1;
|
||||
break;
|
||||
case 'r':
|
||||
rflag++;
|
||||
break;
|
||||
case 's':
|
||||
edit = "-";
|
||||
break;
|
||||
#if SHOPT_HISTEXPAND
|
||||
case 'p':
|
||||
pflag++;
|
||||
break;
|
||||
#endif
|
||||
case 'N':
|
||||
if(indx<=0)
|
||||
{
|
||||
if((flag = hist_max(hp) - opt_info.num-1) < 0)
|
||||
flag = 1;
|
||||
range[++indx] = flag;
|
||||
break;
|
||||
}
|
||||
/* FALLTHROUGH */
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += (opt_info.index-1);
|
||||
#if SHOPT_HISTEXPAND
|
||||
if(pflag)
|
||||
{
|
||||
hist_cancel(hp);
|
||||
pflag = 0;
|
||||
while(arg=argv[1])
|
||||
{
|
||||
flag = hist_expand(arg,&replace);
|
||||
if(!(flag & HIST_ERROR))
|
||||
sfputr(sfstdout, replace, '\n');
|
||||
else
|
||||
pflag = 1;
|
||||
if(replace)
|
||||
free(replace);
|
||||
argv++;
|
||||
}
|
||||
return pflag;
|
||||
}
|
||||
#endif
|
||||
flag = indx;
|
||||
while(flag<1 && (arg=argv[1]))
|
||||
{
|
||||
/* look for old=new argument */
|
||||
if(!replace && strchr(arg+1,'='))
|
||||
{
|
||||
replace = arg;
|
||||
argv++;
|
||||
continue;
|
||||
}
|
||||
else if(isdigit(*arg) || *arg == '-')
|
||||
{
|
||||
/* see if completely numeric */
|
||||
do arg++;
|
||||
while(isdigit(*arg));
|
||||
if(*arg==0)
|
||||
{
|
||||
arg = argv[1];
|
||||
range[++flag] = (int)strtol(arg, (char**)0, 10);
|
||||
if(*arg == '-')
|
||||
range[flag] += (hist_max(hp)-1);
|
||||
argv++;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
/* search for last line starting with string */
|
||||
location = hist_find(hp,argv[1],hist_max(hp)-1,0,-1);
|
||||
if((range[++flag] = location.hist_command) < 0)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_found,argv[1]);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv++;
|
||||
}
|
||||
if(flag <0)
|
||||
{
|
||||
/* set default starting range */
|
||||
if(lflag)
|
||||
{
|
||||
flag = hist_max(hp)-16;
|
||||
if(flag<1)
|
||||
flag = 1;
|
||||
}
|
||||
else
|
||||
flag = hist_max(hp)-2;
|
||||
range[0] = flag;
|
||||
flag = 0;
|
||||
}
|
||||
index2 = hist_min(hp);
|
||||
if(range[0]<index2)
|
||||
range[0] = index2;
|
||||
if(flag==0)
|
||||
/* set default termination range */
|
||||
range[1] = ((lflag && !edit)?hist_max(hp)-1:range[0]);
|
||||
if(range[1]>=(flag=(hist_max(hp) - !lflag)))
|
||||
range[1] = flag;
|
||||
/* check for valid ranges */
|
||||
if(range[1]<index2 || range[0]>=flag)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_badrange,range[0],range[1]);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(edit && *edit=='-' && range[0]!=range[1])
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_eneedsarg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
/* now list commands from range[flag] to range[1-flag] */
|
||||
incr = 1;
|
||||
flag = rflag>0;
|
||||
if(range[1-flag] < range[flag])
|
||||
incr = -1;
|
||||
if(lflag)
|
||||
{
|
||||
outfile = sfstdout;
|
||||
arg = "\n\t";
|
||||
}
|
||||
else
|
||||
{
|
||||
if(!(fname=pathtmp(NIL(char*),0,0,NIL(int*))))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_create,"");
|
||||
UNREACHABLE();
|
||||
}
|
||||
if((fdo=open(fname,O_CREAT|O_RDWR,S_IRUSR|S_IWUSR)) < 0)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_system(1),e_create,fname);
|
||||
UNREACHABLE();
|
||||
}
|
||||
outfile= sfnew(NIL(Sfio_t*),sh.outbuff,IOBSIZE,fdo,SF_WRITE);
|
||||
arg = "\n";
|
||||
nflag++;
|
||||
}
|
||||
while(1)
|
||||
{
|
||||
if(nflag==0)
|
||||
sfprintf(outfile,"%d\t",range[flag]);
|
||||
else if(lflag)
|
||||
sfputc(outfile,'\t');
|
||||
hist_list(sh.hist_ptr,outfile,hist_tell(sh.hist_ptr,range[flag]),0,arg);
|
||||
if(lflag)
|
||||
sh_sigcheck();
|
||||
if(range[flag] == range[1-flag])
|
||||
break;
|
||||
range[flag] += incr;
|
||||
}
|
||||
if(lflag)
|
||||
return(0);
|
||||
sfclose(outfile);
|
||||
hist_eof(hp);
|
||||
arg = edit;
|
||||
if(!arg && !(arg=nv_getval(sh_scoped(HISTEDIT))) && !(arg=nv_getval(sh_scoped(FCEDNOD))))
|
||||
{
|
||||
arg = (char*)e_defedit;
|
||||
if(*arg!='/')
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),"ed not found set FCEDIT");
|
||||
UNREACHABLE();
|
||||
}
|
||||
}
|
||||
if(*arg != '-')
|
||||
{
|
||||
char *com[3];
|
||||
com[0] = arg;
|
||||
com[1] = fname;
|
||||
com[2] = 0;
|
||||
error_info.errors = sh_eval(sh_sfeval(com),0);
|
||||
}
|
||||
fdo = sh_chkopen(fname);
|
||||
unlink(fname);
|
||||
free((void*)fname);
|
||||
/* don't history fc itself unless forked */
|
||||
error_info.flags |= ERROR_SILENT;
|
||||
if(!sh_isstate(SH_FORKED))
|
||||
hist_cancel(hp);
|
||||
sh_onstate(SH_HISTORY);
|
||||
sh_onstate(SH_VERBOSE); /* echo lines as read */
|
||||
if(replace)
|
||||
{
|
||||
hist_subst(error_info.id,fdo,replace);
|
||||
sh_close(fdo);
|
||||
}
|
||||
else if(error_info.errors == 0)
|
||||
{
|
||||
char buff[IOBSIZE+1];
|
||||
Sfio_t *iop;
|
||||
/* read in and run the command */
|
||||
if(sh.hist_depth++ > HIST_RECURSE)
|
||||
{
|
||||
sh_close(fdo);
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_toodeep,"history");
|
||||
UNREACHABLE();
|
||||
}
|
||||
iop = sfnew(NIL(Sfio_t*),buff,IOBSIZE,fdo,SF_READ);
|
||||
sh_eval(iop,1); /* this will close fdo */
|
||||
sh.hist_depth--;
|
||||
}
|
||||
else
|
||||
{
|
||||
sh_close(fdo);
|
||||
if(!sh_isoption(SH_VERBOSE))
|
||||
sh_offstate(SH_VERBOSE);
|
||||
sh_offstate(SH_HISTORY);
|
||||
}
|
||||
return(sh.exitval);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* given a file containing a command and a string of the form old=new,
|
||||
* execute the command with the string old replaced by new
|
||||
*/
|
||||
static void hist_subst(const char *command,int fd,char *replace)
|
||||
{
|
||||
register char *newp=replace;
|
||||
register char *sp;
|
||||
register int c;
|
||||
off_t size;
|
||||
char *string;
|
||||
while(*++newp != '='); /* skip to '=' */
|
||||
if((size = lseek(fd,(off_t)0,SEEK_END)) < 0)
|
||||
return;
|
||||
lseek(fd,(off_t)0,SEEK_SET);
|
||||
c = (int)size;
|
||||
string = stakalloc(c+1);
|
||||
if(read(fd,string,c)!=c)
|
||||
return;
|
||||
string[c] = 0;
|
||||
*newp++ = 0;
|
||||
if((sp=sh_substitute(string,replace,newp))==0)
|
||||
{
|
||||
sh_close(fd);
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_subst,command);
|
||||
UNREACHABLE();
|
||||
}
|
||||
*(newp-1) = '=';
|
||||
sh_eval(sfopen(NIL(Sfio_t*),sp,"s"),1);
|
||||
}
|
||||
630
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/misc.c
Normal file
630
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/misc.c
Normal file
@@ -0,0 +1,630 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* bg [job...]
|
||||
* disown [job...]
|
||||
* exec [-c] [-a name] [command [arg ...]]
|
||||
* eval [arg...]
|
||||
* fg [job...]
|
||||
* jobs [-lnp] [job...]
|
||||
* let expr...
|
||||
* redirect [redirection...]
|
||||
* source file [arg...]
|
||||
* . file [arg...]
|
||||
* :, true, false
|
||||
* wait [job...]
|
||||
* shift [n]
|
||||
* times
|
||||
*
|
||||
* David Korn
|
||||
* AT&T Labs
|
||||
*
|
||||
*/
|
||||
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
#include "variables.h"
|
||||
#include "shnodes.h"
|
||||
#include "path.h"
|
||||
#include "io.h"
|
||||
#include "name.h"
|
||||
#include "history.h"
|
||||
#include "builtins.h"
|
||||
#include "jobs.h"
|
||||
|
||||
#include <math.h>
|
||||
#include "FEATURE/locale"
|
||||
#include "FEATURE/time"
|
||||
#if _lib_getrusage
|
||||
#include <sys/resource.h>
|
||||
#else
|
||||
#include <times.h>
|
||||
#endif
|
||||
|
||||
#define DOTMAX MAXDEPTH /* maximum level of . nesting */
|
||||
|
||||
/*
|
||||
* Handler function for nv_scan() that unsets a variable's export attribute
|
||||
*/
|
||||
static void noexport(register Namval_t* np, void *data)
|
||||
{
|
||||
NOT_USED(data);
|
||||
nv_offattr(np,NV_EXPORT);
|
||||
}
|
||||
|
||||
/*
|
||||
* 'exec' special builtin and 'redirect' builtin
|
||||
*/
|
||||
#if 0
|
||||
/* for the dictionary generator */
|
||||
int b_redirect(int argc,char *argv[],Shbltin_t *context){}
|
||||
#endif
|
||||
int b_exec(int argc,char *argv[], Shbltin_t *context)
|
||||
{
|
||||
register int n;
|
||||
struct checkpt *pp;
|
||||
const char *pname;
|
||||
int clear = 0;
|
||||
char *arg0 = 0;
|
||||
NOT_USED(argc);
|
||||
NOT_USED(context);
|
||||
sh.st.ioset = 0;
|
||||
while (n = optget(argv, *argv[0]=='r' ? sh_optredirect : sh_optexec)) switch (n)
|
||||
{
|
||||
case 'a':
|
||||
arg0 = opt_info.arg;
|
||||
break;
|
||||
case 'c':
|
||||
clear=1;
|
||||
break;
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(0), "%s", opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(*argv[0]=='r' && argv[opt_info.index]) /* 'redirect' supports no args */
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(2),"%s: %s",e_badsyntax,argv[opt_info.index]);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if(!*argv)
|
||||
return(0);
|
||||
|
||||
/* from here on, it's 'exec' with args, so we're replacing the shell */
|
||||
if(sh_isoption(SH_RESTRICTED))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_restricted,argv[0]);
|
||||
UNREACHABLE();
|
||||
}
|
||||
else
|
||||
{
|
||||
register struct argnod *arg=sh.envlist;
|
||||
register Namval_t* np;
|
||||
register char *cp;
|
||||
if(sh.subshell && !sh.subshare)
|
||||
sh_subfork();
|
||||
if(clear)
|
||||
nv_scan(sh.var_tree,noexport,0,NV_EXPORT,NV_EXPORT);
|
||||
while(arg)
|
||||
{
|
||||
if((cp=strchr(arg->argval,'=')) &&
|
||||
(*cp=0,np=nv_search(arg->argval,sh.var_tree,0)))
|
||||
{
|
||||
nv_onattr(np,NV_EXPORT);
|
||||
env_change();
|
||||
}
|
||||
if(cp)
|
||||
*cp = '=';
|
||||
arg=arg->argnxt.ap;
|
||||
}
|
||||
pname = argv[0];
|
||||
if(arg0)
|
||||
argv[0] = arg0;
|
||||
#ifdef JOBS
|
||||
if(job_close() < 0)
|
||||
return(1);
|
||||
#endif /* JOBS */
|
||||
/* if the main shell is about to be replaced, decrease SHLVL to cancel out a subsequent increase */
|
||||
if(!sh.realsubshell)
|
||||
(*SHLVL->nvalue.ip)--;
|
||||
/* force bad exec to terminate shell */
|
||||
pp = (struct checkpt*)sh.jmplist;
|
||||
pp->mode = SH_JMPEXIT;
|
||||
sh_sigreset(2);
|
||||
sh_freeup();
|
||||
path_exec(pname,argv,NIL(struct argnod*));
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
|
||||
int b_let(int argc,char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register int r;
|
||||
register char *arg;
|
||||
NOT_USED(argc);
|
||||
NOT_USED(context);
|
||||
while (r = optget(argv,sh_optlet)) switch (r)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if(error_info.errors || !*argv)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
while(arg= *argv++)
|
||||
r = !sh_arith(arg);
|
||||
return(r);
|
||||
}
|
||||
|
||||
int b_eval(int argc,char *argv[], Shbltin_t *context)
|
||||
{
|
||||
register int r;
|
||||
NOT_USED(argc);
|
||||
NOT_USED(context);
|
||||
while (r = optget(argv,sh_opteval)) switch (r)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(0), "%s",opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if(*argv && **argv)
|
||||
sh_eval(sh_sfeval(argv),0);
|
||||
return(sh.exitval);
|
||||
}
|
||||
|
||||
#if 0
|
||||
/* for the dictionary generator */
|
||||
int b_source(register int n,char *argv[],Shbltin_t *context){}
|
||||
#endif
|
||||
int b_dot_cmd(register int n,char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register char *script;
|
||||
register Namval_t *np;
|
||||
register int jmpval;
|
||||
struct sh_scoped savst, *prevscope = sh.st.self;
|
||||
char *filename=0, *buffer=0, *tofree;
|
||||
int fd;
|
||||
struct dolnod *saveargfor;
|
||||
volatile struct dolnod *argsave=0;
|
||||
struct checkpt buff;
|
||||
Sfio_t *iop=0;
|
||||
NOT_USED(context);
|
||||
while (n = optget(argv,sh_optdot)) switch (n)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(0), "%s",opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
argv += opt_info.index;
|
||||
script = *argv;
|
||||
if(error_info.errors || !script)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(sh.dot_depth >= DOTMAX)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_toodeep,script);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(!(np=sh.posix_fun))
|
||||
{
|
||||
/* check for KornShell style function first */
|
||||
np = nv_search(script,sh.fun_tree,0);
|
||||
if(np && is_afunction(np) && !nv_isattr(np,NV_FPOSIX) && !(sh_isoption(SH_POSIX) && sh.bltindata.bnode==SYSDOT))
|
||||
{
|
||||
if(!np->nvalue.ip)
|
||||
{
|
||||
path_search(script,NIL(Pathcomp_t**),0);
|
||||
if(np->nvalue.ip)
|
||||
{
|
||||
if(nv_isattr(np,NV_FPOSIX))
|
||||
np = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_found,script);
|
||||
UNREACHABLE();
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
np = 0;
|
||||
if(!np)
|
||||
{
|
||||
if((fd=path_open(script,path_get(script))) < 0)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_system(1),e_open,script);
|
||||
UNREACHABLE();
|
||||
}
|
||||
filename = path_fullname(stkptr(sh.stk,PATH_OFFSET));
|
||||
}
|
||||
}
|
||||
*prevscope = sh.st;
|
||||
sh.st.lineno = np?((struct functnod*)nv_funtree(np))->functline:1;
|
||||
sh.st.save_tree = sh.var_tree;
|
||||
if(filename)
|
||||
{
|
||||
sh.st.filename = filename;
|
||||
sh.st.lineno = 1;
|
||||
}
|
||||
sh.st.prevst = prevscope;
|
||||
sh.st.self = &savst;
|
||||
sh.topscope = (Shscope_t*)sh.st.self;
|
||||
prevscope->save_tree = sh.var_tree;
|
||||
tofree = sh.st.filename;
|
||||
if(np)
|
||||
sh.st.filename = np->nvalue.rp->fname;
|
||||
nv_putval(SH_PATHNAMENOD, sh.st.filename ,NV_NOFREE);
|
||||
sh.posix_fun = 0;
|
||||
if(np || argv[1])
|
||||
argsave = sh_argnew(argv,&saveargfor);
|
||||
sh_pushcontext(&buff,SH_JMPDOT);
|
||||
errorpush(&buff.err,0);
|
||||
error_info.id = argv[0];
|
||||
jmpval = sigsetjmp(buff.buff,0);
|
||||
if(jmpval == 0)
|
||||
{
|
||||
sh.dot_depth++;
|
||||
update_sh_level();
|
||||
if(np)
|
||||
sh_exec((Shnode_t*)(nv_funtree(np)),sh_isstate(SH_ERREXIT));
|
||||
else
|
||||
{
|
||||
buffer = sh_malloc(IOBSIZE+1);
|
||||
iop = sfnew(NIL(Sfio_t*),buffer,IOBSIZE,fd,SF_READ);
|
||||
sh_offstate(SH_NOFORK);
|
||||
sh_eval(iop,sh_isstate(SH_PROFILE)?SH_FUNEVAL:0);
|
||||
}
|
||||
}
|
||||
sh_popcontext(&buff);
|
||||
if(buffer)
|
||||
free(buffer);
|
||||
if(!np)
|
||||
free(tofree);
|
||||
sh.dot_depth--;
|
||||
update_sh_level();
|
||||
if((np || argv[1]) && jmpval!=SH_JMPSCRIPT)
|
||||
sh_argreset((struct dolnod*)argsave,saveargfor);
|
||||
else
|
||||
{
|
||||
prevscope->dolc = sh.st.dolc;
|
||||
prevscope->dolv = sh.st.dolv;
|
||||
}
|
||||
if (sh.st.self != &savst)
|
||||
*sh.st.self = sh.st;
|
||||
/* only restore the top Shscope_t portion for POSIX functions */
|
||||
memcpy((void*)&sh.st, (void*)prevscope, sizeof(Shscope_t));
|
||||
sh.topscope = (Shscope_t*)prevscope;
|
||||
nv_putval(SH_PATHNAMENOD, sh.st.filename ,NV_NOFREE);
|
||||
if(jmpval && jmpval!=SH_JMPFUN)
|
||||
siglongjmp(*sh.jmplist,jmpval);
|
||||
return(sh.exitval);
|
||||
}
|
||||
|
||||
/*
|
||||
* null, true command
|
||||
*/
|
||||
int b_true(int argc,register char *argv[],Shbltin_t *context)
|
||||
{
|
||||
NOT_USED(argc);
|
||||
NOT_USED(argv[0]);
|
||||
NOT_USED(context);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/*
|
||||
* false command
|
||||
*/
|
||||
int b_false(int argc,register char *argv[], Shbltin_t *context)
|
||||
{
|
||||
NOT_USED(argc);
|
||||
NOT_USED(argv[0]);
|
||||
NOT_USED(context);
|
||||
return(1);
|
||||
}
|
||||
|
||||
int b_shift(register int n, register char *argv[], Shbltin_t *context)
|
||||
{
|
||||
register char *arg;
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv,sh_optshift))) switch(n)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(0), "%s",opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
n = ((arg= *argv)?(int)sh_arith(arg):1);
|
||||
if(n < 0 || sh.st.dolc < n)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_number,arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
else
|
||||
{
|
||||
sh.st.dolv += n;
|
||||
sh.st.dolc -= n;
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
int b_wait(int n,register char *argv[],Shbltin_t *context)
|
||||
{
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv,sh_optwait))) switch(n)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s",opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
job_bwait(argv);
|
||||
return(sh.exitval);
|
||||
}
|
||||
|
||||
#ifdef JOBS
|
||||
# if 0
|
||||
/* for the dictionary generator */
|
||||
int b_fg(int n,char *argv[],Shbltin_t *context){}
|
||||
int b_disown(int n,char *argv[],Shbltin_t *context){}
|
||||
# endif
|
||||
int b_bg(register int n,register char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register int flag = **argv;
|
||||
register const char *optstr = sh_optbg;
|
||||
NOT_USED(context);
|
||||
if(*argv[0]=='f')
|
||||
optstr = sh_optfg;
|
||||
else if(*argv[0]=='d')
|
||||
optstr = sh_optdisown;
|
||||
while((n = optget(argv,optstr))) switch(n)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s",opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if(!sh_isstate(SH_MONITOR))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_no_jctl);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(flag=='d' && *argv==0)
|
||||
argv = (char**)0;
|
||||
if(job_walk(sfstdout,job_switch,flag,argv))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_no_job);
|
||||
UNREACHABLE();
|
||||
}
|
||||
return(sh.exitval);
|
||||
}
|
||||
|
||||
int b_jobs(register int n,char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register int flag = 0;
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv,sh_optjobs))) switch(n)
|
||||
{
|
||||
case 'l':
|
||||
flag = JOB_LFLAG;
|
||||
break;
|
||||
case 'n':
|
||||
flag = JOB_NFLAG;
|
||||
break;
|
||||
case 'p':
|
||||
flag = JOB_PFLAG;
|
||||
break;
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s",opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if(error_info.errors)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(*argv==0)
|
||||
argv = (char**)0;
|
||||
if(job_walk(sfstdout,job_list,flag,argv))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_no_job);
|
||||
UNREACHABLE();
|
||||
}
|
||||
job_wait((pid_t)0);
|
||||
return(sh.exitval);
|
||||
}
|
||||
#endif
|
||||
|
||||
/*
|
||||
* times command
|
||||
*/
|
||||
static void print_times(struct timeval utime, struct timeval stime)
|
||||
{
|
||||
int ut_min = utime.tv_sec / 60;
|
||||
int ut_sec = utime.tv_sec % 60;
|
||||
int ut_ms = utime.tv_usec / 1000;
|
||||
int st_min = stime.tv_sec / 60;
|
||||
int st_sec = stime.tv_sec % 60;
|
||||
int st_ms = stime.tv_usec / 1000;
|
||||
sfprintf(sfstdout, sh_isoption(SH_POSIX) ? "%dm%d%c%03ds %dm%d%c%03ds\n" : "%dm%02d%c%03ds %dm%02d%c%03ds\n",
|
||||
ut_min, ut_sec, sh.radixpoint, ut_ms, st_min, st_sec, sh.radixpoint, st_ms);
|
||||
}
|
||||
#if _lib_getrusage
|
||||
/* getrusage tends to have higher precision */
|
||||
static void print_cpu_times(void)
|
||||
{
|
||||
struct rusage usage;
|
||||
/* Print the time (user & system) consumed by the shell. */
|
||||
getrusage(RUSAGE_SELF, &usage);
|
||||
print_times(usage.ru_utime, usage.ru_stime);
|
||||
/* Print the time (user & system) consumed by the child processes of the shell. */
|
||||
getrusage(RUSAGE_CHILDREN, &usage);
|
||||
print_times(usage.ru_utime, usage.ru_stime);
|
||||
}
|
||||
#else /* _lib_getrusage */
|
||||
static void print_cpu_times(void)
|
||||
{
|
||||
struct timeval utime, stime;
|
||||
double dtime;
|
||||
int clk_tck = sh.lim.clk_tck;
|
||||
struct tms cpu_times;
|
||||
times(&cpu_times);
|
||||
/* Print the time (user & system) consumed by the shell. */
|
||||
dtime = (double)cpu_times.tms_utime / clk_tck;
|
||||
utime.tv_sec = dtime / 60;
|
||||
utime.tv_usec = 1000000 * (dtime - utime.tv_sec);
|
||||
dtime = (double)cpu_times.tms_stime / clk_tck;
|
||||
stime.tv_sec = dtime / 60;
|
||||
stime.tv_usec = 1000000 * (dtime - utime.tv_sec);
|
||||
print_times(utime, stime);
|
||||
/* Print the time (user & system) consumed by the child processes of the shell. */
|
||||
dtime = (double)cpu_times.tms_cutime / clk_tck;
|
||||
utime.tv_sec = dtime / 60;
|
||||
utime.tv_usec = 1000000 * (dtime - utime.tv_sec);
|
||||
dtime = (double)cpu_times.tms_cstime / clk_tck;
|
||||
stime.tv_sec = dtime / 60;
|
||||
stime.tv_usec = 1000000 * (dtime - utime.tv_sec);
|
||||
print_times(utime, stime);
|
||||
}
|
||||
#endif /* _lib_getrusage */
|
||||
int b_times(int argc, char *argv[], Shbltin_t *context)
|
||||
{
|
||||
NOT_USED(context);
|
||||
/* No options or operands are supported, except --man, etc. */
|
||||
if (argc = optget(argv, sh_opttimes)) switch (argc)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT, 2, "%s", opt_info.arg);
|
||||
errormsg(SH_DICT, ERROR_usage(2), "%s", optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
default:
|
||||
errormsg(SH_DICT, ERROR_usage(0), "%s", opt_info.arg);
|
||||
return(2);
|
||||
}
|
||||
if (argv[opt_info.index])
|
||||
{
|
||||
errormsg(SH_DICT, ERROR_exit(2), e_toomanyops);
|
||||
UNREACHABLE();
|
||||
}
|
||||
/* Get & print the times */
|
||||
print_cpu_times();
|
||||
return(0);
|
||||
}
|
||||
|
||||
#ifdef _cmd_universe
|
||||
/*
|
||||
* There are several universe styles that are masked by the getuniv(),
|
||||
* setuniv() calls.
|
||||
*/
|
||||
int b_universe(int argc, char *argv[],Shbltin_t *context)
|
||||
{
|
||||
register char *arg;
|
||||
register int n;
|
||||
NOT_USED(context);
|
||||
while((n = optget(argv,sh_optuniverse))) switch(n)
|
||||
{
|
||||
case ':':
|
||||
errormsg(SH_DICT,2, "%s", opt_info.arg);
|
||||
break;
|
||||
case '?':
|
||||
errormsg(SH_DICT,ERROR_usage(2), "%s",opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
argv += opt_info.index;
|
||||
argc -= opt_info.index;
|
||||
if(error_info.errors || argc>1)
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
|
||||
UNREACHABLE();
|
||||
}
|
||||
if(arg = argv[0])
|
||||
{
|
||||
if(!astconf("UNIVERSE",0,arg))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1), e_badname,arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if(!(arg=astconf("UNIVERSE",0,0)))
|
||||
{
|
||||
errormsg(SH_DICT,ERROR_exit(1),e_nouniverse);
|
||||
UNREACHABLE();
|
||||
}
|
||||
else
|
||||
sfputr(sfstdout,arg,'\n');
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
#endif /* cmd_universe */
|
||||
499
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/mkservice.c
Normal file
499
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/mkservice.c
Normal file
@@ -0,0 +1,499 @@
|
||||
/***********************************************************************
|
||||
* *
|
||||
* This software is part of the ast package *
|
||||
* Copyright (c) 1982-2012 AT&T Intellectual Property *
|
||||
* Copyright (c) 2020-2022 Contributors to ksh 93u+m *
|
||||
* and is licensed under the *
|
||||
* Eclipse Public License, Version 2.0 *
|
||||
* *
|
||||
* A copy of the License is available at *
|
||||
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html *
|
||||
* (with md5 checksum 84283fa8859daf213bdda5a9f8d1be1d) *
|
||||
* *
|
||||
* David Korn <dgk@research.att.com> *
|
||||
* Martijn Dekker <martijn@inlv.org> *
|
||||
* *
|
||||
***********************************************************************/
|
||||
/*
|
||||
* mkservice varname pathname
|
||||
* eloop [-t timeout]
|
||||
* Written by David Korn
|
||||
* AT&T Labs
|
||||
*/
|
||||
|
||||
#include "shopt.h"
|
||||
#include "defs.h"
|
||||
|
||||
#if !SHOPT_MKSERVICE
|
||||
NoN(mkservice)
|
||||
#else
|
||||
|
||||
static const char mkservice_usage[] =
|
||||
"[-?\n@(#)$Id: mkservice (AT&T Research) 2001-06-13 $\n]"
|
||||
"[--catalog?" SH_DICT "]"
|
||||
"[+NAME? mkservice - create a shell server ]"
|
||||
"[+DESCRIPTION?\bmkservice\b creates a tcp or udp server that is "
|
||||
"implemented by shell functions.]"
|
||||
"[+?The \aservice_path\a must be of the form \b/dev/tcp/localhost/\b\aportno\a "
|
||||
"or \b/dev/udp/localhost/\b\aportno\a depending on whether the "
|
||||
"\btcp\b or \budp\b protocol is used. \aportno\a is the port "
|
||||
"number that the service will use.]"
|
||||
"[+?The shell variable \avarname\a is associated with the service. This "
|
||||
"variable can have subvariables that keeps the state of all "
|
||||
"active connections. The functions \avarname\a\b.accept\b, "
|
||||
"\avarname\a\b.action\b and \avarname\a\b.close\b implement the "
|
||||
"service as follows:]{"
|
||||
"[+accept?This function is invoked when a client tries to connect "
|
||||
"to the service. It is called with an argument which "
|
||||
"is the file descriptor number associated with the "
|
||||
"accepted connection. If the function returns a non-zero "
|
||||
"value, this connection will be closed.]"
|
||||
"[+action?This function is invoked when there is data waiting "
|
||||
"to be read from one of the active connections. It is "
|
||||
"called with the file descriptor number that has data "
|
||||
"to be read. If the function returns a non-zero "
|
||||
"value, this connection will be closed.]"
|
||||
"[+close?This function is invoked when the connection is closed.]"
|
||||
"}"
|
||||
"[+?If \avarname\a is unset, then all active connection, and the service "
|
||||
"itself will be closed.]"
|
||||
""
|
||||
"\n"
|
||||
"\nvarname service_path\n"
|
||||
"\n"
|
||||
"[+EXIT STATUS?]{"
|
||||
"[+0?Success.]"
|
||||
"[+>0?An error occurred.]"
|
||||
"}"
|
||||
"[+SEE ALSO?\beloop\b(1)]"
|
||||
;
|
||||
|
||||
|
||||
static const char eloop_usage[] =
|
||||
"[-?\n@(#)$Id: eloop (AT&T Research) 2001-06-13 $\n]"
|
||||
"[--catalog?" SH_DICT "]"
|
||||
"[+NAME? eloop - process event loop]"
|
||||
"[+DESCRIPTION?\beloop\b causes the shell to block waiting for events "
|
||||
"to process. By default, \beloop\b does not return.]"
|
||||
"[t]#[timeout?\atimeout\a is the number of milliseconds to wait "
|
||||
"without receiving any events to process.]"
|
||||
"\n"
|
||||
"\n\n"
|
||||
"\n"
|
||||
"[+EXIT STATUS?If no timeout is specified, \beloop\b will not return "
|
||||
"unless interrupted. Otherwise]{"
|
||||
"[+0?The specified timeout interval occurred.]"
|
||||
"[+>0?An error occurred.]"
|
||||
"}"
|
||||
"[+SEE ALSO?\bmkservice\b(1)]"
|
||||
;
|
||||
|
||||
|
||||
#include <cmd.h>
|
||||
#include <error.h>
|
||||
#include <nval.h>
|
||||
#include <sys/socket.h>
|
||||
#include <netinet/in.h>
|
||||
|
||||
#define ACCEPT 0
|
||||
#define ACTION 1
|
||||
#define CLOSE 2
|
||||
|
||||
#ifndef O_SERVICE
|
||||
# define O_SERVICE O_NOCTTY
|
||||
#endif
|
||||
|
||||
static const char* disctab[] =
|
||||
{
|
||||
"accept",
|
||||
"action",
|
||||
"close",
|
||||
0
|
||||
};
|
||||
|
||||
typedef struct Service_s Service_t;
|
||||
|
||||
struct Service_s
|
||||
{
|
||||
Namfun_t fun;
|
||||
int fd;
|
||||
int refcount;
|
||||
int (*acceptf)(Service_t*,int);
|
||||
int (*actionf)(Service_t*,int,int);
|
||||
int (*errorf)(Service_t*,int,const char*, ...);
|
||||
void *context;
|
||||
Namval_t* node;
|
||||
Namval_t* disc[elementsof(disctab)-1];
|
||||
};
|
||||
|
||||
static int *file_list;
|
||||
static Sfio_t **poll_list;
|
||||
static Service_t **service_list;
|
||||
static int npoll;
|
||||
static int nready;
|
||||
static int ready;
|
||||
static int (*covered_fdnotify)(int, int);
|
||||
|
||||
static int fdclose(Service_t *sp, register int fd)
|
||||
{
|
||||
register int i;
|
||||
service_list[fd] = 0;
|
||||
if(sp->fd==fd)
|
||||
sp->fd = -1;
|
||||
for(i=0; i < npoll; i++)
|
||||
{
|
||||
if(file_list[i]==fd)
|
||||
{
|
||||
file_list[i] = file_list[npoll--];
|
||||
if(sp->actionf)
|
||||
(*sp->actionf)(sp, fd, 1);
|
||||
return(1);
|
||||
}
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
static int fdnotify(int fd1, int fd2)
|
||||
{
|
||||
Service_t *sp;
|
||||
if (covered_fdnotify)
|
||||
(*covered_fdnotify)(fd1, fd2);
|
||||
if(fd2!=SH_FDCLOSE)
|
||||
{
|
||||
register int i;
|
||||
service_list[fd2] = service_list[fd1];
|
||||
service_list[fd1] = 0;
|
||||
for(i=0; i < npoll; i++)
|
||||
{
|
||||
if(file_list[i]==fd1)
|
||||
{
|
||||
file_list[i] = fd2;
|
||||
return(0);
|
||||
}
|
||||
}
|
||||
}
|
||||
else if(sp = service_list[fd1])
|
||||
{
|
||||
fdclose(sp,fd1);
|
||||
if(--sp->refcount==0)
|
||||
nv_unset(sp->node);
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
static void process_stream(Sfio_t* iop)
|
||||
{
|
||||
int r=0, fd = sffileno(iop);
|
||||
Service_t * sp = service_list[fd];
|
||||
if(fd==sp->fd) /* connection socket */
|
||||
{
|
||||
struct sockaddr addr;
|
||||
socklen_t addrlen = sizeof(addr);
|
||||
fd = accept(fd, &addr, &addrlen);
|
||||
service_list[fd] = sp;
|
||||
sp->refcount++;
|
||||
file_list[npoll++] = fd;
|
||||
if(fd>=0)
|
||||
{
|
||||
if(sp->acceptf)
|
||||
r = (*sp->acceptf)(sp,fd);
|
||||
}
|
||||
}
|
||||
else if(sp->actionf)
|
||||
{
|
||||
service_list[fd] = 0;
|
||||
r = (*sp->actionf)(sp, fd, 0);
|
||||
service_list[fd] = sp;
|
||||
if(r<0)
|
||||
close(fd);
|
||||
}
|
||||
}
|
||||
|
||||
static int waitnotify(int fd, long timeout, int rw)
|
||||
{
|
||||
Sfio_t *special=0, **pstream;
|
||||
register int i;
|
||||
|
||||
if (fd >= 0)
|
||||
special = sh_fd2sfio(fd);
|
||||
while(1)
|
||||
{
|
||||
pstream = poll_list;
|
||||
while(ready < nready)
|
||||
process_stream(pstream[ready++]);
|
||||
if(special)
|
||||
*pstream++ = special;
|
||||
for(i=0; i < npoll; i++)
|
||||
{
|
||||
if(service_list[file_list[i]])
|
||||
*pstream++ = sh_fd2sfio(file_list[i]);
|
||||
}
|
||||
for(i=0; i < pstream-poll_list; i++)
|
||||
sfset(poll_list[i],SF_WRITE,0);
|
||||
nready = ready = 0;
|
||||
errno = 0;
|
||||
#ifdef DEBUG
|
||||
sfprintf(sfstderr,"before poll npoll=%d",pstream-poll_list);
|
||||
for(i=0; i < pstream-poll_list; i++)
|
||||
sfprintf(sfstderr," %d",sffileno(poll_list[i]));
|
||||
sfputc(sfstderr,'\n');
|
||||
#endif
|
||||
nready = sfpoll(poll_list,pstream-poll_list,timeout);
|
||||
#ifdef DEBUG
|
||||
sfprintf(sfstderr,"after poll nready=%d",nready);
|
||||
for(i=0; i < nready; i++)
|
||||
sfprintf(sfstderr," %d",sffileno(poll_list[i]));
|
||||
sfputc(sfstderr,'\n');
|
||||
#endif
|
||||
for(i=0; i < pstream-poll_list; i++)
|
||||
sfset(poll_list[i],SF_WRITE,1);
|
||||
if(nready<=0)
|
||||
return(errno? -1: 0);
|
||||
if(special && poll_list[0]==special)
|
||||
{
|
||||
ready = 1;
|
||||
return(fd);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static int service_init(void)
|
||||
{
|
||||
int n = 20;
|
||||
file_list = (int*)sh_newof(NULL,short,n,0);
|
||||
poll_list = sh_newof(NULL,Sfio_t*,n,0);
|
||||
service_list = sh_newof(NULL,Service_t*,n,0);
|
||||
covered_fdnotify = sh_fdnotify(fdnotify);
|
||||
sh_waitnotify(waitnotify);
|
||||
return(1);
|
||||
}
|
||||
|
||||
void service_add(Service_t *sp)
|
||||
{
|
||||
static int init;
|
||||
if (!init)
|
||||
init = service_init();
|
||||
service_list[sp->fd] = sp;
|
||||
file_list[npoll++] = sp->fd;
|
||||
}
|
||||
|
||||
static int Accept(register Service_t *sp, int accept_fd)
|
||||
{
|
||||
register Namval_t* nq = sp->disc[ACCEPT];
|
||||
int fd;
|
||||
|
||||
fd = fcntl(accept_fd, F_DUPFD, 10);
|
||||
if (fd >= 0)
|
||||
{
|
||||
close(accept_fd);
|
||||
if (nq)
|
||||
{
|
||||
char* av[3];
|
||||
char buff[20];
|
||||
|
||||
av[1] = buff;
|
||||
av[2] = 0;
|
||||
sfsprintf(buff, sizeof(buff), "%d", fd);
|
||||
if (sh_fun(nq, sp->node, av))
|
||||
{
|
||||
close(fd);
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
}
|
||||
sfsync(NiL);
|
||||
return fd;
|
||||
}
|
||||
|
||||
static int Action(Service_t *sp, int fd, int close)
|
||||
{
|
||||
register Namval_t* nq;
|
||||
int r=0;
|
||||
|
||||
if(close)
|
||||
nq = sp->disc[CLOSE];
|
||||
else
|
||||
nq = sp->disc[ACTION];
|
||||
if (nq)
|
||||
{
|
||||
char* av[3];
|
||||
char buff[20];
|
||||
|
||||
av[1] = buff;
|
||||
av[2] = 0;
|
||||
sfsprintf(buff, sizeof(buff), "%d", fd);
|
||||
r=sh_fun(nq, sp->node, av);
|
||||
}
|
||||
sfsync(NiL);
|
||||
return r > 0 ? -1 : 1;
|
||||
}
|
||||
|
||||
static int Error(Service_t *sp, int level, const char* arg, ...)
|
||||
{
|
||||
va_list ap;
|
||||
|
||||
va_start(ap, arg);
|
||||
if(sp->node)
|
||||
nv_unset(sp->node);
|
||||
free((void*)sp);
|
||||
errorv(NiL, ERROR_exit(1), ap);
|
||||
va_end(ap);
|
||||
return 0;
|
||||
}
|
||||
|
||||
static char* setdisc(Namval_t* np, const char* event, Namval_t* action, Namfun_t* fp)
|
||||
{
|
||||
register Service_t* sp = (Service_t*)fp;
|
||||
register const char* cp;
|
||||
register int i;
|
||||
register int n = strlen(event) - 1;
|
||||
register Namval_t* nq;
|
||||
|
||||
for (i = 0; cp = disctab[i]; i++)
|
||||
{
|
||||
if (strncmp(event, cp, n))
|
||||
continue;
|
||||
if (action == np)
|
||||
action = sp->disc[i];
|
||||
else
|
||||
{
|
||||
if (nq = sp->disc[i])
|
||||
free((void*)nq);
|
||||
if (action)
|
||||
sp->disc[i] = action;
|
||||
else
|
||||
sp->disc[i] = 0;
|
||||
}
|
||||
return action ? (char*)action : "";
|
||||
}
|
||||
/* try the next level */
|
||||
return nv_setdisc(np, event, action, fp);
|
||||
}
|
||||
|
||||
static void putval(Namval_t* np, const char* val, int flag, Namfun_t* fp)
|
||||
{
|
||||
register Service_t* sp = (Service_t*)fp;
|
||||
if (!val)
|
||||
fp = nv_stack(np, NiL);
|
||||
nv_putv(np, val, flag, fp);
|
||||
if (!val)
|
||||
{
|
||||
register int i;
|
||||
for(i=0; i< sh.lim.open_max; i++)
|
||||
{
|
||||
if(service_list[i]==sp)
|
||||
{
|
||||
close(i);
|
||||
if(--sp->refcount<=0)
|
||||
break;
|
||||
}
|
||||
}
|
||||
free((void*)fp);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
static const Namdisc_t servdisc =
|
||||
{
|
||||
sizeof(Service_t),
|
||||
putval,
|
||||
0,
|
||||
0,
|
||||
setdisc
|
||||
};
|
||||
|
||||
int b_mkservice(int argc, char** argv, Shbltin_t *context)
|
||||
{
|
||||
register char* var;
|
||||
register char* path;
|
||||
register Namval_t* np;
|
||||
register Service_t* sp;
|
||||
register int fd;
|
||||
|
||||
NOT_USED(argc);
|
||||
for (;;)
|
||||
{
|
||||
switch (optget(argv, mkservice_usage))
|
||||
{
|
||||
case 0:
|
||||
break;
|
||||
case ':':
|
||||
error(2, opt_info.arg);
|
||||
continue;
|
||||
case '?':
|
||||
error(ERROR_usage(2), opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
break;
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if (error_info.errors || !(var = *argv++) || !(path = *argv++) || *argv)
|
||||
{
|
||||
error(ERROR_usage(2), optusage(NiL));
|
||||
UNREACHABLE();
|
||||
}
|
||||
sp = sh_newof(0, Service_t, 1, 0);
|
||||
sp->acceptf = Accept;
|
||||
sp->actionf = Action;
|
||||
sp->errorf = Error;
|
||||
sp->refcount = 1;
|
||||
sp->context = context;
|
||||
sp->node = 0;
|
||||
sp->fun.disc = &servdisc;
|
||||
if((fd = sh_open(path, O_SERVICE|O_RDWR))<=0)
|
||||
{
|
||||
free((void*)sp);
|
||||
error(ERROR_exit(1), "%s: cannot start service", path);
|
||||
UNREACHABLE();
|
||||
}
|
||||
if((sp->fd = fcntl(fd, F_DUPFD, 10))>=10)
|
||||
close(fd);
|
||||
else
|
||||
sp->fd = fd;
|
||||
np = nv_open(var,sh.var_tree,NV_ARRAY|NV_VARNAME);
|
||||
sp->node = np;
|
||||
nv_putval(np, path, 0);
|
||||
nv_stack(np, (Namfun_t*)sp);
|
||||
service_add(sp);
|
||||
return(0);
|
||||
}
|
||||
|
||||
int b_eloop(int argc, char** argv, Shbltin_t *context)
|
||||
{
|
||||
register long timeout = -1;
|
||||
NOT_USED(argc);
|
||||
NOT_USED(context);
|
||||
for (;;)
|
||||
{
|
||||
switch (optget(argv, eloop_usage))
|
||||
{
|
||||
case 0:
|
||||
break;
|
||||
case 't':
|
||||
timeout = opt_info.num;
|
||||
continue;
|
||||
case ':':
|
||||
error(2, opt_info.arg);
|
||||
continue;
|
||||
case '?':
|
||||
error(ERROR_usage(2), opt_info.arg);
|
||||
UNREACHABLE();
|
||||
}
|
||||
break;
|
||||
}
|
||||
argv += opt_info.index;
|
||||
if (error_info.errors || *argv)
|
||||
{
|
||||
error(ERROR_usage(2), optusage(NiL));
|
||||
UNREACHABLE();
|
||||
}
|
||||
while(1)
|
||||
{
|
||||
if(waitnotify(-1, timeout, 0)==0)
|
||||
break;
|
||||
sfprintf(sfstderr,"interrupted\n");
|
||||
}
|
||||
return(errno != 0);
|
||||
}
|
||||
|
||||
#endif /* SHOPT_MKSERVICE */
|
||||
1138
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/print.c
Normal file
1138
cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/print.c
Normal file
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user