home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / MUI / MCC_TextEditor / iSpell / Rexx / ISpellSuggest.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1999-06-13  |  526 b   |  30 lines
  1. /*
  2. $VER: ISpellSuggest.rexx 1.0 (13.06.99) by Markus K.Maier <mkm@gmx.de>
  3. */
  4. options results
  5.  
  6. parse arg what
  7.  
  8. address 'IRexxSpell' check what
  9. res = translate(left(result,1,1),"**","+-")
  10.  
  11. Open('f','T:Matches','W')
  12.  
  13. if res = '*' then
  14.   WriteLn('f', "Word is correct")
  15. else
  16.   if res = '&' then do
  17.     parse var result '&' what ': ' word ', ' rest
  18.  
  19.     do while rest ~= ''
  20.       WriteLn('f', word)
  21.       parse var rest word ', ' rest
  22.     end
  23.     WriteLn('f', word)
  24.   end
  25.   else
  26.     WriteLn('f', "No suggestions")
  27.  
  28. Close('f')
  29. exit
  30.