lua作為小巧精悍的腳本語(yǔ)言，易于嵌入c/c++中 ， 廣泛應(yīng)用于游戲AI ，實(shí)際上在任何經(jīng)常變化的邏輯上都可以使用lua實(shí)現(xiàn)，配合c/c++實(shí)現(xiàn)的底層接口服務(wù)，能夠大大降低系統(tǒng)的維護(hù)成本。下面對(duì)lua和c/c++的交互調(diào)用做一個(gè)實(shí)例分析：
lua提供了API用于在c/c++中構(gòu)造lua的運(yùn)行環(huán)境，相關(guān)接口如下：
//創(chuàng)建lua運(yùn)行上下文
lua_State* luaL_newstate(void) ;
//加載lua腳本文件
int luaL_loadfile(lua_State *L, const char *filename);
lua和c/c++的數(shù)據(jù)交互通過(guò)"棧"進(jìn)行 ,操作數(shù)據(jù)時(shí)，首先將數(shù)據(jù)拷貝到"棧"上，然后獲取數(shù)據(jù)，棧中的每個(gè)數(shù)據(jù)通過(guò)索引值進(jìn)行定位，索引值為正時(shí)表示相對(duì)于棧底的偏移索引，索引值為負(fù)時(shí)表示相對(duì)于棧頂?shù)钠扑饕?，索引值?或-1為起始值，因此棧頂索引值永遠(yuǎn)為-1 ,棧底索引值永遠(yuǎn)為1 。 "棧"相當(dāng)于數(shù)據(jù)在lua和c/c++之間的中轉(zhuǎn)地。每種數(shù)據(jù)都有相應(yīng)的存取接口 。
數(shù)據(jù)入"棧"接口：
void (lua_pushnil) (lua_State *L);
void (lua_pushnumber) (lua_State *L, lua_Number n);
void (lua_pushinteger) (lua_State *L, lua_Integer n);
void (lua_pushlstring) (lua_State *L, const char *s, size_t l);
void (lua_pushstring) (lua_State *L, const char *s);
void (lua_pushboolean) (lua_State *L, int b);
void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n);
數(shù)據(jù)獲取接口：
lua_Number (lua_tonumber) (lua_State *L, int idx);
lua_Integer (lua_tointeger) (lua_State *L, int idx);
int (lua_toboolean) (lua_State *L, int idx);
const char *(lua_tolstring) (lua_State *L, int idx, size_t *len);
lua_CFunction (lua_tocfunction) (lua_State *L, int idx);
"棧"操作接口：
int (lua_gettop) (lua_State *L);
void (lua_settop) (lua_State *L, int idx);
void (lua_pushvalue) (lua_State *L, int idx);
void (lua_remove) (lua_State *L, int idx);
void (lua_insert) (lua_State *L, int idx);
void (lua_replace) (lua_State *L, int idx);
int (lua_checkstack) (lua_State *L, int sz);
lua中定義的變量和函數(shù)存放在一個(gè)全局table中，索引值為L(zhǎng)UA_GLOBALSINDEX ，table相關(guān)操作接口：
void (lua_gettable) (lua_State *L, int idx);
void (lua_getfield) (lua_State *L, int idx, const char *k);
void (lua_settable) (lua_State *L, int idx);
void (lua_setfield) (lua_State *L, int idx, const char *k);
當(dāng)"棧"中包含執(zhí)行腳本需要的所有要素(函數(shù)名和參數(shù))后，調(diào)用lua_pcall執(zhí)行腳本：
int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc);
下面進(jìn)行實(shí)例說(shuō)明：
func.lua
--變量定義
width=1 ;
height=2 ;
--lua函數(shù)定義，實(shí)現(xiàn)加法
function sum(a,b)
return a+b ;
end
--lua函數(shù)定義，實(shí)現(xiàn)字符串相加
function mystrcat(a,b)
return a..b ;
end
--lua函數(shù)定義，通過(guò)調(diào)用c代碼中的csum函數(shù)實(shí)現(xiàn)加法
function mysum(a,b)
return csum(a,b) ;
end
test_lua.c
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
//lua頭文件
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
#define err_exit(num,fmt,args
) \
do{printf("[%s:%d]"fmt"\n",__FILE__,__LINE__,##args);exit(num);} while(0)
#define err_return(num,fmt,args) \
do{printf("[%s:%d]"fmt"\n",__FILE__,__LINE__,##args);return(num);} while(0)
//lua中調(diào)用的c函數(shù)定義,實(shí)現(xiàn)加法
int csum(lua_State* l)
{
int a = lua_tointeger(l,1) ;
int b = lua_tointeger(l,2) ;
lua_pushinteger(l,a+b) ;
return 1 ;
}
int main(int argc,char** argv)
{
lua_State * l = luaL_newstate() ; //創(chuàng)建lua運(yùn)行環(huán)境
if ( l == NULL ) err_return(-1,"luaL_newstat() failed");
int ret = 0 ;
ret = luaL_loadfile(l,"func.lua") ; //加載lua腳本文件
if ( ret != 0 ) err_return(-1,"luaL_loadfile failed") ;
ret = lua_pcall(l,0,0,0) ;
if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(l,-1)) ;
lua_getglobal(l,"width"); //獲取lua中定義的變量
lua_getglobal(l,"height");
printf("height:%ld width:%ld\n",lua_tointeger(l,-1),lua_tointeger(l,-2)) ;
lua_pop(l,1) ; //恢復(fù)lua的棧
int a = 11 ;
int b = 12 ;
lua_getglobal(l,"sum"); //調(diào)用lua中的函數(shù)sum
lua_pushinteger(l,a) ;
lua_pushinteger(l,b) ;
ret = lua_pcall(l,2,1,0) ;
if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(l,-1)) ;
printf("sum:%d + %d = %ld\n",a,b,lua_tointeger(l,-1)) ;
lua_pop(l,1) ;
const char str1[] = "hello" ;
const char str2[] = "world" ;
lua_getglobal(l,"mystrcat"); //調(diào)用lua中的函數(shù)mystrcat
lua_pushstring(l,str1) ;
lua_pushstring(l,str2) ;
ret = lua_pcall(l,2,1,0) ;
if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(l,-1)) ;
printf("mystrcat:%s%s = %s\n",str1,str2,lua_tostring(l,-1)) ;
lua_pop(l,1) ;
lua_pushcfunction(l,csum) ; //注冊(cè)在lua中使用的c函數(shù)
lua_setglobal(l,"csum") ; //綁定到lua中的名字csum
lua_getglobal(l,"mysum"); //調(diào)用lua中的mysum函數(shù)，該函數(shù)調(diào)用本程序中定義的csum函數(shù)實(shí)現(xiàn)加法
lua_pushinteger(l,a) ;
lua_pushinteger(l,b) ;
ret = lua_pcall(l,2,1,0) ;
if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(l,-1)) ;
printf("mysum:%d + %d = %ld\n",a,b,lua_tointeger(l,-1)) ;
lua_pop(l,1) ;
lua_close(l) ; //釋放lua運(yùn)行環(huán)境
return 0 ;
}