home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / librarie / mpwgoodi.sit / SafeDelete < prev   
Encoding:
Text File  |  1991-03-07  |  486 b   |  30 lines
  1. ##    SafeDelete by Larry Rosenstein
  2. ##    Copyright ⌐ 1991 Apple Computer, Inc.  All Rights Reserved
  3.  
  4. Set p "`quote {"parameters"}`"
  5. Set p " {p} "
  6.  
  7. Set opt ''
  8.  
  9. LOOP
  10.     IF "{p}" =~ /(┼)¿1[ ╢t]+(-[yncp])¿0[ ╢t]+(┼)¿2/
  11.         set opt "{opt} {¿0}"
  12.         set p "{¿1} {¿2}"
  13.     ELSE
  14.         Break
  15.     END
  16. END
  17.  
  18. IF "{p}" =~ / +(┼)¿0 +/
  19.     Set p "{¿0}"
  20. END
  21.  
  22. FOR file in `quote {p}`
  23.     IF "{file}" !~ /┼:┼/
  24.         set file ":{file}"
  25.     END
  26.     
  27.     RememberHome `quote "{file}"`
  28.     move {opt} `quote "{file}"` `findfolder -trash "{file}"`
  29. END
  30.