Question

我为我的项目做了计时器实现（对于lua 5.1，完整的源代码，dll和http://wintarif.narod.ru/products.htm的测试，所以我将跳过有问题的完整资源）。 Timer创建对象并实现CreateTimerQueueTimer。我用不同的行为进行了3次测试：共享测试脚本的一部分

require('timer')

-- params same as CreateTimerQueueTimer: DueTime, Period, Flags
-- flag WT_EXECUTEONLYONCE = 8, timer will stops, enabled set to false
local mt = timer(1000, 1000, 0)

local i = 0;
function myOnTimer()
    print('wow!')
    if i < 5 then
        i = i + 1
    else
        print("stopping timer")
        mt:StopTimer()
    end
end

mt:SetEvent('OnTimer', myOnTimer)
mt:StartTimer()

当我使用

时

while mt:GetEnabled() do --more buggy way
end

存在“未处理的异常”，但它每隔一秒不间断地打印wow! 与

while true do --buggy way, stack conflict during callback?
    local enabled = mt:GetEnabled()
    if not(enabled) then
        break
    end
end

错误，例如5: bad argument #-2 to 'GetEnabled' (attempt to concatenatetimerLOADLIB: a table valuetimerstring)或5: bad argument #-2 to 'GetEnabled' (timer expected, got table)，或者它可以在dll第一个事件发生之前有效，并且可以在没有错误的情况下停止。

仅

function WaitForTimer()
    while true do
        local is_enabled = mt:GetEnabled()
        if not(is_enabled) then
            print("not enabled")
            return coroutine.yield()
        end
    end
end

co = coroutine.create(WaitForTimer)
coroutine.resume(co)

无错误地工作。

GetEnabled()非常简单的静态cdecl函数的实现

function StaticThunk(L: Plua_State): integer; cdecl;
var
  o: TLuaWrapper;
begin
  o := TLuaWrapper(lua_topointer(L, lua_upvalueindex(1)));
  result := o.Thunk(L);
end;

提取对象，对象的Thunk

function TLuaWrapper.Thunk(L: Plua_State): integer;
var
  i: integer;
  pobj: PtrT;
begin
  { redirect method call to the real thing }
  i := lua_tointeger(L, lua_upvalueindex(2)); // function's index, index is 2 since 1 is self ptr now
  lua_pushnumber(L, 0);
  lua_gettable(L, 1); // get the class table (i.e, self)

  pobj := PtrT(luaL_checkudata(L, -1, PAnsiChar(REG_NAME)));
  lua_remove(L, -1); // remove the userdata from the stack
  lua_remove(L, 1); // remove object from the stack

  try
    result := ClassApiArray[i].func(L, pobj^); // execute the thunk
  except
      result := 0;
  end;
end;

和确切的

function TLuaWrapper.GetEnabled(L: Plua_State; obj: TQueuedTimer): integer;
begin
  // lua_settop(L, 0);
  lua_pushboolean(L, obj.Enabled);
  result := 1;
end;

Lua究竟发生了什么？为什么我有冲突？

更多信息：脚本在lua.exe LuaForWindows下执行。

Answer 1

传递给CreateTimerQueueTimer()的回调函数将由Windows在另一个线程中异步执行。
但是你不能同时从两个不同的线程中使用相同的Lua状态因此，当您的主脚本在此Lua状态下运行时，您无法在Lua状态下执行回调函数从多个线程使用Lua状态会导致不可预测的行为和奇怪的错误消息你的回调函数变得越来越复杂，你的协程代码（目前无错误地运行）也会出错。

Lua状态不是线程安全的因此，CreateTimerQueueTimer的功能不能与Lua绑定。 Пичалька:-(

Lua内部与C / Delphi函数冲突？

1 个答案: