Mercurial > repos > rliterman > csp2

comparison CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclOOIntDecls.h @ 69:33d812a61356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
author jpayne
date Tue, 18 Mar 2025 17:55:14 -0400
parents
children
comparison
equal deleted inserted replaced
67:0e9998148a16 69:33d812a61356
1 /*
2 * This file is (mostly) automatically generated from tclOO.decls.
3 */
4
5 #ifndef _TCLOOINTDECLS
6 #define _TCLOOINTDECLS
7
8 /* !BEGIN!: Do not edit below this line. */
9
10 #ifdef __cplusplus
11 extern "C" {
12 #endif
13
14 /*
15 * Exported function declarations:
16 */
17
18 /* 0 */
19 TCLAPI Tcl_Object TclOOGetDefineCmdContext(Tcl_Interp *interp);
20 /* 1 */
21 TCLAPI Tcl_Method TclOOMakeProcInstanceMethod(Tcl_Interp *interp,
22 Object *oPtr, int flags, Tcl_Obj *nameObj,
23 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
24 const Tcl_MethodType *typePtr,
25 void *clientData, Proc **procPtrPtr);
26 /* 2 */
27 TCLAPI Tcl_Method TclOOMakeProcMethod(Tcl_Interp *interp,
28 Class *clsPtr, int flags, Tcl_Obj *nameObj,
29 const char *namePtr, Tcl_Obj *argsObj,
30 Tcl_Obj *bodyObj,
31 const Tcl_MethodType *typePtr,
32 void *clientData, Proc **procPtrPtr);
33 /* 3 */
34 TCLAPI Method * TclOONewProcInstanceMethod(Tcl_Interp *interp,
35 Object *oPtr, int flags, Tcl_Obj *nameObj,
36 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
37 ProcedureMethod **pmPtrPtr);
38 /* 4 */
39 TCLAPI Method * TclOONewProcMethod(Tcl_Interp *interp, Class *clsPtr,
40 int flags, Tcl_Obj *nameObj,
41 Tcl_Obj *argsObj, Tcl_Obj *bodyObj,
42 ProcedureMethod **pmPtrPtr);
43 /* 5 */
44 TCLAPI int TclOOObjectCmdCore(Object *oPtr, Tcl_Interp *interp,
45 int objc, Tcl_Obj *const *objv,
46 int publicOnly, Class *startCls);
47 /* 6 */
48 TCLAPI int TclOOIsReachable(Class *targetPtr, Class *startPtr);
49 /* 7 */
50 TCLAPI Method * TclOONewForwardMethod(Tcl_Interp *interp,
51 Class *clsPtr, int isPublic,
52 Tcl_Obj *nameObj, Tcl_Obj *prefixObj);
53 /* 8 */
54 TCLAPI Method * TclOONewForwardInstanceMethod(Tcl_Interp *interp,
55 Object *oPtr, int isPublic, Tcl_Obj *nameObj,
56 Tcl_Obj *prefixObj);
57 /* 9 */
58 TCLAPI Tcl_Method TclOONewProcInstanceMethodEx(Tcl_Interp *interp,
59 Tcl_Object oPtr,
60 TclOO_PreCallProc *preCallPtr,
61 TclOO_PostCallProc *postCallPtr,
62 ProcErrorProc *errProc, void *clientData,
63 Tcl_Obj *nameObj, Tcl_Obj *argsObj,
64 Tcl_Obj *bodyObj, int flags,
65 void **internalTokenPtr);
66 /* 10 */
67 TCLAPI Tcl_Method TclOONewProcMethodEx(Tcl_Interp *interp,
68 Tcl_Class clsPtr,
69 TclOO_PreCallProc *preCallPtr,
70 TclOO_PostCallProc *postCallPtr,
71 ProcErrorProc *errProc, void *clientData,
72 Tcl_Obj *nameObj, Tcl_Obj *argsObj,
73 Tcl_Obj *bodyObj, int flags,
74 void **internalTokenPtr);
75 /* 11 */
76 TCLAPI int TclOOInvokeObject(Tcl_Interp *interp,
77 Tcl_Object object, Tcl_Class startCls,
78 int publicPrivate, int objc,
79 Tcl_Obj *const *objv);
80 /* 12 */
81 TCLAPI void TclOOObjectSetFilters(Object *oPtr, int numFilters,
82 Tcl_Obj *const *filters);
83 /* 13 */
84 TCLAPI void TclOOClassSetFilters(Tcl_Interp *interp,
85 Class *classPtr, int numFilters,
86 Tcl_Obj *const *filters);
87 /* 14 */
88 TCLAPI void TclOOObjectSetMixins(Object *oPtr, int numMixins,
89 Class *const *mixins);
90 /* 15 */
91 TCLAPI void TclOOClassSetMixins(Tcl_Interp *interp,
92 Class *classPtr, int numMixins,
93 Class *const *mixins);
94
95 typedef struct TclOOIntStubs {
96 int magic;
97 void *hooks;
98
99 Tcl_Object (*tclOOGetDefineCmdContext) (Tcl_Interp *interp); /* 0 */
100 Tcl_Method (*tclOOMakeProcInstanceMethod) (Tcl_Interp *interp, Object *oPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, const Tcl_MethodType *typePtr, void *clientData, Proc **procPtrPtr); /* 1 */
101 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, void *clientData, Proc **procPtrPtr); /* 2 */
102 Method * (*tclOONewProcInstanceMethod) (Tcl_Interp *interp, Object *oPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, ProcedureMethod **pmPtrPtr); /* 3 */
103 Method * (*tclOONewProcMethod) (Tcl_Interp *interp, Class *clsPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, ProcedureMethod **pmPtrPtr); /* 4 */
104 int (*tclOOObjectCmdCore) (Object *oPtr, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv, int publicOnly, Class *startCls); /* 5 */
105 int (*tclOOIsReachable) (Class *targetPtr, Class *startPtr); /* 6 */
106 Method * (*tclOONewForwardMethod) (Tcl_Interp *interp, Class *clsPtr, int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj); /* 7 */
107 Method * (*tclOONewForwardInstanceMethod) (Tcl_Interp *interp, Object *oPtr, int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj); /* 8 */
108 Tcl_Method (*tclOONewProcInstanceMethodEx) (Tcl_Interp *interp, Tcl_Object oPtr, TclOO_PreCallProc *preCallPtr, TclOO_PostCallProc *postCallPtr, ProcErrorProc *errProc, void *clientData, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, int flags, void **internalTokenPtr); /* 9 */
109 Tcl_Method (*tclOONewProcMethodEx) (Tcl_Interp *interp, Tcl_Class clsPtr, TclOO_PreCallProc *preCallPtr, TclOO_PostCallProc *postCallPtr, ProcErrorProc *errProc, void *clientData, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, int flags, void **internalTokenPtr); /* 10 */
110 int (*tclOOInvokeObject) (Tcl_Interp *interp, Tcl_Object object, Tcl_Class startCls, int publicPrivate, int objc, Tcl_Obj *const *objv); /* 11 */
111 void (*tclOOObjectSetFilters) (Object *oPtr, int numFilters, Tcl_Obj *const *filters); /* 12 */
112 void (*tclOOClassSetFilters) (Tcl_Interp *interp, Class *classPtr, int numFilters, Tcl_Obj *const *filters); /* 13 */
113 void (*tclOOObjectSetMixins) (Object *oPtr, int numMixins, Class *const *mixins); /* 14 */
114 void (*tclOOClassSetMixins) (Tcl_Interp *interp, Class *classPtr, int numMixins, Class *const *mixins); /* 15 */
115 } TclOOIntStubs;
116
117 extern const TclOOIntStubs *tclOOIntStubsPtr;
118
119 #ifdef __cplusplus
120 }
121 #endif
122
123 #if defined(USE_TCLOO_STUBS)
124
125 /*
126 * Inline function declarations:
127 */
128
129 #define TclOOGetDefineCmdContext \
130 (tclOOIntStubsPtr->tclOOGetDefineCmdContext) /* 0 */
131 #define TclOOMakeProcInstanceMethod \
132 (tclOOIntStubsPtr->tclOOMakeProcInstanceMethod) /* 1 */
133 #define TclOOMakeProcMethod \
134 (tclOOIntStubsPtr->tclOOMakeProcMethod) /* 2 */
135 #define TclOONewProcInstanceMethod \
136 (tclOOIntStubsPtr->tclOONewProcInstanceMethod) /* 3 */
137 #define TclOONewProcMethod \
138 (tclOOIntStubsPtr->tclOONewProcMethod) /* 4 */
139 #define TclOOObjectCmdCore \
140 (tclOOIntStubsPtr->tclOOObjectCmdCore) /* 5 */
141 #define TclOOIsReachable \
142 (tclOOIntStubsPtr->tclOOIsReachable) /* 6 */
143 #define TclOONewForwardMethod \
144 (tclOOIntStubsPtr->tclOONewForwardMethod) /* 7 */
145 #define TclOONewForwardInstanceMethod \
146 (tclOOIntStubsPtr->tclOONewForwardInstanceMethod) /* 8 */
147 #define TclOONewProcInstanceMethodEx \
148 (tclOOIntStubsPtr->tclOONewProcInstanceMethodEx) /* 9 */
149 #define TclOONewProcMethodEx \
150 (tclOOIntStubsPtr->tclOONewProcMethodEx) /* 10 */
151 #define TclOOInvokeObject \
152 (tclOOIntStubsPtr->tclOOInvokeObject) /* 11 */
153 #define TclOOObjectSetFilters \
154 (tclOOIntStubsPtr->tclOOObjectSetFilters) /* 12 */
155 #define TclOOClassSetFilters \
156 (tclOOIntStubsPtr->tclOOClassSetFilters) /* 13 */
157 #define TclOOObjectSetMixins \
158 (tclOOIntStubsPtr->tclOOObjectSetMixins) /* 14 */
159 #define TclOOClassSetMixins \
160 (tclOOIntStubsPtr->tclOOClassSetMixins) /* 15 */
161
162 #endif /* defined(USE_TCLOO_STUBS) */
163
164 /* !END!: Do not edit above this line. */
165
166 #endif /* _TCLOOINTDECLS */