local   run   =     true  

  -- global table  
tgl   =   {}
setmetatable(tgl, { __gc   =     function  ()   message  (  "global __gc"  )   end   })

  -- chunk-level table  
  local   tcl   =   {}
setmetatable(tcl, { __gc   =     function  ()   message  (  "chunk-level __gc"  )   end   })

  function    OnStop ()
   run   =     false  
  end  

  function    OnInit ()
     -- function-level table  
     local   tfl   =   {}
   setmetatable(tfl, { __gc   =     function  ()   message  (  "function-level __gc"  )   end   })
     do  
        -- block-level table  
        local   tbl   =   {}
      setmetatable(tbl, { __gc   =     function  ()   message  (  "block-level __gc"  )   end   })
        -- now raise an error  
      error(  "error from OnInit"  )
     end  
  end  

  function    main ()
     while   run   do  
        sleep  (  1000  )
     end  
  end  
    

   local  run  =   true 

 -- global table 
tgl  =  {}
setmetatable(tgl, { __gc  =   function ()  message ( "global __gc" )  end  })

 -- chunk-level table 
 local  tcl  =  {}
setmetatable(tcl, { __gc  =   function ()  message ( "chunk-level __gc" )  end  })

 function   OnStop ()
   run  =   false 
 end 

 function   OnInit ()
    -- function-level table 
    local  tfl  =  {}
   setmetatable(tfl, { __gc  =   function ()  message ( "function-level __gc" )  end  })
    do 
       -- block-level table 
       local  tbl  =  {}
      setmetatable(tbl, { __gc  =   function ()  message ( "block-level __gc" )  end  })
       -- now raise an error 
      error( "error from OnInit" )
    end 
 end 

 function   main ()
    while  run  do 
       sleep ( 1000 )
    end 
 end 
  

require(mod1)
require(mod2)  -- Тут возникает ошибка загрузки модуля

function main()
  ...
end

Добрый день, Anton!
     
      Действительно, при вызове ошибки в OnInit  lua statement не       закрывается. Исправим данную ошибку в очередном обновлении ПО.

local run = true

-- global table
tgl = {}
setmetatable(tgl, { __gc = function() message("global __gc") end })

-- chunk-level table
local tcl = {}
setmetatable(tcl, { __gc = function() message("chunk-level __gc") end })

function OnStop()
   run = false
end

function OnInit()
   -- function-level table
   local tfl = {}
   setmetatable(tfl, { __gc = function() message("function-level __gc") end })
   do
      -- block-level table
      local tbl = {}
      setmetatable(tbl, { __gc = function() message("block-level __gc") end })
      -- now raise an error
      error("error from OnInit")
   end
end

function main()
   while run do
      sleep(1000)
   end
end

Добрый день,
     
      Действительно, есть ошибка закрытия LUA стейтмента при       синтаксических ошибках в скриптах. Мы исправим ошибку в ближайшем       обновлении ПО.
   

-- global table
gtbl = {}
setmetatable(gtbl, { __gc = function() message("gc global level") end })

-- chunk-level table
local stbl = {}
setmetatable(stbl, { __gc = function() message("gc chunk level") end })

function OnInit()
   message("OnInit")
   -- error("OnInit error")
end

function main()
   message("main")
   local ltbl = {}
   setmetatable(ltbl, { __gc = function() message("gc function level") end })
   error("main error")
end

local function safecall(fn, ...)
   local a
   if nil == arg then a = nil else a = unpack(arg) end
   local s, e = pcall(fn, a);
   if not s then
      _G = nil
      collectgarbage()
      error(e)
   end
end

OnI nit = function()
   safecall(function()
      message("OnInit")
      --error("error in OnInit")
   end)
end

main = function()
   safecall(function()
      message("main")
      local ltbl = {}
      setmetatable(ltbl, { __gc = function() message("ltbl finalizer") end })
      error("error in main")
   end)
end

function main()
  t = {}
  for i = 1, 10000000 do
    t[i] = i
  end
  local a = b + 1
end

   function   OnCandle (index)
 end 

 function   OnStop ()
   is_run  =   false 
 end 

 function   main ()
   collectgarbage ( "setpause" , 50 )
   collectgarbage ( "setstepmul" , 300 )
   class =  "SPBFUT" 
   name =  "SiM0" 
   ds_chan =  CreateDataSource (class, name, INTERVAL_M1)
   ds_chan: SetUpdateCallback (OnCandle)
   is_run =  true 
    while  is_run  do 
       local  t  =   "" 
       local  a  =  tostring( getInfoParam ( "SERVERTIME" ))
       for  s  in  a:gmatch( '%d+' )  do 
         t = t .. s
       end 
       --sleep(15) 
    end  
   ds_chan: Close ()
 end