Lua5.3.4测试代码

#include<iostream>
#include<lua.hpp>
using namespace std;

#define execute
//#define load
//#define registercfun

#ifdef registercfun
static int sub(lua_State* L)
{
int a=luaL_checknumber(L,1);
int b=luaL_checknumber(L,2);
lua_pushnumber(L,a-b);
return 1;
}
const char* testcfun="print(c_sub(1,1))";
#endif // registercfun

int main()
{
lua_State *L=luaL_newstate();
if(L)
{
luaL_openlibs(L);
}
else
{
cout<<"creat luastate falied!\n";
return 0;
}

lua_newtable(L);//新建表
lua_pushstring(L,"name");
lua_setfield(L,-2,"lisi");

#ifdef execute

if(luaL_loadfile(L,"exectest.lua")||lua_pcall(L,0,0,0))
{
cout<<"file load err!\n";
lua_close(L);
return -1;
}
if(luaL_dofile(L,"exectest.lua"))
{
cout<<"file execute err!\n";
}
#endif // execute

#ifdef load
if(luaL_loadfile(L,"test.lua")||lua_pcall(L,0,0,0))
{
cout<<"file load err!\n";
lua_close(L);
return -1;
}

lua_getglobal(L,"str");
cout<<"the str is: "<<luaL_checkstring(L,-1)<<"\n";

lua_getglobal(L,"tbl");
lua_getfield(L,-1,"name");
lua_getfield(L,-2,"id");

cout<<"name: "<<luaL_checkstring(L,-2)<<"\n";
cout<<"id: "<<luaL_checknumber(L,-1)<<"\n";

lua_getglobal(L,"add");
lua_pushnumber(L,1);
lua_pushnumber(L,1);
if(lua_pcall(L,2,1,0))
{
const char* errmsg=lua_tostring(L,-1);
cout<<errmsg<<"\n";
lua_close(L);
return -1;
}
cout<<"1+1="<<luaL_checknumber(L,-1)<<"\n";
#endif // load

#ifdef registercfun
lua_pushcfunction(L,sub);
lua_setglobal(L,"c_sub");
if (luaL_dostring(L,testcfun))
printf("Failed to invoke.\n");

#endif // registercfun

lua_close(L);
return 0;
}

require ("module")
print(module.constant)
module.fun1()
--module.fun2()
module.fun3()
mylib=require("MyLib")
mylib.hello()

module={}
module.constant="这是一个常量"
function module.fun1()
print("这是一个公有函数")
end
local function fun2()
io.write("这是一个私有函数\n")
end
function module.fun3()
fun2()
end
return module

str="this is an string"
tbl={name="zhangsan",id=140410}
function add(a,b)
return a+b
end

extern "C" {
#include "lua.hpp"
}

extern "C" int hello(lua_State* L) {
printf("hello");
return 0;
}

static const luaL_Reg myLib[] =
{
{ "hello", hello },
{ NULL, NULL }
};

#ifdef _WIN32
extern "C" __declspec(dllexport) int luaopen_MyLib(lua_State* L)
{
#pragma message ("win32")
#else
extern "C"  int luaopen_MyLib(lua_State* L)
{
#pragma message ("unix")
#endif // _WIN32
luaL_newlib(L, myLib);
return 1;
};

因为我原来用的是静态链接Lua，这样解释器是静态链接的，而C的DLL也是静态链接的，这样就出现了两个Lua虚拟机。。。。。后来我把Lua编译成动态库，然后解释器也变成动态链接Lua，C库也链接动态Lua，这样解释器和DLL就链接到了同一个动态Lua，然后不报错误了。。同理我把测试程序也换成静态库，然后就没问题了。。。。。