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
		}

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


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

				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







|
<
|
<
>





|
<
|
<
>







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
		}

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

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

		}

		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