TIP #304 implementation

1 files changed, 382 insertions, 382 deletions

diff --git a/generic/tclOODecls.h b/generic/tclOODecls.h
index 969cd5d..1c01ce1 100644
--- a/generic/tclOODecls.h
+++ b/generic/tclOODecls.h
@@ -1,382 +1,382 @@
-/*
- * $Id: tclOODecls.h,v 1.5 2008/06/12 06:29:18 das Exp $
- *
- * This file is (mostly) automatically generated from tclOO.decls.
- */
-
-
-#ifndef _TCLOODECLS
-#define _TCLOODECLS
-
-#undef TCL_STORAGE_CLASS
-#ifdef BUILD_tcl
-#   define TCL_STORAGE_CLASS DLLEXPORT
-#else
-#   ifdef USE_TCL_STUBS
-#      define TCL_STORAGE_CLASS
-#   else
-#      define TCL_STORAGE_CLASS DLLIMPORT
-#   endif
-#endif
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script.  Any modifications to the function declarations below should be made
- * in the generic/tclOO.decls script.
- */
-
-
-
-#if defined(USE_TCLOO_STUBS)
-extern const char *TclOOInitializeStubs(Tcl_Interp *, const char *version);
-#define Tcl_OOInitStubs(interp) TclOOInitializeStubs((interp),TCLOO_VERSION)
-#else
-#define Tcl_OOInitStubs(interp) Tcl_PkgRequire((interp),"TclOO",TCLOO_VERSION)
-#endif
-
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported function declarations:
- */
-
-#ifndef Tcl_CopyObjectInstance_TCL_DECLARED
-#define Tcl_CopyObjectInstance_TCL_DECLARED
-/* 0 */
-EXTERN Tcl_Object	Tcl_CopyObjectInstance (Tcl_Interp * interp, 
-				Tcl_Object sourceObject, 
-				const char * targetName, 
-				const char * targetNamespaceName);
-#endif
-#ifndef Tcl_GetClassAsObject_TCL_DECLARED
-#define Tcl_GetClassAsObject_TCL_DECLARED
-/* 1 */
-EXTERN Tcl_Object	Tcl_GetClassAsObject (Tcl_Class clazz);
-#endif
-#ifndef Tcl_GetObjectAsClass_TCL_DECLARED
-#define Tcl_GetObjectAsClass_TCL_DECLARED
-/* 2 */
-EXTERN Tcl_Class	Tcl_GetObjectAsClass (Tcl_Object object);
-#endif
-#ifndef Tcl_GetObjectCommand_TCL_DECLARED
-#define Tcl_GetObjectCommand_TCL_DECLARED
-/* 3 */
-EXTERN Tcl_Command	Tcl_GetObjectCommand (Tcl_Object object);
-#endif
-#ifndef Tcl_GetObjectFromObj_TCL_DECLARED
-#define Tcl_GetObjectFromObj_TCL_DECLARED
-/* 4 */
-EXTERN Tcl_Object	Tcl_GetObjectFromObj (Tcl_Interp * interp, 
-				Tcl_Obj * objPtr);
-#endif
-#ifndef Tcl_GetObjectNamespace_TCL_DECLARED
-#define Tcl_GetObjectNamespace_TCL_DECLARED
-/* 5 */
-EXTERN Tcl_Namespace *	Tcl_GetObjectNamespace (Tcl_Object object);
-#endif
-#ifndef Tcl_MethodDeclarerClass_TCL_DECLARED
-#define Tcl_MethodDeclarerClass_TCL_DECLARED
-/* 6 */
-EXTERN Tcl_Class	Tcl_MethodDeclarerClass (Tcl_Method method);
-#endif
-#ifndef Tcl_MethodDeclarerObject_TCL_DECLARED
-#define Tcl_MethodDeclarerObject_TCL_DECLARED
-/* 7 */
-EXTERN Tcl_Object	Tcl_MethodDeclarerObject (Tcl_Method method);
-#endif
-#ifndef Tcl_MethodIsPublic_TCL_DECLARED
-#define Tcl_MethodIsPublic_TCL_DECLARED
-/* 8 */
-EXTERN int		Tcl_MethodIsPublic (Tcl_Method method);
-#endif
-#ifndef Tcl_MethodIsType_TCL_DECLARED
-#define Tcl_MethodIsType_TCL_DECLARED
-/* 9 */
-EXTERN int		Tcl_MethodIsType (Tcl_Method method, 
-				const Tcl_MethodType * typePtr, 
-				ClientData * clientDataPtr);
-#endif
-#ifndef Tcl_MethodName_TCL_DECLARED
-#define Tcl_MethodName_TCL_DECLARED
-/* 10 */
-EXTERN Tcl_Obj *	Tcl_MethodName (Tcl_Method method);
-#endif
-#ifndef Tcl_NewInstanceMethod_TCL_DECLARED
-#define Tcl_NewInstanceMethod_TCL_DECLARED
-/* 11 */
-EXTERN Tcl_Method	Tcl_NewInstanceMethod (Tcl_Interp * interp, 
-				Tcl_Object object, Tcl_Obj * nameObj, 
-				int isPublic, const Tcl_MethodType * typePtr, 
-				ClientData clientData);
-#endif
-#ifndef Tcl_NewMethod_TCL_DECLARED
-#define Tcl_NewMethod_TCL_DECLARED
-/* 12 */
-EXTERN Tcl_Method	Tcl_NewMethod (Tcl_Interp * interp, Tcl_Class cls, 
-				Tcl_Obj * nameObj, int isPublic, 
-				const Tcl_MethodType * typePtr, 
-				ClientData clientData);
-#endif
-#ifndef Tcl_NewObjectInstance_TCL_DECLARED
-#define Tcl_NewObjectInstance_TCL_DECLARED
-/* 13 */
-EXTERN Tcl_Object	Tcl_NewObjectInstance (Tcl_Interp * interp, 
-				Tcl_Class cls, const char * nameStr, 
-				const char * nsNameStr, int objc, 
-				Tcl_Obj *const * objv, int skip);
-#endif
-#ifndef Tcl_ObjectDeleted_TCL_DECLARED
-#define Tcl_ObjectDeleted_TCL_DECLARED
-/* 14 */
-EXTERN int		Tcl_ObjectDeleted (Tcl_Object object);
-#endif
-#ifndef Tcl_ObjectContextIsFiltering_TCL_DECLARED
-#define Tcl_ObjectContextIsFiltering_TCL_DECLARED
-/* 15 */
-EXTERN int		Tcl_ObjectContextIsFiltering (
-				Tcl_ObjectContext context);
-#endif
-#ifndef Tcl_ObjectContextMethod_TCL_DECLARED
-#define Tcl_ObjectContextMethod_TCL_DECLARED
-/* 16 */
-EXTERN Tcl_Method	Tcl_ObjectContextMethod (Tcl_ObjectContext context);
-#endif
-#ifndef Tcl_ObjectContextObject_TCL_DECLARED
-#define Tcl_ObjectContextObject_TCL_DECLARED
-/* 17 */
-EXTERN Tcl_Object	Tcl_ObjectContextObject (Tcl_ObjectContext context);
-#endif
-#ifndef Tcl_ObjectContextSkippedArgs_TCL_DECLARED
-#define Tcl_ObjectContextSkippedArgs_TCL_DECLARED
-/* 18 */
-EXTERN int		Tcl_ObjectContextSkippedArgs (
-				Tcl_ObjectContext context);
-#endif
-#ifndef Tcl_ClassGetMetadata_TCL_DECLARED
-#define Tcl_ClassGetMetadata_TCL_DECLARED
-/* 19 */
-EXTERN ClientData	Tcl_ClassGetMetadata (Tcl_Class clazz, 
-				const Tcl_ObjectMetadataType * typePtr);
-#endif
-#ifndef Tcl_ClassSetMetadata_TCL_DECLARED
-#define Tcl_ClassSetMetadata_TCL_DECLARED
-/* 20 */
-EXTERN void		Tcl_ClassSetMetadata (Tcl_Class clazz, 
-				const Tcl_ObjectMetadataType * typePtr, 
-				ClientData metadata);
-#endif
-#ifndef Tcl_ObjectGetMetadata_TCL_DECLARED
-#define Tcl_ObjectGetMetadata_TCL_DECLARED
-/* 21 */
-EXTERN ClientData	Tcl_ObjectGetMetadata (Tcl_Object object, 
-				const Tcl_ObjectMetadataType * typePtr);
-#endif
-#ifndef Tcl_ObjectSetMetadata_TCL_DECLARED
-#define Tcl_ObjectSetMetadata_TCL_DECLARED
-/* 22 */
-EXTERN void		Tcl_ObjectSetMetadata (Tcl_Object object, 
-				const Tcl_ObjectMetadataType * typePtr, 
-				ClientData metadata);
-#endif
-#ifndef Tcl_ObjectContextInvokeNext_TCL_DECLARED
-#define Tcl_ObjectContextInvokeNext_TCL_DECLARED
-/* 23 */
-EXTERN int		Tcl_ObjectContextInvokeNext (Tcl_Interp * interp, 
-				Tcl_ObjectContext context, int objc, 
-				Tcl_Obj *const * objv, int skip);
-#endif
-#ifndef Tcl_ObjectGetMethodNameMapper_TCL_DECLARED
-#define Tcl_ObjectGetMethodNameMapper_TCL_DECLARED
-/* 24 */
-EXTERN Tcl_ObjectMapMethodNameProc Tcl_ObjectGetMethodNameMapper (
-				Tcl_Object object);
-#endif
-#ifndef Tcl_ObjectSetMethodNameMapper_TCL_DECLARED
-#define Tcl_ObjectSetMethodNameMapper_TCL_DECLARED
-/* 25 */
-EXTERN void		Tcl_ObjectSetMethodNameMapper (Tcl_Object object, 
-				Tcl_ObjectMapMethodNameProc mapMethodNameProc);
-#endif
-#ifndef Tcl_ClassSetConstructor_TCL_DECLARED
-#define Tcl_ClassSetConstructor_TCL_DECLARED
-/* 26 */
-EXTERN void		Tcl_ClassSetConstructor (Tcl_Interp * interp, 
-				Tcl_Class clazz, Tcl_Method method);
-#endif
-#ifndef Tcl_ClassSetDestructor_TCL_DECLARED
-#define Tcl_ClassSetDestructor_TCL_DECLARED
-/* 27 */
-EXTERN void		Tcl_ClassSetDestructor (Tcl_Interp * interp, 
-				Tcl_Class clazz, Tcl_Method method);
-#endif
-
-typedef struct TclOOStubHooks {
-    CONST struct TclOOIntStubs *tclOOIntStubs;
-} TclOOStubHooks;
-
-typedef struct TclOOStubs {
-    int magic;
-    CONST struct TclOOStubHooks *hooks;
-
-    Tcl_Object (*tcl_CopyObjectInstance) (Tcl_Interp * interp, Tcl_Object sourceObject, const char * targetName, const char * targetNamespaceName); /* 0 */
-    Tcl_Object (*tcl_GetClassAsObject) (Tcl_Class clazz); /* 1 */
-    Tcl_Class (*tcl_GetObjectAsClass) (Tcl_Object object); /* 2 */
-    Tcl_Command (*tcl_GetObjectCommand) (Tcl_Object object); /* 3 */
-    Tcl_Object (*tcl_GetObjectFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 4 */
-    Tcl_Namespace * (*tcl_GetObjectNamespace) (Tcl_Object object); /* 5 */
-    Tcl_Class (*tcl_MethodDeclarerClass) (Tcl_Method method); /* 6 */
-    Tcl_Object (*tcl_MethodDeclarerObject) (Tcl_Method method); /* 7 */
-    int (*tcl_MethodIsPublic) (Tcl_Method method); /* 8 */
-    int (*tcl_MethodIsType) (Tcl_Method method, const Tcl_MethodType * typePtr, ClientData * clientDataPtr); /* 9 */
-    Tcl_Obj * (*tcl_MethodName) (Tcl_Method method); /* 10 */
-    Tcl_Method (*tcl_NewInstanceMethod) (Tcl_Interp * interp, Tcl_Object object, Tcl_Obj * nameObj, int isPublic, const Tcl_MethodType * typePtr, ClientData clientData); /* 11 */
-    Tcl_Method (*tcl_NewMethod) (Tcl_Interp * interp, Tcl_Class cls, Tcl_Obj * nameObj, int isPublic, const Tcl_MethodType * typePtr, ClientData clientData); /* 12 */
-    Tcl_Object (*tcl_NewObjectInstance) (Tcl_Interp * interp, Tcl_Class cls, const char * nameStr, const char * nsNameStr, int objc, Tcl_Obj *const * objv, int skip); /* 13 */
-    int (*tcl_ObjectDeleted) (Tcl_Object object); /* 14 */
-    int (*tcl_ObjectContextIsFiltering) (Tcl_ObjectContext context); /* 15 */
-    Tcl_Method (*tcl_ObjectContextMethod) (Tcl_ObjectContext context); /* 16 */
-    Tcl_Object (*tcl_ObjectContextObject) (Tcl_ObjectContext context); /* 17 */
-    int (*tcl_ObjectContextSkippedArgs) (Tcl_ObjectContext context); /* 18 */
-    ClientData (*tcl_ClassGetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType * typePtr); /* 19 */
-    void (*tcl_ClassSetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType * typePtr, ClientData metadata); /* 20 */
-    ClientData (*tcl_ObjectGetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType * typePtr); /* 21 */
-    void (*tcl_ObjectSetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType * typePtr, ClientData metadata); /* 22 */
-    int (*tcl_ObjectContextInvokeNext) (Tcl_Interp * interp, Tcl_ObjectContext context, int objc, Tcl_Obj *const * objv, int skip); /* 23 */
-    Tcl_ObjectMapMethodNameProc (*tcl_ObjectGetMethodNameMapper) (Tcl_Object object); /* 24 */
-    void (*tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMapMethodNameProc mapMethodNameProc); /* 25 */
-    void (*tcl_ClassSetConstructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 26 */
-    void (*tcl_ClassSetDestructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 27 */
-} TclOOStubs;
-
-#if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS)
-extern CONST TclOOStubs *tclOOStubsPtr;
-#endif /* defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) */
-
-#if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS)
-
-/*
- * Inline function declarations:
- */
-
-#ifndef Tcl_CopyObjectInstance
-#define Tcl_CopyObjectInstance \
-	(tclOOStubsPtr->tcl_CopyObjectInstance) /* 0 */
-#endif
-#ifndef Tcl_GetClassAsObject
-#define Tcl_GetClassAsObject \
-	(tclOOStubsPtr->tcl_GetClassAsObject) /* 1 */
-#endif
-#ifndef Tcl_GetObjectAsClass
-#define Tcl_GetObjectAsClass \
-	(tclOOStubsPtr->tcl_GetObjectAsClass) /* 2 */
-#endif
-#ifndef Tcl_GetObjectCommand
-#define Tcl_GetObjectCommand \
-	(tclOOStubsPtr->tcl_GetObjectCommand) /* 3 */
-#endif
-#ifndef Tcl_GetObjectFromObj
-#define Tcl_GetObjectFromObj \
-	(tclOOStubsPtr->tcl_GetObjectFromObj) /* 4 */
-#endif
-#ifndef Tcl_GetObjectNamespace
-#define Tcl_GetObjectNamespace \
-	(tclOOStubsPtr->tcl_GetObjectNamespace) /* 5 */
-#endif
-#ifndef Tcl_MethodDeclarerClass
-#define Tcl_MethodDeclarerClass \
-	(tclOOStubsPtr->tcl_MethodDeclarerClass) /* 6 */
-#endif
-#ifndef Tcl_MethodDeclarerObject
-#define Tcl_MethodDeclarerObject \
-	(tclOOStubsPtr->tcl_MethodDeclarerObject) /* 7 */
-#endif
-#ifndef Tcl_MethodIsPublic
-#define Tcl_MethodIsPublic \
-	(tclOOStubsPtr->tcl_MethodIsPublic) /* 8 */
-#endif
-#ifndef Tcl_MethodIsType
-#define Tcl_MethodIsType \
-	(tclOOStubsPtr->tcl_MethodIsType) /* 9 */
-#endif
-#ifndef Tcl_MethodName
-#define Tcl_MethodName \
-	(tclOOStubsPtr->tcl_MethodName) /* 10 */
-#endif
-#ifndef Tcl_NewInstanceMethod
-#define Tcl_NewInstanceMethod \
-	(tclOOStubsPtr->tcl_NewInstanceMethod) /* 11 */
-#endif
-#ifndef Tcl_NewMethod
-#define Tcl_NewMethod \
-	(tclOOStubsPtr->tcl_NewMethod) /* 12 */
-#endif
-#ifndef Tcl_NewObjectInstance
-#define Tcl_NewObjectInstance \
-	(tclOOStubsPtr->tcl_NewObjectInstance) /* 13 */
-#endif
-#ifndef Tcl_ObjectDeleted
-#define Tcl_ObjectDeleted \
-	(tclOOStubsPtr->tcl_ObjectDeleted) /* 14 */
-#endif
-#ifndef Tcl_ObjectContextIsFiltering
-#define Tcl_ObjectContextIsFiltering \
-	(tclOOStubsPtr->tcl_ObjectContextIsFiltering) /* 15 */
-#endif
-#ifndef Tcl_ObjectContextMethod
-#define Tcl_ObjectContextMethod \
-	(tclOOStubsPtr->tcl_ObjectContextMethod) /* 16 */
-#endif
-#ifndef Tcl_ObjectContextObject
-#define Tcl_ObjectContextObject \
-	(tclOOStubsPtr->tcl_ObjectContextObject) /* 17 */
-#endif
-#ifndef Tcl_ObjectContextSkippedArgs
-#define Tcl_ObjectContextSkippedArgs \
-	(tclOOStubsPtr->tcl_ObjectContextSkippedArgs) /* 18 */
-#endif
-#ifndef Tcl_ClassGetMetadata
-#define Tcl_ClassGetMetadata \
-	(tclOOStubsPtr->tcl_ClassGetMetadata) /* 19 */
-#endif
-#ifndef Tcl_ClassSetMetadata
-#define Tcl_ClassSetMetadata \
-	(tclOOStubsPtr->tcl_ClassSetMetadata) /* 20 */
-#endif
-#ifndef Tcl_ObjectGetMetadata
-#define Tcl_ObjectGetMetadata \
-	(tclOOStubsPtr->tcl_ObjectGetMetadata) /* 21 */
-#endif
-#ifndef Tcl_ObjectSetMetadata
-#define Tcl_ObjectSetMetadata \
-	(tclOOStubsPtr->tcl_ObjectSetMetadata) /* 22 */
-#endif
-#ifndef Tcl_ObjectContextInvokeNext
-#define Tcl_ObjectContextInvokeNext \
-	(tclOOStubsPtr->tcl_ObjectContextInvokeNext) /* 23 */
-#endif
-#ifndef Tcl_ObjectGetMethodNameMapper
-#define Tcl_ObjectGetMethodNameMapper \
-	(tclOOStubsPtr->tcl_ObjectGetMethodNameMapper) /* 24 */
-#endif
-#ifndef Tcl_ObjectSetMethodNameMapper
-#define Tcl_ObjectSetMethodNameMapper \
-	(tclOOStubsPtr->tcl_ObjectSetMethodNameMapper) /* 25 */
-#endif
-#ifndef Tcl_ClassSetConstructor
-#define Tcl_ClassSetConstructor \
-	(tclOOStubsPtr->tcl_ClassSetConstructor) /* 26 */
-#endif
-#ifndef Tcl_ClassSetDestructor
-#define Tcl_ClassSetDestructor \
-	(tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */
-#endif
-
-#endif /* defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) */
-
-/* !END!: Do not edit above this line. */
-
-#undef TCL_STORAGE_CLASS
-#define TCL_STORAGE_CLASS DLLIMPORT
-
-#endif /* _TCLOODECLS */
+/*

+ * $Id: tclOODecls.h,v 1.6 2008/07/21 21:02:18 ferrieux Exp $

+ *

+ * This file is (mostly) automatically generated from tclOO.decls.

+ */

+

+

+#ifndef _TCLOODECLS

+#define _TCLOODECLS

+

+#undef TCL_STORAGE_CLASS

+#ifdef BUILD_tcl

+#   define TCL_STORAGE_CLASS DLLEXPORT

+#else

+#   ifdef USE_TCL_STUBS

+#      define TCL_STORAGE_CLASS

+#   else

+#      define TCL_STORAGE_CLASS DLLIMPORT

+#   endif

+#endif

+

+/*

+ * WARNING: This file is automatically generated by the tools/genStubs.tcl

+ * script.  Any modifications to the function declarations below should be made

+ * in the generic/tclOO.decls script.

+ */

+

+

+

+#if defined(USE_TCLOO_STUBS)

+extern const char *TclOOInitializeStubs(Tcl_Interp *, const char *version);

+#define Tcl_OOInitStubs(interp) TclOOInitializeStubs((interp),TCLOO_VERSION)

+#else

+#define Tcl_OOInitStubs(interp) Tcl_PkgRequire((interp),"TclOO",TCLOO_VERSION)

+#endif

+

+

+/* !BEGIN!: Do not edit below this line. */

+

+/*

+ * Exported function declarations:

+ */

+

+#ifndef Tcl_CopyObjectInstance_TCL_DECLARED

+#define Tcl_CopyObjectInstance_TCL_DECLARED

+/* 0 */

+EXTERN Tcl_Object	Tcl_CopyObjectInstance (Tcl_Interp * interp, 

+				Tcl_Object sourceObject, 

+				const char * targetName, 

+				const char * targetNamespaceName);

+#endif

+#ifndef Tcl_GetClassAsObject_TCL_DECLARED

+#define Tcl_GetClassAsObject_TCL_DECLARED

+/* 1 */

+EXTERN Tcl_Object	Tcl_GetClassAsObject (Tcl_Class clazz);

+#endif

+#ifndef Tcl_GetObjectAsClass_TCL_DECLARED

+#define Tcl_GetObjectAsClass_TCL_DECLARED

+/* 2 */

+EXTERN Tcl_Class	Tcl_GetObjectAsClass (Tcl_Object object);

+#endif

+#ifndef Tcl_GetObjectCommand_TCL_DECLARED

+#define Tcl_GetObjectCommand_TCL_DECLARED

+/* 3 */

+EXTERN Tcl_Command	Tcl_GetObjectCommand (Tcl_Object object);

+#endif

+#ifndef Tcl_GetObjectFromObj_TCL_DECLARED

+#define Tcl_GetObjectFromObj_TCL_DECLARED

+/* 4 */

+EXTERN Tcl_Object	Tcl_GetObjectFromObj (Tcl_Interp * interp, 

+				Tcl_Obj * objPtr);

+#endif

+#ifndef Tcl_GetObjectNamespace_TCL_DECLARED

+#define Tcl_GetObjectNamespace_TCL_DECLARED

+/* 5 */

+EXTERN Tcl_Namespace *	Tcl_GetObjectNamespace (Tcl_Object object);

+#endif

+#ifndef Tcl_MethodDeclarerClass_TCL_DECLARED

+#define Tcl_MethodDeclarerClass_TCL_DECLARED

+/* 6 */

+EXTERN Tcl_Class	Tcl_MethodDeclarerClass (Tcl_Method method);

+#endif

+#ifndef Tcl_MethodDeclarerObject_TCL_DECLARED

+#define Tcl_MethodDeclarerObject_TCL_DECLARED

+/* 7 */

+EXTERN Tcl_Object	Tcl_MethodDeclarerObject (Tcl_Method method);

+#endif

+#ifndef Tcl_MethodIsPublic_TCL_DECLARED

+#define Tcl_MethodIsPublic_TCL_DECLARED

+/* 8 */

+EXTERN int		Tcl_MethodIsPublic (Tcl_Method method);

+#endif

+#ifndef Tcl_MethodIsType_TCL_DECLARED

+#define Tcl_MethodIsType_TCL_DECLARED

+/* 9 */

+EXTERN int		Tcl_MethodIsType (Tcl_Method method, 

+				const Tcl_MethodType * typePtr, 

+				ClientData * clientDataPtr);

+#endif

+#ifndef Tcl_MethodName_TCL_DECLARED

+#define Tcl_MethodName_TCL_DECLARED

+/* 10 */

+EXTERN Tcl_Obj *	Tcl_MethodName (Tcl_Method method);

+#endif

+#ifndef Tcl_NewInstanceMethod_TCL_DECLARED

+#define Tcl_NewInstanceMethod_TCL_DECLARED

+/* 11 */

+EXTERN Tcl_Method	Tcl_NewInstanceMethod (Tcl_Interp * interp, 

+				Tcl_Object object, Tcl_Obj * nameObj, 

+				int isPublic, const Tcl_MethodType * typePtr, 

+				ClientData clientData);

+#endif

+#ifndef Tcl_NewMethod_TCL_DECLARED

+#define Tcl_NewMethod_TCL_DECLARED

+/* 12 */

+EXTERN Tcl_Method	Tcl_NewMethod (Tcl_Interp * interp, Tcl_Class cls, 

+				Tcl_Obj * nameObj, int isPublic, 

+				const Tcl_MethodType * typePtr, 

+				ClientData clientData);

+#endif

+#ifndef Tcl_NewObjectInstance_TCL_DECLARED

+#define Tcl_NewObjectInstance_TCL_DECLARED

+/* 13 */

+EXTERN Tcl_Object	Tcl_NewObjectInstance (Tcl_Interp * interp, 

+				Tcl_Class cls, const char * nameStr, 

+				const char * nsNameStr, int objc, 

+				Tcl_Obj *const * objv, int skip);

+#endif

+#ifndef Tcl_ObjectDeleted_TCL_DECLARED

+#define Tcl_ObjectDeleted_TCL_DECLARED

+/* 14 */

+EXTERN int		Tcl_ObjectDeleted (Tcl_Object object);

+#endif

+#ifndef Tcl_ObjectContextIsFiltering_TCL_DECLARED

+#define Tcl_ObjectContextIsFiltering_TCL_DECLARED

+/* 15 */

+EXTERN int		Tcl_ObjectContextIsFiltering (

+				Tcl_ObjectContext context);

+#endif

+#ifndef Tcl_ObjectContextMethod_TCL_DECLARED

+#define Tcl_ObjectContextMethod_TCL_DECLARED

+/* 16 */

+EXTERN Tcl_Method	Tcl_ObjectContextMethod (Tcl_ObjectContext context);

+#endif

+#ifndef Tcl_ObjectContextObject_TCL_DECLARED

+#define Tcl_ObjectContextObject_TCL_DECLARED

+/* 17 */

+EXTERN Tcl_Object	Tcl_ObjectContextObject (Tcl_ObjectContext context);

+#endif

+#ifndef Tcl_ObjectContextSkippedArgs_TCL_DECLARED

+#define Tcl_ObjectContextSkippedArgs_TCL_DECLARED

+/* 18 */

+EXTERN int		Tcl_ObjectContextSkippedArgs (

+				Tcl_ObjectContext context);

+#endif

+#ifndef Tcl_ClassGetMetadata_TCL_DECLARED

+#define Tcl_ClassGetMetadata_TCL_DECLARED

+/* 19 */

+EXTERN ClientData	Tcl_ClassGetMetadata (Tcl_Class clazz, 

+				const Tcl_ObjectMetadataType * typePtr);

+#endif

+#ifndef Tcl_ClassSetMetadata_TCL_DECLARED

+#define Tcl_ClassSetMetadata_TCL_DECLARED

+/* 20 */

+EXTERN void		Tcl_ClassSetMetadata (Tcl_Class clazz, 

+				const Tcl_ObjectMetadataType * typePtr, 

+				ClientData metadata);

+#endif

+#ifndef Tcl_ObjectGetMetadata_TCL_DECLARED

+#define Tcl_ObjectGetMetadata_TCL_DECLARED

+/* 21 */

+EXTERN ClientData	Tcl_ObjectGetMetadata (Tcl_Object object, 

+				const Tcl_ObjectMetadataType * typePtr);

+#endif

+#ifndef Tcl_ObjectSetMetadata_TCL_DECLARED

+#define Tcl_ObjectSetMetadata_TCL_DECLARED

+/* 22 */

+EXTERN void		Tcl_ObjectSetMetadata (Tcl_Object object, 

+				const Tcl_ObjectMetadataType * typePtr, 

+				ClientData metadata);

+#endif

+#ifndef Tcl_ObjectContextInvokeNext_TCL_DECLARED

+#define Tcl_ObjectContextInvokeNext_TCL_DECLARED

+/* 23 */

+EXTERN int		Tcl_ObjectContextInvokeNext (Tcl_Interp * interp, 

+				Tcl_ObjectContext context, int objc, 

+				Tcl_Obj *const * objv, int skip);

+#endif

+#ifndef Tcl_ObjectGetMethodNameMapper_TCL_DECLARED

+#define Tcl_ObjectGetMethodNameMapper_TCL_DECLARED

+/* 24 */

+EXTERN Tcl_ObjectMapMethodNameProc Tcl_ObjectGetMethodNameMapper (

+				Tcl_Object object);

+#endif

+#ifndef Tcl_ObjectSetMethodNameMapper_TCL_DECLARED

+#define Tcl_ObjectSetMethodNameMapper_TCL_DECLARED

+/* 25 */

+EXTERN void		Tcl_ObjectSetMethodNameMapper (Tcl_Object object, 

+				Tcl_ObjectMapMethodNameProc mapMethodNameProc);

+#endif

+#ifndef Tcl_ClassSetConstructor_TCL_DECLARED

+#define Tcl_ClassSetConstructor_TCL_DECLARED

+/* 26 */

+EXTERN void		Tcl_ClassSetConstructor (Tcl_Interp * interp, 

+				Tcl_Class clazz, Tcl_Method method);

+#endif

+#ifndef Tcl_ClassSetDestructor_TCL_DECLARED

+#define Tcl_ClassSetDestructor_TCL_DECLARED

+/* 27 */

+EXTERN void		Tcl_ClassSetDestructor (Tcl_Interp * interp, 

+				Tcl_Class clazz, Tcl_Method method);

+#endif

+

+typedef struct TclOOStubHooks {

+    CONST struct TclOOIntStubs *tclOOIntStubs;

+} TclOOStubHooks;

+

+typedef struct TclOOStubs {

+    int magic;

+    CONST struct TclOOStubHooks *hooks;

+

+    Tcl_Object (*tcl_CopyObjectInstance) (Tcl_Interp * interp, Tcl_Object sourceObject, const char * targetName, const char * targetNamespaceName); /* 0 */

+    Tcl_Object (*tcl_GetClassAsObject) (Tcl_Class clazz); /* 1 */

+    Tcl_Class (*tcl_GetObjectAsClass) (Tcl_Object object); /* 2 */

+    Tcl_Command (*tcl_GetObjectCommand) (Tcl_Object object); /* 3 */

+    Tcl_Object (*tcl_GetObjectFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 4 */

+    Tcl_Namespace * (*tcl_GetObjectNamespace) (Tcl_Object object); /* 5 */

+    Tcl_Class (*tcl_MethodDeclarerClass) (Tcl_Method method); /* 6 */

+    Tcl_Object (*tcl_MethodDeclarerObject) (Tcl_Method method); /* 7 */

+    int (*tcl_MethodIsPublic) (Tcl_Method method); /* 8 */

+    int (*tcl_MethodIsType) (Tcl_Method method, const Tcl_MethodType * typePtr, ClientData * clientDataPtr); /* 9 */

+    Tcl_Obj * (*tcl_MethodName) (Tcl_Method method); /* 10 */

+    Tcl_Method (*tcl_NewInstanceMethod) (Tcl_Interp * interp, Tcl_Object object, Tcl_Obj * nameObj, int isPublic, const Tcl_MethodType * typePtr, ClientData clientData); /* 11 */

+    Tcl_Method (*tcl_NewMethod) (Tcl_Interp * interp, Tcl_Class cls, Tcl_Obj * nameObj, int isPublic, const Tcl_MethodType * typePtr, ClientData clientData); /* 12 */

+    Tcl_Object (*tcl_NewObjectInstance) (Tcl_Interp * interp, Tcl_Class cls, const char * nameStr, const char * nsNameStr, int objc, Tcl_Obj *const * objv, int skip); /* 13 */

+    int (*tcl_ObjectDeleted) (Tcl_Object object); /* 14 */

+    int (*tcl_ObjectContextIsFiltering) (Tcl_ObjectContext context); /* 15 */

+    Tcl_Method (*tcl_ObjectContextMethod) (Tcl_ObjectContext context); /* 16 */

+    Tcl_Object (*tcl_ObjectContextObject) (Tcl_ObjectContext context); /* 17 */

+    int (*tcl_ObjectContextSkippedArgs) (Tcl_ObjectContext context); /* 18 */

+    ClientData (*tcl_ClassGetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType * typePtr); /* 19 */

+    void (*tcl_ClassSetMetadata) (Tcl_Class clazz, const Tcl_ObjectMetadataType * typePtr, ClientData metadata); /* 20 */

+    ClientData (*tcl_ObjectGetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType * typePtr); /* 21 */

+    void (*tcl_ObjectSetMetadata) (Tcl_Object object, const Tcl_ObjectMetadataType * typePtr, ClientData metadata); /* 22 */

+    int (*tcl_ObjectContextInvokeNext) (Tcl_Interp * interp, Tcl_ObjectContext context, int objc, Tcl_Obj *const * objv, int skip); /* 23 */

+    Tcl_ObjectMapMethodNameProc (*tcl_ObjectGetMethodNameMapper) (Tcl_Object object); /* 24 */

+    void (*tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMapMethodNameProc mapMethodNameProc); /* 25 */

+    void (*tcl_ClassSetConstructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 26 */

+    void (*tcl_ClassSetDestructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 27 */

+} TclOOStubs;

+

+#if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS)

+extern CONST TclOOStubs *tclOOStubsPtr;

+#endif /* defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) */

+

+#if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS)

+

+/*

+ * Inline function declarations:

+ */

+

+#ifndef Tcl_CopyObjectInstance

+#define Tcl_CopyObjectInstance \

+	(tclOOStubsPtr->tcl_CopyObjectInstance) /* 0 */

+#endif

+#ifndef Tcl_GetClassAsObject

+#define Tcl_GetClassAsObject \

+	(tclOOStubsPtr->tcl_GetClassAsObject) /* 1 */

+#endif

+#ifndef Tcl_GetObjectAsClass

+#define Tcl_GetObjectAsClass \

+	(tclOOStubsPtr->tcl_GetObjectAsClass) /* 2 */

+#endif

+#ifndef Tcl_GetObjectCommand

+#define Tcl_GetObjectCommand \

+	(tclOOStubsPtr->tcl_GetObjectCommand) /* 3 */

+#endif

+#ifndef Tcl_GetObjectFromObj

+#define Tcl_GetObjectFromObj \

+	(tclOOStubsPtr->tcl_GetObjectFromObj) /* 4 */

+#endif

+#ifndef Tcl_GetObjectNamespace

+#define Tcl_GetObjectNamespace \

+	(tclOOStubsPtr->tcl_GetObjectNamespace) /* 5 */

+#endif

+#ifndef Tcl_MethodDeclarerClass

+#define Tcl_MethodDeclarerClass \

+	(tclOOStubsPtr->tcl_MethodDeclarerClass) /* 6 */

+#endif

+#ifndef Tcl_MethodDeclarerObject

+#define Tcl_MethodDeclarerObject \

+	(tclOOStubsPtr->tcl_MethodDeclarerObject) /* 7 */

+#endif

+#ifndef Tcl_MethodIsPublic

+#define Tcl_MethodIsPublic \

+	(tclOOStubsPtr->tcl_MethodIsPublic) /* 8 */

+#endif

+#ifndef Tcl_MethodIsType

+#define Tcl_MethodIsType \

+	(tclOOStubsPtr->tcl_MethodIsType) /* 9 */

+#endif

+#ifndef Tcl_MethodName

+#define Tcl_MethodName \

+	(tclOOStubsPtr->tcl_MethodName) /* 10 */

+#endif

+#ifndef Tcl_NewInstanceMethod

+#define Tcl_NewInstanceMethod \

+	(tclOOStubsPtr->tcl_NewInstanceMethod) /* 11 */

+#endif

+#ifndef Tcl_NewMethod

+#define Tcl_NewMethod \

+	(tclOOStubsPtr->tcl_NewMethod) /* 12 */

+#endif

+#ifndef Tcl_NewObjectInstance

+#define Tcl_NewObjectInstance \

+	(tclOOStubsPtr->tcl_NewObjectInstance) /* 13 */

+#endif

+#ifndef Tcl_ObjectDeleted

+#define Tcl_ObjectDeleted \

+	(tclOOStubsPtr->tcl_ObjectDeleted) /* 14 */

+#endif

+#ifndef Tcl_ObjectContextIsFiltering

+#define Tcl_ObjectContextIsFiltering \

+	(tclOOStubsPtr->tcl_ObjectContextIsFiltering) /* 15 */

+#endif

+#ifndef Tcl_ObjectContextMethod

+#define Tcl_ObjectContextMethod \

+	(tclOOStubsPtr->tcl_ObjectContextMethod) /* 16 */

+#endif

+#ifndef Tcl_ObjectContextObject

+#define Tcl_ObjectContextObject \

+	(tclOOStubsPtr->tcl_ObjectContextObject) /* 17 */

+#endif

+#ifndef Tcl_ObjectContextSkippedArgs

+#define Tcl_ObjectContextSkippedArgs \

+	(tclOOStubsPtr->tcl_ObjectContextSkippedArgs) /* 18 */

+#endif

+#ifndef Tcl_ClassGetMetadata

+#define Tcl_ClassGetMetadata \

+	(tclOOStubsPtr->tcl_ClassGetMetadata) /* 19 */

+#endif

+#ifndef Tcl_ClassSetMetadata

+#define Tcl_ClassSetMetadata \

+	(tclOOStubsPtr->tcl_ClassSetMetadata) /* 20 */

+#endif

+#ifndef Tcl_ObjectGetMetadata

+#define Tcl_ObjectGetMetadata \

+	(tclOOStubsPtr->tcl_ObjectGetMetadata) /* 21 */

+#endif

+#ifndef Tcl_ObjectSetMetadata

+#define Tcl_ObjectSetMetadata \

+	(tclOOStubsPtr->tcl_ObjectSetMetadata) /* 22 */

+#endif

+#ifndef Tcl_ObjectContextInvokeNext

+#define Tcl_ObjectContextInvokeNext \

+	(tclOOStubsPtr->tcl_ObjectContextInvokeNext) /* 23 */

+#endif

+#ifndef Tcl_ObjectGetMethodNameMapper

+#define Tcl_ObjectGetMethodNameMapper \

+	(tclOOStubsPtr->tcl_ObjectGetMethodNameMapper) /* 24 */

+#endif

+#ifndef Tcl_ObjectSetMethodNameMapper

+#define Tcl_ObjectSetMethodNameMapper \

+	(tclOOStubsPtr->tcl_ObjectSetMethodNameMapper) /* 25 */

+#endif

+#ifndef Tcl_ClassSetConstructor

+#define Tcl_ClassSetConstructor \

+	(tclOOStubsPtr->tcl_ClassSetConstructor) /* 26 */

+#endif

+#ifndef Tcl_ClassSetDestructor

+#define Tcl_ClassSetDestructor \

+	(tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */

+#endif

+

+#endif /* defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) */

+

+/* !END!: Do not edit above this line. */

+

+#undef TCL_STORAGE_CLASS

+#define TCL_STORAGE_CLASS DLLIMPORT

+

+#endif /* _TCLOODECLS */