我在 Lua 中有一些函数，在 C++ 中有一些函数，我设法从我的加法、幂和除法中得到了正确的结果。我遇到的唯一问题是阶乘，因为我无法将正确的数字传递给它，这应该是除法的结果。

在 Lua 中:

function powLua(a, n)
   b = 1
   for i=1,n do b = b * a end
   return b
end

function divisionLua(a, b)
   c = b/a
   return c
end

aLua = additionLua(2, 3)
bLua = additionLua(1, 3)

print("Result of additionLua is a = "..aLua.."\nResult of additionLua is b = "..bLua.."\n")

fac = factorialLua(divLua) <---- this is the part that doesn't work

print("factorial of divLua is "..fac.."\n")

在 C++ 中:

int addition(lua_State* L)
{
    int x = lua_tonumber(L, 1);
    int y = lua_tonumber(L, 2);

    lua_pushnumber(L, x + y);

    return 1;
}

int fac_calc(int x)
{
    if (x <= 1)
        return 1;

    return x * fac_calc(x-1);
}

int factorial(lua_State* L)
{   
    int fac = lua_tonumber(L, 1);

    lua_pushnumber(L, fac_calc(fac));

    return 1;
}

int power(lua_State* L, int a, int n)
{
    int b;

    lua_getglobal(L, "powLua");
    lua_pushnumber(L, a);
    lua_pushnumber(L, n);

    if (lua_pcall(L, 2, 1, 0) != 0)
        printf("error running function 'powLua': %s", lua_tostring(L, -1));

    if (!lua_isnumber(L, -1))
        printf("function `powLua' must return a number\n");
    b = lua_tonumber(L, -1);
    lua_pop(L, 1);  /* pop returned value */
    return b;
}

int division(lua_State* L, int a, int b)
{
    int c;

    lua_getglobal(L, "divisionLua");
    lua_pushnumber(L, a);
    lua_pushnumber(L, b);

    lua_pcall(L, 2, 1, 0);

    c = lua_tonumber(L, -1);
    lua_pop(L, -1);

    return c;
}

int main(int argc, char* argv[])
{
    lua_State* L = luaL_newstate();

    luaL_openlibs(L); 

    lua_pushcfunction(L, addition); 
    lua_setglobal(L, "additionLua"); 

    lua_pushcfunction(L, factorial);
    lua_setglobal(L, "factorialLua");

    luaL_dofile(L, "test01.lua");

    lua_getglobal(L, "aLua");
    int a = lua_tonumber(L, -1);
    lua_pop(L, -1);

    lua_getglobal(L, "bLua");
    int b = lua_tonumber(L, -1);
    lua_pop(L, -1);

    int pwr = power(L, a, b);

    int div = division(L, a, pwr);
    lua_pushnumber(L, div);
    lua_setglobal(L, "divLua");

    cout << "Result of a^b in powLua is pwr: " << a << "^" << b << " = " << pwr << endl;

    cout << "Result of pwr/a in divisionLua is: " << pwr << "/" << a << " = " << div << endl;

    lua_close(L);
}

我的输出是这样的:

Result of additionLua is a = 5

Result of additionLua is b = 4

factorial of divLua is 1

Result of a^b in powLua is pwr: 5^4 = 625

Result of pwr/a in divisionLua is: 625/5 = 125

我想我必须在打开“test01.lua”文件之前将除法的结果压入堆栈，但它也不起作用。

我还通过给它一个直接值成功地测试了阶乘函数。 例如 factorialLua(5) 给出了 120 的输出。

有人知道我的错误在哪里吗？

编辑:

在使用这样的测试值运行脚本之前设置“divLua”:

int div = 5;
lua_pushnumber(L, div);
lua_setglobal(L, "divLua");
...
...
luaL_dofile(L, "test01.lua");

导致 factorialLua(divLua) 的正确结果，但是当我将“divLua”设置为 division() 的值时，如下所示:

int div = division(L, 5, 30); //div should be 6 now
lua_pushnumber(L, div);
lua_setglobal(L, "divLua");
...
...
luaL_dofile(L, "test01.lua");

factorialLua(divLua) 的结果是 1 而不是 720。

原因肯定是 division() 必须在 luaL_dofile 之后调用，而 lua_setglobal(L, "divLua") 必须在它之前调用。 所以我需要让“div”知道稍后将要完成的计算结果。

有什么建议吗？

最佳答案

上面有几个问题:

• 在从 C++ 设置 divLua 之前，您正在尝试在脚本中计算 factorialLua(divLua)。
• 您正在使用负索引调用 lua_pop，但它需要一个正整数。
• 假设前两点已解决，您正在尝试计算 125!，这将是一个非常的大数。

请注意，您目前为 factorialLua 获得 1 的原因是 lua_tonumber 返回 0 如果给定的堆栈索引实际上不是一个数字。由于在调用此方法时 divLua 仍为 nil，因此您实际上是在计算 factorialLua(0)。

解决此问题的两种显而易见的方法:

1. 在实际执行脚本之前执行 lua_setglobal(L, "divLua")。
2. 将您的阶乘计算移至 C++ 领域，直至实际定义 divLua 的位置。

关于c++ - 在 C++ 中访问 Lua 函数的返回值，反之亦然，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/27376040/