【C++/Lua联合开发】 (三) C++调用Lua

C++调用Lua

• 全局变量访问(普通，表)，函数调用(参数，返回值)

• 注意栈空间清理，防止内存泄漏

1. C++调用Lua全局变量(普通类型)

lua_getglobal(L, "width");   //取出全局变量"width"并压栈
int width = lua_tointeger(L, -1);
lua_pop(L, 1);                    //栈顶出栈
cout << "width: " << width << endl;

width = 1920

2. C++给Lua传递全局变量

luaL_loadfile 调用前执行，设置全局变量cname：

lua_pushstring(lua, "c name value");   //压栈
lua_setglobal(lua, "cname");   

lua_setglobal(L, "cname") 把栈顶的值弹出并设置为全局变量 cname（在 Lua中相当于 _G[“cname”] = value)

3. C++调用Lua全局变量(表)

-- main.lua
conf = {title = "My Title",height = 200
}

// main.cpp
lua_getglobal(L, "conf");  // [conf]
lua_getfield(L, -1, "title");  // [conf  "My Title"]
cout << "title: " << lua_tostring(L, -1) << endl;  
lua_pop(L, 1);            // [conf]lua_getfield(L, -1, "height");    [conf  200]
cout << "height: " << lua_tointeger(L, -1) << endl;
lua_pop(L, 1);     // [conf]

4. C++给Lua传递全局变量表

lua_newtable(L);      //[..., table]
lua_pushstring(L, "skan"); // [..., table, "skan"]
//把栈顶值作为value，弹出它并设置索引-2处表的字段name,等价于table["name"]=value
lua_setfield(L, -2, "name");  // [..., table]lua_pushinteger(L, 42);
lua_setfield(L, -2, "age");lua_setglobal(L, "person");

-- main.lua
print("person name: " .. person.name)
print("person age: " .. person.age)

5. C++调用Lua函数

注意点：

1. 堆栈
2. 多线程调用(dispatch的方式)

5.1 基础调用

function lua_event() print("Event triggered")
end

lua_getglobal(L, "lua_event");
if (!lua_isfunction(L, -1)) {// 不是函数：弹出并忽略lua_pop(L, 1); // 栈恢复
}
else {int ret = lua_pcall(L, 0, 0, 0); // 弹出函数并调用if (ret != LUA_OK) {const char* err = lua_tostring(L, -1); // 栈顶是错误信息printf("call event error: %s\n", err);lua_pop(L, 1); // 弹出错误信息}
}

• lua_getglobal(L, "lua_event")：把全局变量 lua_event的值压入栈顶（不弹出任何东西）。

  • 调用前（假设栈为空）：[]
  • 调用后：[ lua_event_value ]（栈顶索引 -1）

• lua_pcall(lua_State *L, int nargs, int nresults, int errfunc)的行为：

  • 要求栈顶是一个可调用值（function）。lua_pcall会弹出该函数和传入的参数（此处 nargs=0），在保护模式下调用它。
  • 成功返回（ret == LUA_OK）：根据 nresults=0，不会把函数的返回值压回栈，最终栈回到调用前的状态（即如果之前只有函数，则变为空栈）。
  • 调用前：[ function ] → 调用后（成功）：[]
  • 失败返回（ret != LUA_OK）：lua_pcall在栈顶压入错误信息（error message），并返回错误码。
    • 调用后（出错）：[ error_msg ]

• 如果 lua_event不是函数（例如 nil或 table），直接 lua_pcall会失败并在栈上留下错误信息（"attempt to call a … "），应先用 lua_isfunction或 lua_type检查

5.2 调用Lua函数传递参数

function lua_event(e1) print("Event triggered")print(e1)return "test lua_event"
end

lua_getglobal(L, "lua_event");
if (!lua_isfunction(L, -1)) {// 不是函数：弹出并忽略lua_pop(L, 1); // 栈恢复
}
else {lua_pushstring(L, "hello from C");  lua_newtable(L);lua_pushstring(L, "skan");lua_setfield(L, -2, "name");int ret = lua_pcall(L, 2, 1, errfunc_pos); // 弹出函数并调用if (ret != LUA_OK) {const char* err = lua_tostring(L, -1); // 栈顶是错误信息printf("call event error: %s\n", err);lua_pop(L, 1); // 弹出错误信息}else {printf("lua return: %s\n", lua_tostring(L, -1));lua_pop(L, 1);}
}

5.3 errfunc

-- main.lua
function my_error_handler(err)return "Custom error: " .. tostring(err)
endnd

// ...existing code...
int errfunc_pos = lua_gettop(L) + 1; 
lua_getglobal(L, "my_error_handler");  // 压入错误处理函数，假设索引为 1
// 栈: [..., my_error_handler]
lua_getglobal(L, "lua_event");  // 压入要调用的函数
lua_pushstring(L, "hello from C");  // 参数
// 栈: [..., my_error_handler, lua_event, "hello from C"]int ret = lua_pcall(L, 1, 1, errfunc_pos);
if (ret != LUA_OK) {const char* err = lua_tostring(L, -1);  // 栈顶是 errfunc 返回的字符串printf("Handled error: %s\n", err);lua_pop(L, 1);
} else {printf("Success: %s\n", lua_tostring(L, -1));lua_pop(L, 1);
}
lua_pop(L, 1); // errfunc出栈

5.4 返回table

lua_pushstring(L, "hello from C");  
lua_newtable(L);
lua_pushstring(L, "skan");
lua_setfield(L, -2, "name");
int ret = lua_pcall(L, 2, 1, errfunc_pos); // 弹出函数lua_event("hello from C", tab1)并调用
if (ret != LUA_OK) {const char* err = lua_tostring(L, -1); // 栈顶是错误信息printf("call event error: %s\n", err);lua_pop(L, 1); // 弹出错误信息
}
else {lua_getfield(L, -1, "result");if (lua_isstring(L, -1))cout << "result: " << lua_tostring(L, -1) << endl;else if (lua_isnumber(L, -1))cout << "result: " << lua_tonumber(L, -1) << endl;elsecout << "result: " << lua_typename(L, lua_type(L, -1)) << endl;lua_pop(L, 2);
}

function lua_event(e1, tb2) print("Event triggered")print(e1)print(tb2.name)return {result = "success"}
end