Check-in [e2f0284dd2]
Overview
Comment:Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e2f0284dd27e3cee22d4647f9740cb59b88c0da8
User & Date: rkeene on 2011-07-05 17:25:22
Other Links: manifest | tags
Context
2011-07-05
17:26
Updated to not attempt to download source if "buildsrc" directory is being used for Tcl/Tk check-in: 361d408d67 user: rkeene tags: trunk
17:25
Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly check-in: e2f0284dd2 user: rkeene tags: trunk
2011-07-04
21:15
Added support for forcing build check-in: 37fc9e9fae user: rkeene tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [fcd5a93523] to [cb5b693f08].

159
160
161
162
163
164
165
166

167
168

169

170
171
172
173
174
175

176
177

178

179
180
181
182
183
184
185
186
187
159
160
161
162
163
164
165

166


167

168
169
170
171
172
173

174


175

176
177
178
179
180
181
182
183
184
185







-
+
-
-
+
-
+





-
+
-
-
+
-
+









		}

		# Now that the initialization is complete, mount the user VFS if needed
		## Mount the VFS from the Shared Object
		if {[info exists ::TCLKIT_INITVFS] && [info exists ::tclKitFilename]} {
			catch {
				vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER"

			}
				lappend auto_path "/.KITDLL_USER/lib"
			}
		}
		}
		lappend auto_path "/.KITDLL_USER/lib"

		## Mount the VFS from executable
		if {[info exists ::TCLKIT_INITVFS]} {
			catch {
				vfs::zip::Mount [info nameofexecutable] "/.KITDLL_APP"

			}
				lappend auto_path "/.KITDLL_APP/lib"
			}
		}
		}
		lappend auto_path "/.KITDLL_APP/lib"
	}

	# Clean up
	unset -nocomplain ::zip::max_header_seek
	unset -nocomplain ::TCLKIT_TYPE ::TCLKIT_INITVFS
	unset -nocomplain ::TCLKIT_MOUNTPOINT ::TCLKIT_VFSSOURCE ::TCLKIT_MOUNTPOINT_VAR ::TCLKIT_VFSSOURCE_VAR
	unset -nocomplain ::tclKitStorage ::tclKitStorage_fd ::tclKitFilename
	unset -nocomplain ::tclkit_system_encoding
}