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

function backticks_table(cmd)
   local tab = {}
   local pipe = assert(io.popen(cmd),
      "backticks_table(" .. cmd .. ") failed.")
   local line = pipe:read("*line")
   while line do
      table.insert(tab, line)
      line = pipe:read("*line")
   end
   return tab
end



for k, v in ipairs(backticks_table("ping google.com"), k) do
print(v)
end
 

function log:info(t)
   self:log(t, 1)
end 

function OnOrder(trans_order)
PrintDbgStr("В онордере прошло событие flag ="..tostring(flag))
PrintDbgStr("статус в онордере " .. tostring(coroutine.status(co)))
--if coroutine.status(co) == "running" then coroutine.resume(co) end
   if flag and trans_order["sec_code"] == SECCODE and trans_order["brokerref"] == COMMENT_ALL and trans_order["class_code"] == CLASSCODE then 
      table.sinsert(ORDER_TABLE,1,trans_order) 
      PrintDbgStr("Прошли по условию в онордер")
      flag = false
      --if coroutine.status(co) == "normal" or coroutine.status(co) == "suspended" then coroutine.resume(co) end
      coroutine.resume(co)
   end
end
 

function bots()
   PrintDbgStr("В BOTS скрипте даем команду на продажу")
   PrintDbgStr(tostring(coroutine.status(co)))
   --_SellOpt(TRID_TRADE,2000,QTY,MODE,COMMENT_ALL)
   flag = true
   _SellOpt(TRID_TRADE,2000,QTY,MODE,COMMENT_ALL)
   PrintDbgStr("BOTS залип после продажи")
   coroutine.yield()
   PrintDbgStr("BOTS отлип после продажи")
   --sleep (5000)
   PrintDbgStr("приступаем к удалению")
   PrintDbgStr(tostring(coroutine.status(co)))
   --sleep(1000)
   
   num2 = _GetActiveOrdersNum()[1]
   PrintDbgStr("Выставлена заявка №".. tostring(num2))
   flag = true
   _KillOrder(num2,TRID_KILL)
   PrintDbgStr("BOTS залип после удаления")
   coroutine.yield()
   PrintDbgStr("BOTS отлип после удаления")
   --coroutine.resume(co)
end

is_run=true
flag = true


PrintDbgStr(COMMENT_ALL..": Инициализация прошла")
co = coroutine.create(bots)

function main( ... )
first = true


PrintDbgStr(tostring(coroutine.status(co)))
   while is_run do   
      PrintDbgStr("В основном скрипте пошел прогон")
      PrintDbgStr(tostring(coroutine.status(co)))
      if first then coroutine.resume(co)
         first = false
         end

      if coroutine.status(co) == "dead" then 
         co = coroutine.create(bots)
      end
      
      PrintDbgStr(tostring(coroutine.status(co)))

      sleep(200)
   end

end
 

 function _SellOpt(trid,price,qty,mode,comment)
   -----------
   local command =---------
   PrintDbgStr(COMMENT_ALL..": Отправляю команду в терминал на Продажу _SellOpt(trid,price,qty,mode,comment)")
   local _commToQuik = sendTransaction(command)
   return 0
end

function OnOrder(trans_order)
PrintDbgStr("В онордере прошло событие ")
   if trans_order["sec_code"] == SECCODE and trans_order["brokerref"] == COMMENT_ALL and trans_order["class_code"] == CLASSCODE then table.sinsert(ORDER_TABLE,1,trans_order) 
      is_run = false
      coroutine.resume(co)
   end
end

function bots()
   PrintDbgStr("В BOTS скрипте даем команду на продажу")
   _SellOpt(TRID_TRADE,2000,QTY,MODE,COMMENT_ALL)
   PrintDbgStr("BOTS залип")
   coroutine.yield()
   PrintDbgStr("BOTS отлип")
end

function main( ... )
   while is_run do   
      PrintDbgStr("В основном скрипте пошел прогон")
      co = coroutine.create(bots())
      sleep(2000)
   end
end

attempt to yield across metamethod/C-call boundary 

00000001   12:23:37   [7844] SR6500BF5//SCRYPT: Инициализация прошла   
00000002   12:23:37   [7844] В основном скрипте пошел прогон   
00000003   12:23:37   [7844] В BOTS скрипте даем команду на продажу   
00000004   12:23:37   [7844] SR6500BF5//SCRYPT: Проверка цены на существенный выход. Цена в установленных пределах _VerifyPriceToTheor(price,direction)   
00000005   12:23:37   [7844] SR6500BF5//SCRYPT: Отправляю команду в терминал на Продажу _SellOpt(trid,price,qty,mode,comment)   
00000006   12:23:37   [7844] BOTS залип