Differences From 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]
To Artifact [40729608ac]:
- File kitsh/buildsrc/kitsh-0.0/kitInit.c — part of check-in [5a3882c8f0] at 2010-09-26 04:42:04 on branch trunk — Updated to always make registry/dde packages available to Windows rather than creating a "package ifneeded" entry -- this fixes the issue with mismatched versions on Tcl 8.5+ (user: rkeene, size: 6112) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
95 96 97 98 99 100 101 |
"} else {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
"uplevel #0 $s\n"
#ifdef _WIN32
| | | | 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
"} else {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
"uplevel #0 $s\n"
#ifdef _WIN32
"catch {load {} dde}\n"
"catch {load {} registry}\n"
#endif
"}\n"
"tclKitInit"
;
static const char initScript[] =
"if {[file isfile [file join [info nameofexe] main.tcl]]} {\n"
|
| ︙ | ︙ |