
            #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
        PK    EïXX
g_ù  h  $  #modpod-Thread-2.8.9/Thread-2.8.9.tmÿÿ  ­WmoÛ6þ®_q³ƒ¾¤“ÚÃÐzÃÒ4)° MWdþ2d‚AKg›µD²$åØ1üßwGI¶œ´]Mh‘ˆº{î¹W^úÇà³‚F}¸RyTBe—Êy[e^j5€ÅÁÏ^‡'Y.—É„é@¨*‡ðØ”r	¥˜ãcÐœÍžóKÂø^Cerá&V—ð«™O‹Ç•,òZG6¿ôQŸ8|$[–iådŽ–¥š‚€·^0êÕåœ_…ÌP‘ä„N§	ÛyR+ðr,éWp+ý,°Ì´[9eBVÎuŽ´±8Ak1RªƒL(#`!§r\Ôf¤ÊŠŠÙÒo,]Èñ0œÓ¶d*5#²¹˜"X4ÚI¯íŠm>{Fÿ¾ë?	?9
'/N~
1yó®ÐSp*½ŸC<ç†3ò=‡“äUòšSÈr¦žø–À…¿=oCža8o¡ß©<Š%™ëÌk]8˜´ªÃ-DÔ¿)…2µÑ˜½lü•:¯
5^¾¨ýLI:Ófeåtæ¡Çqêñ™—¾À]ënX6) É—%*ë8†¢DpŠ»Îœàë	—5€wÀ(Vš ÇF'*5vÌ€gû¢£(< ¡.;¢ÄÇx@€?WÒbã*›˜ãêVÛÜAí6uˆð«V¤˜ª‡Án½ÿƒúo!ñv‡­›¦]3cñjÜjœkÆ»=6¦¾p];ÏqsÿÙ™»…U&±Ã°iHÇs*‡ñjçX!o*NÒlwH‰ˆvÜdˆ&Ã«äçø¡iVJá¦UX·’T1äUÿ>M¿ñ¸‡‘‚h€¹o3p&/Óÿ­
Î>^ØÁýÿ–'µ¢frÄÓÞª.DÑŽ±uÄÕï|\m©³nD|—o~á¯\‚ª›p55¢ Ù­oÑfÄ©Y+C_/WwQ}´ï8êÏúÃÖnÍ‡Â_Õet®)…+˜T*h¸p-4ÜÑNEå8‘JÁÞ `¬ÎÀ‰ÒøÖæ%;u›Öó¯Ñ¬±3vó†¬· T0¤†Ñ†âtªëÑC1­0I’ÓMšv‚#ÝE]Þ’ÙÉYô•UÐÓó^sº‰¶|)ˆÛ’Ü†q(ìŠ¥Z†ëæÀB>´ðÛ¦’…tAÐUï-“×ö0ºVW°^çÒ¶ù*=©&šêŒ„I¡Z<ž¿¿~wv1zùöúìú¯§)<zmo„‰,¸éE
ðè«ZÏ} Â;RÚÚäÇéÊfß©”6´©8t÷m×¯Ÿ4•ã9I¼¯tì~Éð¿kfõ@sìì’±« Û™Ìf”Zx0¨ÌB¯×5r_¤Ül»d‘Q¡NtÝ)µMÔDvš·{VøèÐƒÚšùŽ/…¡€Ùh¥ZhijMVMK²F)>Ñ¡
¤KkIÚ´Øù†yß,Ç)$)¼HwA Ý\_?¸¦BO;‹Gk³ÐQ°Cé²öj/}¯s1L%-øÁ,ÍÞ[yÙæmšÄç§[Â o½s¡”ö4t©‹[ƒ±3˜É‰Ìš¦;²	­¤d=Ô78¯kÒSQ0ïÞ6oaÕK„ÈWt¸mp®Šrkóæ[·Ìö~ ?FÚ…`ï¼‰þ6WÍ{35"š[õœŒ¾¾ËÖ·ô?PK     EïXX
g_ù  h  $             z  #modpod-Thread-2.8.9/Thread-2.8.9.tmPK      R   »    