Lua脚本和C++交互（二）

上一节讲了一些基本的Lua应用，下面，我要强调一下，Lua的栈的一些概念，因为这个确实很重要，你会经常用到。熟练使用Lua，最重要的就是要时刻知道什么时候栈里面的数据是什么顺序，都是什么。如果你能熟练知道这些，实际你已经是Lua运用的高手了。当你初始化一个栈的时候，它的栈底是1，而栈顶相对位置是-1，说形象一些，你可以把栈想象成一个环，有一个指针标记当前位置，如果-1，就是当前栈顶，如果是-2就是当前栈顶前面一个参数的位置。以此类推。当然，你也可以正序去取，这里要注意，对于Lua的很多API，下标是从1开始的。这个和C++有些不同。而且，在栈的下标中，正数表示绝对栈底的下标，负数表示相对栈顶的相对地址，这个一定要有清晰的概念，否则很容易看晕了。（栈中数据的存储方式如下图）

注：其实都是从栈底到栈顶，索引数值递增。

下面看一些具体的例子：

lua_pushnumber(m_pState, );
lua_pushnumber(m_pState, );

// lua_gettop()这个API是告诉你目前栈里元素的个数
int nIn = lua_gettop(m_pState)

int nData1 = lua_tonumber(m_pState, );     //读取栈底第一个绝对坐标中的元素
int nData2 = lua_tonumber(m_pState, );     //读取栈底第二个绝对坐标中的元素
int nData3 = lua_tonumber(m_pState, -);     //读取栈顶第一个相对坐标中的元素
int nData4 = lua_tonumber(m_pState, -);     //读取栈顶第二个相对坐标中的元素

printf("[Test]nData1  = %d, nData2  = %d./n, nData3  = %d, nData4  = %d./n");
[Test]nData1  = , nData2  = , nData3  = , nData4  = 

上述代码的栈中存储如下图：

回到我上一节的那个代码：

bool CLuaFn::CallFileFn(const char* pFunctionName, int nParam1, int nParam2)
{
    int nRet = ;
    if (NULL == m_pState)
    {
        printf("[CLuaFn::CallFileFn]m_pState is NULL./n");
        return false;
    }
    //验证你的Lua函数是否在你当前加载的Lua文件中，并把指针指向这个函数位置
    lua_getglobal(m_pState, pFunctionName);

    // 压栈(顺序：从左到右的参数)：第一个参数
    lua_pushnumber(m_pState, nParam1);
    // 压栈：第二个参数
    lua_pushnumber(m_pState, nParam2);

    int nIn = lua_gettop(m_pState);        //在这里加一行
    //执行这个函数，2是输入参数的个数，1是返回值的个数
    nRet = lua_pcall(m_pState, , , );
    if (nRet != )
    {
        printf("[CLuaFn::CallFileFn]call function(%s) error(%d)./n", pFunctionName, nRet);
        return false;
    }
    if (lua_isnumber(m_pState, -) == )
    {
        int nSum = lua_tonumber(m_pState, -);
        printf("[CLuaFn::CallFileFn]Sum = %d./n", nSum);
    }
    int nOut = lua_gettop(m_pState);        //在这里加一行
    return true;
}

　　nIn的答案是多少？或许你会说是2吧，呵呵，实际是3。或许你会问，为什么会多一个？其实我第一次看到这个数字，也很诧异。但是确实是3。因为你调用的函数名称占据了一个堆栈的位置。其实，在获取nIn那一刻，堆栈的样子是这样的（函数接口地址，参数1，参数2），函数名称也是一个变量入栈的。而nOut输出是1，lua_pcall()函数在调用成功之后，会自动的清空栈，然后把结果放入栈中。在获取nOut的一刻，栈内是这幅摸样(输出参数1)。

　　这里就要再迁出一个更重要的概念了，Lua不是C++，对于C++程序员而言，一个函数会自动创建栈，当函数执行完毕后会自动清理栈，Lua可不会给你这么做，对于Lua而言，它没有函数这个概念，一个栈对应一个lua_State指针，也就是说，你必须手动去清理你不用的栈，否则会造成垃圾数据占据你的内存。
不信？那么咱们来验证一下，就拿昨天的代码吧，你用for循环调用100万次。看看nOut的输出结果。。我相信，程序执行不到100万次就会崩溃，而你的内存也会变的硕大无比。而nOut的输出也会是这样的 1,2,3,4,5,6。。。。。
原因就是，Lua不会清除你以前栈内的数据，每调用一次都会给你生成一个新的栈元素插入其中。

#include "CLuaFn.h"
int main(int argc, char* argv[])
{
CLuaFn LuaFn;
LuaFn.Init();
LuaFn.LoadLuaFile("Sample.lua");
for (int i = ; i < ; i ++)
{
　　LuaFn.CallFileFn("func_Add", , );
}
getchar();

return ;
}

bool CLuaFn::CallFileFn(const char* pFunctionName, int nParam1, int nParam2)
{
    int nRet = ;
    if (NULL == m_pState)
    {
        printf("[CLuaFn::CallFileFn]m_pState is NULL./n");
        return false;
    }
    //验证你的Lua函数是否在你当前加载的Lua文件中，并把指针指向这个函数位置
    lua_getglobal(m_pState, pFunctionName);

    // 压栈(顺序：从左到右的参数)：第一个参数
    lua_pushnumber(m_pState, nParam1);
    // 压栈：第二个参数
    lua_pushnumber(m_pState, nParam2);

    int nIn = lua_gettop(m_pState);        //在这里加一行
    //执行这个函数，2是输入参数的个数，1是返回值的个数
    nRet = lua_pcall(m_pState, , , );
    if (nRet != )
    {
        printf("[CLuaFn::CallFileFn]call function(%s) error(%d)./n", pFunctionName, nRet);
        return false;
    }
    if (lua_isnumber(m_pState, -) == )
    {
        int nSum = lua_tonumber(m_pState, -);
        printf("[CLuaFn::CallFileFn]Sum = %d./n", nSum);
    }
    int nOut = lua_gettop(m_pState);        //在这里加一行
    //lua_settop(m_pState, -2);             //清除不用的栈
    printf("[CLuaFn::CallFileFn]nOut = %d.\n", nOut);
    return true;
}

　　那么怎么解决呢？呵呵，其实，如果不考虑多线程的话，在你的函数最后退出前加一句话，就可以轻松解决这个问题。(Lua栈操作是非线程安全的！)lua_settop(m_pState, -2);这句话的意思是什么？lua_settop()是设置栈顶的位置，我这么写，意思就是，栈顶指针目前在当前位置的-2的元素上。这样，我就实现了对栈的清除。仔细想一下，是不是这个道理呢？（运行结果如下图所示）

最后说一句，lua_tonumber()或lua_tostring()还有以后我们要用到的lua_touserdata()一定要将数据完全取出后保存到你的别的变量中去，否则会因为清栈操作，导致你的程序异常，切记！