// MIT License
//
// Copyright (c) 2017-2024 Advanced Micro Devices, Inc. All rights reserved.
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
// SOFTWARE.

#include "benchmark_device_select.parallel.hpp"
#include "benchmark_utils.hpp"
// CmdParser
#include "cmdparser.hpp"

// Google Benchmark
#include "benchmark/benchmark.h"

// HIP API
#include <hip/hip_runtime.h>

// rocPRIM
#include <rocprim/device/device_select.hpp>

#include <codecvt>
#include <iostream>
#include <locale>
#include <string>
#include <vector>

#include <cstdio>
#include <cstdlib>

#ifndef DEFAULT_N
const size_t DEFAULT_N = 1024 * 1024 * 32;
#endif

#define CREATE_SELECT_FLAG_BENCHMARK(T, F, p)                                          \
    {                                                                                  \
        const device_select_flag_benchmark<T, rocprim::default_config, F, p> instance; \
        REGISTER_BENCHMARK(benchmarks, size, seed, stream, instance);                  \
    }

#define CREATE_SELECT_PREDICATE_BENCHMARK(T, p)                                          \
    {                                                                                    \
        const device_select_predicate_benchmark<T, rocprim::default_config, p> instance; \
        REGISTER_BENCHMARK(benchmarks, size, seed, stream, instance);                    \
    }

#define CREATE_UNIQUE_BENCHMARK(T, p)                                                 \
    {                                                                                 \
        const device_select_unique_benchmark<T, rocprim::default_config, p> instance; \
        REGISTER_BENCHMARK(benchmarks, size, seed, stream, instance);                 \
    }

#define CREATE_UNIQUE_BY_KEY_BENCHMARK(K, V, p)                                                 \
    {                                                                                           \
        const device_select_unique_by_key_benchmark<K, V, rocprim::default_config, p> instance; \
        REGISTER_BENCHMARK(benchmarks, size, seed, stream, instance);                           \
    }

#define BENCHMARK_SELECT_FLAG_TYPE(type, value)                          \
    CREATE_SELECT_FLAG_BENCHMARK(type, value, select_probability::p005); \
    CREATE_SELECT_FLAG_BENCHMARK(type, value, select_probability::p025); \
    CREATE_SELECT_FLAG_BENCHMARK(type, value, select_probability::p050); \
    CREATE_SELECT_FLAG_BENCHMARK(type, value, select_probability::p075)

#define BENCHMARK_SELECT_PREDICATE_TYPE(type)                          \
    CREATE_SELECT_PREDICATE_BENCHMARK(type, select_probability::p005); \
    CREATE_SELECT_PREDICATE_BENCHMARK(type, select_probability::p025); \
    CREATE_SELECT_PREDICATE_BENCHMARK(type, select_probability::p050); \
    CREATE_SELECT_PREDICATE_BENCHMARK(type, select_probability::p075)

#define BENCHMARK_UNIQUE_TYPE(type)                          \
    CREATE_UNIQUE_BENCHMARK(type, select_probability::p005); \
    CREATE_UNIQUE_BENCHMARK(type, select_probability::p025); \
    CREATE_UNIQUE_BENCHMARK(type, select_probability::p050); \
    CREATE_UNIQUE_BENCHMARK(type, select_probability::p075)

#define BENCHMARK_UNIQUE_BY_KEY_TYPE(K, V)                          \
    CREATE_UNIQUE_BY_KEY_BENCHMARK(K, V, select_probability::p005); \
    CREATE_UNIQUE_BY_KEY_BENCHMARK(K, V, select_probability::p025); \
    CREATE_UNIQUE_BY_KEY_BENCHMARK(K, V, select_probability::p050); \
    CREATE_UNIQUE_BY_KEY_BENCHMARK(K, V, select_probability::p075)

int main(int argc, char* argv[])
{
    cli::Parser parser(argc, argv);
    parser.set_optional<size_t>("size", "size", DEFAULT_N, "number of values");
    parser.set_optional<int>("trials", "trials", -1, "number of iterations");
    parser.set_optional<std::string>("name_format",
                                     "name_format",
                                     "human",
                                     "either: json,human,txt");
    parser.set_optional<std::string>("seed", "seed", "random", get_seed_message());
#ifdef BENCHMARK_CONFIG_TUNING
    // optionally run an evenly split subset of benchmarks, when making multiple program invocations
    parser.set_optional<int>("parallel_instance",
                             "parallel_instance",
                             0,
                             "parallel instance index");
    parser.set_optional<int>("parallel_instances",
                             "parallel_instances",
                             1,
                             "total parallel instances");
#endif
    parser.run_and_exit_if_error();

    // Parse argv
    benchmark::Initialize(&argc, argv);
    const size_t size   = parser.get<size_t>("size");
    const int    trials = parser.get<int>("trials");
    bench_naming::set_format(parser.get<std::string>("name_format"));
    const std::string  seed_type = parser.get<std::string>("seed");
    const managed_seed seed(seed_type);

    // HIP
    hipStream_t stream = 0; // default

    // Benchmark info
    add_common_benchmark_info();
    benchmark::AddCustomContext("size", std::to_string(size));
    benchmark::AddCustomContext("seed", seed_type);

    // Add benchmarks
    std::vector<benchmark::internal::Benchmark*> benchmarks = {};
#ifdef BENCHMARK_CONFIG_TUNING
    const int parallel_instance  = parser.get<int>("parallel_instance");
    const int parallel_instances = parser.get<int>("parallel_instances");
    config_autotune_register::register_benchmark_subset(benchmarks,
                                                        parallel_instance,
                                                        parallel_instances,
                                                        size,
                                                        seed,
                                                        stream);
#else
    using custom_double2    = custom_type<double, double>;
    using custom_int_double = custom_type<int, double>;

    BENCHMARK_SELECT_FLAG_TYPE(int, unsigned char);
    BENCHMARK_SELECT_FLAG_TYPE(float, unsigned char);
    BENCHMARK_SELECT_FLAG_TYPE(double, unsigned char);
    BENCHMARK_SELECT_FLAG_TYPE(uint8_t, uint8_t);
    BENCHMARK_SELECT_FLAG_TYPE(int8_t, int8_t);
    BENCHMARK_SELECT_FLAG_TYPE(rocprim::half, int8_t);
    BENCHMARK_SELECT_FLAG_TYPE(custom_double2, unsigned char);

    BENCHMARK_SELECT_PREDICATE_TYPE(int);
    BENCHMARK_SELECT_PREDICATE_TYPE(float);
    BENCHMARK_SELECT_PREDICATE_TYPE(double);
    BENCHMARK_SELECT_PREDICATE_TYPE(uint8_t);
    BENCHMARK_SELECT_PREDICATE_TYPE(int8_t);
    BENCHMARK_SELECT_PREDICATE_TYPE(rocprim::half);
    BENCHMARK_SELECT_PREDICATE_TYPE(custom_int_double);

    BENCHMARK_UNIQUE_TYPE(int);
    BENCHMARK_UNIQUE_TYPE(float);
    BENCHMARK_UNIQUE_TYPE(double);
    BENCHMARK_UNIQUE_TYPE(uint8_t);
    BENCHMARK_UNIQUE_TYPE(int8_t);
    BENCHMARK_UNIQUE_TYPE(rocprim::half);
    BENCHMARK_UNIQUE_TYPE(custom_int_double);

    BENCHMARK_UNIQUE_BY_KEY_TYPE(int, int);
    BENCHMARK_UNIQUE_BY_KEY_TYPE(float, double);
    BENCHMARK_UNIQUE_BY_KEY_TYPE(double, custom_double2);
    BENCHMARK_UNIQUE_BY_KEY_TYPE(uint8_t, uint8_t);
    BENCHMARK_UNIQUE_BY_KEY_TYPE(int8_t, double);
    BENCHMARK_UNIQUE_BY_KEY_TYPE(rocprim::half, rocprim::half);
    BENCHMARK_UNIQUE_BY_KEY_TYPE(custom_int_double, custom_int_double);
#endif

    // Use manual timing
    for(auto& b : benchmarks)
    {
        b->UseManualTime();
        b->Unit(benchmark::kMillisecond);
    }

    // Force number of iterations
    if(trials > 0)
    {
        for(auto& b : benchmarks)
        {
            b->Iterations(trials);
        }
    }

    // Run benchmarks
    benchmark::RunSpecifiedBenchmarks();

    return 0;
}
