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

#error This garbage should never be used in production code.

int top = lua_gettop(pstate);
lua_getglobal(pstate, "CallbackName");
push_callback_arguments(pstate);
if(this->execute_lua_callback(pstate, nargs, 0))
  quik->show_message(make_error_text(), 3);
// вот тут интересно
if(pstate)
  lua_settop(pstate, top);

static void translator(unsigned int code, struct EXCEPTION_POINTERS * p)
{
   throw seh_exception(code, p);
}

int QLuaScript::execute_lua_callback(lua_State * s, int nargs, int nresults)
{
   int ret = 0;
   _se_translator_function pfn = _set_se_translator(translator);
   try
   {
      ret = lua_pcall(s, nargs, nresults, 0);
      _set_se_translator(pfn);
   }
   catch(const std::exception & ex)
   {
      sprintf(this->error_desc, "%s", ex.what());
      this->kill_script();
      _set_se_translator(pfn);
      ret = ???;
   }
   catch(const seh_exception & ex)
   {
      sprintf(this->error_desc, "Critical error %s in script %s",
         ex.code_as_string(), this->script_name);
      this->kill_script();
      _set_se_translator(pfn);
      ret = ???;
   }
   return ret;
}

local function save_ticks(cls, sec)
   local f = io.open(getScriptPath() .. '\\' .. cls .. '.' .. sec .. '.' .. 'csv', 'w')
   f:write('<DATE>;<TIME>;<TRADENUM>;<PRICE>;<QTY>\n')
   local fmt = '%04u%02u%02u;%02u%02u%02u%03u;%u;%.6f;%u\n'
   local function cmp(t)
      if not t then
         return nil
      end
      if cls == t.class_code and sec == t.sec_code then
         local dt = t.datetime
         f:write(string.format(fmt,
            dt.year, dt.month, dt.day,
            dt.hour, dt.min, dt.sec, dt.ms,
            t.tradenum, t.price, t.qty))
      end
      return false
   end
   SearchItems('all_trades', 0, 2000000000, cmp)
end

function main()
   save_ticks('SPBFUT', 'BRV0')
end

local run = true
local tabid = nil
local rowid = nil
local counter = 0
local recursion_level = 0
local max_recursion_level = 0

function OnInit()
   tabid = AllocTable()
   if 0 == AddColumn(tabid, 1, 'recursion level', true, QTABLE_STRING_TYPE, 16) then
      DestroyTable(tabid)
      tabid = nil
      error("AddColumn failed")
   end
   if 0 == AddColumn(tabid, 2, 'counter', true, QTABLE_STRING_TYPE, 16) then
      DestroyTable(tabid)
      tabid = nil
      error("AddColumn failed")
   end
   if 0 == CreateWindow(tabid) then
      DestroyTable(tabid)
      tabid = nil
      error("CreateWindow failed")
   end
   rowid = InsertRow(tabid, -1)
   if -1 == rowid then
      DestroyTable(tabid)
      tabid = nil
      rowid = nil
      error("InsertRow failed")
   end
end

function OnAllTrade(v)
   recursion_level = recursion_level + 1
   counter = counter + 1
   if recursion_level > max_recursion_level then
      max_recursion_level = recursion_level
   end
   if tabid then
      SetCell(tabid, rowid, 1, tostring(max_recursion_level))
      SetCell(tabid, rowid, 2, tostring(counter))
   end
   recursion_level = recursion_level - 1
end

function OnStop()
   if tabid then
      local t = tabid
      tabid = nil
      DestroyTable(t)
      rowid = nil
   end
   run = false
end

function main()
   while run do
      sleep(1000)
   end
end

function so()
   return so()
end

function main()
   so()
end

function so()
   sleep(0)
   return so()
end

function main()
   so()
end

mov qword ptr [...]
...
test rax, rax
je <skip next instruction>
call rax

local run = true

function comparator(lhs, rhs)
   local t = debug.getinfo(1)
   message('comparator name is ' .. (t.name or 'nil'))
   return true
end

local function local_comparator(lhs, rhs)
   local t = debug.getinfo(1)
   message('local_comparator name is ' .. (t.name or 'nil'))
   return true
end

function main()
   while run do
      sleep(100)
   end
end

function OnStop()
   local function very_local_comparator(lhs, rhs)
      local t = debug.getinfo(1)
      message('very_local_comparator name is ' .. (t.name or 'nil'))
      return true
   end
   comparator(1, 2) -- MSG: comparator
   local_comparator(1, 2) -- MSG: local_comparator
   very_local_comparator(1, 2) -- MSG: very_local_comparator
   SearchItems('all_trades', 0, 1, comparator) -- MSG: nil
   SearchItems('all_trades', 0, 1, local_comparator) -- MSG: nil
   SearchItems('all_trades', 0, 1, very_local_comparator) -- MSG: nil
   run = false
end

local run = true

function main()
   local t = debug.getinfo(1)
   message('main name is ' .. (t.name or 'nil'))
   while run do
      sleep(100)
   end
end

function OnStop()
   local t = debug.getinfo(1)
   message('OnStop name is ' .. (t.name or 'nil'))
   local function inner()
      local t = debug.getinfo(1)
      message('OnStop::inner name is ' .. (t.name or 'nil'))
   end
   inner()
   run = false
end

local f12 = function(Tab1, msg, X, Y)

local function f12(Tab1, msg, X, Y)

function Global() -- глобальная, видна из всех функций и файлов
end

local function One() -- локальная относительно этого файла, не видна из других файлов (подключенных через require или еще как)
  local function Two() -- локальная относительно функции One, не видна вне функции One
    local function Three() -- локальная относительно функции Two, не видна вне функции Two
      -- и так далее
    end
  end
end

SetTableNotificationCallback(Tab1, function(Tab1, msg, X, Y) ... end)

if(VeryStrongPasswordValid(pass))
  ShowWindow(hwndQuik, SW_SHOW);