C++ 如何向 lua 文件添加 c 代码函数，反之亦然

你会想要花更多的时间阅读关于Lua C API的内容.

下面是一个创建Lua状态registers a global function并执行Lua文件的C程序(即host)的示例.一旦文件执行完毕，主机程序gets the global Lua value和main就try 调用它.如果成功，则主机reads the return values从堆栈中取出，并打印它们.

注意C函数如何被定义为lua_CFunction，并与Lua堆栈交互.

我不确定您希望这个LoadTBL函数做什么，所以出于演示的目的，下面的函数判断它的所有参数are integers和是否可整除.

main.c:

#include <lauxlib.h>
#include <lua.h>
#include <lualib.h>
#include <stdio.h>
#include <stdlib.h>

void die(lua_State *L, const char *msg)
{
    fprintf(stderr, "%s: %s\n", msg, lua_tostring(L, -1));
    lua_close(L);
    exit(EXIT_FAILURE);
}

int loadTBL(lua_State *L)
{
    int n = lua_gettop(L);
    int even = 1;

    for (int i = 1; i <= n; i++) {
        if (!lua_isinteger(L, i) || (lua_tointeger(L, i) % 2 != 0)) {
            even = 0;
            break;
        }
    }

    lua_pushboolean(L, even);
    lua_pushstring(L, "some message");
    return 2;
}

int main(void)
{
    lua_State *L = luaL_newstate();
    luaL_openlibs(L);
    lua_register(L, "LoadTBL", loadTBL);

    if (LUA_OK != luaL_dofile(L, "test.lua"))
        die(L, "dofile");

    lua_getglobal(L, "main");

    if (LUA_OK != lua_pcall(L, 0, 2, 0))
        die(L, "calling main");

    printf("GOT <%d>[%s]\n", lua_toboolean(L, -2), lua_tostring(L, -1));
    lua_close(L);
}

test.lua:

local TBL = {
    { 0, 15, 0 },
    { 1, 16, 0 }
}

function main()
    for key, value in pairs(TBL) do
        local result, msg = LoadTBL(value[1], value[2], value[3])

        if not result then
            return false, msg
        end
    end

    return true, "success"
end