V10/cmd/wwb/spelltell.sh

# NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT
L=/usr/lib/style
for i in $*
	do case $i in
	-ver) echo $0 version 2.0:: 2.0;exit;;
	-flags) echo $0 \[-flags\] \[-ver\] \[wordpart \| regular expression ...\];exit;;
	-*) echo unknown spelltell flag $i;exit;;
	esac
done
if test $# = 0
then 	echo Do you want instructions? \(y or n\)
	read ans
	if 	test \( $ans = 'y' -o $ans = 'Y' -o $ans = 'yes' -o $ans = 'Yes' \)
	then echo '
This command uses the grep command to search a dictionary 
for the word you are interested in.  When you get a ">" 
you can  type either:
        1) any contiguous letters that you are sure 
		of in the word
                example: for "accommodate" you could use:
                        ac
                        acc
                        accom
                        date, etc.
        2) a grep pattern specifying what you know of the word
                example: for accommodate
                        accomm.date
                        ^acc
                        accom*.date, etc.

After your last phrase, type q (for quit).
You can also run this program by typing:
'
echo "		spelltell 'phrase1'   'phrase2' ..."
	fi
	while echo -e ">\c"; read ans
	pat=`echo $ans|tr  -d \"\' `
	if test \( "$pat" = 'q' -o "$pat" = '.' -o "$pat" = '' \)
	then exit
	fi
	do grep $pat $L/spelllist.d
	done
else
	while test "$1"
		do
			grep $1 $L/spelllist.d
			shift
		done
	exit
fi