#!/bin/sh
# $Id: Speller.SH,v 3.0 1992/02/23 21:25:39 davison Trn $
#	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-/bin/more}"
# either the ispell program or "none"
ispell=/usr/bin/ispell
ispell_options=-x
test=test
sed=sed
echo=echo
cat=cat
awk=awk
rm=rm
mv=mv
diff=diff
ed=ed
spell=spell
basename=basename

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;
			print $0 > Body;
			next;
			}
	/^-- $/		{
			insig = 1;
			print $0 > Sig;
			next;
			}
	/^Subject: /	{ 
			if (inhdr) { 
			    keephdr = 1;
			    print $0 > Body;
			    next;
			}  
			}
	/^Keywords: /	{
			if (inhdr) { 
			    keephdr = 1;
			    print $0 > Body 
			}
			next;
			}
	/^Summary: /	{ if (inhdr) { 
			    keephdr = 1;
			    print $0 > Body 
			}
			next;
			}
	/^[ \t]/	{
			    if (keephdr && indhr) {
				print $0 > Body;
			    } else if (inhdr) {
				print $0 > Hdrs;
			    }
			}
	/^.*: /		{ if (inhdr) { 
			    keephdr = 0;
			    print $0 > Hdrs;
			    next;
			} }
	/^.*$/		{ if (!inhdr && !insig) {
			    print $0 > Body;
			    next;
			} 
			if (insig) {
			    print $0 > Sig;
			    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/s/.*//" $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