Megaddd - my list functions - ComputerCraft

--file to be saved as 'mlf' in root

function sepPairs(vInput,mode)
    local a = {}
    local b = {}
    local index = 1
    for i,o in pairs(vInput) do
        a[index] = i
        b[index] = o
        index = index + 1
    end
    if mode == nil or mode == 2 then
        return b
    else
        return a
    end
end

function matchArgs(maInput,separators)
    local maTemp = {}
    for i in string.gmatch(maInput,separators) do
        table.insert(maTemp,i)
    end
    return maTemp
end

function findMember(member, memberList)
    if memberList[1] ~= nil then
        local foundAtIndex = 0
        for i=#memberList,1,-1 do
            foundAtIndex = foundAtIndex + 1
            if tostring(member) == tostring(memberList[i]) then
                return #memberList - foundAtIndex + 1
            end
        end
        local members
        status, memberList = pcall(sepPairs(memberList,1))
        local foundAtIndex = 0
        for i=#memberList,1,-1 do
            foundAtIndex = foundAtIndex + 1
            if member == memberList[i] then
                return foundAtIndex
            end
        end
        return nil
    else
        return nil
    end
end


function getUUID(xIn)
    local m = nil
    for b in string.gmatch(xIn,":") do
        m = b
    end
    if m == ":" then
        local tmeta = {}
        for i in string.gmatch(xIn,"%d+") do
            table.insert(tmeta,i)
        end
        local idm = tonumber(tmeta[1])
        local meta = tonumber(tmeta[2])
        local out = nil
        if meta and idm then
            out = idm + (meta * 32768)
        end
        return out
    else
        return xIn
    end
end