home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / amigae / ged-e2.0.lha / GED-E / ec_flushmem.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-11-03  |  727 b   |  24 lines
  1. /* $VER: 1.0, ©1994 BURGHARD Eric.                  */
  2. /*Free all file notifications, executables & Sources*/
  3.  
  4. options results                             /* enable return codes     */
  5.                                             /* not started by GoldEd ? */
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
  7. signal on syntax                            /* ensure clean exit       */
  8.  
  9. address command 'list >T:FlushList T:E/#?.e LFORMAT="%n"'
  10. if (ok = open(fhandle,'T:E/FlushMem','Read'))~=0 then do
  11.     do while ~eof(fhandle)
  12.         file=readln(fhandle)
  13.         'NOTIFY FILE="'file'" STOP'
  14.     end
  15. end
  16. address command 'Delete T:E/#?'
  17. exit
  18.  
  19. syntax:
  20. say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  21. 'UNLOCK'
  22. exit
  23.  
  24.