home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / HILFEN / SYSTEM / MSH / ZIP.MSH < prev    next >
Text File  |  1993-12-01  |  1KB  |  37 lines
  1. | Actions defined when the panel shows a zip archive.
  2. |
  3. (panel.pattern panel.type cutfirst drop panel.type&)zipname!
  4. |
  5. (panel.pattern".zip"cutfirst swap drop dirpart dup 
  6.  length dup 1>(2 swap substring)(drop drop "")ifelse
  7. )zipdirname!
  8. |
  9. ( current.isdir
  10.   ( panel.pattern dirpart
  11.     current.name ".." =
  12.     (dup length 1- 1 swap substring dirpart)
  13.     (current.name&)
  14.     ifelse
  15.     panel.pattern filepart makename
  16.     panel.pattern!
  17.   )
  18.   if
  19. )cur_action.zip!
  20. |
  21. ( panel.pattern dirpart
  22.       dup length 1- 1 swap substring dirpart
  23.       panel.pattern filepart makename
  24.       panel.pattern!
  25. )go_up.zip!
  26. |
  27. ( tmp_dir"tmp.$$$"& tmp_filename!
  28.   ( zipdirname swap&nl&tmp_filename write)foreachselected
  29.     "pkzip -d -b" tmp_dir unit_and_name drop& " "&zipname&
  30.     " @"tmp_filename&&execute"del "tmp_filename&exec
  31. )delete.zip!
  32. |
  33. ( tmp_dir"tmp.$$$"& tmp_filename!"pkunzip -c -d "zipname&" "&zipdirname
  34.   current.name&&">"tmp_filename&&(exec)with_nomagic
  35.   tmp_filename pager tmp_filename unlink
  36. )browse.zip!
  37.