* generic/tclInt.decls: Exporting via stubs to help

	* generic/tclInt.h:       xotcl adapt to VarReform.
	* generic/tclIntDecls.h:
	* generic/tclStubInit.c:

4 files changed, 20 insertions, 7 deletions

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 = {