C++中使用Lua脚本 和lua中调用c的方法

转：http://www.cnweblog.com/fly2700/archive/2010/02/09/282920.html

参考http://blog.csdn.net/kun1234567/archive/2007/12/11/1929815.aspx
第1步：下载
从官方主页www.lua.org下载Lua源代码，最新版本为5.1.3。（jack-wang注：现在已经是5.1.4了）
解压之后找到“[Lua]/src”文件夹，这里面就是Lua了，不过还不能直接使用。

第2步：编译lua
使用任意ANSI C编译器，在这里使用VS2005编译LUA。具体步骤如下：
a.打开vs的命令行工具，工具-->visual studio 2005 command prompt
b.跳转到[Lua]目录，例如：cd  D:/Program Files/Lua
c.执行：etc\luavs.bat（ 注意，是 \ 不是 /,写错了不能执行编译 )
d.然后lua51.dll, lua51.lib, lua.exe, and luac.exe就生成在 src 路径下了
e.在windows环境变量中把[Lua]\src添加到系统Path中去,

第3步：创建lua脚本
下载LuaEdit http://luaforge.net/frs/download.php/1037/LuaEdit_2_5.zip 他是Lua脚本的编辑工具，还可以对Lua脚本进行语法检测和调试。你也可以其他的纯文本编辑工具写一个文件test.lua，注意后面没有“;”

function f ( x, y)
     return  x  +  y
end

第4步：在C++ 中调用Lua脚本
开启VC++6.0环境创建一个新文件main.cpp

//  Win32Console.cpp : Defines the entry point for the console application.
//

#include  " stdafx.h "

extern   " C "
{
#include "D:/Lib/Lua/lua.h"
#include "D:/Lib/Lua/lualib.h"
#include "D:/Lib/Lua/lauxlib.h"
}
#pragma comment( lib , " D:/Lib/Lua/lua51.lib " )
lua_State  * L;

// 调用lua
double  fun(  double  x,  double  y )
{
 double ret;
 lua_getglobal( L, "add");        // 获取全局变量f
 lua_pushnumber( L,x);          // 操作数压栈
 lua_pushnumber( L,y);          // 操作数压栈
 lua_call( L, 2, 1);            // 执行：2个操作数，1个返回值
 //lua_pcall( L, 2, 1, 0);      // 保护模式的lua_call,0为错误处理码。具体应用暂时不明，在使用手册中有粗略介绍
 ret = lua_tonumber( L, -1);    // 将栈顶元素转换成数字并赋值给ret
 lua_pop( L, 1);                // 从栈中弹出一个元素
 return ret;
}

// 被lua调用的方法
static   int  average(lua_State  * L2)
{
    /* get number of arguments */
    int n = lua_gettop(L2);
    double sum = 0;
    int i;
    /* loop through each argument */
    for (i = 1; i <= n; i++)
    {
    /* total the arguments */
    sum += lua_tonumber(L2, i);
    }
    lua_pushnumber(L, sum / n);
    /* push the sum */
    lua_pushnumber(L, sum);
    /* return the number of results */
    printf("average called. [ok]\n");
    return 2;
}
// ==============================================
//  Main Functions
// ==============================================
int  main(  void )
{
 int error;
 L = lua_open();          // 创建Lua接口指针（借用DX的术语，本质是个堆栈指针）
 luaopen_base(L);     // 加载Lua基本库
 luaL_openlibs(L);     // 加载Lua通用扩展库
/*
 可能有的文章会采用以下写法，手工控制加载哪些库：
 luaopen_table(L);     // 加载table库
 luaopen_io(L);           // 加载IO库
 luaopen_string(L);    // 加载string库
 luaopen_math(L);     // 加载math库
 经过测试，luaopen_io(L);该句执行异常，可能跟Lua的IO库有关系。具体原因暂时没有追究，将来如果有机会弄清楚，再回头来阐述。
*/
 
 /* load the script */
 lua_register(L, "average", average);
 error = luaL_dofile(L, "hellow.lua");    // 读取Lua源文件到内存编译

 double ret = fun( 10, 3.4);                // 调用模版函数f
 printf( "ret = %f\n", ret);                // 输出结果，C语言的东西，跟Lua无关
 lua_close( L);
 return 1;
}

创建一个hellow.lua文件和main.cpp放在一起,写入以下内容

function add ( x, y)    
    file  =  assert(io.open( " data.txt " ,  " w " ))
    file:write( " abcde\n " )
    file:write( " ok!\n " )
    file:close()

     -- DataDumper( 1 , 2 , 3 , 4 )
    file  =  assert(io.open( " data.txt " ,  " r " ))
    str  =  file:read( " *a " )
    io.write(str)
    io.write( " \n " )
    
    avg, sum  =  average( 10 ,  200 ,  3000 )
    print( " The average is  " , avg)
    print( " The sum is  " , sum)
    
     return  x  +  y
end