summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authorsuresh <suresh>1998-07-01 14:54:47 (GMT)
committersuresh <suresh>1998-07-01 14:54:47 (GMT)
commit969c2a47808f413a0176ba35f4df4ff3325e6feb (patch)
tree0501abb127a1a7a6ff2cfd9b82d681e8af74ae43 /unix
parente00df2e46ecfb6872608e2cb3d482fb10d4e32ef (diff)
downloadtcl-969c2a47808f413a0176ba35f4df4ff3325e6feb.zip
tcl-969c2a47808f413a0176ba35f4df4ff3325e6feb.tar.gz
tcl-969c2a47808f413a0176ba35f4df4ff3325e6feb.tar.bz2
Added definition of variable "tclAlternateInitScript" which is a globabl var-
iable and if set to a non-NULL value, will be evaluated just before the built-in script given in the file (variable) "generic/tclInitScript.h" ("initScript").
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixInit.c12
1 files changed, 12 insertions, 0 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c
index baff098..7d71544 100644
--- a/unix/tclUnixInit.c
+++ b/unix/tclUnixInit.c
@@ -52,6 +52,15 @@ static int initialized = 0;
#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".
+ * The Tcl_Init() routine will evaluate this script if it contains a non-NULL
+ * value.
+ */
+
+char * tclAlternateInitScript = NULL;
+
+/*
* Static routines in this file:
*/
@@ -211,6 +220,9 @@ int
Tcl_Init(interp)
Tcl_Interp *interp; /* Interpreter to initialize. */
{
+ if (tclAlternateInitScript != NULL) {
+ Tcl_Eval(interp, tclAlternateInitScript);
+ }
return Tcl_Eval(interp, initScript);
}