hello world

service_lua.c

@@ -0,0 +1,72 @@
+#include "skynet.h"
+
+#include <lua.h>
+#include <lualib.h>
+#include <lauxlib.h>
+
+#include <string.h>
+#include <stdlib.h>
+
+lua_State *
+snlua_create(void) {
+	return luaL_newstate();
+}
+
+static int
+_load(lua_State *L, char ** filename) {
+	const char * name = strsep(filename, " \r\n");
+	int r = luaL_loadfile(L,name);
+	return r != LUA_OK;
+}
+
+int
+snlua_init(lua_State *L, struct skynet_context *ctx, const char * args) {
+	lua_gc(L, LUA_GCSTOP, 0);
+	luaL_openlibs(L);
+	lua_pushlightuserdata(L, ctx);
+	lua_setfield(L, LUA_REGISTRYINDEX, "skynet_context");
+	lua_gc(L, LUA_GCRESTART, 0);
+
+	char tmp[strlen(args)+1];
+	char *parm = tmp;
+	strcpy(parm,args);
+
+	const char * filename = parm;
+	int r = _load(L, &parm);
+	if (r) {
+		skynet_error(ctx, "lua parser [%s] error : %s", filename, lua_tostring(L,-1));
+		return 1;
+	}
+	int n=0;
+	while(parm) {
+		const char * arg = strsep(&parm, " \r\n");
+		if (arg && arg[0]!='\0') {
+			lua_pushstring(L, arg);
+			++n;
+		}
+	}
+	r = lua_pcall(L,n,0,0);
+	switch (r) {
+	case LUA_OK:
+		return 0;
+	case LUA_ERRRUN:
+		skynet_error(ctx, "lua do [%s] error : %s", filename, lua_tostring(L,-1));
+		break;
+	case LUA_ERRMEM:
+		skynet_error(ctx, "lua memory error : %s",filename);
+		break;
+	case LUA_ERRERR:
+		skynet_error(ctx, "lua message error : %s",filename);
+		break;
+	case LUA_ERRGCMM:
+		skynet_error(ctx, "lua gc error : %s",filename);
+		break;
+	};
+
+	return 1;
+}
+
+void
+snlua_release(lua_State *L) {
+	lua_close(L);
+}