C程序与Lua脚本相互调用

　　Lua脚本是一种可用于C程序开发/测试的工具，本篇介绍一下C程序与Lua脚本如何进行相互调用，更加详细的操作参见《Programing in Lua》。本文分为3个部分：1、Windows环境下Lua的下载以及安装注意事项；2、Visual C++6.0中Lua的配置；3、C程序与Lua脚本相互调用实例。

　　1、Windows环境下Lua的下载以及安装注意事项

　　a、下载Lua for Windows，笔者用的版本是V5.1.4-35；

　　b、上微软官网，下载Visual C++运行库——vcredist_x86.exe；

　　c、将LuaForWindows_v5.1.4-35.exe和vcredist_x86.exe放在同一目录下，直接点击LuaForWindows_v5.1.4-35.exe，安装即可，建议将Lua安装在D盘根目录下；

　　d、安装成功之后，使用Lua目录下SciTE编辑器，就可以编写lua脚本，点击“执行”按钮，就可以查看执行结果。

　　

　　2、Visual C++6.0中Lua的配置

　　a、新建一个工程LuaMutualCallCMethod，选择Tools--->Options--->Directories，配置VC++的目录项：

　　（1）Include files，添加“D:\LUA\5.1\INCLUDE”；

　　（2）Library files，添加“D:\LUA\5.1\LIB”；

　　（3）Executable files，添加“D:\LUA\5.1”；

　　b、配置工程的链接属性，选择Project--->Setting---->Link，添加lua5.1.lib；

　　3、C程序与Lua脚本相互调用实例

　　a、C程序调用Lua脚本

　　（1）创建Lua数据脚本data.lua　　

length =
width =
heigth = 

　　（2）创建C程序main.c，读取test.lua中的数据，并打印输出　　

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

void main()
{
    int retCode;
    lua_State *L = luaL_newstate();
    luaL_openlibs(L);
    retCode = luaL_dofile(L,"data.lua");
    if (retCode != )
    {
        printf("error %s\n",lua_tostring(L,-));
        return;
    }
    lua_getglobal(L,"length");
    lua_getglobal(L,"width");
    lua_getglobal(L,"heigth");

    printf("length=%d\n",lua_tointeger(L,-));
    printf("width=%d\n",lua_tointeger(L,-));
    printf("heigth=%d\n",lua_tointeger(L,-));

    lua_close(L);
}

　　（3）输出结果

　　　　　　length = 5

　　　　　　width = 10

　　　　　　height = 20

　　b、Lua脚本调用C程序中的函数

　　（1）创建Lua执行脚本compute.lua

sum =
firstPara =
secondPara = 

sum = addMethod(firstPara,secondPara)

printMethod(sum)

　　（2）创建C程序CMethodForLua.c，编写与“addMethod”、“printMethod”相对应的C函数，并将其“注册”到Lua环境中；

#include <stdio.h>
#include "CmethodForLua.h"

/**********************************************************************
    Fuction：        Lua_AddMethod
    Description：    供Lua调用的加法运算

    Parameter：        luaEnv        --[in]    lua执行环境            

    Return Value:    数字    lua执行后返回参数

    Note:            

    Other:            内部函数，仅供CmethodForLua.c调用

 *********************************************************************/
static int Lua_AddMethod(lua_State *luaEnv)
{
    double firstPara = luaL_checknumber(luaEnv,);
    double secondPara = luaL_checknumber(luaEnv,);
    lua_pushnumber(luaEnv,firstPara+secondPara);
    return ;
}

/**********************************************************************
    Fuction：        Lua_PrintMethod
    Description：    供Lua调用的打印运算

    Parameter：        luaEnv        --[in]    lua执行环境            

    Return Value:    数字    lua执行后返回参数

    Note:            

    Other:            内部函数，仅供CmethodForLua.c调用

 *********************************************************************/
static int Lua_PrintMethod(lua_State *luaEnv)
{
    int printData = (int)luaL_checknumber(luaEnv,);
    printf("The Print Data is %d\n",printData);
    return ;
}

/**********************************************************************
    Fuction：        OpenLuaExecuteEnvironment
    Description：    打开Lua执行环境

    Parameter：        luaEnv        --[in/out]    lua执行环境    

    Return Value:    0    执行成功
                    非0    执行失败，错误码

    Note:
    1、创建Lua状态；
    2、打开Lua标准库
    3、注册供Lua调用的C函数；

    Other:            

 *********************************************************************/
int OpenLuaExecuteEnvironment(lua_State **luaEnv)
{
    lua_State *L = NULL;
    L = luaL_newstate();
    luaL_openlibs(L);
    lua_register(L,"addMethod",Lua_AddMethod);
    lua_register(L,"printMethod",Lua_PrintMethod);
    *luaEnv = L;
    return LUA_SUCCESS;
}

/**********************************************************************
    Fuction：        CloseLuaExecuteEnvironment
    Description：    关闭Lua执行环境

    Parameter：        luaEnv        --[in]    lua执行环境    

    Return Value:    0    执行成功
                    非0    执行失败，错误码

    Note:            

    Other:            

 *********************************************************************/
int CloseLuaExecuteEnvironment(lua_State *luaEnv)
{
    lua_close(luaEnv);
    return LUA_SUCCESS;
}

　　（3）创建main.c，获取CMethodForLua.c中的Lua执行环境，并执行compute.lua脚本

#include <stdio.h>
#include "CmethodForLua.h"

void main()
{
    lua_State *luaEnv = NULL;
    int retCode;
    retCode = OpenLuaExecuteEnvironment(&luaEnv);
    if (retCode != LUA_SUCCESS)
    {
        return;
    }

    //Lua调用C语言函数，
    retCode = luaL_dofile(luaEnv,"compute.lua");
    if (retCode != LUA_SUCCESS)
    {
        printf("error %s\n",lua_tostring(luaEnv,-));
        return;
    }

    CloseLuaExecuteEnvironment(luaEnv);
}

　　（4）输出结果

　　　　The Print Data is 30