Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!ncar!tank!nic.MR.NET!hal!ncoast!allbery
From: argv@maui.UUCP (Dan Heller)
Newsgroups: comp.sources.misc
Subject: v04i129: yet another spelling checker
Message-ID: <8810160134.AA08817@maui.island.uucp>
Date: 22 Oct 88 01:20:28 GMT
Sender: allbery@ncoast.UUCP
Reply-To: argv@maui.UUCP (Dan Heller)
Lines: 212
Approved: allbery@ncoast.UUCP

Posting-number: Volume 4, Issue 129
Submitted-by: "Dan Heller" <argv@maui.UUCP>
Archive-name: nspell

[Wants csh and "look" (a BSD-only program); also hardcoded paths galore.  ++bsa]

Here's yet another spelling checker given the wave of spelling
checkers being posted.  However, this is more of an exercize in
csh shell script writing.

The program uses many unix commands that should be available
on all unix systems, but if they aren't or options aren't supported,
let me know.  It assumes that programs are located in specific
directories (like /usr/bin/spell and /usr/lib/spell)

There is a variable called BSD which can be set on or off,
but I don't know what'll happen to sys-v boxes if it's off.
Please send comments, bug fixes and other humorous material
to island!argv@sun.com
--------------------
#!/bin/csh -f
# This file is csh code to do an interactive spelling checker/correcter.
# This shell script was written by Dan Heller one late night in 1985.

set BSD = 1		# set to 0 if you're NOT on a BSD system.
onintr Quit
set dict = "dict"
set noglob
set err_msg = "usage: $0 [-p privdict] file"
@ argc = 1
if (! $?PAGER) setenv PAGER more

if ( $#argv < 1 ) then
    echo $err_msg
    goto Quit
endif
if ( $argv[1] == '-p' ) then
    @ argc = 3
    set dict = $argv[2]
endif
if ( $argc > $#argv ) echo $err_msg
while ( $argc <= $#argv )
    set file = $argv[$argc]
    @ argc++
    /bin/cp /dev/null $$words
    /bin/echo -n Looking for misspelled words in the file \"$file\" ...
    /usr/bin/spell $file >! $$temp
    set total = ( `wc -l $$temp` ) #get the size of the misspelled words file
    echo Found $total[1] words.
    if (-e $dict) then
	/bin/echo -n Checking against words in \"$dict\"...
	foreach w ( `cat $$temp` )
	    grep -s \\\<$w\\\> $dict    # for those who don't have -w with grep
	    if ($status == 1) echo $w >> $$words  # use if not in dict
	end
	/bin/rm $$temp
    else
	/bin/echo -n No private dictionary to check.
	/bin/mv $$temp $$words
    endif
    if (-z $$words) then
	echo no misspelled words
	continue
    endif
    echo " "
    set total = ( `wc -l $$words` ) #get the size of the misspelled words file
    @ total = $total[1]		    #set count to be an int variable
    @ count = 1
    /bin/echo Found $total misspelled words in \"$file\"
    @ backup = 0
    echo Type ? for help.
mark:
    while ($count <= $total)
	set word = `sed -n ${count}p $$words`
	if ($backup > 0) echo -n "> "
	echo -n "$count) $word? "
	if ( $BSD ) then
	    set newword = $<   # prompt for respelling of word.
	else
	    set newword = `gets`
	endif
	if ( "$newword" == '' ) then
	    if ($backup == 0) then
		echo $word >> $dict
	    else @ backup--
	    endif
	    @ count++
	    continue
	endif
	if ( "$newword" == '?' ) then
	    echo $err_msg
	    cat <<END
"dictfile" is a list of your own words that you know
are not misspelled or from a previous nspell session.
Words found to be misspelled that you say are correct are 
appended to the private dictionary.

> 3) thanx?

Possible responses:
  RETURN    -- word is right, add it to the dictionary.
  b         -- go back to the previous word.
  l pattern -- look for pattern in dictionary.
  s         -- search for 'thanx' in your file. (via grep)
  d         -- don't save word, but it's correct.
  D         -- Delete all occurances of this word.
  ?         -- prints this list.
  Q         -- Quit: don't correct words.
  q         -- quit, correct words so far.
  thanks    -- Attempted correct spelling.

If there is a > before the word, this means that you've
already visited this word (you had backed up over it).
RETURN will use the previous spelling if you had corrected it.

END
	    continue
	endif
	if ("$newword" == 'b') then
	    if ($count == 1) echo You\'re at the first word already.
	    if ($count > 1) then
		@ count--
		@ backup++
	    endif
	    continue
	endif
	if ("$newword" == 's') then
	    echo " "
	    echo in file \"$file\":
	    grep -n \\\<$word\\\> $file   # some systems don't have -w with grep
	    echo " "
	    continue
	endif
	set Newword = ( $newword )
	if ($Newword[1] == 'l' || $Newword[1] == 'look') then
	    echo " "
	    /usr/bin/look $Newword[2] | $PAGER    # look bur*c doesn't work
	    echo " "
	    continue
	endif
	if ("$newword" == 'D') then
	    set newword = ""
	    goto force_feed
	endif
	if ("$newword" == 'd') then
	    @ count++
	    continue
	endif
	if ("$newword" == 'Q') then
	    echo " "
	    echo " Exiting: no changes made."
	    goto Quit 
	endif
	if ("$newword" == 'q') goto break
	echo $newword | /usr/lib/spell /usr/dict/hlista $$misp > /dev/null
	if ( -z $$misp ) then
	    if (-e $dict) then
		grep -s "\\\<$newword\\\>" $dict
	    else goto cont
	    endif
	    if ($status == 0) then
cont:
		echo \"$newword\" seems to be misspelled also.
		/bin/echo -n "Is it correct? [n] "
		if ( $BSD ) then
		    set answer = ( $< )
		else
		    set answer = ( `gets` )
		endif
		if ( $answer == 'y' ) then
		    echo $newword >> $dict
		else 
		    continue
		endif
	    endif
	endif
force_feed:
	if ($backup > 0) then
	    (echo "g/\<$word\>/d";echo "w") | ex - $$newfile > /dev/null
	    if (-e dict) then
		(echo "g/\<$word\>/d";echo "w") | ex - $dict >/dev/null
	    endif
	    @ backup--
	endif
	/bin/echo "%s/\<$word\>/$newword/g" >> $$newfile
	@ count++
	end
    echo -n "Done. Hit return to continue, or 'b' to back..."
    if ( $BSD ) then
	set answer = ( $< )
    else
	set answer = ( `gets` )
    endif
    if ( $answer == 'b' ) then
	@ count--
	@ backup = 1
	goto mark
    endif
    break:
    if ( -z $$newfile || ! -e $$newfile ) then
	echo No misspelled words
	continue
    endif
    echo "w" >> $$newfile
    echo -n Correcting misspelled words in file \"$file\"...
    # cp $$newfile fixes  # for debugging
    ex - $file < $$newfile
    echo " done."
end # main loop
Quit:
unset noglob
/bin/rm -f $$*