Module:IdentifierRACJ

---

local p = {}

-- Extrait un identifiant de type dd-500xxxx (prioritaire), sinon dd-ddddddd
function p.extraireNoDeDecision(frame)
    local texte = frame.args[1] or ""

    -- 1. Priorité à ceux dont les 3 premiers chiffres après le tiret sont 500
    local identifiant = string.match(texte, "(%d%d%-500%d%d%d%d)")
    if identifiant then
        return identifiant
    end

    -- 2. Sinon, match un identifiant générique de type dd-ddddddd
    identifiant = string.match(texte, "(%d%d%-%d%d%d%d%d%d%d)")
    return identifiant or ""
end

-- Si un dd-500xxxx est présent, retourne tous les autres identifiants (sauf lui)
-- parmi les formats : dd-ddddddd, dd-ddd, ddd-ddd, dddd-ddd
function p.extraireNoDeDossier(frame)
    local texte = frame.args[1] or ""
    local decision = string.match(texte, "(%d%d%-500%d%d%d%d)")

    local identifiants = {}

    if decision then
        local deja = {}
        deja[decision] = true

        -- Collecter les identifiants de formats variés
        for id in string.gmatch(texte, "(%d%d%-%d%d%d%d%d%d%d)") do
            if not deja[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end
        for id in string.gmatch(texte, "(%d%d%-%d%d%d)") do
            if not deja[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end
        for id in string.gmatch(texte, "(%d%d%d%-%d%d%d)") do
            if not deja[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end
        for id in string.gmatch(texte, "(%d%d%d%d%-%d%d%d)") do
            if not deja[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end
    end

    return table.concat(identifiants, ", ")
end

return p