require("QLuaCallbacks");
 
Run = true;
 
function main()
   while Run do
      sleep(1);
   end;
end;
 
function OnStop()
   Run = false;
end;

#include <windows.h>
#include <string>
 
//=== Необходимые для Lua константы ============================================================================//
#define LUA_LIB
#define LUA_BUILD_AS_DLL
 
//=== Заголовочные файлы LUA ===================================================================================//
extern "C" {
#include "Lua\lauxlib.h"
#include "Lua\lua.h"
}
 
//=== Стандартная точка входа для DLL ==========================================================================//
BOOL APIENTRY DllMain(HANDLE hModule, DWORD  fdwReason, LPVOID lpReserved)
{
   return TRUE;
}
 
struct DateTime
{
   int mcs;  //Микросекунды
   int ms;  //Миллисекунды
   int sec;  //Секунды
   int min;  //Минуты
   int hour;  //Часы
   int day; //День
   int week_day;  //Номер дня недели
   int month;  //Месяц
   int year;  //Год
};
 
 
std::string  getFieldValue(lua_State *L, const char *key)
{
   std::string result;
   lua_pushstring(L, key); /* поместить ключ на стек */
   lua_gettable(L, -2); /* получить значение */
 
   result = lua_tostring(L, -1);
   lua_pop(L, 1);
 
   return result;
}
 
DateTime getDateTimeField(lua_State *L)
{
   DateTime datetime;
 
   lua_pushstring(L, "datetime"); /* поместить ключ на стек */
   lua_gettable(L, -2); /* получить таблицу datetime */
 
   lua_pushstring(L, "mcs");  //Микросекунды
   lua_gettable(L, -2);
   datetime.mcs = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "ms");  //Миллисекунды
   lua_gettable(L, -2);
   datetime.ms = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "sec");  //Секунды
   lua_gettable(L, -2);
   datetime.sec = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "min");  //Минуты
   lua_gettable(L, -2);
   datetime.min = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "hour");  //Часы
   lua_gettable(L, -2);
   datetime.hour = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "day"); //День
   lua_gettable(L, -2);
   datetime.day = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "week_day");  //Номер дня недели
   lua_gettable(L, -2);
   datetime.week_day = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "month");  //Месяц
   lua_gettable(L, -2);
   datetime.month = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pushstring(L, "year"); //Год
   lua_gettable(L, -2);
   datetime.year = lua_tonumber(L, -1);
   lua_pop(L, 1);
   lua_pop(L, 1);
 
   return datetime;
}
 
 
//=== Реализация функций обратного вызова ====================================================================//
static int forLua_OnAllTrade(lua_State *L) //
{
   // Проверяет, является-ли первый элемент стека массивом (таблицей Lua)
   if (lua_istable(L, 1))
   {
      std::string trade_num = getFieldValue(L, "trade_num");       // Номер сделки в торговой системе
      std::string flags = getFieldValue(L, "flags");           // Набор битовых флагов
      std::string price = getFieldValue(L, "price");           // Цена
      std::string qty = getFieldValue(L, "qty");             // Количество бумаг в последней сделке в лотах
      std::string value = getFieldValue(L, "value");           // Объем в денежных средствах
      std::string accruedint = getFieldValue(L, "accruedint");      // Накопленный купонный доход
      std::string yield = getFieldValue(L, "yield");           // Доходность
      std::string settlecode = getFieldValue(L, "settlecode");      // Код расчетов
      std::string reporate = getFieldValue(L, "reporate");        // Ставка РЕПО(%)
      std::string repovalue = getFieldValue(L, "repovalue");       // Сумма РЕПО
      std::string repo2value = getFieldValue(L, "repo2value");      // Объем выкупа РЕПО
      std::string repoterm = getFieldValue(L, "repoterm");        // Срок РЕПО в днях
      std::string sec_code = getFieldValue(L, "sec_code");        // Код бумаги заявки
      std::string class_code = getFieldValue(L, "class_code");      // Код класса
      DateTime    datetime = getDateTimeField(L);     // Дата и время
      std::string period = getFieldValue(L, "period");          // Период торговой сессии.Возможные значения : «0» – Открытие; «1» – Нормальный; «2» – Закрытие
 
      if (sec_code == "SBER")
      {
         std::string TradeInfo =
            "trade_num=" + trade_num + " " +
            "flags=" + flags + " " +
            "price=" + price + " " +
            "qty=" + qty + " " +
            "value=" + value + " " +
            "accruedint=" + accruedint + " " +
            "yield=" + yield + " " +
            "settlecode=" + settlecode + " " +
            "reporate=" + reporate + " " +
            "repovalue=" + repovalue + " " +
            "repo2value=" + repo2value + " " +
            "repoterm=" + repoterm + " " +
            "sec_code=" + sec_code + " " +
            "class_code=" + class_code + " " +
            "time=" + std::to_string(datetime.hour) + ":" +
            std::to_string(datetime.min) + ":" +
            std::to_string(datetime.sec) + "." +
            std::to_string(datetime.mcs) + " " +
            "trade_num=" + trade_num + " " +
            "period=" + period;
 
         //Выводит сообщение в терминале с информацией по сделке
         lua_getglobal(L, "message");
         lua_pushfstring(L, TradeInfo.c_str());
         lua_pcall(L, 1, 0, 0);
      }
 
   }
   return 0;
}
 
 
//=== Регистрация реализованных в dll функций, чтобы они стали "видимы" для Lua ================================//
static struct luaL_reg ls_lib[] = {
   { NULL, NULL }
};
 
//=== Регистрация названия библиотеки, видимого в скрипте Lua ==================================================//
extern "C" LUALIB_API int luaopen_QLuaCallbacks(lua_State *L) {
   luaL_openlib(L, "QLuaCallbacks", ls_lib, 0);
 
   //Добавляет функцию в стек
   lua_pushcclosure(L, forLua_OnAllTrade, 0);
   //Регистрирует её как коллбэк на OnAllTrade
   lua_setglobal(L, "OnAllTrade");
 
   return 0;
}

require("LuaCallback"); -- Подключает библиотеку "LuaCallback.dll"
 
Run = true; -- Флаг поддержания работы скрипта
 
-- Основная функция скрипта, пока работает она, работает скрипт
function main()
   LuaCallback.StartCallback(); -- Запускает механизм вызова функции MyLuaCallback из DLL
   while Run do sleep(1000); end; -- Поддерживает работу скрипта
end;
 
-- Функция, вызываемая из DLL
function MyLuaCallback(Text)
   message(Text); -- Выводит сообщение, переданное в функцию из DLL
end;
 
-- Функция завершения работы скрипта
function OnStop()
   Run = false; -- Завершает цикл while, следовательно завершается main() и сам скрипт останавливается
end;

#include <Windows.h> //Подключает все необходимое
#include <thread> //Подключает возможность работы с потоками
 
//=== Необходимые для Lua константы ============================================================================//
#define LUA_LIB
#define LUA_BUILD_AS_DLL
 
//=== Заголовочные файлы LUA ===================================================================================//
extern "C" {
#include "Lua\lauxlib.h"
#include "Lua\lua.h"
}
 
//=== Стандартная точка входа для DLL ==========================================================================//
BOOL APIENTRY DllMain(HANDLE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
   return TRUE;
}
 
//Функция вызывает функцию из QLua с периодичностью в 1 секунду
static int MyCallback(lua_State *L)
{
   lua_getglobal(L, "MyLuaCallback"); //Находит в стеке Lua функцию по ее названию и помещает ее наверх стека
   int callbackRef = luaL_ref(L, LUA_REGISTRYINDEX); //Получает индекс функции в специальной внутренней таблице(реестре) Lua	
 
   for (int i = 0; i < 10;i++)
   {
      lua_rawgeti(L, LUA_REGISTRYINDEX, callbackRef); //Достает функцию из реестра Lua по индексу и помещает в стек
      lua_pushstring(L, "Привет из DLL"); //Добавляет в стек параметр, который будет передан функции
      lua_call(L, 1, 1); //Вызывает выбранную функцию в скрипте QLua, передавая в нее 1 параметр (L - стек, 1 - количество передаваемых параметров, 1 - количество возвращаемых значений(нужно, чтобы обновлять стек))
      Sleep(1000); //Пауза в 1 секунду
   }
 
   return 0; //Выход из функции
}
 
//=== Реализация функций, вызываемых из LUA ====================================================================//
static int forLua_StartCallback(lua_State *L) 
{
   std::thread thr(MyCallback, L); //Запускает выполнение функции MyCallback() в отдельном потоке
   thr.detach(); //Отсоединяет созданный поток от основного, делая его "фоновым"
 
   return (0); //Завершает работу функции forLua_StartCallback, при этом функция MyCallback продолжает работать в отдельном потоке
}
 
//=== Регистрация реализованных в dll функций, чтобы они стали "видимы" для Lua ================================//
static struct luaL_reg ls_lib[] = {
   { "StartCallback", forLua_StartCallback }
};
 
//=== Регистрация названия библиотеки, видимого в скрипте Lua ==================================================//
extern "C" LUALIB_API int luaopen_LuaCallback(lua_State *L) {
   luaL_openlib(L, "LuaCallback", ls_lib, 0);
   return 0;
}