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

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

local function f(t)
  for i = 1, 100 do
    t[""..i] = i
  end
  for k, v in pairs(t) do
    t[k] = nil
  end
  t = {}
  return t
end

p = {}
function OnParam(class_code, sec_code)
  p = f(p)
end

a = {}
function OnAllTrade(alltrade)
  a = f(a)
end

m = {}
function main()
  while run do
    m = f(m)
    sleep(1)
  end
end

local p = {}
function OnParam(class_code, sec_code)
  for i = 1, 20 do
    p[sec_code..i] = class_code
  end
end

local t = {}
function OnAllTrade(alltrade)
  for i = 1, 20 do
    t[alltrade.sec_code..i] = alltrade
  end
end

function main()
  while run do
    for k, v in pairs(p) do
      p[k] = nil
    end
    for k, v in pairs(t) do
      t[k] = nil
    end
    sleep(1)
  end
end

local p = {}
function OnParam(class_code, sec_code)
  p[sec_code] = class_code
end

local t = {}
function OnAllTrade(alltrade)
  t[alltrade.sec_code] = alltrade.class_code
end

function main()
  while run do
    for k, v in pairs(p) do
      p[k] = nil
    end
    for k, v in pairs(t) do
      t[k] = nil
    end
    sleep(1)
  end
end

function main()
  if sendTransaction{
    TRANS_ID = tostring(trans_id),
    ACTION = "NEW_ORDER",
    ACCOUNT = account,
    CLIENT_CODE = client,
    CLASSCODE = class_code,
    SECCODE = sec_code,
    OPERATION = "B",
    TYPE = "L",
    PRICE = price,
    QUANTITY = "1"
  } == "" then run = true end
  while run do sleep(1) end
end

function OnTransReply(trans_reply)
  if trans_reply.trans_id ~= trans_id then return end
  run = nil
  sendTransaction{
    TRANS_ID = tostring(trans_id + 1),
    ACTION = "KILL_ORDER",
    CLASSCODE = class_code,
    ORDER_KEY = tostring(trans_reply.order_num)
  }
end

function OnStop()
  run = nil
end

local run = true
local tid = nil

local gcrunner = {}
setmetatable(gcrunner, { __gc = function()
  if tid then DestroyTable(tid) end
  message('__gc', 2)
end })

function OnInit(script_path)
  file = io.open(script_path .. ".log", "w")
  file:write("OnInit\n")
  message("OnInit")
end

function main()
  message("main")
  tid = AllocTable()
  AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
  CreateWindow(tid)
  collectgarbage()
  while run do sleep(300) end
end

function OnStop()
  run = nil
end

local run = true

local z = {0, 1}
local table_ssort = table.ssort
function c(func)
  table_ssort(z, function()
    func()
    return true
  end)
end

local string_format = string.format
local function f()
  string_format('%.1f / %.f', 100 / 1000, 10)
end
function OnQuote(class_code, sec_code)
  for i = 1, 50 do
    c(f)
  end
end
function OnParam(class_code, sec_code)
  for i = 1, 50 do
    c(f)
  end
end

function main()
  local class_code = 'QJSIM'
  local s = {}
  local n = 0
  for sec_code in string.gmatch(getClassSecurities(class_code), '([^,]+)') do
    if Subscribe_Level_II_Quotes(class_code, sec_code) == true then
      n = n + 1
      s[n] = sec_code
    end
  end
  while run do
    sleep(1)
  end
  for i = 1, n do
    Unsubscribe_Level_II_Quotes(class_code, s[i])
  end
end

function OnStop()
  run = nil
end