#zip file with Tcl loader prepended. #generated using modpod::make_zip_modpod if {[catch {file normalize [info script]} modfile]} { error "modpod zip stub error. Unable to determine module path. (possible safe interp restrictions?)" } if {$modfile eq "" || ![file exists $modfile]} { error "modpod zip stub error. Unable to determine module path" } set moddir [file dirname $modfile] set mod_and_ver [file rootname [file tail $modfile]] lassign [split $mod_and_ver -] moduletail version if {[file exists $moddir/#modpod-$mod_and_ver]} { source $moddir/#modpod-$mod_and_ver/$mod_and_ver.tm } else { if {![file exists $moddir/#mounted-modpod-$mod_and_ver]} { if {[catch {package require vfs::zip} errM]} { set msg "Unable to load vfs::zip package to mount module $mod_and_ver" append msg \n "If vfs::zip is unavailable - the module can still be loaded by manually unzipping the file $modfile in place." append msg \n "The unzipped data will all be contained in a folder named #modpod-$mod_and_ver in the same parent folder as $ } set fd [vfs::zip::Mount $modfile $moddir/#mounted-modpod-$mod_and_ver] if {![file exists $moddir/#mounted-modpod-$mod_and_ver/#modpod-$mod_and_ver/$mod_and_ver.tm]} { vfs::zip::Unmount $fd $moddir/#mounted-modpod-$mod_and_ver error "Unable to find #modpod-$mod_and_ver/$mod_and_ver.tm in $modfile" } } source $moddir/#mounted-modpod-$mod_and_ver/#modpod-$mod_and_ver/$mod_and_ver.tm } #zipped data follows PK<,yl ##modpod-zipper-0.1.0/zipper-0.11.tmVo6~#I1gi)@KE4hw< w; (8FmSSѨf#[sUQ\b>$+aVJR eF=c4I3u#/;[!<WLጩRh3#6yz]_Dޥ!6(J_Bд4#9Xo`j`FTVf522!~b@zk4Le%}zhz`Uڈ hVI 1O YɀCe5l!kh`ÚB4#ytIQn<&Oa^W컶twX>*7;PK h;{K{qZu$B-Bϲr^6=oFϡ9)!ِqşKҝ[?o|עs^$@saR_s_'b*)FK59aI/PK<,yl # }#modpod-zipper-0.1.0/zipper-0.11.tmPK