KitCreator
Check-in [4b39e3862d]
Login
HomeDownloadsSource CodeTicketsWiki
Overview
Comment:Updated to only set the Tcl Module path if such a thing exists
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | set-tm-paths
Files: files | file ages | folders
SHA1: 4b39e3862d068dcf6c4097334c1e2f08b406e869
User & Date: rkeene on 2017-02-20 14:54:24
Other Links: branch diff | manifest | tags
Context
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-01-27
16:41
Updated to set Tcl Modules path to only inside the TclKit check-in: e5eb66b68e user: rkeene tags: set-tm-paths
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

︙
151
152
153
154
155
156
157

158
159



160
161
162
163
164
165
166

151
152
153
154
155
156
157
158


159
160
161
162
163
164
165
166
167
168








+
-
-
+
+
+








	# 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]
		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
︙

Powered by Fossil · RSS