Add Tcl_GetVersion to stubs table, add 6 additional slots for future use.

4 files changed, 142 insertions, 4 deletions

diff --git a/generic/tcl.decls b/generic/tcl.decls
index b8dd45b..4e0ac1f 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: tcl.decls,v 1.3 1999/03/10 05:52:46 stanton Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.4 1999/03/10 23:19:09 redman Exp $
 
 library tcl
 
@@ -957,6 +957,28 @@ declare 277 generic {
 declare 278 generic {
     void panicVA(char *format, va_list argList)
 }
+declare 279 generic {
+    void Tcl_GetVersion(int *major, int *minor, int *patchLevel, \
+	    Tcl_ReleaseType *type)
+}
+declare 280 generic {
+    # Reserved for future use (8.0.x vs. 8.1)
+}
+declare 281 generic {
+    # Reserved for future use (8.0.x vs. 8.1)
+}
+declare 282 generic {
+    # Reserved for future use (8.0.x vs. 8.1)
+}
+declare 283 generic {
+    # Reserved for future use (8.0.x vs. 8.1)
+}
+declare 284 generic {
+    # Reserved for future use (8.0.x vs. 8.1)
+}
+declare 285 generic {
+    # Reserved for future use (8.0.x vs. 8.1)
+}
 
 ##############################################################################
 
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index bacabe0..db8addd 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -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: tclDecls.h,v 1.3 1999/03/10 05:52:47 stanton Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.4 1999/03/10 23:19:09 redman Exp $
  */
 
 #ifndef _TCLDECLS
@@ -869,6 +869,21 @@ EXTERN Tcl_Pid		Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr,
 				int options));
 /* 278 */
 EXTERN void		panicVA _ANSI_ARGS_((char * format, va_list argList));
+/* 279 */
+EXTERN void		Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor, 
+				int * patchLevel, Tcl_ReleaseType * type));
+/* 280 */
+EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1));
+/* 281 */
+EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1));
+/* 282 */
+EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1));
+/* 283 */
+EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1));
+/* 284 */
+EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1));
+/* 285 */
+EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1));
 
 typedef struct TclStubHooks {
     struct TclPlatStubs *tclPlatStubs;
@@ -1183,6 +1198,13 @@ typedef struct TclStubs {
     int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 276 */
     Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */
     void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */
+    void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, Tcl_ReleaseType * type)); /* 279 */
+    # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 280 */
+    # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 281 */
+    # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 282 */
+    # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 283 */
+    # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 284 */
+    # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 285 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -2312,6 +2334,34 @@ extern TclStubs *tclStubsPtr;
 #define panicVA(format, argList) \
 	(tclStubsPtr->panicVA)(format, argList) /* 278 */
 #endif
+#ifndef Tcl_GetVersion
+#define Tcl_GetVersion(major, minor, patchLevel, type) \
+	(tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type) /* 279 */
+#endif
+#ifndef use
+#define use(8.1) \
+	(tclStubsPtr->use)(8.1) /* 280 */
+#endif
+#ifndef use
+#define use(8.1) \
+	(tclStubsPtr->use)(8.1) /* 281 */
+#endif
+#ifndef use
+#define use(8.1) \
+	(tclStubsPtr->use)(8.1) /* 282 */
+#endif
+#ifndef use
+#define use(8.1) \
+	(tclStubsPtr->use)(8.1) /* 283 */
+#endif
+#ifndef use
+#define use(8.1) \
+	(tclStubsPtr->use)(8.1) /* 284 */
+#endif
+#ifndef use
+#define use(8.1) \
+	(tclStubsPtr->use)(8.1) /* 285 */
+#endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
 
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 902f528..18070f6 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.3 1999/03/10 05:52:50 stanton Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.4 1999/03/10 23:19:09 redman Exp $
  */
 
 #include "tclInt.h"
@@ -349,6 +349,13 @@ TclStubs tclStubs = {
     Tcl_VarEvalVA, /* 276 */
     Tcl_WaitPid, /* 277 */
     panicVA, /* 278 */
+    Tcl_GetVersion, /* 279 */
+    use, /* 280 */
+    use, /* 281 */
+    use, /* 282 */
+    use, /* 283 */
+    use, /* 284 */
+    use, /* 285 */
 };
 
 TclStubs *tclStubsPtr = &tclStubs;
diff --git a/generic/tclStubs.c b/generic/tclStubs.c
index f562016..d73d0f1 100644
--- a/generic/tclStubs.c
+++ b/generic/tclStubs.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubs.c,v 1.3 1999/03/10 05:52:50 stanton Exp $
+ * RCS: @(#) $Id: tclStubs.c,v 1.4 1999/03/10 23:19:10 redman Exp $
  */
 
 #include "tcl.h"
@@ -2695,5 +2695,64 @@ panicVA(format, argList)
     (tclStubsPtr->panicVA)(format, argList);
 }
 
+/* Slot 279 */
+void
+Tcl_GetVersion(major, minor, patchLevel, type)
+    int * major;
+    int * minor;
+    int * patchLevel;
+    Tcl_ReleaseType * type;
+{
+    (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type);
+}
+
+/* Slot 280 */
+# Reserved for future
+use(8.1)
+    8.0.x vs. 8.1;
+{
+    return (tclStubsPtr->use)(8.1);
+}
+
+/* Slot 281 */
+# Reserved for future
+use(8.1)
+    8.0.x vs. 8.1;
+{
+    return (tclStubsPtr->use)(8.1);
+}
+
+/* Slot 282 */
+# Reserved for future
+use(8.1)
+    8.0.x vs. 8.1;
+{
+    return (tclStubsPtr->use)(8.1);
+}
+
+/* Slot 283 */
+# Reserved for future
+use(8.1)
+    8.0.x vs. 8.1;
+{
+    return (tclStubsPtr->use)(8.1);
+}
+
+/* Slot 284 */
+# Reserved for future
+use(8.1)
+    8.0.x vs. 8.1;
+{
+    return (tclStubsPtr->use)(8.1);
+}
+
+/* Slot 285 */
+# Reserved for future
+use(8.1)
+    8.0.x vs. 8.1;
+{
+    return (tclStubsPtr->use)(8.1);
+}
+
 
 /* !END!: Do not edit above this line. */