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

function rec_big_data(file_path, value, paper)
    rn = rn or {}
    rn[paper] = rn[paper] or {}
    if file_path~=rn[paper].file_path then
        if rn[paper].handler then
            rn[paper].handler:close()
        end
        rn[paper].handler = io.open(file_path, "a+")
        if rn[paper].handler then
            rn[paper].handler:setvbuf("no")        --<<<--- отключение кэша
            rn[paper].file_path = file_path
        else
            mm("QL:open file error "..file_path)
        end
    end
    if rn[paper].handler then
        rn[paper].handler:write(value.."\n")
    end
end

            rn[paper].handler:setvbuf("full", 1024*1024)

rn = rn or {}
rn[paper] = rn[paper] or {}
if file_path~=rn[paper].file_path then
    if rn[paper].handler then
        rn[paper].handler:close()
    end
    rn[paper].handler:io.open(file_path, "a+")
    if rn[paper].handler then
        rn[paper].file_path = file_path
    else
        mm("QL:open file error "..file_path)
    end
end
if rn[paper].handler then
    rn[paper].handler:write(value.."\n")
end

bid  = getParamEx(class_code, security, "BID")
step = getParamEx(class_code, security, "SEC_PRICE_STEP")
if bid.result == "1" and step.result == "1" then
    price = tonumber(bid.param_value)+11*tonumber(step.param_value)
end

n = 100000
     alloc: sec =   0.193, mem =   9.429 MiB
      gsub: sec =   0.142, mem =  14.571 MiB
loadstring: sec =   1.073, mem =  15.538 MiB

n = 1000000
     alloc: sec =   8.812, mem =  93.877 MiB
      gsub: sec =   5.438, mem = 137.766 MiB
loadstring: sec =  55.328, mem = 113.608 MiB

local t = loadstring("local t = "..line.." return t")()

table_save("getParamEx", file, getParamEx(class_code, sec_code, param_name))

local print = message and message or print
local s = string.rep(" ", 128 * 1024 * 1024)
local t = {}
for i = 1, 1024 do
    local status, errmsg = pcall(function () t[i] = s..i end)
    local m = collectgarbage("count")/1024
    print("Lua memory "..(status and (m - m % 0.001).." Mbytes" or "allocation failed. Error: "..errmsg))
    if not status then break end
end

os.execute("\""..os.getenv("ProgramFiles").."\\Internet Explorer\\iexplore.exe\" https://ru.wikipedia.org/wiki/Lua")

if status == 3 or status == 15 then
    --транзакция успешно обработана
elseif status >= 2 and status ~= 14 then
    --ошибка при обработке транзакции
else
    --ответы со статусом «0», «1» и «14» игнорируем
end

if status == 3 then
    --транзакция успешно обработана
elseif status >= 2 then
    --ошибка при обработке транзакции
else
    --ответы со статусом «0» и «1» игнорируем
end

local     DBL_EPSILON = 2.2204460492503131e-016
local NOT_DBL_EPSILON = DBL_EPSILON/2

local function checkDblEpsilon(v1, v2)
    message(string.format("(%.20g == %.20g) == ", v1, v2)..(v1 == v2 and "true" or "false"))
end

checkDblEpsilon(1.0, 1.0+NOT_DBL_EPSILON)
checkDblEpsilon(1.0, 1.0+DBL_EPSILON)

(1 == 1) == true
(1 == 1.0000000000000002) == false

local function func()
    local x, y, z, param
    y = 10
    z = 5
    param = 2
    x = (y-z)*param
    message("x = "..x)
    x = (y-z)*param
    message("x = "..x)
    x = (y-z)*param
    message("x = "..x)
end

func()