Diff

Differences From Artifact [dc3318ae4e]:

To Artifact [f2454b481f]:


124
125
126
127
128
129
130




131
132
133
134
135
136
137
138

139
140
141
142
143
144
145
			"set s [zlib decompress $s]\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
	"set ::tclKitStorage \"zip\"\n"
	"catch { load {} vfs }\n"




#  include "zipvfs.tcl.h"
	"catch {\n"
		"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"
	"}\n"
	"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
		"catch {\n"
			"seek $::tclKitStorage_fd $sb(ino)\n"
			"zip::Data $::tclKitStorage_fd sb s\n"

		"}\n"
	"}\n"
#endif /* KIT_STORAGE_ZIP */
	"if {![info exists s]} {\n"
		"set f [open setup.tcl]\n"
		"set s [read $f]\n"
		"close $f\n"







>
>
>
>

|
|
|
|
|
|
|
>







124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
			"set s [zlib decompress $s]\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
	"set ::tclKitStorage \"zip\"\n"
	"catch { load {} vfs }\n"
	"if {[lsearch -exact [vfs::filesystem info] [info nameofexecutable]] != -1} {"
		"set s \"\"\n"
	"}\n"
	"if {![info exists s]} {\n"
#  include "zipvfs.tcl.h"
		"catch {\n"
			"set ::tclKitStorage_fd [::zip::open [info nameofexecutable]]\n"
		"} err\n"
		"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
			"catch {\n"
				"seek $::tclKitStorage_fd $sb(ino)\n"
				"zip::Data $::tclKitStorage_fd sb s\n"
			"}\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_ZIP */
	"if {![info exists s]} {\n"
		"set f [open setup.tcl]\n"
		"set s [read $f]\n"
		"close $f\n"