|
|
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.0:: 2.0;exit;;
6: -flags) echo $0 \[-flags\] \[-ver\] \[wordpart \| regular expression ...\];exit;;
7: -*) echo unknown spelltell flag $i;exit;;
8: esac
9: done
10: if test $# = 0
11: then echo Do you want instructions? \(y or n\)
12: read ans
13: if test \( $ans = 'y' -o $ans = 'Y' -o $ans = 'yes' -o $ans = 'Yes' \)
14: then echo '
15: This command uses the grep command to search a dictionary
16: for the word you are interested in. When you get a ">"
17: you can type either:
18: 1) any contiguous letters that you are sure
19: of in the word
20: example: for "accommodate" you could use:
21: ac
22: acc
23: accom
24: date, etc.
25: 2) a grep pattern specifying what you know of the word
26: example: for accommodate
27: accomm.date
28: ^acc
29: accom*.date, etc.
30:
31: After your last phrase, type q (for quit).
32: You can also run this program by typing:
33: '
34: echo " spelltell 'phrase1' 'phrase2' ..."
35: fi
36: while echo -e ">\c"; read ans
37: pat=`echo $ans|tr -d \"\' `
38: if test \( "$pat" = 'q' -o "$pat" = '.' -o "$pat" = '' \)
39: then exit
40: fi
41: do grep $pat $L/spelllist.d
42: done
43: else
44: while test "$1"
45: do
46: grep $1 $L/spelllist.d
47: shift
48: done
49: exit
50: fi
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.