Lua入門之四：Lua調用C/C++庫（函數壓棧方式）

前面講過Lua載入dll的方式去調用函數庫，下面介紹的是函數壓棧的方式調用函數庫，通過lua_register把函數注冊到lua的棧中，lua_register的定義如下，

#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))

看了定義就知道，其實就是函數壓棧，然後設置為全局變量，這樣lua就可以調用它了。

// libforlua-2.cpp : 定義控制台應用程序的入口點。
//

#include "stdafx.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <math.h>

//lua頭文件
#ifdef __cplusplus
extern "C" {
#include "lua.h" 
#include <lauxlib.h> 
#include <lualib.h> 
} 

#else

#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>

#endif

#pragma comment(lib, "lua51.lib")

static int math_abs(lua_State *L)
{
 //獲取傳入的參數
 lua_pushnumber(L, abs((int)luaL_checknumber(L, 1)));

 return 1;
}

static int math_cos(lua_State *L)
{

 lua_pushnumber(L, cos((double)luaL_checknumber(L, 1)));

 return 1;

}

static int math_sin(lua_State *L)
{

 lua_pushnumber(L, sin((double)luaL_checknumber(L, 1)));

 return 1;
}

static const luaL_reg mathlib[] = {
 { "abs", math_abs },
 { "cos", math_cos },
 { "sin", math_sin },
 { NULL, NULL }
};

static int ShowMessage(lua_State * L)
{
 lua_pushnumber(L, 1000);
 printf("show message and push 1000 \n");
 return -1;
}

int main(int argc, char** argv)
{
 lua_State* L = lua_open();

 luaL_openlibs(L);

 // lua_register(L, "cos", math_cos);
 // lua_register(L, "sin", math_sin);
 // lua_register(L, "abs", math_abs);

 //#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
 luaL_register(L, "DY_MATH", mathlib);
 char *luapath="./script/lua/lua.lua";
 luaL_dofile(L, luapath);

 double sinv = 30*3.1415926/180.0;
 lua_getglobal(L, "SIN");
 lua_pushnumber(L, sinv);
 if (0 != lua_pcall(L, 1, 1, 0))
 {
  printf("cpp call lua function failed\n");
 }
 printf("sin(%f)=%f\n", sinv, lua_tonumber(L, -1));
 lua_pop(L, 1);

 lua_getglobal(L, "COS");
 lua_pushnumber(L, 0.5);
 if (0 != lua_pcall(L, 1, 1, 0))
 {
  printf("cpp call lua function failed\n");
 }
 printf("cos(0.5)=%f\n", lua_tonumber(L, -1));
 lua_pop(L, 1);

 //壓棧後設置一個lua可調用的全局函數名
 lua_pushcfunction(L, ShowMessage);
 lua_setglobal(L, "showmessage");
 //c調用lua
 lua_getglobal(L, "SHOWMESSAGE");
 lua_pcall(L, 0, 0, 0);
 printf("get the showmessage pushed value %f \n", lua_tonumber(L, -1));

 lua_close(L);

}

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

--region lua.lua
--Date
--此文件由[BabeLua]插件自動生成

function COS(a)
print("called COS in lua script")
--lua調用c/c++
return DY_MATH.cos(a)
end

function SIN(a)
print("called SIN in lua script")
return DY_MATH.sin(a)
end

function SHOWMESSAGE()
showmessage()
end
--endregion

Lua 語言 15 分鐘快速入門 http://www.linuxidc.com/Linux/2013-06/86582.htm

Lua程序設計（第2版）中文 PDF http://www.linuxidc.com/Linux/2013-03/81833.htm

Lua程序設計（第二版）閱讀筆記 http://www.linuxidc.com/Linux/2013-03/81834.htm

NetBSD 將支持用 Lua 腳本開發內核組件 http://www.linuxidc.com/Linux/2013-02/79527.htm

CentOS 編譯安裝 Lua LuaSocket http://www.linuxidc.com/Linux/2011-08/41105.htm

Lua 的詳細介紹：請點這裡
Lua 的下載地址：請點這裡