Differences From Artifact [fcd5a93523]:
- File
kitsh/buildsrc/kitsh-0.0/boot.tcl
— part of check-in
[d5ed5900eb]
at
2011-05-28 23:53:40
on branch trunk
— Updated to only mount VFS once
Updated to always load "vfs" (user: rkeene, size: 5496) [annotate] [blame] [check-ins using] [more...]
To Artifact [cb5b693f08]:
- File kitsh/buildsrc/kitsh-0.0/boot.tcl — part of check-in [e2f0284dd2] at 2011-07-05 17:25:22 on branch trunk — Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly (user: rkeene, size: 5490) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
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 184 185 |
}
# 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
unset -nocomplain ::tclkit_system_encoding
}
|