summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1999-04-16 22:03:58 (GMT)
committersurles <surles>1999-04-16 22:03:58 (GMT)
commitbc1186e23a8f0e592e97b8d8a72f81ac6e69b8c8 (patch)
tree44036e7d65b967b506d40c1fdb67a7a96450c2c2
parent3a8f2f8eda68a2628907a846410a9738586e116c (diff)
downloadtcl-bc1186e23a8f0e592e97b8d8a72f81ac6e69b8c8.zip
tcl-bc1186e23a8f0e592e97b8d8a72f81ac6e69b8c8.tar.gz
tcl-bc1186e23a8f0e592e97b8d8a72f81ac6e69b8c8.tar.bz2
fixed bug 1811: Add TclSetPreInitScript to the stubs files.
-rw-r--r--generic/tclInt.decls9
-rw-r--r--generic/tclIntDecls.h12
-rw-r--r--generic/tclStubInit.c4
3 files changed, 14 insertions, 11 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index b2d1b44..e1d9016 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -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.
#
-# RCS: @(#) $Id: tclInt.decls,v 1.5 1999/04/16 00:46:47 stanton Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.6 1999/04/16 22:03:58 surles Exp $
library tcl
@@ -379,10 +379,9 @@ declare 100 generic {
Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \
Tcl_Obj *objPtr, int leaveErrorMsg)
}
-# TODO: needs to be implemented
-# declare 101 generic {
-# char * TclSetPreInitScript(char *string)
-# }
+declare 101 generic {
+ char * TclSetPreInitScript(char *string)
+}
declare 102 generic {
void TclSetupEnv(Tcl_Interp *interp)
}
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index a2b2ac2..5edf57e 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.h
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIntDecls.h,v 1.4 1999/04/16 00:46:48 stanton Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.5 1999/04/16 22:03:58 surles Exp $
*/
#ifndef _TCLINTDECLS
@@ -315,7 +315,8 @@ EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_((
EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
int localIndex, Tcl_Obj * objPtr,
int leaveErrorMsg));
-/* Slot 101 is reserved */
+/* 101 */
+EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
/* 102 */
EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
/* 103 */
@@ -549,7 +550,7 @@ typedef struct TclIntStubs {
int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */
Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */
- void *reserved101;
+ char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
@@ -971,7 +972,10 @@ extern TclIntStubs *tclIntStubsPtr;
#define TclSetIndexedScalar \
(tclIntStubsPtr->tclSetIndexedScalar) /* 100 */
#endif
-/* Slot 101 is reserved */
+#ifndef TclSetPreInitScript
+#define TclSetPreInitScript \
+ (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
+#endif
#ifndef TclSetupEnv
#define TclSetupEnv \
(tclIntStubsPtr->tclSetupEnv) /* 102 */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index d11b0b3..8088b04 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclStubInit.c,v 1.7 1999/04/16 00:46:53 stanton Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.8 1999/04/16 22:03:59 surles Exp $
*/
#include "tclInt.h"
@@ -542,7 +542,7 @@ TclIntStubs tclIntStubs = {
TclServiceIdle, /* 98 */
TclSetElementOfIndexedArray, /* 99 */
TclSetIndexedScalar, /* 100 */
- NULL, /* 101 */
+ TclSetPreInitScript, /* 101 */
TclSetupEnv, /* 102 */
TclSockGetPort, /* 103 */
TclSockMinimumBuffers, /* 104 */