forked from livecode/livecode
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy paththunk.h
More file actions
76 lines (53 loc) · 1.95 KB
/
thunk.h
File metadata and controls
76 lines (53 loc) · 1.95 KB
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
74
75
76
#ifndef __MC_THUNK__
#define __MC_THUNK__
#ifndef __MC_CORE__
#include "core.h"
#endif
////////////////////////////////////////////////////////////////////////////////
bool MCThunkInitialize(void);
void MCThunkFinalize(void);
// Create a thunk from stdcall -> fastcall
bool MCThunkNew(void *object, void *method, void*& r_closure);
// Create a thunk from stdcall -> stdcall
bool MCThunkNewStdCall(void *object, void *function, void*& r_closure);
void MCThunkDelete(void *closure);
/////////
#define __MCThunkNewTemplate(m_result, m_args) \
inline bool MCThunkNew(T *p_object, m_result (__thiscall T::*p_method) m_args, m_result (__stdcall *& r_closure) m_args) \
{ \
typedef m_result (__stdcall *Closure) m_args; \
void *t_closure; \
if (MCThunkNew(p_object, *reinterpret_cast<void **>(&p_method), t_closure)) \
{ \
r_closure = static_cast<Closure>(t_closure); \
return true; \
} \
return false; \
}
//////////
// These don't seem needed...
#if 0
template<typename T>
__MCThunkNewTemplate(void, (void))
template<typename T, typename P1>
__MCThunkNewTemplate(void, (P1))
template<typename T, typename P1, typename P2>
__MCThunkNewTemplate(void, (P1, P2))
template<typename T, typename P1, typename P2, typename P3>
__MCThunkNewTemplate(void, (P1, P2, P3))
template<typename T, typename P1, typename P2, typename P3, typename P4>
__MCThunkNewTemplate(void, (P1, P2, P3, P4))
#endif
//////////
template<typename T, typename R>
__MCThunkNewTemplate(R, (void))
template<typename T, typename R, typename P1>
__MCThunkNewTemplate(R, (P1))
template<typename T, typename R, typename P1, typename P2>
__MCThunkNewTemplate(R, (P1, P2))
template<typename T, typename R, typename P1, typename P2, typename P3>
__MCThunkNewTemplate(R, (P1, P2, P3))
template<typename T, typename R, typename P1, typename P2, typename P3, typename P4>
__MCThunkNewTemplate(R, (P1, P2, P3, P4))
////////////////////////////////////////////////////////////////////////////////
#endif