summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-12-06 23:22:58 (GMT)
committerhobbs <hobbs>2002-12-06 23:22:58 (GMT)
commit25434df7c01e5696ea3b4affeed85ad22d09587b (patch)
tree5e8124bd90814fbe5a1f2116ec1fb5a93273caed /generic
parent5bde345b62e89154c0dfe9f36adad96e97e69323 (diff)
downloadtcl-25434df7c01e5696ea3b4affeed85ad22d09587b.zip
tcl-25434df7c01e5696ea3b4affeed85ad22d09587b.tar.gz
tcl-25434df7c01e5696ea3b4affeed85ad22d09587b.tar.bz2
* generic/tclStubInit.c: regen
* generic/tclIntPlatDecls.h: regen * generic/tclInt.decls: added TclWinResetInterface * win/tclWin32Dll.c (TclWinResetInterfaces): * win/tclWinInit.c (TclpSetInitialEncodings, WinEncodingsCleanup): add exit handler that resets the encoding information to a state where we can reuse Tcl. Following these changes, it is possible to reuse Tcl (following Tcl_FindExecutable or Tcl_CreateInterp) following a Tcl_Finalize.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInt.decls8
-rw-r--r--generic/tclIntPlatDecls.h9
-rw-r--r--generic/tclStubInit.c3
3 files changed, 17 insertions, 3 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 84b62f5..f2b2f99 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -12,7 +12,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.57 2002/11/07 02:13:36 mdejong Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.58 2002/12/06 23:22:59 hobbs Exp $
library tcl
@@ -915,6 +915,12 @@ declare 27 win {
void TclWinFlushDirtyChannels (void)
}
+# Added in 8.4.2
+
+declare 28 win {
+ void TclWinResetInterfaces(void)
+}
+
#########################
# Unix specific internals
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h
index b430443..09c1226 100644
--- a/generic/tclIntPlatDecls.h
+++ b/generic/tclIntPlatDecls.h
@@ -9,7 +9,7 @@
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.18 2002/08/06 01:49:27 das Exp $
+ * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19 2002/12/06 23:22:59 hobbs Exp $
*/
#ifndef _TCLINTPLATDECLS
@@ -137,6 +137,8 @@ EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void));
EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide));
/* 27 */
EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void));
+/* 28 */
+EXTERN void TclWinResetInterfaces _ANSI_ARGS_((void));
#endif /* __WIN32__ */
#ifdef MAC_TCL
/* 0 */
@@ -260,6 +262,7 @@ typedef struct TclIntPlatStubs {
TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */
void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */
void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */
+ void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
@@ -459,6 +462,10 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr;
#define TclWinFlushDirtyChannels \
(tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
#endif
+#ifndef TclWinResetInterfaces
+#define TclWinResetInterfaces \
+ (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
+#endif
#endif /* __WIN32__ */
#ifdef MAC_TCL
#ifndef TclpSysAlloc
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 2d3136a..c25f053 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.77 2002/11/07 02:13:36 mdejong Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.78 2002/12/06 23:22:59 hobbs Exp $
*/
#include "tclInt.h"
@@ -294,6 +294,7 @@ TclIntPlatStubs tclIntPlatStubs = {
TclWinGetPlatform, /* 25 */
TclWinSetInterfaces, /* 26 */
TclWinFlushDirtyChannels, /* 27 */
+ TclWinResetInterfaces, /* 28 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
TclpSysAlloc, /* 0 */