Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/compsrcs/misc/volume04/nspell

Internet Message Format | 1991-08-27 | 6.3 KB

From decwrl!labrea!agate!pasteur!ames!mailrus!ncar!tank!nic.MR.NET!hal!ncoast!allbery Sat Oct 22 16:51:38 PDT 1988
Article 671 of comp.sources.misc:
Path: granite!decwrl!labrea!agate!pasteur!ames!mailrus!ncar!tank!nic.MR.NET!hal!ncoast!allbery
From: [e-mail] (Dan Heller)
Newsgroups: comp.sources.misc
Subject: v04i129: yet another spelling checker
Message-ID: <[e-mail]>
Date: 22 Oct 88 01:20:28 GMT
Sender: [e-mail]
Reply-To: [e-mail] (Dan Heller)
Lines: 212
Approved: [e-mail]

Posting-number: Volume 4, Issue 129
Submitted-by: "Dan Heller" <[e-mail]>
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![e-mail]
--------------------
#!/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 $$*