Overview
| Comment: | Merged in setting Tcl Module paths |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4a78bcbd8a9a7fcb6c82dffd64bb28b3 |
| User & Date: | rkeene on 2017-02-20 14:54:43 |
| Other Links: | manifest | tags |
Context
|
2017-03-30
| ||
| 04:37 | Updated to build Android/ARM kits as PIE check-in: 911b4864a6 user: rkeene tags: trunk | |
|
2017-02-20
| ||
| 14:54 | Merged in setting Tcl Module paths check-in: 4a78bcbd8a user: rkeene tags: trunk | |
| 14:54 | Updated to only set the Tcl Module path if such a thing exists Closed-Leaf check-in: 4b39e3862d user: rkeene tags: set-tm-paths | |
|
2017-02-14
| ||
| 02:10 | Updated to try harder to link to libssl when building TclTLS check-in: 8901d151f8 user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [f2b9d8ad84] to [139f21791e].
| ︙ | ︙ | |||
149 150 151 152 153 154 155 156 157 158 159 160 161 162 |
set ::starkit::tclkitroot $mountpoint
# Perform expected initialization
uplevel #0 [list source [file join $tcl_library init.tcl]]
# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
set auto_path $tcl_libPath
if {$::TCLKIT_TYPE == "kitdll"} {
# Set a maximum seek to avoid reading the entire file looking for a
# zip header
catch {
package require vfs::zip
set ::zip::max_header_seek 8192
| > > > > > > | 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 |
set ::starkit::tclkitroot $mountpoint
# Perform expected initialization
uplevel #0 [list source [file join $tcl_library init.tcl]]
# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
set auto_path $tcl_libPath
# Update Tcl Module system as well
if {[info command ::tcl::tm::path] ne ""} {
tcl::tm::path remove {*}[tcl::tm::path list]
tcl::tm::roots [file join $::starkit::tclkitroot lib]
}
if {$::TCLKIT_TYPE == "kitdll"} {
# Set a maximum seek to avoid reading the entire file looking for a
# zip header
catch {
package require vfs::zip
set ::zip::max_header_seek 8192
|
| ︙ | ︙ |