2d0611ffc9f91c5fc2ddccb93f9a3d17791ae650takashi:

2d0611ffc9f91c5fc2ddccb93f9a3d17791ae650takashi#

3e4bc252a7bd65ed789cbe305c257dfb7abf7cdcjerenkrantz# Glenn Fowler

3e4bc252a7bd65ed789cbe305c257dfb7abf7cdcjerenkrantz# AT&T Bell Laboratories

3e4bc252a7bd65ed789cbe305c257dfb7abf7cdcjerenkrantz#

# make abstract machine executor with state

#

# @(#)mamexec (gsf@research.att.com) 07/17/94

#

# mamexec [ -dfins ] [ target ... ] < mam-file

#

# NOTE: variables defined in this script may conflict with

# mam-file 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 ... ] < mam-file" >&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