-- получается адрес рабочей папки
Adress_Work_DIR = getScriptPath()

-- Добавляется к переменной поиска окружения адрес папки скрипта,
-- чтобы интерпретатор знал, где искать модули
package.path = package.path..";"..Adress_Work_DIR.."\\?.lua"

require "stand_mod"
require "init_mod"
require "scan_mod"
require "quik_mod"

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);
}

Stopped = false

-- для имени файла отладки
File_Name_Log_Debugger = "Log_test_OnStop.txt"

-- для сигнала, что main() готово к завершению
Flag_Svetofor = "Green"

function OnStop()      

   Stopped = true
   while tostring(Flag_Svetofor) == "Red" do 
      sleep(0)
   end

end                  -- конец функции обратного вызова OnStop()

function main()

-- Запрещается функции OnStop() остановка скрипта в теле цикла
   Flag_Svetofor = "Red"

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

   while not Stopped do   
      
      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(0)
   end -- end while конец обработки цикла ожидания робота выход по останову   

   File_Log_Debugger:close() -- закрывается файл отладчика      
   
   Flag_Svetofor = "Green"
   
end -- Конец функции main()

Stopped = false

-- для имени файла отладки
File_Name_Log_Debugger = "Log_test_OnStop.txt"

-- для сигнала, что main() готово к завершению
Flag_Svetofor = "Green"

function OnStop()      

   Stopped = true
   while tostring(Flag_Svetofor) == "Red" do 
      sleep(0)
   end
   File_Log_Debugger:close() -- закрывается файл отладчика   

return 0   
end                  -- конец функции обратного вызова OnStop()

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()

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()

Stopped = false

-- для имени файла отладки
File_Name_Log_Debugger = "Log_test_OnStop.txt"

-- для сигнала, что main() готово к завершению
Flag_Svetofor = "Green"

function OnStop()      

   Stopped = true
   while tostring(Flag_Svetofor) == "Red" do 
      sleep(0)
   end
   File_Log_Debugger:close() -- закрывается файл отладчика   

return 0   
end                  -- конец функции обратного вызова OnStop()

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

      Flag_Svetofor = "Green"
      sleep(1)
   end -- end while конец обработки цикла ожидания робота выход по останову   
   
end -- Конец функции main()