123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166 |
- /*
- * This file is (mostly) automatically generated from tclOO.decls.
- */
- #ifndef _TCLOOINTDECLS
- #define _TCLOOINTDECLS
- /* !BEGIN!: Do not edit below this line. */
- #ifdef __cplusplus
- extern "C" {
- #endif
- /*
- * Exported function declarations:
- */
- /* 0 */
- TCLAPI Tcl_Object TclOOGetDefineCmdContext(Tcl_Interp *interp);
- /* 1 */
- TCLAPI 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 */
- TCLAPI 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 */
- TCLAPI Method * TclOONewProcInstanceMethod(Tcl_Interp *interp,
- Object *oPtr, int flags, Tcl_Obj *nameObj,
- Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
- ProcedureMethod **pmPtrPtr);
- /* 4 */
- TCLAPI Method * TclOONewProcMethod(Tcl_Interp *interp, Class *clsPtr,
- int flags, Tcl_Obj *nameObj,
- Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
- ProcedureMethod **pmPtrPtr);
- /* 5 */
- TCLAPI int TclOOObjectCmdCore(Object *oPtr, Tcl_Interp *interp,
- int objc, Tcl_Obj *const *objv,
- int publicOnly, Class *startCls);
- /* 6 */
- TCLAPI int TclOOIsReachable(Class *targetPtr, Class *startPtr);
- /* 7 */
- TCLAPI Method * TclOONewForwardMethod(Tcl_Interp *interp,
- Class *clsPtr, int isPublic,
- Tcl_Obj *nameObj, Tcl_Obj *prefixObj);
- /* 8 */
- TCLAPI Method * TclOONewForwardInstanceMethod(Tcl_Interp *interp,
- Object *oPtr, int isPublic, Tcl_Obj *nameObj,
- Tcl_Obj *prefixObj);
- /* 9 */
- TCLAPI 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 */
- TCLAPI 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 */
- TCLAPI int TclOOInvokeObject(Tcl_Interp *interp,
- Tcl_Object object, Tcl_Class startCls,
- int publicPrivate, int objc,
- Tcl_Obj *const *objv);
- /* 12 */
- TCLAPI void TclOOObjectSetFilters(Object *oPtr, int numFilters,
- Tcl_Obj *const *filters);
- /* 13 */
- TCLAPI void TclOOClassSetFilters(Tcl_Interp *interp,
- Class *classPtr, int numFilters,
- Tcl_Obj *const *filters);
- /* 14 */
- TCLAPI void TclOOObjectSetMixins(Object *oPtr, int numMixins,
- Class *const *mixins);
- /* 15 */
- TCLAPI void TclOOClassSetMixins(Tcl_Interp *interp,
- Class *classPtr, int numMixins,
- Class *const *mixins);
- typedef struct TclOOIntStubs {
- int magic;
- void *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;
- extern const TclOOIntStubs *tclOOIntStubsPtr;
- #ifdef __cplusplus
- }
- #endif
- #if defined(USE_TCLOO_STUBS)
- /*
- * Inline function declarations:
- */
- #define TclOOGetDefineCmdContext \
- (tclOOIntStubsPtr->tclOOGetDefineCmdContext) /* 0 */
- #define TclOOMakeProcInstanceMethod \
- (tclOOIntStubsPtr->tclOOMakeProcInstanceMethod) /* 1 */
- #define TclOOMakeProcMethod \
- (tclOOIntStubsPtr->tclOOMakeProcMethod) /* 2 */
- #define TclOONewProcInstanceMethod \
- (tclOOIntStubsPtr->tclOONewProcInstanceMethod) /* 3 */
- #define TclOONewProcMethod \
- (tclOOIntStubsPtr->tclOONewProcMethod) /* 4 */
- #define TclOOObjectCmdCore \
- (tclOOIntStubsPtr->tclOOObjectCmdCore) /* 5 */
- #define TclOOIsReachable \
- (tclOOIntStubsPtr->tclOOIsReachable) /* 6 */
- #define TclOONewForwardMethod \
- (tclOOIntStubsPtr->tclOONewForwardMethod) /* 7 */
- #define TclOONewForwardInstanceMethod \
- (tclOOIntStubsPtr->tclOONewForwardInstanceMethod) /* 8 */
- #define TclOONewProcInstanceMethodEx \
- (tclOOIntStubsPtr->tclOONewProcInstanceMethodEx) /* 9 */
- #define TclOONewProcMethodEx \
- (tclOOIntStubsPtr->tclOONewProcMethodEx) /* 10 */
- #define TclOOInvokeObject \
- (tclOOIntStubsPtr->tclOOInvokeObject) /* 11 */
- #define TclOOObjectSetFilters \
- (tclOOIntStubsPtr->tclOOObjectSetFilters) /* 12 */
- #define TclOOClassSetFilters \
- (tclOOIntStubsPtr->tclOOClassSetFilters) /* 13 */
- #define TclOOObjectSetMixins \
- (tclOOIntStubsPtr->tclOOObjectSetMixins) /* 14 */
- #define TclOOClassSetMixins \
- (tclOOIntStubsPtr->tclOOClassSetMixins) /* 15 */
- #endif /* defined(USE_TCLOO_STUBS) */
- /* !END!: Do not edit above this line. */
- #endif /* _TCLOOINTDECLS */
|