summaryrefslogtreecommitdiffstats
path: root/generic/tclOOIntDecls.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclOOIntDecls.h')
-rw-r--r--generic/tclOOIntDecls.h36
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)