diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2008-07-21 21:02:11 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2008-07-21 21:02:11 (GMT) |
| commit | 4ca6151924c3e7338fb1cdca30d81430477673f8 (patch) | |
| tree | 5a49a31553d209c8b45882a0b0716544c8bf918e /generic/tclOOStubInit.c | |
| parent | 24289b9502c809549472c1edc7398415f51f578e (diff) | |
| download | tcl-4ca6151924c3e7338fb1cdca30d81430477673f8.zip tcl-4ca6151924c3e7338fb1cdca30d81430477673f8.tar.gz tcl-4ca6151924c3e7338fb1cdca30d81430477673f8.tar.bz2 | |
TIP #304 implementation
Diffstat (limited to 'generic/tclOOStubInit.c')
| -rw-r--r-- | generic/tclOOStubInit.c | 156 |
1 files changed, 78 insertions, 78 deletions
diff --git a/generic/tclOOStubInit.c b/generic/tclOOStubInit.c index 06e22d0..ec3ed19 100644 --- a/generic/tclOOStubInit.c +++ b/generic/tclOOStubInit.c @@ -1,78 +1,78 @@ -/* - * $Id: tclOOStubInit.c,v 1.4 2008/06/12 06:29:18 das Exp $ - * - * This file is (mostly) automatically generated from tclOO.decls. - * It is compiled and linked in with the tclOO package proper. - */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif -#include "tclOO.h" -#include "tclOOInt.h" - -/* !BEGIN!: Do not edit below this line. */ - -static const TclOOIntStubs tclOOIntStubs = { - TCL_STUB_MAGIC, - NULL, - TclOOGetDefineCmdContext, /* 0 */ - TclOOMakeProcInstanceMethod, /* 1 */ - TclOOMakeProcMethod, /* 2 */ - TclOONewProcInstanceMethod, /* 3 */ - TclOONewProcMethod, /* 4 */ - TclOOObjectCmdCore, /* 5 */ - TclOOIsReachable, /* 6 */ - TclOONewForwardMethod, /* 7 */ - TclOONewForwardInstanceMethod, /* 8 */ - TclOONewProcInstanceMethodEx, /* 9 */ - TclOONewProcMethodEx, /* 10 */ - TclOOInvokeObject, /* 11 */ - TclOOObjectSetFilters, /* 12 */ - TclOOClassSetFilters, /* 13 */ - TclOOObjectSetMixins, /* 14 */ - TclOOClassSetMixins, /* 15 */ -}; - -static const TclOOStubHooks tclOOStubHooks = { - &tclOOIntStubs -}; - -static const TclOOStubs tclOOStubs = { - TCL_STUB_MAGIC, - &tclOOStubHooks, - Tcl_CopyObjectInstance, /* 0 */ - Tcl_GetClassAsObject, /* 1 */ - Tcl_GetObjectAsClass, /* 2 */ - Tcl_GetObjectCommand, /* 3 */ - Tcl_GetObjectFromObj, /* 4 */ - Tcl_GetObjectNamespace, /* 5 */ - Tcl_MethodDeclarerClass, /* 6 */ - Tcl_MethodDeclarerObject, /* 7 */ - Tcl_MethodIsPublic, /* 8 */ - Tcl_MethodIsType, /* 9 */ - Tcl_MethodName, /* 10 */ - Tcl_NewInstanceMethod, /* 11 */ - Tcl_NewMethod, /* 12 */ - Tcl_NewObjectInstance, /* 13 */ - Tcl_ObjectDeleted, /* 14 */ - Tcl_ObjectContextIsFiltering, /* 15 */ - Tcl_ObjectContextMethod, /* 16 */ - Tcl_ObjectContextObject, /* 17 */ - Tcl_ObjectContextSkippedArgs, /* 18 */ - Tcl_ClassGetMetadata, /* 19 */ - Tcl_ClassSetMetadata, /* 20 */ - Tcl_ObjectGetMetadata, /* 21 */ - Tcl_ObjectSetMetadata, /* 22 */ - Tcl_ObjectContextInvokeNext, /* 23 */ - Tcl_ObjectGetMethodNameMapper, /* 24 */ - Tcl_ObjectSetMethodNameMapper, /* 25 */ - Tcl_ClassSetConstructor, /* 26 */ - Tcl_ClassSetDestructor, /* 27 */ -}; - -/* !END!: Do not edit above this line. */ - -MODULE_SCOPE const TclOOStubs * const tclOOConstStubPtr; -const TclOOStubs * const tclOOConstStubPtr = &tclOOStubs; - +/*
+ * $Id: tclOOStubInit.c,v 1.5 2008/07/21 21:02:18 ferrieux Exp $
+ *
+ * This file is (mostly) automatically generated from tclOO.decls.
+ * It is compiled and linked in with the tclOO package proper.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+#include "tclOO.h"
+#include "tclOOInt.h"
+
+/* !BEGIN!: Do not edit below this line. */
+
+static const TclOOIntStubs tclOOIntStubs = {
+ TCL_STUB_MAGIC,
+ NULL,
+ TclOOGetDefineCmdContext, /* 0 */
+ TclOOMakeProcInstanceMethod, /* 1 */
+ TclOOMakeProcMethod, /* 2 */
+ TclOONewProcInstanceMethod, /* 3 */
+ TclOONewProcMethod, /* 4 */
+ TclOOObjectCmdCore, /* 5 */
+ TclOOIsReachable, /* 6 */
+ TclOONewForwardMethod, /* 7 */
+ TclOONewForwardInstanceMethod, /* 8 */
+ TclOONewProcInstanceMethodEx, /* 9 */
+ TclOONewProcMethodEx, /* 10 */
+ TclOOInvokeObject, /* 11 */
+ TclOOObjectSetFilters, /* 12 */
+ TclOOClassSetFilters, /* 13 */
+ TclOOObjectSetMixins, /* 14 */
+ TclOOClassSetMixins, /* 15 */
+};
+
+static const TclOOStubHooks tclOOStubHooks = {
+ &tclOOIntStubs
+};
+
+static const TclOOStubs tclOOStubs = {
+ TCL_STUB_MAGIC,
+ &tclOOStubHooks,
+ Tcl_CopyObjectInstance, /* 0 */
+ Tcl_GetClassAsObject, /* 1 */
+ Tcl_GetObjectAsClass, /* 2 */
+ Tcl_GetObjectCommand, /* 3 */
+ Tcl_GetObjectFromObj, /* 4 */
+ Tcl_GetObjectNamespace, /* 5 */
+ Tcl_MethodDeclarerClass, /* 6 */
+ Tcl_MethodDeclarerObject, /* 7 */
+ Tcl_MethodIsPublic, /* 8 */
+ Tcl_MethodIsType, /* 9 */
+ Tcl_MethodName, /* 10 */
+ Tcl_NewInstanceMethod, /* 11 */
+ Tcl_NewMethod, /* 12 */
+ Tcl_NewObjectInstance, /* 13 */
+ Tcl_ObjectDeleted, /* 14 */
+ Tcl_ObjectContextIsFiltering, /* 15 */
+ Tcl_ObjectContextMethod, /* 16 */
+ Tcl_ObjectContextObject, /* 17 */
+ Tcl_ObjectContextSkippedArgs, /* 18 */
+ Tcl_ClassGetMetadata, /* 19 */
+ Tcl_ClassSetMetadata, /* 20 */
+ Tcl_ObjectGetMetadata, /* 21 */
+ Tcl_ObjectSetMetadata, /* 22 */
+ Tcl_ObjectContextInvokeNext, /* 23 */
+ Tcl_ObjectGetMethodNameMapper, /* 24 */
+ Tcl_ObjectSetMethodNameMapper, /* 25 */
+ Tcl_ClassSetConstructor, /* 26 */
+ Tcl_ClassSetDestructor, /* 27 */
+};
+
+/* !END!: Do not edit above this line. */
+
+MODULE_SCOPE const TclOOStubs * const tclOOConstStubPtr;
+const TclOOStubs * const tclOOConstStubPtr = &tclOOStubs;
+
|