137872Sbostic#!/bin/sh -
237453Sbostic#
3*61964Sbostic# Copyright (c) 1988, 1993
4*61964Sbostic#	The Regents of the University of California.  All rights reserved.
537453Sbostic#
648240Sbostic# %sccs.include.proprietary.sh%
737872Sbostic#
8*61964Sbostic#	@(#)suggest.sh	8.1 (Berkeley) 06/06/93
948240Sbostic#
1048240Sbostic
1137453Sbostictrap 'rm $$; exit' 1 2 3 15
1237872SbosticD=/usr/share/dict/explain.d
1337453Sbosticwhile echo "phrase?";read x
1437453Sbosticdo
1537453Sbosticcat >$$ <<dn
1637453Sbostic/$x.*	/s/\(.*\)	\(.*\)/use "\2" for "\1"/p
1737453Sbosticdn
1837453Sbosticcase $x in
1937453Sbostic[a-z]*)
2037453Sbosticsed -n -f $$ $D; rm $$;;
2137453Sbostic*) rm $$;;
2237453Sbosticesac
2337453Sbosticdone
24