Differences From Artifact [63e41b84b9]:
- File
kitsh/buildsrc/kitsh-0.0/boot.tcl
— part of check-in
[49d6a04e90]
at
2011-07-19 19:08:27
on branch trunk
— Updated to not force setting of starkit::topdir, this would break starkits
Updated zipseek test to use $tcl_library to find Tclkit root (user: rkeene, size: 5610) [annotate] [blame] [check-ins using]
To Artifact [f2b9d8ad84]:
- File kitsh/buildsrc/kitsh-0.0/boot.tcl — part of check-in [439e033536] at 2016-03-30 16:18:40 on branch trunk — For KitDLL, only add _APP and _USER to auto_path if they can be mounted and then later found (user: rkeene, size: 5774) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
161 162 163 164 165 166 167 |
package require vfs::zip
set ::zip::max_header_seek 8192
}
# 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]} {
| | > > > | | > | | > > > | | < > | 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 186 187 188 189 190 191 192 193 194 195 196 |
package require vfs::zip
set ::zip::max_header_seek 8192
}
# 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]} {
if {![catch {
vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER"
}]} {
if {[file exists "/.KITDLL_USER"]} {
lappend auto_path [file normalize "/.KITDLL_USER/lib"]
}
}
}
## Mount the VFS from executable
if {[info exists ::TCLKIT_INITVFS]} {
if {![catch {
vfs::zip::Mount [info nameofexecutable] "/.KITDLL_APP"
}]} {
if {[file exists "/.KITDLL_APP"]} {
lappend auto_path [file normalize "/.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
}
|