Diff

Differences From Artifact [63e41b84b9]:

To Artifact [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
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]} {
			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
	unset -nocomplain ::tclkit_system_encoding
}