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