home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / WordToBuff.edge < prev   
Encoding:
Text File  |  1993-10-27  |  448 b   |  27 lines
  1.  
  2. /*
  3. ** $VER: WordToBuff.edge 1.1 (Sunday 08-Aug-93 02:59:36)
  4. **
  5. ** Copy the word under the cursor to either the find or replace buffer.
  6. **
  7. ** Written by Thomas liljetoft
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. parse arg arg        /* get argument */
  14.  
  15. 'position' eow
  16. 'cursor' right 1
  17. 'copy' word back rb    /* get word */
  18.  
  19. /* put word in find or replace buffer */
  20.  
  21. if arg = "change" then
  22.     'putenvvar' _fe_replacestring result
  23. else
  24.     'putenvvar' _fe_findstring result
  25.     
  26. exit(0)
  27.