objp.h

/*
 * libtu/objp.h
 *
 * Copyright (c) Tuomo Valkonen 1999-2004. 
 *
 * You may distribute and modify this library under the terms of either
 * the Clarified Artistic License or the GNU LGPL, version 2.1 or later.
 */

#ifndef LIBTU_OBJP_H
#define LIBTU_OBJP_H

#include "types.h"
#include "obj.h"

typedef void DynFun();

INTRSTRUCT(DynFunTab);

DECLSTRUCT(DynFunTab){
	DynFun *func, *handler;
};

DECLSTRUCT(ClassDescr){
	const char *name;
	ClassDescr *ancestor;
	int funtab_n;
	DynFunTab *funtab;
	void (*destroy_fn)();
};

#define OBJ_TYPESTR(OBJ) (((Obj*)OBJ)->obj_type->name)

#define IMPLCLASS(CLS, ANCESTOR, DFN, DYN)                         \
		ClassDescr CLASSDESCR(CLS)={                              \
			#CLS, &CLASSDESCR(ANCESTOR), -1, DYN, (void (*)())DFN}

#define OBJ_INIT(O, TYPE) {((Obj*)(O))->obj_type=&CLASSDESCR(TYPE); \
	((Obj*)(O))->obj_watches=NULL; ((Obj*)(O))->flags=0;}

#define CREATEOBJ_IMPL(OBJ, LOWOBJ, INIT_ARGS)                     \
	OBJ *p;  p=ALLOC(OBJ); if(p==NULL){ warn_err(); return NULL; } \
	OBJ_INIT(p, OBJ);                                             \
	if(!LOWOBJ ## _init INIT_ARGS) { free((void*)p); return NULL; } return p

#define SIMPLECREATEOBJ_IMPL(OBJ, LOWOBJ)                          \
	OBJ *p;  p=ALLOC(OBJ); if(p==NULL){ warn_err(); return NULL; } \
	OBJ_INIT(p, OBJ);                                             \
	return p;

#define END_DYNFUNTAB {NULL, NULL}

extern DynFun *lookup_dynfun(const Obj *obj, DynFun *func,
							 bool *funnotfound);
extern bool has_dynfun(const Obj *obj, DynFun *func);

#define CALL_DYN(FUNC, OBJ, ARGS)                                \
	bool funnotfound;                                            \
	lookup_dynfun((Obj*)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((Obj*)OBJ, (DynFun*)FUNC, \
									  &funnotfound);             \
	if(!funnotfound)                                             \
		RETV=funtmp ARGS;

#define HAS_DYN(OBJ, FUNC) has_dynfun((Obj*)OBJ, (DynFun*)FUNC)

#endif /* LIBTU_OBJP_H */