1.lua腳本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
-- ------------------------------------- 2.c/c++代碼如下：
#include "stdafx.h"
#include <stdlib.h>
#include <string.h>
#include <errno.h>
  extern "C"  {
 #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",1);
int ret = 0 ;
ret = luaL_loadfile(l,"func.lua") ; //加載lua腳本文件
if ( ret != 0 ) err_return(-1,"luaL_loadfile failed",1) ;
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 ;
}
|