kroki (Автор тем)

C:\Windows\system32> chdir \Path\to\Quik\dir
C:\Path\to\Quik\dir> info.exe

qlua> 2 + 3
5
qlua> getClassesList()
'CROSSRATE,EQOB,RPMA,RPMO,EQDB,SMAL,EQQI,OQQI,INDX,TQBR,TQOB,TQQI,TQDE,SPBFUT,SPBOPT,RTSIDX,CETS,INSTR,EQRP_INFO,TQIF,TQTF,INSTRCETS,'
qlua> getSecurityInfo("TQBR", "GAZP")
{ sec_code='GAZP', face_unit='SUR', class_code='TQBR', code='GAZP', scale=2, face_value=5, short_name='ГАЗПРОМ ао', lot_size=10, name='"Газпром" (ПАО) ао', min_price_step=0.01, isin_code='RU0007661625', class_name='МБ ФР: Т+ Акции и ДР', mat_date=20171220 }
qlua> function OnParam(c, s) 
   2> print(qluaDump(c, s, getParamEx2(c, s, "LAST")))
   3> end
qlua> 

'TQBR', 'TRNFP', { param_type='1', param_value='178600.000000', result='1', param_image='178 600' }
'TQBR', 'VTBR', { param_type='1', param_value='0.046810', result='1', param_image='0,04681' }
'TQOB', 'SU24019RMFS0', { param_type='1', param_value='102.537000', result='1', param_image='102,5370' }
'CETS', 'EURUSD000TOM', { param_type='1', param_value='1.193400', result='1', param_image='1,193400' }
'TQOB', 'SU26219RMFS4', { param_type='1', param_value='102.300000', result='1', param_image='102,3000' }
'TQBR', 'SBER', { param_type='1', param_value='223.330000', result='1', param_image='223,33' }
'TQBR', 'SNGSP', { param_type='1', param_value='28.005000', result='1', param_image='28,005' }
'TQBR', 'RSTI', { param_type='1', param_value='0.820100', result='1', param_image='0,8201' }
'CETS', 'EURUSD000TOM', { param_type='1', param_value='1.193400', result='1', param_image='1,193400' }
'TQBR', 'AFLT', { param_type='1', param_value='138.950000', result='1', param_image='138,95' }
'TQBR', 'GAZP', { param_type='1', param_value='130.300000', result='1', param_image='130,30' }
'TQBR', 'HYDR', { param_type='1', param_value='0.727000', result='1', param_image='0,7270' }

qlua> OnPa ram = nil
qlua>

qlua> quit
qlua terminated

qlua> local v = 5
qlua> print(v)
nil
qlua>

qlua> local v = 5; print(v)
5
qlua> do
   2> local v = 5
   3> print(v)
   4> end
5
qlua>

local t1, t2 = {}, {}
local function insert(v1, v2)
   if v1 > v2 then error("v1 > v2") end

   t1.insert(v1)
   t2.insert(v2)

   return v1 + v2, v1 - v2
end

-- далее где-то в разных потоках "атомарно" вставляем оба значения
local r1, r2 = criticalSection(insert, a1, a2)

-- В Lua 5.1 нет table.unpack, но есть unpack.
if not table.unpack then table.unpack = unpack end


-- Понятная версия.  На входе функция и ее аргументы (ноль или более),
-- переданная функция вызывается со своими аргументами под
-- блокировкой, на выходе все ее возвращаемые значения.
local function criticalSection(func, ...)
   -- Запаковываем аргументы для переданной функции в table.
   local args = {...}
   local res
   -- Функция "сравнения" для table.ssort() (передаваемые элементы
   -- упорядочиваемого массива игнорируются).
   local less = function()
      -- Распаковываем аргументы обратно в список, вызываем с ними
      -- переданную функцию, запаковываем результаты в table.
      res = { func(table.unpack(args)) }
      -- Говорим, что первый элемент упорядочиваемого массива меньше
      -- второго, то есть менять элементы местами не нужно.
      return true
   end
   -- "Упорядочиваем" массив из двух элементов (то есть наша функция
   -- "сравнения" вызовется ровно один раз), при этом во время вызова
   -- удерживается блокировка.
   table.ssort({ 0, 0 }, less)
   -- Распаковываем результаты обратно в список и возвращаем его.
   return table.unpack(res)
end


-- Слегка оптимизированная версия: массив { 0, 0 } создается только один
-- раз, функции unpack и ssort ищутся в модуле table также только один раз.
local criticalSection = (function()
   local unpack, ssort = table.unpack, table.ssort
   local array = { 0, 0 }
   return function(func, ...)
      local args = {...}
      local res
      local less = function()
         res = { func(unpack(args)) }
         return true
      end
      ssort(array, less)
      return unpack(res)
   end
end)()


-- Финальная версия: если внутри функции, переданной пользователем,
-- возникнет ошибка, то table.ssort() вылетит, не сняв блокировку (по
-- крайней мере так происходит в моей версии 7.5.0.72 - знаю, что
-- старая, но других брокер не дает).  Ниже код, решающий проблему -
-- на всякий случай именно его и следует использовать.
local criticalSection = (function()
   local unpack, ssort = table.unpack, table.ssort
   local array = { 0, 0 }
   local function pack(ok, ...) return ok, {...} end
   return function(func, ...)
      local args = {...}
      local ok, res
      local less = function()
         ok, res = pack(pcall(func, unpack(args)))
         return true
      end
      ssort(array, less)
      if ok then
         return unpack(res)
      else
         error(unpack(res), 0)
      end
   end
end)()

var = 5  -- глобальная переменная

function main()
   var = nil
end 

_G["var"] = 5  -- глобальная переменная

function main()
   _G["var"] = nil
end 

local mqueue = {}

function OnSomething(param)  -- какой-то callback
   while true do
      local msg = table.sremove(mqueue, 1)
      if not msg then break end
      -- обрабатываем сообщение msg (например, меняем логику работы этого callback)
   end
   -- обрабатываем param согласно (возможно новой) логике
end

function main()
   ...
   table.sinsert(<сообщение>)
   ...
end