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    149   	set ::starkit::tclkitroot $mountpoint
   150    150   
   151    151   	# Perform expected initialization
   152    152   	uplevel #0 [list source [file join $tcl_library init.tcl]]
   153    153     
   154    154   	# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
   155    155   	set auto_path $tcl_libPath
          156  +
          157  +	# Update Tcl Module system as well
          158  +	if {[info command ::tcl::tm::path] ne ""} {
          159  +		tcl::tm::path remove {*}[tcl::tm::path list]
          160  +		tcl::tm::roots [file join $::starkit::tclkitroot lib]
          161  +	}
   156    162   
   157    163   	if {$::TCLKIT_TYPE == "kitdll"} {
   158    164   		# Set a maximum seek to avoid reading the entire file looking for a
   159    165   		# zip header
   160    166   		catch { 
   161    167   			package require vfs::zip
   162    168   			set ::zip::max_header_seek 8192