summaryrefslogtreecommitdiffstatshomepage
path: root/3rdparty/luv/src/lhandle.c
diff options
context:
space:
mode:
Diffstat (limited to '3rdparty/luv/src/lhandle.c')
-rw-r--r--3rdparty/luv/src/lhandle.c116
1 files changed, 116 insertions, 0 deletions
diff --git a/3rdparty/luv/src/lhandle.c b/3rdparty/luv/src/lhandle.c
new file mode 100644
index 00000000000..c8cf294504e
--- /dev/null
+++ b/3rdparty/luv/src/lhandle.c
@@ -0,0 +1,116 @@
+/*
+ * Copyright 2014 The Luvit Authors. All Rights Reserved.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ *
+ */
+#include "lhandle.h"
+
+static luv_handle_t* luv_setup_handle(lua_State* L) {
+ luv_handle_t* data;
+ const uv_handle_t* handle = *(void**)lua_touserdata(L, -1);
+ luaL_checktype(L, -1, LUA_TUSERDATA);
+
+ data = malloc(sizeof(*data));
+ if (!data) luaL_error(L, "Can't allocate luv handle");
+
+ #define XX(uc, lc) case UV_##uc: \
+ luaL_getmetatable(L, "uv_"#lc); \
+ break;
+ switch (handle->type) {
+ UV_HANDLE_TYPE_MAP(XX)
+ default:
+ luaL_error(L, "Unknown handle type");
+ return NULL;
+ }
+ #undef XX
+
+ lua_setmetatable(L, -2);
+
+ lua_pushvalue(L, -1);
+
+ data->ref = luaL_ref(L, LUA_REGISTRYINDEX);
+ data->callbacks[0] = LUA_NOREF;
+ data->callbacks[1] = LUA_NOREF;
+ data->extra = NULL;
+ return data;
+}
+
+static void luv_check_callback(lua_State* L, luv_handle_t* data, luv_callback_id id, int index) {
+ luaL_checktype(L, index, LUA_TFUNCTION);
+ luaL_unref(L, LUA_REGISTRYINDEX, data->callbacks[id]);
+ lua_pushvalue(L, index);
+ data->callbacks[id] = luaL_ref(L, LUA_REGISTRYINDEX);
+}
+
+static int traceback (lua_State *L) {
+ if (!lua_isstring(L, 1)) /* 'message' not a string? */
+ return 1; /* keep it intact */
+ lua_pushglobaltable(L);
+ lua_getfield(L, -1, "debug");
+ lua_remove(L, -2);
+ if (!lua_istable(L, -1)) {
+ lua_pop(L, 1);
+ return 1;
+ }
+ lua_getfield(L, -1, "traceback");
+ if (!lua_isfunction(L, -1)) {
+ lua_pop(L, 2);
+ return 1;
+ }
+ lua_pushvalue(L, 1); /* pass error message */
+ lua_pushinteger(L, 2); /* skip this function and traceback */
+ lua_call(L, 2, 1); /* call debug.traceback */
+ return 1;
+}
+
+static void luv_call_callback(lua_State* L, luv_handle_t* data, luv_callback_id id, int nargs) {
+ int ref = data->callbacks[id];
+ if (ref == LUA_NOREF) {
+ lua_pop(L, nargs);
+ }
+ else {
+ // Get the traceback function in case of error
+ lua_pushcfunction(L, traceback);
+ // And insert it before the args if there are any.
+ if (nargs) {
+ lua_insert(L, -1 - nargs);
+ }
+ // Get the callback
+ lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
+ // And insert it before the args if there are any.
+ if (nargs) {
+ lua_insert(L, -1 - nargs);
+ }
+
+ if (lua_pcall(L, nargs, 0, -2 - nargs)) {
+ fprintf(stderr, "Uncaught Error: %s\n", lua_tostring(L, -1));
+ exit(-1);
+ }
+ // Remove the traceback function
+ lua_pop(L, 1);
+ }
+}
+
+static void luv_cleanup_handle(lua_State* L, luv_handle_t* data) {
+ luaL_unref(L, LUA_REGISTRYINDEX, data->ref);
+ luaL_unref(L, LUA_REGISTRYINDEX, data->callbacks[0]);
+ luaL_unref(L, LUA_REGISTRYINDEX, data->callbacks[1]);
+ if (data->extra)
+ free(data->extra);
+ free(data);
+}
+
+static void luv_find_handle(lua_State* L, luv_handle_t* data) {
+ lua_rawgeti(L, LUA_REGISTRYINDEX, data->ref);
+}