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

		# 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
	unset -nocomplain ::tclkit_system_encoding
}







|
<
|
<
>





|
<
|
<
>









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
	unset -nocomplain ::tclkit_system_encoding
}