Check-in [439e033536]
Overview
SHA1:439e0335369838b1f421caa10c5f5bc838144ec3
Date: 2016-03-30 16:18:40
User: rkeene
Comment:For KitDLL, only add _APP and _USER to auto_path if they can be mounted and then later found
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2016-04-08
14:30
[049a34d925] Updated to use "openssl dgst" instead of just "openssl <hashName>" for compatability with older versions of OpenSSL (user: rkeene, tags: trunk)
2016-03-30
16:18
[439e033536] For KitDLL, only add _APP and _USER to auto_path if they can be mounted and then later found (user: rkeene, tags: trunk)
2016-03-28
15:04
[e8d1d8183a] Updated to tcc4tcl 0.26 (user: rkeene, tags: trunk)
Changes

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [63e41b84b9] to [f2b9d8ad84].

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
188
189
			package require vfs::zip
			set ::zip::max_header_seek 8192
		}

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







|

>
>
>
|
|
<
>
>



|

>
>
>
|
|
<
>









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
188
189
190
191
192
193
194
195
196
			package require vfs::zip
			set ::zip::max_header_seek 8192
		}

		# 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]} {
			if {![catch {
				vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER"
			}]} {
				if {[file exists "/.KITDLL_USER"]} {
					lappend auto_path [file normalize "/.KITDLL_USER/lib"]
				}
			}

		}


		## Mount the VFS from executable
		if {[info exists ::TCLKIT_INITVFS]} {
			if {![catch {
				vfs::zip::Mount [info nameofexecutable] "/.KITDLL_APP"
			}]} {
				if {[file exists "/.KITDLL_APP"]} {
					lappend auto_path [file normalize "/.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
}