Check-in [6cd90bad17]
Overview
Comment:Corrected bug preventing Mk4tcl from being "package required" even if present
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6cd90bad17f7fdac78831e4acbff9c23bac96f38
User & Date: rkeene on 2010-09-26 04:44:24
Other Links: manifest | tags
Context
2010-09-26
04:44
KitCreator 0.3.3.x check-in: 577aa35ee0 user: rkeene tags: trunk, 0.3.3
04:44
Corrected bug preventing Mk4tcl from being "package required" even if present check-in: 6cd90bad17 user: rkeene tags: trunk
04:44
KitCreator 0.3.2.x check-in: 9f84562200 user: rkeene tags: trunk, 0.3.2
Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [512beccb11] to [55f719fa55].

86
87
88
89
90
91
92



93
94
95
96
97
98
99
100
101
102
	"info script $old\n"
	"if {$code == 2} { set code 0 }\n"
	"return -code $code $res\n"
"}\n"
#endif /* _WIN32_WCE */
"proc tclKitInit {} {\n"
	"rename tclKitInit {}\n"



#ifdef KIT_STORAGE_MK4
	"set ::tclKitStorage \"mk4\"\n"
	"catch { load {} Mk4tcl }\n"
	"mk::file open exe [info nameofexecutable] -readonly\n"
	"set n [mk::select exe.dirs!0.files name boot.tcl]\n"
	"if {$n != \"\"} {\n"
		"set s [mk::get exe.dirs!0.files!$n contents]\n"
		"if {![string length $s]} { error \"empty boot.tcl\" }\n"
		"catch {load {} zlib}\n"
		"if {[mk::get exe.dirs!0.files!$n size] != [string length $s]} {\n"







>
>
>


<







86
87
88
89
90
91
92
93
94
95
96
97

98
99
100
101
102
103
104
	"info script $old\n"
	"if {$code == 2} { set code 0 }\n"
	"return -code $code $res\n"
"}\n"
#endif /* _WIN32_WCE */
"proc tclKitInit {} {\n"
	"rename tclKitInit {}\n"
#ifdef KIT_INCLUDES_MK4TCL
	"catch { load {} Mk4tcl }\n"
#endif
#ifdef KIT_STORAGE_MK4
	"set ::tclKitStorage \"mk4\"\n"

	"mk::file open exe [info nameofexecutable] -readonly\n"
	"set n [mk::select exe.dirs!0.files name boot.tcl]\n"
	"if {$n != \"\"} {\n"
		"set s [mk::get exe.dirs!0.files!$n contents]\n"
		"if {![string length $s]} { error \"empty boot.tcl\" }\n"
		"catch {load {} zlib}\n"
		"if {[mk::get exe.dirs!0.files!$n size] != [string length $s]} {\n"