isbear@23:
isbear@23: /* Copyright 2009 Myhailo Danylenko
isbear@23:
isbear@23: This file is part of lua-lm.
isbear@23:
isbear@23: lua-lm is free software: you can redistribute it and/or modify
isbear@23: it under the terms of the GNU General Public License as published by
isbear@23: the Free Software Foundation, either version 2 of the License, or
isbear@23: (at your option) any later version.
isbear@23:
isbear@23: This program is distributed in the hope that it will be useful,
isbear@23: but WITHOUT ANY WARRANTY; without even the implied warranty of
isbear@23: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
isbear@23: GNU General Public License for more details.
isbear@23:
isbear@23: You should have received a copy of the GNU General Public License
isbear@23: along with this program. If not, see . */
isbear@0:
isbear@0: #include
isbear@0: #include
isbear@0: #include
isbear@0: #include
isbear@0:
isbear@6: #include "config.h"
isbear@0: #include "lm_types.h"
isbear@0: #include "util.h"
isbear@0:
isbear@0: /// lm.message_handler
isbear@0: /// Module, representing message handling functions.
isbear@0:
isbear@0: /// message handler callback function
isbear@0: /// Callback function, used on incoming messages.
isbear@0: /// Should return true if message has been fully handled and no more
isbear@0: /// handlers should be called.
isbear@0: /// A: lm connection object, lm message object
isbear@0: /// R: boolean
isbear@11: LmHandlerResult callback_lm_handler (LmMessageHandler *handler, LmConnection *connection, LmMessage *message, llm_callback_t *cb)
isbear@0: {
isbear@0: int ret;
isbear@0: lua_rawgeti (cb->L, LUA_REGISTRYINDEX, cb->reference);
isbear@11: bless_lm_connection (cb->L, connection);
isbear@0: // XXX lm_connection_unref (connection);
isbear@11: bless_lm_message (cb->L, message);
isbear@0: // XXX lm_message_unref (message);
isbear@0: if (lua_pcall (cb->L, 2, 1, 0)) {
isbear@9: W ("Message handler callback error: %s", lua_tostring (cb->L, -1));
isbear@0: lua_pop (cb->L, 1);
isbear@0: return LM_HANDLER_RESULT_ALLOW_MORE_HANDLERS;
isbear@0: }
isbear@0: ret = lua_toboolean (cb->L, -1);
isbear@0: lua_pop (cb->L, 1);
isbear@0: if (ret)
isbear@0: return LM_HANDLER_RESULT_REMOVE_MESSAGE;
isbear@0: else
isbear@0: return LM_HANDLER_RESULT_ALLOW_MORE_HANDLERS;
isbear@0: }
isbear@0:
isbear@0: /// lm.message_handler.new
isbear@0: /// Creates new message handler object.
isbear@0: /// A: message handler callback function
isbear@0: /// R: lm message handler object
isbear@11: static int new_lm_handler (lua_State *L)
isbear@0: {
isbear@0: llm_callback_t *cb;
isbear@0: LmMessageHandler *handler;
isbear@0: luaL_argcheck (L, lua_isfunction (L, 1), 1, "function expected");
isbear@0:
isbear@0: cb = luaL_malloc (L, sizeof (llm_callback_t));
isbear@0: cb->reference = luaL_ref (L, LUA_REGISTRYINDEX);
isbear@0: cb->L = L;
isbear@0:
isbear@11: handler = lm_message_handler_new ((LmHandleMessageFunction)callback_lm_handler,
isbear@0: cb, (GDestroyNotify)llm_callback_destroy);
isbear@11: bless_lm_handler (L, handler);
isbear@0: lm_message_handler_unref (handler); // XXX
isbear@38: D ("Message handler %p created", handler);
isbear@0: return 1;
isbear@0: }
isbear@0:
isbear@0: /// lm.message_handler.bless
isbear@0: /// Blesses given pointer to lm message handler object.
isbear@0: /// A: lightuserdata (C lm message handler object)
isbear@0: /// R: lm message handler object
isbear@11: static int bless_lua_lm_handler (lua_State *L)
isbear@0: {
isbear@0: luaL_argcheck (L, lua_islightuserdata (L, 1), 1, "loudmouth message handler pointer expected");
isbear@11: bless_lm_handler (L, lua_touserdata (L, 1));
isbear@0: return 1;
isbear@0: }
isbear@0:
isbear@6: // XXX: merge with next?
isbear@0: /// message_handler:invalidate
isbear@0: /// Invalidates handler.
isbear@6: /// R: lm message handler object
isbear@11: static int invalidate_lm_handler (lua_State *L)
isbear@0: {
isbear@11: llm_handler_t *object = luaL_checklm_handler (L, 1);
isbear@11: lm_message_handler_invalidate (object->handler);
isbear@6: return 1;
isbear@0: }
isbear@0:
isbear@0: /// message_handler:valid
isbear@0: /// Returns true if message handler is still valid.
isbear@0: /// R: boolean
isbear@11: static int valid_lm_handler (lua_State *L)
isbear@0: {
isbear@11: llm_handler_t *object = luaL_checklm_handler (L, 1);
isbear@11: lua_pushboolean (L, lm_message_handler_is_valid (object->handler));
isbear@0: return 1;
isbear@0: }
isbear@0:
isbear@0: /// message_handler:pointer
isbear@0: /// Returns pointer to underlying C loudmouth structure.
isbear@0: /// R: lightuserdata
isbear@11: static int pointer_lm_handler (lua_State *L)
isbear@0: {
isbear@11: llm_handler_t *object = luaL_checklm_handler (L, 1);
isbear@11: lua_pushlightuserdata (L, object->handler);
isbear@0: return 1;
isbear@0: }
isbear@0:
isbear@11: static int gc_lm_handler (lua_State *L)
isbear@0: {
isbear@11: llm_handler_t *object = luaL_checklm_handler (L, 1);
isbear@38: D ("Message handler %p gc called", object);
isbear@11: lm_message_handler_unref (object->handler);
isbear@0: return 0;
isbear@0: }
isbear@0:
isbear@11: static const luaL_Reg reg_f_lm_handler[] = {
isbear@11: { "new", new_lm_handler },
isbear@11: { "bless", bless_lua_lm_handler },
isbear@12: { NULL, NULL },
isbear@0: };
isbear@0:
isbear@11: static const luaL_Reg reg_m_lm_handler[] = {
isbear@11: { "invalidate", invalidate_lm_handler },
isbear@11: { "valid", valid_lm_handler },
isbear@11: { "pointer", pointer_lm_handler },
isbear@11: { "__gc", gc_lm_handler },
isbear@12: { NULL, NULL },
isbear@0: };
isbear@0:
isbear@0: int luaopen_lm_message_handler (lua_State *L)
isbear@0: {
isbear@0: luaL_newmetatable (L, "loudmouth.message_handler");
isbear@19: lua_pushvalue (L, -1);
isbear@19: lua_setfield (L, -2, "__index");
isbear@54: luaL_setfuncs (L, reg_m_lm_handler, 0);
isbear@0: lua_pop (L, 1);
isbear@16: lua_newtable (L); // XXX we can specify here exact amount of fields
isbear@54: luaL_setfuncs (L, reg_f_lm_handler, 0);
isbear@0: return 1;
isbear@0: }
isbear@0: