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
|
| ︙ | ︙ |