using ArgParse

###############################################################################
#
#  Parsing command line
#
###############################################################################

function parse_commandline()
    settings = ArgParseSettings()

    @add_arg_table settings begin
        "--tol"
            help = "set numerical tolerance for the SDP solver"
            arg_type = Float64
            default = 1e-6
        "--iterations"
            help = "set maximal number of iterations for the SDP solver"
            arg_type = Int
            default = 50000
        "--upper-bound"
            help = "Set an upper bound for the spectral gap"
            arg_type = Float64
            default = Inf
        "--cpus"
            help = "Set number of cpus used by solver"
            arg_type = Int
            required = false
        "--radius"
            help = "Radius of ball B_r(e,S) to find solution over"
            arg_type = Int
            default = 2
        "--warmstart"
            help = "Use warmstart.jld as the initial guess for SCS"
            action = :store_true
        "--nosymmetry"
            help = "Don't use symmetries of the Laplacian"
            action = :store_true

        "--SL "
            help = "GROUP: the group generated by elementary matrices of size n by n"
            arg_type = Int
            required = false
        "-p"
            help = "Matrices over field of p-elements (p=0 => over ZZ) [only with --SL]"
            arg_type = Int
            default = 0
        "-X"
            help = "Consider EL(N, ZZ⟨X⟩) [only with --SL]"
            action = :store_true

        "--SAut"
            help = "GROUP: the automorphisms group of the free group on N generators"
            arg_type = Int
            required = false

        "--MCG"
            help = "GROUP: mapping class group of surface of genus N"
            arg_type = Int
            required = false

        "--Higman"
            help = "GROUP: the Higman Group"
            action = :store_true

        "--Caprace"
            help = "GROUP: for Caprace Group"
            action = :store_true
    end
    return parse_args(settings)
end

const PARSEDARGS = parse_commandline()

set_parallel_mthread(PARSEDARGS, workers=false)

include("CPUselect.jl")
include("logging.jl")
include("main.jl")

using SCS.SCSSolver
# using Mosek
# using CSDP
# using SDPA

solver(tol, iterations) =
    SCSSolver(linearsolver=SCS.Direct,
        eps=tol, max_iters=iterations,
        alpha=1.95, acceleration_lookback=1)

# Mosek.MosekSolver(
#    MSK_DPAR_INTPNT_CO_TOL_REL_GAP=tol,
#    MSK_IPAR_INTPNT_MAX_ITERATIONS=iterations,
#    QUIET=false)

# CSDP.CSDPSolver(axtol=tol, atytol=tol, objtol=tol, minstepp=tol*10.0^-1, minstepd=tol*10.0^-1)

# SDPA.SDPASolver(epsilonStar=tol, epsilonDash=tol)

const Gr = PropertyTGroups.PropertyTGroup(PARSEDARGS)
const sett = PropertyT.Settings(Gr, PARSEDARGS,
    solver(PARSEDARGS["tol"], PARSEDARGS["iterations"]))

fullpath = PropertyT.fullpath(sett)
isdir(fullpath) || mkpath(fullpath)
setup_logging(PropertyT.filename(fullpath, :fulllog), :fulllog)

main(Gr, sett)