Lua中調用C函數(lua-5.2.3)

      Lua可以調用C函數的能力將極大的提高Lua的可擴展性和可用性。

      對於有些和操作系統相關的功能，或者是對效率要求較高的模塊，我們完全可以通過C函數來實現，之後再通過Lua調用指定的C函數。

      對於那些可被Lua調用的C函數而言，其接口必須遵循Lua要求的形式，即typedef int (*lua_CFunction)(lua_State* L)。

      簡單說明一下，該函數類型僅僅包含一個表示Lua環境的指針作爲其唯一的參數，實現者可以通過該指針進一步獲取Lua代碼中實際傳入的參數。返回值是整型，表示該C函數將返回給Lua代碼的返回值數量，如果沒有返回值，則return 0即可。需要說明的是，C函數無法直接將真正的返回值返回給Lua代碼，而是通過虛擬棧來傳遞Lua代碼和C函數之間的調用參數和返回值的。

實例代碼：

// testlua.cpp : 定義控制檯應用程序的入口點。
//

#include "stdafx.h"
#include <stdio.h>
#include <string.h>
#include <math.h>

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

//待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/stephen-liu74/archive/2012/07/23/2469902.html