diff options
author | das <das@noemail.net> | 2008-07-22 23:01:31 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-07-22 23:01:31 (GMT) |
commit | ac2b12e46399537c853455b393e8914d45a58f51 (patch) | |
tree | f87bc79da225e51276324b42744b8ffa75be550f /generic/tclOODecls.h | |
parent | a3f0e058c1c0ef6f71c790ea406186042ac0b9a3 (diff) | |
download | tcl-ac2b12e46399537c853455b393e8914d45a58f51.zip tcl-ac2b12e46399537c853455b393e8914d45a58f51.tar.gz tcl-ac2b12e46399537c853455b393e8914d45a58f51.tar.bz2 |
fix line-endings
FossilOrigin-Name: 7352e913603a2710129d8cd7c5fcdc6178c78ca7
Diffstat (limited to 'generic/tclOODecls.h')
-rw-r--r-- | generic/tclOODecls.h | 764 |
1 files changed, 382 insertions, 382 deletions
diff --git a/generic/tclOODecls.h b/generic/tclOODecls.h index 1c01ce1..79629ce 100644 --- a/generic/tclOODecls.h +++ b/generic/tclOODecls.h @@ -1,382 +1,382 @@ -/*
- * $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 */
+/* + * $Id: tclOODecls.h,v 1.7 2008/07/22 23:01:37 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 */ |