Differences From Artifact [04b049978f]:
- File kitsh/buildsrc/kitsh-0.0/kitInit.c — part of check-in [399b8095e3] at 2010-09-26 04:38:35 on branch trunk — Updated to use public interface for SetStartupScript/GetStartupScript if it is found, otherwise use the old interface. (user: rkeene, size: 6002) [annotate] [blame] [check-ins using]
To Artifact [9210ecc7cd]:
- File
kitsh/buildsrc/kitsh-0.0/kitInit.c
— part of check-in
[ea89461e7c]
at
2010-09-26 04:38:55
on branch trunk
— Updated to check for define subprojects working as found
Updated to only link against C++ libs if Mk4tcl worked
Updated to check for MK4TCL available before referencing it
Added SunStudio C++ libraries (user: rkeene, size: 6095) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
32 33 34 35 36 37 38 | #endif #include "tclInt.h" #ifdef KIT_INCLUDES_ITCL Tcl_AppInitProc Itcl_Init; #endif | > | > > | 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #endif #include "tclInt.h" #ifdef KIT_INCLUDES_ITCL Tcl_AppInitProc Itcl_Init; #endif #ifdef KIT_INCLUDES_MK4TCL Tcl_AppInitProc Mk4tcl_Init #endif Tcl_AppInitProc Vfs_Init, Rechan_Init, Zlib_Init; #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85 Tcl_AppInitProc Pwb_Init; #endif #ifdef TCL_THREADS Tcl_AppInitProc Thread_Init; #endif #ifdef _WIN32 |
| ︙ | ︙ | |||
71 72 73 74 75 76 77 |
"info script $old\n"
"if {$code == 2} { set code 0 }\n"
"return -code $code $res\n"
"}\n"
#endif
"proc tclKitInit {} {\n"
"rename tclKitInit {}\n"
| | | 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"
|
| ︙ | ︙ | |||
129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
int
TclKit_AppInit(Tcl_Interp *interp)
{
#ifdef KIT_INCLUDES_ITCL
Tcl_StaticPackage(0, "Itcl", Itcl_Init, NULL);
#endif
Tcl_StaticPackage(0, "Mk4tcl", Mk4tcl_Init, NULL);
#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85
Tcl_StaticPackage(0, "pwb", Pwb_Init, NULL);
#endif
Tcl_StaticPackage(0, "rechan", Rechan_Init, NULL);
Tcl_StaticPackage(0, "vfs", Vfs_Init, NULL);
Tcl_StaticPackage(0, "zlib", Zlib_Init, NULL);
#ifdef TCL_THREADS
| > > | 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 |
int
TclKit_AppInit(Tcl_Interp *interp)
{
#ifdef KIT_INCLUDES_ITCL
Tcl_StaticPackage(0, "Itcl", Itcl_Init, NULL);
#endif
#ifdef KIT_INCLUDES_MK4TCL
Tcl_StaticPackage(0, "Mk4tcl", Mk4tcl_Init, NULL);
#endif
#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85
Tcl_StaticPackage(0, "pwb", Pwb_Init, NULL);
#endif
Tcl_StaticPackage(0, "rechan", Rechan_Init, NULL);
Tcl_StaticPackage(0, "vfs", Vfs_Init, NULL);
Tcl_StaticPackage(0, "zlib", Zlib_Init, NULL);
#ifdef TCL_THREADS
|
| ︙ | ︙ |