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

      vmcase(OP_CLOSURE) {
        Proto *p = cl->p->p[GETARG_Bx(i)];
        LClosure *ncl = getcached(p, cl->upvals, base);  /* cached closure */
        if (ncl == NULL)  /* no match? */
          pushclosure(L, p, cl->upvals, base, ra);  /* create a new one */
        else
          setclLvalue(L, ra, ncl);  /* push cashed closure */
        checkGC(L, ra + 1);
        vmbreak;
      }

#define checkGC(L,c)  \
        { luaC_condGC(L, L->top = (c),  /* limit of live values */ \
                         Protect(L->top = ci->top));  /* restore top */ \
           luai_threadyield(L); }

#define luai_threadyield(L)     {lua_unlock(L); lua_lock(L);}

------------------------------------------------------------------------------
--              'CONSTANTS' (Lua has no true constants, you know)           --
------------------------------------------------------------------------------

local inFileName = getScriptPath() .. '\\IN.lua'
local outFileName = getScriptPath() .. '\\OUT.lua'
local mainLoopTimeout = 500

------------------------------------------------------------------------------
--                               BUSINESS LOGIC                             --
------------------------------------------------------------------------------

local inSecList = nil

local function writeSecList()
   local f = io.open(outFileName, 'wb')
   if not f then
      error('Failed to open OUT.lua for write')
   end
   f:write('return {\r\n')
   if inSecList then
      for _, r in ipairs(inSecList) do
         f:write('\t{ classcode = "' .. (r.classcode or '') ..
            '", seccode = "' .. (r.seccode or '') .. '" },\r\n')
      end
   end
   f:write('}\r\n')
   f:flush()
   f:close()
end

-- called in main thread before the main loop
local function onMainInit()
   inSecList = dofile(inFileName)
   -- TODO: further initialization here
end

-- called in main thread on each time step
local function onTimeStep()
   -- TODO: your trading code here
end

-- called in main thread after the main loop 
local function onMainCleanup()
   writeSecList()
   -- TODO: further cleanup here
end

------------------------------------------------------------------------------
--    THE CODE BELOW SHOULD NOT BE EDITED UNLESS YOU FULLY UNDERSTAND IT    --
------------------------------------------------------------------------------

local runStatus = 0

function OnStop()
   assert(runStatus == 3, "Unexpected runStatus in OnStop: " .. runStatus)
   runStatus = runStatus - 1
   while runStatus == 2 do
      sleep(10)
   end
   runStatus = runStatus - 1
end

function main()
   onMainInit()
   runStatus = 3
   while runStatus == 3 do
      onTimeStep()
      sleep(mainLoopTimeout)
   end
   do
      local s, e = pcall(onMainCleanup)
      runStatus = runStatus - 1
      while runStatus == 1 do
         sleep(10)
      end
      if not s then error(e) end
   end
end

return {
   { classcode = "TQBR", seccode = "SBER" },
   { classcode = "TQBR", seccode = "GAZP" },
   { classcode = "TQBR", seccode = "GMKN" },
   { classcode = "SPBFUT", seccode = "RIZ1" },
}

-- COMMANDS
-----------

-- comment
message('Command 1')

-- another comment
local function cmd2(txt)
  message('Command 2: ' .. txt or '')
end

cmd2('hello')
cmd2('world')
-- cmd2('commented out')

-- SECURITIES
-------------

inSecList =
{
  { classcode = "TQBR", seccode = "SBER" },
  -- NOTE: the next line is commented out
  -- { classcode = "TQBR", seccode = "GAZP" },
  { classcode = "TQBR", seccode = "GMKN" },
  { classcode = "SPBFUT", seccode = "RIZ1" }
}

-- COMMANDS (again)
-------------------

message('Command 3')

require(GetScriptPath() .. '\\IN.lua')

local for_OnParam = 2
local N_OnParam = 0
IsRun = true

function OnParam(p1, p2)
   for i = 1, for_OnParam do 
      N_OnParam = N_OnParam + 1                                                                              
   end
end

function main()
   while IsRun do 
    do
      local OnParam_begin = N_OnParam   
      local J = 100000000   
      while ( J > 0  )   do   J = J - 1  end
      if N_OnParam ~= OnParam_begin then
         message ( ' Переключение колбека и потока main:  N_OnParam - OnParam_begin = ' .. tostring(N_OnParam - OnParam_begin))
      end      
   end
   sleep(10)  
   end
end   
   
function OnStop()
   IsRun = false
   return 10000   
end