summaryrefslogtreecommitdiffstatshomepage
path: root/3rdparty/luv/src/util.c
diff options
context:
space:
mode:
author ImJezze <jezze@gmx.net>2016-02-21 11:48:45 +0100
committer ImJezze <jezze@gmx.net>2016-02-21 11:48:45 +0100
commitcc24a339d8c0517259084b5c178d784626ba965c (patch)
tree9868e9687b5802ae0a3733712a3bbeb3bc75c953 /3rdparty/luv/src/util.c
parentb5daabda5495dea5c50e17961ecfed2ea8619d76 (diff)
Merge remote-tracking branch 'refs/remotes/mamedev/master'
Second attempt
Diffstat (limited to '3rdparty/luv/src/util.c')
-rw-r--r--3rdparty/luv/src/util.c56
1 files changed, 56 insertions, 0 deletions
diff --git a/3rdparty/luv/src/util.c b/3rdparty/luv/src/util.c
new file mode 100644
index 00000000000..c7b98c1759a
--- /dev/null
+++ b/3rdparty/luv/src/util.c
@@ -0,0 +1,56 @@
+/*
+ * 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 "luv.h"
+
+void luv_stack_dump(lua_State* L, const char* name) {
+ int i, l;
+ fprintf(stderr, "\nAPI STACK DUMP %p %d: %s\n", L, lua_status(L), name);
+ for (i = 1, l = lua_gettop(L); i <= l; i++) {
+ int type = lua_type(L, i);
+ switch (type) {
+ case LUA_TSTRING:
+ fprintf(stderr, " %d %s \"%s\"\n", i, lua_typename(L, type), lua_tostring(L, i));
+ break;
+ case LUA_TNUMBER:
+ fprintf(stderr, " %d %s %ld\n", i, lua_typename(L, type), (long int) lua_tointeger(L, i));
+ break;
+ case LUA_TUSERDATA:
+ fprintf(stderr, " %d %s %p\n", i, lua_typename(L, type), lua_touserdata(L, i));
+ break;
+ default:
+ fprintf(stderr, " %d %s\n", i, lua_typename(L, type));
+ break;
+ }
+ }
+ assert(l == lua_gettop(L));
+}
+
+static int luv_error(lua_State* L, int status) {
+ lua_pushnil(L);
+ lua_pushfstring(L, "%s: %s", uv_err_name(status), uv_strerror(status));
+ lua_pushstring(L, uv_err_name(status));
+ return 3;
+}
+
+static void luv_status(lua_State* L, int status) {
+ if (status < 0) {
+ lua_pushstring(L, uv_err_name(status));
+ }
+ else {
+ lua_pushnil(L);
+ }
+}