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

#!/bin/sh -
#
# Copyright (c) 1988 The Regents of the University of California.
# All rights reserved.
#
# %sccs.include.proprietary.sh%
#
#	@(#)suggest.sh	5.3 (Berkeley) %G%
#

trap 'rm $$; exit' 1 2 3 15
D=/usr/share/dict/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
435e8dff	1	#!/bin/sh -
91de73ce	2	#
2791ff57 KB	3	# Copyright (c) 1988 The Regents of the University of California.
2791ff57 KB	4	# All rights reserved.
435e8dff	5	#
2791ff57	6	# %sccs.include.proprietary.sh%
91de73ce	7	#
2791ff57 KB	8	# @(#)suggest.sh 5.3 (Berkeley) %G%
	9	#
	10
91de73ce	11	trap 'rm $$; exit' 1 2 3 15
435e8dff	12	D=/usr/share/dict/explain.d
91de73ce KB	13	while echo "phrase?";read x
	14	do
	15	cat >$$ <<dn
	16	/$x.* /s/\(.\) \(.\)/use "\2" for "\1"/p
	17	dn
	18	case $x in
	19	[a-z]*)
	20	sed -n -f $$ $D; rm $$;;
	21	*) rm $$;;
	22	esac
	23	done