Fri, 21 Sep 2007 14:35:11 -0400
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
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 | |
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 "buffer_event.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 | #include "luaevent.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
|
6 | #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
|
7 | #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
|
8 | #include <malloc.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
|
9 | #include "event_buffer.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
|
10 | |
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 | #define BUFFER_EVENT_MT "BUFFER_EVENT_MT" |
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 | /* Obtains an le_bufferevent structure from a given index */ |
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 | static le_bufferevent* buffer_event_get(lua_State* L, 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
|
15 | return (le_bufferevent*)luaL_checkudata(L, idx, BUFFER_EVENT_MT); |
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 | } |
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 | |
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 | /* Obtains an le_bufferevent structure from a given index |
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 | AND checks that it hadn't been prematurely freed |
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 | */ |
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 | le_bufferevent* buffer_event_check(lua_State* L, 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
|
22 | le_bufferevent* buf = (le_bufferevent*)luaL_checkudata(L, idx, BUFFER_EVENT_MT); |
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 | if(!buf->ev) |
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 | luaL_argerror(L, idx, "Attempt to use closed buffer_event object"); |
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 | return buf; |
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 | |
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 | /* Checks if the given index contains an le_buffer object */ |
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 | int is_buffer_event(lua_State* L, 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
|
30 | int ret; |
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 | lua_getmetatable(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
|
32 | luaL_getmetatable(L, BUFFER_EVENT_MT); |
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 | ret = lua_rawequal(L, -2, -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
|
34 | lua_pop(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
|
35 | return ret; |
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 | } |
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 | |
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 | static void handle_callback(le_bufferevent* le_ev, short what, int callbackIndex) { |
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 | lua_State* L = le_ev->base->loop_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
|
40 | le_weak_get(L, le_ev); |
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 | lua_getfenv(L, -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
|
42 | lua_rawgeti(L, -1, callbackIndex); |
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 | lua_remove(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
|
44 | lua_pushvalue(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
|
45 | lua_remove(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
|
46 | /* func, bufferevent */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
47 | lua_pushinteger(L, what); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
48 | /* What to do w/ errors...? */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
49 | lua_pcall(L, 3, 0, 0); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
50 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
51 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
52 | static void buffer_event_readcb(struct bufferevent *ev, 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
|
53 | handle_callback((le_bufferevent*)ptr, EVBUFFER_READ, 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
|
54 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
55 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
56 | static void buffer_event_writecb(struct bufferevent *ev, 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
|
57 | handle_callback((le_bufferevent*)ptr, EVBUFFER_WRITE, 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
|
58 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
59 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
60 | static void buffer_event_errorcb(struct bufferevent *ev, short what, 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
|
61 | handle_callback((le_bufferevent*)ptr, what, 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
|
62 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
63 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
64 | /* LUA: new(fd, read, write, error) |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
65 | Pushes a new bufferevent instance on the stack |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
66 | Accepts: base, fd, read, write, error cb |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
67 | Requires base, fd and error cb |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
68 | */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
69 | static int buffer_event_push(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
|
70 | le_bufferevent *ev; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
71 | le_base* base = event_base_get(L, 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
|
72 | /* NOTE: Should probably reference the socket as well... */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
73 | int fd = getSocketFd(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
|
74 | luaL_checktype(L, 5, LUA_TFUNCTION); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
75 | if(!lua_isnil(L, 3)) luaL_checktype(L, 3, LUA_TFUNCTION); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
76 | if(!lua_isnil(L, 4)) luaL_checktype(L, 4, LUA_TFUNCTION); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
77 | ev= (le_bufferevent*)lua_newuserdata(L, sizeof(le_bufferevent)); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
78 | luaL_getmetatable(L, BUFFER_EVENT_MT); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
79 | 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
|
80 | ev->ev = bufferevent_new(fd, buffer_event_readcb, buffer_event_writecb, buffer_event_errorcb, ev); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
81 | lua_createtable(L, 5, 0); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
82 | lua_pushvalue(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
|
83 | lua_rawseti(L, -2, 1); // Read |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
84 | lua_pushvalue(L, 4); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
85 | lua_rawseti(L, -2, 2); // Write |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
86 | lua_pushvalue(L, 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
|
87 | lua_rawseti(L, -2, 3); // Err |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
88 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
89 | event_buffer_push(L, ev->ev->input); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
90 | lua_rawseti(L, -2, 4); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
91 | event_buffer_push(L, ev->ev->output); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
92 | lua_rawseti(L, -2, 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
|
93 | lua_setfenv(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
|
94 | ev->base = base; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
95 | return 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
|
96 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
97 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
98 | /* LUA: __gc and buffer:close() |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
99 | Releases the buffer resources |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
100 | */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
101 | static int buffer_event_gc(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
|
102 | le_bufferevent* ev = buffer_event_get(L, 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
|
103 | if(ev->ev) { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
104 | le_buffer *read, *write; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
105 | bufferevent_free(ev->ev); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
106 | ev->ev = NULL; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
107 | /* Also clear out the associated input/output event_buffers |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
108 | * since they would have already been freed.. */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
109 | lua_getfenv(L, 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
|
110 | lua_rawgeti(L, -1, 4); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
111 | lua_rawgeti(L, -2, 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
|
112 | read = event_buffer_check(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
|
113 | write = event_buffer_check(L, -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
|
114 | /* Erase their knowledge of the buffer so that the GC won't try to double-free */ |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
115 | read->buffer = NULL; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
116 | write->buffer = NULL; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
117 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
118 | return 0; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
119 | } |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
120 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
121 | static luaL_Reg buffer_event_funcs[] = { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
122 | {NULL, NULL} |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
123 | }; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
124 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
125 | static luaL_Reg funcs[] = { |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
126 | {"new", buffer_event_push}, |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
127 | {NULL, NULL} |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
128 | }; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
129 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
130 | int buffer_event_register(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
|
131 | luaL_newmetatable(L, BUFFER_EVENT_MT); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
132 | lua_pushcfunction(L, buffer_event_gc); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
133 | lua_setfield(L, -2, "__gc"); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
134 | 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
|
135 | luaL_register(L, NULL, buffer_event_funcs); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
136 | lua_setfield(L, -2, "__index"); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
137 | lua_pop(L, 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
|
138 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
139 | luaL_register(L, "luaevent.core.bufferevent", funcs); |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
140 | return 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
|
141 | } |