/* int lua_pcall(lua_State *L, int nargs, int nresults, int msgh)
* 以保护模式调用具有"nargs"个参数，"nresults"个返回值得函数。函数在第一个参数的前一个位置。
* 保护模式指的是当调用出错时不会报错，而是返回一个错误码同时将错误信息入栈。
* 当调用成功时，函数返回0。将函数名以及参数出栈，之后将函数的返回值入栈。
* 无论函数返回多少个返回值，Lua会调整为你需要的数量，忽略多余的或者将不够的补为"nil"。
* 当调用出错时，函数返回非0值。将函数名以及参数出栈，
* 以错误信息作为参数，执行虚拟栈中索引"msgh"处的出错处理函数，
* 将出错处理函数的返回值作为"lua_pcall"的返回值入栈。
* "msgh"为0代表没有错误处理函数，错误处理函数必须要在被调用函数和其参数入栈之前入栈。
* 典型的用法中，错误处理函数被用来给错误消息加上更多的调试信息，比如栈跟踪信息。
* 这些信息在"lua_pcall"返回后，由于栈已经展开，所以收集不到了。
* lua_pcall 函数会返回下列常数（定义在"lua.h"内）中的一个：
LUA_OK (0): 成功。
LUA_ERRRUN: 运行时错误（一般错误）。
LUA_ERRMEM: 内存分配错误（此种情况，Lua不会调用错误处理函数）。
LUA_ERRERR: 在运行错误处理函数时发生的错误（此种情况，Lua不会再次调用错误处理函数）。
LUA_ERRGCMM: 在运行"__gc"元方法时发生的错误（这个错误和被调用的函数无关。）。
*/
#include <iostream>
#include <lua.hpp>
/* // lua.hpp 中的内容
// lua 是以ANSI C编写的, 所以在C++中使用必须加上 extern "C" { } ， 显示的告诉编译器以C的方式编译代码
extern "C" {
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
}
*/
/*
* Lua中的字符串可以不以'\0'作为结束符。这样，字符串中可以包含任意的二进制（甚至是'\0'），字符串的长度由明确的长度指定
* 在lua_pushlstring()、lua_pushliteral()以及lua_pushstring()中，Lua不保存字符串（变量）指针。因此当这些函数返回时，你就可以修改你的字符串了
* 遍历一个”table”时，不要将lua_tolstring()作用在”key”上，这样会导致lua_next()无法正常运行
*
* 对于入栈是否有栈空间的情况，你需要自己判断，别忘了现在你是一个C程序员。当Lua启动或者任何Lua调用C的时候，虚拟栈中至少有20个空间（在”lua.h”中LUA_MINSTACK定义），这对于一般情况下够用了，所以一般不用考虑。但有时候确实需要更多的栈空间（比如调用一个不定参数的函数），此时你需要使用lua_checkstack检查栈空间的情况
*
* int lua_checkstack(lua_State *L, int sz)
* 确保堆栈上至少有"n"个额外空位。如果不能把堆栈扩展到相应的尺寸，函数返回"false"。
* 失败的原因包括将把栈扩展到比固定最大尺寸还大（至少是几千个元素）或分配内存失败。
* 这个函数永远不会缩小堆栈，如果堆栈已经比需要的大了，那么就保持原样。
*
* 在平常的编码中，对于执行失败时会返回0的lua_to*()类别的函数，我们最好先使用lua_is*()类别的函数判断参数的类型，之后再使用lua_to*()类别的函数对参数进行转换；而对于执行失败时会返回NULL的lua_to*()类别的函数，我们可以直接使用lua_to*()类别的函数直接对参数进行转换，判断函数的返回值非NULL与否，就能判断转换是否成功
*
* lua_pop()就是通过lua_settop()实现的（在”lua.h”中定义）
* #define lua_pop(L,n) lua_settop(L, -(n)-1)
*
* 以下操作对于虚拟栈没有任何影响, 栈中元素个数还是一样多
* lua_settop(L, -1); // set top to its current value
* lua_insert(L, -1); // move top element to the top
* lua_replace(L, -1); // replace top element by the top element
*
*/
static void stackDump(lua_State * L)
{
int i = ;
int top = lua_gettop(L); // 获取栈中元素个数
std::cout << "lua stack value count: " << top << std::endl;
for (i = ; i <= top; ++i) // 遍历栈中每一个元素 // 栈底的序号为1, 依次递增. 栈顶的序号始终为-1
{
int t = lua_type(L, i); // 获取元素的类型
switch (t)
{
case LUA_TSTRING: // strings
std::cout << lua_tostring(L, i);
break;
case LUA_TBOOLEAN: // bool
std::cout << (lua_toboolean(L, i) != ? "true" : "false");
break;
case LUA_TNUMBER: // number
std::cout << lua_tonumber(L, i);
break;
default: // other values
std::cout << lua_typename(L, t); // 将宏定义的类型码转换为类型名称
break;
}
std::cout << " ";
}
std::cout << std::endl;
}
int main()
{
lua_State * L = luaL_newstate(); // 创建Lua虚拟机
luaL_openlibs(L); // 打开Lua状态机"L"中的所有Lua标准库
// 向虚拟栈中压入值
lua_pushboolean(L, ); // true
lua_pushnumber(L, ); //
lua_pushnil(L); // nil
lua_pushstring(L, "hello"); // "hello"
stackDump(L); // true 10 nil 'hello'
lua_pushvalue(L, -); // 将索引-4处的值的副本入栈
stackDump(L); // true 10 nil 'hello' true
lua_replace(L, ); // 将栈顶元素移动到索引3处，并覆盖原先的元素
stackDump(L); // true 10 true 'hello'
lua_settop(L, ); // 将栈顶设置为索引6处，多出来的新元素被赋值为"nil"
stackDump(L); // true 10 true 'hello' nil nil
lua_remove(L, -); // 移除索引-3处的元素，其上所有元素下移
stackDump(L); // true 10 true nil nil
lua_settop(L, -); // 将栈顶设置为索引-5处
stackDump(L); // true
lua_close(L); // 关闭Lua状态机
std::cout << "..." << std::endl;
system("pause");
return ;
}