快捷導(dǎo)航

Lua中調(diào)用C語(yǔ)言函數(shù)實(shí)例

更新時(shí)間：2015年04月23日 10:16:29 投稿：junjie

這篇文章主要介紹了Lua中調(diào)用C語(yǔ)言函數(shù)實(shí)例,本文先講解了相關(guān)知識(shí),然后給出了調(diào)用實(shí)例,需要的朋友可以參考下

在上一篇文章(C調(diào)用lua函數(shù))中，講述了如何用c語(yǔ)言調(diào)用lua函數(shù)，通常，A語(yǔ)言能調(diào)用B語(yǔ)言，反過(guò)來(lái)也是成立的。正如Java與c語(yǔ)言之間使用JNI來(lái)互調(diào)，Lua與C也可以互調(diào)。

當(dāng)lua調(diào)用c函數(shù)時(shí)，使用了和c調(diào)用lua中的同一種棧，c函數(shù)從棧中得到函數(shù)，然后將結(jié)果壓入棧中。為了區(qū)分返回結(jié)果和棧中的其他值，每一個(gè)函數(shù)返回結(jié)果的個(gè)數(shù)。
這里有個(gè)重要的概念：這個(gè)棧不是全局的結(jié)構(gòu)，每個(gè)函數(shù)都有自己的私有局部棧。哪怕c函數(shù)調(diào)用了lua代碼，lua代碼再次調(diào)用該c函數(shù)，他們有各自獨(dú)立的局部棧。第一個(gè)參數(shù)的索引是1。
作為第一個(gè)例子，讓我們看看如何實(shí)現(xiàn)一個(gè)簡(jiǎn)單的函數(shù)，返回給定2個(gè)參數(shù)的和：

復(fù)制代碼代碼如下:

static int l_plus(lua_State* L)

{

     lua_Integer a = lua_tointeger(L, 1);

     lua_Integer b = lua_tointeger(L, 2);

     lua_pushinteger(L, a+b);

     return 1;

}

每一個(gè)Lua注冊(cè)的函數(shù)都必須是這個(gè)原型，它已經(jīng)在lua.h中定義了：

復(fù)制代碼代碼如下:

typedef int (*lua_CFunction) (lua_State *L);

由于c函數(shù)返回了一個(gè)int類型的返回值個(gè)數(shù)。因此，當(dāng)壓入返回值之前，不必要清理?xiàng)?，lua會(huì)自動(dòng)移除返回值下面的任何數(shù)據(jù)。

在lua中使用該函數(shù)之前，我們需要注冊(cè)它。使用lua_pushcfunction,它接受一個(gè)c函數(shù)，然后在lua內(nèi)部創(chuàng)建一個(gè)函數(shù)類型的值來(lái)表示該函數(shù)。

復(fù)制代碼代碼如下:

lua_pushcfunction(L, lua_plus);

lua_setglobal(L, "myplus");

一個(gè)專業(yè)點(diǎn)的寫法是，我們必須檢查它的參數(shù)類型：

復(fù)制代碼代碼如下:

static int l_plus(lua_State* L)

{

     lua_Integer a = luaL_checkinteger(L, 1);

     lua_Integer b = luaL_checkinteger(L, 2);

     lua_pushinteger(L, a+b);

     return 1;

}

完整代碼：

復(fù)制代碼代碼如下:

#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
static int l_plus(lua_State* L)
{
     lua_Integer a = luaL_checkinteger(L, 1);
     lua_Integer b = luaL_checkinteger(L, 2);
     lua_pushinteger(L, a+b);
     return 1;
}

int main()
{
     lua_State *L = luaL_newstate();
     luaL_openlibs(L);
     lua_pushcfunction(L, l_plus);
     lua_setglobal(L, "myplus");
     if (luaL_dostring(L, "print(myplus(2,2))")) {
          lua_close(L);
          error("Failed to invoke");
     }
     lua_close(L);
     return 0;
}

（完）

您可能感興趣的文章: