mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-15 04:32:24 +00:00
814b5c6890
These are minor fixes I've accumulated over time. The following
changes are somewhat notable:
- Added a missing entry for 'typeset -s' to the man page.
- Add strftime(3) to the 'see also' section. This and the date(1)
addition are meant to add onto the documentation for 'printf %T'.
- Removed the man page the entry for ksh reading $PWD/.profile on
login. That feature was removed in commit aa7713c2.
- Added date(1) to the 'see also' section of the man page.
- Note that the 'hash' command can be used instead of 'alias -t' to
workaround one of the caveats listed in the man page.
- Use an 'out of memory' error message rather than 'out of space'
when memory allocation fails.
- Replaced backticks with quotes in some places for consistency.
- Added missing documentation for the %P date format.
- Added missing documentation for the printf %Q and %p formats
(backported from ksh2020: https://github.com/att/ast/pull/1032).
- The comments that show each builtin's options have been updated.
307 lines
5.2 KiB
Text
Executable file
307 lines
5.2 KiB
Text
Executable file
:
|
|
#
|
|
# Glenn Fowler
|
|
# AT&T Bell Laboratories
|
|
#
|
|
# make abstract machine executor with state
|
|
#
|
|
# @(#)mamexec (gsf@research.att.com) 07/17/94
|
|
#
|
|
# mamexec [ -dfins ] [ target ... ] < mamfile
|
|
#
|
|
# NOTE: variables defined in this script may conflict with
|
|
# mamfile variables
|
|
#
|
|
|
|
_command_=mamexec
|
|
_debug_=:
|
|
_diff_=.
|
|
_error_='exit 1'
|
|
_exec_=eval
|
|
_force_=
|
|
_list_=
|
|
_same_=.
|
|
_set_=
|
|
_silent_=
|
|
_state_list_=MAMlist
|
|
_state_time_=MAMtime
|
|
_tmp_=/tmp/mam.$$.mam
|
|
|
|
trap 'rm -f $_tmp_' 0
|
|
trap 'exit 2' 1 2
|
|
while :
|
|
do case $# in
|
|
0) break ;;
|
|
esac
|
|
case $1 in
|
|
--) shift
|
|
break
|
|
;;
|
|
-*) case $1 in
|
|
-*[abceghjklmopqrtuvwxyz_A-Z0-9]*) # [!...] not portable
|
|
echo "Usage: $_command_ [ -dfins ] [ target ... ] < mamfile" >&2; exit 2
|
|
;;
|
|
*) case $1 in
|
|
*d*) _debug_="eval echo $_command_: debug: >&2" ;;
|
|
esac
|
|
case $1 in
|
|
*f*) _force_=1 ;;
|
|
esac
|
|
case $1 in
|
|
*i*) _error_=: ;;
|
|
esac
|
|
case $1 in
|
|
*n*) _exec_=echo ;;
|
|
esac
|
|
case $1 in
|
|
*s*) _silent_=1 ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
*) break
|
|
;;
|
|
esac
|
|
shift
|
|
done
|
|
_select_=
|
|
while :
|
|
do case $# in
|
|
0) break ;;
|
|
esac
|
|
case $1 in
|
|
*=*) eval $1
|
|
;;
|
|
*) case $_select_ in
|
|
"") _select_=$1 ;;
|
|
*) _select_="$_select_|$1" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
shift
|
|
done
|
|
case $_select_ in
|
|
"") _select_="*" ;;
|
|
esac
|
|
(set -e; false || true) && _set_=e || echo $_command_: command errors ignored because of shell botch >&2
|
|
case $_silent_ in
|
|
"") _set_=x$_set_
|
|
;;
|
|
*) case $_exec_ in
|
|
"echo") _exec_=: ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case $_exec_ in
|
|
"eval") _begin_="("
|
|
_end_=") </dev/null"
|
|
case $_set_ in
|
|
?*) _set_="set -$_set_;" ;;
|
|
esac
|
|
;;
|
|
*) _set_=
|
|
;;
|
|
esac
|
|
|
|
if test -f $_state_list_ -a -f $_state_time_
|
|
then mamstate $_state_list_ < $_state_list_ | sort > $_tmp_
|
|
for _i_ in `comm -12 $_state_time_ $_tmp_ | sed 's/ .*//'`
|
|
do case $_same_ in
|
|
.) _same_=$_i_ ;;
|
|
*) _same_="$_same_|$_i_" ;;
|
|
esac
|
|
done
|
|
fi
|
|
|
|
_index_=_
|
|
_match_=
|
|
case `(echo ok | (read -r a; echo $a) 2>/dev/null)` in
|
|
ok) _read_='read -r'
|
|
;;
|
|
*) # read strips \ -- thanks a lot
|
|
# tmp file avoids char at a time read
|
|
_read_=read
|
|
sed 's/\\/\\\\/g' > $_tmp_
|
|
exec < $_tmp_
|
|
rm -f $_tmp_
|
|
;;
|
|
esac
|
|
_old_=1
|
|
_ifs_=$IFS
|
|
while IFS=' '; $_read_ _op_ _arg_ _val_
|
|
do IFS=$_ifs_
|
|
case $_op_ in
|
|
"note") continue
|
|
;;
|
|
"info") case $_arg_ in
|
|
"mam") _old_= ;;
|
|
esac
|
|
continue
|
|
;;
|
|
"setv") eval _data_='$'$_arg_
|
|
case $_index_:$_data_ in
|
|
__*:*|*:)
|
|
case $_exec_ in
|
|
"eval") ;;
|
|
*) echo "$_arg_=$_val_" ;;
|
|
esac
|
|
eval $_arg_="$_val_" "</dev/null"
|
|
;;
|
|
esac
|
|
case $_arg_:$mam_cc_L in
|
|
"CC:") (
|
|
set -
|
|
mkdir /tmp/mam$$
|
|
cd /tmp/mam$$
|
|
echo 'main(){return 0;}' > main.c
|
|
code=1
|
|
if $CC -c main.c 2>/dev/null
|
|
then if $CC -L. main.o -lc 2>/dev/null
|
|
then $CC -L. main.o -lc > libc.a 2>/dev/null || code=0
|
|
fi
|
|
fi
|
|
cd /tmp
|
|
rm -rf /tmp/mam$$
|
|
exit $code
|
|
) </dev/null && mam_cc_L=' '
|
|
;;
|
|
esac
|
|
continue
|
|
;;
|
|
"make") eval _name_$_index_=$_name_
|
|
eval _prev_$_index_=$_prev_
|
|
eval _cmds_$_index_='"$_cmds_"'
|
|
eval _attr_$_index_=$_attr_
|
|
eval _name_=$_arg_
|
|
_prev_=$_index_
|
|
case " $_val_ " in
|
|
*" metarule "*) _attr_=m$_attr_ ;;
|
|
esac
|
|
_cmds_=
|
|
eval " case \"$_name_\" in
|
|
$_select_)
|
|
case \"$_select_\" in
|
|
\"*\") _select_=$_name_ ;;
|
|
esac
|
|
_match_=1
|
|
_attr_=x$_attr_
|
|
;;
|
|
esac"
|
|
case $_force_ in
|
|
"") eval " case \"$_name_\" in
|
|
$_diff_)_attr_=u$_attr_ ;;
|
|
$_same_);;
|
|
*) _attr_=u$_attr_ ;;
|
|
esac"
|
|
;;
|
|
*) _attr_=u$_attr_
|
|
;;
|
|
esac
|
|
case $_attr_ in
|
|
*u*) case $_diff_ in
|
|
.) _diff_=$_name_ ;;
|
|
*) _diff_="$_diff_|$_name_" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
_index_=_$_index_
|
|
eval _name_$_index_=$_name_
|
|
eval _prev_$_index_=$_prev_
|
|
eval _cmds_$_index_=$_cmds_
|
|
eval _attr_$_index_=$_attr_
|
|
eval _list_='"'"$_list_"'
|
|
'$_name_'"'
|
|
continue
|
|
;;
|
|
"prev") case $_force_ in
|
|
"") eval " case \"$_arg_\" in
|
|
$_diff_)_attr_=u$_attr_ ;;
|
|
$_same_) ;;
|
|
*) _attr_=u$_attr_ ;;
|
|
esac"
|
|
;;
|
|
*) _attr_=u$_attr_
|
|
;;
|
|
esac
|
|
continue
|
|
;;
|
|
esac
|
|
case $_index_ in
|
|
_) echo $_op_: missing make op >&2; continue ;;
|
|
esac
|
|
case $_op_ in
|
|
"attr") case $_val_ in
|
|
"meta"|"suff") _attr_=m$_attr_ ;;
|
|
esac
|
|
;;
|
|
"exec"|"....")
|
|
case $_old_ in
|
|
"") _arg_=$_val_
|
|
;;
|
|
*) case $_val_ in
|
|
?*) _arg_="$_arg_ $_val_" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case $_cmds_ in
|
|
"") _cmds_=$_arg_
|
|
;;
|
|
*) _cmds_="$_cmds_
|
|
$_arg_"
|
|
;;
|
|
esac
|
|
;;
|
|
"done") eval _arg_=$_arg_
|
|
_prop_=
|
|
case $_arg_ in
|
|
$_name_)case $_attr_ in
|
|
*m*) ;;
|
|
*x*u*|*u*x*)
|
|
case $_cmds_ in
|
|
"") case $_attr_ in
|
|
*u*) _prop_=u ;;
|
|
esac
|
|
;;
|
|
*) $_exec_ "$_begin_$_set_$_cmds_$_end_" ||
|
|
{
|
|
_code_=$?
|
|
case $_set_ in
|
|
*-*e*) ;;
|
|
*) case $_cmds_ in
|
|
*if*then*fi*|"||") _code_=0 ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case $_code_ in
|
|
0) ;;
|
|
*) echo "*** exit code $_code_ making $_name_" >&2
|
|
$_error_
|
|
;;
|
|
esac
|
|
}
|
|
_prop_=u
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
_index_=$_prev_
|
|
eval _name_='$'_name_$_index_
|
|
eval _prev_='$'_prev_$_index_
|
|
eval _cmds_='$'_cmds_$_index_
|
|
eval _attr_=$_prop_'$'_attr_$_index_
|
|
;;
|
|
*) echo $_val_: $_op_ $_name_ expected >&2
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
IFS=$_ifs_
|
|
case $_match_ in
|
|
"") echo "$_command_: don't know how to make $_select_" >&2; $_error_ ;;
|
|
esac
|
|
case $_exec_ in
|
|
"eval") echo "$_list_" > $_state_list_
|
|
mamstate $_state_list_ < $_state_list_ | sort > $_state_time_
|
|
;;
|
|
esac
|