Created TIP 531 implementation for Peter Da Silva

generic/tcl.h

@@ -2400,6 +2400,12 @@ EXTERN void		Tcl_GetMemoryInfo(Tcl_DString *dsPtr);
 #ifndef _WIN32
 EXTERN int		TclZipfs_AppHook(int *argc, char ***argv);
 #endif
+
+/*
+ * Public function Tcl_CreateInterpWithStubs (TIP #531), not accessed via stubs table.
+ */
+Tcl_Interp * Tcl_CreateInterpWithStubs(const char *version, int exact);
+
 
 /*
  *----------------------------------------------------------------------------

generic/tclCreateInterpWithStubs.c

@@ -0,0 +1,15 @@
+/* must be compiled without stubs */
+#undef USE_TCL_STUBS
+#include <tcl.h>
+
+Tcl_Interp * Tcl_CreateInterpWithStubs(const char *version, int exact)
+{
+    Tcl_Interp *interp = Tcl_CreateInterp();
+
+    if (Tcl_Init(interp) == TCL_ERROR
+        || Tcl_InitStubs(interp, version, exact) == NULL
+        || Tcl_PkgRequire(interp, "Tcl", version, exact) == NULL) {
+	return NULL;
+    }   
+    return interp;
+}

unix/Makefile.in

@@ -346,6 +346,7 @@ TOMMATH_OBJS = bn_reverse.o bn_fast_s_mp_mul_digs.o \
 STUB_LIB_OBJS = tclStubLib.o \
 	tclTomMathStubLib.o \
 	tclOOStubLib.o \
+	tclCreateInterpWithStubs.o \
 	${COMPAT_OBJS}
 
 UNIX_OBJS = tclUnixChan.o tclUnixEvent.o tclUnixFCmd.o \
@@ -486,6 +487,7 @@ OO_SRCS = \
 
 STUB_SRCS = \
 	$(GENERIC_DIR)/tclStubLib.c \
+	$(GENERIC_DIR)/tclCreateInterpWithStubs.c \
 	$(GENERIC_DIR)/tclTomMathStubLib.c \
 	$(GENERIC_DIR)/tclOOStubLib.c
 
@@ -1832,6 +1834,9 @@ Zzutil.o:    $(ZLIB_DIR)/zutil.c
 tclStubLib.o: $(GENERIC_DIR)/tclStubLib.c
 	$(CC) -c $(STUB_CC_SWITCHES) -DSTATIC_BUILD $(GENERIC_DIR)/tclStubLib.c
 
+tclCreateInterpWithStubs.o: $(GENERIC_DIR)/tclCreateInterpWithStubs.c
+	$(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tclCreateInterpWithStubs.c
+
 tclTomMathStubLib.o: $(GENERIC_DIR)/tclTomMathStubLib.c
 	$(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tclTomMathStubLib.c