#include <lua.h>

#include <lauxlib.h>

#include <loudmouth/loudmouth.h>  // lm_*ref

#include "config.h"

#include "lm_types.h"

#include "util.h"

void llm_callback_destroy (llm_callback_t *cb)

{

	D ("Destroying callback %X", (int) cb);

	luaL_unref (cb->L, LUA_REGISTRYINDEX, cb->reference);

	luaL_free (cb->L, cb);

}

#define LLM_CHECK(WHAT, TYPE)                                                     \

llm_##WHAT##_t *luaL_checklm_##WHAT (lua_State *L, int index)                     \

{                                                                                 \

	llm_##WHAT##_t *object = luaL_checkudata (L, index, "loudmouth." #WHAT);  \

	luaL_argcheck (L, object != NULL, index, "loudmouth " #WHAT " expected"); \

	return object;                                                            \

}

{                                                                               \

	llm_##WHAT##_t *object;                              /* top of stack */ \

	lua_pushstring (L, LLM_OBJREGISTRY);       /* 1 registry table name  */ \

	lua_rawget (L, LUA_REGISTRYINDEX);               /* 1 registry table */ \

	lua_pushlightuserdata (L, WHAT);                 /* 2 light userdata */ \

	lua_rawget (L, -2);                                  /* 2 object/nil */ \

	if (!lua_isnil (L, -1)) {                                /* 2 object */ \

		lua_remove (L, -2);                              /* 1 object */ \

		object = lua_touserdata (L, -1);                                \

		return object;                                                  \

	}                                                                       \

	                                                            /* 2 nil */ \

	lua_remove (L, -1);                              /* 1 registry table */ \

	object = lua_newuserdata (L, sizeof (llm_##WHAT##_t)); /* 2 userdata */ \

	lua_setmetatable (L, -2);                                /* 2 object */ \

	lua_pushlightuserdata (L, WHAT);                 /* 3 light userdata */ \

	lua_pushvalue (L, -2);                                   /* 4 object */ \

	lua_rawset (L, -4);                                      /* 2 object */ \

	lua_remove (L, -2);                                      /* 1 object */ \

	object->WHAT = WHAT;                                                    \

	return object;                                                          \

}

LLM_CHECK (WHAT, TYPE)         \

LmMessageNode *luaL_checkLmMessageNode (lua_State *L, int index)

{

	void *object;

	luaL_argcheck (L, lua_type (L, index) == LUA_TUSERDATA, index, "loudmouth message or message node expected");

	object = lua_touserdata (L, index);

	lua_getmetatable (L, index);

	luaL_getmetatable (L, "loudmouth.message");

	luaL_getmetatable (L, "loudmouth.message_node");

	if (lua_rawequal (L, -2, -3)) // Message

		object = (void *) lm_message_get_node (((llm_message_t *) object)->message);

	else if (lua_rawequal (L, -1, -3)) // Node

	else

		luaL_argerror (L, index, "loudmouth message or message node expected");

	lua_pop (L, 3);

	return (LmMessageNode *) object;

}

#undef LLM_DEFINE