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: |
6cd90bad17f7fdac78831e4acbff9c23 |
| 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 |
"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"
| > > > < | 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"
|
| ︙ | ︙ |