source/include/tclOOIntDecls.h

0001 /*
0002  * This file is (mostly) automatically generated from tclOO.decls.
0003  */
0004
0005 #ifndef _TCLOOINTDECLS
0006 #define _TCLOOINTDECLS
0007
0008 /* !BEGIN!: Do not edit below this line. */
0009
0010 #ifdef __cplusplus
0011 extern "C" {
0012 #endif
0013
0014 /*
0015  * Exported function declarations:
0016  */
0017
0018 /* 0 */
0019 TCLAPI Tcl_Object   TclOOGetDefineCmdContext(Tcl_Interp *interp);
0020 /* 1 */
0021 TCLAPI Tcl_Method   TclOOMakeProcInstanceMethod(Tcl_Interp *interp,
0022                 Object *oPtr, int flags, Tcl_Obj *nameObj,
0023                 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
0024                 const Tcl_MethodType *typePtr,
0025                 ClientData clientData, Proc **procPtrPtr);
0026 /* 2 */
0027 TCLAPI Tcl_Method   TclOOMakeProcMethod(Tcl_Interp *interp,
0028                 Class *clsPtr, int flags, Tcl_Obj *nameObj,
0029                 const char *namePtr, Tcl_Obj *argsObj,
0030                 Tcl_Obj *bodyObj,
0031                 const Tcl_MethodType *typePtr,
0032                 ClientData clientData, Proc **procPtrPtr);
0033 /* 3 */
0034 TCLAPI Method *     TclOONewProcInstanceMethod(Tcl_Interp *interp,
0035                 Object *oPtr, int flags, Tcl_Obj *nameObj,
0036                 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
0037                 ProcedureMethod **pmPtrPtr);
0038 /* 4 */
0039 TCLAPI Method *     TclOONewProcMethod(Tcl_Interp *interp, Class *clsPtr,
0040                 int flags, Tcl_Obj *nameObj,
0041                 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
0042                 ProcedureMethod **pmPtrPtr);
0043 /* 5 */
0044 TCLAPI int      TclOOObjectCmdCore(Object *oPtr, Tcl_Interp *interp,
0045                 int objc, Tcl_Obj *const *objv,
0046                 int publicOnly, Class *startCls);
0047 /* 6 */
0048 TCLAPI int      TclOOIsReachable(Class *targetPtr, Class *startPtr);
0049 /* 7 */
0050 TCLAPI Method *     TclOONewForwardMethod(Tcl_Interp *interp,
0051                 Class *clsPtr, int isPublic,
0052                 Tcl_Obj *nameObj, Tcl_Obj *prefixObj);
0053 /* 8 */
0054 TCLAPI Method *     TclOONewForwardInstanceMethod(Tcl_Interp *interp,
0055                 Object *oPtr, int isPublic, Tcl_Obj *nameObj,
0056                 Tcl_Obj *prefixObj);
0057 /* 9 */
0058 TCLAPI Tcl_Method   TclOONewProcInstanceMethodEx(Tcl_Interp *interp,
0059                 Tcl_Object oPtr,
0060                 TclOO_PreCallProc *preCallPtr,
0061                 TclOO_PostCallProc *postCallPtr,
0062                 ProcErrorProc *errProc,
0063                 ClientData clientData, Tcl_Obj *nameObj,
0064                 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
0065                 int flags, void **internalTokenPtr);
0066 /* 10 */
0067 TCLAPI Tcl_Method   TclOONewProcMethodEx(Tcl_Interp *interp,
0068                 Tcl_Class clsPtr,
0069                 TclOO_PreCallProc *preCallPtr,
0070                 TclOO_PostCallProc *postCallPtr,
0071                 ProcErrorProc *errProc,
0072                 ClientData clientData, Tcl_Obj *nameObj,
0073                 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
0074                 int flags, void **internalTokenPtr);
0075 /* 11 */
0076 TCLAPI int      TclOOInvokeObject(Tcl_Interp *interp,
0077                 Tcl_Object object, Tcl_Class startCls,
0078                 int publicPrivate, int objc,
0079                 Tcl_Obj *const *objv);
0080 /* 12 */
0081 TCLAPI void     TclOOObjectSetFilters(Object *oPtr, int numFilters,
0082                 Tcl_Obj *const *filters);
0083 /* 13 */
0084 TCLAPI void     TclOOClassSetFilters(Tcl_Interp *interp,
0085                 Class *classPtr, int numFilters,
0086                 Tcl_Obj *const *filters);
0087 /* 14 */
0088 TCLAPI void     TclOOObjectSetMixins(Object *oPtr, int numMixins,
0089                 Class *const *mixins);
0090 /* 15 */
0091 TCLAPI void     TclOOClassSetMixins(Tcl_Interp *interp,
0092                 Class *classPtr, int numMixins,
0093                 Class *const *mixins);
0094
0095 typedef struct TclOOIntStubs {
0096     int magic;
0097     void *hooks;
0098
0099     Tcl_Object (*tclOOGetDefineCmdContext) (Tcl_Interp *interp); /* 0 */
0100     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 */
0101     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 */
0102     Method * (*tclOONewProcInstanceMethod) (Tcl_Interp *interp, Object *oPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, ProcedureMethod **pmPtrPtr); /* 3 */
0103     Method * (*tclOONewProcMethod) (Tcl_Interp *interp, Class *clsPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, ProcedureMethod **pmPtrPtr); /* 4 */
0104     int (*tclOOObjectCmdCore) (Object *oPtr, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv, int publicOnly, Class *startCls); /* 5 */
0105     int (*tclOOIsReachable) (Class *targetPtr, Class *startPtr); /* 6 */
0106     Method * (*tclOONewForwardMethod) (Tcl_Interp *interp, Class *clsPtr, int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj); /* 7 */
0107     Method * (*tclOONewForwardInstanceMethod) (Tcl_Interp *interp, Object *oPtr, int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj); /* 8 */
0108     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 */
0109     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 */
0110     int (*tclOOInvokeObject) (Tcl_Interp *interp, Tcl_Object object, Tcl_Class startCls, int publicPrivate, int objc, Tcl_Obj *const *objv); /* 11 */
0111     void (*tclOOObjectSetFilters) (Object *oPtr, int numFilters, Tcl_Obj *const *filters); /* 12 */
0112     void (*tclOOClassSetFilters) (Tcl_Interp *interp, Class *classPtr, int numFilters, Tcl_Obj *const *filters); /* 13 */
0113     void (*tclOOObjectSetMixins) (Object *oPtr, int numMixins, Class *const *mixins); /* 14 */
0114     void (*tclOOClassSetMixins) (Tcl_Interp *interp, Class *classPtr, int numMixins, Class *const *mixins); /* 15 */
0115 } TclOOIntStubs;
0116
0117 extern const TclOOIntStubs *tclOOIntStubsPtr;
0118
0119 #ifdef __cplusplus
0120 }
0121 #endif
0122
0123 #if defined(USE_TCLOO_STUBS)
0124
0125 /*
0126  * Inline function declarations:
0127  */
0128
0129 #define TclOOGetDefineCmdContext \
0130     (tclOOIntStubsPtr->tclOOGetDefineCmdContext) /* 0 */
0131 #define TclOOMakeProcInstanceMethod \
0132     (tclOOIntStubsPtr->tclOOMakeProcInstanceMethod) /* 1 */
0133 #define TclOOMakeProcMethod \
0134     (tclOOIntStubsPtr->tclOOMakeProcMethod) /* 2 */
0135 #define TclOONewProcInstanceMethod \
0136     (tclOOIntStubsPtr->tclOONewProcInstanceMethod) /* 3 */
0137 #define TclOONewProcMethod \
0138     (tclOOIntStubsPtr->tclOONewProcMethod) /* 4 */
0139 #define TclOOObjectCmdCore \
0140     (tclOOIntStubsPtr->tclOOObjectCmdCore) /* 5 */
0141 #define TclOOIsReachable \
0142     (tclOOIntStubsPtr->tclOOIsReachable) /* 6 */
0143 #define TclOONewForwardMethod \
0144     (tclOOIntStubsPtr->tclOONewForwardMethod) /* 7 */
0145 #define TclOONewForwardInstanceMethod \
0146     (tclOOIntStubsPtr->tclOONewForwardInstanceMethod) /* 8 */
0147 #define TclOONewProcInstanceMethodEx \
0148     (tclOOIntStubsPtr->tclOONewProcInstanceMethodEx) /* 9 */
0149 #define TclOONewProcMethodEx \
0150     (tclOOIntStubsPtr->tclOONewProcMethodEx) /* 10 */
0151 #define TclOOInvokeObject \
0152     (tclOOIntStubsPtr->tclOOInvokeObject) /* 11 */
0153 #define TclOOObjectSetFilters \
0154     (tclOOIntStubsPtr->tclOOObjectSetFilters) /* 12 */
0155 #define TclOOClassSetFilters \
0156     (tclOOIntStubsPtr->tclOOClassSetFilters) /* 13 */
0157 #define TclOOObjectSetMixins \
0158     (tclOOIntStubsPtr->tclOOObjectSetMixins) /* 14 */
0159 #define TclOOClassSetMixins \
0160     (tclOOIntStubsPtr->tclOOClassSetMixins) /* 15 */
0161
0162 #endif /* defined(USE_TCLOO_STUBS) */
0163
0164 /* !END!: Do not edit above this line. */
0165
0166 #endif /* _TCLOOINTDECLS */