package require zipvfs set f [vfs::zip::Mount myzip.zip myzip.zip]Now you can go into the myzip.zip directory (that is all emulated via tclvfs beautifully) and you can do all the regular things on files.[ Vince adds this feature is there so that a starkit can access all currently supported vfs types, these include ftp, http, webdav and zip --- if you do run into problems with these (bugs definitely remain) please do diagnose and provide patches to fix them --- it's all pure Tcl code]Wow your friends by unzipping without a zip program:
file copy myzip.zip unzipMy computer grinds for a bit then lookee lookee, I've uncompressed the zip file to an unzip/ dir.Then unmount the file with:
vfs::zip::Unmount $f myzip.zipAnd for the terminally curious:
# Used to execute a zip archive. This is rather like a jar file
# but simpler. We simply mount it and then source a toplevel
# file called 'main.tcl'.
proc vfs::zip::Execute {zipfile} {
etc...Sexy Starkits

