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

Settings={}
Settings.Name = "minimal"
function Init()
   return 1
end
local ind = {}
function OnCalculate(index)
  if not ind[index] then 
     ind[index] = 100
  else
     ind[index] = ind[index] + 100
  end  
  return ind[index]
end

.........................

static int forLua_xx_test(lua_State* L)    //  Ваша функция ---
{

   ............
}
 
//=== Регистрация реализованных в dll функций, чтобы они стали "видимы" для Lua ================================//
static struct luaL_Reg ls_lib[] = {
   { "xx_test", forLua_xx_test },
   { NULL, NULL }
};

extern "C" LUALIB_API int luaopen_Имя_dll>(lua_State *L) {   // !!!  luaopen_<Имя пакета>
   lua_newtable(L);
   luaL_setfuncs(L, ls_lib, 0);
   lua_pushvalue(L, -1);
   lua_setglobal(L, "Имя_пакета_dll");  // !!!  lua_setglobal(L, "<Имя пакета>");
   return 0;
}
 

require('Имя_dll')

message("result=" .. tostring(Имя_пакета_dll.xx_test("message('hello world!!',3)")))

//   ####  lua_stringtonumber вызывается в tonumber  (luaB_tonumber)
LUA_API size_t lua_stringtonumber (lua_State *L, const char *s) {
  size_t sz = luaO_str2num(s, s2v(L->top));   //  ##### ? используется L без синхрони-зирующих скобок
  if (sz != 0)
    api_incr_top(L);                                      //  ##### ? используется L без синхронизирующих скобок
  return sz;
}

function OnTrade(n)
local i;
i=a[0][7][0]+1;   -- новый размер стека сделок из прерывания
a[0][7][0]= i;   -- записываем изменение
a[0][7][i]= n;   -- записываем таблицу из OnTrade
end;

   local tbl =  {
                       ['Тикер'] = 'SBER'
           , [{ 1, 2, 3}] = { 'QUIK'}
           , TOBR =  {6, 8, 4, {1, 2, 3 }}
           , 'Сохранение таблицы'
           , ok = true
                    }
-- Сохранение таблицы --
  local str = tbl_to_string (tbl)  
  message ( str )   -- в str строковый образ таблицы  ---
 -- Восстановление таблицы ---
   local tbl1 = string_to_tbl (str)   --- в tbl1 восстановленная таблица 

-----  Конвертация таблицы в строку (сереализация) ------
-- Преобразование таблицы без ее метатаблицы (ключи и значения : table, boolean, number, string) в текстовое представление
-- в соответствии с синтаксисом языка lua  ---
----    Можно использовать для сохранения таблиц в текстовом виде, с возможностью последующего восстановления
--      со следующими ! ограничениями:
--       1) ключи и значения : table, boolean, number, string;
--       2) все элементы таблицы (ключи и значения) типа table должны быть уникальными (в пределах таблицы).
------  Параметры: 1) t  -  таблица (обрабатываются все вложения );  
--                          2) i  -  начальная строка формирования отступа при выводе вложений (например, " ");  если i = '', то строки таблицы выводятся без отступов  
-- Результат (! два): 1) строка (тремя звездочками помечены проблемные места);  2)  количество записей, которые  нельзя представить в текстовом виде
-- с последующим восстановлением  ----
---------
local function tbl_to_string(t, i)
  if type(t) ~= "table" then
        return nil
  end
  i = i or ' '
  local key_tbl_stateOS= "--таблица: "
  local tab = "\t"
  if i == '' then tab ='' end
  local ltime_str =GetLocalTimeMls()
  local tbl = {}  ---   для результата  ----
  local no_unpack =0
   -----------
  local function dump(t, i, seen)      ---------
       if seen then
       if seen[t] then
          return seen[t]
       end
tbl[#tbl +1] = " { -- " .. tostring(t) .. "\n"
else
    seen={} --  просмотренные --
    tbl[#tbl +1] = "{" .. key_tbl_stateOS .. string.format("%.0f", ltime_str) .. " -- время создания \n"
end
       seen[t] = tostring (t)
if debug.getmetatable ( t )  then  no_unpack = no_unpack + 1;   tbl [#tbl +1] = i .. ' --- *** У таблицы ' .. tostring(t) .. ' есть метатаблица, которая в функции tbl_to_string не обрабатывается \n' end
local bracket = true  -- скобка  (начало) ---
--
       for k,v in next, t do
       if type(k) == "table" then
                   if bracket then  tbl [#tbl +1] = i .. " [\n"; bracket = false else tbl [#tbl +1] = i .. ", [\n" end
   if  dump(k, i .. tab, seen) then
                   tbl [#tbl +1] = "*** -> " .. tostring (k) .. '\n'
   no_unpack = no_unpack + 1
end
tbl [#tbl +1] = i .. " ] = "
else
                   if bracket then  tbl [#tbl +1] = i .. " [ "; bracket = false else tbl [#tbl +1] = i .. ", [ " end
if type(k) == "function"  or type(k) == "userdata" or type(k) == "thread"  then
  tbl [#tbl +1] = "*** " .. type(k)
  no_unpack = no_unpack + 1
   end
   if type(k) == "string"  then
           tbl [#tbl +1] = "'".. tostring(k) .. "'"
   else
                       tbl [#tbl +1] = tostring(k)
       end
tbl [#tbl +1] = " ] = "
               end

               if type(v) == "table" then
if  seen[v] then
           tbl [#tbl +1] = "*** -> " .. tostring(v) .. '\n'
   no_unpack = no_unpack + 1
else
                       dump(v, i .. tab, seen)  ---
   end
else
   if type(v) == "function"  or type(v) == "userdata" or type(v) == "thread" then
   no_unpack = no_unpack +1
tbl [#tbl +1] = "*** " .. tostring(v) .. '\n'
else
   if type(v) == "string"  then
        tbl [#tbl +1]= '"' .. v .. '" \n'
   else
                            tbl [#tbl +1] = tostring(v) .. "\n"
   end
end
end
       end
--
tbl[#tbl +1] = i .. " } \n"
   end
---------------------
   dump(t,i)
tbl[#tbl] = i .. "}".. key_tbl_stateOS .. string.format("%.0f", ltime_str) .. "\n" --- !!! заменяется последняя фугурная скобка ---
return  table.concat ( tbl), no_unpack    ----- Результат: 1) строка ;  2)  количество значений, не представимых в текстовом виде  ----
end
-----
---- Преобразование сереализованной таблицы (строки) в таблицу Lua (десереализация)  --------------------
--- Результат:  таблица  Lua   ------
function string_to_tbl (str_tbl)
--    message (" string_to_tbl ", "return " ..  str_tbl )
   if str_tbl:find("{") == nil then return nil end  ---  если в строке str_tbl нет {
local tbl , err_tbl = load ("return " ..  str_tbl )         ----    assert (load_OS ( "retur " .. 4))   -- $$$$
   if  err_tbl ~= nil  then
message (" string_to_tbl ", "!!! Ошибка в синтаксисе таблицы:  "  .. str_tbl)  --- err_tbl)
return nil
end
return  tbl()
end
----