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
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
	"set ::tclKitStorage \"zip\"\n"
	"catch { load {} vfs }\n"
#  include "zipvfs.tcl.h"

	"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"

	"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"

		"seek $::tclKitStorage_fd $sb(ino)\n"
		"zip::Data $::tclKitStorage_fd sb s\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"







>
|
>

>
|
|
>







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