Check-in [ede635a763]
Overview
Comment:Fixed issue causing kit initialization failure when not boot strapping
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ede635a763cd2fbb8d22ae01ece3d0795c5ea666
User & Date: rkeene on 2010-09-26 04:45:08
Other Links: manifest | tags
Context
2010-09-26
04:45
KitCreator 0.3.4.x check-in: 3f98704439 user: rkeene tags: trunk, 0.3.4
04:45
Fixed issue causing kit initialization failure when not boot strapping check-in: ede635a763 user: rkeene tags: trunk
04:45
Fixed result message for storage when not specified check-in: f71575204d user: rkeene tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [55f719fa55] to [87800da22f].

106
107
108
109
110
111
112

113


114

115
116



117
118
119
120
121
122
123
106
107
108
109
110
111
112
113

114
115
116
117


118
119
120
121
122
123
124
125
126
127







+
-
+
+

+
-
-
+
+
+







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