Tcl Source Code

Artifact f87f91802342ca52dbb2d26adb875f28cddcb694:

Attachment "stub.patch" to ticket [430514ffff] added by mdejong 2001-06-06 06:35:30.

---

Index: generic/tclEnv.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEnv.c,v
retrieving revision 1.9
diff -u -r1.9 tclEnv.c
--- generic/tclEnv.c	2000/08/11 17:42:41	1.9
+++ generic/tclEnv.c	2001/06/05 23:10:22
@@ -50,10 +50,6 @@
 			    int flags));
 static void		ReplaceString _ANSI_ARGS_((CONST char *oldStr,
 			    char *newStr));
-void			TclSetEnv _ANSI_ARGS_((CONST char *name,
-			    CONST char *value));
-void			TclUnsetEnv _ANSI_ARGS_((CONST char *name));
-
 
 /*
  *----------------------------------------------------------------------
Index: generic/tclInt.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.decls,v
retrieving revision 1.26
diff -u -r1.26 tclInt.decls
--- generic/tclInt.decls	2001/05/17 02:13:03	1.26
+++ generic/tclInt.decls	2001/06/05 23:10:22
@@ -614,6 +614,12 @@
 declare 162 generic {
     void TclChannelEventScriptInvoker(ClientData clientData, int flags)
 }
+declare 163 generic {
+    void TclSetEnv(CONST char *name, CONST char *value)
+}
+declare 164 generic {
+    void TclUnsetEnv(CONST char *name)
+}
 
 ##############################################################################
 
Index: generic/tclIntDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIntDecls.h,v
retrieving revision 1.24
diff -u -r1.24 tclIntDecls.h
--- generic/tclIntDecls.h	2001/05/17 02:13:03	1.24
+++ generic/tclIntDecls.h	2001/06/05 23:10:24
@@ -529,6 +529,11 @@
 /* 162 */
 EXTERN void		TclChannelEventScriptInvoker _ANSI_ARGS_((
 				ClientData clientData, int flags));
+/* 163 */
+EXTERN void		TclSetEnv _ANSI_ARGS_((CONST char * name, 
+				CONST char * value));
+/* 164 */
+EXTERN void		TclUnsetEnv _ANSI_ARGS_((CONST char * name));
 
 typedef struct TclIntStubs {
     int magic;
@@ -729,6 +734,8 @@
     int (*tclpMatchFilesTypes) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types)); /* 160 */
     int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
     void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
+    void (*tclSetEnv) _ANSI_ARGS_((CONST char * name, CONST char * value)); /* 163 */
+    void (*tclUnsetEnv) _ANSI_ARGS_((CONST char * name)); /* 164 */
 } TclIntStubs;
 
 #ifdef __cplusplus
@@ -1383,6 +1390,14 @@
 #ifndef TclChannelEventScriptInvoker
 #define TclChannelEventScriptInvoker \
 	(tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
+#endif
+#ifndef TclSetEnv
+#define TclSetEnv \
+	(tclIntStubsPtr->tclSetEnv) /* 163 */
+#endif
+#ifndef TclUnsetEnv
+#define TclUnsetEnv \
+	(tclIntStubsPtr->tclUnsetEnv) /* 164 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
Index: generic/tclStubInit.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclStubInit.c,v
retrieving revision 1.50
diff -u -r1.50 tclStubInit.c
--- generic/tclStubInit.c	2001/05/30 08:57:06	1.50
+++ generic/tclStubInit.c	2001/06/05 23:10:24
@@ -242,6 +242,8 @@
     TclpMatchFilesTypes, /* 160 */
     TclChannelTransform, /* 161 */
     TclChannelEventScriptInvoker, /* 162 */
+    TclSetEnv, /* 163 */
+    TclUnsetEnv, /* 164 */
 };
 
 TclIntPlatStubs tclIntPlatStubs = {