home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Elysian Archive
/
AmigaElysianArchive.iso
/
wp_dtp
/
ispell.lha
/
QuickWordSpell.ced
< prev
next >
Wrap
Text File
|
1991-02-08
|
2KB
|
51 lines
/*
* QuickWordSpell.ced ... ARexx Program to spell check a word while in CED!
* Requires ISpell version 3.2ljr (or later) with ARexx Server Mode,
* the Ping Server (came with VLT, called Ping) and CED version 2.12.
* Also requires runback and the NULL: device to startup ISpell in
* the background.
*
* This quick version just beeps if the word is not found.
* This version can be used to setup a spell check as you type
* system under CED and possibly other text editors. Under CED,
* just define a macro for the space bar. Have the macro perform
* the following: `Send Dos/ARexx command...' QuickWordSpell, space.
*
* Started around: Sat Jan 05 03:51:37 1991 LJR
* Hacked on a bit: Thu Jan 17 17:17:26 1991 LJR
* Finished: Fri Feb 1 06:41:08 1991 LJR
* Copyright (C) 1991 Loren J. Rittle
* Use as you will, just document your changes and keep my copyright
* notice intact.
*/
options results
if pos('IRexxSpell',(show(ports))) = 0 then do
address command 'runback ispell -r >null: <null:'
address command waitforport 'IRexxSpell'
end
status 87; bytepos = result;
status 55; line = result;
parse var line curline '0a'x
curpos = 0
do forever
curpos=pos('09'x, curline, curpos+1)
if curpos == 0 then break
curline = overlay(' ', curline, curpos)
end
do i = 1 to words(curline)
if wordindex(curline, i)-1 > bytepos then
break
end
item = compress( word( curline, i-1 ), ' ~`,./<>?;:"[]{}!@#$%^&*()+|=\' )
if item = '' then exit
address 'IRexxSpell' quickcheck item
if result = 'bad' then address 'PingServer' beep
exit