Overview
| Comment: | Updated to not remount TclKit VFS in initialization |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c7d604dff88fda4e48e6ccc502f647d1 |
| User & Date: | rkeene on 2010-09-26 04:49:20 |
| Other Links: | manifest | tags |
Context
|
2010-09-26
| ||
| 04:49 | Fixed issue with opening directories returning wrong error check-in: 1955802108 user: rkeene tags: trunk | |
| 04:49 | Updated to not remount TclKit VFS in initialization check-in: c7d604dff8 user: rkeene tags: trunk | |
| 04:49 | Updated to not provide Tk package, since that is taken care of by Tk itself check-in: d589e2755f user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [dc3318ae4e] to [f2454b481f].
| ︙ | ︙ | |||
124 125 126 127 128 129 130 131 |
"set s [zlib decompress $s]\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
# include "zipvfs.tcl.h"
| > > > > | | | | | | | > | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 |
"set s [zlib decompress $s]\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
"if {[lsearch -exact [vfs::filesystem info] [info nameofexecutable]] != -1} {"
"set s \"\"\n"
"}\n"
"if {![info exists s]} {\n"
# include "zipvfs.tcl.h"
"catch {\n"
"set ::tclKitStorage_fd [::zip::open [info nameofexecutable]]\n"
"} err\n"
"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
"catch {\n"
"seek $::tclKitStorage_fd $sb(ino)\n"
"zip::Data $::tclKitStorage_fd sb s\n"
"}\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_ZIP */
"if {![info exists s]} {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
|
| ︙ | ︙ |