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

   local tbl =  {
                       ['Тикер'] = 'SBER'
           , [{ 1, 2, 3}] = { 'QUIK'}
           , TOBR =  {6, 8, 4, {1, 2, 3 }}
           , 'Сохранение таблицы'
           , ok = true
                    }
-- Сохранение таблицы --
  local str = tbl_to_string (tbl)  
  message ( str )   -- в str строковый образ таблицы  ---
 -- Восстановление таблицы ---
   local tbl1 = string_to_tbl (str)   --- в tbl1 восстановленная таблица 

-----  Конвертация таблицы в строку (сереализация) ------
-- Преобразование таблицы без ее метатаблицы (ключи и значения : table, boolean, number, string) в текстовое представление
-- в соответствии с синтаксисом языка lua  ---
----    Можно использовать для сохранения таблиц в текстовом виде, с возможностью последующего восстановления
--      со следующими ! ограничениями:
--       1) ключи и значения : table, boolean, number, string;
--       2) все элементы таблицы (ключи и значения) типа table должны быть уникальными (в пределах таблицы).
------  Параметры: 1) t  -  таблица (обрабатываются все вложения );  
--                          2) i  -  начальная строка формирования отступа при выводе вложений (например, " ");  если i = '', то строки таблицы выводятся без отступов  
-- Результат (! два): 1) строка (тремя звездочками помечены проблемные места);  2)  количество записей, которые  нельзя представить в текстовом виде
-- с последующим восстановлением  ----
---------
local function tbl_to_string(t, i)
  if type(t) ~= "table" then
        return nil
  end
  i = i or ' '
  local key_tbl_stateOS= "--таблица: "
  local tab = "\t"
  if i == '' then tab ='' end
  local ltime_str =GetLocalTimeMls()
  local tbl = {}  ---   для результата  ----
  local no_unpack =0
   -----------
  local function dump(t, i, seen)      ---------
       if seen then
       if seen[t] then
          return seen[t]
       end
tbl[#tbl +1] = " { -- " .. tostring(t) .. "\n"
else
    seen={} --  просмотренные --
    tbl[#tbl +1] = "{" .. key_tbl_stateOS .. string.format("%.0f", ltime_str) .. " -- время создания \n"
end
       seen[t] = tostring (t)
if debug.getmetatable ( t )  then  no_unpack = no_unpack + 1;   tbl [#tbl +1] = i .. ' --- *** У таблицы ' .. tostring(t) .. ' есть метатаблица, которая в функции tbl_to_string не обрабатывается \n' end
local bracket = true  -- скобка  (начало) ---
--
       for k,v in next, t do
       if type(k) == "table" then
                   if bracket then  tbl [#tbl +1] = i .. " [\n"; bracket = false else tbl [#tbl +1] = i .. ", [\n" end
   if  dump(k, i .. tab, seen) then
                   tbl [#tbl +1] = "*** -> " .. tostring (k) .. '\n'
   no_unpack = no_unpack + 1
end
tbl [#tbl +1] = i .. " ] = "
else
                   if bracket then  tbl [#tbl +1] = i .. " [ "; bracket = false else tbl [#tbl +1] = i .. ", [ " end
if type(k) == "function"  or type(k) == "userdata" or type(k) == "thread"  then
  tbl [#tbl +1] = "*** " .. type(k)
  no_unpack = no_unpack + 1
   end
   if type(k) == "string"  then
           tbl [#tbl +1] = "'".. tostring(k) .. "'"
   else
                       tbl [#tbl +1] = tostring(k)
       end
tbl [#tbl +1] = " ] = "
               end

               if type(v) == "table" then
if  seen[v] then
           tbl [#tbl +1] = "*** -> " .. tostring(v) .. '\n'
   no_unpack = no_unpack + 1
else
                       dump(v, i .. tab, seen)  ---
   end
else
   if type(v) == "function"  or type(v) == "userdata" or type(v) == "thread" then
   no_unpack = no_unpack +1
tbl [#tbl +1] = "*** " .. tostring(v) .. '\n'
else
   if type(v) == "string"  then
        tbl [#tbl +1]= '"' .. v .. '" \n'
   else
                            tbl [#tbl +1] = tostring(v) .. "\n"
   end
end
end
       end
--
tbl[#tbl +1] = i .. " } \n"
   end
---------------------
   dump(t,i)
tbl[#tbl] = i .. "}".. key_tbl_stateOS .. string.format("%.0f", ltime_str) .. "\n" --- !!! заменяется последняя фугурная скобка ---
return  table.concat ( tbl), no_unpack    ----- Результат: 1) строка ;  2)  количество значений, не представимых в текстовом виде  ----
end
-----
---- Преобразование сереализованной таблицы (строки) в таблицу Lua (десереализация)  --------------------
--- Результат:  таблица  Lua   ------
function string_to_tbl (str_tbl)
--    message (" string_to_tbl ", "return " ..  str_tbl )
   if str_tbl:find("{") == nil then return nil end  ---  если в строке str_tbl нет {
local tbl , err_tbl = load ("return " ..  str_tbl )         ----    assert (load_OS ( "retur " .. 4))   -- $$$$
   if  err_tbl ~= nil  then
message (" string_to_tbl ", "!!! Ошибка в синтаксисе таблицы:  "  .. str_tbl)  --- err_tbl)
return nil
end
return  tbl()
end
----

local function OnStop()
 f=false;
end;

local function f4(i)
 message("Истёк интервал "..i.." сек");
end;

local function f17(i)
 message("Интервал "..i.." сек");
end;

local function f35(i)
 message("Обрабатываем интервал "..i.." сек");
end;

f=true;

function main()
 local x
 ----  Таймеры задаются в порядке увеличения их интервалов, в виде {<Интервал таймера>, <Функция обработки таймера>, <Вычисляемое время запуска функции>}
 t={{4, f4, 0}, {17, f17, 0},{35, f35, 0} }    -- Начальное состояние (можно задать и другое в третьей записи таймера). Можно добавлять таймеров (с разрешением 1 сек.) сколько надо --
 x=os.time()
 for i=1,#t do t[i][3] = x + t[i][1]  end
 message("Начало");
 while f==true do
   x=os.time();
   for i=1,#t do 
     if  x >= t[i][3] then 
    t[i][3] = x + t[i][1]   --- !! Если существенна обработка пропущенных интервалов, то:t [i][3] = t[i][3] + t[i][1]
         t[i][2]( t[i][1] )
     end
   end
   sleep(1000);
 end;
end;

message (' !!! Начало теста  ')
---  Параметры теста  ---
local n = 10000  --  количество переменных используемых в тесте
local for_OnParam = 10  --- Цикл нагрузки в OnParam  ---
local N = 10000  --- Цикл моделирования вызова колбеков ---
------
for i = 1, n do
  _G["f"..i] = i               -- function () end
end
------------

function OnParam(p1, p2)
    local str 
    for i = 1, for_OnParam do   --- нагрузка 
        str ='fiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii  gggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg   шшшшшшшшшшшшшшшшшшшш' .. i
   end
end
-----
message ('Область основного потока QUIK. isrunning  = ' .. tostring(collectgarbage ("isrunning")))
--------
IsRun = true
function main()
    local J
    local OnParam_begin   
   message ('Область main  isrunning = ' .. tostring(collectgarbage ("isrunning")))
---[[
    ------------------------
   --  Фрагмент моделирования обработки колбеков без дергания мусорщика 
    local T = os.clock() * 1000
    for i = 1, N do 
      OnParam ()
   end
   message ('Область main  isrunning после цикла вызова OnParam без дергания мусорщика ' .. tostring(collectgarbage ("isrunning")) .. '.  Длительность цикла: ' .. os.clock() * 1000 - T)
   ------------------------
   --  Фрагмент моделирования обработки колбеков с дерганием мусорщика 
   --               !! Если у разработчика QUIK есть замечания, напишите комментарий.
   T = os.clock() * 1000
    for i = 1, N do 
       collectgarbage ("stop") 
      OnParam ()
      collectgarbage ("step") 
      collectgarbage ("restart")  
   end
   message ('Область main  isrunning после цикла вызова OnParam с дерганием мусорщика ' .. tostring(collectgarbage ("isrunning")) .. '.  Длительность цикла: ' .. os.clock() * 1000 - T)
    ------------------------------------------------
--]]   
    while IsRun do 
      -----
        sleep(1000)  
    end
    ------------------
end   
   
function OnStop()
     IsRun = false
    return 10000   
end