#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基本庫(kù)*/
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);
/*運(yùn)行腳本*/
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;
/************************************************************************/
//函數(shù)功能：調(diào)用lua函數(shù)
//函數(shù)參數(shù)：
//     L lua虛擬機(jī)
//     x
//     y
//函數(shù)返回：
//     sum
//核心函數(shù) lua_call()
/*
調(diào)用一個(gè)函數(shù)。
要調(diào)用一個(gè)函數(shù)請(qǐng)遵循以下協(xié)議： 首先，要調(diào)用的函數(shù)應(yīng)該被壓入堆棧； 接著，把需要傳遞給這個(gè)函數(shù)的參數(shù)按正序壓棧；
這是指第一個(gè)參數(shù)首先壓棧。 最后調(diào)用一下 lua_call； nargs 是你壓入堆棧的參數(shù)個(gè)數(shù)。 當(dāng)函數(shù)調(diào)用完畢后，所有的參數(shù)以及函數(shù)本身都會(huì)出棧。
而函數(shù)的返回值這時(shí)則被壓入堆棧。 返回值的個(gè)數(shù)將被調(diào)整為 nresults 個(gè)， 除非 nresults 被設(shè)置成 LUA_MULTRET。
在這種情況下，所有的返回值都被壓入堆棧中。 Lua 會(huì)保證返回值都放入棧空間中。
函數(shù)返回值將按正序壓棧（第一個(gè)返回值首先壓棧）， 因此在調(diào)用結(jié)束后，最后一個(gè)返回值將被放在棧頂。
被調(diào)用函數(shù)內(nèi)發(fā)生的錯(cuò)誤將（通過(guò) longjmp）一直上拋。
*/
/************************************************************************/
int luaadd(lua_State *L, int x, int y)
{
int sum;
/*通過(guò)名字獲取Lua函數(shù)*/
lua_getglobal(L,"add");
/*向棧中壓入第一個(gè)參數(shù)*/
lua_pushnumber(L,x);
/*向棧中壓入第二個(gè)參數(shù)*/
lua_pushnumber(L,y);
/*調(diào)用函數(shù)*/
lua_call(L,2,1);
/*得到結(jié)果
把給定索引處的 Lua 值轉(zhuǎn)換為 lua_Integer 這樣一個(gè)有符號(hào)整數(shù)類(lèi)型。
這個(gè) Lua 值必須是一個(gè)數(shù)字或是一個(gè)可以轉(zhuǎn)換為數(shù)字的字符串,否則，lua_tointeger 返回 0 。*/
sum = (int)lua_tointeger(L,-1);
/*從堆棧中彈出 n 個(gè)元素*/
//n
lua_pop(L,1);
return sum;
}
int main()
{
int sum;
/*初始化lua虛擬機(jī)*/
lua_State *L = luaL_newstate();
/*載入lua基本庫(kù)*/
luaL_openlibs(L);
/*載入腳本*/
luaL_dofile(L,"./script/test.lua");
/*調(diào)用lua函數(shù)*/
sum = luaadd(L,10,15);
/*顯示結(jié)果*/
cout"The sum = "sumendl;
/*清除lua虛擬機(jī)*/
lua_close(L);
/*顯示結(jié)果并暫停*/
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)
{
/*得到參數(shù)個(gè)數(shù)*/
int n = lua_gettop(L);
/*定義和*/
double sum = 0;
/*循環(huán)變量*/
int i;
/*循環(huán)取值求和*/
for (i = 1; i = n; i++)
{
sum += lua_tonumber(L,i);
//coutsumendl;
}
//cout"fffffff"endl;
/*壓入平均值*/
lua_pushnumber(L,sum/n);
/*壓入和*/
lua_pushnumber(L,sum);
/*返回返回值個(gè)數(shù)*/
return 2;
}
int main()
{
/*初始化Lua虛擬機(jī)*/
lua_State *L = luaL_newstate();
/*打開(kāi)lua基本庫(kù)*/
luaL_openlibs(L);
/*注冊(cè)函數(shù)*/
lua_register(L,"average",average);
/*運(yùn)行腳本*/
luaL_dofile(L,"./script/avg.lua");
/*清除lua虛擬機(jī)*/
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();