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

--- Инициализация -----
local  NumberOf = 0    ----  сохраненная длина таблицы сделок --
local  NumberOf_t   --
local  tbl_trades
-------
 
            -- Фрагмент чтения новых сделок (4 раза в секунду )   ---
NumberOf_t = getNumberOf ('trades')       --- быстрая операция ---
if NumberOf_t > NumberOf then   -- обработка всех новых возникших сделок --
   for i = NumberOf  - 1, NumberOf_t - 1 do   --  индексы в таблицах QUIK начинаются с 0  --
      tbl_trades = getItem ('trades', i)    -- быстрая операция (прямое чтение по индексу) ---
      ---   дальнейшая обработка новых сделок  ---

      ----------------------------------------
   end
   NumberOf =  NumberOf_t   -- сохранение длины таблицы сделок --
end

static const luaL_Reg base_funcs[] = {
  {"assert", luaB_assert},
  {"collectgarbage", luaB_collectgarbage},
  {"dofile", luaB_dofile},
  {"error", luaB_error},
  {"getmetatable", luaB_getmetatable},
  {"ipairs", luaB_ipairs},
  {"loadfile", luaB_loadfile},
  {"load", luaB_load},
  {"next", luaB_next},
  {"pairs", luaB_pairs},
  {"pcall", luaB_pcall},
  {"print", luaB_print},
  {"warn", luaB_warn},
  {"rawequal", luaB_rawequal},
  {"rawlen", luaB_rawlen},
  {"rawget", luaB_rawget},
  {"rawset", luaB_rawset},
  {"select", luaB_select},
  {"setmetatable", luaB_setmetatable},
  {"tonumber", luaB_tonumber},
  {"tostring", luaB_tostring},
  {"type", luaB_type},
  {"xpcall", luaB_xpcall},
  /* placeholders */
  {LUA_GNAME, NULL},
  {"_VERSION", NULL},
  {NULL, NULL}
};

static int luaB_tostring (lua_State *L) {
  luaL_checkany(L, 1);
  luaL_tolstring(L, 1, NULL);
  return 1;
}
//  -------  Вызывается в luaB_tostring (lua_State *L)  --
LUALIB_API const char *luaL_tolstring (lua_State *L, int idx, size_t *len) {
  idx = lua_absindex(L,idx);
  if (luaL_callmeta(L, idx, "__tostring")) {  /* metafield? */
    if (!lua_isstring(L, -1))
      luaL_error(L, "'__tostring' must return a string");
  }
  else {
    switch (lua_type(L, idx)) {
      case LUA_TNUMBER: {
        if (lua_isinteger(L, idx))
          lua_pushfstring(L, "%I", (LUAI_UACINT)lua_tointeger(L, idx));
        else
          lua_pushfstring(L, "%f", (LUAI_UACNUMBER)lua_tonumber(L, idx));
        break;
      }
      case LUA_TSTRING:
        lua_pushvalue(L, idx);
        break;
      case LUA_TBOOLEAN:
        lua_pushstring(L, (lua_toboolean(L, idx) ? "true" : "false"));
        break;
      case LUA_TNIL:
        lua_pushliteral(L, "nil");
        break;
      default: {
        int tt = luaL_getmetafield(L, idx, "__name");  /* try name */
        const char *kind = (tt == LUA_TSTRING) ? lua_tostring(L, -1) :
                                                 luaL_typename(L, idx);
        lua_pushfstring(L, "%s: %p", kind, lua_topointer(L, idx));
        if (tt != LUA_TNIL)
          lua_remove(L, -2);  /* remove '__name' */
        break;
      }
    }
  }
  return lua_tolstring(L, -1, len);
}

function OnStop(flag)
    interrupted = true
    message("OnStop executed", 1)
    pcall(closeWindow)
end

local a =129.0
if (math.tointeger(a) & 0x80) == 128 then   ---  0x80 это 128 в десятичном исчислении
    message ("С битами можно работать.")
end 

-------------                                    #### !! Вариант реализации таймерных событий            ----
function OnStop()
 isRun=false
end;

local function f1(i)       -- функция обработки таймерных событий ---
 message("Обрабатываем интервал  1:  "..i.." сек")
end;

local function f2(i)
 message("Обрабатываем интервал 2:   "..i.." сек")
end;

local function f3(i)
 message("Обрабатываем интервал 3:  "..i.." сек")
end;

isRun=true;

function main()
 local x
 ----  !! Таймеры задаются в виде таблицы {<Интервал таймера (в секундах) >, <Функция обработки таймера>, <Вычисляемое время запуска функции>}
 t={{4, f1, 0}, {17, f2, 0},{35, f3, 0} }    -- Начальный запуск таймера можно задать в третьем элементе таймера. Можно добавлять таймеров  сколько надо --
 x=os.time()
 for i=1,#t do t[i][3] = x + t[i][1]  end
 message("Начало работы")
 while isRun do
   x=os.time()
   for i=1,#t do 
     if  x >= t[i][3] then 
         t[i][3] = x + t[i][1]   --- !! Если существенна обработка пропущенных интервалов, то:t [i][3] = t [i][3] + t[i][1]   ----
         t[i][2] ( t[i][1] )
     end
   end
   sleep(100)  -- разрешение таймера млсек.  ---
 end
end