Mon, 16 Jan 2012 01:53:45 +0000
Merge with upstream
41
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
1 | /* LuaEvent - Copyright (C) 2007 Thomas Harning <harningt@gmail.com> |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
2 | * Licensed as LGPL - See doc/COPYING for details */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
3 | #include "utility.h" |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
4 | #include <lauxlib.h> |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
5 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
6 | #define WEAK_REF_LOCATION le_register_utility |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
7 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
8 | static void get_weakref_table(lua_State* L) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
9 | lua_pushlightuserdata(L, WEAK_REF_LOCATION); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
10 | lua_gettable(L, LUA_REGISTRYINDEX); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
11 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
12 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
13 | void le_weak_ref(lua_State* L, void* ptr, int idx) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
14 | get_weakref_table(L); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
15 | lua_pushlightuserdata(L, ptr); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
16 | if(idx < 0) idx-=2; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
17 | lua_pushvalue(L, idx); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
18 | lua_settable(L, -3); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
19 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
20 | void le_weak_unref(lua_State* L, void* ptr) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
21 | get_weakref_table(L); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
22 | lua_pushlightuserdata(L, ptr); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
23 | lua_pushnil(L); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
24 | lua_settable(L, -3); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
25 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
26 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
27 | void le_weak_get(lua_State* L, void* ptr) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
28 | get_weakref_table(L); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
29 | lua_pushlightuserdata(L, ptr); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
30 | lua_gettable(L, -2); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
31 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
32 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
33 | static void push_weak_table(lua_State* L, const char* mode) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
34 | lua_newtable(L); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
35 | lua_createtable(L,0,1); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
36 | lua_pushstring(L,mode); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
37 | lua_setfield(L,-2,"__mode"); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
38 | lua_setmetatable(L,-2); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
39 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
40 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
41 | void le_register_utility(lua_State* L) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
42 | lua_pushlightuserdata(L, WEAK_REF_LOCATION); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
43 | push_weak_table(L, "v"); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
44 | lua_settable(L, LUA_REGISTRYINDEX); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
45 | } |