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;
}

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