matrix_benchmark.jl

# If you want to run this matrix-benchmarks, you should install
# a dependency `Benchmarkplotting` which is not registered on JuliaRegistries.
#    pkg> add https://github.com/thautwarm/Benchmarkplotting.jl
using MLStyle
using ArgParse
include("matrix-benchmark/sampler.jl")
export ArbitrarySampler
versus_items = ("misc", "tuple", "array", "structfields", "vs-match", "datatype")

function parse_cmd()
    s = ArgParseSettings()
    @add_arg_table s begin
        "versus"
            help = join(", ", versus_items)
            required = true
            action => :store_arg
            nargs = '+'
    end
    parse_args(ARGS, s)
end

check_versus(x) = x in versus_items

function benchmark(x)
    filename = "matrix-benchmark/bench-$x.jl"
    open(filename) do f
        include_string(Main, read(f, String), filename);
    end
end

action = @λ begin
    [] -> nothing
    [GuardBy(check_versus) && hd, tl...] ->
        begin
            benchmark(hd)
            action(tl)
        end
    [hd, tl...] ->
        begin
            @warn "Unknown versus item: $hd"
            action(hd)
        end
end

function main()
    parsed_args = parse_cmd()
    Dict([a => b for (a, b) in parsed_args])["versus"] |> action
end

main()