summaryrefslogtreecommitdiffstatshomepage
path: root/3rdparty/luv/src/lreq.c
diff options
context:
space:
mode:
Diffstat (limited to '3rdparty/luv/src/lreq.c')
-rw-r--r--3rdparty/luv/src/lreq.c71
1 files changed, 71 insertions, 0 deletions
diff --git a/3rdparty/luv/src/lreq.c b/3rdparty/luv/src/lreq.c
new file mode 100644
index 00000000000..38ed6a77eb0
--- /dev/null
+++ b/3rdparty/luv/src/lreq.c
@@ -0,0 +1,71 @@
+/*
+ * 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 "lreq.h"
+
+
+static int luv_check_continuation(lua_State* L, int index) {
+ if (lua_isnoneornil(L, index)) return LUA_NOREF;
+ luaL_checktype(L, index, LUA_TFUNCTION);
+ lua_pushvalue(L, index);
+ return luaL_ref(L, LUA_REGISTRYINDEX);
+}
+
+// Store a lua callback in a luv_req for the continuation.
+// The uv_req_t is assumed to be at the top of the stack
+static luv_req_t* luv_setup_req(lua_State* L, int callback_ref) {
+ luv_req_t* data;
+
+ luaL_checktype(L, -1, LUA_TUSERDATA);
+
+ data = malloc(sizeof(*data));
+ if (!data) luaL_error(L, "Problem allocating luv request");
+
+ luaL_getmetatable(L, "uv_req");
+ lua_setmetatable(L, -2);
+
+ lua_pushvalue(L, -1);
+ data->req_ref = luaL_ref(L, LUA_REGISTRYINDEX);
+ data->callback_ref = callback_ref;
+ data->data_ref = LUA_NOREF;
+ data->data = NULL;
+
+ return data;
+}
+
+
+static void luv_fulfill_req(lua_State* L, luv_req_t* data, int nargs) {
+ if (data->callback_ref == LUA_NOREF) {
+ lua_pop(L, nargs);
+ }
+ else {
+ // Get the callback
+ lua_rawgeti(L, LUA_REGISTRYINDEX, data->callback_ref);
+ // And insert it before the args if there are any.
+ if (nargs) {
+ lua_insert(L, -1 - nargs);
+ }
+ lua_call(L, nargs, 0);
+ }
+}
+
+static void luv_cleanup_req(lua_State* L, luv_req_t* data) {
+ luaL_unref(L, LUA_REGISTRYINDEX, data->req_ref);
+ luaL_unref(L, LUA_REGISTRYINDEX, data->callback_ref);
+ luaL_unref(L, LUA_REGISTRYINDEX, data->data_ref);
+ free(data->data);
+ free(data);
+}