diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
commit | 9b7a6c3507ea3383c60aaecb29f873c9b590ccca (patch) | |
tree | 82ce31ebd8f46803d969034f5aa3db8d7974493c /tcl8.6/generic/tclOO.decls | |
parent | 87fca7325b97005eb44dcf3e198277640af66115 (diff) | |
download | blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.zip blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.gz blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.bz2 |
rm tcl/tk 8.6.7
Diffstat (limited to 'tcl8.6/generic/tclOO.decls')
-rw-r--r-- | tcl8.6/generic/tclOO.decls | 218 |
1 files changed, 0 insertions, 218 deletions
diff --git a/tcl8.6/generic/tclOO.decls b/tcl8.6/generic/tclOO.decls deleted file mode 100644 index 265ba88..0000000 --- a/tcl8.6/generic/tclOO.decls +++ /dev/null @@ -1,218 +0,0 @@ -# tclOO.decls -- -# -# This file contains the declarations for all supported public functions -# that are exported by the TclOO package that is embedded within the Tcl -# library via the stubs table. This file is used to generate the -# tclOODecls.h, tclOOIntDecls.h and tclOOStubInit.c files. -# -# Copyright (c) 2008-2013 by Donal K. Fellows. -# -# See the file "license.terms" for information on usage and redistribution of -# this file, and for a DISCLAIMER OF ALL WARRANTIES. - -library tclOO - -###################################################################### -# Public API, exposed for general users of TclOO. -# - -interface tclOO -hooks tclOOInt -scspec TCLAPI - -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 of -# TclOO; not intended for general use and does not have any commitment to -# long-term support. -# - -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: |