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

local function v(n)
  for i = 1, n do
    _G["v"..i] = i
  end
end

v(0)
--v(10000000)

local run = true
function OnStop()
  run = nil
end

local t
function OnAllTrade()
  if getNumberOf("all_trades") == 1 then
    local num = 1
    function OnAllTrade(alltrade)
      if not run then return end
      num = num + 1
      if num == 200000 then
        t = os.clock() - t
        run = false
      end
    end
    t = os.clock()
  end
end

function main()
  while run do sleep(500) end
  if t then message(tostring(t)) end
end

local function v(n)
  for i = 1, n do
    _G["v"..i] = i
  end
end

v(0)
--v(10000000)

local run = true
function OnStop()
  run = nil
end

local t
function OnAllTrade()
  if getNumberOf("all_trades") == 1 then
    local num = 1
    function OnAllTrade(alltrade)
      if not run then return end
      num = num + 1
      if num == 200000 then run = false end
    end
    t = os.clock()
  end
end

function main()
  while run do sleep(500) end
  if t then message(tostring(os.clock() - t)) end
end

local function f(n)
  for i = 1, n do
    _G["f"..i] = function ()
      return 0
    end
  end
end

local function r(n)
  for i = 1, n do
    local a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
    _G["f"..i] = function ()
      return {a1, a2, a3, a4, a5, a6, a7, a8, a9, a10}
    end
  end
end


--f(150)
--r(150)

--require("socket")
--require("socket.smtp")

--require("iuplua")

local run = true
function OnStop()
  run = nil
end

local t
function OnAllTrade()
  if getNumberOf("all_trades") == 1 then
    local num = 1
    function OnAllTrade(alltrade)
      num = num + 1
      if num == 200000 then run = false end
    end
    t = os.clock()
  end
end

function main()
  while run do sleep(1) end
  if t then message(tostring(os.clock() - t)) end
end

local n = 50000
for i = 1, n do
  _G["f"..i] = function () end
end

local class = "SPBFUT"
local sec = "SiZ1"
local param = {"BIDDEPTHT", "OFFERDEPTHT"}

local run = true
function OnStop()
  run = nil
end

function main()
  assert(Subscribe_Level_II_Quotes(class, sec))
  for i = 1, #param do
    ParamRequest(class, sec, param[i])
  end
  while run do sleep(500) end
  Unsubscribe_Level_II_Quotes(class, sec)
  for i = 1, #param do
    CancelParamRequest(class, sec, param[i])
  end
end

function OnQuote(class_code, sec_code) end
function OnParam(class_code, sec_code) end
function OnAllTrade(alltrade) end

local run = true
local id
function OnStop()
  run = nil
  local t = id
  id = nil
  if t then DestroyTable(t) end
end

function main()
  id = AllocTable()
  AddColumn(id, 1, "Row", true, QTABLE_INT_TYPE, 10)
  AddColumn(id, 2, "Selected", true, QTABLE_INT_TYPE, 15)
  CreateWindow(id)
  for i = 1, 4 do
    SetCell(id, InsertRow(id, i), 1, tostring(i), i)
  end
  SetTableNotificationCallback(id, function(t, event, row)
    if event == QTABLE_VKEY then
      message("SetSelectedRow: " .. tostring(SetSelectedRow(id, 2)))
    elseif event == QTABLE_SELCHANGED then
      SetCell(id, row, 2, tostring(row))
    end
  end)
  while run do sleep(1000) end
end