new library libsj3lua from src/sj3serv/setup.c.

trunk/lib/sj3lua/sj3lua.c

@@ -0,0 +1,121 @@
+/*
+ * Copyright (c) 2004 Iwata <iwata@quasiquote.org>
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include <config.h>
+
+#include <stdio.h>
+#include <string.h>
+
+#include <lua.h>
+#include <lualib.h>
+#include <lauxlib.h>
+
+#include "sj3lua.h"
+
+int
+sj3lua_check_table(lua_State *lstate)
+{
+	if (!lua_istable(lstate, 1)) {
+		fprintf(stderr, "Illegal type of table (type=%s).\n",
+		    lua_typename(lstate, lua_type(lstate, 1)));
+		return 0;
+        }
+	return 1;
+}
+
+int
+lua2sj_boolean(lua_State *lstate, char *name, int idx, int default_val, int *i)
+{
+	lua_getfield(lstate, idx, name);
+	lua_pop(lstate, idx);
+
+	if (lua_isboolean(lstate, idx - 1)) {
+		*i = (int)lua_toboolean(lstate, idx - 1);
+		return *i;
+	} else if (lua_isnil(lstate, idx - 1)) {
+		*i = default_val;
+		return *i;
+	} else {
+		fprintf(stderr, "Illegal type of '%s'(%s), must be boolean.\n",
+		    name, lua_typename(lstate, lua_type(lstate, idx - 1)));
+		exit(1);
+	}
+}
+
+int
+lua2sj_integer(lua_State *lstate, char *name, int idx, int default_val, int *i)
+{
+	lua_getfield(lstate, idx, name);
+	lua_pop(lstate, idx);
+
+	if (lua_isnumber(lstate, idx - 1)) {
+		*i = (int)lua_tonumber(lstate, idx - 1);
+		return *i;
+	} else if (lua_isnil(lstate, idx - 1)) {
+		*i = default_val;
+		return *i;
+	} else {
+		fprintf(stderr, "Illegal type of '%s'(%s), must be integer.\n",
+		    name, lua_typename(lstate, lua_type(lstate, idx - 1)));
+		exit(1);
+	}
+}
+
+char *
+lua2sj_string(lua_State *lstate, char *name, int idx, char *default_val, char *str, size_t len)
+{
+	lua_getfield(lstate, idx, name);
+	lua_pop(lstate, idx);
+
+	if (lua_isstring(lstate, idx - 1)) {
+		strlcpy(str, lua_tostring(lstate, idx - 1), len);
+		return str;
+	} else if (lua_isnil(lstate, idx - 1)) {
+		if (default_val == NULL)
+			str[0] = '\0';
+		else
+			strlcpy(str, default_val, len);
+		return str;
+	} else {
+		fprintf(stderr, "Illegal type of '%s'(%s), must be string.\n",
+		    name, lua_typename(lstate, lua_type(lstate, idx - 1)));
+		exit(1);
+	}
+}
+
+void
+sj2lua_boolean(lua_State *lstate, char *name, int i)
+{
+	lua_pushstring(lstate, name);
+        lua_pushboolean(lstate, i);
+        lua_settable(lstate, -3);
+}
+
+void
+sj2lua_integer(lua_State *lstate, char *name, int i)
+{
+	lua_pushstring(lstate, name);
+        lua_pushnumber(lstate, i);
+        lua_settable(lstate, -3);
+}
+
+void
+sj2lua_string(lua_State *lstate, char *name, char *s)
+{
+	lua_pushstring(lstate, name);
+        lua_pushstring(lstate, s);
+        lua_settable(lstate, -3);
+}