Anton (Все сообщения пользователя)

      lua_unlock(L);
      n = (*f)(L);  /* do the actual call */
      lua_lock(L);

local run = true
local nshow = 0

function OnAllTrade()
   if nshow < 10 then
      PrintDbgStr('OnAllTrade')
      nshow = nshow + 1
   end
end

function dummy(i)
   local a = 1
   for i = 1, 1000000 do a = a + i end
end

function main()
   PrintDbgStr('Before loop')
   for i = 0, 10000000 do
      dummy(i)
   end
   PrintDbgStr('After loop')
end

static int global_PeekMessage(lua_State *L) {
    MSG msg;
    BOOL rc;
    long lwnd = MYP2HCAST luaL_optinteger( L, 1, 0); // раз косяк
    UINT mfmin = ( UINT) luaL_optinteger( L, 2, 0);
    UINT mfmax = ( UINT) luaL_optinteger( L, 3, 0);
    UINT rmmsg = ( UINT) luaL_optinteger( L, 4, PM_NOREMOVE);

    rc = PeekMessage( &msg, ( HWND) lwnd, mfmin, mfmax, rmmsg);

    lua_pushnumber( L, rc);
    if( rc) {
        lua_pushnumber( L, ( long) msg.hwnd); // два косяк
        lua_pushnumber( L, msg.message);
        lua_pushnumber( L, msg.wParam); // три косяк
        lua_pushnumber( L, msg.lParam); // четыре косяк
        lua_pushnumber( L, msg.time);
        lua_pushnumber( L, msg.pt.x);
        lua_pushnumber( L, msg.pt.y);
    } else {
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
    }

    return( 8);
}

   switch(msg)
   {
   case WM_QUIK_CLIENT_CONNECT:
      if(connections_allowed)
      {
         HWND hwndClient = (HWND)wparam;
         client_list.push_back(hwndClient);
         SendMessage(hwndClient, WM_QUIK_SERVER_CONNECT, (WPARAM)hwndServer, 0);
      }
      return 0;
   case WM_QUIK_SERVER_STOP:
      connections_allowed = false;
      foreach(hwndClient in client_list)
         SendMessage(hwndClient, WM_QUIK_SERVER_DISCONNECT, (WPARAM)hwndServer, 0);
      client_list.clear();
      DestroyWindow(hwndServer);
      return 0;
   case WM_DESTROY:
      PostQuitMessage(0);
      return 0;
   // и так далее
   }