|
|
1.1 root 1: # NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT
2: L=/usr/lib/style
3: for i in $*
4: do case $i in
5: -ver) echo $0 version 2.1:: 2.1;exit;;
6: -flags) echo $0 \[-flags\] \[-ver\] \[word1 \| \"phrase 1\" ...\];exit;;
7: -*) echo unknown worduse flag $i;exit;;
8: esac
9: done
10: if test $# = 0
11: then
12: echo 'When you see the ">" sign, type the word you want information about.
13:
14: When you wish to stop, type q.
15:
16: If no definition appears, either your word is misspelled or it is
17: not included in our word list.
18: '
19: while echo -e ">\c";read word
20: if test \( "$word" = 'q' -o "$word" = '.' \)
21: then exit
22: fi
23: do
24: wordcap=`echo $word|tr "[a-z]" "[A-Z]"|tr -d \"\' `
25: sed -n "/ $wordcap:.*$/,/^\%$/p" $L/wordlist.d|sed "s/^\%$/ /"
26: done
27: else echo 'If no definition appears for the word(s) you entered, either
28: your word is misspelled or it is not included in our word list.
29: '
30: while test "$1"
31: do
32: wordcap=`echo $1|tr "[a-z]" "[A-Z]"|tr -d \"\'`
33: sed -n "/ $wordcap:.*$/,/^\%$/p" $L/wordlist.d|sed "s/^\%$/ /"
34: shift
35: done
36: exit
37: fi
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.