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

local function addLuaForWindowsToLuaPath(luaForWindowsPath)
    package.cpath = "./?.dll;./?51.dll;"
            .. luaForWindowsPath .. "?.dll;"
            .. luaForWindowsPath .. "?51.dll;"
            .. luaForWindowsPath .. "clibs/?.dll;"
            .. luaForWindowsPath .. "clibs/?51.dll;"
            .. luaForWindowsPath .. "loadall.dll;"
            .. luaForWindowsPath .. "clibs/loadall.dll;"
            .. package.cpath
    package.path = package.path
            .. ";./?.lua;"
            .. luaForWindowsPath .. "lua/?.lua;"
            .. luaForWindowsPath .. "lua/?/init.lua;"
            .. luaForWindowsPath .. "?.lua;"
            .. luaForWindowsPath .. "?/init.lua;"
            .. luaForWindowsPath .. "lua/?.luac;"
end
addLuaForWindowsToLuaPath("C:/Program Files/Lua/5.1/")

require("iuplua")
require("iupluacontrols")
local iup = iup

local function initializeDialog()
    local btn_addSec = iup.button { title = "Add security" }
    function btn_addSec:action()
        iup.Message(config.name, self.title..":action()")
    end

    local vbox = iup.vbox{
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        btn_addSec
        ;margin="5x5", gap="2", scrollbar = "VERTICAL",
    }
    local dlg = iup.dialog{ vbox; title = "My title",
        --size =  "HALFxQUARTER",
        rastersize = "800x300",
    }
    function dlg:close_cb()
        local a = iup.Alarm( dlg.title, "Завершить работу?", "Да", "Нет" )
        if a == 1 then
            interrupted = true
            return iup.CLOSE
        else
            return iup.IGNORE
        end
    end

    return dlg
end

function main()
    local dlg = initializeDialog()
    dlg:show()
    while not interrupted do
        iup.LoopStep()
        sleep(50)
    end
    dlg:hide()
    dlg:destroy()
end

local f = function(...) 
    if #{...} == 0 then
        error("no args!")
    else
       return ...
    end
end

print("pcall(f) with args")
local res,return1,return2 = pcall( f, "arg1", "arg2" )
if res then
    print(return1,return2)
else
    print("ERROR: ",return1)
end
-- pcall(f) with args
-- arg1 arg2

print("pcall(f) with no args. Catch exception")
local res,return1,return2 = pcall( f )
if res then
    print(return1,return2)
else
    print("ERROR: ",return1)
end
-- pcall(f) with no args. Catch exception
-- ERROR: D:\PATH\TO\source.lua":3: no args!

local Misc = require("Misc")

local function writeTtoFile(fn)
    local f = io.open(fn,"w+")
    for i=0,getNumberOf("FUTURES_CLIENT_HOLDING")-1 do
        local t = getItem("FUTURES_CLIENT_HOLDING",i)
        f:write(Misc.asString(t),"\n")
    end
    f:close()
end

local function run()
    local _c 
    local _t = os.time()
    local c_err = 0
    while true do
        local c = getNumberOf("FUTURES_CLIENT_HOLDING") 
        if _c ~= c then
            message("c = "..tostring(c),1)
            if _c then c_err = c_err + 1 end
            _c = c
            --message( "_c ~= c "..tostring(_c).." ~= "..tostring(c), 3 )
            local fn = getScriptPath().."\\FUTURES_CLIENT_HOLDING\\FUTURES_CLIENT_HOLDING_"..os.date("%Y%m%d_%H%M%S")..".lua"
            writeTtoFile(fn)
        end
        sleep(10)
        local time = os.time() 
        if time - _t > 10 then
            message("Количество неправильных количеств: "..tostring(c_err).."  (_c = "..tostring(_c)..")",1)
            _t = time
        end
    end
end

function main()
    local ok,res = pcall(run)
    if not ok then
        message( tostring(res),3 )
        message( tostring(debug.traceback()),3 )
    end
end