Lua和C++的交互——进一步详解

 上篇文章已经写到过整体环境的配置和给了份完整的代码，下面这篇文章是来对每个语句进行一个简单的剖析：

在ladd函数中执行了lua中的add函数，首先看lua_getglobal函数：

void lua_getglobal (lua_State *L, const char *name);

把全局变量 name 里的值压入堆栈。这个是用一个宏定义出来的：

#define lua_getglobal(L,s)  lua_getfield(L, LUA_GLOBALSINDEX, s)

这里lua_getglobal(L, “add”)把add函数压入堆栈，接着把x和y参数压入堆栈，然后调用lua_call执行add函数，关于lua_call函数：

void lua_call (lua_State *L, int nargs, int nresults);

它的功能是调用一个函数，需要遵循以下协议：

      首先，要调用的函数应该被压入堆栈；

      接着把需要传递给这个函数的参数按正序压栈； 这是指第一个参数首先压栈。 

      最后调用一下lua_call； nargs 是你压入堆栈的参数个数。 当函数调用完毕后，所有的参数以及函数本身都会出栈。 而函数的返回值这时则被压入堆栈。 返回值的个数将被调整为 nresults 个， 除非 nresults 被设置成 LUA_MULTRET。 在这种情况下，所有的返回值都被压入堆栈中。 Lua 会保证返回值都放入栈空间中。 函数返回值将按正序压栈（第一个返回值首先压栈）， 因此在调用结束后，最后一个返回值将被放在栈顶。

这里lua_call(L, 2, 1)是指函数有两个参数和一个返回值。

       lua_tointeger(L, -1):表示从栈顶取得返回值。

       lua_pop(L, 1):表示从堆栈中弹出一个元素，因为此时add函数已经执行完毕，参数和函数本身已经出栈，堆栈中只有返回值。

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    //新建虚拟机  
    lua_State *L = luaL_newstate();  
  
    //载入库  
    luaL_openlibs(L);  
  
    //这里执行 test.lua  Lua文件  
    luaL_dofile(L, "test.lua"); //填的是绝对路径 
  
    //获取 返回结果  
    lua_getglobal(L,"test");  
    printf("\n%s\n", lua_tostring(L, -1));  
  
    //一定记得关闭虚拟机  
    lua_close(L);  
  
    return 0;  
}

//待Lua调用的C注册函数
static int add2(lua_State* L)
{
	//检查栈中的参数是否合法，1表示Lua调用时的第一个参数(从左到右)，依此类推。
	//如果Lua代码在调用时传递的参数不为number，该函数将报错并终止程序的执行。
	double op1 = luaL_checknumber(L,1);
	double op2 = luaL_checknumber(L,2);
	//将函数的结果压入栈中。如果有多个返回值，可以在这里多次压入栈中。
	lua_pushnumber(L,op1 + op2);
	//返回值用于提示该C函数的返回值数量，即压入栈中的返回值数量。
	return 1;
}

//待Lua调用的C注册函数。
static int sub2(lua_State* L)
{
	double op1 = luaL_checknumber(L,1);
	double op2 = luaL_checknumber(L,2);
	lua_pushnumber(L,op1 - op2);
	return 1;
}

//待Lua调用的C注册函数。
static int l_sin (lua_State *L) {
	double d = lua_tonumber(L, 1); /* get argument */
	lua_pushnumber(L, sin(d)); /* push result */
	return 1; /* number of results */
}

int _tmain(int argc, _TCHAR* argv[])
{
	lua_State *L = luaL_newstate();
	luaL_openlibs(L);

	//将指定的函数注册为Lua的全局函数变量，其中第一个字符串参数为Lua代码
	//在调用C函数时使用的全局函数名，第二个参数为实际C函数的指针。
	lua_register(L, "add2", add2);
	lua_register(L, "sub2", sub2);
	lua_register(L, "l_sin", l_sin);
	//在注册完所有的C函数之后，即可在Lua的代码块中使用这些已经注册的C函数了。
	luaL_dofile(L,"test.lua");   //绝对路径名

	//if (luaL_dostring(L,testfunc))
	// printf("Failed to invoke.\n");

	//const char *buf = "print('Hello World')";
	//luaL_dostring(L,buf);

	lua_close(L);
	return 0;
}
test.lua

function show()  
    print("helloworld") 
    print(add2(1.0,2.0)) 
    print(sub2(20.1,19))
    print(l_sin(1))
end  
  
show()  

最后，我找了一篇写的很好的博文大家可一看看：http://www.cnblogs.com/sevenyuan/p/4511808.html

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------