ExperimentalGear/scripts/common/filereader.lua

--file reader utility functions

---Get game path
---@return string, string
local function getGamePath()
    return debug.getinfo(1,"S").source:sub(2):match("(.*)([\\/])skins") -- this is very hacky :)
end

local function readBytes(_file)
    local out = {}
    repeat
        local buffer = _file:read(4*1024)
        for c in (buffer or ''):gmatch(".") do
            table.insert(out, c:byte())
        end
    until not buffer
    return out
end

---Read a file in the game folder by lines
---@param path string relative path to game file
---@param mode? openmode default "r"
---@return nil|string[]
function ReadGameFileLines(path, mode)
    mode = mode or "r"

    local gamepath, sep = getGamePath()

    local lines = {}

    local f = io.open(gamepath .. sep .. path, mode)
    if not f then return nil end

    for line in f:lines("l") do
        table.insert(lines, line)
    end
    f:close()

    return lines
end

---Read a file in the game folder
---@param path string
---@param mode? openmode default "r"
---@return nil|string|integer[]
function ReadGameFile(path, mode)
    mode = mode or "r"

    local gamepath, sep = getGamePath()
    local out

    local f = io.open(gamepath .. sep .. path, mode)
    if not f then return nil end

    if mode:match(".*b") then
        out = readBytes(f)
    else
        out = f:read("a")
    end
    f:close()

    return out
end

---Find patterns in file
---@param path string
---@param pattern string
---@return table {{group1, group2, ...}, ...}
function FindPatterns(path, pattern)
    local matches = {}
    for _, line in ipairs(ReadGameFileLines(path, "r")) do
        if line:match(pattern) then
            table.insert(matches, {line:match(pattern)})
        end
    end
    return matches
end