home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games Extra 1996 May / Amiga_Games_Extra_CD_5-96.bin / rexx / purgeclips.rx < prev    next >
Text File  |  1994-04-15  |  1KB  |  50 lines
  1. /* PurgeClips,rx
  2.  *   Will delete all files in CLIPS: directory, and then
  3.  *   update CBE's display.  Usable for freeinng disk space
  4.  *   since clearing a clipboard unit will leave a file
  5.  *   with an empty IFF structure in the CLIPS directory.
  6.  *
  7.  *    Anthony J. Moringello
  8.  *   anthonym@alpha1.csd.uwm.edu
  9.  *
  10.  *  Usage:
  11.  *    rx PurgeClips.rx
  12.  *
  13.  *  CBE ARexx Commands:
  14.  *    QUIT                COPY   [key]
  15.  *    UNITS [units]        PASTE  [key]
  16.  *   UP    [unit]        TOP    [unit]
  17.  *    DOWN  [unit]        END    [unit]
  18.  *    LOCK  [unit]        SELECT [unit]
  19.  *   FREE  [unit]        VIEW   [unit]
  20.  *    ACTIVE              UPDATE
  21.  *    INACTIVE
  22.  *    WINDOW <SHOW | HIDE | JUMP>
  23.  *   CLEAR  [unit | FREE | ALL ]
  24.  *
  25.  *  See docs for complete usage description.
  26.  */
  27. options RESULTS
  28.  
  29. if ~show('L',"rexxsupport.library") then do
  30.    if ~addlib('rexxsupport.library',0,-30,0) then do
  31.       say 'support library not available'
  32.       exit 10
  33.    end
  34. end
  35. if ~show('L',"rexxDOSsupport.library") then do
  36.    if ~addlib('rexxDOSsupport.library',0,-30,0) then do
  37.       say 'support library not available'
  38.       exit 10
  39.    end
  40. end
  41.  
  42. clips = showdir( "CLIPS:", "F", ":" )
  43. do forever
  44.     parse upper var clips name ':' clips
  45.     if name == '' then leave
  46.     delete( 'CLIPS:'||name )
  47. end
  48.  
  49. ADDRESS CBERexx.1 UPDATE
  50.