186
187
188
189
190
191
192
193
194
195
|
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
/* !END!: Do not edit above this line. */
#ifdef TCL_NO_DEPRECATED
# undef Tcl_MethodType
# undef TclOOMakeProcInstanceMethod
# undef tclOOMakeProcMethod
#endif
#ifndef TclOOGeneric
/* Select method based on type of argument. */
#define TclOOGeneric(typePtr, impl) \
_Generic(typePtr, default: impl, const Tcl_MethodType2 *: impl ## 2)
#endif
#ifdef USE_TCLOO_STUBS
#undef TclOOMakeProcInstanceMethod
#define TclOOMakeProcInstanceMethod(interp, oPtr, flags, nameObj, argsObj, bodyObj, typePtr, clientData, procPtrPtr) \
(TclOOGeneric((typePtr), tclOOIntStubsPtr->tclOOMakeProcInstanceMethod) \
((interp), (oPtr), (flags), (nameObj), (argsObj), (bodyObj), (typePtr), (clientData), (procPtrPtr)))
#undef TclOOMakeProcMethod
#define TclOOMakeProcMethod(interp, clsPtr, flags, nameObj, namePtr, argsObj, bodyObj, typePtr, clientData, procPtrPtr) \
(TclOOGeneric((typePtr), tclOOIntStubsPtr->tclOOMakeProcMethod) \
((interp), (clsPtr), (flags), (nameObj), (namePtr), (argsObj), (bodyObj), (typePtr), (clientData), (procPtrPtr)))
#else
#define TclOOMakeProcInstanceMethod(interp, oPtr, flags, nameObj, argsObj, bodyObj, typePtr, clientData, procPtrPtr) \
(TclOOGeneric((typePtr), TclOOMakeProcInstanceMethod) \
((interp), (oPtr), (flags), (nameObj), (argsObj), (bodyObj), (typePtr), (clientData), (procPtrPtr)))
#define TclOOMakeProcMethod(interp, clsPtr, flags, nameObj, namePtr, argsObj, bodyObj, typePtr, clientData, procPtrPtr) \
(TclOOGeneric((typePtr), TclOOMakeProcMethod) \
((interp), (clsPtr), (flags), (nameObj), (namePtr), (argsObj), (bodyObj), (typePtr), (clientData), (procPtrPtr)))
#endif
#endif /* _TCLOOINTDECLS */
|