V10/cmd/wwb/worduse.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.1:: 2.1;exit;;
		-flags) echo $0 \[-flags\] \[-ver\] \[word1 \| \"phrase 1\" ...\];exit;;
		-*) echo unknown worduse flag $i;exit;;
	esac
done
if test $# = 0
then
	echo	'When you see the ">" sign, type the word you want information about.

When you wish to stop, type q.

If no definition appears, either your word is misspelled or it is  
not included in our word list.
'
	while echo -e ">\c";read word
		if test \( "$word" = 'q' -o "$word" = '.' \)
		then 	exit
		fi
		do
			wordcap=`echo $word|tr "[a-z]" "[A-Z]"|tr -d \"\' `
			sed -n "/ $wordcap:.*$/,/^\%$/p" $L/wordlist.d|sed "s/^\%$/ /"
		done
	else	echo 'If no definition appears for the word(s) you entered, either  
your word is misspelled or it is not included in our word list.
'
while test "$1"
	do
		wordcap=`echo $1|tr "[a-z]" "[A-Z]"|tr -d \"\'`
		sed -n "/ $wordcap:.*$/,/^\%$/p" $L/wordlist.d|sed "s/^\%$/ /"
		shift
	done
	exit
fi