diff options
| author | suresh <suresh> | 1998-07-01 14:53:20 (GMT) |
|---|---|---|
| committer | suresh <suresh> | 1998-07-01 14:53:20 (GMT) |
| commit | e00df2e46ecfb6872608e2cb3d482fb10d4e32ef (patch) | |
| tree | 3ebff5f2907ae72844f411d1d3a7fa002fa226b3 | |
| parent | c68f9173d1be5c1bc8338183ad3f9e1498df85f7 (diff) | |
| download | tcl-e00df2e46ecfb6872608e2cb3d482fb10d4e32ef.zip tcl-e00df2e46ecfb6872608e2cb3d482fb10d4e32ef.tar.gz tcl-e00df2e46ecfb6872608e2cb3d482fb10d4e32ef.tar.bz2 | |
Added extern definition of variable 'tclAlternateInitScript' which is defined
in the file(s) "<platform>/tcl<platform>Init.c".
| -rw-r--r-- | generic/tclInt.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 83fd3d9..749ea1b 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -1242,6 +1242,15 @@ extern long tclObjsFreed; extern char * tclEmptyStringRep; /* + * 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. + */ + +extern char * tclAlternateInitScript; + +/* *---------------------------------------------------------------- * Procedures shared among Tcl modules but not used by the outside * world: |