blob: 29a19a972e344f038a60bbd88cdd43812226c50c (
plain)
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
|
#if !defined( __keeper_h__)
#define __keeper_h__ 1
struct s_Keeper
{
MUTEX_T lock_;
lua_State *L;
//int count;
};
// if enabled, call close_keepers at the very last as we want to be sure no thread is GCing after.
// (and therefore may perform linda object dereferencing after keepers are gone)
// problem: maybe on some platforms (linux) atexit() is called after DLL/so are unloaded...
#define HAVE_KEEPER_ATEXIT_DESINIT 0
char const* init_keepers( lua_State* L, int _on_state_create, int const _nbKeepers);
#if !HAVE_KEEPER_ATEXIT_DESINIT
void close_keepers( void);
#endif // HAVE_KEEPER_ATEXIT_DESINIT
void populate_keepers( lua_State *L);
struct s_Keeper *keeper_acquire( const void *ptr);
void keeper_release( struct s_Keeper *K);
void keeper_toggle_nil_sentinels( lua_State *L, int _val_i, int _nil_to_sentinel);
int keeper_push_linda_storage( lua_State* L, void* ptr);
#define KEEPER_MODEL_LUA 1
#define KEEPER_MODEL_C 2
#define KEEPER_MODEL KEEPER_MODEL_C
#if KEEPER_MODEL == KEEPER_MODEL_LUA
typedef char const* keeper_api_t;
#define KEEPER_API( _op) #_op
#define PUSH_KEEPER_FUNC( K, _api) lua_getglobal( K, _api)
#elif KEEPER_MODEL == KEEPER_MODEL_C
typedef lua_CFunction keeper_api_t;
#define KEEPER_API( _op) keepercall_ ## _op
#define PUSH_KEEPER_FUNC lua_pushcfunction
// lua_Cfunctions to run inside a keeper state (formerly implemented in Lua)
int keepercall_clear( lua_State* L);
int keepercall_send( lua_State* L);
int keepercall_receive( lua_State* L);
int keepercall_receive_batched( lua_State* L);
int keepercall_limit( lua_State* L);
int keepercall_get( lua_State* L);
int keepercall_set( lua_State* L);
int keepercall_count( lua_State* L);
#endif // KEEPER_MODEL
int keeper_call( lua_State *K, keeper_api_t _func, lua_State *L, void *linda, uint_t starting_index);
#endif // __keeper_h__
|
