summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorredman <redman>1999-03-10 23:19:09 (GMT)
committerredman <redman>1999-03-10 23:19:09 (GMT)
commit2ef4d3492a315e6e57add9c6d15651ce05c8457c (patch)
treed54e1c4e72b47a72d100dbac6234e44ac24b80a3
parent470a185b2846f7f7c9ea5251e65960da364a28f1 (diff)
downloadtcl-2ef4d3492a315e6e57add9c6d15651ce05c8457c.zip
tcl-2ef4d3492a315e6e57add9c6d15651ce05c8457c.tar.gz
tcl-2ef4d3492a315e6e57add9c6d15651ce05c8457c.tar.bz2
Add Tcl_GetVersion to stubs table, add 6 additional slots for future use.
-rw-r--r--generic/tcl.decls24
-rw-r--r--generic/tclDecls.h52
-rw-r--r--generic/tclStubInit.c9
-rw-r--r--generic/tclStubs.c61
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. */