/*
Copyright (c) 2020 - present 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 <dlfcn.h>
#include <string.h>
#include <map>
#include "common/rdc_fields_supported.h"
#include "rdc/rdc.h"
#include "rdc_lib/RdcHandler.h"
#include "rdc_lib/RdcLogger.h"
#include "rdc_lib/rdc_common.h"
#include "rdc_lib/RdcLibraryLoader.h"


static amd::rdc::RdcLibraryLoader rdc_lib_loader;

rdc_status_t rdc_init(uint64_t) {
       return RDC_ST_OK;
}

rdc_status_t rdc_shutdown() {
       return rdc_lib_loader.unload();
}

rdc_status_t rdc_connect(const char* ipAddress,
                rdc_handle_t* p_rdc_handle,
                const char* root_ca, const char* client_cert,
                const char* client_key ) {
        amd::rdc::RdcHandler* (*func_make_handler)(const char*,
        const char*, const char*, const char*) = nullptr;

        if (!ipAddress || !p_rdc_handle) {
                return RDC_ST_FAIL_LOAD_MODULE;
        }

        rdc_status_t status = rdc_lib_loader.load("librdc_client.so",
                &func_make_handler);
        if (status != RDC_ST_OK) {
                *p_rdc_handle = nullptr;
                return status;
        }

        *p_rdc_handle = static_cast<rdc_handle_t>
                (func_make_handler(ipAddress,
                                root_ca, client_cert, client_key));
        return RDC_ST_OK;
}

rdc_status_t rdc_disconnect(rdc_handle_t p_rdc_handle) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }
        delete static_cast<amd::rdc::RdcHandler*>(p_rdc_handle);
        p_rdc_handle = nullptr;
        return RDC_ST_OK;
}

rdc_status_t rdc_start_embedded(rdc_operation_mode_t op_mode,
                rdc_handle_t* p_rdc_handle ) {
        amd::rdc::RdcHandler* (*func_make_handler)(rdc_operation_mode_t)
                                = nullptr;
        if (!p_rdc_handle) {
                return RDC_ST_FAIL_LOAD_MODULE;
        }

        rdc_status_t status = rdc_lib_loader.load("librdc.so",
                &func_make_handler);
        if (status != RDC_ST_OK) {
                *p_rdc_handle = nullptr;
                return status;
        }

        *p_rdc_handle = static_cast<rdc_handle_t>
                        (func_make_handler(op_mode));

        return RDC_ST_OK;
}

rdc_status_t rdc_stop_embedded(rdc_handle_t p_rdc_handle) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }
        delete static_cast<amd::rdc::RdcHandler*>(p_rdc_handle);
        p_rdc_handle = nullptr;
        return RDC_ST_OK;
}

rdc_status_t rdc_field_update_all(rdc_handle_t p_rdc_handle,
        uint32_t wait_for_update) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_field_update_all(wait_for_update);
}

rdc_status_t rdc_job_get_stats(rdc_handle_t p_rdc_handle,
                          const char job_id[64], rdc_job_info_t* p_job_info) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_job_get_stats(job_id, p_job_info);
}

rdc_status_t rdc_job_start_stats(rdc_handle_t p_rdc_handle,
                               rdc_gpu_group_t groupId, const char job_id[64],
                 uint64_t update_freq) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_job_start_stats(groupId, job_id, update_freq);
}

rdc_status_t rdc_job_remove(rdc_handle_t p_rdc_handle, const char job_id[64]) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_job_remove(job_id);
}

rdc_status_t rdc_job_remove_all(rdc_handle_t p_rdc_handle) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_job_remove_all();
}


rdc_status_t rdc_job_stop_stats(rdc_handle_t p_rdc_handle,
                                                     const char job_id[64] ) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_job_stop_stats(job_id);
}

rdc_status_t rdc_group_gpu_create(rdc_handle_t p_rdc_handle,
                rdc_group_type_t type, const char* group_name,
                rdc_gpu_group_t* p_rdc_group_id) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_group_gpu_create(type, group_name, p_rdc_group_id);
}

rdc_status_t rdc_group_gpu_add(rdc_handle_t p_rdc_handle,
        rdc_gpu_group_t groupId, uint32_t gpuIndex ) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_group_gpu_add(groupId, gpuIndex);
}

rdc_status_t rdc_device_get_all(rdc_handle_t p_rdc_handle,
            uint32_t gpu_index_list[RDC_MAX_NUM_DEVICES], uint32_t* count) {
        if (!p_rdc_handle || !count) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_device_get_all(gpu_index_list, count);
}

rdc_status_t rdc_device_get_attributes(rdc_handle_t p_rdc_handle,
            uint32_t gpu_index, rdc_device_attributes_t* p_rdc_attr) {
        if (!p_rdc_handle || !p_rdc_attr) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_device_get_attributes(gpu_index, p_rdc_attr);
}

rdc_status_t rdc_group_field_create(rdc_handle_t p_rdc_handle,
            uint32_t num_field_ids, rdc_field_t* field_ids,
            const char* field_group_name, rdc_field_grp_t* rdc_field_group_id) {
        if (!p_rdc_handle || !field_ids ||
                !field_group_name || !rdc_field_group_id) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_group_field_create(num_field_ids, field_ids,
                field_group_name, rdc_field_group_id);
}

rdc_status_t rdc_group_field_get_info(rdc_handle_t p_rdc_handle,
            rdc_field_grp_t rdc_field_group_id,
            rdc_field_group_info_t* field_group_info) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_group_field_get_info(rdc_field_group_id, field_group_info);
}

rdc_status_t rdc_group_gpu_get_info(rdc_handle_t p_rdc_handle,
        rdc_gpu_group_t p_rdc_group_id, rdc_group_info_t* p_rdc_group_info) {
        if (!p_rdc_handle || !p_rdc_group_info) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_group_gpu_get_info(p_rdc_group_id, p_rdc_group_info);
}

rdc_status_t rdc_group_get_all_ids(rdc_handle_t p_rdc_handle,
            rdc_gpu_group_t group_id_list[], uint32_t* count) {
        if (!p_rdc_handle || !count) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_group_get_all_ids(group_id_list, count);
}

rdc_status_t rdc_group_field_get_all_ids(rdc_handle_t p_rdc_handle,
        rdc_field_grp_t field_group_id_list[], uint32_t* count) {
        if (!p_rdc_handle || !count) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_group_field_get_all_ids(field_group_id_list, count);
}

rdc_status_t rdc_field_watch(rdc_handle_t p_rdc_handle,
        rdc_gpu_group_t group_id, rdc_field_grp_t field_group_id,
        uint64_t update_freq, double max_keep_age, uint32_t max_keep_samples) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_field_watch(group_id, field_group_id, update_freq,
              max_keep_age, max_keep_samples);
}

rdc_status_t rdc_field_get_latest_value(rdc_handle_t p_rdc_handle,
        uint32_t gpu_index, rdc_field_t field, rdc_field_value* value) {
        if (!p_rdc_handle || !value) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_field_get_latest_value(gpu_index, field, value);
}

rdc_status_t rdc_field_get_value_since(rdc_handle_t p_rdc_handle,
        uint32_t gpu_index, rdc_field_t field, uint64_t since_time_stamp,
        uint64_t *next_since_time_stamp, rdc_field_value* value) {
        if (!p_rdc_handle || !next_since_time_stamp || !value) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
                rdc_field_get_value_since(gpu_index, field, since_time_stamp,
                next_since_time_stamp, value);
}

rdc_status_t rdc_field_unwatch(rdc_handle_t p_rdc_handle,
        rdc_gpu_group_t group_id, rdc_field_grp_t field_group_id) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_field_unwatch(group_id, field_group_id);
}

rdc_status_t rdc_group_gpu_destroy(rdc_handle_t p_rdc_handle,
        rdc_gpu_group_t p_rdc_group_id) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_group_gpu_destroy(p_rdc_group_id);
}

rdc_status_t rdc_group_field_destroy(rdc_handle_t p_rdc_handle,
        rdc_field_grp_t rdc_field_group_id) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_group_field_destroy(rdc_field_group_id);
}

rdc_status_t rdc_diagnostic_run(rdc_handle_t p_rdc_handle,
    rdc_gpu_group_t group_id,
    rdc_diag_level_t level,
    rdc_diag_response_t* response) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_diagnostic_run(group_id, level, response);
}

rdc_status_t rdc_test_case_run(rdc_handle_t p_rdc_handle,
    rdc_gpu_group_t group_id,
    rdc_diag_test_cases_t test_case,
    rdc_diag_test_result_t* result) {
        if (!p_rdc_handle) {
                return RDC_ST_INVALID_HANDLER;
        }

        return static_cast<amd::rdc::RdcHandler*>(p_rdc_handle)->
              rdc_test_case_run(group_id, test_case, result);
}

const char* rdc_status_string(rdc_status_t result) {
    switch (result) {
        case RDC_ST_OK:
                return "Success";
        case RDC_ST_NOT_SUPPORTED:
                return "Not supported";
        case RDC_ST_FAIL_LOAD_MODULE:
                return "Fail to load module";
        case RDC_ST_INVALID_HANDLER:
                return "Invalid handler";
        case RDC_ST_NOT_FOUND:
                return "Cannot find the value";
        case RDC_ST_BAD_PARAMETER:
                return "Invalid parameters";
        case RDC_ST_MSI_ERROR:
                return "SMI error";
        case RDC_ST_MAX_LIMIT:
                return "The max limit reached";
        case RDC_ST_CONFLICT:
                return "Conflict with current state";
        case RDC_ST_ALREADY_EXIST:
                return "The value already exists";
        case RDC_ST_CLIENT_ERROR:
                return "RDC Client error";
        case RDC_ST_INSUFF_RESOURCES:
                return "Not enough resources to complete operation";
        case RDC_ST_FILE_ERROR:
                return "Failed to access a file";
        case RDC_ST_NO_DATA:
                return "Data was requested, but none was found";
        case RDC_ST_PERM_ERROR:
                return "Insufficient permission to complete operation";
        case RDC_ST_UNKNOWN_ERROR:
                return "Unknown error";
        default:
                return "Unknown";
    }
}

const char* rdc_diagnostic_result_string(rdc_diag_result_t result) {
        switch (result) {
        case RDC_DIAG_RESULT_PASS:
                return "Pass";
        case RDC_DIAG_RESULT_SKIP:
                return "Skip";
        case RDC_DIAG_RESULT_WARN:
                return "Warn";
        case RDC_DIAG_RESULT_FAIL:
                return "Fail";
        default:
                return "Unknown";
        }
}

const char* field_id_string(rdc_field_t field_id) {
  amd::rdc::fld_id2name_map_t &field_id_to_descript =
                                 amd::rdc::get_field_id_description_from_id();
  return field_id_to_descript.find(field_id)->second.label.c_str();
}

rdc_field_t get_field_id_from_name(const char* name) {
        rdc_field_t value;
        if (amd::rdc::get_field_id_from_name(name, &value)) {
                return value;
        }
        return RDC_FI_INVALID;
}

char *strncpy_with_null(char *dest, const char *src, size_t n) {
     if (n == 0) {
        return dest;
     }
     strncpy(dest, src, n - 1);
     dest[n - 1]= '\0';
     return dest;
}