1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
case $CONFIG in
'') . ./config.sh ;;
esac
echo "Extracting Speller (with variable substitutions)"
$spitshell >Speller <<!GROK!THIS!
$startsh
# Speller - a script to disassemble a posting; use ispell to spell-
# check the body along with the Subject, Keywords, and Summary lines;
# and put it all back together again.
#
# Written by Eric Schnoebelen, (eric@cirr.com)
# Fri May 14 20:33:48 CDT 1993
export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
# what pager you use--if you have kernal paging use cat
pager="\${PAGER-$pager}"
# either the ispell program or "none"
ispell=$ispell_prg
ispell_options=$ispell_options
test=${test-test}
sed=${sed-sed}
echo=${echo-echo}
cat=${cat-cat}
awk=${awk-awk}
rm=${rm-rm}
mv=${mv-mv}
diff=${diff-diff}
ed=${ed-ed}
spell=${spell-spell}
basename=${basename-basename}
!GROK!THIS!
$spitshell >>Speller <<'!NO!SUBS!'
tmpdir="${TMPDIR-/tmp}"
# get us some temporary files.
hdrs=$tmpdir/sp$$hdr
body=$tmpdir/sp$$body
sig=$tmpdir/sp$$sig
mine=$tmpdir/sp$$mine
quoted=$tmpdir/sp$$quoted
bad=$tmpdir/sp$$bad
Cmdname=`$basename $0`
if $test "X$1" = X; then
$echo "$Cmdname: insufficent arguments" >&2
$echo "$Cmdname: usage: $Cmdname <filename>" >&2
exit 1
fi
trap "$rm -f $hdrs $body $body~ $sig $mine $quoted $bad; exit 1" 0 1 2 15
while $test "X$1" != X; do
# create the files, so that cat is quiet later..
>$hdrs
>$body
>$sig
>$mine
>$quoted
# tear the wanted headers out and toss them at body, leaving the
# the remainder to be put back in later.
$awk 'BEGIN { inhdr = 1; keephdr = 0; insig = 0 }
/^$/ {
inhdr = 0;
}
/^-- $/ {
if (!inhdr) {
insig = 1;
print $0 > Sig;
next;
}
}
/^(Subject|Keywords|Summary): / {
if (inhdr) {
keephdr = 1;
print $0 > Body;
next;
}
}
/^[ \t]/ {
if (inhdr) {
if (keephdr) {
print $0 > Body;
} else {
print $0 > Hdrs;
}
next;
}
}
/^.*$/ {
if (insig) {
print $0 > Sig;
}
else if (inhdr) {
keephdr = 0;
print $0 > Hdrs;
}
else {
print $0 > Body;
}
next;
}
' Body=$body Hdrs=$hdrs Sig=$sig $1
# now rip out the quoted text from the article, so we only
# spell check our own pristine prose..
if $test "X$QUOTECHARS" = X ; then
$mv $body $mine
else
$sed -e "/^$QUOTECHARS/d" $body >$mine
$diff -e $mine $body > $quoted
fi
# OK, we've torn everything asunder, now lets spell check
# the guts of the article...
if $test "X$ispell" = "Xnone"; then
$spell $ispell_options $mine > $bad
if $test -s $bad ; then
($echo ---- misspelled words -------------------------------------
#$cat $bad | fmt
$cat $bad | pr -t -4
$echo -----------------------------------------------------------
) | $pager
else
$echo 'No misspelled words.'
fi
else
$ispell $ispell_options $mine
fi
if $test $? -ne 0; then
$echo "$Cmdname: error returned, leaving message untouched"
# don't want to mess with this file again, either
shift
continue
fi
# resurrect the body of the article..
if $test -s $quoted ; then
($cat $quoted; $echo w $body; $echo q) | $ed - $mine
else
$mv $mine $body
fi
# ..and re-assemble the article.
$cat $hdrs $body $sig >$1
# move to the next filename!
shift
done
!NO!SUBS!
$eunicefix Speller
chmod 755 Speller
|
