Differences From 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]
To 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]
| ︙ | ︙ | |||
33 34 35 36 37 38 39 | #include "tclInt.h" #ifdef KIT_INCLUDES_ITCL Tcl_AppInitProc Itcl_Init; #endif #ifdef KIT_INCLUDES_MK4TCL | | | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | #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; |
| ︙ | ︙ | |||
185 186 187 188 189 190 191 |
if (Tcl_Eval(interp, initScript) == TCL_OK) {
Tcl_Obj* path;
#ifdef HAVE_TCLSETSTARTUPSCRIPTPATH
path = TclGetStartupScriptPath();
TclSetStartupScriptPath(Tcl_GetObjResult(interp));
#else
# ifdef HAVE_TCL_SETSTARTUPSCRIPT
| | | | 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 |
if (Tcl_Eval(interp, initScript) == TCL_OK) {
Tcl_Obj* path;
#ifdef HAVE_TCLSETSTARTUPSCRIPTPATH
path = TclGetStartupScriptPath();
TclSetStartupScriptPath(Tcl_GetObjResult(interp));
#else
# ifdef HAVE_TCL_SETSTARTUPSCRIPT
path = Tcl_GetStartupScript(NULL);
Tcl_SetStartupScript(Tcl_GetObjResult(interp), NULL);
# endif
#endif
if (path == NULL)
Tcl_Eval(interp, "incr argc -1; set argv [lrange $argv 1 end]");
}
Tcl_SetVar(interp, "errorInfo", "", TCL_GLOBAL_ONLY);
|
| ︙ | ︙ |