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

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







>
>
>
>







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
		}