Overview
Comment: | Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
e2f0284dd27e3cee22d4647f9740cb59 |
User & Date: | rkeene on 2011-07-05 17:25:22 |
Other Links: | manifest | tags |
Context
2011-07-05
| ||
17:26 | Updated to not attempt to download source if "buildsrc" directory is being used for Tcl/Tk check-in: 361d408d67 user: rkeene tags: trunk | |
17:25 | Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly check-in: e2f0284dd2 user: rkeene tags: trunk | |
2011-07-04
| ||
21:15 | Added support for forcing build check-in: 37fc9e9fae user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [fcd5a93523] to [cb5b693f08].
︙ | ︙ | |||
159 160 161 162 163 164 165 | } # Now that the initialization is complete, mount the user VFS if needed ## Mount the VFS from the Shared Object if {[info exists ::TCLKIT_INITVFS] && [info exists ::tclKitFilename]} { catch { vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER" | | < | < > | < | < > | 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 | } # Now that the initialization is complete, mount the user VFS if needed ## Mount the VFS from the Shared Object if {[info exists ::TCLKIT_INITVFS] && [info exists ::tclKitFilename]} { catch { vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER" } } lappend auto_path "/.KITDLL_USER/lib" ## Mount the VFS from executable if {[info exists ::TCLKIT_INITVFS]} { catch { vfs::zip::Mount [info nameofexecutable] "/.KITDLL_APP" } } lappend auto_path "/.KITDLL_APP/lib" } # Clean up unset -nocomplain ::zip::max_header_seek unset -nocomplain ::TCLKIT_TYPE ::TCLKIT_INITVFS unset -nocomplain ::TCLKIT_MOUNTPOINT ::TCLKIT_VFSSOURCE ::TCLKIT_MOUNTPOINT_VAR ::TCLKIT_VFSSOURCE_VAR unset -nocomplain ::tclKitStorage ::tclKitStorage_fd ::tclKitFilename |
︙ | ︙ |