#include iostream>
#include stdlib.h>
#include stdio.h>
#include string.h>
extern "C"
{
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
};
using namespace std;
int main()
{
lua_State *pLuaState = luaL_newstate();
/*载入lua基本库*/
luaL_openlibs(pLuaState);
//luaopen_base(pLuaState);
//luaopen_io(pLuaState);        //替换老版本的lua_iolibopen(pLuaState);
//luaopen_string(pLuaState);      //替换老版本的lua_strlibopen(pLuaState);
//luaopen_math(pLuaState);     //替换老版本的lua_mathlibopen(pLuaState);
//luaopen_debug(pLuaState);     //替换老版本的lua_dblibopen(pLuaState);
/*运行脚本*/
luaL_dofile(pLuaState,"./script/hw.lua");
/*清除lua*/ 
lua_close(pLuaState);
/*暂停*/
cout"Press enter to exit…"endl;
getchar();
return 0;
}

print("Hello Word!");

#include iostream>
#include stdlib.h>
#include stdio.h>
#include string.h>
extern "C"
{
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
};
using namespace std;
/************************************************************************/
//函数功能：调用lua函数
//函数参数：
//     L lua虚拟机
//     x
//     y
//函数返回：
//     sum
//核心函数 lua_call()
/*
调用一个函数。
要调用一个函数请遵循以下协议： 首先，要调用的函数应该被压入堆栈； 接着，把需要传递给这个函数的参数按正序压栈；
这是指第一个参数首先压栈。 最后调用一下 lua_call； nargs 是你压入堆栈的参数个数。 当函数调用完毕后，所有的参数以及函数本身都会出栈。
而函数的返回值这时则被压入堆栈。 返回值的个数将被调整为 nresults 个， 除非 nresults 被设置成 LUA_MULTRET。
在这种情况下，所有的返回值都被压入堆栈中。 Lua 会保证返回值都放入栈空间中。
函数返回值将按正序压栈（第一个返回值首先压栈）， 因此在调用结束后，最后一个返回值将被放在栈顶。
被调用函数内发生的错误将（通过 longjmp）一直上抛。
*/
/************************************************************************/
int luaadd(lua_State *L, int x, int y)
{
int sum;
/*通过名字获取Lua函数*/
lua_getglobal(L,"add");
/*向栈中压入第一个参数*/
lua_pushnumber(L,x);
/*向栈中压入第二个参数*/
lua_pushnumber(L,y);
/*调用函数*/
lua_call(L,2,1);
/*得到结果
把给定索引处的 Lua 值转换为 lua_Integer 这样一个有符号整数类型。
这个 Lua 值必须是一个数字或是一个可以转换为数字的字符串,否则，lua_tointeger 返回 0 。*/
sum = (int)lua_tointeger(L,-1);
/*从堆栈中弹出 n 个元素*/
//n
lua_pop(L,1);
return sum;
}
int main()
{
int sum;
/*初始化lua虚拟机*/
lua_State *L = luaL_newstate();
/*载入lua基本库*/
luaL_openlibs(L);
/*载入脚本*/
luaL_dofile(L,"./script/test.lua");
/*调用lua函数*/
sum = luaadd(L,10,15);
/*显示结果*/
cout"The sum = "sumendl;
/*清除lua虚拟机*/
lua_close(L);
/*显示结果并暂停*/
cout"Press enter to exit…"endl;
getchar();
return 0;
}

function add(x,y)
return x + y;
end

#include iostream>
#include stdlib.h>
#include stdio.h>
#include string.h>
extern "C"
{
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
};
using namespace std;
static int average(lua_State *L)
{
/*得到参数个数*/
int n = lua_gettop(L);
/*定义和*/
double sum = 0;
/*循环变量*/
int i;
/*循环取值求和*/
for (i = 1; i = n; i++)
{
sum += lua_tonumber(L,i);
//coutsumendl;
}
//cout"fffffff"endl;
/*压入平均值*/
lua_pushnumber(L,sum/n);
/*压入和*/
lua_pushnumber(L,sum);
/*返回返回值个数*/
return 2;
}
int main()
{
/*初始化Lua虚拟机*/
lua_State *L = luaL_newstate();
/*打开lua基本库*/
luaL_openlibs(L);
/*注册函数*/
lua_register(L,"average",average);
/*运行脚本*/
luaL_dofile(L,"./script/avg.lua");
/*清除lua虚拟机*/
lua_close(L);
/*打印暂停*/
cout"Press enter to exit…"endl;
getchar();
return 0;
}

function main()
local avg,sum = average(2,2,2,2,2);
print("The avg is",avg);
print("The sum is", sum);
end
main();