#include <windows.h>
#include <string>

#include <lua.hpp>


BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) {
    return TRUE;
}

std::string CheckStack(lua_State* L, std::string message = "") {
    std::string str = "";
    int top = lua_gettop(L);

    for (int i = -1; i >= 0 - top; i--) {
        std::string type_name = luaL_typename(L, i);
        std::string s = "", ls = "", t = "";

        switch (lua_type(L, i)) {
        case LUA_TNONE: t = "LUA_TNONE"; break;
        case LUA_TNIL: t = "LUA_TNIL "; break;
        case LUA_TBOOLEAN:
            s = lua_toboolean(L, i) ? "true" : "false";
            t = "LUA_TBOOLEAN ";
            break;
        case LUA_TLIGHTUSERDATA: t = "LUA_TLIGHTUSERDATA "; break;
        case LUA_TNUMBER:
            s = std::to_string(lua_tonumber(L, i));
            t = "LUA_TNUMBER ";
            break;
        case LUA_TSTRING:
            ls = lua_tostring(L, i);
            s = "\"" + ls + "\"";
            t = "LUA_TSTRING ";
            break;
        case LUA_TTABLE: t = "LUA_TTABLE "; break;
        case LUA_TFUNCTION: t = "LUA_TFUNCTION "; break;
        case LUA_TUSERDATA: t = "LUA_TUSERDATA "; break;
        case LUA_TTHREAD: t = "LUA_TTHREAD "; break;
        }

        str += "|" + std::to_string(i) + "; " + std::to_string(top + i + 1) + "| "
            + t + type_name + " " + s + "\n";
    }

#ifdef UNICODE
    MessageBoxW(NULL, str.c_str(), message.c_str(), MB_OK);
#else
    MessageBoxA(NULL, str.c_str(), message.c_str(), MB_OK);
#endif
    return str;
}

void F() {
    lua_State* L1 = luaL_newstate();
    lua_State* L2 = luaL_newstate();
    lua_newtable(L1);
    lua_newtable(L2);
    // заполняем таблицу:
    lua_pushstring(L1, "QW");
        CheckStack(L1, "1 L1");
    lua_pushnumber(L1, 11);
        CheckStack(L1, "2 L1");
    lua_settable(L1, -3);
        CheckStack(L1, "3 L1");
    // возвращаем из таблицы значение:
    lua_pushstring(L1, "QW");
        CheckStack(L1, "4 L1");
    lua_gettable(L1, -2);
        CheckStack(L1, "5 L1");
    // вводим ключ:
    lua_pushstring(L1, "QW");
        CheckStack(L1, "6 L1");
    // меняем ключ изначение местами:
    lua_insert(L1, -2);
        CheckStack(L1, "7 L1");
    // переносим ключ и значение из L1 в L2:
    lua_xmove(L1, L2, 2);
        CheckStack(L1, "8 L1");
        // на стеке L2 ключ и значение в нужном порядке!
        CheckStack(L2, "1 L2");
    // вводим ключ и значение в таблицу в L2:
    lua_settable(L2, -3);
        CheckStack(L2, "2 L2");
    // вводим ключ:
    lua_pushstring(L2, "QW");
        CheckStack(L2, "3 L2");
    // возвращаем значение:
    lua_gettable(L2, -2);
    // и - ничего не получили!
        CheckStack(L2, "4 L2");

    lua_close(L1);
    lua_close(L2);
    //==================================================
     
    // А этод код работает!
    lua_State* L3 = luaL_newstate();
    lua_State* L4 = luaL_newstate();
    lua_newtable(L3);
    lua_newtable(L4);
    // заполняем таблицу:
    lua_pushstring(L3, "QW");
    lua_pushnumber(L3, 11);
    lua_settable(L3, -3);
    // возвращаем из таблицы значение:
    lua_pushstring(L3, "QW"); 
        CheckStack(L3, "1 L3");
    // возвращаем из таблицы значение:
    lua_gettable(L3, -2);
        CheckStack(L3, "2 L3");

    // вводим ключ в L4:
    lua_pushstring(L4, "QW");
        CheckStack(L4, "1 L4");
    // переносим значение из L3 в L4:
    lua_xmove(L3, L4, 1);
        CheckStack(L4, "2 L4");
    // заполняем таблицу:
    lua_settable(L4, -3);
        CheckStack(L4, "3 L4");
    // вводим ключ:
    lua_pushstring(L4, "QW");
        CheckStack(L4, "4 L4");
    // возвращаем значение:
    lua_gettable(L4, -2);
    // всё в порядке!
        CheckStack(L4, "5 L4");

    lua_close(L3);
    lua_close(L4);
}

int Start(lua_State* L) { F(); return 0; }

static struct luaL_Reg ls_lib[] = {{ "Start", Start },{NULL, NULL}};

extern "C" __declspec(dllexport) int luaopen_LuaSt(lua_State* L) {
    luaL_newlib(L, ls_lib);
    return 1;
}

-- Переменны для замены на данные хранящиеся в настройках скрипта
local secCode = "MMZ4"

local atrID = "MXI_ATR"
local priceID = "MXI_PRICE"

--Переменные для замены на данные получаемые из терминала
local digit = 2

--Переменные глобальных таблиц и окон
local tableMain = nil
local hwndMain = nil

local isRun = true
function main()
    message("Hello. This is MambaBot",1)
    while isRun do
        if tableMain ~= nil then
            if IsWindowClosed(tableMain) then
                isRun = false
            end            
        end
        sleep(1000)
    end
    message("MambaBot has stopped")
end

function OnParam(class, sec)
    if(class=="SPBFUT" and sec==secCode) then
        if tableMain ~= nil then
            --Обновляем данные в ячеках главной таблицы
            SetCell(tableMain, 2, 1, getInfoParam("SERVERTIME"), 0)
            --message(getInfoParam("SERVERTIME"))
            local atrVal, count, legend
            atrVal, count, legend = getCandlesByIndex(atrID, 0, getNumCandles(atrID) - 1, 1)
            SetCell(tableMain, 7, 1, string.format("%." .. digit .. "f", atrVal[0].close), atrVal[0].close)

            local priceCandleVal
            priceCandleVal, count, legend = getCandlesByIndex(priceID, 0, getNumCandles(priceID) - 1, 1)
            print(count)
            SetCell(tableMain, 3, 1, string.format("%." .. digit .. "f", priceCandleVal[0].open), priceCandleVal[0].open)
            SetCell(tableMain, 4, 1, string.format("%." .. digit .. "f", priceCandleVal[0].high), priceCandleVal[0].high)
            SetCell(tableMain, 5, 1, string.format("%." .. digit .. "f", priceCandleVal[0].low), priceCandleVal[0].low)
            SetCell(tableMain, 6, 1, string.format("%." .. digit .. "f", priceCandleVal[0].close),
                priceCandleVal[0].close)
            message(string.format("%." .. digit .. "f", priceCandleVal[0].close))
        end
    end
end

function OnInit(script_path)

    tableMain = AllocTable()
    AddColumn(tableMain,0,"param",true,QTABLE_STRING_TYPE,12)
    AddColumn(tableMain,1,"value",true,QTABLE_STRING_TYPE,12)

    hwndMain = CreateWindow(tableMain)
    SetWindowCaption(tableMain,"MambaBot Main")
    local rowNum = 1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Sec code",0)
    SetCell(tableMain,rowNum,1,secCode,0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Time",0)
    SetCell(tableMain,rowNum,1,"00:00:00",0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Open",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"High",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Low",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Close",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"ATR value",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1
end

function OnStop(flag)
    if tableMain ~=nil then
        DestroyTable(tableMain)
    end
    isRun = false
    return 100
end

  sec_code = "SIBN"
  Firm_ID = "MC00025000XX"
  Kod_klienta = "4XXXN"
 ACCOUNT = "L01-00000F00"
 limit_kind = "1"
  res = getDepo(Kod_klienta, Firm_ID, sec_code, ACCOUNT)
local lots = ("depo_current_balance") 
message("Текущий остаток=" ..lots)

sec_code = "SIBN"
Firm_ID = "MC00025000XX"
Kod_klienta = "4XXXN"
ACCOUNT = "L01-00000F00"

function LB()
  n = getNumberOf("depo_limits")
  value = 0
  res = nil
  for y = 0, n-1 do
    trade = getItem("depo_limits", y)
    if (trade["client_code"] == Kod_klienta) and
      (trade["firmid"] == Firm_ID) and
      (trade["sec_code"] == sec_code) and
      (trade["trdaccid"] == ACCOUNT) and
      (trade["limit_kind"] == 2) then
        res = trade["currentbal"]
        break
      end
  end
  return res
end

message(tostring(LB()), 0)

function Init()
    func = MACD()
    return #Settings.line
end

        
  hWnd = w32.FindWindow('InfoClass', '')
  hWnd = w32.FindWindowEx(hWnd, 0, 'MDIClient', '')
  hWnd = w32.FindWindowEx(hWnd, 0, '', 'Tickers')
  hWnd = w32.FindWindowEx(hWnd, 0, '', 'Tickers')
  hWnd = w32.FindWindowEx(hWnd, 0, 'MultiList', '')

stop_or = {
     ACTION          = "NEW_STOP_ORDER", 
     STOP_ORDER_KIND = "TAKE_PROFIT_STOP_ORDER",
     OPERATION       = "S",
     ACCOUNT         = n_depo,
     CLIENT_CODE     = n_client_code,
     CLASSCODE       = n_classcode,
     SECCODE         = n_seccode,
     STOPPRICE       = tostring(a+0.1),
     PRICE           = tostring(a),
     QUANTITY        = tostring(lot),
     TRANS_ID        = tostring(n_id)
    }
result = sendTransaction(stop_or)

lua_State* L_global;
int static nummer_table_from_stack;

void SetUpdateCallcak_wrapper(lua_State* L)
{

    L_global = L;
    std::cout << "L_global_adress:" << &L_global << std::endl;


    //-----------------------------------------------------------------1-Вызовем функцию CreateDataSource:Начало--------------------------------------------
    lua_getglobal(L, "CreateDataSource");                 

    lua_pushstring(L, "TQBR");       //Добавим первый параметр функции CreateDataSource на вершину стека
    lua_pushstring(L, "SBER");          //Добавим второй параметр функции CreateDataSource на вершину стека
    lua_pushnumber(L, 1);            //Добавим третий параметр функции CreateDataSource на вершину стека

    int status_lua_pcall = lua_pcall(L, 3, 2, 0);    //Так как все необходимые параметры добавлены в стек, то вызываем функцию lua_pcall - которая использя доабвенные параметры в правильном порядке - реализует вызов функции CreateDataSource: 2-ой параметр - это число аргументов, которые мы добаили в стек и которая принимает функция CreateDataSource; 2-ой: параметр - это число параметров, которое возвращает функция CreateDataSource. После успешного выполнения lua_pcall удаляет и значение функции и переданные аргменты со стека в кол-во указанном во втором параметре(не велючая функцию) и доабвляеи результат на стек в кол-во указанном во втором параметре.
    //-----------------------------------------------------------------1-Вызовем функцию CreateDataSource:Конец--------------------------------------------



    //-------------------------------------------------------------------5-Проверка на ошибку lua_pcall:Начало---------------------------------------------------------------------
    if (status_lua_pcall != 0)
    {
        //Ошибка произошла при вызове функции lua_pcall при вызове CreateDataSource:
        std::cout << "ERROR CreateDataSource" << std::endl;
        return;
    }
    //-------------------------------------------------------------------5-Проверка на ошибку lua_pcall:Конец---------------------------------------------------------------------
    else
    {

         nummer_table_from_stack = lua_gettop(L) - 1;   //Это номер элемента в стеке L - в котором теперь размещается полученная от CreateDataSource таблица. "-1" - потому что CreateDataSource поместила на вершину стека две перменные: таблицу и переменную об ошибке. То есть таблица находить на предпоследнем месте с вершины стека.

         my_call_SetUpdateCallback(L);     //Вызываем SetUpdateCallback wrapper
    }

}

l
static void ckeck_Lua_Stack(lua_State* L)
{

    std::cout << "----------------------------------------" << std::endl;

    int top = lua_gettop(L);
    std::cout << "Total element is stack:"<< top << std::endl;

    for (int i = 1; i <= top; i++) 
    {
        int type = lua_type(L, i);

        const char* type_name = lua_typename(L, type);

        std::cout << "type:" << type_name << ":";


        if (type == LUA_TSTRING || type == LUA_TNUMBER) 
        {
            std::cout << lua_tostring(L, i) << std::endl;
        }
        else
        {
            std::cout << std::endl;
        }
    }
    std::cout << "----------------------------------------" << std::endl << std::endl;


    //std::this_thread::sleep_for(std::chrono::milliseconds(100000));

}

static int my_callback__for__SetUpdateCallback(lua_State* L)
{

//Значит произошла сделка!

    std::cout << "Number_candle:"<< lua_tonumber(L, -1) << std::endl;

    ckeck_Lua_Stack(L_global);         //Проверяем стек Lua!!! И теперь в нем находится сдедующее:

----------------------------------------
Total element is stack:1                          //Куда черт возьми делать моя ранее заказанная таблица CreateDataSource ?????
type:number:1
----------------------------------------


    return 0;

}

static void my_call_SetUpdateCallback(lua_State* L)
{

    
    //--------------------------------------------------------
    lua_getfield(L_global, nummer_table_from_stack, "SetUpdateCallback");                       //"Извлекаем" из "таблицы" функцию SetUpdateCallback.
     
    lua_pushvalue(L_global, nummer_table_from_stack);                                                       //Помещаем копию обьекта таблицы CreateDataSource на вершину стека.
    //--------------------------------------------------------


    lua_pushnumber(L_global, 555);  //Просто для примера связываю какое то любое значение для передачи в колбек. 

    lua_pushcclosure(L_global, my_callback__for__SetUpdateCallback, 1);       //Захватываем.


    //--------------------------------------------------------
    int status_lua_pcall = lua_pcall(L_global, 2, 0, 0);                  //Реализауем вызов функции SetUpdateCallback с аргументом таблицы, которую поместили на вершину стека 
    //--------------------------------------------------------
    

    if (status_lua_pcall != 0)
    {
        std::cout << "lua_pcall__ERROR" << std::endl;
        return; 
    }
    else
    {
        std::cout << "SetUpdateCallback Success Call" << std::endl;
        
        ckeck_Lua_Stack(L_global);       //Проверяю что находится на данный момент в стеке Lua.

       //Находится следующее:

 ----------------------------------------
Total element is stack:3
type:string:1     //Таблица глобьальный функций
type:table:        //Это как раз запрошенная таблица CreateDataSource
type:nil:            //Ошибка при запросе таблицы CreateDataSource - то есть nil - ошибки нет.
----------------------------------------

        return;
    }


}

function last_order()
  local last_order = {}
  local n = getNumberOf("orders")

  while n > 0 do
    local order = getItem("orders", n-1)
    if order.sec_code == n_seccode
         and order.trans_id == n_id 
    then
       last_order = order
       break
       n = n - 1
    end

  end

  return last_order
end