Check-in [e5eb66b68e]
Overview
Comment:Updated to set Tcl Modules path to only inside the TclKit
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | set-tm-paths
Files: files | file ages | folders
SHA1: e5eb66b68e63a815f7f724b2c998084554df7391
User & Date: rkeene on 2017-01-27 16:41:29
Other Links: branch diff | manifest | tags
Context
2017-02-20
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-01-27
16:41
Updated to set Tcl Modules path to only inside the TclKit check-in: e5eb66b68e user: rkeene tags: set-tm-paths
2016-12-28
21:42
Updated to NSF 2.1.0 release check-in: e0ab1dd8a7 user: ssoberni tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [f2b9d8ad84] to [8c1638de2d].

150
151
152
153
154
155
156




157
158
159
160
161
162
163
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167







+
+
+
+








	# 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
	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
		}