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

function main()

Quik_Lua_connector= require("Quik_Lua_connector")    

Quik_Lua_connector.run_Cpp() 

-------------------------
while not stopped do 
sleep(1)
end 
-------------------------
end

static int run_Cpp(lua_State* Lua_main) 
{

lua_State* L = lua_newthread(L_);

std::cout << "SIZE_MAIN_STACK:" << lua_gettop(L_) << std::endl;
lua_close(L);            //Квик тупо ЗАКРЫВАЕТСЯ
std::cout << "SIZE_MAIN_STACK:" << lua_gettop(L_) << std::endl;
}

function main()

Quik_Lua_connector= require("Quil_Lua_connector_work_TEST")    

Quik_Lua_connector.TestFunc_run_WinConsole_for_dll()

Quik_Lua_connector.run_Cpp() 

-------------------------
while not stopped do 
sleep(1)
end 
-------------------------
end

static int run_Cpp(lua_State* Lua_stek)
{

    lua_State* L = luaL_newstate();

    if (L == NULL)
    {
        std::cout << "L == NULL" << std::endl;    //Ошибки нет.
    }

lua_getglobal(L, "CreateDataSource");           

lua_pushstring(L, "TQBR");    
lua_pushstring(L, "GAZP");         
lua_pushnumber(L, "INTERVAL_MN1");                

std::cout << "Size_stack:" << lua_gettop(L) << std::endl;   //Размер 4 - как и должно быть

int status_lua_pcall = lua_pcall(L, 3, 2, 0);   
    
if(status_lua_pcall  != 0)
{
std::cout<<"Error"<<std::endl;   //attempt to call a nil value
}

}

function my_callback_(index)

--index - индекс свечи в таблице my_table, НО сама таблица по умолчанию не приходит, что просто дикость.

end


local my_table = CreateDataSource(code_class, code_paper_ interval)

my_table :SetUpdateCallback(my_callback_)

function my_callback_(my_table_, param1, param2, index)

--Теперь тут доступны переданные дополнительные параметры...my_table_, param1, param2 - помимо стандартного index

end


local my_table = CreateDataSource(code_class, code_paper_ interval)

parametr_1 = "1"
parametr_2 = "2"

my_table :SetUpdateCallback(function(idx)my_callback_(my_table,parametr_1, parametr_2, idx) end)

    lua_getfield(L, index, "SetUpdateCallback");                    //"Извлекаем" из "таблицы" функцию SetUpdateCallback.

    lua_pushvalue(L, index);                                        //Помещаем копию обьекта таблицы на вершину стека.

    lua_pushcfunction(L, my_callback_);                       //Помещаем имя Сишой callback функции таблицы на вершину стека.

    int status_lua_pcall = lua_pcall(L, 2, 0, 0);              //Реализую вызов метода SetUpdateCallback

static int my_callback_(lua_State* L)
{
    std::cout << "my_callback_:" << lua_gettop(L) << std::endl;

    status = lua_isstring(L, 1);
    if (status == 1)
    {
          std::cout<< "lua_isstring:"<< lua_tostring(L,1) << std::endl ;
    }
    return 0;
}

1
2
3
4
5
6
...
итд

local my_table_= CreateDataSource(code_class_, code_paper_, interval)

my_table_:SetUpdateCallback(function(idx)my_callback_(my_table_, code_class_, code_paper_, interval) end)

function my_callback_(my_table_, code_class, code_paper, interval)
...код

end

//В L - на вершине стека уже находится таблица возвращенная CreateDataSource.

lua_getfield(L, -1, "SetUpdateCallback");          //"Извлекаем" на вершину стека из "таблицы" функцию SetUpdateCallback.

function main()

Quik_Lua_connector = require("Quik_Lua_connector")

Quik_Lua_connector.run_CPP() 


-------------------------
while not stopped do 
sleep(1)
end 
-------------------------


end

#include "my_func.h"

extern "C"
{
#include "lauxlib.h"
#include "lua.h"
}
#pragma comment(lib,"C:\\Users\\lua54.lib")


int forLua_run_CPP(lua_State* L)
{

int status - my_func(L);

return 0;
}

#pragma once

extern "C"
{
#include "lauxlib.h"
#include "lua.h"
}


int my_func(lua_State* L)
{
int my_int =5;

return my_int ;
}

error loading module 'Quik_Lua_connector' from file 'C:\SBERBANK\QUIK_x64_KA\Quik_Lua_connector.dll':
Не найдена указанная процедура.

function my_func_Lua()

message("my_func_Lua")

end



function main()

Quik_Lua_connector = require("Quik_Lua_connector_TEST")  

Quik_Lua_connector_TEST() 



-------------------------
while not stopped do 
sleep(1)
end 
-------------------------

end

static int Quik_Lua_connector_TEST(lua_State* L)
{

    std::cout << "Start" << std::endl;

    lua_getglobal(L, "my_func_Lua");  // получаю функцию


    //Проверяю, что на вершине стека находится теперь именно функция:    int status_lua_is_function = lua_isfunction(L, -1); 
    std::cout << "status_lua_is_function:" << status_lua_is_function << std::endl;        //return 1  - значит Lua функция.




     int status = lua_pcall(L, 0, 0, 0);    //Вызываю функцию без аргументов и бещ возвратного значения.

    if (status != 0)
    {
        std::cout << "error:" << lua_tostring(L, -1) << std::endl; //ОШИБКА: error in error handling
    }

}

lua_getfield(L, -1, "Size");  //Извлекаю ключ Size из таблицы и помещаю на вершину стека

//Проверяю, что на вершине стека:

    int status_lua_isC_function = lua_iscfunction(L, -1);
    std::cout << "status_lua_isC_function:" << status_lua_isC_function << std::endl;  //return 1


    int status_lua_is_function = lua_isfunction(L, -1);
    std::cout << "status_lua_is_function:" << status_lua_is_function << std::endl;     //return 1

//return 1 - означает на вершине стека - функция - видимо извлеченная функция Size.

    lua_pushvalue(L, -2); // Создаю копию таблицы и помещаю ее на вершину стека после функции Size.

    int status_lua_pcall = lua_pcall(L, 1, 1, 0); // Вызываю функцию Size с аргументом в виде таблицы и одним возвращаемым значением

    if (status_lua_pcall == LUA_ERRERR)
    {
        std::cout << "LUA_ERRERR" << std::endl;
    }

    int size_stack = lua_gettop(L);
    std::cout << size_stack << std::endl;         //Размер стека 1

    lua_pushstring(L, "Size");

    size_stack = lua_gettop(L);
    std::cout << size_stack << std::endl;         //Размер стека 2

    lua_gettable(L, -2);                          //lua_gettable - помешает на вершину стека значение Таблицы, которая расположена первый элементом в стеке по ключу расположенному на вершине стека, то есть по ключу "Size"

    size_stack = lua_gettop(L);
    std::cout << size_stack << std::endl;        //Размер стека 2, то есть  lua_gettable - доабвила значение по ключу Size за место доавленной выше строки "Size"

    std::cout << "Size_number:" << lua_tonumber(L, -1) << std::endl;      //Извлекаю значение с вершин стека, НО оно равно НУЛЮ!!! ХОТЯ таблица переданная из Lua в Си - гарантировано имеет размер

local my_table_ = CreateDataSource(code_class_, code_paper_, interval)

local size_table = my_table_:Size()       //Гарантировано не равно нулю.

Quik_Lua_connector.get_data_frim_Lua(size_table)

static int forLua_get_data_frim_Lua(lua_State* L)
{
        std::cout << "Size:" << lua_tonumber(L, -1) << std::endl;      //Снимаю данные с вершины стека. Все выводится на косноль нормально.
}

Quik_Lua_connector.get_data_frim_Lua(size_table)

static int forLua_get_data_frim_Lua(lua_State* L) 
{   

 lua_pushnumber(L, 1);                      //Добавляю в стек номер индекса переданной таблицы к элементу которой я хочу получить доступ. lua_gettable(L, 1);                        //Помещает на вершину стека переданной таблицы - расположенная по 1 элементу в стеке, и индексу в самой таблице - по номеру элемента с вершины стека, то есть с номера "1", которая я добавил строчкой выше.
 lua_getfield(L, -1, "Size");               //Теперь беру значение из стека с вершины стека, то есть то значние, которое я извлек из таблицы по индексу "1" (грубо говоря первая свеча) и извлекаю из него поле с заданным именем "Size" и значение этого поля помещается на вершину стека.
 std::cout << "Size:" << lua_tonumber(L, -1) << std::endl;      //Беру значение с вершины стека и получаю дулю с маслом или ошибку "unrecognized exception" в самом квике.
}