/* Copyright (c) 2017, 2024, Oracle and/or its affiliates.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License, version 2.0,
   as published by the Free Software Foundation.

   This program is designed to work with certain software (including
   but not limited to OpenSSL) that is licensed under separate terms,
   as designated in a particular file or component or in included license
   documentation.  The authors of MySQL hereby grant you an additional
   permission to link the program and your derivative works with the
   separately licensed software that they have either included with
   the program or referenced in the documentation.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License, version 2.0, for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA */

#include "thread_attrs_api.h"

#include <windows.h>

#include "my_dbug.h"
#include "my_sys.h"
#include "mysql/components/services/log_builtins.h"
#include "mysqld_error.h"

namespace resourcegroups {
namespace platform {
bool is_platform_supported() { return true; }

bool bind_to_cpu(cpu_id_t cpu_id) {
  return bind_to_cpu(cpu_id, GetCurrentThreadId());
}

bool bind_to_cpu(cpu_id_t cpu_id, my_thread_os_id_t thread_id) {
  HANDLE handle;
  BOOL res = FALSE;

  handle = OpenThread(THREAD_QUERY_INFORMATION | THREAD_SET_INFORMATION, TRUE,
                      thread_id);
  if (handle != nullptr) {
    DWORD_PTR cpu_mask = 0;
    cpu_mask |= 1ULL << cpu_id;
    res = SetThreadAffinityMask(handle, cpu_mask);
    if (!res) {
      char errbuf[MYSQL_ERRMSG_SIZE];
      LogErr(ERROR_LEVEL, ER_RES_GRP_SET_THR_AFFINITY_FAILED, thread_id, cpu_id,
             my_errno(), my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
    }
    CloseHandle(handle);
  } else {
    char errbuf[MYSQL_ERRMSG_SIZE];
    LogErr(ERROR_LEVEL, ER_RES_GRP_FAILED_TO_GET_THREAD_HANDLE, "bind_to_cpu",
           thread_id, my_errno(),
           my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
  }
  return res == FALSE;
}

bool bind_to_cpus(const std::vector<cpu_id_t> &cpu_ids) {
  return bind_to_cpus(cpu_ids, GetCurrentThreadId());
}

bool bind_to_cpus(const std::vector<cpu_id_t> &cpu_ids,
                  my_thread_os_id_t thread_id) {
  if (cpu_ids.empty()) return false;

  HANDLE handle;
  DWORD_PTR res = 1;

  handle = OpenThread(THREAD_QUERY_INFORMATION | THREAD_SET_INFORMATION, TRUE,
                      thread_id);
  if (handle != nullptr) {
    DWORD_PTR cpu_mask = 0;
    for (const auto &cpu_id : cpu_ids) cpu_mask |= 1ULL << cpu_id;
    res = SetThreadAffinityMask(handle, cpu_mask);
    if (res == 0) {
      char errbuf[MYSQL_ERRMSG_SIZE];
      LogErr(ERROR_LEVEL, ER_RES_GRP_SET_THR_AFFINITY_TO_CPUS_FAILED, thread_id,
             my_errno(), my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
    }

    CloseHandle(handle);
  } else {
    char errbuf[MYSQL_ERRMSG_SIZE];
    LogErr(WARNING_LEVEL, ER_RES_GRP_FAILED_TO_GET_THREAD_HANDLE, "bind_to_cpu",
           thread_id, my_errno(),
           my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
  }
  return res == 0;
}

bool unbind_thread() { return unbind_thread(GetCurrentThreadId()); }

bool unbind_thread(my_thread_os_id_t thread_id) {
  HANDLE handle;
  DWORD_PTR res = 1;

  handle = OpenThread(THREAD_QUERY_INFORMATION | THREAD_SET_INFORMATION, TRUE,
                      thread_id);
  if (handle != nullptr) {
    DWORD_PTR cpu_mask = sizeof(DWORD_PTR) - 1;
    res = SetThreadAffinityMask(handle, cpu_mask);
    if (res == 0) {
      char errbuf[MYSQL_ERRMSG_SIZE];
      LogErr(ERROR_LEVEL, ER_RES_GRP_THD_UNBIND_FROM_CPU_FAILED, thread_id,
             my_errno(), my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
    }
    CloseHandle(handle);
  } else {
    char errbuf[MYSQL_ERRMSG_SIZE];
    LogErr(ERROR_LEVEL, ER_RES_GRP_FAILED_TO_GET_THREAD_HANDLE, "unbind_thread",
           thread_id, my_errno(),
           my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
  }
  return res == 0;
}

int thread_priority(my_thread_os_id_t) {
  assert(0);
  return 0;
}

static inline int map_to_win_priority(int priority) {
  int win_priority;

  if (priority <= -10)
    win_priority = THREAD_PRIORITY_HIGHEST;
  else if (priority > -10 && priority < 0)
    win_priority = THREAD_PRIORITY_ABOVE_NORMAL;
  else if (priority == 0)
    win_priority = THREAD_PRIORITY_NORMAL;
  else if (priority > 0 && priority < 10)
    win_priority = THREAD_PRIORITY_BELOW_NORMAL;
  else
    win_priority = THREAD_PRIORITY_LOWEST;

  return win_priority;
}

bool set_thread_priority(int priority) {
  assert(is_valid_thread_priority(priority));

  BOOL res =
      SetThreadPriority(GetCurrentThread(), map_to_win_priority(priority));

  return res == FALSE;
}

bool set_thread_priority(int priority, my_thread_os_id_t thread_id) {
  DBUG_TRACE;

  assert(is_valid_thread_priority(priority));
  HANDLE handle;
  BOOL res = FALSE;
  handle = OpenThread(THREAD_QUERY_INFORMATION | THREAD_SET_INFORMATION, TRUE,
                      thread_id);
  if (handle != nullptr)
    res = SetThreadPriority(handle, map_to_win_priority(priority));
  else {
    char errbuf[MYSQL_ERRMSG_SIZE];
    LogErr(ERROR_LEVEL, ER_RES_GRP_FAILED_TO_GET_THREAD_HANDLE,
           "Set thread priority", thread_id, my_errno(),
           my_strerror(errbuf, MYSQL_ERRMSG_SIZE, my_errno()));
  }

  return res == FALSE;
}

uint32_t num_vcpus_using_affinity() {
  uint32_t num_vcpus = 0;

  DWORD_PTR process_affinity_mask;
  DWORD_PTR system_affinity_mask;

  if (GetProcessAffinityMask(GetCurrentProcess(), &process_affinity_mask,
                             &system_affinity_mask)) {
    for (num_vcpus = 0; process_affinity_mask != 0; process_affinity_mask >>= 1)
      if (process_affinity_mask & 1) num_vcpus++;
  }
  return num_vcpus;
}  // namespace platform

uint32_t num_vcpus_using_config() {
  cpu_id_t num_vcpus = 0;

  SYSTEM_INFO si;
  GetSystemInfo(&si);
  num_vcpus = si.dwNumberOfProcessors;
  return num_vcpus;
}

bool can_thread_priority_be_set() { return true; }
}  // namespace platform
}  // namespace resourcegroups