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

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

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








-
+

+
+
+
-
-
-
+
+
+
+



-
+

+
+
+
-
-
+
+
-
+








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


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

Powered by Fossil · RSS