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

local run = true
local nnn = 5000000

function OnStop()
   run = false
end

function OnParam(cls, sec)
   local str = cls or '' .. sec or ''
end

function main()

   message('TEST running, wait a bit')

   sleep(1000)

   local t1 = os.clock() * 1000
   for i = 1, nnn do
      OnParam('TQBR', 'SBER')
   end
   t1 = os.clock() * 1000 - t1

   local t2 = os.clock() * 1000
   for i = 1, nnn do
      collectgarbage('stop')
      OnParam('TQBR', 'SBER')
      collectgarbage('restart')
   end
   t2 = os.clock() * 1000 - t2

   local t2x = os.clock() * 1000
   for i = 1, nnn do
      local _ = isConnected()
      OnParam('TQBR', 'SBER')
      _ = isConnected()
   end
   t2x = os.clock() * 1000 - t2x

   local t2y = os.clock() * 1000
   for i = 1, nnn do
      sleep(0)
      OnParam('TQBR', 'SBER')
      sleep(0)
   end
   t2y = os.clock() * 1000 - t2y

   for i = 1, 1000000 do
      _G['var' .. i] = { _ = i}
   end

   local t3 = os.clock() * 1000
   for i = 1, nnn do
      OnParam('TQBR', 'SBER')
   end
   t3 = os.clock() * 1000 - t3

   local t3x = os.clock() * 1000
   for i = 1, nnn do
      local _ = isConnected()
      OnParam('TQBR', 'SBER')
      _ = isConnected()
   end
   t3x = os.clock() * 1000 - t3x

   local t3y = os.clock() * 1000
   for i = 1, nnn do
      sleep(0)
      OnParam('TQBR', 'SBER')
      sleep(0)
   end
   t3y = os.clock() * 1000 - t3y


   local t4 = os.clock() * 1000
   for i = 1, nnn do
      collectgarbage('stop')
      OnParam('TQBR', 'SBER')
      collectgarbage('restart')
   end
   t4 = os.clock() * 1000 - t4

   message('TEST RESULT:' ..
      '\n  gc always on, no globals:            ' .. t1 ..
      '\n  gc stopped, no globals:              ' .. t2 ..
      '\n  gc always on, no globals, c-calls:   ' .. t2x ..
      '\n  gc always on, no globals, sleeps:    ' .. t2y ..
      '\n  gc always on, many globals:          ' .. t3 ..
      '\n  gc always on, many globals, c-calls: ' .. t3x ..
      '\n  gc always on, many globals, sleeps:  ' .. t3y ..
      '\n  gc stopped, many globals:            ' .. t4)

end

function OnParam(cls, sec)
   local str = cls or '' .. sec or ''
end

function main()

   message('TEST running, wait a bit')

   sleep(1000)

   local t1 = os.clock() * 1000
   for i = 1, 1000000 do
      OnParam('TQBR', 'SBER')
   end
   t1 = os.clock() * 1000 - t1

   local t2 = os.clock() * 1000
   for i = 1, 1000000 do
      collectgarbage('stop')
      OnParam('TQBR', 'SBER')
      collectgarbage('restart')
   end
   t2 = os.clock() * 1000 - t2

   for i = 1, 1000000 do
      _G['var' .. i] = { _ = i}
   end

   local t3 = os.clock() * 1000
   for i = 1, 1000000 do
      OnParam('TQBR', 'SBER')
   end
   t3 = os.clock() * 1000 - t3

   local t4 = os.clock() * 1000
   for i = 1, 1000000 do
      collectgarbage('stop')
      OnParam('TQBR', 'SBER')
      collectgarbage('restart')
   end
   t4 = os.clock() * 1000 - t4

   message('TEST RESULT:' ..
      '\n  gc always on, no globals:   ' .. t1 ..
      '\n  gc stopped, no globals:     ' .. t2 ..
      '\n  gc always on, many globals: ' .. t3 ..
      '\n  gc stopped, many globals:   ' .. t4)

end

void OnScriptStopButtonClick()
{
    int timeout = ScriptOnStop();
    if(WAIT_TIMEOUT == WaitForSingleObject(scriptmainthread, timeout))
        TerminateThread(scriptmainthread);
    ScriptCleanup();
    NotifyMainWindow(script_stopped);
}

void OnScriptStopButtonClick()
{
    int timeout = ScriptOnStop();
    ScriptDisallowCallbacks();
    SetTimer(timeout, ScriptStopProcedure);
    NotifyMainWindow(script_stopping);
}

void ScriptStopProcedure()
{
    if(WAIT_TIMEOUT == WaitForSingleObject(scriptmainthread, 0))
        TerminateThread(scriptmainthread);
    ScriptCleanup();
    NotifyMainWindow(script_stopped);
}

function main()

-- Открывается отладочный файл лога
   File_Log_Debugger = io.open(File_Name_Log_Debugger, "w")

   while not Stopped do   
   
      Flag_Svetofor = "Red"
      
      if File_Log_Debugger and tostring(File_Log_Debugger) ~= "file (closed)" then
         File_Log_Debugger:write("Тестовая строка\n")
         File_Log_Debugger:flush()
      end -- end if

      sleep(1)
   end -- end while конец обработки цикла ожидания робота выход по останову

   Flag_Svetofor = "Green" -- вот сюда его родимого

end -- Конец функции main()

local run = true
local running = true

function OnStop()
   run = false
   while running do sleep(50) end
   running = true
end

function OnClose()
   local f = io.open(getScriptPath() .. '\\HELLO.txt', 'w')
   f:write('HELLO')
   f:flush()
   f:close()
   run = false
   while running do sleep(50) end
   running = true
   sleep(100)
end

function main()
   while run do
      sleep(100)
   end
   running = false
   while not running do sleep(50) end
end

function OnInit()
   IsRun  = true; --Скрипт запущен!
   IsStopped = false;  --------------------------<
   WrkDir = getScriptPath().."\\";
   PicDir = WrkDir.."Lua_Pict\\";
   ...
end

function main()
   ...
   DelAllLabels(GRAPF_ID);
   IsStopped = true;  ---------------------------<
end

function OnClose()
   IsRun = false;
   sleep(500); -- половина задержки мейна, потом начинаем поллинг
   while not IsStopped do sleep(50) end;
end

if(call(... if(call(... if(call... if(call(...