Module:IdentifierRACJ

---

local p = {}

function p.extraireNoDeDecision(frame)
    local texte = frame.args[1] or ""
    local identifiant = string.match(texte, "(%d%d%-500%d%d%d%d)")
    if identifiant then
        return identifiant
    end
    identifiant = string.match(texte, "(%d%d%-%d%d%d%d%d%d%d)")
    return identifiant or ""
end

function p.extraireNoDeDossier(frame)
    local texte = frame.args[1] or ""
    local decision = string.match(texte, "(%d%d%-500%d%d%d%d)")
    local deja = {}
    local prefixesExclus = {}
    local identifiants = {}

    if decision then
        deja[decision] = true

        -- 1. dd-ddddddd-ddd (complet)
        for id in string.gmatch(texte, "(%d%d%-%d%d%d%d%d%d%d%-%d%d%d)") do
            if not deja[id] then
                deja[id] = true
                prefixesExclus[string.match(id, "^(%d%d%-%d%d%d%d%d%d%d)")] = true
                table.insert(identifiants, id)
            end
        end

        -- 2. dd-ddddddd (exclure ceux déjà utilisés comme préfixes)
        for id in string.gmatch(texte, "(%d%d%-%d%d%d%d%d%d%d)") do
            if not deja[id] and not prefixesExclus[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end

        -- 3. ddd-ddd
        for id in string.gmatch(texte, "(%f[%d]%d%d%d%-%d%d%d%f[%D])") do
            if not deja[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end

        -- 4. dddd-ddd
        for id in string.gmatch(texte, "(%f[%d]%d%d%d%d%-%d%d%d%f[%D])") do
            if not deja[id] then
                deja[id] = true
                table.insert(identifiants, id)
            end
        end
    end

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

return p