#! /bin/csh -f
# Learn an incorrect spelling of a word or words. (Spellings which
# might be generated from general spelling rules. See man-page for 'spell'.)
#
# Creates and maintains files
#    ~/lib/stop    ... sorted text of words to suppliment standard stop-list
#    ~/lib/hstop   ... supplimental and standard lists, merged and hashed
#    ~/lib/stop.temp  ... scratch file
#    ~/lib/hstop.temp ... scratch file
# 
# I don't know why I need to make a copy of /usr/dict/hstop, but
# that's the only way I found to make it work. .. djones

# See also learn_word

echo $* | tr ' ' '\012' >> ~/lib/stop
sort -u ~/lib/stop > ~/lib/stop.temp
mv ~/lib/stop.temp ~/lib/stop
cp /usr/dict/hstop ~/lib/hstop.temp
/usr/bin/spellin ~/lib/hstop.temp < ~/lib/stop > ~/lib/hstop
rm ~/lib/hstop.temp
