function fnex2(str_a, num_b, num_c)
print(str_a);
return num_b*100 + num_c*10, "Thank you";
end;
print (">>> LUA程序開始運(yùn)行了 ");
function fnex3(num_a, num_b)
local c = rmath(num_a, num_b);
print("LUA PRINTTING:", c);
return c;
end;
//LUA腳本調(diào)用C函數(shù)
int call_c_function(void)
{
int iArg1 = 3, iArg2 = 10, iError;
cout << "=================================" << endl
<< "下面的程序演示從LUA腳本中調(diào)用C函數(shù)" << endl
<< "Argument 1:" << iArg1 << endl
<< "Argument 2:" << iArg2 << endl
<< "---------------------------------" << endl
<< "#OUTPUTS#" << endl;
lua_State* L = lua_open();
InitLuaState(L);
iError = luaL_loadfile(L, "../test03.lua");
if (iError) cout << "載入腳本失敗" << endl;
iError = lua_pcall(L, 0, 0, 0);
if (iError) cout << "執(zhí)行LUA腳本失敗" << endl;
/* 將C函數(shù)（指針）壓棧 */
lua_pushstring(L, "rmath");
lua_pushcfunction(L, RMath_LUA);
lua_settable(L, LUA_GLOBALSINDEX);
/* LUA函數(shù)也是變量（指針），可以壓入棧 */
lua_getglobal(L, "fnex3");
/* 將提供給LUA函數(shù)的參數(shù)入棧 */
lua_pushnumber(L, iArg1);
lua_pushnumber(L, iArg2);
/* 調(diào)用LUA函數(shù)(pcall函數(shù)會自動清除入棧的變量) */
int Error = lua_pcall( L, //虛擬機(jī)指針
2, //2個參數(shù)
1, //1個返回值
0 );
if (Error) cout << "pcall調(diào)用fnex3函數(shù)失敗" << endl;
/* 檢驗(yàn)返回值類型 */
if (lua_isnumber(L, -1))
{
cout << "有1個(double)返回值 = "
<< lua_tonumber(L, -1)
<< endl;
}
/* 將LUA函數(shù)返回值出棧 */
lua_pop(L, 1);
lua_close(L);
return 0;
}
//可供LUA調(diào)用的C函數(shù)原型
int RMath_LUA(lua_State* L)
{
if (!lua_isnumber(L, 1))
{
lua_pushstring(L, "Arg_1不是數(shù)字");
lua_error(L);
}
if (!lua_isnumber(L, 2))
{
lua_pushstring(L, "Arg_2不是數(shù)字");
lua_error(L);
}
/* GET ARGUMENT FROM STACK */
double a = lua_tonumber(L, 1);
double b = lua_tonumber(L, 2);
/* PUSH RESULT TO STACK */
lua_pushnumber(L, a * b);
/* COUNT OF RETURN VARS*/
return 1;
}
/* Push a FUNCTION_VAR to STACK */
lua_getglobal(L, "fnex2");
/* Push PARAMETERS to STACK */
lua_pushstring(L, szInParam);
lua_pushnumber(L, iParam1);
lua_pushnumber(L, iParam2);
/* Call FUNCTION in LUA */
iError = lua_pcall( L,3,2,0);