diff options
Diffstat (limited to 'generic/tclOO.decls')
| -rw-r--r-- | generic/tclOO.decls | 204 |
1 files changed, 0 insertions, 204 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls deleted file mode 100644 index 31d1113..0000000 --- a/generic/tclOO.decls +++ /dev/null @@ -1,204 +0,0 @@ -library tclOO - -###################################################################### -# public API -# - -interface tclOO -hooks tclOOInt -scspec TCLOOAPI - -declare 0 { - Tcl_Object Tcl_CopyObjectInstance(Tcl_Interp *interp, - Tcl_Object sourceObject, const char *targetName, - const char *targetNamespaceName) -} -declare 1 { - Tcl_Object Tcl_GetClassAsObject(Tcl_Class clazz) -} -declare 2 { - Tcl_Class Tcl_GetObjectAsClass(Tcl_Object object) -} -declare 3 { - Tcl_Command Tcl_GetObjectCommand(Tcl_Object object) -} -declare 4 { - Tcl_Object Tcl_GetObjectFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) -} -declare 5 { - Tcl_Namespace *Tcl_GetObjectNamespace(Tcl_Object object) -} -declare 6 { - Tcl_Class Tcl_MethodDeclarerClass(Tcl_Method method) -} -declare 7 { - Tcl_Object Tcl_MethodDeclarerObject(Tcl_Method method) -} -declare 8 { - int Tcl_MethodIsPublic(Tcl_Method method) -} -declare 9 { - int Tcl_MethodIsType(Tcl_Method method, const Tcl_MethodType *typePtr, - ClientData *clientDataPtr) -} -declare 10 { - Tcl_Obj *Tcl_MethodName(Tcl_Method method) -} -declare 11 { - Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp, Tcl_Object object, - Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, - ClientData clientData) -} -declare 12 { - Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls, - Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, - ClientData clientData) -} -declare 13 { - Tcl_Object Tcl_NewObjectInstance(Tcl_Interp *interp, Tcl_Class cls, - const char *nameStr, const char *nsNameStr, int objc, - Tcl_Obj *const *objv, int skip) -} -declare 14 { - int Tcl_ObjectDeleted(Tcl_Object object) -} -declare 15 { - int Tcl_ObjectContextIsFiltering(Tcl_ObjectContext context) -} -declare 16 { - Tcl_Method Tcl_ObjectContextMethod(Tcl_ObjectContext context) -} -declare 17 { - Tcl_Object Tcl_ObjectContextObject(Tcl_ObjectContext context) -} -declare 18 { - int Tcl_ObjectContextSkippedArgs(Tcl_ObjectContext context) -} -declare 19 { - ClientData Tcl_ClassGetMetadata(Tcl_Class clazz, - const Tcl_ObjectMetadataType *typePtr) -} -declare 20 { - void Tcl_ClassSetMetadata(Tcl_Class clazz, - const Tcl_ObjectMetadataType *typePtr, ClientData metadata) -} -declare 21 { - ClientData Tcl_ObjectGetMetadata(Tcl_Object object, - const Tcl_ObjectMetadataType *typePtr) -} -declare 22 { - void Tcl_ObjectSetMetadata(Tcl_Object object, - const Tcl_ObjectMetadataType *typePtr, ClientData metadata) -} -declare 23 { - int Tcl_ObjectContextInvokeNext(Tcl_Interp *interp, - Tcl_ObjectContext context, int objc, Tcl_Obj *const *objv, - int skip) -} -declare 24 { - Tcl_ObjectMapMethodNameProc *Tcl_ObjectGetMethodNameMapper( - Tcl_Object object) -} -declare 25 { - void Tcl_ObjectSetMethodNameMapper(Tcl_Object object, - Tcl_ObjectMapMethodNameProc *mapMethodNameProc) -} -declare 26 { - void Tcl_ClassSetConstructor(Tcl_Interp *interp, Tcl_Class clazz, - Tcl_Method method) -} -declare 27 { - void Tcl_ClassSetDestructor(Tcl_Interp *interp, Tcl_Class clazz, - Tcl_Method method) -} -declare 28 { - Tcl_Obj *Tcl_GetObjectName(Tcl_Interp *interp, Tcl_Object object) -} - -###################################################################### -# private API, exposed to support advanced OO systems that plug in on top -# - -interface tclOOInt - -declare 0 { - Tcl_Object TclOOGetDefineCmdContext(Tcl_Interp *interp) -} -declare 1 { - 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) -} -declare 2 { - 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) -} -declare 3 { - Method *TclOONewProcInstanceMethod(Tcl_Interp *interp, Object *oPtr, - int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, - ProcedureMethod **pmPtrPtr) -} -declare 4 { - Method *TclOONewProcMethod(Tcl_Interp *interp, Class *clsPtr, - int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, - ProcedureMethod **pmPtrPtr) -} -declare 5 { - int TclOOObjectCmdCore(Object *oPtr, Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv, int publicOnly, Class *startCls) -} -declare 6 { - int TclOOIsReachable(Class *targetPtr, Class *startPtr) -} -declare 7 { - Method *TclOONewForwardMethod(Tcl_Interp *interp, Class *clsPtr, - int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj) -} -declare 8 { - Method *TclOONewForwardInstanceMethod(Tcl_Interp *interp, Object *oPtr, - int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj) -} -declare 9 { - 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) -} -declare 10 { - 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) -} -declare 11 { - int TclOOInvokeObject(Tcl_Interp *interp, Tcl_Object object, - Tcl_Class startCls, int publicPrivate, int objc, - Tcl_Obj *const *objv) -} -declare 12 { - void TclOOObjectSetFilters(Object *oPtr, int numFilters, - Tcl_Obj *const *filters) -} -declare 13 { - void TclOOClassSetFilters(Tcl_Interp *interp, Class *classPtr, - int numFilters, Tcl_Obj *const *filters) -} -declare 14 { - void TclOOObjectSetMixins(Object *oPtr, int numMixins, - Class *const *mixins) -} -declare 15 { - void TclOOClassSetMixins(Tcl_Interp *interp, Class *classPtr, - int numMixins, Class *const *mixins) -} - -return - -# Local Variables: -# mode: tcl -# End: |