Check-in [4a78bcbd8a]
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: 4a78bcbd8a9a7fcb6c82dffd64bb28b3954bdac7
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
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