summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog8
-rw-r--r--generic/tclInt.decls7
-rw-r--r--generic/tclInt.h4
-rw-r--r--generic/tclIntDecls.h13
-rw-r--r--generic/tclStubInit.c3
5 files changed, 27 insertions, 8 deletions
diff --git a/ChangeLog b/ChangeLog
index 3b8a657..01df74f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-08-07 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclInt.decls: Exporting via stubs to help
+ * generic/tclInt.h: xotcl adapt to VarReform.
+ * generic/tclIntDecls.h:
+ * generic/tclStubInit.c:
+
2007-08-07 Daniel Steffen <das@users.sourceforge.net>
* generic/tclEnv.c: improve environ handling on Mac OS X (adapted
@@ -41,7 +48,6 @@
* generic/tclStubInit.c: only exists for itcl).
* generic/tclVar.c:
-
2007-08-01 Donal K. Fellows <donal.k.fellows@manchester.ac.uk>
* library/word.tcl: Rewrote for greater efficiency. [Bug 1764318]
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 54256ea..ab6252a 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.112 2007/08/04 18:32:27 msofer Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.113 2007/08/07 17:28:38 msofer Exp $
library tcl
@@ -928,11 +928,14 @@ declare 233 generic {
void TclGetSrcInfoForPc(CmdFrame *contextPtr)
}
-# Exports for VarReform compat: Itcl likes to peek into our varTables :(
+# Exports for VarReform compat: Itcl, XOTcl like to peek into our varTables :(
declare 234 generic {
Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, const char *key,
int *newPtr)
}
+declare 235 generic {
+ void TclInitVarHashTable(TclVarHashTable *tablePtr, Namespace *nsPtr)
+}
##############################################################################
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 5aae19d..c55bf93 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -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.h,v 1.328 2007/08/04 18:32:27 msofer Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.329 2007/08/07 17:28:39 msofer Exp $
*/
#ifndef _TCLINT
@@ -2413,8 +2413,6 @@ MODULE_SCOPE void TclInitLimitSupport(Tcl_Interp *interp);
MODULE_SCOPE void TclInitNamespaceSubsystem(void);
MODULE_SCOPE void TclInitNotifier(void);
MODULE_SCOPE void TclInitObjSubsystem(void);
-MODULE_SCOPE void TclInitVarHashTable(TclVarHashTable *tablePtr,
- Namespace *nsPtr);
MODULE_SCOPE void TclInitSubsystems(void);
MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp);
MODULE_SCOPE int TclIsLocalScalar(CONST char *src, int len);
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index e08b38b..876a4bf 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.103 2007/08/04 18:32:27 msofer Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.104 2007/08/07 17:28:39 msofer Exp $
*/
#ifndef _TCLINTDECLS
@@ -1045,6 +1045,12 @@ EXTERN void TclGetSrcInfoForPc (CmdFrame * contextPtr);
EXTERN Var * TclVarHashCreateVar (TclVarHashTable * tablePtr,
const char * key, int * newPtr);
#endif
+#ifndef TclInitVarHashTable_TCL_DECLARED
+#define TclInitVarHashTable_TCL_DECLARED
+/* 235 */
+EXTERN void TclInitVarHashTable (TclVarHashTable * tablePtr,
+ Namespace * nsPtr);
+#endif
typedef struct TclIntStubs {
int magic;
@@ -1300,6 +1306,7 @@ typedef struct TclIntStubs {
int (*tclEvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags, const CmdFrame * invoker, int word); /* 232 */
void (*tclGetSrcInfoForPc) (CmdFrame * contextPtr); /* 233 */
Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */
+ void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */
} TclIntStubs;
#ifdef __cplusplus
@@ -2025,6 +2032,10 @@ extern TclIntStubs *tclIntStubsPtr;
#define TclVarHashCreateVar \
(tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
#endif
+#ifndef TclInitVarHashTable
+#define TclInitVarHashTable \
+ (tclIntStubsPtr->tclInitVarHashTable) /* 235 */
+#endif
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index efde178..b197f66 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.142 2007/08/04 18:32:28 msofer Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.143 2007/08/07 17:28:39 msofer Exp $
*/
#include "tclInt.h"
@@ -324,6 +324,7 @@ TclIntStubs tclIntStubs = {
TclEvalObjEx, /* 232 */
TclGetSrcInfoForPc, /* 233 */
TclVarHashCreateVar, /* 234 */
+ TclInitVarHashTable, /* 235 */
};
TclIntPlatStubs tclIntPlatStubs = {