/* Add a signal to an object.
* `oud` is the object index on the stack.
* `name` is the name of the signal.
* `ud` is the index of function to call when signal is emitted. */
void
luaH_object_add_signal(lua_State *L, gint oud,
const gchar *name, gint ud) {
luaH_checkfunction(L, ud);
lua_object_t *obj = lua_touserdata(L, oud);
signal_add(obj->signals, name, luaH_object_ref_item(L, oud, ud));
}
/* Add a signal to an object.
* `oud` is the object index on the stack.
* `name` is the name of the signal.
* `ud` is the index of function to call when signal is emitted. */
void
luaH_object_add_signal(lua_State *L, gint oud,
const gchar *name, gint ud) {
luaH_checkfunction(L, ud);
lua_object_t *obj = lua_touserdata(L, oud);
gchar *origin = luaH_callerinfo(L);
debug("add " ANSI_COLOR_BLUE "\"%s\"" ANSI_COLOR_RESET
" on %p from " ANSI_COLOR_GREEN "%s" ANSI_COLOR_RESET,
name, obj, origin);
g_free(origin);
signal_add(obj->signals, name, luaH_object_ref_item(L, oud, ud));
}