summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsuresh <suresh>1998-07-09 13:41:38 (GMT)
committersuresh <suresh>1998-07-09 13:41:38 (GMT)
commit280cb7621484ef66cbfe5a793275a8951978293f (patch)
treed8ac294d9264d67e75d04bd040fb5d378268b905
parentd0ddb381aa5a9524c4dcc3c20fd5a1bc2c4e2844 (diff)
downloadtcl-280cb7621484ef66cbfe5a793275a8951978293f.zip
tcl-280cb7621484ef66cbfe5a793275a8951978293f.tar.gz
tcl-280cb7621484ef66cbfe5a793275a8951978293f.tar.bz2
Removed the extern delcaration of the variable 'tclPreInitScript'.
Added prototype for the routine "TclSetPreInitScript()'. Doing this allows for this functionality of setting the pre-init Tcl script to exist in the Tcl shared library.
-rw-r--r--generic/tclInt.h11
1 files changed, 2 insertions, 9 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 14d0154..c951567 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * SCCS: %Z% $Id: tclInt.h,v 1.7 1998/07/06 14:37:29 escoffon Exp $
+ * SCCS: %Z% $Id: tclInt.h,v 1.8 1998/07/09 13:41:38 suresh Exp $
*/
#ifndef _TCLINT
@@ -1242,14 +1242,6 @@ extern long tclObjsFreed;
extern char * tclEmptyStringRep;
/*
- * 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".
- */
-
-extern char * tclPreInitScript;
-
-/*
*----------------------------------------------------------------
* Procedures shared among Tcl modules but not used by the outside
* world:
@@ -1505,6 +1497,7 @@ EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_((
EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp *interp,
int localIndex, Tcl_Obj *objPtr,
int leaveErrorMsg));
+EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char *string));
EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp *interp,
char *string, char *proto, int *portPtr));