48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
-
-
+
+
+
-
-
-
+
|
* The Init script (common to Windows and Unix platforms) is
* defined in tclInitScript.h
*/
#include "tclInitScript.h"
/*
* A pointer to a string that holds an alternate initialization script to the
* built-in initialization script defined in the file "generic/tclInitScript.h".
* A pointer to a string that holds an initialization script that if non-NULL
* is evaluated in Tcl_Init() prior to the the built-in initialization script
* that is defined in the file "generic/tclInitScript.h".
* The Tcl_Init() routine will evaluate this script if it contains a non-NULL
* value.
char * tclAlternateInitScript = NULL;
char * tclPreInitScript = NULL;
/*
* Static routines in this file:
*/
static void PlatformInitExitHandler _ANSI_ARGS_((ClientData clientData));
|
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
|
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
-
-
+
+
+
+
-
+
|
*----------------------------------------------------------------------
*/
int
Tcl_Init(interp)
Tcl_Interp *interp; /* Interpreter to initialize. */
{
if (tclAlternateInitScript != NULL) {
Tcl_Eval(interp, tclAlternateInitScript);
if (tclPreInitScript != NULL) {
if (Tcl_Eval(interp, tclPreInitScript) == TCL_ERROR) {
return (TCL_ERROR);
};
}
return Tcl_Eval(interp, initScript);
return(Tcl_Eval(interp, initScript));
}
/*
*----------------------------------------------------------------------
*
* Tcl_SourceRCFile --
*
|