Differences From Artifact [943ad6fb25]:
- File
kitsh/buildsrc/kitsh-0.0/kitInit.c
— part of check-in
[636da30116]
at
2010-09-26 04:39:19
on branch trunk
— Corrected check for mk4tcl to actually be functional
Removed support of "config.h" and started passing all defines on the command line (user: rkeene, size: 6095) [annotate] [blame] [check-ins using]
To Artifact [14eb71a613]:
- File
kitsh/buildsrc/kitsh-0.0/kitInit.c
— part of check-in
[44e0b4f94c]
at
2010-09-26 04:40:56
on branch trunk
— Added preliminary support for using a Tcl-based metakit reader (mk4tcl.tcl,
based off ReadKit) if Mk4tcl support not found
Updated mk4tcl to cleanup if build fails, to prevent false detection (user: rkeene, size: 6159) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
"info script $old\n"
"if {$code == 2} { set code 0 }\n"
"return -code $code $res\n"
"}\n"
#endif
"proc tclKitInit {} {\n"
"rename tclKitInit {}\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"
| > > > > | 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 |
"info script $old\n"
"if {$code == 2} { set code 0 }\n"
"return -code $code $res\n"
"}\n"
#endif
"proc tclKitInit {} {\n"
"rename tclKitInit {}\n"
#ifdef KIT_INCLUDES_MK4TCL
"catch { load {} Mk4tcl }\n"
#else
#include "mk4tcl.tcl.h"
#endif
"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"
|
| ︙ | ︙ |