punkshell/src/vendormodules/Thread-2.8.9.tm

            #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 {
                #determine module namespace so we can mount appropriately
                proc intersect {A B} {
                    if {[llength $A] == 0} {return {}}
                    if {[llength $B] == 0} {return {}}
                    if {[llength $B] > [llength $A]} {
                        set res $A
                        set A $B
                        set B $res
                    }
                    set res {}
                    foreach x $A {set ($x) {}}
                    foreach x $B {
                        if {[info exists ($x)]} {
                            lappend res $x
                        }
                    }
                    return $res
                }
                set lcase_tmfile_segments [string tolower [file split $moddir]]
                set lcase_modulepaths     [string tolower [tcl::tm::list]]
                foreach lc_mpath $lcase_modulepaths {
                    set mpath_segments [file split $lc_mpath]
                    if {[llength [intersect $lcase_tmfile_segments $mpath_segments]] == [llength $mpath_segments]} {
                        set tail_segments [lrange [file split $moddir] [llength $mpath_segments] end] ;#use propertly cased tail
                        break
                    }
                }
                if {[llength $tail_segments]} {
                    set fullpackage [join [concat $tail_segments $moduletail] ::] ;#full name of package as used in package require
                    set mount_at #modpod/[file join {*}$tail_segments]/#mounted-modpod-$mod_and_ver
                } else {
                    set fullpackage $moduletail
                    set mount_at #modpods/#mounted-modpod-$mod_and_ver
                }

                if {[info commands tcl::zipfs::mount] ne ""} {
                    #argument order changed to be consistent with vfs::zip::Mount etc
                    #early versions: zipfs::Mount mountpoint zipname
                    #since 2023-09:  zipfs::Mount zipname mountpoint
                    #don't use 'file exists' when testing mountpoints. (some versions at least give massive delays on non-existance)
                    set mountpoints [dict keys [tcl::zipfs::mount]]
                    if {"//zipfs:/$mount_at" ni $mountpoints} {
                        #despite API change tcl::zipfs package version was unfortunately not updated - so we don't know argument order without trying it 
                        if {[catch {
                            #tcl::zipfs::mount $modfile //zipfs:/#mounted-modpod-$mod_and_ver ;#extremely slow if this is a wrong guess (artifact of aforementioned file exists issue ?)
                            puts "tcl::zipfs::mount $modfile $mount_at"
                            tcl::zipfs::mount $modfile $mount_at 
                        } errM]} {
                            #try old api
                            puts stderr ">>> tcl::zipfs::mount //zipfs://$mount_at  $modfile"
                            tcl::zipfs::mount //zipfs:/$mount_at $modfile
                        }
                        if {![file exists //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} {
                            puts stderr "zipfs mounts: [zipfs mount]"
                            #tcl::zipfs::unmount  //zipfs:/$mount_at
                            error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage"
                        }
                    } 
                    #  #modpod-$mod_and_ver subdirectory always present in the archive so it can be conveniently extracted and run in that form
                    source //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm
                } else {
                    #fallback to slower vfs::zip
                    #NB. We don't create the intermediate dirs - but the mount still works 
                    if {![file exists $moddir/$mount_at]} {
                        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/$mount_at]
                        if {![file exists $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} {
                            vfs::zip::Unmount $fd $moddir/$mount_at
                            error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage"
                        }
                    }
                    source $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm
                }
            }
            #zipped data follows
        PKE<EFBFBD>XX
g_<EFBFBD>h
$#modpod-Thread-2.8.9/Thread-2.8.9.tm<EFBFBD><EFBFBD>
<EFBFBD>Wmo<EFBFBD>6<EFBFBD><EFBFBD>_q<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>z<EFBFBD><EFBFBD>4)<EFBFBD>MWd<EFBFBD>2d<EFBFBD>AKg<EFBFBD><EFBFBD>D<EFBFBD>$<EFBFBD><EFBFBD>1<EFBFBD><EFBFBD>wGI<EFBFBD><EFBFBD><EFBFBD>]<EFBFBD>Mh<EFBFBD><EFBFBD><EFBFBD>{<EFBFBD><EFBFBD>W^<EFBFBD><EFBFBD>ೂF}<EFBFBD>RyTBe<EFBFBD><EFBFBD>y[e^j5<EFBFBD><EFBFBD><EFBFBD><EFBFBD>^<EFBFBD>'Y.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>@<EFBFBD>*<EFBFBD><EFBFBD>ؔr	<EFBFBD><EFBFBD><EFBFBD>c<EFBFBD><EFBFBD>͞<EFBFBD>K<EFBFBD><EFBFBD>^Cer<EFBFBD>&V<EFBFBD><EFBFBD><EFBFBD><EFBFBD>O<EFBFBD>Ǖ,<EFBFBD>ZG6<EFBFBD><EFBFBD>Q<EFBFBD>8|$[<EFBFBD>i<EFBFBD>d<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^0<EFBFBD><EFBFBD><EFBFBD><EFBFBD>_<EFBFBD><EFBFBD>P<EFBFBD><EFBFBD><EFBFBD>N<EFBFBD>	<EFBFBD>yR+<EFBFBD><EFBFBD>r,<EFBFBD>Wp+<EFBFBD>,<EFBFBD>̴[9<EFBFBD>eBV<EFBFBD>u<EFBFBD>
<EFBFBD><EFBFBD>8Ak1R
<EFBFBD><EFBFBD>L(#`!<EFBFBD>r\<EFBFBD>f<EFBFBD>ʊ<EFBFBD><EFBFBD><EFBFBD>o,]<EFBFBD><EFBFBD><EFBFBD>0<EFBFBD>ӏ<EFBFBD>d*5#<EFBFBD><EFBFBD><EFBFBD>"X4<EFBFBD>I<EFBFBD><EFBFBD><EFBFBD>m>{F<EFBFBD><EFBFBD><EFBFBD>?	?9
'/N~
1y<EFBFBD><EFBFBD><EFBFBD>Sp*<EFBFBD><EFBFBD>C<<EFBFBD><EFBFBD>3<EFBFBD>=<EFBFBD><EFBFBD><EFBFBD>U<EFBFBD><EFBFBD>S<EFBFBD>r<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=oC<EFBFBD>a8o<EFBFBD>ߩ<<EFBFBD>%<EFBFBD><EFBFBD><EFBFBD>k]8<EFBFBD><EFBFBD><EFBFBD><EFBFBD>-DԿ)<EFBFBD>2<EFBFBD>ј<EFBFBD>l<EFBFBD><EFBFBD>:<EFBFBD>
5^<EFBFBD><EFBFBD><EFBFBD>LI:<EFBFBD>fe<EFBFBD>t<EFBFBD><EFBFBD><EFBFBD>q<EFBFBD>񙗾<EFBFBD>]<EFBFBD>nX6)ɗ%*<EFBFBD>8<EFBFBD><EFBFBD>Dp<EFBFBD><EFBFBD>Μ<EFBFBD><EFBFBD>	<EFBFBD>5<EFBFBD>w<EFBFBD>(V<EFBFBD> <EFBFBD>F'*5v̀<EFBFBD>g<EFBFBD><EFBFBD><EFBFBD>(< <EFBFBD>.;<EFBFBD><EFBFBD><EFBFBD>x@<EFBFBD>?W<EFBFBD>b<EFBFBD>*<EFBFBD><EFBFBD><EFBFBD><EFBFBD>V<EFBFBD><EFBFBD>A<EFBFBD>6u<EFBFBD><EFBFBD><EFBFBD>V<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>n<EFBFBD><EFBFBD><EFBFBD><EFBFBD>o!<EFBFBD>v<EFBFBD><EFBFBD><EFBFBD><EFBFBD>]3c<EFBFBD>j<EFBFBD>j<EFBFBD>kƻ=6<EFBFBD><EFBFBD>p];<EFBFBD>qs<EFBFBD>ٙ<EFBFBD>
<EFBFBD>U&<EFBFBD>ðiH<EFBFBD>s*<EFBFBD><EFBFBD>j<EFBFBD>X!<EFBFBD>o*N<EFBFBD>l<EFBFBD>wH<EFBFBD><EFBFBD>v
<EFBFBD>d<EFBFBD>&ë<EFBFBD><EFBFBD><EFBFBD><EFBFBD>iVJ<EFBFBD><EFBFBD>UX<EFBFBD><EFBFBD>T1<EFBFBD>U<EFBFBD>>M<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>h<EFBFBD><EFBFBD>o3p&/<EFBFBD><EFBFBD><EFBFBD>
<EFBFBD>>^<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'<EFBFBD><EFBFBD>fr<EFBFBD><EFBFBD>ު
.Dю<EFBFBD>u<EFBFBD>
<EFBFBD><EFBFBD>|\m<EFBFBD><EFBFBD>nD|<EFBFBD>o~<EFBFBD><EFBFBD>\<EFBFBD><EFBFBD><EFBFBD>p55<EFBFBD><EFBFBD>٭o<EFBFBD>fĩY+C_/WwQ}<EFBFBD><EFBFBD>8<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>n͇<EFBFBD>_<EFBFBD>et<EFBFBD>)<EFBFBD>+<EFBFBD>T*h<EFBFBD>p-4<EFBFBD><EFBFBD>NE<EFBFBD>8<EFBFBD>J<EFBFBD><EFBFBD> `<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>%;u<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѭ<EFBFBD>3v󆬷T0<EFBFBD><EFBFBD>ц<EFBFBD>t<EFBFBD><EFBFBD><EFBFBD>C1<EFBFBD>0I<EFBFBD><EFBFBD>M<EFBFBD>v<EFBFBD>#<EFBFBD>E]ޒ<EFBFBD><EFBFBD>Y<EFBFBD><EFBFBD>U<EFBFBD><EFBFBD><EFBFBD>^s<EFBFBD><EFBFBD><EFBFBD>|)<EFBFBD>ے<EFBFBD><EFBFBD>q<EFBFBD>(슥
Z<EFBFBD><EFBFBD><EFBFBD><EFBFBD>B><EFBFBD><EFBFBD>ۦ<EFBFBD><EFBFBD>tA<EFBFBD>U<EFBFBD>-<EFBFBD><EFBFBD><EFBFBD>0<EFBFBD>VW<EFBFBD>^<EFBFBD>Ҷ<EFBFBD><EFBFBD>*=<EFBFBD>&<EFBFBD>ꌄI<EFBFBD>Z<<EFBFBD><EFBFBD>
<EFBFBD>~wv1z<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)<zmo<EFBFBD><EFBFBD>,<EFBFBD><EFBFBD>E
<EFBFBD><EFBFBD><EFBFBD>Z<EFBFBD>} <EFBFBD>;R<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>fߩ<EFBFBD>6<EFBFBD><EFBFBD>8t<EFBFBD>mׯ<EFBFBD>4<EFBFBD><EFBFBD>9I<EFBFBD><EFBFBD>t<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>kf<EFBFBD>@s<EFBFBD>쒱<EFBFBD><EFBFBD>ۙ<EFBFBD>f<EFBFBD><EFBFBD>Zx0<EFBFBD><EFBFBD>B<EFBFBD><EFBFBD>5r_<EFBFBD><EFBFBD><EFBFBD>l<EFBFBD>d<EFBFBD>Q<EFBFBD>Nt<EFBFBD>)<EFBFBD>M<EFBFBD>Dv<EFBFBD><EFBFBD>{V<EFBFBD><EFBFBD>Ѓ<EFBFBD>ښ<EFBFBD><EFBFBD>/<EFBFBD><EFBFBD><EFBFBD><EFBFBD>h<EFBFBD>ZhijMVMK<EFBFBD>F)><EFBFBD><EFBFBD>
<EFBFBD>KkIڴ<EFBFBD><EFBFBD><EFBFBD>y<EFBFBD>,<EFBFBD>)$)<EFBFBD>HwA<EFBFBD>ݏ\_?<EFBFBD><EFBFBD>BO
;<EFBFBD>Gk<EFBFBD><EFBFBD>Q<EFBFBD>C<EFBFBD><EFBFBD><EFBFBD>j/
}<EFBFBD>s
1L%-<EFBFBD><EFBFBD>,<EFBFBD><EFBFBD>[y<EFBFBD><EFBFBD>m<EFBFBD><EFBFBD><EFBFBD><EFBFBD>[ o<EFBFBD>s<EFBFBD><EFBFBD><EFBFBD>4t<EFBFBD><EFBFBD>[<EFBFBD><EFBFBD>3<EFBFBD>ɉ̚<EFBFBD>;<EFBFBD>	<EFBFBD><EFBFBD>d=<EFBFBD>78<EFBFBD>k<EFBFBD>SQ0<EFBFBD><EFBFBD>6oa<EFBFBD>K<EFBFBD><EFBFBD>Wt<EFBFBD>mp<EFBFBD><EFBFBD>rk<EFBFBD><EFBFBD>[<EFBFBD><EFBFBD><EFBFBD>~<EFBFBD>?Fڅ`）<EFBFBD>6W<EFBFBD>{35"<EFBFBD>[<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>?PK
E<EFBFBD>XX
g_<EFBFBD>h
$z#modpod-Thread-2.8.9/Thread-2.8.9.tmPK

R<EFBFBD>