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

#!/bin/sh -
#
# Copyright (c) 1988, 1993
#	The Regents of the University of California.  All rights reserved.
#
# This module is believed to contain source code proprietary to AT&T.
# Use and redistribution is subject to the Berkeley Software License
# Agreement and your Software Agreement with AT&T (Western Electric).
#
#	@(#)suggest.sh	8.1 (Berkeley) 6/6/93
#

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	#
ad787160 C	3	# Copyright (c) 1988, 1993
ad787160 C	4	# The Regents of the University of California. All rights reserved.
435e8dff	5	#
ad787160 C	6	# This module is believed to contain source code proprietary to AT&T.
	7	# Use and redistribution is subject to the Berkeley Software License
	8	# Agreement and your Software Agreement with AT&T (Western Electric).
91de73ce	9	#
ad787160	10	# @(#)suggest.sh 8.1 (Berkeley) 6/6/93
2791ff57 KB	11	#
2791ff57 KB	12
91de73ce	13	trap 'rm $$; exit' 1 2 3 15
435e8dff	14	D=/usr/share/dict/explain.d
91de73ce KB	15	while echo "phrase?";read x
	16	do
	17	cat >$$ <<dn
	18	/$x.* /s/\(.\) \(.\)/use "\2" for "\1"/p
	19	dn
	20	case $x in
	21	[a-z]*)
	22	sed -n -f $$ $D; rm $$;;
	23	*) rm $$;;
	24	esac
	25	done