1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
/*
* ion/ioncore/objp.h
*
* Copyright (c) Tuomo Valkonen 1999-2004.
*
* Ion is free software; you can redistribute it and/or modify it under
* the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation; either version 2.1 of the License, or
* (at your option) any later version.
*/
#ifndef ION_IONCORE_WOBJP_H
#define ION_IONCORE_WOBJP_H
#include "obj.h"
typedef void DynFun();
INTRSTRUCT(DynFunTab);
DECLSTRUCT(DynFunTab){
DynFun *func, *handler;
};
DECLSTRUCT(WObjDescr){
const char *name;
WObjDescr *ancestor;
int funtab_n;
DynFunTab *funtab;
void (*destroy_fn)();
};
#define WOBJ_TYPESTR(OBJ) (((WObj*)OBJ)->obj_type->name)
#define IMPLOBJ(OBJ, ANCESTOR, DFN, DYN) \
WObjDescr OBJDESCR(OBJ)={#OBJ, &OBJDESCR(ANCESTOR), -1, DYN, \
(void (*)())DFN}
#define WOBJ_INIT(O, TYPE) {((WObj*)(O))->obj_type=&OBJDESCR(TYPE); \
((WObj*)(O))->obj_watches=NULL; ((WObj*)(O))->flags=0;}
#define CREATEOBJ_IMPL(OBJ, LOWOBJ, INIT_ARGS) \
OBJ *p; p=ALLOC(OBJ); if(p==NULL){ warn_err(); return NULL; } \
WOBJ_INIT(p, OBJ); \
if(!LOWOBJ ## _init INIT_ARGS) { free((void*)p); return NULL; } return p
#define SIMPLECREATEOBJ_IMPL(OBJ, LOWOBJ, INIT_ARGS) \
OBJ *p; p=ALLOC(OBJ); if(p==NULL){ warn_err(); return NULL; } \
WOBJ_INIT(p, OBJ); \
return p;
#define END_DYNFUNTAB {NULL, NULL}
extern DynFun *lookup_dynfun(const WObj *obj, DynFun *func,
bool *funnotfound);
extern bool has_dynfun(const WObj *obj, DynFun *func);
#define CALL_DYN(FUNC, OBJ, ARGS) \
bool funnotfound; \
lookup_dynfun((WObj*)OBJ, (DynFun*)FUNC, &funnotfound) ARGS;
#define CALL_DYN_RET(RETV, RET, FUNC, OBJ, ARGS) \
typedef RET ThisDynFun(); \
bool funnotfound; \
ThisDynFun *funtmp; \
funtmp=(ThisDynFun*)lookup_dynfun((WObj*)OBJ, (DynFun*)FUNC, \
&funnotfound); \
if(!funnotfound) \
RETV=funtmp ARGS;
#define HAS_DYN(OBJ, FUNC) has_dynfun((WObj*)OBJ, (DynFun*)FUNC)
#endif /* ION_IONCORE_WOBJP_H */
|
