for i
do
	case $i in
	*.i) 
		;;
	*)
		echo $i is not an interface program; continue;;
	esac
	b=`basename $i .i`
	if test -f $b.d
	then
		echo $b.d already exists; continue
	fi
	if test ! -r $i
	then
		echo $i is not readable; continue
	fi
	${SHOME}/cmd/icomp <$i | m4 ${SHOME}/cmd/prom.m4 - | sed "/^ *$/d
	/CS/{ n
	s/, *$/)/
	}" >$b.d
	echo Shell of documentation written to $b.d
done
