/* LUA: __gc and buffer:close()
Releases the buffer resources
*/
static int buffer_event_gc(lua_State* L) {
le_bufferevent* ev = buffer_event_get(L, 1);
if(ev->ev) {
le_buffer *read, *write;
bufferevent_free(ev->ev);
ev->ev = NULL;
/* Also clear out the associated input/output event_buffers
* since they would have already been freed.. */
lua_getfenv(L, 1);
lua_rawgeti(L, -1, READ_BUFFER_LOCATION);
lua_rawgeti(L, -2, WRITE_BUFFER_LOCATION);
read = event_buffer_check(L, -2);
write = event_buffer_check(L, -1);
/* Erase Lua's link to the buffers */
lua_pushnil(L);
/* LS: ..., fenv, readBuf, writeBuf, nil */
lua_rawseti(L, -4, READ_BUFFER_LOCATION);
lua_pushnil(L);
lua_rawseti(L, -4, WRITE_BUFFER_LOCATION);
/* Erase their knowledge of the buffer so that the GC won't try to double-free */
read->buffer = NULL;
write->buffer = NULL;
}
return 0;
}
static int buffer_event_disable(lua_State* L) {
le_bufferevent* ev = buffer_event_get(L, 1);
if(!ev->ev) return 0;
lua_pushinteger(L, bufferevent_disable(ev->ev, luaL_checkinteger(L, 2)));
return 1;
}
static int buffer_event_get_timeouts(lua_State* L) {
le_bufferevent* ev = buffer_event_get(L, 1);
if(!ev->ev) return 0;
lua_pushinteger(L, ev->ev->timeout_read);
lua_pushinteger(L, ev->ev->timeout_write);
return 2;
}
static int buffer_event_get_write_watermarks(lua_State* L) {
le_bufferevent* ev = buffer_event_get(L, 1);
if(!ev->ev) return 0;
lua_pushinteger(L, ev->ev->wm_write.low);
lua_pushinteger(L, ev->ev->wm_write.high);
return 2;
}
static int buffer_event_set_timeouts(lua_State* L) {
int timeout_read, timeout_write;
le_bufferevent* ev = buffer_event_get(L, 1);
if(!ev->ev) return 0;
timeout_read = lua_tointeger(L, 2);
timeout_write = lua_tointeger(L, 3);
bufferevent_settimeout(ev->ev, timeout_read, timeout_write);
return 0;
}
static int buffer_event_set_write_watermarks(lua_State* L) {
int low, high;
le_bufferevent* ev = buffer_event_get(L, 1);
if(!ev->ev) return 0;
low = lua_tonumber(L, 2);
high = lua_tonumber(L, 3);
bufferevent_setwatermark(ev->ev, EV_WRITE, low, high);
return 0;
}
static int buffer_event_set_write_watermarks(lua_State* L) {
int low, high;
le_bufferevent* ev = buffer_event_get(L, 1);
if(!ev->ev) return 0;
low = lua_tonumber(L, 2);
high = lua_tonumber(L, 3);
ev->ev->wm_write.low = low;
ev->ev->wm_write.high = high;
return 0;
}
static int buffer_event_get_write(lua_State* L) {
(void)buffer_event_get(L, 1);
lua_getfenv(L, 1);
lua_rawgeti(L, -1, WRITE_BUFFER_LOCATION);
return 1;
}
static int buffer_event_get_read(lua_State* L) {
(void)buffer_event_get(L, 1);
lua_getfenv(L, 1);
lua_rawgeti(L, -1, READ_BUFFER_LOCATION);
return 1;
}
