recrw.lua (50049a1) - memoire

recrw.lua

--[[
    a Recfile is (to simplify) a sequence of records
    a record is a sequence of fields
    a field is a label-value pair
    a label is an identifier
    a value is a string
]]

--[[
    maps text from a Recfile into a sequence of records
    returns (on success) a table of tables of label-value-list pairs
    returns (on failure) nil
]]
local function text2recs(str)
    local ret = {}
    local cr = {}
    local cl = nil
    local cv = nil
    -- Rec is line-based
    for line in str:gmatch "([^\n]*)\n" do
        -- continuation lines
        if cv and cv:sub(-1) == "\\" then
            cv = cv:sub(1, -2) .. line
        elseif line:sub(1, 1) == "+" then
            cv = cv .. "\n" .. line:gsub("^%+ ?", "")
        -- blank lines separate records
        elseif line:match "^%s*$" then
            -- add field to record if non-empty
            if cl then
                if cr[cl] then
                    table.insert(cr[cl], cv)
                else
                    cr[cl] = { cv }
                end
            end
            cl = nil
            cv = nil
            -- add record to return value if non-empty
            if next(cr) then
                table.insert(ret, cr)
            end
            cr = {}
        -- lines starting with # are comments
        elseif line:sub(1, 1) == "#" then
            if cl then
                if cr[cl] then
                    table.insert(cr[cl], cv)
                else
                    cr[cl] = { cv }
                end
            end
            cl = nil
            cv = nil
        -- new field
        else
            if cl then
                if cr[cl] then
                    table.insert(cr[cl], cv)
                else
                    cr[cl] = { cv }
                end
            end
            cl, cv = line:match "^([%a%%][%w_]*):%s(.*)"
            -- no match? bad field
            if not cl then return nil end
        end
    end
    if cl then
        if cr[cl] then
            table.insert(cr[cl], cv)
        else
            cr[cl] = { cv }
        end
    end
    if next(cr) then
        table.insert(ret, cr)
    end
    return ret
end

--[[
    maps a sequence of records into text for a Recfile
    returns (on success) a string
    returns (on failure) nil
]]
local function recs2text(recs)
    local ret = ""
    -- go through records
    for i, rec in ipairs(recs) do
        for label, vl in pairs(rec) do
            for j, value in ipairs(vl) do
                ret = ret .. string.format("\n%s: %s", label, value:gsub("\n", "\n+ "))
            end
        end
        ret = ret .. "\n"
    end
    return ret
end

return { read = text2recs, write = recs2text }

memoire

Expands on Recfile read/write library