Differences From 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]
To Artifact [f0bdde86c9]:
- File
kitsh/buildsrc/kitsh-0.0/kitInit.c
— part of check-in
[096098536d]
at
2010-09-26 04:42:20
on branch trunk
— Updated to implement "vfs::mkcl" using Readkit
Updated local Readkit implementation to not attempt to replace Mk4tcl (user: rkeene, size: 6275) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
76 77 78 79 80 81 82 83 84 85 |
"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
| > > | | | | | 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 |
"return -code $code $res\n"
"}\n"
#endif
"proc tclKitInit {} {\n"
"rename tclKitInit {}\n"
#ifdef KIT_INCLUDES_MK4TCL
"catch { load {} Mk4tcl }\n"
"set ::tclkitMkNamespace \"mk\"\n"
#else
#include "mk4tcl.tcl.h"
"set ::tclkitMkNamespace \"readkit\"\n"
#endif
"${::tclkitMkNamespace}::file open exe [info nameofexecutable] -readonly\n"
"set n [${::tclkitMkNamespace}::select exe.dirs!0.files name boot.tcl]\n"
"if {$n != \"\"} {\n"
"set s [${::tclkitMkNamespace}::get exe.dirs!0.files!$n contents]\n"
"if {![string length $s]} { error \"empty boot.tcl\" }\n"
"catch {load {} zlib}\n"
"if {[${::tclkitMkNamespace}::get exe.dirs!0.files!$n size] != [string length $s]} {\n"
"set s [zlib decompress $s]\n"
"}\n"
"} else {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
|
| ︙ | ︙ |