using Eirene
using Printf

input_csv = "eirene.csv"
output_diag = "diag_eirene.gudhi"

if size(ARGS, 1) >= 1
    output_diag = ARGS[2]
end
if size(ARGS, 1) >= 2
    input_csv = ARGS[1]
end

@time C = eirene(input_csv, model="complex", entryformat="ev", maxdim=2)

open(output_diag, "w") do io
    for d in 0:2
        A = barcode(C, dim=d)
        for i = 1:size(A, 1)
            println(io, @sprintf "%d %.3f %.3f" d A[i, 1] A[i, 2])
        end
    end
end