![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wwb.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 wwb.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: trap 'rm -f /tmp/$$*; trap 0; exit' 0 1 2 3 15
4: if test $# = 0
5: then echo "Usage: wwb [-mm|-ms] [-li|+li] [-s] [-c|-t|-tm] [-x standards-file] file ..."
6: exit 1
7: fi
8: mflag=-ms
9: mlflag=-ml
10: sflag=
11: fflag=
12: file=
13: xfile=
14: audflag=m
15: while test '$1'
16: do case $1 in
17: -ver) echo $0 version 2.5:: 2.1,2.0; exit 0;;
18: -flags) echo "$0 [-flags] [-ver] [-mm|-ms] [-li|+li] [-tm|-t|-c|-x standards-file] [-s] [file ...]";exit 0;;
19: -mm) mflag=-mm;shift;continue;;
20: -ms) mflag=-ms; shift;continue;;
21: -li|-ml) mlflag=-ml;shift;continue;;
22: +li) mlflag=;shift;continue;;
23: -f) fflag=F; shift; file=$1;shift;continue;;
24: -c) audflag=c;shift;continue;;
25: -t) audflag=t;shift;continue;;
26: -tm) audflag=m;shift;continue;;
27: -x) audflag=x;shift; xfile=$1; shift;continue;;
28: -s) sflag=s;shift;continue;;
29: -*) echo unknown wwb flag $1; exit;;
30: *) break;;
31: esac
32: done
33: if test $fflag
34: then if test ! -r $file
35: then echo Can\'t find the file $file, try specifying a more complete pathname.
36: exit 1
37: fi
38: fi
39: if test $audflag = x
40: then if test ! -r $xfile
41: then echo Can\'t find the standards file $xfile, try specifying a more complete pathname.
42: exit 1
43: fi
44: fi
45: if test $# = 0
46: then echo "Usage: wwb [-mm|-ms] [-li|+li] [-s] [-c|-t|-tm] [-x standards-file] file ..."
47: exit 1
48: fi
49: for i in $*
50: do
51: if test ! -r $i
52: then echo Can\'t find the file $i\; try specifying a more complete pathname.
53: exit 1
54: fi
55: if test $sflag
56: then
57: echo -e "\n"--SPELLWWB for $i--
58: if test -r $HOME/lib/spelldict
59: then spell $i|sort|comm -23 - $HOME/lib/spelldict |pr -r -3 -t -i" "25
60: else spell $i |pr -r -3 -t -i" "25
61: fi
62: echo -e "\n"--PUNCT for $i--
63: sed "s/^'/./" $i >/tmp/$$in
64: $L/punlx < /tmp/$$in| bdiff /tmp/$$in - |sed -f $L/seddiff
65: echo -e "\n"--DOUBLE for $i--
66: double $i
67: echo -e "\n"--DICTION for $i--
68: if test -r $HOME/lib/ddict
69: then $L/dprog -l -f $HOME/lib/ddict $i
70: else $L/dprog -l $i
71: fi
72: echo -e "\n"--GRAM for $i--
73: deroff -n $mflag $mlflag $i|$L/style1 |$L/style2 | tee /tmp/$$style2 | $L/style3 -P -L| $L/gramlx
74: echo -e __"\n"
75: else
76: {
77: echo -e "****************************** SPELLING *******************************\n"
78: if test -r $HOME/lib/spelldict
79: then spell $i|sort|comm -23 - $HOME/lib/spelldict >/tmp/$$spell
80: else spell $i>/tmp/$$spell
81: fi
82: if test -s /tmp/$$spell
83: then echo -e Possible spelling errors in $i are:"\n"
84: pr -3 -t -i" "25 /tmp/$$spell
85: echo -e '\nIf any of these words are spelled correctly, later type
86: spelladd word1 word2 ... wordn
87: to have them added to your spelldict file.'
88: else echo No spelling errors found in $i
89: fi
90: echo -e "\n\n***************************** PUNCTUATION *****************************\n"
91: echo -e "For file $i:\n"
92: sed "s/^'/./" $i >/tmp/$$in
93: echo -e '\nThe program next prints any sentence that it thinks is
94: incorrectly punctuated and follows it by its correction.\n'
95: $L/punlx </tmp/$$in >/tmp/$$punct
96: echo -e "\n"
97: bdiff /tmp/$$in /tmp/$$punct >/tmp/$$diff
98: if test ! -s /tmp/$$diff
99: then echo -e No errors found in $i"\n"
100: else sed -f $L/seddiff /tmp/$$diff
101: echo -e "\n\n"
102: echo -e For more information about punctuation rules, type:"\n " punctrules
103: fi
104: echo -e "\n\n***************************** DOUBLE WORDS ****************************"
105: echo -e "\nFor file $i:\n"
106: double $i
107: echo -e "\n\n***************************** WORD CHOICE *****************************\n"
108: echo -e 'Sentences with possibly wordy or misused phrases are listed next,
109: followed by suggested revisions.\n'
110: if test -r $HOME/lib/ddict
111: then echo -e NOTE: proofr is using your file $HOME/lib/ddict for additional phrases."\n"
112: fi
113: echo -e "\nFor file $i\n"
114: if test -r $HOME/lib/ddict
115: then $L/dprog -l -f $HOME/lib/ddict -o /tmp/$$dictsed $i
116: else $L/dprog -l -o /tmp/$$dictsed $i
117: fi
118: if test -s /tmp/$$dictsed
119: then
120: echo -e '\nPlease wait for the substitution phrases\n
121: \n------------------- Table of Substitutions --------------------\n
122: PHRASE SUBSTITUTION\n'
123: sort -u /tmp/$$dictsed |sed -f $L/script.sed | split -50 -f /tmp/$$d_
124: for j in /tmp/$$d_*
125: do
126: sed -n -f $j $L/suggest.d >>/tmp/$$d
127: done
128: sort /tmp/$$d
129: echo -e '\n------------------------------------------------------------------\n
130: \n * Not all the revisions will be appropriate for your document.
131: * When there is more than one suggestion for just one bracketed
132: word, you will have to choose the case that fits your use.
133: * Capitalized words are instructions, not suggestions.\n
134: NOTE: If you want this program to look for additional phrases
135: or to stop looking for some, for instance to stop
136: flagging "impact," type the command dictadd.'
137: fi
138: echo -e "\n\n*************************** GRAMMATICAL ERRORS ************************"
139: echo -e "\nFor file $i:\n"
140: deroff -n $mflag $mlflag $i|$L/style1 |$L/style2 | tee /tmp/$$style2 | $L/style3 -P -L| $L/gramlx >/tmp/$$split
141: if test -s /tmp/$$split
142: then cat /tmp/$$split
143: echo -e '\nFor information on split infinitives type:
144: splitrules'
145: else echo No split infinitives found
146: fi; }|pr -h "PROOFR OUTPUT FOR $i"
147: fi
148: if test $fflag
149: then if test $sflag
150: then $L/prose f${sflag}${audflag} $xfile < $file
151: else $L/prose f${audflag} $xfile < $file |pr -e0 -h "PROSE OUTPUT FOR $file"
152: fi
153: else
154: if test $sflag
155: then $L/style3 < /tmp/$$style2 | tee styl.tmp| $L/prose ${sflag}${audflag} $xfile $$
156: else $L/style3 < /tmp/$$style2 | tee styl.tmp| $L/prose ${audflag} $xfile $$ |pr -h "PROSE OUTPUT FOR $i"
157: fi
158: fi
159: done
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.