Skip to content

Commit 7a99945

Browse files
dkfellowsdkfellows
committed
Improve C declarations of slot methods; less of a horrible slab of dullness now
1 parent 167d3de commit 7a99945

File tree

1 file changed

+25
-96
lines changed

1 file changed

+25
-96
lines changed

‎generic/tclOODefineCmds.c‎

Lines changed: 25 additions & 96 deletions
Original file line numberDiff line numberDiff line change
@@ -89,102 +89,31 @@ static inline void RecomputeClassCacheFlag(Object *oPtr);
8989
static int RenameDeleteMethod(Tcl_Interp *interp, Object *oPtr,
9090
int useClass, Tcl_Obj *const fromPtr,
9191
Tcl_Obj *const toPtr);
92-
static int Slot_Append(void *,
93-
Tcl_Interp *interp, Tcl_ObjectContext context,
94-
int objc, Tcl_Obj *const *objv);
95-
static int Slot_AppendNew(void *,
96-
Tcl_Interp *interp, Tcl_ObjectContext context,
97-
int objc, Tcl_Obj *const *objv);
98-
static int Slot_Clear(void *,
99-
Tcl_Interp *interp, Tcl_ObjectContext context,
100-
int objc, Tcl_Obj *const *objv);
101-
static int Slot_Prepend(void *,
102-
Tcl_Interp *interp, Tcl_ObjectContext context,
103-
int objc, Tcl_Obj *const *objv);
104-
static int Slot_Remove(void *,
105-
Tcl_Interp *interp, Tcl_ObjectContext context,
106-
int objc, Tcl_Obj *const *objv);
107-
static int Slot_Resolve(void *,
108-
Tcl_Interp *interp, Tcl_ObjectContext context,
109-
int objc, Tcl_Obj *const *objv);
110-
static int Slot_Set(void *,
111-
Tcl_Interp *interp, Tcl_ObjectContext context,
112-
int objc, Tcl_Obj *const *objv);
113-
static int Slot_Unimplemented(void *,
114-
Tcl_Interp *interp, Tcl_ObjectContext,
115-
int, Tcl_Obj *const *);
116-
static int Slot_Unknown(void *,
117-
Tcl_Interp *interp, Tcl_ObjectContext context,
118-
int objc, Tcl_Obj *const *objv);
119-
static int ClassFilter_Get(void *clientData,
120-
Tcl_Interp *interp, Tcl_ObjectContext context,
121-
int objc, Tcl_Obj *const *objv);
122-
static int ClassFilter_Set(void *clientData,
123-
Tcl_Interp *interp, Tcl_ObjectContext context,
124-
int objc, Tcl_Obj *const *objv);
125-
static int ClassMixin_Get(void *clientData,
126-
Tcl_Interp *interp, Tcl_ObjectContext context,
127-
int objc, Tcl_Obj *const *objv);
128-
static int ClassMixin_Set(void *clientData,
129-
Tcl_Interp *interp, Tcl_ObjectContext context,
130-
int objc, Tcl_Obj *const *objv);
131-
static int ClassSuper_Get(void *clientData,
132-
Tcl_Interp *interp, Tcl_ObjectContext context,
133-
int objc, Tcl_Obj *const *objv);
134-
static int ClassSuper_Set(void *clientData,
135-
Tcl_Interp *interp, Tcl_ObjectContext context,
136-
int objc, Tcl_Obj *const *objv);
137-
static int ClassVars_Get(void *clientData,
138-
Tcl_Interp *interp, Tcl_ObjectContext context,
139-
int objc, Tcl_Obj *const *objv);
140-
static int ClassVars_Set(void *clientData,
141-
Tcl_Interp *interp, Tcl_ObjectContext context,
142-
int objc, Tcl_Obj *const *objv);
143-
static int ObjFilter_Get(void *clientData,
144-
Tcl_Interp *interp, Tcl_ObjectContext context,
145-
int objc, Tcl_Obj *const *objv);
146-
static int ObjFilter_Set(void *clientData,
147-
Tcl_Interp *interp, Tcl_ObjectContext context,
148-
int objc, Tcl_Obj *const *objv);
149-
static int ObjMixin_Get(void *clientData,
150-
Tcl_Interp *interp, Tcl_ObjectContext context,
151-
int objc, Tcl_Obj *const *objv);
152-
static int ObjMixin_Set(void *clientData,
153-
Tcl_Interp *interp, Tcl_ObjectContext context,
154-
int objc, Tcl_Obj *const *objv);
155-
static int ObjVars_Get(void *clientData,
156-
Tcl_Interp *interp, Tcl_ObjectContext context,
157-
int objc, Tcl_Obj *const *objv);
158-
static int ObjVars_Set(void *clientData,
159-
Tcl_Interp *interp, Tcl_ObjectContext context,
160-
int objc, Tcl_Obj *const *objv);
161-
static int Configurable_ClassReadableProps_Get(void *clientData,
162-
Tcl_Interp *interp, Tcl_ObjectContext context,
163-
int objc, Tcl_Obj *const *objv);
164-
static int Configurable_ClassReadableProps_Set(void *clientData,
165-
Tcl_Interp *interp, Tcl_ObjectContext context,
166-
int objc, Tcl_Obj *const *objv);
167-
static int Configurable_ClassWritableProps_Get(void *clientData,
168-
Tcl_Interp *interp, Tcl_ObjectContext context,
169-
int objc, Tcl_Obj *const *objv);
170-
static int Configurable_ClassWritableProps_Set(void *clientData,
171-
Tcl_Interp *interp, Tcl_ObjectContext context,
172-
int objc, Tcl_Obj *const *objv);
173-
static int Configurable_ObjectReadableProps_Get(void *clientData,
174-
Tcl_Interp *interp, Tcl_ObjectContext context,
175-
int objc, Tcl_Obj *const *objv);
176-
static int Configurable_ObjectReadableProps_Set(void *clientData,
177-
Tcl_Interp *interp, Tcl_ObjectContext context,
178-
int objc, Tcl_Obj *const *objv);
179-
static int Configurable_ObjectWritableProps_Get(void *clientData,
180-
Tcl_Interp *interp, Tcl_ObjectContext context,
181-
int objc, Tcl_Obj *const *objv);
182-
static int Configurable_ObjectWritableProps_Set(void *clientData,
183-
Tcl_Interp *interp, Tcl_ObjectContext context,
184-
int objc, Tcl_Obj *const *objv);
185-
static int Slot_ResolveClass(void *clientData,
186-
Tcl_Interp *interp, Tcl_ObjectContext context,
187-
int objc, Tcl_Obj *const *objv);
92+
static Tcl_MethodCallProc Slot_Append;
93+
static Tcl_MethodCallProc Slot_AppendNew;
94+
static Tcl_MethodCallProc Slot_Clear;
95+
static Tcl_MethodCallProc Slot_Prepend;
96+
static Tcl_MethodCallProc Slot_Remove;
97+
static Tcl_MethodCallProc Slot_Resolve;
98+
static Tcl_MethodCallProc Slot_ResolveClass;
99+
static Tcl_MethodCallProc Slot_Set;
100+
static Tcl_MethodCallProc Slot_Unimplemented;
101+
static Tcl_MethodCallProc Slot_Unknown;
102+
static Tcl_MethodCallProc ClassFilter_Get, ClassFilter_Set;
103+
static Tcl_MethodCallProc ClassMixin_Get, ClassMixin_Set;
104+
static Tcl_MethodCallProc ClassSuper_Get, ClassSuper_Set;
105+
static Tcl_MethodCallProc ClassVars_Get, ClassVars_Set;
106+
static Tcl_MethodCallProc ObjFilter_Get, ObjFilter_Set;
107+
static Tcl_MethodCallProc ObjMixin_Get, ObjMixin_Set;
108+
static Tcl_MethodCallProc ObjVars_Get, ObjVars_Set;
109+
static Tcl_MethodCallProc Configurable_ClassReadableProps_Get;
110+
static Tcl_MethodCallProc Configurable_ClassReadableProps_Set;
111+
static Tcl_MethodCallProc Configurable_ClassWritableProps_Get;
112+
static Tcl_MethodCallProc Configurable_ClassWritableProps_Set;
113+
static Tcl_MethodCallProc Configurable_ObjectReadableProps_Get;
114+
static Tcl_MethodCallProc Configurable_ObjectReadableProps_Set;
115+
static Tcl_MethodCallProc Configurable_ObjectWritableProps_Get;
116+
static Tcl_MethodCallProc Configurable_ObjectWritableProps_Set;
188117

189118
/*
190119
* Now define the slots used in declarations.

0 commit comments

Comments
 (0)