Очереди и двойные очереди в луа

2024-01-08 18:29:05 [TNSE] ENTER: tf=6 delta=-2.27 mean2=3740 mean1=3655 offer=3670 price=3665
2024-01-08 18:29:05 [TNSE] ORDER TID=10000009 op=B price=3665 qty=1
2024-01-08 18:29:41 [TNSE] TRADE TID=10000009 разовая покупка qty=1 price=3665 role=maker

2024-01-09 10:02:34 [TNSE] stop=3115 (initial)
2024-01-09 10:02:34 [TNSE] закрытие по достижению целевой доходности:
- yield=1308.55
- bid=3755, qty=1, lot=1
- sigma0=3666.832500
- tau=55973
2024-01-09 10:02:34 [TNSE] ORDER TID=10000002 op=S price=3755 qty=1
2024-01-09 10:02:34 [TNSE] TRADE TID=10000002 разовая продажа qty=1 price=3755 role=taker
2024-01-09 10:02:34 [TNSE] сделка закрыта (role=taker), результат: 85.16

function value2text(t,s)  --преобразование таблицы в скрипт
   local s1=""; --новое значение
   local n=string.len(s); local z=string.sub(s,n);
   local m= type(t);
   if m=="string" then
      s1='"'..tostring(t)..'"';  elseif m=="number" then s1=tonumber(t);  elseif t==nil then s1="nil";
   elseif m=="table" then local f;
      for j,v in pairs(t) do
         local x=v;
         if f then s1=s1.."," end  f=1;
         if  type(j)~="number" then    s1=s1..'\n["'..tostring(j)..'"]='; end
         s1=value2text(x,s1);
      end
      if z=='}' then s1='\n{'..s1..'}'; else s1='{'..s1..'}' end
   end
 return s..s1;
end

--------------------  это пример вывода и загрузки с распечаткой значений из таблиц
local t2={6,7,8,9}
local t={1,2,3,4,5,"asd",t2}  -- это таблица которую выводим в файл
----------вывод в файл
local fn=p3.."test999.lua"
fLog=io.open(fn,"w"); fLog:write("t1="..value2text(t,"").."\n");fLog:flush()
fLog:close();
-----------ввод из файла
dofile(fn);
----------------прочитали таблицу из файла в таблицу t1
--теперь печатаем из введенной таблицы значения и сравниваем их со значениями в t2 и t
local t3=t1[7]
local s1=t1[6];
print(t1[1],s1,t3[3])

t1={1,2,3,4,5,"asd",{6,7,8,9}}

1   asd   8

local Order={}
function Order:new() -- проинициализируем поля, процедуры и фунции нашего класса 
   ---- Создает экземпляр теперь уже объекта, описывает поля объекта и присваивает полям начальные значения.
      local obj = {
               [0]=0,
               ['id']=0,--['symbol']='X',
               [1]={
                   ['d']='0',
                   ['t']='0',
                   ['dir']='X',
                   ['qty']=0,
                   ['op']=0,
                   ['id']=0
                   },
            };
   ----далее превращаем таблицу в класс
   setmetatable(obj,self) 
   ---- объект получает доступ к методам класса
   self.__index = self
   ---- возвращаем наш объект (экземпляр класса)
   return obj 
end 
function Order:save(path)   -- пишем
    table.save(self,path) 
end

local order=Order:new()
order:save(path..'\\1.dat')
order:printf()
local ord = table.read(path..'\\1.dat')
Log:info( 'table.read '..type(ord)..' '..tostring(ord[0])..' '..tostring(ord.id) )