Lua中調(diào)用C函數(shù)(lua-5.2.3)

Lua可以調(diào)用C函數(shù)的能力將極大的提高Lua的可擴(kuò)展性和可用性。

對(duì)于有些和操作系統(tǒng)相關(guān)的功能，或者是對(duì)效率要求較高的模塊，我們完全可以通過C函數(shù)來實(shí)現(xiàn)，之后再通過Lua調(diào)用指定的C函數(shù)。

對(duì)于那些可被Lua調(diào)用的C函數(shù)而言，其接口必須遵循Lua要求的形式，即typedef int (lua_CFunction)(lua_State L)。

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

實(shí)例代碼：

// testlua.cpp : 定義控制臺(tái)應(yīng)用程序的入口點(diǎn)。
//

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

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

//待Lua調(diào)用的C注冊函數(shù)
static int add2(lua_State* L)
{
    //檢查棧中的參數(shù)是否合法，1表示Lua調(diào)用時(shí)的第一個(gè)參數(shù)(從左到右)，依此類推。
    //如果Lua代碼在調(diào)用時(shí)傳遞的參數(shù)不為number，該函數(shù)將報(bào)錯(cuò)并終止程序的執(zhí)行。
    double op1 = luaL_checknumber(L,1);
    double op2 = luaL_checknumber(L,2);
    //將函數(shù)的結(jié)果壓入棧中。如果有多個(gè)返回值，可以在這里多次壓入棧中。
    lua_pushnumber(L,op1 + op2);
    //返回值用于提示該C函數(shù)的返回值數(shù)量，即壓入棧中的返回值數(shù)量。
    return 1;
}

//待Lua調(diào)用的C注冊函數(shù)。
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調(diào)用的C注冊函數(shù)。
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);

    //將指定的函數(shù)注冊為Lua的全局函數(shù)變量，其中第一個(gè)字符串參數(shù)為Lua代碼
    //在調(diào)用C函數(shù)時(shí)使用的全局函數(shù)名，第二個(gè)參數(shù)為實(shí)際C函數(shù)的指針。
    lua_register(L, "add2", add2);
    lua_register(L, "sub2", sub2);
    lua_register(L, "l_sin", l_sin);
    //在注冊完所有的C函數(shù)之后，即可在Lua的代碼塊中使用這些已經(jīng)注冊的C函數(shù)了。
    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()  

運(yùn)行結(jié)果：

引用博文：http://www.cnblogs.com/stephen-liu74/archive/2012/07/23/2469902.html