Check-in [4a78bcbd8a]
Overview
SHA1:4a78bcbd8a9a7fcb6c82dffd64bb28b3954bdac7
Date: 2017-02-20 14:54:43
User: rkeene
Comment:Merged in setting Tcl Module paths
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2017-03-30
04:37
[911b4864a6] Updated to build Android/ARM kits as PIE (user: rkeene, tags: trunk)
2017-02-20
14:54
[4a78bcbd8a] Merged in setting Tcl Module paths (user: rkeene, tags: trunk)
14:54
[4b39e3862d] Closed-Leaf: Updated to only set the Tcl Module path if such a thing exists (user: rkeene, tags: set-tm-paths)
2017-02-14
02:10
[8901d151f8] Updated to try harder to link to libssl when building TclTLS (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