Lua编程示例（六）： C语言调用Lua函数

C++端：

#include "stdafx.h"

lua_State *L;

void load_lua(lua_State **L,char *filename){

*L=luaL_newstate();

luaL_openlibs(*L);

if(luaL_loadfile(*L,filename) || lua_pcall(*L,0,0,0)){

luaL_error(*L,"load file error! %s",lua_tostring(*L,-1));

}

}

int _tmain(int argc, _TCHAR* argv[])

{

load_lua(&L,"raw.lua"); //此处若直接传入L会出错

lua_getglobal(L,"gettable");

if(lua_pcall(L,0,1,0) !=0){

luaL_error(L,"pcall wrong %s",lua_tostring(L,-1));

}

luaL_checktype(L,1,LUA_TTABLE);

int n=lua_objlen(L,1);

printf("n = %dn",n);

lua_pushstring(L,"ee");

lua_rawseti(L,1,5); //t[n]=v,n为第三个参数，v是栈顶元素

n=lua_objlen(L,1);

printf("n = %dn",n);

int i;

for(i=1;i<=n;i++){

lua_rawgeti(L,1,i);

printf("%sn",lua_tostring(L,-1));

}

return 0;

}

lua脚本：

function gettable()

tb={ "aa","bb","cc","dd"}

return tb

end

运行输出的结果为：

n = 4

n = 5

aa

bb

cc

dd

ee