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

size_t iResult;
lua_settop(L, 0);
lua_getfield(L, LUA_GLOBALSINDEX, "getQuoteLevel2");
lua_pushstring(L, pcClassCode);
lua_pushstring(L, pcSecCode);
iResult = lua_pcall(L, 2, 1, NULL);  // Здесь все накладные расходы
if (iResult)
{
   // Сюда я ни разу не попадал
}
else
{
  // А здесь я имитирую полезную деятельность
}
lua_settop(L, 0);

is_run = true
TimeOut = 500

function ErrorFunction()
    -- имитируем код генерирующий ошибку
    s=a
end

function main()
local CallSuccess
    while is_run do
        -- Безопасно вызываем функцию которая может выдать ошибку
        [список возможных результатов] CallSuccess = pcall(ErrorFunction[, другие возможные аргументы])
        if CallSuccess then
            -- Вызов успешен, анализируем результаты (если предусмотрено)
        else
            -- Здесь какая-то работа над ошибками
        end
        sleep(TimeOut)
    end
end

local TheClassCode = "QJSIM"
local TheSecCode = "SBER"
local NumIteractions2 = 100000
local NumRepeats2 = 10
local StartTime = 0
local RunTime = 0
local SumRunTime = 0
local MaxRunTime = 0
local MinRunTime = 100500
local QuoteL2 = {}

function TestQuoteL2_2()
    for TheRepeat =1, NumRepeats2, 1    do
        StartTime = os.clock()

        for TheIteraction =1, NumIteractions, 1 do
            QuoteL2 = getQuoteLevel2(TheClassCode, TheSecCode)
        end

        RunTime = os.clock() - StartTime
        SumRunTime = SumRunTime + RunTime
        if RunTime < MinRunTime then
            MinRunTime = RunTime
        end
        if RunTime > MaxRunTime then
            MaxRunTime = RunTime
        end
        TheMessage = "Attempt # "..tostring(TheRepeat).." RunTime = "..tostring(RunTime)
        message(TheMessage)
    end
    local AvgRunTime = SumRunTime / NumRepeats2
    TheMessage = "Tested "..tostring(NumRepeats2).." times, "..tostring(NumIteractions2).." iteractions each"
    message(TheMessage)
    TheMessage = "Average run time = "..tostring(AvgRunTime).." for "..tostring(NumIteractions2).." iteractions"
    message(TheMessage)
    TheMessage = "Maximum run time = "..tostring(MaxRunTime)
    message(TheMessage)
    TheMessage = "Minimum run time = "..tostring(MinRunTime)
    message(TheMessage)
end

function main()
    TestQuoteL2_2()
end

08.10.2018    0:15:42    Tested 10 times, 100000 iteractions each
08.10.2018    0:15:42    Average run time = 8.3163 for 100000 iteractions
08.10.2018    0:15:42    Maximum run time = 8.3400000000001
08.10.2018    0:15:42    Minimum run time = 8.2939999999999

// luaconf.h
#define LUA_NUMBER    double
typedef LUA_NUMBER lua_Number;

// lobject.h
/*
** Union of all Lua values
*/
typedef union {  
  GCObject *gc;
  void *p;
  lua_Number n;
  int b;
} Value;

file = io.open("D:\\EventTest.log", "a+t")
IsRun = true

function WriteLog(s, ...)
    if file ~=nil then
        file:write(tostring(os.date()) .. " " .. string.format(s, unpack(arg)) .. "\n")
        file:flush()
    end
end

function OnClose()
    WriteLog("Entered OnClose")
end


function OnInit()
    WriteLog("Entered OnInit")
end

function OnStop()
    WriteLog("Entered OnStop")
    IsRun = false
end


function main()
    WriteLog("Entered Main")

    while IsRun do
        sleep(500)
    end;

    WriteLog("Leaving Main")
end

09/30/18 07:03:50 Entered OnInit
09/30/18 07:03:50 Entered Main
09/30/18 07:03:53 Entered OnClose
09/30/18 07:03:53 Entered OnStop
09/30/18 07:03:54 Leaving Main

09/30/18 07:04:00 Entered OnInit
09/30/18 07:04:00 Entered Main
09/30/18 07:04:14 Entered OnStop
09/30/18 07:04:14 Leaving Main

function OnStop(flag) 
  IsRun = false
  -- далее следуют какие то относительно продолжительные действия
  -- сохранение нажитого непосильным трудом по файлам например
  -- имитация таковых:
  sleep(50) 
end 

#define LUA_LDIR   "!\\lua\\"

lua_rawgeti(L, 1, i);       
sum += lua_tonumber(L, -1);       
lua_pop(L, 1);