##include <lua.h>
##include <luaxlib.h>
##include <lualib.h>

static void
call_func_0(lua_State *L, const char* funcname)
{
    lua_getglobal(L, funcname); // funcname入栈 
    lua_pushinteger(L, 1); // 入栈一个1
    lua_call(L, 1, 0); // 调用第0号函数，传入一个参数1
    lua_pop(L) // c调lua，一定要注意栈的维护，超过20个元素，将造成栈溢出
}

int main(int argc, char**)
{
    lua_State *L = luaL_newstate(); // 创建lua虚拟机
    luaL_openlibs(L); // 加载lua基础库
    if(argc > 1){
        lua_pushboolean(L, 1);
        lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV");
        if(LUA_OK != luaL_dofile(L, argv[1])){ // 对lua文件进行加载，并进行语法检查，不会编译
            const char* err = lua_tostring(L, 1);
            fprintf(stderr, "err:\t%s\n", err);
            return 1;
        }

        call_func_0(L, "Init");
        call_func_0(L, "Loop");
        call_func_0(L, "Release");
        lua_close(L);
    }
}

// lua-tbl.c
##include <lua.h>
##include <luaxlib.h>
##include <lualib.h>
##include <stdio.h>
static int lecho (lua_State *L){
    const char* str = lua_tostring(L, -1); // 从lua层拿出一个字符串
    fprintf(stdout, "%s\n", str);
    return 0;
}
static const luaL_Reg l[] = { // 导出给lua使用数组
    {"echo", lecho}, // lua调用的key，c语言的函数
    {NULL, NULL},
}
int luaopen_tbl_c(lua_State *L){ // lua只认识以luaopen_开头的函数
    luaL_newlib(L, l); // 创建了一张表
    return 1;
}

// lua-uv.c
##include <lua.h>
##include <luaxlib.h>
##include <lualib.h>
##include <stdio.h>
static int lecho (lua_State *L){
    lua_Integer n = lua_tointeger(L, lua_upvalueindex(1)); // 取出上值
    n++;
    const char* str = lua_tostring(L, -1); // 从lua层拿出一个字符串
    fprintf(stdout, "[n=%lld]---%s\n", n, str);
    lua_pushinteger(L, n);
    lua_replace(L, lua_upvalueindex(1));
    return 0;
}
static const luaL_Reg l[] = { // 导出给lua使用数组
    {"echo", lecho}, // lua调用的key，c语言的函数
    {NULL, NULL},
}
int luaopen_tbl_c(lua_State *L){ // lua只认识以luaopen_开头的函数
    luaL_newlibtable(L, l); // 创建了一张表
    lua_pushinteger(L, 0); // 上值的值是0
    luaL_setfuncs(L, l, 1); // 给函数一个上值
    return 1;
}

// lua-ud.c

struct log{
    int count;
};

static int
lagain(lua_State *L) {
    struct log *p = (struct log *)luaL_checkudata(L, 1, "mk.ud.log");
    lua_getuservalue(L, -1);
    const char* str = lua_tostring(L, -1);
    fprintf(stdout, "ud[n=%d]----%s\n", p->count, str);
    return 0;
}

static int
lecho(lua_State *L) {
    struct log *p = (struct log *)luaL_checkudata(L, 1, "mk.ud.log");
    const char* str = lua_tostring(L, -1);
    p->count++;
    lua_setuservalue(L, -2);
    fprintf(stdout, "ud[n=%d]----%s\n", p->count, str);
	return 0;
}

static int lnew(lua_State *L){
    // 相当于malloc，但是是分配在lua虚拟机上
    struct log *q = (struct log*)lua_newuserdata(L, sizeof(struct log));
    q->count = 0;
    lua_pushstring(L, "");
    lua_setuservalue(L, -2);
    if(luaL_newmetatable(L, "mk.ud.log")){
        luaL_Reg m[] = {
            {"echo", lecho},
            {"again", lagain},
            {NULL, NULL},
        };
        luaL_newlib(L, m);
        lua_setfield(L, -2, "__index");
        lua_setmetable(L, -2);
    }
}

static const luaL_Reg l[] = {
    {"new", lnew},
    {NULL, NULL}
}

int luaopen_ud_c(lua_State *L){
    luaL_newlib(L, l);
    return 1;
}