KitCreator
Check-in [c7d604dff8]
Login
HomeDownloadsSource CodeTicketsWiki
Overview
Comment:Updated to not remount TclKit VFS in initialization
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c7d604dff88fda4e48e6ccc502f647d1c81d9f22
User & Date: rkeene on 2010-09-26 04:49:20
Other Links: manifest | tags
Context
2010-09-26
04:49
Fixed issue with opening directories returning wrong error check-in: 1955802108 user: rkeene tags: trunk
04:49
Updated to not remount TclKit VFS in initialization check-in: c7d604dff8 user: rkeene tags: trunk
04:49
Updated to not provide Tk package, since that is taken care of by Tk itself check-in: d589e2755f user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [dc3318ae4e] to [f2454b481f].

︙
124
125
126
127
128
129
130




131
132
133
134
135
136
137
138








139
140
141
142
143
144
145

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"
	"}\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"
		"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"
︙

Powered by Fossil · RSS