extern "C" {
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"
}
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/*
栈顶
4 -1
3 -2
2 -3
1 -4
栈底
*/

int CTest(lua_State *L)
{
	printf("%s\n", __FUNCTION__);
	const char *name = lua_tostring(L, 1);
	printf("%s\n", name);
	int num = lua_tonumber(L, 2);
	printf("%d\n", num);
	bool is = lua_toboolean(L, 3);
	printf("%s\n", is ? "true" : "false");
	return 1;
}

int CTestArr(lua_State *L)
{
	printf("%s\n", __FUNCTION__);
	int len = luaL_getn(L, 1);
	for (int i = 1; i <= len; ++i)
	{
		lua_pushnumber(L, i);
		lua_gettable(L, 1); //这一步做了pop index, push table[i]
		printf("%s\n", lua_tostring(L, -1));
		lua_pop(L, 1);
	}
	return 1;
}

int CTestTable(lua_State *L)
{
	luaL_checktype(L, 1, LUA_TTABLE);
	if (lua_type(L, 2) != LUA_TNUMBER)
	{
		printf("param 2 must be number\n");
		return 1;
	}
	lua_getfield(L, 1, "name");
	printf("name = %s\n", lua_tostring(L, -1));
	/*lua_pushnil(L);
	while (lua_next(L, 1) != 0)
	{
		//push key, push value
		printf("key = %s, ", lua_tostring(L, -2));
		printf("value = %s\n", lua_tostring(L, -1));
		lua_pop(L, 1);
	}*/
	return 1;
}

int CTestRe(lua_State *L)
{
	//lua_pushstring(L, "return value");
	lua_newtable(L);
	//插入key,value
	lua_pushstring(L, "name");
	lua_pushstring(L, "yunni");
	lua_settable(L, -3); //插入和出栈,所以位置恢复原样
	
	lua_pushstring(L, "age");
	lua_pushnumber(L, 20);
	lua_settable(L, -3);
	return 1;
}

int main(int argc, char **argv)
{
	lua_State *lua = lua_open();
	luaopen_base(lua);
	luaopen_string(lua);
	luaopen_table(lua);
	lua_register(lua, "CTest", CTest);
	lua_register(lua, "CTestArr", CTestArr);
	lua_register(lua, "CTestTable", CTestTable);
	lua_register(lua, "CTestRe", CTestRe);

	//给lua传递全局变量
	lua_pushstring(lua, "hell0");
	lua_setglobal(lua, "cpp2lua_g");

	//给lua传递表
	lua_newtable(lua);
	lua_pushstring(lua, "name");
	lua_pushstring(lua, "yunni");
	lua_settable(lua, -3); //将name,yunnni出栈,此时表在栈顶
	lua_pushstring(lua, "age");
	lua_pushnumber(lua, 20);
	lua_settable(lua, -3); //将age,20出栈,此时表在栈顶
	lua_setglobal(lua, "person"); //将栈顶位置设置全局变量并出栈

	if (luaL_loadfile(lua, "main.lua"))
	{
		//取出压在lua的栈的顶部的错误
		const char *error = lua_tostring(lua, -1);
		lua_pop(lua, 1);
		printf("lua load error:%s\n", error);
		return 1;
	}
	//安全执行这个lua脚本
	if (lua_pcall(lua, 0, 0, 0))
	{
		//取出压在lua的栈的顶部的错误
		const char *error = lua_tostring(lua, -1);
		printf("lua run error:%s\n", error);
		return 1;
	}

	//获取lua的全局变量
	//lua_getglobal(lua, "width");
	//int width = lua_tonumber(lua, -1);
	//lua_pop(lua, 1);
	//printf("width = %d\n", width);

	////获取lua的全局变量(表)
	//lua_getglobal(lua, "conf");
	//lua_getfield(lua, -1, "titlename");
	//printf("title = %s\n", lua_tostring(lua, -1));
	//lua_pop(lua, 1);//弹出titlename,conf表就还在栈顶

	//lua_getfield(lua, -1, "height");
	//printf("height = %d\n", (int)lua_tonumber(lua, -1));
	//lua_pop(lua, 2); //弹出conf表,height二值

	printf("================================================\n");

	//c++调用lua函数
	//从栈底往上数,ferror函数的位置是不会发生改变的
	printf("top is %d\n", lua_gettop(lua));
	int errfun = lua_gettop(lua);
	lua_getglobal(lua, "ferror");
	++errfun;
	lua_getglobal(lua, "event");

	//给这个函数传递了一个key值
	lua_pushstring(lua, "key"); 

	//增加一个表作为参数
	lua_newtable(lua);
	lua_pushstring(lua, "name");
	lua_pushstring(lua, "shuaige");
	lua_settable(lua, -3);


	//安全执行这个函数
	//(参数:给函数传递二个参数,该函数有一个返回值,表示错误处理函数在栈中的索引)
	if (lua_pcall(lua, 2, 1, errfun) != 0)
	{
		printf("call event failed %s\n", lua_tostring(lua, -1));
		////发生错误后,错误会压入栈顶,把错误出栈
		lua_pop(lua, 1);
	}
	else
	{//函数执行成功才有返回值
		//printf("lua function event return:%s\n", lua_tostring(lua, -1));
		//获取函数的返回值表
		lua_getfield(lua, -1, "id");
		printf("return table id is %d\n", (int)lua_tonumber(lua, -1));
		lua_pop(lua, 2);
	}
	lua_pop(lua, 1);
	printf("top is %d\n", lua_gettop(lua));

	lua_close(lua);
	return 0;
}