for i in $DISABLE_LANG
do
	ed - $CONFIG/Action <<EOF
/^name "$i/;/^end/s/^/!/
w
q
EOF
	case $i in
	Modula-2)
		ed - $CONFIG/Action <<EOF
/^name "$i definition/;/^end/s/^/!/
/^name "$i makefile/;/^end/s/^/!/
w
q
EOF
		;;
	ANSI-C)	: install compiler anyway
		ed - $CONFIG/Action <<EOF
/^!name "$i frontend/;/^!end/s/^!//
w
q
EOF
		;;
	C)	: install compiler anyway
		ed - $CONFIG/Action <<EOF
/^!name "$i frontend/;/^!end/s/^!//
w
q
EOF
		;;
	esac
done
for i in Modula-2 Pascal Basic Occam ANSI-C C Fortran
do
	if [ $DO_MACHINE_INDEP = n ]
	then
		continue
	fi
	for j in $DISABLE_LANG
	do
		case $i in
		$j)	i=X
			break
			;;
		esac
	done
	case $i in
	X)	continue
		;;
	Modula-2)
		lib=libm2
		;;
	Pascal)
		lib=libpc
		;;
	Basic)
		lib=libbc
		;;
	Occam)
		lib=liboc
		;;
	ANSI-C)
		lib=libcc.ansi
		;;
	C)
		lib=libcc
		;;
	Fortran)
		lib=libf77
		;;
	esac
	( cd $CONFIG/mach
	  for j in $MACH_LIST
	  do
		case $j in
		6800|6805|6809|s2650)	continue
					;;
		esac
		: do not install fortran for 2-byte integer machines
		case $i in
		Fortran)	case $j in
				em2*|i8*|m68k2|minix*|pdp|pmds|xenix3|z80*)
					continue
					;;
				esac
				;;
		esac
	    	( cd $j
	      	  cat >> Action <<EOF
name "$j $i libraries"
dir $lib
end
EOF
	        )
	  done
	)
done
DISABLE_INT=0
for i in $DISABLE_SUP
do
	ed - $CONFIG/Action <<EOF
/^dir .*$i\$/;?^name?;/^end/s/^/!/
w
q
EOF
	case $i in
	m68k2|m68k4)
		DISABLE_INT=1
		;;
	mantra)
		if test $SYSNAME = m68_sysV_0
		then
			DISABLE_INT=1
		fi
		;;
	sun2)
		case $SYSNAME in
		sun2|sun3)
			DISABLE_INT=1
			;;
		esac
		;;
	pmds4)
		case $SYSNAME in
		pmds*)
			DISABLE_INT=1
			;;
		esac
		;;
	esac
done
case $SYSNAME in
m68*|sun2|sun3|pmds*)
	;;
*)	DISABLE_INT=1
	;;
esac
if test $DISABLE_INT = 1
then
	ed - $CONFIG/Action <<EOF
/68000 interpreters/;/^end/s/^/!/
w
q
EOF
fi

if [ $DO_MACHINE_INDEP = n ]
then
	for i in $CONFIG/mach/*/Action
	do
		for j in libem libend libfp libdb libsys libmon libbsd4_2 libbsd4_1a libsysV_2
		do
			if grep -s $j $i
			then
				ed - $i <<EOF
/$j/;?^name?,/^end/s/^/!/
w
q
EOF
			fi
		done
	done
fi