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