diff options
Diffstat (limited to 'generic/tclOOIntDecls.h')
| -rw-r--r-- | generic/tclOOIntDecls.h | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/generic/tclOOIntDecls.h b/generic/tclOOIntDecls.h index 4ee1788..680aa61 100644 --- a/generic/tclOOIntDecls.h +++ b/generic/tclOOIntDecls.h @@ -1,5 +1,5 @@ /* - * $Id: tclOOIntDecls.h,v 1.7 2008/07/22 23:01:38 das Exp $ + * $Id: tclOOIntDecls.h,v 1.8 2008/07/24 22:57:57 nijtmans Exp $ * * This file is (mostly) automatically generated from tclOO.decls. */ @@ -41,7 +41,7 @@ EXTERN Tcl_Object TclOOGetDefineCmdContext (Tcl_Interp * interp); EXTERN Tcl_Method TclOOMakeProcInstanceMethod (Tcl_Interp * interp, Object * oPtr, int flags, Tcl_Obj * nameObj, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, - const Tcl_MethodType * typePtr, + CONST Tcl_MethodType * typePtr, ClientData clientData, Proc ** procPtrPtr); #endif #ifndef TclOOMakeProcMethod_TCL_DECLARED @@ -49,9 +49,9 @@ EXTERN Tcl_Method TclOOMakeProcInstanceMethod (Tcl_Interp * interp, /* 2 */ EXTERN Tcl_Method TclOOMakeProcMethod (Tcl_Interp * interp, Class * clsPtr, int flags, Tcl_Obj * nameObj, - const char * namePtr, Tcl_Obj * argsObj, + CONST char * namePtr, Tcl_Obj * argsObj, Tcl_Obj * bodyObj, - const Tcl_MethodType * typePtr, + CONST Tcl_MethodType * typePtr, ClientData clientData, Proc ** procPtrPtr); #endif #ifndef TclOONewProcInstanceMethod_TCL_DECLARED @@ -75,7 +75,7 @@ EXTERN Method * TclOONewProcMethod (Tcl_Interp * interp, /* 5 */ EXTERN int TclOOObjectCmdCore (Object * oPtr, Tcl_Interp * interp, int objc, - Tcl_Obj *const * objv, int publicOnly, + Tcl_Obj *CONST * objv, int publicOnly, Class * startCls); #endif #ifndef TclOOIsReachable_TCL_DECLARED @@ -128,33 +128,33 @@ EXTERN Tcl_Method TclOONewProcMethodEx (Tcl_Interp * interp, EXTERN int TclOOInvokeObject (Tcl_Interp * interp, Tcl_Object object, Tcl_Class startCls, int publicPrivate, int objc, - Tcl_Obj *const * objv); + Tcl_Obj *CONST * objv); #endif #ifndef TclOOObjectSetFilters_TCL_DECLARED #define TclOOObjectSetFilters_TCL_DECLARED /* 12 */ EXTERN void TclOOObjectSetFilters (Object * oPtr, int numFilters, - Tcl_Obj *const * filters); + Tcl_Obj *CONST * filters); #endif #ifndef TclOOClassSetFilters_TCL_DECLARED #define TclOOClassSetFilters_TCL_DECLARED /* 13 */ EXTERN void TclOOClassSetFilters (Tcl_Interp * interp, Class * classPtr, int numFilters, - Tcl_Obj *const * filters); + Tcl_Obj *CONST * filters); #endif #ifndef TclOOObjectSetMixins_TCL_DECLARED #define TclOOObjectSetMixins_TCL_DECLARED /* 14 */ EXTERN void TclOOObjectSetMixins (Object * oPtr, int numMixins, - Class *const * mixins); + Class *CONST * mixins); #endif #ifndef TclOOClassSetMixins_TCL_DECLARED #define TclOOClassSetMixins_TCL_DECLARED /* 15 */ EXTERN void TclOOClassSetMixins (Tcl_Interp * interp, Class * classPtr, int numMixins, - Class *const * mixins); + Class *CONST * mixins); #endif typedef struct TclOOIntStubs { @@ -162,21 +162,21 @@ typedef struct TclOOIntStubs { 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 */ - 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 */ + 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 (*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 */ + 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; #if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) |