概述

近来研究Lua这个东西，官网为http://www.lua.org/

主要的目的是通过lua来对短信发送过来的业务报文转换为业务系统支持的格式，设计的思想是Lua进行业务报文的转换，报文的通讯采用c实现，因为要通过C实现SGIP协议报文的封装和到后台业务的转换。

C调用Lua函数

1. 首先要进行Lua的初始化，这个主要是lua_open和luaL_openlibs函数
2. 然后是解析并编译lua的代码，这个主要是luaL_dofile函数
3. 解析好之后使用lua_getglobal指明要调用的lua函数
4. 如果有lua函数的参数，通过使用lua_pushstring函数传递参数
5. 最后调用lua_pcall进行lua函数的调用
6. 调用完成之后采用lua_tonumber类函数可以获取到函数的返回结果

Lua调用C函数

1. 在Lua中调用C的函数，该函数必须进行注册，这个通过lua_register这个函数来完成
2. 在Lua中调用注册的函数，会调用上面注册的函数（类似于回调），所有的处理在这个函数里面
3. 这个函数里面可以使用lua_tostring类函数来获取函数的参数
4. 如果有返回值，通过lua_pushnumber这个函数来返回。

参考的代码

下面的这个代码是用来将联通的短信进行报文的转换，同时对Lua注册了一个SendSms函数用来可以在Lua中发送短信。

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

#define cutil_log_error?printf
#define cutil_log_debug?printf

/**
?* LuaSendSms
?* 当Lua里面调用SendSms函数时候会触发该函数
?*/
static int LuaSendSms(lua_State *L)
{
?char *pszPhone = "";
?char *pszMessage = "";

?// 读取并判读参数
?if(lua_gettop(L) != 2)
?{
??lua_pushstring(L,"Incorrect argument number!");
??lua_error(L);
?}
?if(!lua_isnumber(L,1) || !lua_isstring(L,2))
?{
??lua_pushstring(L,"Incorrect argument!");
??lua_error(L);
?}
?pszPhone = lua_tostring(L,1);
?pszMessage = lua_tostring(L,2);

?// 发送消息 TODO
?cutil_log_debug("Send Message %s to %s.n",pszMessage,pszPhone);

?// 返回结果
??? lua_pushnumber(L,0);
?
?// 只有一个返回结果
?return 1;
}

/**
?* LuaProcessSms
?* 调用Lua里面的LuaMain函数进行消息的处理
?*/
static int LuaProcessSms(lua_State *L,char *pszPhone,char *pszMessage)
{
?int nRet;
?char *pszRetInfo;

?cutil_log_debug("process phone %s message %sn",pszPhone,pszMessage);

?// 调用函数和参数
?lua_getglobal(L,"LuaMain");
?lua_pushstring(L,pszPhone);
?lua_pushstring(L,pszMessage);
?if(nRet = lua_pcall(L,2,0))
?{
??cutil_log_error("lua_pcall error ret %d error '%s'. phone %s message %sn",
???nRet,lua_tostring(L,-1),pszMessage);
??lua_settop(L,0);
??return -1;
?}

?// 判读返回参数合法性
?if(lua_gettop(L) != 2)
?{
??cutil_log_error("Incorrect return number. %d phone %s message %sn",
???lua_gettop(L),0);
??return -1;?
?}
?if(!lua_isnumber(L,2))
?{
??cutil_log_error("Incorrect return. arg1 %s arg2 %s phone %s message %sn",
???lua_tostring(L,1),2),
???pszPhone,0);
??return -1;
?}

?// 获取并处理返回信息 TODO
?nRet = lua_tonumber(L,1);
?pszRetInfo = strdup(lua_tostring(L,2));
?lua_settop(L,0);
?cutil_log_debug("Ret %d Info %sn",nRet,pszRetInfo);
?if(nRet != 0)
?{
??cutil_log_error("process info error phone %s message %s ret %d info %sn",pszRetInfo);
??free(pszRetInfo);
??return -1;
?}
?free(pszRetInfo);
?return 0;
}

/**
?* LuaInit
?* 初始化Lua库，并注册一个SendSms函数
?*/
static lua_State *LuaInit()
{
?lua_State *L = lua_open();
?if(L == NULL)
?{
??cutil_log_error("Init the lua library errorn");
??return NULL;
?}
?luaL_openlibs(L);

??? /* register our function */
??? lua_register(L,"SendSms",LuaSendSms);

?return L;
}

int main()
{
?int i;

?lua_State *L;

?L = LuaInit();
?if (luaL_dofile(L,"sms.lua"))
??error(L,"cannot run configuration file: %s",
? ??lua_tostring(L,-1));
?for(i = 0; i < 1; i ++)
??LuaProcessSms(L,"13988227711","测试消息");
?lua_close(L);
}
?

下面是参考的Lua程序

-- 函数名称必须为LuaMain
-- 函数里面可以调用SendSms进行消息发送，第一个参数是手机号码，第二个参数是内容
-- 函数的参数有两个phone是手机号码 message是接收到的短信内容
-- 返回参数有两个 第一个是返回值0表示成功，其他失败，第二个是要求发送的内容
function LuaMain(phone,message)
?print("phone ",phone,"message",message)

?SendSms('13988221133','你好')

?return 0,'KZCZ函数的参数有两个phone是手机号码 message是接收到的短信内容'
end

-- 这个里面可以有全局的代码，不过建议不要编写 -- 全局的代码会在LuaMain函数之前运行 ?