D 2025-06-09T02:10:33.618
J assignee 
J icomment As\smentioned\son\sthe\sCore\slist,\sthe\sdefault\spath\sis\salso\swrong\son\smacOS.\r\nHowever,\son\smacOS\sthe\sscript\suses\s::tcl_pkgPath,\sbut\sthat\shas\sthe\ssame\r\nvalue\sas\sauto_path\son\smacOS\sand\sdoes\snot\sexist\son\sWindows.\r\n\r\nThe\sscript\swould\swork\scorrectly\son\smacOS\sif\sit\sused\sthe\sfirst\spath\son\sthe\r\nauto_path\slist,\sinstead\sof\sthe\slast.\s\sOn\sWindows\sthe\scorrect\spath\sis\sthe\r\nlast\sone\son\sthe\sauto_path\slist,\sbut\sthe\sscript\sdoes\snot\suse\sauto_path\sat\r\nall.\r\n\r\nThe\sactual\scode\sis:\r\n\r\n\s\s\s\s\s\s\s\sif\s{[string\smatch\s[info\snameofexecutable]*\s[info\slibrary]]}\s{\r\n\s\s\s\s\s\s\s\s\s\s\s\s#\sStarkit\r\n\s\s\s\s\s\s\s\s\s\s\s\sset\slibdir\s[file\sjoin\s[file\sdirname\s[file\sdirname\s[info\snameofexecutable]]]\slib]\r\n\s\s\s\s\s\s\s\s}\selse\s{\r\n\s\s\s\s\s\s\s\s\s\s\s\s#\sUnwrapped.\r\n\s\s\s\s\s\s\s\s\s\s\s\sif\s{[catch\s{set\slibdir\s[lindex\s$::tcl_pkgPath\send]}]}\s{\r\n\s\s\s\s\s\s\s\s\s\s\s\s\s\s\s\sset\slibdir\s[file\sdirname\s[info\slibrary]]\r\n\s\s\s\s\s\s\s\s\s\s\s\s}\r\n\s\s\s\s\s\s\s\s}\r\n\r\nThe\scatch\sstatement\ssucceeds\son\smacOS,\sgiving\sthe\swrong\sanswer,\sand\sfails\r\non\sWindows\scausing\sthe\sresult\sof\s[info\slibrary]\sto\sbe\sused.\s\sOn\sWindows\r\n[info\slibrary]\sreturns\s//zipfs:/lib/tcl/tcl_library.\r\n\r\nThe\sdefault\svalues\sof\sauto_path\son\slinux,\swindows\sand\smacOS\s(with\sa\r\nframewor\sbuild)\sare\sas\sfollows\s(where\s$PREFIX\sis\sthe\sprefix\son\sunix\r\nand\sthe\svalue\sof\sINSTALLDIR\son\sWindows)\r\n\r\nlinux:\s//zipfs:/lib/tcl/tcl_library\s//zipfs:/lib/tcl\s$PREFIX/lib\r\n\r\nWindows:\s//zipfs:/lib/tcl/tcl_library\s//zipfs:/lib/tcl\s$PREFIX/lib\r\n\r\nmacOS:\s/Library/Frameworks/Tcl.framework/Versions/9.1/Resources/Scripts\r\n\s/Library/Frameworks/Tcl.framework/Versions/9.1/Resources\s/usr/local/lib\r\n\s$HOME/Library/Tcl\s/Library/Tcl\s$HOME/Library/Frameworks\r\n\s/Library/Frameworks\s/Library/Frameworks/Tk.framework/Versions\r\n\r\nFor\smacOS\smany\sof\sthose\spaths\swould\snever\scontain\sa\spackage,\sand\sare\r\nunlikely\sto\seven\sexist.\s\sBut\sthat\sis\smore\sof\sa\sTcl\sissue\sthan\sa\r\nTcllib\sissue.\r\n\r\nI\sthink\sthat\sone\ssolution\s(given\sthe\scurrent\sstate\sof\sthings)\swould\r\nbe\sto\suse\sthe\sfirst\sitem\sin\sthe\sauto_path\swhich\sdoes\snot\sbegin\swith\r\n"//zipfs:"\sas\sthe\sdefault\sinstallation\spath.\s\sThat\sis\sguaranteed\sto\r\nbe\sa\splace\swhere\sTcl\swill\slook,\sand\sit\sis\slikely\sto\salso\sbe\sa\swritable\r\ndirectory,\sat\sleast\sin\sthe\scase\swhere\sone\sis\srunning\sthe\sinstaller\sas\r\nroot\son\sa\sunix\ssystem.
J login marc_culler
J mimetype text/plain
J username Marc\sCuller
K e5f3dfc055cfd4cbd2928ff964413749f321c88e
U marc_culler
Z 57ce67e4611d6a0e9101ef1388a1510b