Implementation of TIP #257. Incomplete due to missing Win build support.

1 files changed, 209 insertions, 0 deletions

diff --git a/generic/tclOOIntDecls.h b/generic/tclOOIntDecls.h
new file mode 100644
index 0000000..e39b457
--- /dev/null
+++ b/generic/tclOOIntDecls.h
@@ -0,0 +1,209 @@
+/*
+ * $Id: tclOOIntDecls.h,v 1.1 2008/05/31 11:42:18 dkf Exp $
+ *
+ * This file is (mostly) automatically generated from tclOO.decls.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+#define TCLOOINT_STUBS_EPOCH 0
+#define TCLOOINT_STUBS_REVISION 44
+
+#if !defined(USE_TCLOO_STUBS)
+
+/*
+ * Exported function declarations:
+ */
+
+/* 0 */
+TCLOOAPI Tcl_Object	TclOOGetDefineCmdContext (Tcl_Interp * interp);
+/* 1 */
+TCLOOAPI Tcl_Method	TclOOMakeProcInstanceMethod (Tcl_Interp * interp, 
+				Object * oPtr, int flags, Tcl_Obj * nameObj, 
+				Tcl_Obj * argsObj, Tcl_Obj * bodyObj, 
+				const Tcl_MethodType * typePtr, 
+				ClientData clientData, Proc ** procPtrPtr);
+/* 2 */
+TCLOOAPI Tcl_Method	TclOOMakeProcMethod (Tcl_Interp * interp, 
+				Class * clsPtr, int flags, Tcl_Obj * nameObj, 
+				const char * namePtr, Tcl_Obj * argsObj, 
+				Tcl_Obj * bodyObj, 
+				const Tcl_MethodType * typePtr, 
+				ClientData clientData, Proc ** procPtrPtr);
+/* 3 */
+TCLOOAPI Method *	TclOONewProcInstanceMethod (Tcl_Interp * interp, 
+				Object * oPtr, int flags, Tcl_Obj * nameObj, 
+				Tcl_Obj * argsObj, Tcl_Obj * bodyObj, 
+				ProcedureMethod ** pmPtrPtr);
+/* 4 */
+TCLOOAPI Method *	TclOONewProcMethod (Tcl_Interp * interp, 
+				Class * clsPtr, int flags, Tcl_Obj * nameObj, 
+				Tcl_Obj * argsObj, Tcl_Obj * bodyObj, 
+				ProcedureMethod ** pmPtrPtr);
+/* 5 */
+TCLOOAPI int		TclOOObjectCmdCore (Object * oPtr, 
+				Tcl_Interp * interp, int objc, 
+				Tcl_Obj *const * objv, int publicOnly, 
+				Class * startCls);
+/* 6 */
+TCLOOAPI int		TclOOIsReachable (Class * targetPtr, 
+				Class * startPtr);
+/* 7 */
+TCLOOAPI Method *	TclOONewForwardMethod (Tcl_Interp * interp, 
+				Class * clsPtr, int isPublic, 
+				Tcl_Obj * nameObj, Tcl_Obj * prefixObj);
+/* 8 */
+TCLOOAPI Method *	TclOONewForwardInstanceMethod (Tcl_Interp * interp, 
+				Object * oPtr, int isPublic, 
+				Tcl_Obj * nameObj, Tcl_Obj * prefixObj);
+/* 9 */
+TCLOOAPI Tcl_Method	TclOONewProcInstanceMethodEx (Tcl_Interp * interp, 
+				Tcl_Object oPtr, 
+				TclOO_PreCallProc preCallPtr, 
+				TclOO_PostCallProc postCallPtr, 
+				ProcErrorProc errProc, ClientData clientData, 
+				Tcl_Obj * nameObj, Tcl_Obj * argsObj, 
+				Tcl_Obj * bodyObj, int flags, 
+				void ** internalTokenPtr);
+/* 10 */
+TCLOOAPI Tcl_Method	TclOONewProcMethodEx (Tcl_Interp * interp, 
+				Tcl_Class clsPtr, 
+				TclOO_PreCallProc preCallPtr, 
+				TclOO_PostCallProc postCallPtr, 
+				ProcErrorProc errProc, ClientData clientData, 
+				Tcl_Obj * nameObj, Tcl_Obj * argsObj, 
+				Tcl_Obj * bodyObj, int flags, 
+				void ** internalTokenPtr);
+/* 11 */
+TCLOOAPI int		TclOOInvokeObject (Tcl_Interp * interp, 
+				Tcl_Object object, Tcl_Class startCls, 
+				int publicPrivate, int objc, 
+				Tcl_Obj *const * objv);
+/* 12 */
+TCLOOAPI void		TclOOObjectSetFilters (Object * oPtr, int numFilters, 
+				Tcl_Obj *const * filters);
+/* 13 */
+TCLOOAPI void		TclOOClassSetFilters (Tcl_Interp * interp, 
+				Class * classPtr, int numFilters, 
+				Tcl_Obj *const * filters);
+/* 14 */
+TCLOOAPI void		TclOOObjectSetMixins (Object * oPtr, int numMixins, 
+				Class *const * mixins);
+/* 15 */
+TCLOOAPI void		TclOOClassSetMixins (Tcl_Interp * interp, 
+				Class * classPtr, int numMixins, 
+				Class *const * mixins);
+
+#endif /* !defined(USE_TCLOO_STUBS) */
+
+typedef struct TclOOIntStubs {
+    int magic;
+    int epoch;
+    int revision;
+    struct TclOOIntStubHooks *hooks;
+
+    Tcl_Object (*tclOOGetDefineCmdContext) (Tcl_Interp * interp); /* 0 */
+    Tcl_Method (*tclOOMakeProcInstanceMethod) (Tcl_Interp * interp, Object * oPtr, int flags, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, const Tcl_MethodType * typePtr, ClientData clientData, Proc ** procPtrPtr); /* 1 */
+    Tcl_Method (*tclOOMakeProcMethod) (Tcl_Interp * interp, Class * clsPtr, int flags, Tcl_Obj * nameObj, const char * namePtr, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, const Tcl_MethodType * typePtr, ClientData clientData, Proc ** procPtrPtr); /* 2 */
+    Method * (*tclOONewProcInstanceMethod) (Tcl_Interp * interp, Object * oPtr, int flags, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, ProcedureMethod ** pmPtrPtr); /* 3 */
+    Method * (*tclOONewProcMethod) (Tcl_Interp * interp, Class * clsPtr, int flags, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, ProcedureMethod ** pmPtrPtr); /* 4 */
+    int (*tclOOObjectCmdCore) (Object * oPtr, Tcl_Interp * interp, int objc, Tcl_Obj *const * objv, int publicOnly, Class * startCls); /* 5 */
+    int (*tclOOIsReachable) (Class * targetPtr, Class * startPtr); /* 6 */
+    Method * (*tclOONewForwardMethod) (Tcl_Interp * interp, Class * clsPtr, int isPublic, Tcl_Obj * nameObj, Tcl_Obj * prefixObj); /* 7 */
+    Method * (*tclOONewForwardInstanceMethod) (Tcl_Interp * interp, Object * oPtr, int isPublic, Tcl_Obj * nameObj, Tcl_Obj * prefixObj); /* 8 */
+    Tcl_Method (*tclOONewProcInstanceMethodEx) (Tcl_Interp * interp, Tcl_Object oPtr, TclOO_PreCallProc preCallPtr, TclOO_PostCallProc postCallPtr, ProcErrorProc errProc, ClientData clientData, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, int flags, void ** internalTokenPtr); /* 9 */
+    Tcl_Method (*tclOONewProcMethodEx) (Tcl_Interp * interp, Tcl_Class clsPtr, TclOO_PreCallProc preCallPtr, TclOO_PostCallProc postCallPtr, ProcErrorProc errProc, ClientData clientData, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, int flags, void ** internalTokenPtr); /* 10 */
+    int (*tclOOInvokeObject) (Tcl_Interp * interp, Tcl_Object object, Tcl_Class startCls, int publicPrivate, int objc, Tcl_Obj *const * objv); /* 11 */
+    void (*tclOOObjectSetFilters) (Object * oPtr, int numFilters, Tcl_Obj *const * filters); /* 12 */
+    void (*tclOOClassSetFilters) (Tcl_Interp * interp, Class * classPtr, int numFilters, Tcl_Obj *const * filters); /* 13 */
+    void (*tclOOObjectSetMixins) (Object * oPtr, int numMixins, Class *const * mixins); /* 14 */
+    void (*tclOOClassSetMixins) (Tcl_Interp * interp, Class * classPtr, int numMixins, Class *const * mixins); /* 15 */
+} TclOOIntStubs;
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+extern const TclOOIntStubs *tclOOIntStubsPtr;
+#ifdef __cplusplus
+}
+#endif
+
+#if defined(USE_TCLOO_STUBS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifndef TclOOGetDefineCmdContext
+#define TclOOGetDefineCmdContext \
+	(tclOOIntStubsPtr->tclOOGetDefineCmdContext) /* 0 */
+#endif
+#ifndef TclOOMakeProcInstanceMethod
+#define TclOOMakeProcInstanceMethod \
+	(tclOOIntStubsPtr->tclOOMakeProcInstanceMethod) /* 1 */
+#endif
+#ifndef TclOOMakeProcMethod
+#define TclOOMakeProcMethod \
+	(tclOOIntStubsPtr->tclOOMakeProcMethod) /* 2 */
+#endif
+#ifndef TclOONewProcInstanceMethod
+#define TclOONewProcInstanceMethod \
+	(tclOOIntStubsPtr->tclOONewProcInstanceMethod) /* 3 */
+#endif
+#ifndef TclOONewProcMethod
+#define TclOONewProcMethod \
+	(tclOOIntStubsPtr->tclOONewProcMethod) /* 4 */
+#endif
+#ifndef TclOOObjectCmdCore
+#define TclOOObjectCmdCore \
+	(tclOOIntStubsPtr->tclOOObjectCmdCore) /* 5 */
+#endif
+#ifndef TclOOIsReachable
+#define TclOOIsReachable \
+	(tclOOIntStubsPtr->tclOOIsReachable) /* 6 */
+#endif
+#ifndef TclOONewForwardMethod
+#define TclOONewForwardMethod \
+	(tclOOIntStubsPtr->tclOONewForwardMethod) /* 7 */
+#endif
+#ifndef TclOONewForwardInstanceMethod
+#define TclOONewForwardInstanceMethod \
+	(tclOOIntStubsPtr->tclOONewForwardInstanceMethod) /* 8 */
+#endif
+#ifndef TclOONewProcInstanceMethodEx
+#define TclOONewProcInstanceMethodEx \
+	(tclOOIntStubsPtr->tclOONewProcInstanceMethodEx) /* 9 */
+#endif
+#ifndef TclOONewProcMethodEx
+#define TclOONewProcMethodEx \
+	(tclOOIntStubsPtr->tclOONewProcMethodEx) /* 10 */
+#endif
+#ifndef TclOOInvokeObject
+#define TclOOInvokeObject \
+	(tclOOIntStubsPtr->tclOOInvokeObject) /* 11 */
+#endif
+#ifndef TclOOObjectSetFilters
+#define TclOOObjectSetFilters \
+	(tclOOIntStubsPtr->tclOOObjectSetFilters) /* 12 */
+#endif
+#ifndef TclOOClassSetFilters
+#define TclOOClassSetFilters \
+	(tclOOIntStubsPtr->tclOOClassSetFilters) /* 13 */
+#endif
+#ifndef TclOOObjectSetMixins
+#define TclOOObjectSetMixins \
+	(tclOOIntStubsPtr->tclOOObjectSetMixins) /* 14 */
+#endif
+#ifndef TclOOClassSetMixins
+#define TclOOClassSetMixins \
+	(tclOOIntStubsPtr->tclOOClassSetMixins) /* 15 */
+#endif
+
+#endif /* defined(USE_TCLOO_STUBS) */
+
+/* !END!: Do not edit above this line. */
+
+struct TclOOStubAPI {
+    TclOOStubs *stubsPtr;
+    TclOOIntStubs *intStubsPtr;
+};