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

--local n = 0
--local n = 1000000
--local n = 3000000

local list = {TQBR = {"SBER", "GAZP", "VTBR", "RUAL"}, CETS = {"USD000UTSTOM"}, SPBFUT = {"BRH2", "RIH2", "SiH2", "SRH2"}}
local param = {"BID", "OFFER", "LAST", "NUMTRADES", "NUMBIDS", "NUMOFFERS"}

local run
function OnStop()
  run = nil
end

local c = 0
function OnQuote(class_code, sec_code)
  if not run then return end
  c = c + 1
end
function OnParam(class_code, sec_code)
  if not run then return end
  c = c + 1
end
function OnAllTrade(alltrade)
  if not run then return end
  c = c + 1
end

function main()
  local a = {}
  for i = 1, n do a[i] = i end

  for class, sec in pairs(list) do
    for i = 1, #sec do
      Subscribe_Level_II_Quotes(class, sec[i])
      for i = 1, #param do
        ParamRequest(class, sec, param[i])
      end
    end
  end

  local t = os.clock()
  run = true
  while run and t + 90 > os.clock() do
    sleep(500)
  end
  t = os.clock() - t

  for class, sec in pairs(list) do
    for i = 1, #sec do
      Unsubscribe_Level_II_Quotes(class, sec[i])
      for i = 1, #param do
        CancelParamRequest(class, sec[i], param[i])
      end
    end
  end
  message(string.format("%u: %u; %.0f/сек", n, c, c/t))
end

--local n = 0
local n = 5000000  -- special for Junior. Тест проводится поздно вечером на тухлом рынке, потому такое большое число. Думаю, днём можно уменьшить

local list = {QJSIM = {"SBER", "GAZP", "VTBR", "RUAL"}, CETS = {"USD000UTSTOM"}, SPBFUT = {"BRH2", "RIH2", "SiH2", "SRH2"}}
local param = {"BID", "OFFER", "LAST", "NUMTRADES", "NUMBIDS", "NUMOFFERS"}

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

function main()
  local a = {}
  for i = 1, n do a[i] = i end

  for class, sec in pairs(list) do
    for i = 1, #sec do
      Subscribe_Level_II_Quotes(class, sec[i])
      for i = 1, #param do
        ParamRequest(class, sec, param[i])
      end
    end
  end

  while run do sleep(500) end

  for class, sec in pairs(list) do
    for i = 1, #sec do
      Unsubscribe_Level_II_Quotes(class, sec[i])
      for i = 1, #param do
        CancelParamRequest(class, sec[i], param[i])
      end
    end
  end
end

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

--local v = 0
--local v = 100
--local v = "socket"
--local v = "iuplua"

local function f(n)
  if type(n) == "number" then
    local a = {}
    for i = 1, n do
      a[i] = {}
      for j = 1, 1000 do a[i][j] = j end
    end
    return a
  elseif n == "socket" then
    local socket = require("socket")
   require("socket.smtp")
   return socket
  else
    return require(n)
  end
end

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

local m
function OnInit()
  m = f(v)
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(v .. ": " .. t) end
end