diff options
Diffstat (limited to 'generic/tclOOIntDecls.h')
-rw-r--r-- | generic/tclOOIntDecls.h | 98 |
1 files changed, 49 insertions, 49 deletions
diff --git a/generic/tclOOIntDecls.h b/generic/tclOOIntDecls.h index 49aa7de..807c333 100644 --- a/generic/tclOOIntDecls.h +++ b/generic/tclOOIntDecls.h @@ -1,5 +1,5 @@ /* - * $Id: tclOOIntDecls.h,v 1.9 2008/10/17 18:42:12 nijtmans Exp $ + * $Id: tclOOIntDecls.h,v 1.10 2008/10/22 20:23:59 nijtmans Exp $ * * This file is (mostly) automatically generated from tclOO.decls. */ @@ -38,128 +38,128 @@ EXTERN Tcl_Object TclOOGetDefineCmdContext (Tcl_Interp * interp); #ifndef TclOOMakeProcInstanceMethod_TCL_DECLARED #define TclOOMakeProcInstanceMethod_TCL_DECLARED /* 1 */ -EXTERN Tcl_Method TclOOMakeProcInstanceMethod (Tcl_Interp * interp, - Object * oPtr, int flags, Tcl_Obj * nameObj, - Tcl_Obj * argsObj, Tcl_Obj * bodyObj, - const Tcl_MethodType * typePtr, +EXTERN 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); #endif #ifndef TclOOMakeProcMethod_TCL_DECLARED #define TclOOMakeProcMethod_TCL_DECLARED /* 2 */ -EXTERN 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, +EXTERN 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); #endif #ifndef TclOONewProcInstanceMethod_TCL_DECLARED #define TclOONewProcInstanceMethod_TCL_DECLARED /* 3 */ -EXTERN Method * TclOONewProcInstanceMethod (Tcl_Interp * interp, - Object * oPtr, int flags, Tcl_Obj * nameObj, - Tcl_Obj * argsObj, Tcl_Obj * bodyObj, +EXTERN Method * TclOONewProcInstanceMethod (Tcl_Interp * interp, + Object * oPtr, int flags, Tcl_Obj * nameObj, + Tcl_Obj * argsObj, Tcl_Obj * bodyObj, ProcedureMethod ** pmPtrPtr); #endif #ifndef TclOONewProcMethod_TCL_DECLARED #define TclOONewProcMethod_TCL_DECLARED /* 4 */ -EXTERN Method * TclOONewProcMethod (Tcl_Interp * interp, - Class * clsPtr, int flags, Tcl_Obj * nameObj, - Tcl_Obj * argsObj, Tcl_Obj * bodyObj, +EXTERN Method * TclOONewProcMethod (Tcl_Interp * interp, + Class * clsPtr, int flags, Tcl_Obj * nameObj, + Tcl_Obj * argsObj, Tcl_Obj * bodyObj, ProcedureMethod ** pmPtrPtr); #endif #ifndef TclOOObjectCmdCore_TCL_DECLARED #define TclOOObjectCmdCore_TCL_DECLARED /* 5 */ -EXTERN int TclOOObjectCmdCore (Object * oPtr, - Tcl_Interp * interp, int objc, - Tcl_Obj *const * objv, int publicOnly, +EXTERN int TclOOObjectCmdCore (Object * oPtr, + Tcl_Interp * interp, int objc, + Tcl_Obj *const * objv, int publicOnly, Class * startCls); #endif #ifndef TclOOIsReachable_TCL_DECLARED #define TclOOIsReachable_TCL_DECLARED /* 6 */ -EXTERN int TclOOIsReachable (Class * targetPtr, +EXTERN int TclOOIsReachable (Class * targetPtr, Class * startPtr); #endif #ifndef TclOONewForwardMethod_TCL_DECLARED #define TclOONewForwardMethod_TCL_DECLARED /* 7 */ -EXTERN Method * TclOONewForwardMethod (Tcl_Interp * interp, - Class * clsPtr, int isPublic, +EXTERN Method * TclOONewForwardMethod (Tcl_Interp * interp, + Class * clsPtr, int isPublic, Tcl_Obj * nameObj, Tcl_Obj * prefixObj); #endif #ifndef TclOONewForwardInstanceMethod_TCL_DECLARED #define TclOONewForwardInstanceMethod_TCL_DECLARED /* 8 */ -EXTERN Method * TclOONewForwardInstanceMethod (Tcl_Interp * interp, - Object * oPtr, int isPublic, +EXTERN Method * TclOONewForwardInstanceMethod (Tcl_Interp * interp, + Object * oPtr, int isPublic, Tcl_Obj * nameObj, Tcl_Obj * prefixObj); #endif #ifndef TclOONewProcInstanceMethodEx_TCL_DECLARED #define TclOONewProcInstanceMethodEx_TCL_DECLARED /* 9 */ -EXTERN 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, +EXTERN 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); #endif #ifndef TclOONewProcMethodEx_TCL_DECLARED #define TclOONewProcMethodEx_TCL_DECLARED /* 10 */ -EXTERN 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, +EXTERN 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); #endif #ifndef TclOOInvokeObject_TCL_DECLARED #define TclOOInvokeObject_TCL_DECLARED /* 11 */ -EXTERN int TclOOInvokeObject (Tcl_Interp * interp, - Tcl_Object object, Tcl_Class startCls, - int publicPrivate, int objc, +EXTERN int TclOOInvokeObject (Tcl_Interp * interp, + Tcl_Object object, Tcl_Class startCls, + int publicPrivate, int objc, Tcl_Obj *const * objv); #endif #ifndef TclOOObjectSetFilters_TCL_DECLARED #define TclOOObjectSetFilters_TCL_DECLARED /* 12 */ -EXTERN void TclOOObjectSetFilters (Object * oPtr, int numFilters, +EXTERN void TclOOObjectSetFilters (Object * oPtr, int numFilters, Tcl_Obj *const * filters); #endif #ifndef TclOOClassSetFilters_TCL_DECLARED #define TclOOClassSetFilters_TCL_DECLARED /* 13 */ -EXTERN void TclOOClassSetFilters (Tcl_Interp * interp, - Class * classPtr, int numFilters, +EXTERN void TclOOClassSetFilters (Tcl_Interp * interp, + Class * classPtr, int numFilters, Tcl_Obj *const * filters); #endif #ifndef TclOOObjectSetMixins_TCL_DECLARED #define TclOOObjectSetMixins_TCL_DECLARED /* 14 */ -EXTERN void TclOOObjectSetMixins (Object * oPtr, int numMixins, +EXTERN void TclOOObjectSetMixins (Object * oPtr, int numMixins, Class *const * mixins); #endif #ifndef TclOOClassSetMixins_TCL_DECLARED #define TclOOClassSetMixins_TCL_DECLARED /* 15 */ -EXTERN void TclOOClassSetMixins (Tcl_Interp * interp, - Class * classPtr, int numMixins, +EXTERN void TclOOClassSetMixins (Tcl_Interp * interp, + Class * classPtr, int numMixins, Class *const * mixins); #endif typedef struct TclOOIntStubs { int magic; - CONST struct TclOOIntStubHooks *hooks; + const struct TclOOIntStubHooks *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 */ @@ -180,7 +180,7 @@ typedef struct TclOOIntStubs { } TclOOIntStubs; #if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) -extern CONST TclOOIntStubs *tclOOIntStubsPtr; +extern const TclOOIntStubs *tclOOIntStubsPtr; #endif /* defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) */ #if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) |