Андрей (Все сообщения пользователя)

main = function()
   class_code = "SPBFUT";
   sec_code = "RIU8";

   ds, Error = CreateDataSource(class_code, sec_code, 0)
   while (Error == "" or Error == nil) and ds:Size() == 0 do sleep(1) end; -- вот в этом цикле зависает скрипт если во внерабочее время запустить данный пример. Зависает из за того что size() == 0
   ds:SetEmptyCallback();

   message("Источник создан");
end;

void msg_ToQuik(lua_State *L, std::string msg, int num)
{
   lua_settop(L, 0);
   lua_getglobal(L, "message");
   lua_pushfstring(L, msg.c_str());
   lua_pushnumber(L, num);
   lua_call(L, 2, 0);
}

function main()
   for i = getNumberOf("orders")-1,0,-1 do
      T = getItem("orders",i);
      if T.sec_code == "ROSN" and
         bit.test(T.flags,0) then
         message(tostring(T.order_num));
      end;
   end;
end;

#include <Windows.h>
#include <thread>

#define LUA_LIB
#define LUA_BUILD_AS_DLL
extern "C" {
#include "Lua\lauxlib.h"
#include "Lua\lua.h"
}




BOOL APIENTRY DllMain(HANDLE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
   return TRUE;
}

static struct luaL_reg ls_lib[] = {
   { NULL, NULL }
};

#include <bitset>
extern "C" LUALIB_API int luaopen_test_addition(lua_State *L)
{
   auto _test = [](int bit_num, int bit_test)
   {
      std::bitset<16> bits(bit_num);

      return bits[bit_test] == 1;
   };
   lua_settop(L, 0);
   lua_getglobal(L, "getNumberOf");
   lua_pushfstring(L, "orders");
   lua_call(L, 1, 1);

   int length = (int)lua_tonumber(L, -1);
   lua_settop(L, 0);
   for (size_t i = 0; i < length; i++)
   {
      lua_getglobal(L, "getItem");
      lua_pushfstring(L, "orders");
      lua_pushnumber(L, i);
      lua_call(L,2,1);

      lua_getfield(L, -1, "sec_code");
      std::string sc = lua_tostring(L, -1);
      lua_remove(L, -1);
      lua_getfield(L, -1, "flags");
      int f = lua_tonumber(L, -1);
      lua_remove(L, -1);

      if (sc.compare("ROSN") == 0 && _test(f, 0))
      {
         lua_getfield(L, -1, "order_num");
         int N = lua_tonumber(L, -1);
         lua_remove(L, -1);

         msg_ToQuik(L, std::to_string(N), 1);
      }
      lua_settop(L, 0);
   }

   return 0;
}

struct Symb_data
{
   std::string class_code;
   std::string sec_code;
   std::string account;
   TF timeFrame; // Текущий таймфрейм
};

double count_time_diff(std::chrono::time_point<std::chrono::system_clock> t)
{
   auto end = std::chrono::system_clock::now();
   std::chrono::duration<double> elapsed_seconds = end - t;

   return elapsed_seconds.count();
}

bool deleteOrder(Symb_data params, int order_num, bool is_stopOrder, lua_State *L)
{
   lua_settop(L, 0);

   bool ans = false;

   Ttransaction T(L, params);

   int trans_id = T.trans_id();
   T.classcode();
   T.seccode();

   if (is_stopOrder)
   {
      T.action(order_Action::KILL_STOP_ORDER);
      T.stop_order_key(order_num);
   }
   else
   {
      T.action(order_Action::KILL_ORDER);
      T.order_key(order_num);
   }

   std::string res = sendTransaction(T);

   if (res.compare("") == 0)
   {
      ans = true;
      auto doLoop = [&]()
      {
         bool ans = false;
         std::vector<OrderData> orders;
         if (get_Orders_Info(orders, params))
         {
            for (size_t i = 0; i < orders.size(); i++)
            {
               if (orders[i].trans_ID == trans_id)
               {
                  ans = true;
                  break;
               }
            }
         }
         return ans;
      };
      auto start = std::chrono::system_clock::now();
      while (count_time_diff(start) <= 30 && doLoop())
      {
         Sleep(1);
      }
      if (doLoop())
         ans = false;
   }
   else
   {
      res = "Ошибка удаления ордера:\n " + res;
      msg_ToQuik(L, res, 3);
   }

   return ans;
}

function main()
   for i = getNumberOf("orders")-1,0,-1 do
      T = getItem("orders",i);
      if T.sec_code == "SiM8" and
         bit.test(T.flags,0) then
         message(tostring(T.order_date_time));
      end;
   end;
end;

DS = {};

function main()

   DS.oi, err = CreateDataSource("SPBFUT", "RIM8", 1440,"numtrades");
   while (err == "" or err == nil) and DS.oi:Size() == 0 do sleep(1) end;
   message(tostring(DS.oi:Size()));

end;

main = function()
   class_code = "SPBFUT";
   sec_code = "RIM8";

   ds, Error = CreateDataSource(class_code, sec_code, 0)
   while (Error == "" or Error == nil) and ds:Size() == 0 do sleep(1) end;
   ds:SetEmptyCallback();

   
end;

function main()

   S = "Hello,World";
   
   res = S:split(",");
   message(res[1]);
   message(res[2]);
   
end;

function string:split(delimiter)
    local result = { }
    local from  = 1
    local delim_from, delim_to = string.find( self, delimiter, from  )
    while delim_from do
        table.insert( result, string.sub( self, from , delim_from-1 ) )
        from  = delim_to + 1
        delim_from, delim_to = string.find( self, delimiter, from  )
    end
    table.insert( result, string.sub( self, from  ) )
    return result
end

function main()
    local s1={};
    S = "Hello//World";
    s1=S:split("//");
    message(sl[1]);
    message(sl[2]);
end

function string:split(delimiter)  
    local result = { }  
    local from  = 1  
    local delim_from, delim_to = string.find( self, delimiter, from  )  
    while delim_from do    
        table.insert( result, string.sub( self, from , delim_from-1 ) )    
        from  = delim_to + 1    
        delim_from, delim_to = string.find( self, delimiter, from  )  
    end  
    table.insert( result, string.sub( self, from  ) )  
    return result
end

function string:split(delimiter)  
    local result = { }  
    local from  = 1  
    local delim_from, 
    delim_to = string.find( self, delimiter, from  )  
    while delim_from do    
        table.insert( result, string.sub( self, from , delim_from-1 ) )    
        from  = delim_to + 1    
        delim_from, delim_to = string.find( self, delimiter, from  )  
    end  
    table.insert( result, string.sub( self, from  ) )  
    return result
end