diff options
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 83 |
1 files changed, 1 insertions, 82 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 2c95f26..3501c96 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,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.h,v 1.218 2006/10/20 14:04:00 dkf Exp $ + * RCS: @(#) $Id: tcl.h,v 1.219 2006/10/20 15:16:47 dkf Exp $ */ #ifndef _TCL @@ -501,7 +501,6 @@ typedef struct Tcl_Interp { typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; typedef struct Tcl_Channel_ *Tcl_Channel; typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_Class_ *Tcl_Class; typedef struct Tcl_Command_ *Tcl_Command; typedef struct Tcl_Condition_ *Tcl_Condition; typedef struct Tcl_Dict_ *Tcl_Dict; @@ -510,10 +509,7 @@ typedef struct Tcl_Encoding_ *Tcl_Encoding; typedef struct Tcl_Event Tcl_Event; typedef struct Tcl_InterpState_ *Tcl_InterpState; typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; -typedef struct Tcl_Method_ *Tcl_Method; typedef struct Tcl_Mutex_ *Tcl_Mutex; -typedef struct Tcl_Object_ *Tcl_Object; -typedef struct Tcl_ObjectContext_ *Tcl_ObjectContext; typedef struct Tcl_Pid_ *Tcl_Pid; typedef struct Tcl_RegExp_ *Tcl_RegExp; typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; @@ -957,8 +953,6 @@ typedef struct Tcl_CallFrame { char *dummy8; int dummy9; char* dummy10; - void* dummy11; - /*int dummy12;*/ } Tcl_CallFrame; /* @@ -2357,81 +2351,6 @@ typedef unsigned long mp_digit; #define MP_DIGIT_DECLARED #endif -/* - * Public datatypes for callbacks and structures used in the TIP#257 (OO) - * implementation. These are used to implement custom types of method calls - * and to allow the attachment of arbitrary data to objects and classes. - */ - -typedef int (*Tcl_MethodCallProc)_ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_ObjectContext objectContext, int objc, - Tcl_Obj *const *objv)); -typedef void (*Tcl_MethodDeleteProc)_ANSI_ARGS_((ClientData clientData)); -typedef int (*Tcl_MethodCloneProc)_ANSI_ARGS_((ClientData oldClientData, - ClientData *newClientData)); -typedef void (*Tcl_ObjectMetadataDeleteProc)_ANSI_ARGS_(( - ClientData clientData)); -typedef ClientData (*Tcl_ObjectMetadataCloneProc)_ANSI_ARGS_(( - ClientData clientData)); - -/* - * The type of a method implementation. This describes how to call the method - * implementation, how to delete it (when the object or class is deleted) and - * how to create a clone of it (when the object or class is copied). - */ - -typedef struct { - int version; /* Structure version field. Always to be equal - * to TCL_OO_METHOD_VERSION_CURRENT in - * declarations. */ - const char *name; /* Name of this type of method, mostly for - * debugging purposes. */ - Tcl_MethodCallProc callProc;/* How to invoke this method. */ - Tcl_MethodDeleteProc deleteProc; - /* How to delete this method's type-specific - * data, or NULL if the type-specific data - * does not need deleting. */ - Tcl_MethodCloneProc cloneProc; - /* How to copy this method's type-specific - * data, or NULL if the type-specific data can - * be copied directly. */ -} Tcl_MethodType; - -/* - * The correct value for the version field of the Tcl_MethodType structure. - * This allows new versions of the structure to be introduced without breaking - * binary compatability. - */ - -#define TCL_OO_METHOD_VERSION_CURRENT 1 - -/* - * The type of some object (or class) metadata. This describes how to delete - * the metadata (when the object or class is deleted) and how to create a - * clone of it (when the object or class is copied). - */ - -typedef struct { - int version; /* Structure version field. Always to be equal - * to TCL_OO_METADATA_VERSION_CURRENT in - * declarations. */ - const char *name; - Tcl_ObjectMetadataDeleteProc deleteProc; - /* How to delete the metadata. This must not - * be NULL. */ - Tcl_ObjectMetadataCloneProc cloneProc; - /* How to clone the metadata. If NULL, the - * metadata will not be copied. */ -} Tcl_ObjectMetadataType; - -/* - * The correct value for the version field of the Tcl_ObjectMetadataType - * structure. This allows new versions of the structure to be introduced - * without breaking binary compatability. - */ - -#define TCL_OO_METHOD_VERSION_CURRENT 1 - #ifndef TCL_NO_DEPRECATED /* * Deprecated Tcl functions: |