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

local gcrunner = (function()
  local t = {}
  setmetatable(t, { __gc = function()
    local t = tid
    tid = nil
    if t then DestroyTable(t) end
   message('file type is ' .. io.type(file))
   file:write("__gc\n")
   file:close()
  end })
  return t
end)()

local run = true
local tid = nil
local gcrunner = (function()
   local t = {}
   setmetatable(t, { __gc = function()
      local t = tid
      tid = nil
      if t then DestroyTable(t) end
   end })
   return t
end)()

function main()
   tid = AllocTable()
   AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
   CreateWindow(tid)
...

local run = true
local tid = nil

function main()
   tid = AllocTable()
   AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
   CreateWindow(tid)
   InsertRow(tid, -1)
   InsertRow(tid, -1)
   SetWindowPos(tid, 0, 0, -1000, -1000)
   SetSelectedRow(tid, 1)
   SetTableNotificationCallback(tid, function(t, m, w, l)
      if QTABLE_SELCHANGED == m then
         if 2 == w then
            SetSelectedRow(t, 1)
            message('!')
         end
      end
   end)
   while run do
      sleep(1000)
      SetSelectedRow(tid, 2)
   end
   OnStop()
end

function OnStop()
   local t = tid
   tid = nil
   if t then
      DestroyTable(t)
   end
   run = false
end

BOOLEAN setTimer(INTEGER timeout_ms, FUNCTION callback)

INTEGER CALLBACK timerCallback(VOID)

function OnFinalize()
end

t = {}
setmetatable(t, { __gc = OnFinalize })

int nqls2s = 0;

foreach class in all_classes
  foreach security in all_securities(class)
    if IsSubscribed_Level_II_Quotes(class, security)
      nql2s++;

function OnAllTrade()
  sleep(1000000)
end

require('getClassParameters')

local run = true
local tid = nil

function OnStop()
   local t = tid
   tid = nil
   if t then
      DestroyTable(t)
   end
   run = false
end

local function newwnd()
   local tid = AllocTable()
   if not tid then error('AllocTable failed') end
   if not AddColumn(tid, 1, 'class code', true, QTABLE_STRING_TYPE, 15) then
      DestroyTable(tid)
      error('AddColumn failed')
   end
   if not AddColumn(tid, 2, 'formal name', true, QTABLE_STRING_TYPE, 25) then
      DestroyTable(tid)
      error('AddColumn failed')
   end
   if not AddColumn(tid, 3, 'short name', true, QTABLE_STRING_TYPE, 30) then
      DestroyTable(tid)
      error('AddColumn failed')
   end
   if not AddColumn(tid, 4, 'long name', true, QTABLE_STRING_TYPE, 60) then
      DestroyTable(tid)
      error('AddColumn failed')
   end
   if not AddColumn(tid, 5, 'enum values', true, QTABLE_STRING_TYPE, 240) then
      DestroyTable(tid)
      error('AddColumn failed')
   end
   if not CreateWindow(tid) then
      DestroyTable(tid)
      error('CreateWindow failed')
   end
   if not SetWindowCaption(tid, 'All available parameters') then
      DestroyTable(tid)
      error('SetWindowCaption failed')
   end
   return tid
end

local function popwnd(tid)
   local t = getClassesList()
   local clst = {}
   for s in string.gmatch(t, '([^,]+)') do
      table.insert(clst, s)
   end
   table.sort(clst)
   for k, v in ipairs(clst) do
      local prm = getClassParameters(v)
      for kk, vv in ipairs(prm) do
         local r = InsertRow(tid, -1)
         SetCell(tid, r, 1, v)
         SetCell(tid, r, 2, vv.formal)
         SetCell(tid, r, 3, vv.short)
         SetCell(tid, r, 4, vv.long)
         SetCell(tid, r, 5, vv.enum)
      end
   end
   SetSelectedRow(tid, 1)
end

function main()
   tid = newwnd()
   popwnd(tid)
   while run do
      if IsWindowClosed(tid) then
         OnStop()
         break
      end
      sleep(500)
   end
end

CRC32:   63D94B46
MD5:     11F727170E6CA11F54D78B389107B2CB
SHA-1:   DEB04CAD98C776542D37CA46A1E04595AEE69BC1
SHA-256: D568E9FB00920599774BB94ADD1F23A2B9E818DEA6FF67AE516BF4DBAEFE38AD

TABLE getClassParameters(STRING classcode)

result =
{
  [1] = { 'formal' = STRING, 'short' = STRING, 'long' = STRING, 'enum' = STRING },
  [2] = ...
}