61 lines
1.9 KiB
C
61 lines
1.9 KiB
C
#ifndef HX_CFFIEXT_INCLUDED
|
|
#define HX_CFFIEXT_INCLUDED
|
|
|
|
#include <hx/CFFI.h>
|
|
|
|
#if defined(STATIC_LINK) && defined(IMPLEMENT_CFFI_EXT)
|
|
void *LoadFunc(const char *inName) { return 0; }
|
|
#else
|
|
extern void *LoadFunc(const char *inName);
|
|
#endif
|
|
|
|
#ifdef IMPLEMENT_CFFI_EXT
|
|
#define DEFFUNC_EXT(name,ret,def_args,call_args) \
|
|
typedef ret (*FUNC_##name)def_args; \
|
|
FUNC_##name IMPL_##name = NULL; \
|
|
extern FUNC_##name EXT_##name; \
|
|
bool LOADED_##name = false; \
|
|
bool HAS_##name () \
|
|
{ \
|
|
if (!LOADED_##name) \
|
|
{ \
|
|
IMPL_##name = (FUNC_##name)LoadFunc(#name); \
|
|
LOADED_##name = true; \
|
|
} \
|
|
return IMPL_##name != NULL; \
|
|
} \
|
|
ret REAL_##name def_args \
|
|
{ \
|
|
if (!HAS_##name()) \
|
|
{ \
|
|
fprintf(stderr,"Could not find external function:" #name " \n"); \
|
|
abort(); \
|
|
} \
|
|
EXT_##name = IMPL_##name; \
|
|
return IMPL_##name call_args; \
|
|
} \
|
|
FUNC_##name EXT_##name = REAL_##name;
|
|
#else
|
|
#define DEFFUNC_EXT(name,ret,def_args,call_args) \
|
|
typedef ret (*FUNC_##name)def_args; \
|
|
extern bool HAS_##name (); \
|
|
extern FUNC_##name EXT_##name;
|
|
#endif
|
|
|
|
#define DEFFUNC_EXT_0(ret,name) DEFFUNC_EXT(name,ret, (), ())
|
|
#define DEFFUNC_EXT_1(ret,name,t1) DEFFUNC_EXT(name,ret, (t1 a1), (a1))
|
|
#define DEFFUNC_EXT_2(ret,name,t1,t2) DEFFUNC_EXT(name,ret, (t1 a1, t2 a2), (a1,a2))
|
|
#define DEFFUNC_EXT_3(ret,name,t1,t2,t3) DEFFUNC_EXT(name,ret, (t1 a1, t2 a2, t3 a3), (a1,a2,a3))
|
|
#define DEFFUNC_EXT_4(ret,name,t1,t2,t3,t4) DEFFUNC_EXT(name,ret, (t1 a1, t2 a2, t3 a3, t4 a4), (a1,a2,a3,a4))
|
|
#define DEFFUNC_EXT_5(ret,name,t1,t2,t3,t4,t5) DEFFUNC_EXT(name,ret, (t1 a1, t2 a2, t3 a3, t4 a4,t5 a5), (a1,a2,a3,a4,a5))
|
|
|
|
DEFFUNC_EXT_1(value,pin_buffer,buffer);
|
|
DEFFUNC_EXT_1(void,unpin_buffer,value);
|
|
DEFFUNC_EXT_2(value,alloc_array_type,int,hxValueType);
|
|
|
|
static value alloc_array_type_wrap(int size, hxValueType type)
|
|
{
|
|
return HAS_alloc_array_type() ? EXT_alloc_array_type(size, type) : alloc_array (size);
|
|
}
|
|
|
|
#endif |