LuPPC/src/c/run.c
2016-01-20 17:54:04 +01:00

42 lines
774 B
C

#include "luares.h"
#include "lupi.h"
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/statvfs.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <stdlib.h>
static lua_State* L = NULL;
lua_State* getL() {
return L;
}
void run_init() {
L = luaL_newstate();
luaL_openlibs (L);
setup_modules (L);
luanative_start (L);
internet_start (L);
termutils_start (L);
epoll_prepare();
/* int status = luaL_loadstring(L, lua_init); */
int status = luaL_loadbuffer(L, lua_init, strlen(lua_init), "=INIT");
if (status) {
fprintf(stderr, "Couldn't load init: %s\n", lua_tostring(L, -1));
exit(1);
}
lua_call(L, 0, 0);
lua_close(L);
}