home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
msh21.zip
/
MSHFILES.ZIP
/
ARJZIP.MSH
< prev
next >
Wrap
Text File
|
1992-08-13
|
4KB
|
139 lines
| Actions defined when the panel shows a zip or arj archive.
|
(panel.pattern dirpart current.name&"\\*.*"&panel.pattern!)extension_zip!
(extension_zip)extension_arj!
|
(panel.pattern panel.type cutfirst drop panel.type&)archive_name!
|
(panel.pattern panel.type cutlast swap drop dirpart dup
length dup 1>(2 swap substring)(drop drop "")ifelse
)archive_dirname!
|
( current.isdir
( panel.pattern dirpart
current.name ".." =
(dup length 1- 1 swap substring dirpart)
(current.name&)
ifelse
panel.pattern filepart makename
panel.pattern!
)
if
)cur_action.zip!
|
(cur_action.zip)cur_action.arj!
|
( panel.pattern dirpart
dup length 1- 1 swap substring dirpart
panel.pattern filepart makename
panel.pattern!
)go_up.zip!
|
(go_up.zip)go_up.arj!
|
(tmp_dir tempname)tmp_filename!
|
( tmp_filename swap archive_name&" "&archive_dirname&
current.name&">"&2 pick&(exec)with_nomagic
dup pager unlink
)browse_in_archive!
|
("pkunzip -c -d "browse_in_archive)browse.zip!
|
("arj p "browse_in_archive)browse.arj!
|
( tmp_filename ""
( archive_dirname swap&
panel.type ".zip"=
(("\\" cutfirst dup (dup)if)("/" swap & &)while)if || replace "\" by "/"
nl&& false current.selected!)foreachselected
2 pick write
)make_responsefile!
|
("delete from current archive:"nl&selected_list&ok
( make_responsefile
"pkzip -d -b" tmp_dir unit_and_name drop& " "&archive_name&" @"
&2 pick&execute unlink reread
)if
)delete.zip!
|
("delete from current archive:"nl&selected_list&ok
( make_responsefile
"arj d -w" tmp_dir& " "&archive_name&" !"
&2 pick&execute unlink reread
)if
)delete.arj!
|
("copy from current archive to "next_dir&":"&nl&selected_list&ok
( make_responsefile
"arj e " archive_name & " " & next_dir & "\\ !"
&2 pick&execute unlink reread_next
)if
)copy.arjto!
|
("copy from current archive to "next_dir&":"&nl&selected_list&ok
( make_responsefile
"pkunzip " archive_name & " "& next_dir&dup "\\" endsby("\\"&)ifnot
" @" &2 pick&execute unlink reread_next
)if
)copy.zipto!
|
("move from current archive to "next_dir&":"&nl&selected_list&ok
( make_responsefile
"arj e -d -w"tmp_dir& " "& archive_name & " " & next_dir & "\\ !"
&2 pick&execute unlink reread reread_next
)if
)move.arjto!
|
("move from current archive to "next_dir&":"&nl&selected_list&ok
( make_responsefile
"pkunzip " archive_name & " "& next_dir&"\\ @"
&2 pick&execute
"pkzip -d -b" tmp_dir unit_and_name drop& " "&archive_name&" @"
&2 pick&execute unlink reread reread_next
)if
)move.zipto!
|
((archive_dirname)in_next_panel dup
("warning"
"you can only move or copy files to the top level in an archive"message
)if
not
)test_top_level_in_archive!
|
(test_top_level_in_archive
("copy to archive "next_dir&":"&nl&selected_list&ok
( make_responsefile
"arj a -w"tmp_dir&" "&(archive_name)in_next_panel&" !"
&2 pick&execute unlink reread_next
)if
)if
)copyto.arj!
|
(test_top_level_in_archive
("copy to archive "next_dir&":"&nl&selected_list&ok
( make_responsefile
"pkzip -a -b"tmp_dir unit_and_name drop&" "&(archive_name)in_next_panel&" @"
&2 pick&execute unlink reread_next
)if
)if
)copyto.zip!
|
(test_top_level_in_archive
("move to archive "next_dir&":"&nl&selected_list&ok
( make_responsefile
"arj m -w"tmp_dir&" "&(archive_name)in_next_panel&" !"
&2 pick&execute unlink reread reread_next
)if
)if
)moveto.arj!
|
(test_top_level_in_archive
("move to archive "next_dir&":"&nl&selected_list&ok
( make_responsefile
"pkzip -m -b"tmp_dir unit_and_name drop&" "&(archive_name)in_next_panel&" @"
&2 pick&execute unlink reread reread_next
)if
)if
)moveto.zip!