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

-- INPUTS:
--   values  : { v1, v2, ... , vN }
--   weights : { w1, w2, ... , wN }
-- OUTPUT:
--   weighted average

function WeightedAverage(values, weights)
  local num = 0, den = 0
  for i = 1, #values do
    num = num + values[i] * weights[i]
    den = den + weights[i]
  end
  return (num / den)
end

function OnStop()
  InsertRow
  SetCell
  isRun = false
  for(; !isRun; )
  {
    for(MSG msg; PeekMessage(&msg, ...); )
    {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
    }
  }
end

function main()
   ...
   isRun = true
end

function getSecClasses(seccode)
   local result = {}
   for cls in string.gmatch(getClassesList(), "[^,]+") do
      for sec in string.gmatch(getClassSecurities(cls), "[^,]+") do
         if sec == seccode then
            table.insert(result, cls)
            break
         end
      end
   end
   return result
end

function main()
  local s, e = pcall(function()
    -- вот тут ваш мейн
  end)
  if not s then
    message(e, 3) -- искомое сообщение, можно текст от себя добавить
    error(e) -- и выкидываем ошибку дальше, чтобы отработало как обычно
  end
end

local connected = false

local function OnMyConnected()
  connected = true
end

local function OnMyDisconnected()
  connected = false
end

local function Stub()
end

OnConnec ted = Stub
OnDisconnec ted = Stub

function main()
  connected = isConnected()
  -- тут состояние подключения могло измениться
  OnConnec ted = OnMyConnected
  -- или тут
  OnDisconnec ted = OnMyDisconnected
end

#include <Windows.h>

int WINAPI wWinMain(HINSTANCE, HINSTANCE, LPWSTR, int)
{
   const size_t bufsize = 1024;
   wchar_t buf[bufsize];
   HANDLE hmap = ::CreateFileMappingW(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, 3*1024*1024*1024, NULL);
   if(NULL == hmap)
      ::wsprintfW(buf, L"Failed to create the mapping, error %u", ::GetLastError());
   else
   {
      ::wsprintfW(buf, L"File mapping successfully created");
      ::CloseHandle(hmap);
   }
   ::MessageBoxW(NULL, buf, L"CreateFileMapping test", MB_ICONINFORMATION | MB_OK);
   return 0;
}