[unix-history] / usr / src / usr.bin / diction / explain / explain.sh

#! /bin/sh
#
#	@(#)explain.sh	4.2	(Berkeley)	82/11/06
#
trap 'rm $$; exit' 1 2 3 15
D=/usr/lib/explain.d
while echo "phrase?";read x
do
cat >$$ <<dn
/$x.*	/s/\(.*\)	\(.*\)/use "\2" for "\1"/p
dn
case $x in
[a-z]*)
sed -n -f $$ $D; rm $$;;
*) rm $$;;
esac
done
Commit	Line	Data
2958d0fe RH	1	#! /bin/sh
2958d0fe RH	2	#
280efb10	3	# @(#)explain.sh 4.2 (Berkeley) 82/11/06
2958d0fe RH	4	#
	5	trap 'rm $$; exit' 1 2 3 15
	6	D=/usr/lib/explain.d
	7	while echo "phrase?";read x
	8	do
	9	cat >$$ <<dn
	10	/$x.* /s/\(.\) \(.\)/use "\2" for "\1"/p
	11	dn
	12	case $x in
	13	[a-z]*)
	14	sed -n -f $$ $D; rm $$;;
	15	*) rm $$;;
	16	esac
	17	done