fs.lua

Go to the documentation of this file.

local function ls(src_path)
    local ls_cmd = io.popen('ls -1 '..src_path)
    local ls_files = {}
 
    if ls_cmd then
        repeat
            local line = ls_cmd:read()
            ls_files[#ls_files + 1] = line
        until not line
        ls_cmd:close()
    end
 
    return ls_files
end
 
local function clear(src_path)
    if os.execute('rm --version > /dev/null 2> /dev//null') then
        os.execute('mkdir -p '..src_path)
        os.execute('rm -Rf '..src_path..'/*')
    else
        src_path = src_path:gsub('/', '\\')
        os.execute('mkdir '..src_path)
        os.execute('rmdir /s /q '..src_path..'\\*')
    end
end
 
local function move(src_in, dist_out)
    local src_file = io.open(src_in, "rb")
    local dist_file = io.open(dist_out, "wb")
 
    if src_file and dist_file then
        repeat
            local buffer = src_file:read(1024)
            if buffer then
                dist_file:write(buffer)
            end
        until not buffer
    end
 
    if src_file then
        src_file:close()
    end
    if dist_file then
        dist_file:close()
    end
end
 
local function moveLua(src_in, dist_path, dist_file)
    local deps = {}
    local pattern = "local ([%w_%-]+) = require%('src/(.-)'%)"
    local src_file = io.open(src_in, "r")
    local dist_file_normalized = src_in:gsub('/', '_'):gsub('^src_', '')
    local dist_out = dist_path:gsub('/$', '')..'/'..(dist_file or dist_file_normalized)
    local dist_file = io.open(dist_out, "w")
 
    if src_file and dist_file then
        repeat
            local line = src_file:read()
            if line then
                local line_require = { line:match(pattern) }
                if line_require and #line_require > 0 then
                    local var_name = line_require[1]
                    local module_path = line_require[2]
                    deps[#deps + 1] = 'src/'..module_path..'.lua'
                    dist_file:write('local '..var_name..' = require(\''..module_path:gsub('/', '_')..'\')\n')
                else
                    dist_file:write(line, '\n')
                end
            end
        until not line
    end
 
    if src_file then
        src_file:close()
    end
    if dist_file then
        dist_file:close()
    end
 
    return deps
end
 
local function build(src_in, dist_path)
    local main = true
    local deps = {}
    local deps_builded = {}
 
    repeat
        if src_in:sub(-4) == '.lua' then
            local index = 1
            local index_deps = #deps
            local file_name = main and 'main.lua'
            local new_deps = moveLua(src_in, dist_path, file_name)
            while index <= #new_deps do
                deps[index_deps + index] = new_deps[index]
                index = index + 1
            end
        end
 
        main = false
        src_in = nil
        local index = 1
        while index <= #deps and not src_in do
            local dep = deps[index]
            if not deps_builded[dep] then
                deps_builded[dep] = true
                src_in = dep
            end
            index = index + 1
        end
    until not src_in
end
 
local P = {
    ls = ls,
    move = move,
    moveLua = moveLua,
    build = build,
    clear = clear
}
 
return P