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"
|
>
>
>
<
|
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"
|