Overview
| Comment: | For KitDLL, only add _APP and _USER to auto_path if they can be mounted and then later found |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
439e0335369838b1f421caa10c5f5bc8 |
| User & Date: | rkeene on 2016-03-30 16:18:40 |
| Other Links: | manifest | tags |
Context
|
2016-04-08
| ||
| 14:30 | Updated to use "openssl dgst" instead of just "openssl <hashName>" for compatability with older versions of OpenSSL check-in: 049a34d925 user: rkeene tags: trunk | |
|
2016-03-30
| ||
| 16:18 | For KitDLL, only add _APP and _USER to auto_path if they can be mounted and then later found check-in: 439e033536 user: rkeene tags: trunk | |
|
2016-03-28
| ||
| 15:04 | Updated to tcc4tcl 0.26 check-in: e8d1d8183a user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [63e41b84b9] to [f2b9d8ad84].
| ︙ | ︙ | |||
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 |
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
|
| ︙ | ︙ |