Sat, 15 Jan 2011 19:51:21 -0500
Merge branch 'prosody-tree'
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 "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
|
4 | #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
|
5 | #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
|
6 | #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
|
7 | #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
|
8 | |
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 | #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
|
10 | |
53
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
11 | /* Locations of READ/WRITE buffers in the fenv */ |
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
12 | #define READ_BUFFER_LOCATION 4 |
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
13 | #define WRITE_BUFFER_LOCATION 5 |
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
14 | |
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
|
15 | /* 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
|
16 | 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
|
17 | 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
|
18 | } |
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 | /* 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
|
21 | 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
|
22 | */ |
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 | 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
|
24 | 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
|
25 | 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
|
26 | 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
|
27 | 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
|
28 | } |
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 | |
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 | /* 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
|
31 | 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
|
32 | 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
|
33 | 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
|
34 | 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
|
35 | 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
|
36 | 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
|
37 | 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
|
38 | } |
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 | 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
|
41 | 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
|
42 | 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
|
43 | 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
|
44 | 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
|
45 | 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
|
46 | 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
|
47 | 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
|
48 | /* 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
|
49 | 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
|
50 | /* What to do w/ errors...? */ |
71
3e56f21e2e28
Fix potential stack slot leak when error occurs
Matthew Wild <mwild1@gmail.com>
parents:
62
diff
changeset
|
51 | if(!lua_pcall(L, 2, 0, 0)) |
3e56f21e2e28
Fix potential stack slot leak when error occurs
Matthew Wild <mwild1@gmail.com>
parents:
62
diff
changeset
|
52 | { |
3e56f21e2e28
Fix potential stack slot leak when error occurs
Matthew Wild <mwild1@gmail.com>
parents:
62
diff
changeset
|
53 | /* FIXME: Perhaps luaevent users should be |
3e56f21e2e28
Fix potential stack slot leak when error occurs
Matthew Wild <mwild1@gmail.com>
parents:
62
diff
changeset
|
54 | * able to set an error handler? */ |
3e56f21e2e28
Fix potential stack slot leak when error occurs
Matthew Wild <mwild1@gmail.com>
parents:
62
diff
changeset
|
55 | lua_pop(L, 1); /* Pop error message */ |
3e56f21e2e28
Fix potential stack slot leak when error occurs
Matthew Wild <mwild1@gmail.com>
parents:
62
diff
changeset
|
56 | } |
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
|
57 | } |
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 | 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
|
60 | 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
|
61 | } |
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 | 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
|
64 | 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
|
65 | } |
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 | |
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 | 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
|
68 | 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
|
69 | } |
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 | |
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 | /* 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
|
72 | 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
|
73 | 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
|
74 | 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
|
75 | */ |
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 | 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
|
77 | 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
|
78 | 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
|
79 | /* 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
|
80 | 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
|
81 | 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
|
82 | 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
|
83 | 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
|
84 | 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
|
85 | 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
|
86 | 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
|
87 | 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
|
88 | 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
|
89 | 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
|
90 | 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
|
91 | 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
|
92 | 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
|
93 | 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
|
94 | lua_rawseti(L, -2, 3); // Err |
42
b1742e841e5a
Corrected spacing issues introduced in SciTE ... may begin using gvim to avoid these issues...
Thomas Harning Jr <harningt@gmail.com>
parents:
41
diff
changeset
|
95 | |
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
|
96 | event_buffer_push(L, ev->ev->input); |
53
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
97 | lua_rawseti(L, -2, READ_BUFFER_LOCATION); |
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
|
98 | event_buffer_push(L, ev->ev->output); |
53
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
99 | lua_rawseti(L, -2, WRITE_BUFFER_LOCATION); |
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
|
100 | 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
|
101 | 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
|
102 | 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
|
103 | } |
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 | |
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 | /* 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
|
106 | 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
|
107 | */ |
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 | 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
|
109 | 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
|
110 | 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
|
111 | 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
|
112 | 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
|
113 | ev->ev = NULL; |
42
b1742e841e5a
Corrected spacing issues introduced in SciTE ... may begin using gvim to avoid these issues...
Thomas Harning Jr <harningt@gmail.com>
parents:
41
diff
changeset
|
114 | /* Also clear out the associated input/output event_buffers |
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
|
115 | * 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
|
116 | lua_getfenv(L, 1); |
53
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
117 | lua_rawgeti(L, -1, READ_BUFFER_LOCATION); |
e5ede009d0c5
buffer_event: removed magic numbers for read/write buffer locations
Thomas Harning Jr <harningt@gmail.com>
parents:
42
diff
changeset
|
118 | lua_rawgeti(L, -2, WRITE_BUFFER_LOCATION); |
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
|
119 | 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
|
120 | write = event_buffer_check(L, -1); |
54
bac1b4f541eb
buffer_event: Learned how to erase read/write buffer knowledge from Lua
Thomas Harning Jr <harningt@gmail.com>
parents:
53
diff
changeset
|
121 | /* Erase Lua's link to the buffers */ |
bac1b4f541eb
buffer_event: Learned how to erase read/write buffer knowledge from Lua
Thomas Harning Jr <harningt@gmail.com>
parents:
53
diff
changeset
|
122 | lua_pushnil(L); |
bac1b4f541eb
buffer_event: Learned how to erase read/write buffer knowledge from Lua
Thomas Harning Jr <harningt@gmail.com>
parents:
53
diff
changeset
|
123 | /* LS: ..., fenv, readBuf, writeBuf, nil */ |
bac1b4f541eb
buffer_event: Learned how to erase read/write buffer knowledge from Lua
Thomas Harning Jr <harningt@gmail.com>
parents:
53
diff
changeset
|
124 | lua_rawseti(L, -4, READ_BUFFER_LOCATION); |
bac1b4f541eb
buffer_event: Learned how to erase read/write buffer knowledge from Lua
Thomas Harning Jr <harningt@gmail.com>
parents:
53
diff
changeset
|
125 | lua_pushnil(L); |
bac1b4f541eb
buffer_event: Learned how to erase read/write buffer knowledge from Lua
Thomas Harning Jr <harningt@gmail.com>
parents:
53
diff
changeset
|
126 | lua_rawseti(L, -4, WRITE_BUFFER_LOCATION); |
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
|
127 | /* 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
|
128 | 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
|
129 | 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
|
130 | } |
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 | 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
|
132 | } |
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 | |
55
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
134 | static int buffer_event_get_read(lua_State* L) { |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
135 | (void)buffer_event_get(L, 1); |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
136 | lua_getfenv(L, 1); |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
137 | lua_rawgeti(L, -1, READ_BUFFER_LOCATION); |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
138 | return 1; |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
139 | } |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
140 | |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
141 | static int buffer_event_get_write(lua_State* L) { |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
142 | (void)buffer_event_get(L, 1); |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
143 | lua_getfenv(L, 1); |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
144 | lua_rawgeti(L, -1, WRITE_BUFFER_LOCATION); |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
145 | return 1; |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
146 | } |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
147 | |
57
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
148 | static int buffer_event_set_read_watermarks(lua_State* L) { |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
149 | int low, high; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
150 | le_bufferevent* ev = buffer_event_get(L, 1); |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
151 | if(!ev->ev) return 0; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
152 | |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
153 | low = lua_tonumber(L, 2); |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
154 | high = lua_tonumber(L, 3); |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
155 | |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
156 | ev->ev->wm_read.low = low; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
157 | ev->ev->wm_read.high = high; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
158 | return 0; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
159 | } |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
160 | |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
161 | static int buffer_event_set_write_watermarks(lua_State* L) { |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
162 | int low, high; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
163 | le_bufferevent* ev = buffer_event_get(L, 1); |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
164 | if(!ev->ev) return 0; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
165 | |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
166 | low = lua_tonumber(L, 2); |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
167 | high = lua_tonumber(L, 3); |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
168 | |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
169 | ev->ev->wm_write.low = low; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
170 | ev->ev->wm_write.high = high; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
171 | return 0; |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
172 | } |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
173 | |
58
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
174 | static int buffer_event_get_read_watermarks(lua_State* L) { |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
175 | le_bufferevent* ev = buffer_event_get(L, 1); |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
176 | if(!ev->ev) return 0; |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
177 | |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
178 | lua_pushinteger(L, ev->ev->wm_read.low); |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
179 | lua_pushinteger(L, ev->ev->wm_read.high); |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
180 | return 2; |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
181 | } |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
182 | |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
183 | static int buffer_event_get_write_watermarks(lua_State* L) { |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
184 | le_bufferevent* ev = buffer_event_get(L, 1); |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
185 | if(!ev->ev) return 0; |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
186 | |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
187 | lua_pushinteger(L, ev->ev->wm_write.low); |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
188 | lua_pushinteger(L, ev->ev->wm_write.high); |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
189 | return 2; |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
190 | } |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
191 | |
59
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
192 | static int buffer_event_set_timeouts(lua_State* L) { |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
193 | int timeout_read, timeout_write; |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
194 | le_bufferevent* ev = buffer_event_get(L, 1); |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
195 | if(!ev->ev) return 0; |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
196 | |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
197 | timeout_read = lua_tointeger(L, 2); |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
198 | timeout_write = lua_tointeger(L, 3); |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
199 | |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
200 | bufferevent_settimeout(ev->ev, timeout_read, timeout_write); |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
201 | return 0; |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
202 | } |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
203 | |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
204 | static int buffer_event_get_timeouts(lua_State* L) { |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
205 | le_bufferevent* ev = buffer_event_get(L, 1); |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
206 | if(!ev->ev) return 0; |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
207 | |
92
57662d96d8a8
bufferevent compiler-flag fix regarding >= 2.0 ... must rebuild between 1.4 and 2.0 version builds
Thomas Harning Jr <harningt@gmail.com>
parents:
62
diff
changeset
|
208 | #if LIBEVENT_VERSION_NUMBER >= 0x02000000 |
57662d96d8a8
bufferevent compiler-flag fix regarding >= 2.0 ... must rebuild between 1.4 and 2.0 version builds
Thomas Harning Jr <harningt@gmail.com>
parents:
62
diff
changeset
|
209 | lua_pushinteger(L, (ev->ev->timeout_read).tv_sec); |
57662d96d8a8
bufferevent compiler-flag fix regarding >= 2.0 ... must rebuild between 1.4 and 2.0 version builds
Thomas Harning Jr <harningt@gmail.com>
parents:
62
diff
changeset
|
210 | lua_pushinteger(L, (ev->ev->timeout_write).tv_sec); |
57662d96d8a8
bufferevent compiler-flag fix regarding >= 2.0 ... must rebuild between 1.4 and 2.0 version builds
Thomas Harning Jr <harningt@gmail.com>
parents:
62
diff
changeset
|
211 | #else |
59
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
212 | lua_pushinteger(L, ev->ev->timeout_read); |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
213 | lua_pushinteger(L, ev->ev->timeout_write); |
92
57662d96d8a8
bufferevent compiler-flag fix regarding >= 2.0 ... must rebuild between 1.4 and 2.0 version builds
Thomas Harning Jr <harningt@gmail.com>
parents:
62
diff
changeset
|
214 | #endif |
59
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
215 | return 2; |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
216 | } |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
217 | |
60
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
218 | static int buffer_event_enable(lua_State* L) { |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
219 | le_bufferevent* ev = buffer_event_get(L, 1); |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
220 | if(!ev->ev) return 0; |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
221 | |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
222 | lua_pushinteger(L, bufferevent_enable(ev->ev, luaL_checkinteger(L, 2))); |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
223 | return 1; |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
224 | } |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
225 | |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
226 | static int buffer_event_disable(lua_State* L) { |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
227 | le_bufferevent* ev = buffer_event_get(L, 1); |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
228 | if(!ev->ev) return 0; |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
229 | |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
230 | lua_pushinteger(L, bufferevent_disable(ev->ev, luaL_checkinteger(L, 2))); |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
231 | return 1; |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
232 | } |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
233 | |
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
|
234 | static luaL_Reg buffer_event_funcs[] = { |
55
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
235 | {"get_read", buffer_event_get_read}, |
dd80d289e1cc
buffer_event learned get_read/get_write buffer accessors
Thomas Harning Jr <harningt@gmail.com>
parents:
54
diff
changeset
|
236 | {"get_write", buffer_event_get_write}, |
57
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
237 | {"set_read_watermarks", buffer_event_set_read_watermarks}, |
e20f175aa158
bufferevent learned set_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
55
diff
changeset
|
238 | {"set_write_watermarks", buffer_event_set_write_watermarks}, |
58
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
239 | {"get_read_watermarks", buffer_event_get_read_watermarks}, |
03d12148100c
bufferevent learned get_*_watermarks
Thomas Harning Jr <harningt@gmail.com>
parents:
57
diff
changeset
|
240 | {"get_write_watermarks", buffer_event_get_write_watermarks}, |
59
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
241 | {"set_timeouts", buffer_event_set_timeouts}, |
9c826ee8193c
bufferevent learned (get|set)_timeouts
Thomas Harning Jr <harningt@gmail.com>
parents:
58
diff
changeset
|
242 | {"get_timeouts", buffer_event_get_timeouts}, |
60
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
243 | {"enable", buffer_event_enable}, |
5541ffe08e77
bufferevent learned enable/disable
Thomas Harning Jr <harningt@gmail.com>
parents:
59
diff
changeset
|
244 | {"disable", buffer_event_disable}, |
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
|
245 | {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
|
246 | }; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
247 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
248 | 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
|
249 | {"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
|
250 | {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
|
251 | }; |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
252 | |
fce1995f0db8
buffer_event is born, albeit w/ deformities. Can construct instances but not use, yet.
Thomas Harning Jr <harningt@gmail.com>
parents:
diff
changeset
|
253 | 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
|
254 | 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
|
255 | 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
|
256 | 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
|
257 | 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
|
258 | 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
|
259 | 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
|
260 | lua_pop(L, 1); |
42
b1742e841e5a
Corrected spacing issues introduced in SciTE ... may begin using gvim to avoid these issues...
Thomas Harning Jr <harningt@gmail.com>
parents:
41
diff
changeset
|
261 | |
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
|
262 | 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
|
263 | 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
|
264 | } |