![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dictadd.sh CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / wwb|
Return to dictadd.sh CVS log | Up to [Research Unix] / researchv10dc / cmd / wwb |
1.1 root 1: # NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT
2: L=/usr/lib/style
3: file=
4: sexflag=
5: fflag=
6: for i in $*
7: do case $i in
8: -ver) echo $0 version 2.4: 2.1;exit;;
9: -flags) echo $0 \[-flags\] \[-ver\];exit;;
10: -*) echo unknown dictadd flag $i;exit;;
11: *) echo dictadd takes no files;shift;continue;;
12: esac
13: done
14: if [ -f $HOME/lib ]
15: then echo "Dictadd can't make a directory \$HOME/lib for you
16: because you already have a file named \$HOME/lib.
17: Change the name of the file to something else
18: and run the program again."
19: exit 1
20: fi
21: if test ! -d $HOME/lib
22: then echo dictadd is making a directory: \$HOME/lib for you.
23: mkdir $HOME/lib
24: fi
25: echo 'Do you want to add words to $HOME/lib/ddict for use with
26: wwb and proofr? (y or n)'
27: read ans1
28: if test \( $ans1 = 'y' -o $ans1 = 'Y' -o $ans1 = 'yes' -o $ans1 = 'Yes' \)
29: then
30: if test \( -r $HOME/lib/ddict -a ! -w $HOME/lib/ddict \)
31: then echo Dictadd can\'t write on the file \$HOME/lib/ddict\; check your permissions.
32: exit 1
33: fi
34: else
35: echo 'Do you want to add words to $HOME/lib/sexdict for use with
36: sexist? (y or n)'
37: read ans2
38: if test \( $ans2 = 'y' -o $ans2 = 'Y' -o $ans2 = 'yes' -o $ans2 = 'Yes' \)
39: then
40: sexflag=S;
41: if test \( -r $HOME/lib/sexdict -a ! -w $HOME/lib/sexdict \)
42: then echo Dictadd can\'t write on the file \$HOME/lib/sexdict\; check your permissions.
43: exit 1
44: fi
45: else echo "Type the name of the file you want the words added to:\nDo not use symbolic names such as \$HOME."
46: fflag=F;
47: read file
48: if test \( -r $file -a ! -w $file \)
49: then echo Dictadd can\'t write on the file $file\; check your permissions.
50: exit 1
51: fi
52: fi
53: fi
54: echo Do you want instructions? \(y or n\)
55: read ans
56: if test \( $ans = 'y' -o $ans = 'Y' -o $ans = 'yes' -o $ans = 'Yes' \)
57: then echo "
58:
59:
60: _O_v_e_r_v_i_e_w: Dictadd is a program that works with the
61: wwb, proofr, and sexist programs. These programs
62: find all sentences with wordy or sexist diction,
63: but you can use dictadd to suppress words or
64: phrases, or to add new ones to your dictionary
65: files \$HOME/lib/ddict and \$HOME/lib/sexdict,
66: or any other file you prefer. Procedures are
67: given below.
68:
69:
70: _P_r_o_c_e_d_u_r_e_s__f_o_r__S_u_p_p_r_e_s_s_i_n_g__P_h_r_a_s_e_s _P_r_o_c_e_d_u_r_e_s__f_o_r__S_t_o_r_i_n_g__P_h_r_a_s_e_s
71:
72:
73: _U_s_e wwb, proofr, sexist, diction, _W_a_i_t for > sign.
74: or dictplus to get a list of wordy |
75: sentences. | |
76: | |
77: | |
78: _F_i_n_d the bracketed information _T_y_p_e phrase.
79: in the list. | |
80: | |
81: _D_e_t_e_r_m_i_n_e _t_h_e _i_n_f_o_r_m_a_t_i_o_n _p_a_t_t_e_r_n _T_y_p_e other phrases until
82: within the brackets: all are stored.
83: |
84: o+ blank spaces before and after it; |
85: |
86: o+ a blank space before it; |
87: |
88: o+ no blank spaces at all. |
89: | |
90: | |
91: _W_a_i_t for > sign. |
92: | |
93: | |
94: CAUTION: Don't type brackets. |
95: Make sure to type the |
96: spaces, if there are any. |
97: |
98: _T_y_p_e: ~Phrase |
99: carriage return. |
100: | |
101: | |
102: _T_y_p_e _o_t_h_e_r _p_h_r_a_s_e_s until all |
103: are suppressed. |
104: | |
105: |_______________________________|_
106:
107: |
108: |
109: _T_y_p_e _q (for quit).
110:
111: Comment: Wwb, proofr, and sexist automatically
112: search your dictionaries, but you must
113: tell diction and dictplus to do so, as in:
114:
115: diction -f \$HOME/lib/ddict filename"
116:
117: fi
118: if test $sexflag
119: then $L/dictadd $HOME/lib/sexdict
120: elif test $fflag
121: then $L/dictadd $file
122: else $L/dictadd $HOME/lib/ddict
123: fi
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.